login.pas

药店GSP源码

unit login;

interface

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

type
  TForm1 = class(TForm)
    Image2: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Table1: TTable;
    Database1: TDatabase;
    Table2: TTable;
    Database2: TDatabase;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
   uses main,ggmm;
{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
 table1.Open;
 table1.SetKey;
 table1['usercode']:=edit1.Text;
 table1.GotoKey;
 if (edit1.Text=table1['usercode']) and (edit2.Text=table1['passwork']) then
 begin
 form5.StatusBar1.Panels[0].Text:='当前操作员：'+table1['username']+'';
 form1.Hide;
 TABLE2.Close;
 table2.Open;
 table2.Append;
 table2['username']:=table1['username'];
 table2['datetime']:=Now;
 table2.Post;
 table2.Refresh;
 table2.Close;
 table1.Close;
 form5.Show;
 end
 else
 begin
 Application.MessageBox('用户名或密码错误','错误',mb_ok);
 end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
var
delay:longword;
cut:longword;
begin
delay:=1000;
cut:=GetTickCount;
while(GetTickCount<(delay+cut)) do
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
form1.Hide;
form8.Show;
end;

end.