oldcard.cpp

停车场用

  pQuery = (TADOQuery *)m_CardDataSource->DataSet;
  ReadCardRecord(pQuery,&a);
  rc = (int)pQuery;
  nCount = GetRecordIDOnTable(pQuery);
 // nCount = GetCurRecno(pQuery);//获取当前记录号
  while(rc){
    rc=ReworkCard(this,&a,1);
    if(rc){ //获取相同内容的其它记录(0=>无,1=>其它记录)
      if(GetOtherCardOnTable(&a,nCount)==FALSE)
        break; //没有重复
     }
   }
  if(rc){
    rc=EditDataSet(pQuery);
    if(rc)SaveCardRecord(pQuery,&a);
    if(rc)rc=PostDataSet(pQuery);
    if(!rc)ShowTableError(1);
   }
 }

void __fastcall TCardForm::m_AddButClick(TObject *Sender)
 {
  TDataSet *pQuery;
  CARDDATA a;
  int rc;

  pQuery = m_CardDataSource->DataSet;
  ReadCardRecord(pQuery,&a);
  rc = (int)pQuery;
  while(rc){
    rc=ReworkCard(this,&a,0);
    if(rc){ //获取相同内容的其它记录(0=>无,1=>其它记录)
      if(GetOtherCardOnTable(&a,-1)==FALSE)
        break; //没有重复
     }
   }
  if(rc){
    rc=AppendDataSet(pQuery);
    if(rc)SaveCardRecord(pQuery,&a);
    if(rc)rc=PostDataSet(pQuery);
    if(!rc)ShowTableError(0);
   }
  if(rc){//显示Grid的nIndex行内容
    m_DelBut->Enabled=TRUE;
    m_EditBut->Enabled=TRUE;
   }
 }
//获取相同内容的其它记录(0=>无,1=>其它记录)
int GetOtherCardOnTable(CARDDATA *Sour,int nOld)
 {
  static char pszText[]="添加/修改的感应卡片\n"
       "其卡号:\"%u\"或内码:\"%u\"\n\n"
      "已经有重复!";
  char szBuf[200];
  int nRec,rc;
  TADOQuery *pQuery;

  rc=FALSE;
  wsprintf(szBuf,"CARDNO=%u OR CARDID=%u",Sour->nCardNo,Sour->nCardID);
  //用OtherADOQuery元件查询一个表中记录
  pQuery = (TADOQuery *)GetOtherQuery();
  nRec=QueryOneADOTable(pQuery,GetCardTableName(),szBuf,NULL);
  if(nRec>0){
    if(nOld<=0)rc=TRUE;
    else if(nRec>1)rc=TRUE;
    else {
      nRec = GetRecordIDOnTable(pQuery);
      if(nRec!=nOld)rc=TRUE;
     }
   }
  if(rc){
    wsprintf(szBuf,pszText,Sour->nCardNo,Sour->nCardID);
    Application->MessageBox(szBuf,GetMainTitle(),
       MB_OK|MB_ICONINFORMATION|MB_APPLMODAL);
   }
  return(rc);
 }

