transactd 1.0.1

data/source/global/tdclatl/Table.cpp

@@ -0,0 +1,600 @@
+/*=================================================================
+   Copyright (C) 2013 BizStation Corp All rights reserved.
+
+   This program is free software; you can redistribute it and/or
+   modify it under the terms of the GNU General Public License
+   as published by the Free Software Foundation; either version 2
+   of the License, or (at your option) any later version.
+
+   This program is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
+
+   You should have received a copy of the GNU General Public License
+   along with this program; if not, write to the Free Software 
+   Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  
+   02111-1307, USA.
+=================================================================*/
+#include "stdafx.h"
+#include "Table.h"
+#include "Database.h"
+#include "DbDef.h"
+#include "TableDef.h"
+#include "Field.h"
+
+using namespace bzs::db::protocol::tdap;
+
+
+
+short CTableTd::GetFieldNum(VARIANT* Index)
+{
+    short index = -1;
+    if (Index->vt == VT_BSTR)
+        index = m_tb->fieldNumByName(Index->bstrVal);
+    else if ((Index->vt == VT_I2) || (Index->vt == VT_I4))
+        index = Index->iVal;
+    return index;
+}
+
+STDMETHODIMP CTableTd::get_Text(VARIANT Index, BSTR* Value)
+{
+    short index = GetFieldNum(&Index);
+    if (index < 0)
+        return Error("Invalid index", IID_ITable);
+
+    *Value = ::SysAllocString(m_tb->getFVstr(index));
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::get_Vlng(VARIANT Index, int* Value)
+{
+    short index = GetFieldNum(&Index);
+    if (index < 0)
+        return Error("Invalid index", IID_ITable);
+    *Value = m_tb->getFVint(index);
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::put_Text(VARIANT Index, BSTR Value)
+{
+    short index = GetFieldNum(&Index);
+    if (index < 0)
+        return Error("Invalid index", IID_ITable);
+    m_tb->setFVW(index, Value);
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::put_Vlng(VARIANT Index, int Value)
+{
+    short index = GetFieldNum(&Index);
+    if (index < 0)
+        return Error("Invalid index", IID_ITable);
+    m_tb->setFV(index, Value);
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::get_V64(VARIANT Index, __int64* Value)
+{
+    short index = GetFieldNum(&Index);
+    if (index < 0)
+        return Error("Invalid index", IID_ITable);
+    *Value = m_tb->getFV64(index);
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::put_V64(VARIANT Index, __int64 Value)
+{
+    short index = GetFieldNum(&Index);
+    if (index < 0)
+        return Error("Invalid index", IID_ITable);
+    m_tb->setFV(index, Value);
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::get_Vdbl(VARIANT Index, double* Value)
+{
+    short index = GetFieldNum(&Index);
+    if (index < 0)
+        return Error("Invalid index", IID_ITable);
+    *Value = m_tb->getFVdbl(index);
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::put_Vdbl(VARIANT Index, double Value)
+{
+    short index = GetFieldNum(&Index);
+    if (index < 0)
+        return Error("Invalid index", IID_ITable);
+    m_tb->setFV(index, Value);
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::get_Vbin(VARIANT Index, BSTR* Value)
+{
+    short index = GetFieldNum(&Index);
+    if (index < 0)
+        return Error("Invalid index", IID_ITable);
+    uint_td size;
+    void* p = m_tb->getFVbin(index, size);
+
+    *Value = ::SysAllocStringByteLen((char*)p, size);
+
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::put_Vbin(VARIANT Index, BSTR Value)
+{
+
+    short index = GetFieldNum(&Index);
+    if (index < 0)
+        return Error("Invalid index", IID_ITable);
+    int len = ::SysStringByteLen(Value);
+    if (len > m_tb->tableDef()->fieldDefs[index].len)
+        len = m_tb->tableDef()->fieldDefs[index].len;
+    m_tb->setFV(index, Value, len);
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::get_TableDef(ITableDef** Value)
+{
+    CComObject<CTableDef> *piObj;
+    CComObject<CTableDef>::CreateInstance(&piObj);
+	if (piObj)
+	{
+		m_tabledef = const_cast<tabledef*>(m_tb->tableDef());
+		piObj->m_tabledefPtr = &m_tabledef;
+		_ASSERTE(m_db);
+		ITableDef* tbd;
+		piObj->QueryInterface(IID_ITableDef, (void**)&tbd);
+		_ASSERTE(tbd);
+		*Value = tbd;
+	}else
+		*Value = 0;
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::Insert(eUpdateType ncc)
+{
+    m_tb->insert((client::nstable::eUpdateType)ncc);
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::Delete(VARIANT_BOOL inkey)
+{
+    m_tb->del(inkey);
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::ClearBuffer()
+{
+    m_tb->clearBuffer();
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::Close()
+{
+    m_tb->close();
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::SeekFirst(eLockType lockBias)
+{
+    m_tb->seekFirst((ushort_td)lockBias);
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::SeekLast(eLockType lockBias)
+{
+    m_tb->seekLast((ushort_td)lockBias);
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::SeekPrev(eLockType lockBias)
+{
+    m_tb->seekPrev((ushort_td)lockBias);
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::SeekNext(eLockType lockBias)
+{
+    m_tb->seekNext((ushort_td)lockBias);
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::Seek(eLockType lockBias)
+{
+    m_tb->seek((ushort_td)lockBias);
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::SeekGreater(VARIANT_BOOL orEqual, eLockType lockBias)
+{
+    m_tb->seekGreater(orEqual,(ushort_td)lockBias);
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::SeekLessThan(VARIANT_BOOL orEqual, eLockType lockBias)
+{
+    m_tb->seekLessThan(orEqual,(ushort_td)lockBias);
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::get_BookMark(long* Value)
+{
+    *Value = m_tb->bookmark();
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::SeekByBookMark(long Value, eLockType lockBias)
+{
+    m_tb->seekByBookmark(Value, (ushort_td)lockBias);
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::get_Percentage(long* Value)
+{
+    *Value = m_tb->getPercentage();
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::get_RecordLength(long* Value)
+{
+    *Value = m_tb->recordLength();
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::get_RecordCount(long* Value)
+{
+    *Value = m_tb->recordCount();
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::SeekByPercentage(long Value)
+{
+    m_tb->seekByPercentage(Value);
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::get_KeyNum(short* Value)
+{
+    *Value = m_tb->keyNum();
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::get_Stat(eStatus* Value)
+{
+    *Value = (eStatus)m_tb->stat();
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::put_Stat(eStatus Value)
+{
+    m_tb->setStat(Value);
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::put_KeyNum(short Value)
+{
+    m_tb->setKeyNum((char_td)Value);
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::FindFirst()
+{
+    m_tb->findFirst();
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::FindLast()
+{
+    m_tb->findLast();
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::FindNext(VARIANT_BOOL notIncCurrent)
+{
+    m_tb->findNext((bool)notIncCurrent);
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::FindPrev(VARIANT_BOOL notIncCurrent)
+{
+    m_tb->findPrev((bool)notIncCurrent);
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::get_Filter(BSTR* Value)
+{
+    *Value = ::SysAllocString(m_tb->filterStr());
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::put_Filter(BSTR Value)
+{
+    m_tb->setFilter(Value, m_filterRejectCount, m_filterGetCount);
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::UpDate(eUpdateType ncc)
+{
+    m_tb->update((client::nstable::eUpdateType)ncc);
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::StepFirst(eLockType lockBias)
+{
+    m_tb->stepFirst((ushort_td)lockBias);
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::StepLast(eLockType lockBias)
+{
+    m_tb->stepLast((ushort_td)lockBias);
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::StepPrev(eLockType lockBias)
+{
+    m_tb->stepPrev((ushort_td)lockBias);
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::StepNext(eLockType lockBias)
+{
+    m_tb->stepNext((ushort_td)lockBias);
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::AbortBulkInsert()
+{
+    m_tb->abortBulkInsert();
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::BeginBulkInsert(long Value)
+{
+    m_tb->beginBulkInsert(Value);
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::CommitBulkInsert()
+{
+    m_tb->commitBulkInsert(false);
+    return S_OK;
+
+}
+
+STDMETHODIMP CTableTd::get_FilterGetCount(long* Value)
+{
+    *Value = m_filterGetCount;
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::get_FilterRejectCount(long* Value)
+{
+    *Value = m_filterRejectCount;
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::put_FilterGetCount(long Value)
+{
+    m_filterGetCount = Value;
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::put_FilterRejectCount(long Value)
+{
+    m_filterRejectCount = Value;
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::Field(VARIANT Index, IField** Value)
+{
+
+    short index = GetFieldNum(&Index);
+    if (index < 0)
+        return Error("Invalid index", IID_ITable);
+
+    CComObject<CField> *piObj;
+    CComObject<CField>::CreateInstance(&piObj);
+	if (piObj)
+	{
+		piObj->m_tb = m_tb;
+		piObj->m_index = index;
+		IField* tbd;
+		piObj->QueryInterface(IID_IField, (void**)&tbd);
+		_ASSERTE(tbd);
+		*Value = piObj;
+	}
+	else
+		*Value = 0;
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::get_CanDelete(VARIANT_BOOL* Value)
+{
+    *Value = m_tb->canDelete();
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::get_CanInsert(VARIANT_BOOL* Value)
+{
+    *Value = m_tb->canInsert();
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::get_CanRead(VARIANT_BOOL* Value)
+{
+    *Value = m_tb->canRead();
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::get_CanWrite(VARIANT_BOOL* Value)
+{
+    *Value = m_tb->canWrite();
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::ClearOwnerName(void)
+{
+    m_tb->clearOwnerName();
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::CreateIndex(VARIANT_BOOL specifyKeyNum)
+{
+    m_tb->createIndex(specifyKeyNum);
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::DropIndex(VARIANT_BOOL norenumber)
+{
+    m_tb->dropIndex(norenumber);
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::get_Datalen(unsigned int* Value)
+{
+    *Value = m_tb->datalen();
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::get_WriteImageLen(unsigned int* Value)
+{
+    *Value = m_tb->getWriteImageLen();
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::get_IsOpen(VARIANT_BOOL* Value)
+{
+    *Value = m_tb->isOpen();
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::SetAccessRights(unsigned char curd)
+{
+    m_tb->setAccessRights(curd);
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::SetOwnerName(BSTR* name, short enctype)
+{
+    m_tb->setOwnerName(*name, (char_td)enctype);
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::TdapErr(OLE_HANDLE hWnd, BSTR* Value)
+{
+    if (Value)
+    {
+        wchar_t tmp[512] =
+        {NULL};
+        m_tb->tdapErr((HWND)hWnd, tmp);
+        *Value = ::SysAllocString(tmp);
+    }
+    else
+        m_tb->tdapErr((HWND)hWnd);
+    return S_OK;
+
+}
+
+STDMETHODIMP CTableTd::Unlock_(unsigned int bm)
+{
+    m_tb->unlock(bm);
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::get_BlobFieldUsed(VARIANT_BOOL* Value)
+{
+    *Value = m_tb->blobFieldUsed();
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::get_BookmarkFindCurrent(unsigned int* Value)
+{
+
+    *Value = m_tb->bookmarkFindCurrent();
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::get_BookMarksCount(int* Value)
+{
+
+    *Value = m_tb->bookMarksCount();
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::Find(eFindType FindType)
+{
+
+    m_tb->find((client::table::eFindType)FindType);
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::get_RecordHash(unsigned int* Value)
+{
+
+    *Value = m_tb->getRecordHash();
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::get_LogicalToString(VARIANT_BOOL* Value)
+{
+    *Value = m_tb->logicalToString();
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::put_LogicalToString(VARIANT_BOOL Value)
+{
+    m_tb->setLogicalToString(Value);
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::get_TrimPadChar(VARIANT_BOOL* Value)
+{
+    *Value = m_tb->trimPadChar();
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::put_TrimPadChar(VARIANT_BOOL Value)
+{
+    m_tb->setTrimPadChar(Value);
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::get_UsePadChar(VARIANT_BOOL* Value)
+{
+    *Value = m_tb->usePadChar();
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::put_UsePadChar(VARIANT_BOOL Value)
+{
+    m_tb->setUsePadChar(Value);
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::MoveBookmarksId(long Value)
+{
+    m_tb->moveBookmarksId(Value);
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::get_MyDateTimeValueByBtrv(VARIANT_BOOL* Value)
+{
+    *Value = m_tb->myDateTimeValueByBtrv();
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::get_ValiableFormatType(VARIANT_BOOL* Value)
+{
+    *Value = m_tb->valiableFormatType();
+    return S_OK;
+}
+
+STDMETHODIMP CTableTd::SmartUpdate(void)
+{
+    m_tb->smartUpdate();
+    return S_OK;
+}