kztest.pas

感应IC卡电脑考勤、门禁、售饭一卡通管理系统是基于我公司开发生产的ESW型智能卡记录器所具有的对持卡人刷卡卡号、时间、次数进行读取贮存等功能

unit KzTest;

interface

uses 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls, Grids, DBGrids, Db, CheckLst,
  Mask, DBCtrls;

type
  TfrmKzTest = class(TForm)
    Timer1: TTimer;
    lsMach: TCheckListBox;
    cmdSetTime: TBitBtn;
    cmdSysTime: TBitBtn;
    cmdReadData: TBitBtn;
    cmdClearData: TBitBtn;
    lblTime: TPanel;
    lblDate: TPanel;
    cboComm: TComboBox;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure cmdSysTimeClick(Sender: TObject);
    procedure cmdSetTimeClick(Sender: TObject);
    procedure cmdReadDataClick(Sender: TObject);
    procedure cmdClearDataClick(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
procedure MsgBox(sInfo:string);
Function MsgBoxSel(sInfo:string):Boolean;

var
  frmKzTest: TfrmKzTest;

  hDll :integer;
  GetDataNum : function (port:integer;jh:integer):integer;stdcall;
  GetData : function (tsData:PChar):boolean;stdcall;
  CheckTime : function (port:integer;jh:integer):boolean;stdcall;
  ClearData : function (port:integer;jh:integer):boolean;stdcall;

implementation

uses KzTestR;

{$R *.DFM}
procedure MsgBox(sInfo:string);
begin
     Application.MessageBox(PChar(sInfo),'巨