📄 unit1.cpp
字号:
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit5.h"
#include "Unit6.h"
#include "Unit7.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ToolButton2Click(TObject *Sender)
{
Form3->Show();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ToolButton3Click(TObject *Sender)
{
bool m;
int i,j,n;
char CheckCard[10];
char CardData[10];
HINSTANCE Dll=LoadLibrary("Mifare.dll");
if (Dll)
{
if (Flag==false)
{
LoadOpenCom=(OpenType *)GetProcAddress(Dll,"open_com");
if (LoadOpenCom)
{
Flag=LoadOpenCom("com3");
if (Flag)
// ShowMessage("Open OK"); // LoadOpenCom("com1");
{}
else
ShowMessage("Open Failed");
}
else
FreeLibrary(Dll);
}
/* LoadBeep=(FengMingType *)GetProcAddress(Dll,"FengMing");
if (LoadBeep)
{
m=LoadBeep(1,300);
if (m)
ShowMessage("beep Ok"); // LoadOpenCom("com1");
}
else
FreeLibrary(Dll);
//读卡号
LoadCheckCard=(CheckCardType *)GetProcAddress(Dll,"Check_Card");
if (LoadCheckCard)
{
m=LoadCheckCard(CheckCard);
if (m==false)
ShowMessage("Check Card error "+String(CheckCard)); // LoadOpenCom("com1");
}
else
FreeLibrary(Dll);
//输入初始化密码
LoadPin=(LoadPinType *)GetProcAddress(Dll,"LoadPin");
if (LoadPin)
{
m=LoadPin("ffffffffffff");
if (m)
ShowMessage("Load Ok "); // LoadOpenCom("com1");
}
else
FreeLibrary(Dll);
/* ReadData=(ReadDataType *)GetProcAddress(Dll,"ReadData");
if (ReadData)
{
//for(j=0;j<2;j++)
//{
//n=j;
m=ReadData(0,n,CardData);
if (m)
//ShowMessage("Read Data From Card"+String(CardData)); // LoadOpenCom("com1");
{Memo1->Lines->Add(CardData);}
else
{ShowMessage("Read Card Error");}
}
}
else
FreeLibrary(Dll);
*/
}
else
{
ShowMessage(SysErrorMessage(GetLastError()));
ShowMessage("Unable to Load the DLL");
}
AlterComFlag();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
//ReadCom();
}
//---------------------------------------------------------------------------
void TForm1::ReadCom()
{
char *CheckCard;;
char *CheckTemp;
String Temp;
CheckCard=new char[40];
int i;
bool m,n;
HINSTANCE Dll=LoadLibrary("Mifare.dll");
if (Flag)
{
LoadPin=(LoadPinType *)GetProcAddress(Dll,"LoadPin");
//n=LoadPin("536FD4271234"); //changed 2004/10/27
n=LoadPin("A500C400F405");
if(n)
{
//读卡号
ReadData=(ReadDataType *)GetProcAddress(Dll,"ReadData");
if (ReadData)
{
m=ReadData(1,0,CheckCard);
if(m)
{Temp=String(CheckCard);
// DM1->IBTable2->Edit();
Form1->IBTable2->Insert();
Form1->IBTable2->FieldByName("CARD_NO")->AsString=Temp.SubString(1,6);
//Form4->DBEdit1->Enabled = true;
Form4->OnCreate;
Form4->ShowModal();
Form4->Button3->Enabled=false;
}
}
else
{
ShowMessage("请确认卡在感应范围内");
}
}
else
FreeLibrary(Dll);
}
else
{
ShowMessage("端口没打卡，检查端口");
Timer1->Enabled=False;
}
delete[] CheckCard;
}
void __fastcall TForm1::ToolButton4Click(TObject *Sender)
{
char *CheckCard;;
char *CheckTemp;
String Temp;
int i;
bool m;
HINSTANCE Dll=LoadLibrary("Mifare.dll");
if (Flag)
{
//读卡号
LoadPin=(LoadPinType *)GetProcAddress(Dll,"Load_Pin");
if (LoadPin)
{
m=LoadPin("ffffffffffff");
if (m)
{
ShowMessage("ok");
}
else
{
ShowMessage("请确认卡在感应范围内");
}
}
else
FreeLibrary(Dll);
}
else
{
ShowMessage("端口没打卡，检查端口");
Timer1->Enabled=False;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ToolButton5Click(TObject *Sender)
{
bool m=false;
HINSTANCE Dll=LoadLibrary("Mifare.dll");
if (Dll)
{
if (Flag)
{
LoadCloseCom=(OpenType *)GetProcAddress(Dll,"Close_Com");
if (LoadCloseCom)
{
m=LoadCloseCom("com3");
if (m)
{
//ShowMessage("Close com OK"); // LoadOpenCom("com1");
Flag=false;
}
else
ShowMessage("Close com Failed");
}
else
FreeLibrary(Dll);
}
}
AlterComFlag();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ToolButton1Click(TObject *Sender)
{
ReadCom();
}
//---------------------------------------------------------------------------
void TForm1::AlterComFlag()
{
if (Flag)
{
Label9->Caption="开";
Label10->Caption="开";
}
else
{
Label9->Caption="关";
Label10->Caption="关";
}
}
void __fastcall TForm1::N6Click(TObject *Sender)
{
bool m;
int i,j,n;
char CheckCard[10];
char CardData[10];
HINSTANCE Dll=LoadLibrary("Mifare.dll");
if (Dll)
{
if (Flag==false)
{
LoadOpenCom=(OpenType *)GetProcAddress(Dll,"open_com");
if (LoadOpenCom)
{
Flag=LoadOpenCom("com3");
if (Flag)
// ShowMessage("Open OK"); // LoadOpenCom("com1");
{}
else
ShowMessage("Open Failed");
}
else
FreeLibrary(Dll);
}
/* LoadBeep=(FengMingType *)GetProcAddress(Dll,"FengMing");
if (LoadBeep)
{
m=LoadBeep(1,300);
if (m)
ShowMessage("beep Ok"); // LoadOpenCom("com1");
}
else
FreeLibrary(Dll);
//读卡号
LoadCheckCard=(CheckCardType *)GetProcAddress(Dll,"Check_Card");
if (LoadCheckCard)
{
m=LoadCheckCard(CheckCard);
if (m==false)
ShowMessage("Check Card error "+String(CheckCard)); // LoadOpenCom("com1");
}
else
FreeLibrary(Dll);
//输入初始化密码
LoadPin=(LoadPinType *)GetProcAddress(Dll,"LoadPin");
if (LoadPin)
{
m=LoadPin("ffffffffffff");
if (m)
ShowMessage("Load Ok "); // LoadOpenCom("com1");
}
else
FreeLibrary(Dll);
/* ReadData=(ReadDataType *)GetProcAddress(Dll,"ReadData");
if (ReadData)
{
//for(j=0;j<2;j++)
//{
//n=j;
m=ReadData(0,n,CardData);
if (m)
//ShowMessage("Read Data From Card"+String(CardData)); // LoadOpenCom("com1");
{Memo1->Lines->Add(CardData);}
else
{ShowMessage("Read Card Error");}
}
}
else
FreeLibrary(Dll);
*/
}
else
{
ShowMessage(SysErrorMessage(GetLastError()));
ShowMessage("Unable to Load the DLL");
}
AlterComFlag();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N7Click(TObject *Sender)
{
bool m=false;
HINSTANCE Dll=LoadLibrary("Mifare.dll");
if (Dll)
{
if (Flag)
{
LoadCloseCom=(OpenType *)GetProcAddress(Dll,"Close_Com");
if (LoadCloseCom)
{
m=LoadCloseCom("com3");
if (m)
{
//ShowMessage("Close com OK"); // LoadOpenCom("com1");
Flag=false;
}
else
ShowMessage("Close com Failed");
}
else
FreeLibrary(Dll);
}
}
AlterComFlag();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N13Click(TObject *Sender)
{
Form3->Show();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N12Click(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ToolButton6Click(TObject *Sender)
{
Form7->Show();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
try
{
IBDatabase1->DatabaseName = ExpandFileName("Db") + AnsiString("\\Demo1.gdb");
IBDatabase1->Connected = true;
}catch(...)
{
Application->MessageBox("打开数据库失败！","警告",MB_OK);
}
IBQuery1->Active = true;
IBQuery2->Active = true;
IBQuery3->Active = true;
IBQuery4->Active = true;
IBTable2->Active = true;
ClassTable->Active = true;
DepTable->Active = true;
//IBQueryExe->Active = true;
ShoolTable->Active = true;
IBTable1->Active = true;
IBTransaction1->Active = true;
}
//---------------------------------------------------------------------------
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -