unit_main.pas

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

unit Unit_Main;

interface

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

type
  TForm_Main = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    ActionList1: TActionList;
    ACT_USER_MANAGEMENT: TAction;
    ACT_SYS_EXITSYSTEM: TAction;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    ACT_OPR_NEWCARD: TAction;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    ACT_READ_EMPLOYEEINFO: TAction;
    procedure ACT_SYS_EXITSYSTEMExecute(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormShow(Sender: TObject);
    procedure ACT_READ_EMPLOYEEINFOExecute(Sender: TObject);
    procedure ACT_OPR_NEWCARDExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_Main: TForm_Main;

implementation

uses
  Unit_MsgTips, Unit_PubFunc, Unit_DataDefs, Unit_DllFunc, Unit_EmployeeInfo;

{$R *.dfm}

procedure TForm_Main.ACT_SYS_EXITSYSTEMExecute(Sender: TObject);
begin
  Close;
end;

procedure TForm_Main.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  if MessageBox(Handle, '是否确认退出该系统？', '询问',
                MB_OKCANCEL+MB_ICONQUESTION)=IDOK then
     CanClose:= True
  else
     CanClose:= False;
end;

procedure TForm_Main.FormShow(Sender: TObject);
var
  Status, ReturnValue: SmallInt;
begin
  ShowMessageForm('正在初始化COM1... ...');
  icdev:= auto_init(0, 9600);
  if( icdev>0 ) then
  begin
    ReturnValue:= get_status( icdev, @Status );
    if (ReturnValue=0) then
       if( Status=0 ) then
       begin
           MessageBox(Handle, '发卡机中无卡', '警告', MB_OK+MB_ICONERROR);
           Application.Terminate;
       end;
    CloseMessageForm;
    Exit;
  end;

  ShowMessageForm('正在初始化COM2... ...');
  icdev:= auto_init(1, 9600);
  if( icdev>0 ) then
  begin
    ReturnValue:= get_status( icdev, @Status );
    if (ReturnValue=0) then
       if( Status=0 ) then
       begin
           MessageBox(Handle, '发卡机中无卡', '警告', MB_OK+MB_ICONERROR);
           Application.Terminate;
       end;
    CloseMessageForm;
    Exit;
  end;

  CloseMessageForm;
  if( icdev<0 ) then
  begin
    MessageBox(Handle, '初始化发卡机失败', '错误', MB_OK+MB_ICONERROR);
    Application.Terminate;
  end;
  
end;

procedure TForm_Main.ACT_READ_EMPLOYEEINFOExecute(Sender: TObject);
var
  ReturnValue: SmallInt;
begin
  ReturnValue:= GetEmployeeInfo;
  if( ReturnValue<>0 ) then Exit;

  Form_EmployeeInfo.ShowModal;
end;

procedure TForm_Main.ACT_OPR_NEWCARDExecute(Sender: TObject);
var
  ReturnValue: SmallInt;
begin
  ReturnValue:=CreateNewCard;
end;

end.