cardcode.cpp

停车场用

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Global.h"
#include "DateTool.h"

#include "CardCode.h"

//通信头文件.
#include "syris.h"
//=================

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"

static int ReadOneRecord(TTakeCardNo *ta);
//在控制器上读取刷卡记录
static int ReadRecordOnController(int nPort,void *t);

TTakeCardNo *TakeCardNo;
//---------------------------------------------------------------------------
__fastcall TTakeCardNo::TTakeCardNo(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TTakeCardNo::BitBtn_CloseClick(TObject *Sender)
{
//    PDataModule->DataSource_CardCode->DataSet->Close();
    Close();
}
//---------------------------------------------------------------------------
void __fastcall TTakeCardNo::SB_AddClick(TObject *Sender)
{
//    PDataModule->DataSource_CardCode->DataSet->Active = true;
//    PDataModule->DataSource_CardCode->DataSet->Edit();
//    PDataModule->DataSource_CardCode->DataSet->Append();
}
//---------------------------------------------------------------------------
void __fastcall TTakeCardNo::SB_DelClick(TObject *Sender)
{
//    PDataModule->DataSource_CardCode->DataSet->Edit();
//    PDataModule->DataSource_CardCode->DataSet->Delete();
}
//---------------------------------------------------------------------------
void __fastcall TTakeCardNo::SB_SaveClick(TObject *Sender)
{
/*    PDataModule->DataSource_CardCode->DataSet->Open();
//    if(PDataModule->DataSource_CardCode->DataSet->RecordCount>0)
    {
        PDataModule->DataSource_CardCode->DataSet->Edit();
        PDataModule->DataSource_CardCode->DataSet->Post();
    }
 */
}
//---------------------------------------------------------------------------
void __fastcall TTakeCardNo::FormShow(TObject *Sender)
{
//    PDataModule->DataSource_CardCode->DataSet->Open();
}
//---------------------------------------------------------------------------
void __fastcall TTakeCardNo::SpeedButton1Click(TObject *Sender)
{
    ShowMessage(gcOperationName);
}
//---------------------------------------------------------------------------


void __fastcall TTakeCardNo::BitBtn_OKClick(TObject *Sender)
{
    if (Trim(MaskEdit_Start->Text)=="")
    {
        Application->MessageBox("请输入起始内码号！", "提示信息", MB_OK);
        MaskEdit_Start->SetFocus();
        return;
    }
    if (Trim(MaskEdit_End->Text)=="")
    {
        Application->MessageBox("请输入终止内码号！", "提示信息", MB_OK);
        MaskEdit_End->SetFocus();
        return;
    }
}
//---------------------------------------------------------------------------
int ReadOneRecord(TTakeCardNo *ta)
{
/*    TMemo *pMemo;
    //Edit1 *pEdit;
    //LOOKREC t;
    tagLOOKREC t;
    char szBuf[100];
    int rc;
    if (SHandle>0)
    {
        rc = ReadRecordOnController(1,&t);
        if(rc>0)
        {
            pMemo = ta->m_TextMemo;
            //pEdit = ta->Edit1;
           // wsprintf(szBuf,"%04d %08X %08d %06d %02d-%1d",t.nCardNo,t.nCardID,
           //  t.nDate,t.nTime,HIWORD(t.nPortAdd),LOWORD(t.nPortAdd));

            wsprintf(szBuf,"%08X",t.nCardID);
            ShowMessage(szBuf);
            pMemo->Lines->Add(szBuf);
        }

    }
    else
    {
        Application->MessageBox("通信错误！", "提示信息", MB_OK);
    }
     return(rc); */
   return(TRUE);
}

//在控制器上读取刷卡记录
int ReadRecordOnController(int nPort,void *t)
{
/*    static BYTE nFlag;
    tagLOOKREC *pRec;
    char szBuf[100],szStr[10];
    int rc,n,nID;

    if (SHandle<=0)
    {
        Application->MessageBox("通信错误！", "提示信息", MB_OK);
        return 0;
    }

    if(nFlag)return(0);
    nFlag=1;
    //读取资料
    rc = Syris_ReadIodata(nPort,szBuf);
    if (rc==SYRIS_NOERROR){
        lstrcpyn(szStr,szBuf,5);
        n=atoi(szStr);
    }
    else n=0;
    if (n>0){
        nID = szBuf[4]-'0';
        pRec = (tagLOOKREC *)t;
        ZeroMemory(pRec,sizeof(tagLOOKREC));
        pRec->nPortAdd = MAKELONG(nID,nPort);//获取地址值

        lstrcpyn(szStr,szBuf+5,9);
        pRec->nDate=DateToDWORD(szStr);

        lstrcpyn(szStr,szBuf+13,7);
        pRec->nTime=TimeToDWORD(szStr);

        lstrcpyn(szStr,szBuf+19,5);
        if (szStr[0]!='X')//有效卡
            pRec->nCardNo=atoi(szStr);

        else if(szStr[2]!='X')
        {
            //无效卡
            rc = Syris_ReadCardID(nPort,szStr+2,szBuf);//读取无效卡片内码资料
        if(rc==SYRIS_NOERROR)
        {
            lstrcpyn(szStr,szBuf,9);
            pRec->nCardHI= strtoul(szStr,NULL,16);
            lstrcpyn(szStr,szBuf+8,9);
            pRec->nCardID= strtoul(szStr,NULL,16);
        }
      }
     else n=0;
     Syris_DelOneIodata(nPort);//删除资料
    }
   if(rc==SYRIS_NOERROR){
      if(n>0)rc=1;
      else rc=0;
    }
   else rc=-1;
   nFlag=0;
   return(rc);
*/
 return(TRUE);  
}

void __fastcall TTakeCardNo::MainTimerTimer(TObject *Sender)
{
 //   ReadOneRecord(this);
}
//---------------------------------------------------------------------------

void __fastcall TTakeCardNo::FormActivate(TObject *Sender)
{
   MainTimer->Enabled = true;
}
//---------------------------------------------------------------------------

void __fastcall TTakeCardNo::FormDestroy(TObject *Sender)
{
    MainTimer->Enabled = false;
}
//---------------------------------------------------------------------------