login1.pas

药店GSP源码

unit login1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, StdCtrls, Buttons, ExtCtrls, IBDatabase,
  IBCustomDataSet, IBTable;

type
  TForm3 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Image2: TImage;
    Edit1: TEdit;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    login2: TIBTable;
    IBDatabase1: TIBDatabase;
    IBTransaction1: TIBTransaction;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation
  uses main;
{$R *.dfm}

procedure TForm3.FormCreate(Sender: TObject);
var
delay:longword;
cut:longword;
begin
delay:=1000;
cut:=GetTickCount;
while(GetTickCount<(delay+cut)) do
end;

procedure TForm3.BitBtn1Click(Sender: TObject);
begin
 try
  login2.Filter:='USERNAME="'+edit1.Text+'"';
  login2.Filtered:=true;
  login2.Open;

 except
 application.MessageBox('1111','2222',mb_ok);
 end;
 if login2['PASSWORK']=edit2.Text then
  begin

  form3.Hide;
  form1.Show;
  end
 else
 begin
 Application.MessageBox('用户名或密码错误','登录失败',mb_ok+mb_iconinformation);
 end;
end;

end.