unit1.pas

停车厂管理系统 麻雀虽小 但是五脏齐全

unit Unit1;

interface

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

type
  Tentry = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    username: TEdit;
    password: TEdit;
    adoq_entry: TADOQuery;
    Label3: TLabel;
    BitBtn2: TBitBtn;
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure passwordKeyPress(Sender: TObject; var Key: Char);
    procedure FormCanResize(Sender: TObject; var NewWidth,
      NewHeight: Integer; var Resize: Boolean);
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  entry: Tentry;
  canclose: boolean;
  user:string;
  passwd: string;
  opcase: string;
implementation

uses Unit2, Unit11;

{$R *.dfm}

procedure Tentry.BitBtn1Click(Sender: TObject);
begin
    canclose:=true;  //退出系统
    entry.Close;
end;

procedure Tentry.BitBtn2Click(Sender: TObject);
begin
    if (trim(username.Text)='') or (trim(password.Text)='') then
       begin
       showmessage('请输入用户名或密码') ;
       entry.ModalResult:=mrno;
       end
       else
       begin
          adoq_entry.Close;
          adoq_entry.SQL.Clear;
          adoq_entry.SQL.Add('select * from opration where opname=:user') ;
          adoq_entry.Parameters.ParamByName('user').Value:=trim(username.Text);
          adoq_entry.Open;
          if adoq_entry.IsEmpty then
          begin
            showmessage('该用户名不存在！');
            username.SetFocus;
            entry.ModalResult:=mrno;
          end
          else
          begin
          passwd:=adoq_entry.FieldValues['oppw'];
          opcase:=adoq_entry.FieldValues['opcase'];
          if password.Text=trim(passwd) then
            begin
            showmessage('登录成功,您的身份是'+opcase) ;
            user:=trim(username.Text);
            entry.ModalResult:=mrok;
            end
          else
             begin
             showmessage('密码错误！请重新输入密码')  ;
             password.SetFocus;
             entry.ModalResult:=mrno;
             end
          end
       end ;
end;

procedure Tentry.passwordKeyPress(Sender: TObject; var Key: Char);
begin
   if not(key in['0'..'9','a'..'z','A'..'Z',#008]) then
    begin
    showmessage('密码为数字，字母');
    key:=#0;
    end;
end;

procedure Tentry.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin
    resize:=false;
end;

procedure Tentry.FormShow(Sender: TObject);
begin
 canclose:=false;
 AnimateWindow(Handle,400,AW_CENTER);
end;

procedure Tentry.FormCreate(Sender: TObject);
begin
  SetWindowLong(Handle,GWL_STYLE,GetWindowLong(Handle,GWL_STYLE)and(not WS_CAPTION));
  Height:=ClientHeight;
  Width:=ClientWidth;
end;

end.