unit_employeeinfo.~pas

ICCard读写程序,用来在windows环境下读写IC卡内数据!

unit Unit_EmployeeInfo;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm_EmployeeInfo = class(TForm)
    Label1: TLabel;
    EDT_JGM: TEdit;
    Label2: TLabel;
    EDT_GYH: TEdit;
    Label3: TLabel;
    EDT_XM: TEdit;
    Label4: TLabel;
    CBX_ZJLX: TComboBox;
    Label5: TLabel;
    EDT_ZJHM: TEdit;
    Label6: TLabel;
    CBX_KZT: TComboBox;
    BTN_Modify: TButton;
    Label7: TLabel;
    EDT_KH: TEdit;
    procedure FormShow(Sender: TObject);
    procedure BTN_ModifyClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_EmployeeInfo: TForm_EmployeeInfo;

implementation
uses
  Unit_DataDefs, Unit_PubFunc;
{$R *.dfm}

procedure TForm_EmployeeInfo.FormShow(Sender: TObject);
begin
  EDT_JGM.Text:= StrPas( EmployeeInfo.JGM );
  EDT_GYH.Text:= StrPas( EmployeeInfo.GYH );
  EDT_XM.Text:=  StrPas( EmployeeInfo.XM );
  CBX_ZJLX.ItemIndex:= StrToInt( EmployeeInfo.ZJLX );
  EDT_ZJHM.Text:= StrPas( EmployeeInfo.ZJHM );
  CBX_KZT.ItemIndex:= StrToInt( EmployeeInfo.KZT );
end;

procedure TForm_EmployeeInfo.BTN_ModifyClick(Sender: TObject);
var
  ReturnValue: SmallInt;
begin
  FillChar( EmployeeInfo, sizeof( EmployeeInfo ), 0 );
  StrPLCopy( EmployeeInfo.JGM, Trim(EDT_JGM.Text), 10 );
  StrPLCopy( EmployeeInfo.GYH, Trim(EDT_GYH.Text), 6  );
  StrPLCopy( EmployeeInfo.XM, Trim(EDT_XM.Text), Length(Trim(EDT_XM.Text)) );
  StrPLCopy( EmployeeInfo.ZJLX, IntToStr(CBX_ZJLX.ItemIndex), 1 );
  StrPLCopy( EmployeeInfo.ZJHM, Trim(EDT_ZJHM.Text),  Length(Trim(EDT_ZJHM.Text)));
  StrPLCopy( EmployeeInfo.KZT, IntToStr(CBX_KZT.ItemIndex), 1 );
  StrPLCopy( EmployeeInfo.KH, Trim(EDT_KH.Text), Length( Trim(EDT_KH.Text) ) );
  try
    ReturnValue:=SetEmployeeInfo;
  except
  end;
  if ReturnValue=0 then MessageBox(Handle, '修改卡信息成功', '信息', MB_OK+MB_ICONINFORMATION);
end;

end.