u_kqjconnect.pas

来自「超信人力资源管理系统,一个用Delphi编写的人事管理系统」· PAS 代码 · 共 74 行

unit U_KQJConnect;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, U_Form_base, DB, ADODB, Buttons, StdCtrls;

type
  TF_KQJConnect = class(TF_Form_base)
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_KQJConnect: TF_KQJConnect;

implementation

uses U_data;


function Download(): Boolean; stdcall;
  external 'w_kqrec.dll' NAME '_Download'

function SetTime(): boolean; stdcall;
  external 'w_kqrec.dll' NAME '_SetTime'

function Clear(): boolean; stdcall;
  external 'w_kqrec.dll' NAME '_Clear'


{$R *.dfm}

procedure TF_KQJConnect.SpeedButton2Click(Sender: TObject);
begin
  inherited;
  if download() then MessageDlg('成功读取考勤机数据!', mtInformation, [mbOK], 0);
end;

procedure TF_KQJConnect.SpeedButton1Click(Sender: TObject);
begin
  inherited;
  if Settime() then MessageDlg('成功设置考勤机时间！', mtInformation, [mbOK], 0);
end;

procedure TF_KQJConnect.SpeedButton3Click(Sender: TObject);
begin
  inherited;
  if Clear() then MessageDlg('成功清除考勤机数据！', mtInformation, [mbOK], 0);
end;

procedure TF_KQJConnect.SpeedButton4Click(Sender: TObject);
begin
  inherited;
  WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL TimeDate.cpl,,0', SW_SHOWNORMAL);
end;

initialization
  RegisterClass(TF_KQJConnect);


end.