login.pas

管理车队用车记录

unit login;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, jpeg, ExtCtrls, WinSkinData;

type
  Tform_login = class(TForm)
    Edit1: TEdit;
    Image1: TImage;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    SkinData1: TSkinData;
    procedure FormShow(Sender: TObject);
    procedure Label1Click(Sender: TObject);
    procedure Label2Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  form_login: Tform_login;
  user_name:string;
implementation
 uses dm,splash,md5,main;
{$R *.dfm}

procedure Tform_login.FormShow(Sender: TObject);
begin
try
form_dm.adoconnection.open;
except
  application.MessageBox('请与管理员联系。','数据库连接错误',mb_ok);
  application.Terminate;
 end;
end;

procedure Tform_login.Label1Click(Sender: TObject);
begin
  form_dm.ADOtable_users.open;
  if form_dm.ADOtable_users.Locate('name',edit2.Text,[])then
  begin
    if MD5Print(MD5String(trim(edit1.Text)))=trim(form_dm.ADOtable_users.Fieldbyname('psw').AsString) then
     begin
      edit1.Text:='';
      edit2.text:='';
      user_name:=edit2.Text;
      form_main.ShowModal;
      form_login.Close;

      end
    else
    begin
      application.MessageBox('密码错误！','登录错误',mb_ok);
      edit1.Text:='';
      edit1.setfocus;
      abort;
    end;
  end
  else
 begin
    application.MessageBox('用户名错误！','登录错误',mb_ok);
    edit1.Text:='';
    edit2.Text:='';
    edit2.setfocus;
    abort;
 end;
end;

procedure Tform_login.Label2Click(Sender: TObject);
begin
application.Terminate;
end;

procedure Tform_login.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
Label1Click(nil);
end;

procedure Tform_login.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
edit1.SetFocus;
end;

end.