unit1.pas

科密A1考勤管理系统增值功能注册机程序 适用 a1 610版

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    regcode: TEdit;
    ShiftGrp: TButton;
    Salary: TButton;
    exit: TButton;
    MultiDb: TButton;
    serial: TEdit;
    edt1: TEdit;
    edt2: TEdit;
    procedure ShiftGrpClick(Sender: TObject);
    procedure exitClick(Sender: TObject);
    procedure MultiDbClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
function MultiDbRegChkStr(p1,p2,p3,p4:PChar):string; stdcall;  far; external 'cm.dll';
function SalaryRegChkStr(sender:tcaption):string; stdcall; far;  external 'cm.dll';
function ShiftGrpRegChkStr(sender:tcaption):string; stdcall; far;  external 'cm.dll';



implementation

{$R *.dfm}

procedure TForm1.ShiftGrpClick(Sender: TObject);
begin
regcode.Text:=ShiftGrpRegChkStr(serial.text);
end;

procedure TForm1.exitClick(Sender: TObject);
begin
Application.Terminate;
end;

procedure TForm1.MultiDbClick(Sender: TObject);
var
  p1,p2,p3,p4:PChar;
begin
  p1:=PChar(serial.Text);
  p2:=PChar(regcode.Text);
  p3:=PChar(edt1.Text);
  p4:=PChar(edt2.Text);
regcode.Text:=MultiDbRegChkStr(p1,p2,p3,p4) ;
end;

end.