676 lines
12 KiB
C++
676 lines
12 KiB
C++
#include "stdafx.h"
|
||
#include "adsdef.h"
|
||
#include "dbftools.h"
|
||
#include "io.h"
|
||
|
||
/////////////////////////////////////////////////////////////////
|
||
// CodeBase -- Database classs
|
||
CodeBase::CodeBase()
|
||
{
|
||
m_pDbfTable = NULL;
|
||
read_only = 0;
|
||
}
|
||
|
||
CodeBase::~CodeBase()
|
||
{
|
||
if (m_pDbfTable != NULL)
|
||
{
|
||
if (m_pDbfTable->IsOpen())
|
||
m_pDbfTable->Close();
|
||
delete m_pDbfTable;
|
||
m_pDbfTable = NULL;
|
||
}
|
||
}
|
||
|
||
DbfTable* CodeBase::Open(const TCHAR *szFile)
|
||
{
|
||
// add by gjm 2010/07/09
|
||
CTDbfString _sfile(szFile);
|
||
if (_access(_sfile.toLPCSTR(), 00) != 0) //exist ?
|
||
return NULL;
|
||
if (_access(_sfile.toLPCSTR(), 06) != 0) // read and write ?
|
||
return NULL;
|
||
// end
|
||
|
||
m_pDbfTable = new DbfTable;
|
||
|
||
// sg add 091013，支持只读方式打开
|
||
int nOpenFlag = TG_DBF_USE_SHARED;
|
||
if (read_only == 1)
|
||
nOpenFlag = TG_DBF_USE_READ_ONLY;
|
||
|
||
if (!m_pDbfTable->Open(szFile, nOpenFlag))
|
||
{
|
||
delete m_pDbfTable;
|
||
m_pDbfTable = NULL;
|
||
return NULL;
|
||
}
|
||
|
||
return m_pDbfTable;
|
||
}
|
||
|
||
DbfTable* CodeBase::Create(const TCHAR *szFile, const FieldInfo *pFieldArray,
|
||
int nCount)
|
||
{
|
||
// 1、创建数据库
|
||
CDBFTableDef *pNewTable = new CDBFTableDef;
|
||
|
||
// 创建数据表，并填入表头信息
|
||
if (!pNewTable->CreateTable(szFile))
|
||
{
|
||
delete pNewTable;
|
||
pNewTable = NULL;
|
||
return NULL;
|
||
}
|
||
|
||
// 增加表列信息
|
||
for (int i=0; i<nCount; i++)
|
||
{
|
||
// 表列信息（DBFField：name、type、len、dec）
|
||
FieldInfo field = pFieldArray[i];
|
||
|
||
// 表列信息（field_name、field_type、field_offset、len_info.char_len、
|
||
FIELD_REC fieldRec;
|
||
memset(&fieldRec, 0, sizeof(FIELD_REC));
|
||
|
||
int nLen = field.m_strName.GetLength();
|
||
|
||
#if (ADS < 17)
|
||
strncpy(fieldRec.field_name, field.m_strName.toLPCSTR(), nLen);
|
||
#else
|
||
strncpy(fieldRec.field_name, field.m_strName.toLPCSTR(), nLen);
|
||
#endif
|
||
fieldRec.field_name[nLen] = EOS; // field_name
|
||
|
||
#if (ADS < 17)
|
||
fieldRec.field_type = field.m_chType; // field_type
|
||
#else
|
||
fieldRec.field_type = field.m_chType; // field_type
|
||
#endif
|
||
|
||
switch(field.m_chType)
|
||
{
|
||
case FLD_TYPE_NUMERIC: // int、double
|
||
fieldRec.len_info.num_size.len = field.m_nLen;
|
||
fieldRec.len_info.num_size.dec = field.m_nDec;
|
||
break;
|
||
case FLD_TYPE_CHARACTER: // string
|
||
case FLD_TYPE_DATE: // date
|
||
case FLD_TYPE_LOGICAL: // bool
|
||
fieldRec.len_info.char_len = field.m_nLen;
|
||
break;
|
||
default:
|
||
break;
|
||
}
|
||
|
||
pNewTable->AddField(&fieldRec);
|
||
}
|
||
|
||
// 更新数据表
|
||
pNewTable->UpdateTable();
|
||
|
||
// 2、关闭数据库
|
||
pNewTable->Close();
|
||
delete pNewTable;
|
||
pNewTable = NULL;
|
||
|
||
// 3、打开
|
||
return Open(szFile);
|
||
}
|
||
|
||
|
||
|
||
/////////////////////////////////////////////////////////////////
|
||
// DbfTable -- Recordset class
|
||
int DbfTable::GetFieldNum()
|
||
{
|
||
int nNum = GetFieldCount();
|
||
return nNum;
|
||
}
|
||
|
||
FieldInfo* DbfTable::GetFieldInfo()
|
||
{
|
||
FieldInfo *pFields = NULL;
|
||
|
||
int nCount = GetFieldNum();
|
||
pFields = new FieldInfo[nCount];
|
||
for (int i=0; i<nCount; i++)
|
||
{
|
||
pFields[i] = (FieldInfo&)m_DBFFields[i];
|
||
}
|
||
return pFields;
|
||
}
|
||
|
||
FieldContent* DbfTable::GetFieldContent(int n)
|
||
{
|
||
FieldContent *pContent = (FieldContent*)m_DBFFields.GetFieldRec(n);
|
||
if (pContent != NULL)
|
||
{
|
||
CTDbfString csContent;
|
||
GetFieldValue(n, csContent);
|
||
|
||
*pContent = (const TCHAR*)(csContent.toCString()); // 赋值
|
||
return pContent;
|
||
}
|
||
return NULL;
|
||
}
|
||
|
||
FieldContent* DbfTable::GetFieldContent(const TCHAR *szFieldName)
|
||
{
|
||
CString csName = szFieldName;
|
||
csName.MakeUpper(); // 全部转化为大写字母
|
||
|
||
int nCount = GetFieldNum();
|
||
for (int i=0; i<nCount; i++)
|
||
{
|
||
DBFField field = m_DBFFields[i];
|
||
|
||
CString csTmp = field.m_strName.toCString();
|
||
csTmp.MakeUpper(); // 全部转化为大写字母
|
||
|
||
if (_tcscmp(csTmp, csName) == 0) // 查找指定列名的列
|
||
{
|
||
FieldContent *pContent = (FieldContent*)m_DBFFields.GetFieldRec(i);
|
||
if (pContent != NULL)
|
||
{
|
||
CTDbfString csContent;
|
||
GetFieldValue(i, csContent);
|
||
|
||
*pContent = (const TCHAR*)(csContent.toCString()); // 赋值
|
||
return pContent;
|
||
}
|
||
return NULL;
|
||
}
|
||
}
|
||
return NULL;
|
||
}
|
||
|
||
long DbfTable::GetRecordCount(int bSkipDeleted)
|
||
{
|
||
if (!bSkipDeleted) // 计算全部记录，包括被删除记录
|
||
return CDBFRecordset::GetRecordCount();
|
||
|
||
long lCount = 0; // 只计算有效记录
|
||
for (MoveFirst(); !IsEOF(); MoveNext())
|
||
lCount ++;
|
||
return lCount;
|
||
}
|
||
|
||
long DbfTable::GetPosition()
|
||
{
|
||
long lPosition = GetAbsolutePosition();
|
||
return lPosition;
|
||
}
|
||
|
||
int DbfTable::IsEOF()
|
||
{
|
||
BOOL bRet = CDBFRecordset::IsEOF();
|
||
return bRet;
|
||
}
|
||
|
||
int DbfTable::IsBOF()
|
||
{
|
||
BOOL bRet = CDBFRecordset::IsBOF();
|
||
return bRet;
|
||
}
|
||
|
||
int DbfTable::IsDeleted()
|
||
{
|
||
BOOL bRet = CDBFRecordset::IsDeleted();
|
||
return bRet;
|
||
}
|
||
|
||
void DbfTable::AppendBegin()
|
||
{
|
||
CDBFRecordset::AddNew();
|
||
m_bIsAdd = true;
|
||
}
|
||
|
||
void DbfTable::AppendEnd()
|
||
{
|
||
CDBFRecordset::Update();
|
||
m_bIsAdd = false;
|
||
}
|
||
|
||
void DbfTable::Close()
|
||
{
|
||
CDBFRecordset::Close();
|
||
}
|
||
|
||
void DbfTable::Delete()
|
||
{
|
||
CDBFRecordset::Delete();
|
||
}
|
||
|
||
BOOL DbfTable::Pack()
|
||
{
|
||
CDBFRecordset::Edit();
|
||
CDBFRecordset::Update();
|
||
return TRUE;
|
||
}
|
||
|
||
int DbfTable::MoveFirst(int bSkipDeleted)
|
||
{
|
||
int nRet = 1;
|
||
CDBFRecordset::MoveFirst();
|
||
if (IsDeleted() && bSkipDeleted)
|
||
nRet = MoveNext(bSkipDeleted);
|
||
return nRet;
|
||
}
|
||
|
||
int DbfTable::MoveLast(int bSkipDeleted)
|
||
{
|
||
int nRet = 1;
|
||
CDBFRecordset::MoveFirst();
|
||
if (IsDeleted() && bSkipDeleted)
|
||
nRet = MovePrev(bSkipDeleted);
|
||
return nRet;
|
||
}
|
||
|
||
int DbfTable::MoveNext(int bSkipDeleted)
|
||
{
|
||
while (1)
|
||
{
|
||
CDBFRecordset::MoveNext();
|
||
if (IsEOF() || !bSkipDeleted)
|
||
break;
|
||
if (!IsDeleted())
|
||
break;
|
||
}
|
||
return (!IsEOF());
|
||
}
|
||
|
||
int DbfTable::MovePrev(int bSkipDeleted)
|
||
{
|
||
while(1)
|
||
{
|
||
CDBFRecordset::MovePrev();
|
||
if (IsBOF() || !bSkipDeleted)
|
||
break;
|
||
if (!IsDeleted())
|
||
break;
|
||
}
|
||
return (!IsBOF());
|
||
}
|
||
|
||
void DbfTable::Move(long offset, int bSkipDeleted)
|
||
{
|
||
if (offset)
|
||
{
|
||
long nStep = offset/abs(offset);
|
||
if (IsBOF() && offset>0)
|
||
{
|
||
MoveFirst(bSkipDeleted);
|
||
offset--;
|
||
}
|
||
|
||
if (IsEOF() && offset<0)
|
||
{
|
||
MoveLast(bSkipDeleted);
|
||
offset++;
|
||
}
|
||
|
||
for (long i=offset; i!=0L; i-=nStep)
|
||
{
|
||
if (nStep > 0)
|
||
MoveNext(bSkipDeleted);
|
||
else
|
||
MovePrev(bSkipDeleted);
|
||
}
|
||
}
|
||
}
|
||
|
||
int DbfTable::MoveTo(long nRecNo)
|
||
{
|
||
CDBFRecordset::Move(nRecNo);
|
||
return 1;
|
||
}
|
||
|
||
int DbfTable::MoveTo(const TCHAR *szKey, const TCHAR *szValue, int nMethod,
|
||
int bSkipDeleted)
|
||
{
|
||
for (MoveFirst(bSkipDeleted); !IsEOF(); MoveNext(bSkipDeleted))
|
||
{
|
||
CString sValue;
|
||
GET_FIELD(this, szKey, sValue);
|
||
|
||
int bEqual = 0;
|
||
if (nMethod == CMP_SENSITIVE)
|
||
bEqual = (_tcscmp(szValue, sValue)==0);
|
||
else
|
||
bEqual = (_tcsicmp(szValue, sValue)==0);
|
||
if (bEqual)
|
||
return 1;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
int DbfTable::MoveFirst(const TCHAR *szKey, const TCHAR *szValue, int nMethod,
|
||
int bSkipDeleted)
|
||
{
|
||
return MoveTo(szKey, szValue, nMethod, bSkipDeleted);
|
||
}
|
||
|
||
int DbfTable::MoveNext(const TCHAR *szKey, const TCHAR *szValue, int nMethod,
|
||
int bSkipDeleted)
|
||
{
|
||
for (MoveNext(bSkipDeleted); !IsEOF(); MoveNext(bSkipDeleted))
|
||
{
|
||
CString sValue;
|
||
GET_FIELD(this, szKey, sValue);
|
||
|
||
int bEqual = 0;
|
||
if (nMethod == CMP_SENSITIVE)
|
||
bEqual = (_tcscmp(szValue, sValue)==0);
|
||
else
|
||
bEqual = (_tcsicmp(szValue, sValue)==0);
|
||
if (bEqual)
|
||
return 1;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
void DbfTable::EditMode()
|
||
{
|
||
if (!m_bIsAdd)
|
||
Edit();
|
||
}
|
||
|
||
void DbfTable::EditUpdate()
|
||
{
|
||
if (!m_bIsAdd)
|
||
Update();
|
||
}
|
||
/////////////////////////////////////////////////////////////////
|
||
// FieldInfo -- Field Class
|
||
FieldInfo::FieldInfo(const TCHAR *n, int t, int l, int d)
|
||
{
|
||
InitClear();
|
||
m_strName = n;
|
||
m_chType = t;
|
||
m_nLen = l;
|
||
m_nDec = d;
|
||
}
|
||
|
||
FieldInfo & FieldInfo::operator = (const FieldInfo &src)
|
||
{
|
||
m_strName = src.m_strName;
|
||
m_chType = src.m_chType;
|
||
m_nLen = src.m_nLen;
|
||
m_nDec = src.m_nDec;
|
||
return *this;
|
||
}
|
||
|
||
void FieldInfo::InitClear()
|
||
{
|
||
m_strName = _T("");
|
||
m_chType = _T('\0');
|
||
m_nLen = 0;
|
||
m_nDec = 0;
|
||
}
|
||
|
||
void FieldInfo::ReleaseArray(FieldInfo *p)
|
||
{
|
||
if (p != NULL)
|
||
{
|
||
delete p;
|
||
p = NULL;
|
||
}
|
||
}
|
||
|
||
|
||
|
||
///////////////////////////////////////////////
|
||
// FieldContent -- FieldContent Class
|
||
CString FieldContent::csValue = _T("");
|
||
|
||
TCHAR FieldContent::GetFieldType() const
|
||
{
|
||
return field_type;
|
||
}
|
||
|
||
int FieldContent::CompareTo(const FieldContent &otherOne) const
|
||
{
|
||
if (GetFieldType() != otherOne.GetFieldType())
|
||
return 0;
|
||
|
||
TCHAR cType = GetFieldType();
|
||
|
||
if (cType == FLD_TYPE_NUMERIC)
|
||
{
|
||
if (len_info.num_size.dec == _T('0')) // int
|
||
{
|
||
int n1 = *this,
|
||
n2 = otherOne;
|
||
if (n1 > n2)
|
||
return 1;
|
||
else if (n1 < n2)
|
||
return -1;
|
||
else
|
||
return 0;
|
||
}
|
||
else // double
|
||
{
|
||
double n1 = *this,
|
||
n2 = otherOne;
|
||
if (n1 > n2)
|
||
return 1;
|
||
else if (n1 < n2)
|
||
return -1;
|
||
else
|
||
return 0;
|
||
}
|
||
|
||
}
|
||
else if (cType==FLD_TYPE_CHARACTER || cType==FLD_TYPE_DATE || cType==FLD_TYPE_LOGICAL) // string、date、bool
|
||
{
|
||
const TCHAR *s1 = *this,
|
||
*s2 = otherOne;
|
||
return _tcscmp(s1, s2);
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
FieldContent::operator int () const
|
||
{
|
||
return _ttoi(csValue);
|
||
}
|
||
|
||
FieldContent::operator double () const
|
||
{
|
||
#if ADS == 15
|
||
return atof(csValue);
|
||
#else
|
||
return _tstof(csValue);
|
||
#endif
|
||
}
|
||
|
||
FieldContent::operator float () const
|
||
{
|
||
#if ADS == 15
|
||
double dValue = atof(csValue);
|
||
#else
|
||
double dValue = _tstof(csValue);
|
||
#endif
|
||
return (float)dValue;
|
||
}
|
||
|
||
FieldContent::operator const TCHAR * () const
|
||
{
|
||
return (const TCHAR *)csValue;
|
||
}
|
||
|
||
FieldContent & FieldContent::operator = (int i)
|
||
{
|
||
csValue.Format(_T("%d"), i);
|
||
return *this;
|
||
}
|
||
|
||
FieldContent & FieldContent::operator = (double d)
|
||
{
|
||
csValue.Format(_T("%f"), d);
|
||
return *this;
|
||
}
|
||
|
||
FieldContent & FieldContent::operator = (const TCHAR *str)
|
||
{
|
||
csValue = str;
|
||
return *this;
|
||
}
|
||
|
||
#ifdef __AFXDISP_H__
|
||
// 能正确转换的类型: int, double, string, date
|
||
COleVariant FieldContent::AsVariant() const
|
||
{
|
||
COleVariant res;
|
||
|
||
TCHAR cType = GetFieldType();
|
||
|
||
if (cType == FLD_TYPE_NUMERIC) // int、double
|
||
{
|
||
if (len_info.num_size.dec == _T('0')) // int
|
||
{
|
||
res = (long)_ttoi(csValue);
|
||
}
|
||
else // double
|
||
{
|
||
#if ADS == 15
|
||
res = atof(csValue);
|
||
#else
|
||
res = _tstof(csValue);
|
||
#endif
|
||
|
||
}
|
||
}
|
||
else if (cType == FLD_TYPE_CHARACTER) // string
|
||
{
|
||
const TCHAR *s1 = *this;
|
||
res = s1;
|
||
}
|
||
else if (cType == FLD_TYPE_LOGICAL) // int
|
||
{
|
||
res = (long)_ttoi(csValue);
|
||
}
|
||
return res;
|
||
}
|
||
|
||
FieldContent & FieldContent::operator = (const COleVariant &src)
|
||
{
|
||
int nOleType = V_VT(&src);
|
||
switch(nOleType)
|
||
{
|
||
case VT_BSTR:
|
||
{
|
||
CString cs = V_BSTR(&src);
|
||
const TCHAR *sz = cs;
|
||
*this = sz;
|
||
}
|
||
break;
|
||
case VT_DATE:
|
||
{
|
||
COleDateTime oleDate = V_DATE(&src);
|
||
int nYear = oleDate.GetYear(),
|
||
nMonth = oleDate.GetMonth(),
|
||
nDay = oleDate.GetDay();
|
||
long nDate = nYear*10000 + nMonth*100 + nDay;
|
||
|
||
CString sDate;
|
||
sDate.Format(_T("%ld"), nDate);
|
||
*this = (const TCHAR *)sDate;
|
||
}
|
||
break;
|
||
case VT_I4:
|
||
{
|
||
long n1 = V_I4(&src);
|
||
*this = (int)n1;
|
||
}
|
||
break;
|
||
case VT_I2:
|
||
{
|
||
short n1 = V_I2(&src);
|
||
*this = (int)n1;
|
||
}
|
||
break;
|
||
case VT_R8:
|
||
{
|
||
double n1 = V_R8(&src);
|
||
*this = n1;
|
||
}
|
||
break;
|
||
case VT_R4:
|
||
{
|
||
float n1 = V_R4(&src);
|
||
*this = (double)n1;
|
||
}
|
||
break;
|
||
}
|
||
return *this;
|
||
}
|
||
|
||
template <class K>
|
||
inline int Compare(K n1, K n2)
|
||
{
|
||
if(n1>n2) return 1;
|
||
else if(n1<n2) return -1;
|
||
else return 0;
|
||
}
|
||
|
||
int CompareVariant(const COleVariant &var1, const COleVariant &var2)
|
||
{
|
||
int nType1 = V_VT(&var1),
|
||
nType2 = V_VT(&var2);
|
||
|
||
int nRes = 0;
|
||
if (nType1 == nType2)
|
||
{
|
||
if (nType1 == VT_BSTR)
|
||
{
|
||
CString s1 = V_BSTR(&var1);
|
||
CString s2 = V_BSTR(&var2);
|
||
nRes = _tcscmp(s1, s2);
|
||
}
|
||
else if (nType1 == VT_DATE)
|
||
{
|
||
double d1 = V_DATE(&var1),
|
||
d2 = V_DATE(&var2);
|
||
int nD1 = (int)d1,
|
||
nD2 = (int)d2;
|
||
nRes = Compare(nD1, nD2);
|
||
}
|
||
else if (nType1 == VT_I4)
|
||
{
|
||
long n1 = V_I4(&var1),
|
||
n2 = V_I4(&var2);
|
||
nRes = Compare(n1, n2);
|
||
}
|
||
else if (nType1 == VT_I2)
|
||
{
|
||
short n1 = V_I2(&var1),
|
||
n2 = V_I2(&var2);
|
||
nRes = Compare(n1, n2);
|
||
}
|
||
else if (nType1 == VT_R8)
|
||
{
|
||
double n1 = V_R8(&var1),
|
||
n2 = V_R8(&var2);
|
||
nRes = Compare(n1, n2);
|
||
}
|
||
else if (nType1 == VT_R4)
|
||
{
|
||
float n1 = V_R4(&var1),
|
||
n2 = V_R4(&var2);
|
||
nRes = Compare(n1, n2);
|
||
}
|
||
}
|
||
return nRes;
|
||
}
|
||
|
||
// 比较两行的大小
|
||
int CompareBookmark(COleVariant *g_lstSortFieldContents,
|
||
const long *bookmark1, const long *bookmark2)
|
||
{
|
||
COleVariant &var1 = g_lstSortFieldContents[(int)(*bookmark1)],
|
||
&var2 = g_lstSortFieldContents[(int)(*bookmark2)];
|
||
return CompareVariant(var1, var2);
|
||
}
|
||
#endif |