uulogin.~pas

我的毕业设计

unit Uulogin;

interface

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

type
  Tfrmlogin = class(TForm)
    Image1: TImage;
    usermima: TEdit;
    username: TEdit;
    sbtnok: TSpeedButton;
    sbtnno: TSpeedButton;
    DataSource1: TDataSource;
    Query1: TQuery;
    procedure sbtnokClick(Sender: TObject);
    procedure sbtnnoClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure usernameKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure usermimaKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
    ui:integer;
  end;

var
  frmlogin: Tfrmlogin;
implementation

uses umain,udm;

{$R *.dfm}

procedure Tfrmlogin.sbtnokClick(Sender: TObject);
begin
query1.close;
query1.ParamByName('用户名').Value:=username.Text;
query1.Open;
if query1.Fields[0].value=Null then
   begin
    if  messagebox(GetforegroundWindow,'用户名或密码错误，请重新输入！','系统提示',mb_yesno+mb_iconexclamation)=idyes then
      username.SetFocus else sbtnno.Click;
      exit;
      end;
if query1.Fields[0].Value=usermima.Text then
  begin
frmlogin.ModalResult:=mrok ;
gusername:=trim(username.Text);
gpwd:=trim(usermima.Text);
frmlogin.ModalResult:=mrcancel;
frmmain.Show;

end
 else
   begin
     showmessage('密码错误');
     username.SetFocus;
     end;
        end;
procedure Tfrmlogin.sbtnnoClick(Sender: TObject);
begin
usermima.Text:='';
username.Text:='';
frmlogin.ModalResult:=mrcancel;
frmlogin.Close;
application.Terminate;
end;

procedure Tfrmlogin.FormCreate(Sender: TObject);
begin
gusername:=trim(username.Text);
gpwd:=trim(usermima.Text);
end;

procedure Tfrmlogin.usernameKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then
   usermima.SetFocus;
end;

procedure Tfrmlogin.usermimaKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then
  sbtnok.Click;
end;

end.