kzsznewd.pas

来自「感应IC卡电脑考勤、门禁、售饭一卡通管理系统是基于我公司开发生产的ESW型智能卡」· PAS 代码 · 共 43 行

unit KzSzNewD;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, SPComm, ExtCtrls, ComCtrls, DB, ADODB, ADOQry;

type
  TfrmKzSzNewD = class(TForm)
    lblMsg: TLabel;
    ProgressBar1: TProgressBar;
    Label1: TLabel;
    qryOld: TADOQry;
    qryOldCardNo: TStringField;
    qryNew: TADOQry;
    qryNewCardNo: TStringField;
    procedure qryOldBeforeOpen(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
    nCommPort :integer;
    function SetEmpCard(tsMachNo:string):Boolean;
  end;

var
  frmKzSzNewD: TfrmKzSzNewD;

implementation

uses KzSzNew;

{$R *.DFM}

function TfrmKzSzNewD.SetEmpCard(tsMachNo:string):boolean;
var tsCardNo :PChar;
	tnMachNo :integer;
    tlRet :Boolean;
begin
  Result :=False;
  tnMachNo :=StrToInt(tsMachNo);
  lblMsg.Caption :='タ