u_ks.~pas

这是一个非常使用的DELPHI源码的例子,用的是SQL数据库和DELPHI企业版

unit U_Ks;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls,u_public_define;

type
  TFrm_Ks = class(TForm)
    Image1: TImage;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_Ks: TFrm_Ks;

implementation
    uses u_card, U_Main, U_Dl;
{$R *.dfm}

procedure TFrm_Ks.Timer1Timer(Sender: TObject);
var
      Status:integer;
      aa:array[0..2]of char;
begin
     g_icdev:=auto_init(0,9600);
     g_st:=setsc_md(g_icdev,1);
     aa:=chr(0)+chr(0)+chr(0);
     G_st := cmp_dvsc(G_icdev, 3, aa);
     if g_st<>0 then
       begin
       application.MessageBox('读卡器未响应，请正确安装后使用','明日科技');
       end;
     timer1.Interval:=0;
      close;
end;

end.