//---------------------------------------------------------------------------
void __fastcall TCardForm::m_DelButClick(TObject *Sender)
{
  static char pszText1[]="%s当前卡号为:\"%u\"的卡片?",
    pszText2[]="%s卡号从\"%u\"至\"%u\"的卡片?",
    pszDef[]="是否真的永久(不可恢复地)删除\n\n";
  char szBuf[200];
  DELETEXT DelText;
  TADOQuery *pQuery,*pOther;
  CARDDATA a;
  int rc,m,n;

  pQuery = (TADOQuery *)m_CardDataSource->DataSet;
  rc = (int)pQuery;
  if(rc){
     ZeroMemory(&DelText,sizeof(DelText));
     rc=DeleteSomeRecord(this,&DelText);
    }
  if(rc){
    n=DelText.nSome;
    if(n==0){//删除当前记录
      ReadCardRecord(pQuery,&a);
      wsprintf(szBuf,pszText1,pszDef,a.nCardNo);
      rc= Application->MessageBox(szBuf,GetMainTitle(),
         MB_YESNO|MB_ICONQUESTION|MB_DEFBUTTON2|MB_APPLMODAL);
      if(rc==IDYES)
        rc=DelCurRecordOnTable(pQuery);//删除当前一条记录
      else rc=FALSE;
     }
    else {//删除一些记录
      m= DelText.nFrom; n=DelText.nTo;
      wsprintf(szBuf,pszText2,pszDef,m,n);
      rc= Application->MessageBox(szBuf,GetMainTitle(),
         MB_YESNO|MB_ICONQUESTION|MB_DEFBUTTON2|MB_APPLMODAL);
      if(rc==IDYES){//删除表中数据
        wsprintf(szBuf,"CARDNO>=%u and CARDNO<=%u",m,n);
        pOther = (TADOQuery *)GetOtherQuery();
        EmptyOneADOTable(pOther,GetCardTableName(),szBuf);
        OpenADOQuery(pQuery,NULL);//按原来条件查询数据表
       }
      else rc=FALSE;
     }
   }
  if(rc){ //正确删除
     m= GetAllRecNum(pQuery);//获取总记录数
     if(m<=0)
      {m_DelBut->Enabled=FALSE; m_EditBut->Enabled=FALSE;}
   }
 }

void __fastcall TCardForm::m_TextDBGridTitleClick(TColumn *Column)
{
 static char *pszName[]={"CARDNO","CARDHI,CARDID","CARDTYPE","HOLDERNO",
     "BEGINDATE","ENDDATE"};
 int rc;
 TADOQuery *pQuery;

 rc=Column->Index;
 if(rc>=0 && rc<sizeof(pszName)/sizeof(char *)){
   pQuery = (TADOQuery *)m_CardDataSource->DataSet;
   rc=QueryOneADOTable(pQuery,GetCardTableName(),NULL,pszName[rc]);
   if(rc>0)rc=TRUE; else rc=FALSE;
   m_DelBut->Enabled=rc;
   m_EditBut->Enabled=rc;
  }
}
//准备刷卡识别
void __fastcall TCardForm::m_BeginButClick(TObject *Sender)
{
 int rc;

 m_PauseBut->Enabled=TRUE;
 m_BeginBut->Enabled=FALSE;
//设置刷卡记录处理过程
  SetIODataProc(ReadCardProc);
}
void __fastcall TCardForm::m_PauseButClick(TObject *Sender)
{
 int rc;

 m_PauseBut->Enabled=FALSE;
 m_BeginBut->Enabled=TRUE;
//取消刷卡记录处理过程
  SetIODataProc(NULL);
}
//---------------------------------------------------------------------------
//刷卡识别处理(若数据未经处理,则返回FALSE)
int ReadCardProc(void *pIORec)
 {
  static BYTE nFlag;
  CARDDATA a;
  TDataSet *pQuery;
  IODATA *t;
  int rc,nDevice;

  rc=0;
  if(nFlag || pCardForm==NULL)return(rc); //防止重入
  nFlag=TRUE;

  t = (IODATA *)pIORec;
  if(t->nDataType==IODATA_CARDDATA){ //刷卡资料
    nDevice=GetCardDataOnForm(pCardForm,&a);//根据设定生成卡片数据
    if(t->nCRNo==LOWORD(nDevice) &&
            t->nRoadNo==HIWORD(nDevice))
      rc=TRUE;
   }
  if(rc){
    pQuery = pCardForm->m_CardDataSource->DataSet;
    rc = (int)pQuery;
    if(rc){//获取相同内容的其它记录(0=>无,1=>其它记录)
      a.nCardID=t->nCardID;
      a.nCardHI = t->nCardHI;
      rc = !GetOtherCardOnTable(&a,-1);
     }
    if(rc){
      rc=AppendDataSet(pQuery);
      if(rc)SaveCardRecord(pQuery,&a);
      if(rc)rc=PostDataSet(pQuery);
      if(!rc)ShowTableError(0);
     }
    if(rc){//显示Grid的nIndex行内容
      pCardForm->m_DelBut->Enabled=TRUE;
      pCardForm->m_EditBut->Enabled=TRUE;
      SetCardNoOnForm(pCardForm,a.nCardNo+1);
     }
    rc=PARK_INVALIDCARD;
   }
  nFlag=FALSE;
  return(rc);
 }
