login_pass.pas

此为 汽车维修管理系统 采用ODBC驱动 控制面板里设置 数据库名:qcwxgl 说明：汽车维修管理 SQL服务器名:yangfeng 默认数据库名:qcwxgl

unit login_pass;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,Unit1,Unit6,Buttons, ExtCtrls, DB, DBTables, jpeg;
type
  Tpass = class(TForm)
    Panel1: TPanel;
    BitBtn2: TBitBtn;
    BitBtn1: TBitBtn;
    Edit2: TEdit;
    Edit1: TEdit;
    BitBtn3: TBitBtn;
    Query1: TQuery;
    Query2: TQuery;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  pass: Tpass;

implementation

{$R *.dfm}

procedure Tpass.BitBtn2Click(Sender: TObject);
begin
close;
end;

procedure Tpass.BitBtn1Click(Sender: TObject);
begin
Query1.Active:=false;
if edit1.Text='' then
begin
messagebeep(0);
showmessage('请输入操作员姓名!');
edit1.SetFocus;
exit;
end;
if edit2.Text='' then
begin
messagebeep(0);
showmessage('密码不能为空!');
edit2.SetFocus;
exit;
end;
if edit1.Text='admin'  then
 begin
   if edit2.Text='admin'   then
   begin
   pass.Visible:=false;
   main.ShowModal;
   pass.Free;
   exit;
   end;
 end;
with Query1 do
 begin
 close;
 SQL.Clear;
 SQL.Add('select* from admin where user_name=:str1 and pswd=:str2');
 parambyName('str1').AsString:=Trim(edit1.Text);
 parambyName('str2').AsString:=Trim(edit2.Text);
 prepare;
 open;
 end;
 if Query1.Eof then
 begin
 messagebeep(0);
 showmessage('密码错误,请重新输入!');
 edit2.SetFocus;
 exit;
 end
 else
 begin
 qcxlzc.Label23.Caption:=Trim(edit1.Text);
 with Query1 do
  begin
  close;
  SQL.Clear;
  SQL.Add('insert into login_log values(:a,:b,:c,:d,:e)');
  parambyName('a').AsString:=Trim(edit1.Text);
  parambyName('b').AsString:=dateTostr(now);
  parambyName('c').AsString:=timeTostr(now);
  parambyName('d').AsString:='0';
  parambyName('e').AsString:='0';
  ExecSQL;
  end;
 pass.Visible:=false;
 main.ShowModal;
 pass.Free;
 end;
end;
procedure Tpass.BitBtn3Click(Sender: TObject);
begin
edit1.Clear;
edit2.Clear;
end;

procedure Tpass.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then
BitBtn1.Click
end;

end.