transactd 1.0.1

data/source/global/tdclatl/Table.h

@@ -0,0 +1,144 @@
+#pragma once
+/*=================================================================
+   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 "resource.h"
+
+#include "tdclatl_i.h"
+#include <bzs/db/protocol/tdap/client/table.h>
+
+using namespace ATL;
+
+
+
+class ATL_NO_VTABLE CTableTd : public CComObjectRootEx<CComSingleThreadModel>,
+    public CComCoClass<CTableTd, &CLSID_Table>,
+    public IDispatchImpl<ITable, &IID_ITable, &LIBID_transactd, /* wMajor = */ 1, /* wMinor = */ 0>
+{
+
+    int m_filterRejectCount;
+    int m_filterGetCount;
+	bzs::db::protocol::tdap::tabledef* m_tabledef;
+    short GetFieldNum(VARIANT* Index);
+    CComBSTR m_str;
+
+public:
+	CTableTd():m_tb(NULL),m_db(NULL), m_filterRejectCount(1), m_filterGetCount(0){}
+
+
+    bzs::db::protocol::tdap::client::table* m_tb;
+	bzs::db::protocol::tdap::client::database* m_db;
+
+    BEGIN_COM_MAP(CTableTd) 
+		COM_INTERFACE_ENTRY(ITable) 
+		COM_INTERFACE_ENTRY(IDispatch) 
+	END_COM_MAP()
+
+    DECLARE_PROTECT_FINAL_CONSTRUCT()
+
+    HRESULT FinalConstruct() {return S_OK;}
+
+	void FinalRelease(){if (m_tb) m_tb->release();};
+
+public:
+
+
+    STDMETHOD(get_Text)(VARIANT Index, BSTR* Value);
+    STDMETHOD(get_Vlng)(VARIANT Index, int* Value);
+    STDMETHOD(put_Text)(VARIANT Index, BSTR Value);
+    STDMETHOD(put_Vlng)(VARIANT Index, int Value);
+    STDMETHOD(get_TableDef)(ITableDef** Value);
+    STDMETHOD(Insert)(eUpdateType ncc);
+    STDMETHOD(Delete)(VARIANT_BOOL inkey);
+    STDMETHOD(ClearBuffer)();
+    STDMETHOD(Close)();
+    STDMETHOD(SeekFirst)(eLockType lockBias);
+    STDMETHOD(SeekLast)(eLockType lockBias);
+    STDMETHOD(SeekPrev)(eLockType lockBias);
+    STDMETHOD(SeekNext)(eLockType lockBias);
+    STDMETHOD(Seek)(eLockType lockBias);
+    STDMETHOD(SeekGreater)(VARIANT_BOOL orEqual, eLockType lockBias);
+    STDMETHOD(SeekLessThan)(VARIANT_BOOL orEqual, eLockType lockBias);
+    STDMETHOD(get_BookMark)(long* Value);
+    STDMETHOD(SeekByBookMark)(long Value, eLockType lockBias);
+    STDMETHOD(get_Percentage)(long* Value);
+    STDMETHOD(get_RecordLength)(long* Value);
+    STDMETHOD(get_RecordCount)(long* Value);
+    STDMETHOD(SeekByPercentage)(long Value);
+    STDMETHOD(get_KeyNum)(short* Value);
+    STDMETHOD(get_Stat)(eStatus* eStatus);
+    STDMETHOD(put_Stat)(eStatus eStatus);
+    STDMETHOD(put_KeyNum)(short Value);
+    STDMETHOD(get_Vdbl)(VARIANT Index, double* Value);
+    STDMETHOD(put_Vdbl)(VARIANT Index, double Value);
+    STDMETHOD(get_Vbin)(VARIANT Index, BSTR* Value);
+    STDMETHOD(put_Vbin)(VARIANT Index, BSTR Value);
+    STDMETHOD(FindFirst)();
+    STDMETHOD(FindLast)();
+    STDMETHOD(FindNext)(VARIANT_BOOL notIncCurrent);
+    STDMETHOD(FindPrev)(VARIANT_BOOL notIncCurrent);
+    STDMETHOD(get_Filter)(BSTR* Value);
+    STDMETHOD(put_Filter)(BSTR Value);
+    STDMETHOD(get_V64)(VARIANT Index, __int64* Value);
+    STDMETHOD(put_V64)(VARIANT Index, __int64 Value);
+    STDMETHOD(UpDate)(eUpdateType ncc);
+    STDMETHOD(StepFirst)(eLockType lockBias);
+	STDMETHOD(StepLast)(eLockType lockBias);
+	STDMETHOD(StepPrev)(eLockType lockBias);
+    STDMETHOD(StepNext)(eLockType lockBias);
+
+    STDMETHOD(AbortBulkInsert)();
+    STDMETHOD(BeginBulkInsert)(long Value);
+    STDMETHOD(CommitBulkInsert)();
+    STDMETHOD(get_FilterGetCount)(long* Value);
+    STDMETHOD(get_FilterRejectCount)(long* Value);
+    STDMETHOD(put_FilterGetCount)(long Value);
+    STDMETHOD(put_FilterRejectCount)(long Value);
+
+    STDMETHOD(Field)(VARIANT Index, IField** Value);
+    STDMETHOD(get_IsOpen)(VARIANT_BOOL* Value);
+    STDMETHOD(get_CanDelete)(VARIANT_BOOL* Value);
+    STDMETHOD(get_CanInsert)(VARIANT_BOOL* Value);
+    STDMETHOD(get_CanRead)(VARIANT_BOOL* Value);
+    STDMETHOD(get_CanWrite)(VARIANT_BOOL* Value);
+    STDMETHOD(ClearOwnerName)(void);
+    STDMETHOD(CreateIndex)(VARIANT_BOOL specifyKeyNum);
+    STDMETHOD(DropIndex)(VARIANT_BOOL norenumber);
+    STDMETHOD(get_Datalen)(unsigned int* Value);
+    STDMETHOD(get_WriteImageLen)(unsigned int* Value);
+    STDMETHOD(SetAccessRights)(unsigned char curd);
+    STDMETHOD(SetOwnerName)(BSTR* name, short enctype);
+    STDMETHOD(TdapErr)(OLE_HANDLE hWnd, BSTR* Value);
+    STDMETHOD(Unlock_)(unsigned int bm);
+    STDMETHOD(get_BlobFieldUsed)(VARIANT_BOOL* Value);
+    STDMETHOD(get_BookmarkFindCurrent)(unsigned int* Value);
+    STDMETHOD(get_BookMarksCount)(int* Value);
+    STDMETHOD(Find)(eFindType FindType);
+    STDMETHOD(get_RecordHash)(unsigned int* Value);
+    STDMETHOD(get_LogicalToString)(VARIANT_BOOL* Value);
+    STDMETHOD(put_LogicalToString)(VARIANT_BOOL Value);
+    STDMETHOD(get_TrimPadChar)(VARIANT_BOOL* Value);
+    STDMETHOD(put_TrimPadChar)(VARIANT_BOOL Value);
+    STDMETHOD(get_UsePadChar)(VARIANT_BOOL* Value);
+    STDMETHOD(put_UsePadChar)(VARIANT_BOOL Value);
+    STDMETHOD(MoveBookmarksId)(long Value);
+    STDMETHOD(get_MyDateTimeValueByBtrv)(VARIANT_BOOL* Value);
+    STDMETHOD(get_ValiableFormatType)(VARIANT_BOOL* Value);
+    STDMETHOD(SmartUpdate)(void);
+
+};