//根据设定生成卡片数据
int GetCardDataOnForm(TCardForm *pForm,CARDDATA *pCard)
 {
  int nCRNo,nReaderNo;

  ZeroMemory(pCard,sizeof(CARDDATA));

  pCard->nType = atoi(pForm->m_CardTypeCoBox->Text.c_str());
  pCard->nCardNo = atoi(pForm->m_CardNoEdit->Text.c_str());
  nCRNo = atoi(pForm->m_CRCoBox->Text.c_str());
  nReaderNo = atoi(pForm->m_ReaderCoBox->Text.c_str());
  return(MAKELONG(nCRNo,nReaderNo));
 }
//根据设定卡片起始编号
int SetCardNoOnForm(TCardForm *pForm,int nCardNo)
 {
  pForm->m_CardNoUpDown->Position=nCardNo;
  return(nCardNo);
 }

//获取相同内容的其它记录(0=>无,1=>其它记录)
int GetOtherCardOnTable(TADOQuery *pQuery,CARDDATA *Sour,int nOld)
 {
  static char pszText[]="添加/修改的感应卡片\n"
       "其卡号:\"%u\"或内码:\"%u\"\n\n"
      "已经有重复!";
  char szBuf[200];
  TLocateOptions Opts;
  Variant locvalues[1];
  int  nCardNo,nCardID;
  int nNew,rc;

  Opts.Clear();

  nCardNo = Sour->nCardNo;
  nCardID=Sour->nCardID;

  if(nCardNo!=0){
    locvalues[0].PutElement(nCardNo,0);
    // = Variant(nCardNo,varInteger);
    rc=pQuery->Locate("CARDNO", VarArrayOf(locvalues, 0), Opts);
   }
  else{
    locvalues[0] = Variant(nCardID);
    rc=pQuery->Locate("CARDID", VarArrayOf(locvalues, 0), Opts);
   }
  if(rc){
    nNew = GetCurRecno(pQuery);//获取当前记录号
    if(nNew!=nOld)rc=TRUE;
    else rc=FALSE;
   }
  if(rc){
    wsprintf(szBuf,pszText,Sour->nCardNo,Sour->nCardID);
    Application->MessageBox(szBuf,GetMainTitle(),
       MB_OK|MB_ICONINFORMATION|MB_APPLMODAL);
   }
  if(nOld>0)//移到指定记录
    GotoRecordOnTable(pQuery,nOld);

  return(rc);
 }

void __fastcall TCardForm::FormDestroy(TObject *Sender)
{
  m_PauseButClick(Sender);
}
//---------------------------------------------------------------------------


void __fastcall TCardForm::m_InqButClick(TObject *Sender)
{
 int rc;
 char *pszStr,szOrder[50];
 TADOQuery *pQuery;

 pszStr = new char[500];
 rc=(int)pszStr;
 if(rc){
   pQuery = (TADOQuery *)m_CardDataSource->DataSet;
   rc=(int)pQuery;
  }
 if(rc)
   rc=  ReworkInqCard(this,pszStr,500);//输入查询多条件
 if(rc){     //获取SQL查询Where条件
   GetQueryOrderBy(pQuery->SQL,szOrder);
   rc=QueryOneADOTable(pQuery,GetCardTableName(),pszStr,szOrder);
  }
 if(pszStr!=NULL)delete[] pszStr;
}
//---------------------------------------------------------------------------



void __fastcall TCardForm::m_CardDataSourceDataChange(TObject *Sender,
      TField *Field)
{
 TDataSet *pQuery;
 int m,n;
 char szBuf[50];

 if(Field==NULL){//多个字段同时变化,即当前记录已变化
   pQuery =m_CardDataSource->DataSet;
   n= GetAllRecNum(pQuery);//获取总记录数
   m=GetCurRecno(pQuery);//获取当前记录号
   wsprintf(szBuf,"%d/%d",m,n);
   m_RecNumPanel->Caption=szBuf;
  } 
}
//---------------------------------------------------------------------------