ulogin.~pas

在公司做的一个小的系统源代码

unit Ulogin;

interface

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

type
  Tfrmlogin = class(TForm)
    Image1: TImage;
    edtname: TEdit;
    edtpwd: TEdit;
    sptnok: TSpeedButton;
    Sptnexit: TSpeedButton;
    ADOQuery1: TADOQuery;
    procedure sptnokClick(Sender: TObject);
    procedure SptnexitClick(Sender: TObject);
    procedure edtnameKeyPress(Sender: TObject; var Key: Char);
    procedure edtpwdKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
    ui:integer;
  end;

var
  frmlogin: Tfrmlogin;

implementation

uses Udm, Umain, Ulgb;

{$R *.dfm}

procedure Tfrmlogin.sptnokClick(Sender: TObject);
begin
with adoquery1 do
  begin
    if active then active := false;
    DisableControls;
    sql.Clear;
    sql.Add('select * from username where name= '+ #39 + edtname.Text + #39);
    try
      active := true;
    except
     Screen.cursor := crDefault;
      application.MessageBox('连接数据库失败，请检查网络状况！', Gsysname, mb_ok + MB_ICONINFORMATION);
     application.Terminate;
    end;
    EnableControls;
 //adoqopen(adoquery1,'select * from username where name=' + #39 + edtname.Text + #39);
  if adoquery1.Eof then
  ui := ui + 1
  else begin
   with adoquery1 do
    begin

       if (fieldbyname('name').AsString =trim(edtname.Text)) and
          (fieldbyname('password').AsString =trim(edtpwd.Text)) then
           begin
             gpower:=fieldbyname('power').AsString;
             gstrname:=edtname.text;
               frmlogin.Close;
             frmmain.OnShow(self);
             frmmain.Refresh;
             ui:=0;
            end
         else
      ui := ui + 1;
        end;
     end;

    case ui of
    1..2:
      begin

        application.messagebox('用户名或密码错误！请重新输入', gsysname, mb_ok + mb_iconinformation);
        edtname.SetFocus;
        abort;
      end;
    3:
      begin
        messagebox(getforegroundwindow, '您无权使用本软件，谢谢合作！', gsysname, mb_ok + mb_iconinformation);
        application.Terminate;
      end;
  end;
end;
end;


procedure Tfrmlogin.SptnexitClick(Sender: TObject);
begin
 Close;
 Application.Terminate;
end;

procedure Tfrmlogin.edtnameKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
   begin
     key:=#0;
     edtpwd.SetFocus;
   end;
end;

procedure Tfrmlogin.edtpwdKeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
   begin
     key:=#0;
     sptnok.Click;
   end;
end;

end.