data/source/global/tdclatl/TableDef.cpp

@@ -0,0 +1,291 @@
+/*=================================================================
+   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 "TableDef.h"
+#include "FieldDef.h"
+#include "KeyDef.h"
+#include "Flags.h"
+
+STDMETHODIMP CTableDef::get_FieldDef(short Index, IFieldDef** Value)
+{
+    if (Index >= (*m_tabledefPtr)->fieldCount)
+        return Error("Invalid index.", IID_ITableDef);
+
+    CComObject<CFieldDef> *piObj;
+    CComObject<CFieldDef>::CreateInstance(&piObj);
+	if (piObj)
+	{
+		piObj->m_tabledefPtr = m_tabledefPtr;
+		piObj->m_index = Index;
+		IFieldDef* fd;
+		piObj->QueryInterface(IID_IFieldDef, (void**)&fd);
+		_ASSERTE(fd);
+		*Value = piObj;
+	}else
+		*Value = 0;
+   return S_OK;
+}
+
+STDMETHODIMP CTableDef::get_KeyDef(short Index, IKeyDef** Value)
+{
+    if (Index >= (*m_tabledefPtr)->keyCount)
+        return Error("Invalid index.", IID_ITableDef);
+
+    CComObject<CKeyDef> *piObj;
+    CComObject<CKeyDef>::CreateInstance(&piObj);
+	if (piObj)
+	{
+		piObj->m_tabledefPtr = m_tabledefPtr;
+		piObj->m_index = Index;
+		IKeyDef* kb;
+		piObj->QueryInterface(IID_IKeyDef, (void**)&kb);
+		_ASSERTE(kb);
+		*Value = piObj;
+	}else
+		*Value = 0;
+    return S_OK;
+}
+
+STDMETHODIMP CTableDef::get_FieldCount(short* Value)
+{
+    *Value = (*m_tabledefPtr)->fieldCount;
+    return S_OK;
+}
+
+STDMETHODIMP CTableDef::get_KeyCount(short* Value)
+{
+    *Value = (*m_tabledefPtr)->keyCount;
+    return S_OK;
+}
+
+STDMETHODIMP CTableDef::get_PageSize(short* Value)
+{
+    *Value = (*m_tabledefPtr)->pageSize;
+    return S_OK;
+}
+
+STDMETHODIMP CTableDef::put_PageSize(short Value)
+{
+    (*m_tabledefPtr)->pageSize = Value;
+    return S_OK;
+}
+
+STDMETHODIMP CTableDef::get_PreAlloc(short* Value)
+{
+    *Value = (*m_tabledefPtr)->preAlloc;
+    return S_OK;
+}
+
+STDMETHODIMP CTableDef::put_PreAlloc(short Value)
+{
+    (*m_tabledefPtr)->preAlloc = Value;
+    return S_OK;
+}
+
+STDMETHODIMP CTableDef::get_FileName(BSTR* Value)
+{
+    CComBSTR ret;
+    ret = (*m_tabledefPtr)->fileName();
+    *Value = ret.Copy();
+
+    return S_OK;
+}
+
+STDMETHODIMP CTableDef::put_FileName(BSTR Value)
+{
+
+    (*m_tabledefPtr)->setFileName(Value);
+    return S_OK;
+}
+
+STDMETHODIMP CTableDef::get_TableName(BSTR* Value)
+{
+    CComBSTR ret;
+    ret = (*m_tabledefPtr)->tableName();
+    *Value = ret.Copy();
+    return S_OK;
+}
+
+STDMETHODIMP CTableDef::put_TableName(BSTR Value)
+{
+    (*m_tabledefPtr)->setTableName(Value);
+    return S_OK;
+}
+
+STDMETHODIMP CTableDef::get_Flags(IFlags** Value)
+{
+    CComObject<CFlags> *piObj;
+    CComObject<CFlags>::CreateInstance(&piObj);
+	if (piObj)
+	{
+		piObj->m_flags = (*m_tabledefPtr)->flags;
+		IFlags* fl;
+		piObj->QueryInterface(IID_IFlags, (void**)&fl);
+		_ASSERTE(fl);
+		*Value = piObj;
+	}else
+		*Value = 0;
+    return S_OK;
+}
+
+STDMETHODIMP CTableDef::put_Flags(IFlags* Value)
+{
+    Value->All(&(*m_tabledefPtr)->flags.all);
+    return S_OK;
+}
+
+STDMETHODIMP CTableDef::get_PrimaryKeyNum( unsigned char* Value)
+{
+    *Value = (*m_tabledefPtr)->primaryKeyNum;
+    return S_OK;
+}
+
+STDMETHODIMP CTableDef::put_PrimaryKeyNum( unsigned char Value)
+{
+    (*m_tabledefPtr)->primaryKeyNum = Value;
+    return S_OK;
+}
+
+STDMETHODIMP CTableDef::get_ParentKeyNum( unsigned char* Value)
+{
+    *Value = (*m_tabledefPtr)->parentKeyNum;
+    return S_OK;
+}
+
+STDMETHODIMP CTableDef::put_ParentKeyNum( unsigned char Value)
+{
+    (*m_tabledefPtr)->parentKeyNum = Value;
+    return S_OK;
+}
+
+STDMETHODIMP CTableDef::get_ReplicaKeyNum( unsigned char* Value)
+{
+    *Value = (*m_tabledefPtr)->replicaKeyNum;
+    return S_OK;
+}
+
+STDMETHODIMP CTableDef::put_ReplicaKeyNum( unsigned char Value)
+{
+    (*m_tabledefPtr)->replicaKeyNum = Value;
+    return S_OK;
+}
+
+STDMETHODIMP CTableDef::get_OptionFlags(IFlags** Value)
+{
+    CComObject<CFlags> *piObj;
+    CComObject<CFlags>::CreateInstance(&piObj);
+	if (piObj)
+	{
+		piObj->m_flags = (*m_tabledefPtr)->optionFlags;
+		IFlags* fl;
+		piObj->QueryInterface(IID_IFlags, (void**)&fl);
+		_ASSERTE(fl);
+		*Value = piObj;
+	}else
+		*Value = 0;
+
+    return S_OK;
+}
+
+STDMETHODIMP CTableDef::put_OptionFlags(IFlags* Value)
+{
+    Value->All(&(*m_tabledefPtr)->optionFlags.all);
+    return S_OK;
+}
+
+STDMETHODIMP CTableDef::get_IconIndex(unsigned char* Value)
+{
+    *Value = (*m_tabledefPtr)->iconIndex;
+    return S_OK;
+}
+
+STDMETHODIMP CTableDef::put_IconIndex(unsigned char Value)
+{
+    (*m_tabledefPtr)->iconIndex = Value;
+    return S_OK;
+}
+
+STDMETHODIMP CTableDef::get_Id(short* Value)
+{
+    *Value = (*m_tabledefPtr)->id;
+    return S_OK;
+}
+
+STDMETHODIMP CTableDef::put_Id(short Value)
+{
+    (*m_tabledefPtr)->id = Value;
+    return S_OK;
+}
+
+STDMETHODIMP CTableDef::get_Charsetindex(eCharset* Value)
+{
+    *Value = (eCharset)(*m_tabledefPtr)->charsetIndex;
+    return S_OK;
+}
+
+STDMETHODIMP CTableDef::put_Charsetindex(eCharset Value)
+{
+    (*m_tabledefPtr)->charsetIndex = Value;
+    return S_OK;
+}
+
+STDMETHODIMP CTableDef::get_FixedRecordLen(unsigned short* Value)
+{
+	*Value =  (*m_tabledefPtr)->fixedRecordLen;
+    return S_OK;
+}
+
+STDMETHODIMP CTableDef::put_FixedRecordLen(unsigned short Value)
+{
+	(*m_tabledefPtr)->fixedRecordLen = Value;
+    return S_OK;
+}
+
+STDMETHODIMP CTableDef::get_MaxRecordLen(unsigned short* Value)
+{
+	*Value =  (*m_tabledefPtr)->maxRecordLen;
+    return S_OK;
+}
+
+STDMETHODIMP CTableDef::put_MaxRecordLen(unsigned short Value)
+{
+	(*m_tabledefPtr)->maxRecordLen = Value;
+    return S_OK;
+}
+
+STDMETHODIMP CTableDef::get_SchemaCodePage(unsigned int* Value)
+{
+	*Value =  (*m_tabledefPtr)->schemaCodePage;
+    return S_OK;
+}
+
+STDMETHODIMP CTableDef::put_SchemaCodePage(unsigned int Value)
+{
+	(*m_tabledefPtr)->schemaCodePage = Value;
+    return S_OK;
+}
+
+STDMETHODIMP CTableDef::get_Version(unsigned short* Value)
+{
+	*Value =  (*m_tabledefPtr)->version;
+	return S_OK;
+}
+
+   
+

data/source/global/tdclatl/TableDef.h

@@ -0,0 +1,86 @@
+#pragma once
+/*=================================================================
+   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 "resource.h"
+
+#include "tdclatl_i.h"
+#include <bzs/db/protocol/tdap/tdapSchema.h>
+#include <bzs/db/protocol/tdap/client/dbDef.h>
+using namespace ATL;
+
+class ATL_NO_VTABLE CTableDef : public CComObjectRootEx<CComSingleThreadModel>,
+    public CComCoClass<CTableDef, &CLSID_TableDef>,
+    public IDispatchImpl<ITableDef, &IID_ITableDef, &LIBID_transactd, /* wMajor = */ 1, /* wMinor = */ 0>
+{
+public:
+    CTableDef(): m_tabledefPtr(NULL) {}
+    bzs::db::protocol::tdap::tabledef** m_tabledefPtr;
+
+
+    BEGIN_COM_MAP(CTableDef) 
+		COM_INTERFACE_ENTRY(ITableDef) 
+		COM_INTERFACE_ENTRY(IDispatch) 
+	END_COM_MAP()
+
+    DECLARE_PROTECT_FINAL_CONSTRUCT()
+
+    HRESULT FinalConstruct() {return S_OK;}
+
+    void FinalRelease() {}
+
+public:
+	
+
+    STDMETHOD(get_FieldDef)(short Index, IFieldDef** Value);
+    STDMETHOD(get_KeyDef)(short Index, IKeyDef** Value);
+    STDMETHOD(get_FieldCount)(short* Value);
+    STDMETHOD(get_KeyCount)(short* Value);
+    STDMETHOD(get_PageSize)(short* Value);
+    STDMETHOD(get_PreAlloc)(short* Value);
+    STDMETHOD(get_FileName)(BSTR* Value);
+    STDMETHOD(get_TableName)(BSTR* Value);
+    STDMETHOD(get_Flags)(IFlags** Value);
+    STDMETHOD(get_ParentKeyNum)( unsigned char* Value);
+    STDMETHOD(get_ReplicaKeyNum)( unsigned char* Value);
+    STDMETHOD(get_OptionFlags)(IFlags** Value);
+    STDMETHOD(get_IconIndex)(unsigned char* Value);
+    STDMETHOD(get_Id)(short* Value);
+    STDMETHOD(put_FileName)(BSTR Value);
+    STDMETHOD(put_Flags)(IFlags* Value);
+    STDMETHOD(put_IconIndex)(unsigned char Value);
+    STDMETHOD(put_Id)(short Value);
+    STDMETHOD(put_OptionFlags)(IFlags* Value);
+    STDMETHOD(put_PageSize)(short Value);
+    STDMETHOD(put_ParentKeyNum)( unsigned char Value);
+    STDMETHOD(put_PreAlloc)(short Value);
+    STDMETHOD(put_ReplicaKeyNum)( unsigned char Value);
+    STDMETHOD(put_TableName)(BSTR Value);
+    STDMETHOD(get_Charsetindex)(eCharset* Value);
+    STDMETHOD(put_Charsetindex)(eCharset Value);
+    STDMETHOD(get_PrimaryKeyNum)( unsigned char* Value);
+    STDMETHOD(put_PrimaryKeyNum)( unsigned char Value);
+    STDMETHOD(get_FixedRecordLen)(unsigned short* Value);
+    STDMETHOD(put_FixedRecordLen)(unsigned short Value);
+    STDMETHOD(get_MaxRecordLen)(unsigned short* Value);
+    STDMETHOD(put_MaxRecordLen)(unsigned short Value);
+    STDMETHOD(get_SchemaCodePage)(unsigned int* Value);
+    STDMETHOD(put_SchemaCodePage)(unsigned int Value);
+	STDMETHOD(get_Version)(unsigned short* Value);
+  
+};

