kzcx910n_5r.pas

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

unit KzCx910N_5R;

interface

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

type
  TfrmKzCx910N_5R = class(TForm)
    lblMsg: TLabel;
    Label1: TLabel;
    lblRecNo: TStaticText;
  private
    { Private declarations }
  public
    { Public declarations }
    sTxtFile :string;
    nCommPort :integer;
    function ReadData(tsMachNo:string):Boolean;
  end;

var
  frmKzCx910N_5R: TfrmKzCx910N_5R;

implementation

uses KzSunco, KzCx910N_5;

{$R *.DFM}

function TfrmKzCx910N_5R.ReadData(tsMachNo:string):Boolean;
var tsData :TStrings;
	tsCardNo :Array[0..60] of char;
    i,nCount :integer;
begin
	Result :=False;
	lblMsg.Caption :='タ