u_login.pas

一套完整的合同管理系统,大家可以下载来看一看

unit U_login;

interface

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

type
  Tfrm_Login = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Image1: TImage;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton; 
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_Login: Tfrm_Login;
  kk:boolean = false;
  degree:integer;
  i:integer = 0;
implementation

uses U_Data, U_htgl, U_Public;

{$R *.dfm}

procedure Tfrm_Login.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if kk=false then
application.Terminate
else
close;
end;

procedure Tfrm_Login.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if ((key=vk_return) or (key=vk_down)) then
edit2.SetFocus;
end;

procedure Tfrm_Login.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if ((key=vk_return) or(key=vk_down)) then
speedbutton1.Click
else
if key=vk_up then
edit1.SetFocus;
end;

procedure Tfrm_Login.SpeedButton1Click(Sender: TObject);
begin
i:=i+1;
if trim(edit1.Text)='' then
   application.MessageBox('请输入用户名','提示',64)
   else
      if trim(edit2.Text)='' then
         application.MessageBox('请输入密码','提示',64)
         else
         begin
   with data1.login do
   begin
      close;
      sql.Clear;
      sql.Add('select * from user1 where username=:a and password=:b');
      parameters.ParamByName('a').Value:=trim(edit1.Text);
      parameters.ParamByName('b').Value:=trim(edit2.Text);
      open;
   end;
   if data1.login.RecordCount>0 then
   begin
   kk:=true;
   czy:=edit1.Text;
   frm_main.StatusBar1.Panels[1].Text:=czy;
   frm_main.StatusBar1.Panels[3].Text:=formatdatetime('yyyy年mm月dd日 hh:dd:ss',now);
   Rz_Gl(czy,frm_main.StatusBar1.Panels[3].Text,'登陆');
   close;
   end
   else
   if i<3 then
   begin
     application.MessageBox('用户名或密码错误','提示',64);
     edit1.Clear;
     edit2.Clear;
     edit1.SetFocus;
   end
   else
      begin
         application.MessageBox('对不起，您无权使用本系统','警告',64);
         application.Terminate;
      end;
end;
end;

procedure Tfrm_Login.SpeedButton2Click(Sender: TObject);
begin
application.Terminate;
end;

end.