kzcx910.pas

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

unit KzCx910;

interface

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

type
  TfrmKzCx910 = class(TForm)
    Timer1: TTimer;
    edtclock: TStaticText;
    edtdate: TStaticText;
    qryMach: TADOQry;
    qryMachMachNo: TStringField;
    qryMachFType: TSmallintField;
    qryMachBaudRate: TIntegerField;
    qryMachNote: TStringField;
    qrySysSet: TADOQry;
    qrySysSetID: TIntegerField;
    qrySysSetKqTxtDir: TStringField;
    qrySysSetCommPort: TStringField;
    lsMach: TCheckListBox;
    cmdSetTime: TBitBtn;
    cmdSysTime: TBitBtn;
    cmdReadData: TBitBtn;
    cmdClearData: TBitBtn;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    DataSource1: TDataSource;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure cmdSysTimeClick(Sender: TObject);
    procedure cmdSetTimeClick(Sender: TObject);
    procedure qryMachAfterOpen(DataSet: TDataSet);
    procedure cmdReadDataClick(Sender: TObject);
    procedure cmdClearDataClick(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmKzCx910: TfrmKzCx910;

  hDll :integer;
  sioflush : function (port:integer):integer;stdcall;
  testlink : function (port:integer; mid:pchar):integer;stdcall;
  portinit : function (port,baud:integer):integer;stdcall;
  portexit : function (port:integer):integer;stdcall;
  getdata : function (port:integer;mID:pchar;tsCardNo:pchar):integer;stdcall;
  getqtime : function (port:integer;mID:pchar):pchar;stdcall;
  setqtime : function (port:integer;mID:pchar;ti:pchar):integer;stdcall;
  cleardata : function (port:integer; mid:pchar):integer;stdcall;

implementation

uses Kq_Mach, SelfFunc, KzCx910R, ReadTxt, Main;

{$R *.DFM}

procedure TfrmKzCx910.FormCreate(Sender: TObject);
var
  days: array[1..7] of string;
begin
	hDll := LoadLibrary('Q910N.dll');
	if hDll =0 then
	begin
		MsgBox('礚猭タ谔