data/source/global/tdclatl/TdVersion.cpp

@@ -0,0 +1,74 @@
+/*=================================================================
+   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 "TdVersion.h"
+#include <bzs/db/protocol/tdap/client/database.h>
+
+using namespace bzs::db::protocol::tdap::client;
+
+STDMETHODIMP CTdVersion::get_MajorVersion(short* Value)
+{
+    *Value = m_ver.majorVersion;
+    return S_OK;
+}
+
+STDMETHODIMP CTdVersion::put_MajorVersion(short Value)
+{
+    m_ver.majorVersion = Value;
+    return S_OK;
+}
+
+STDMETHODIMP CTdVersion::get_MinorVersion(short* Value)
+{
+    *Value = m_ver.minorVersion;
+    return S_OK;
+}
+
+STDMETHODIMP CTdVersion::put_MinorVersion(short Value)
+{
+    m_ver.minorVersion = Value;
+    return S_OK;
+}
+
+STDMETHODIMP CTdVersion::get_Type(short* Value)
+{
+    *Value = m_ver.type;
+    return S_OK;
+}
+
+STDMETHODIMP CTdVersion::put_Type(short Value)
+{
+    m_ver.type = (char)Value;
+    return S_OK;
+}
+
+STDMETHODIMP CTdVersion::ModuleTypeString(BSTR* Value)
+{
+    *Value = ::SysAllocString(m_ver.moduleTypeString());
+    return S_OK;
+}
+
+STDMETHODIMP CTdVersion::ModuleVersionShortString(BSTR* Value)
+{
+
+    wchar_t tmp[512] ={NULL};
+    m_ver.moduleVersionShortString(tmp);
+    *Value = ::SysAllocString(tmp);
+    return S_OK;
+}

data/source/global/tdclatl/TdVersion.h

@@ -0,0 +1,54 @@
+#pragma once
+/*=================================================================
+   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 "resource.h"
+#include "tdclatl_i.h"
+#include <bzs/db/protocol/tdap/tdapSchema.h>
+
+using namespace ATL;
+
+class ATL_NO_VTABLE CTdVersion : public CComObjectRootEx<CComSingleThreadModel>,
+    public CComCoClass<CTdVersion, &CLSID_TdVersion>,
+    public IDispatchImpl<ITdVersion, &IID_ITdVersion, &LIBID_transactd, /* wMajor = */ 1, /* wMinor = */ 0>
+{
+
+public:
+    CTdVersion() {memset(&m_ver, 0, sizeof(m_ver));}
+    bzs::db::protocol::tdap::btrVersion m_ver;
+    BEGIN_COM_MAP(CTdVersion) COM_INTERFACE_ENTRY(ITdVersion) COM_INTERFACE_ENTRY(IDispatch) END_COM_MAP()
+
+    DECLARE_PROTECT_FINAL_CONSTRUCT()
+
+    HRESULT FinalConstruct() {return S_OK;}
+
+    void FinalRelease() {}
+
+public:
+
+    STDMETHOD(get_MajorVersion)(short* Value);
+    STDMETHOD(put_MajorVersion)(short Value);
+    STDMETHOD(get_MinorVersion)(short* Value);
+    STDMETHOD(put_MinorVersion)(short Value);
+    STDMETHOD(get_Type)(short* Value);
+    STDMETHOD(put_Type)(short Value);
+
+    STDMETHOD(ModuleTypeString)(BSTR* Value);
+    STDMETHOD(ModuleVersionShortString)(BSTR* Value);
+
+};