frm_c_khspas.pas

是一个用delphi设计的考勤系统

unit frm_c_khspas;

interface

uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, ModalForm, Menus, StdCtrls, ExtCtrls, YLabelButton, ChangeImage,
   ComCtrls;

type
   Tfrm_c_khs = class(TMyModalForm)
      BtnHelp: TChangeImg;
      LBtnHelp: TLabelB;
      BtnInport: TChangeImg;
      LBtnInport: TLabelB;
      rdg: TRadioGroup;
      chb1: TCheckBox;
      stb: TStatusBar;
      procedure chb1Click(Sender: TObject);
      procedure BtnInportClick(Sender: TObject);
      procedure FormCreate(Sender: TObject);
      procedure BtnHelpClick(Sender: TObject);
   private
    { Private declarations }
   public
    { Public declarations }
   end;

var
   frm_c_khs: Tfrm_c_khs;

implementation

uses UTcard, UTYhxx, UGeneralFunc, UGlobal;
var
   yhcard: Tcard;
   yhxx: Tyhxx;

{$R *.dfm}

procedure Tfrm_c_khs.chb1Click(Sender: TObject);
begin
   inherited;
   if chb1.Checked then
      stb.Panels[1].Text := '如为强制回收同不读用户卡直接回收'
   else
      stb.Panels[1].Text := '请将用户卡放在发卡器上';
end;

procedure Tfrm_c_khs.BtnInportClick(Sender: TObject);
var
   sStr: string;
   iTran: integer;
begin
   inherited;
   if chb1.Checked then
   begin
      while not yhcard.yhkhs(0) do
      begin
         if application.MessageBox('卡回收失败，是否重试？', '用户卡回收', mb_YesNo + mb_iconquestion) = id_NO then
            break;
      end;
      stb.Panels[1].Text := '[' + inttostr(yhcard.RetVal) + ']' + yhcard.RetMsg;
      exit;
   end;
   yhcard.yhdk(false);
   if yhcard.RetVal = 0 then
      iTran := 2
   else
      iTran := 1;
   if yhcard.RetVal <> -1 then
   begin
      yhxx.GetYhxx(yhcard.Yhbh);
      sStr := '  卡序列号：' + inttostr(yhcard.CardSN) + #10#13 +
         '  用户编号：' + yhxx.Yhbh + #10#13 +
         '  用户姓名：' + yhxx.Yhxm + #10#13 +
         '  所属单位：' + yhxx.Bjmc + #10#13 +
         '  银行帐号：' + '103000000000' + #13#13 +
         '请确认是否回收此卡';
      stb.Panels[1].Text := '[' + inttostr(yhcard.RetVal) + ']' + yhcard.RetMsg;
      if application.MessageBox(pchar(sStr), '用户补卡', mb_OkCancel + mb_iconquestion) = id_Ok then
      begin
         while not yhcard.yhkhs(iTran) do
         begin
            if application.MessageBox('卡回收失败，是否重试？', '用户卡回收', mb_YesNo + mb_iconquestion) = id_NO then
               break;
         end;
      end;
      stb.Panels[1].Text := '[' + inttostr(yhcard.RetVal) + ']' + yhcard.RetMsg;
   end
   else
      stb.Panels[1].Text := '[' + inttostr(yhcard.RetVal) + ']' + yhcard.RetMsg;
end;

procedure Tfrm_c_khs.FormCreate(Sender: TObject);
begin
   inherited;
   yhxx := Tyhxx.create;
   yhcard := Tcard.Create;
end;

procedure Tfrm_c_khs.BtnHelpClick(Sender: TObject);
begin
   inherited;
   HtmlHelp(Handle, gtSyscs.sHelpFileName, $0001, DWORD(PChar('Introduction.htm')));
end;

end.