login.~pas

这是用Delphi编写的车辆管理系统。主要功能有档案管理

unit Login;

interface

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

type
  TUserlogin = class(TForm)
    Label14: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    ScrollBox1: TScrollBox;
    ToolBar1: TToolBar;
    Panel1: TPanel;
    procedure FormShow(Sender: TObject);
    procedure AllTBClick(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Panel1Click(Sender: TObject);
    procedure Panel1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Panel1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Userlogin: TUserlogin;

implementation
uses unit1,unit2;

{$R *.dfm}

procedure TUserlogin.FormShow(Sender: TObject);
var
spb:TToolButton;
begin
form1.islogin:=false;
with datamodule2.carclassq do
      begin
      close;
      sql.Clear;
      sql.Add('select * from users.dbf');
      open;
     while not Eof  do
      begin
           spb:=TToolButton.Create(nil);
           spb.Parent:=toolbar1;
           spb.Height:=55;
           spb.Width:=55;
           spb.ImageIndex:=fieldbyname('userpic').AsInteger;
           spb.Caption:=fieldbyname('userid').AsString;
           spb.Show;
           spb.OnClick:=userlogin.AllTBClick;
       next;
      end;
      end;
end;

procedure TUserlogin.AllTBClick(Sender: TObject);
begin
edit1.text:= TToolButton(sender).Caption;
end;

procedure TUserlogin.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
Panel1Click(sender);
end;

procedure TUserlogin.Panel1Click(Sender: TObject);
begin
if (trim(edit2.Text) = '') or  (trim(edit1.Text) ='') then
   //showmessage('请选择一个用户然后输入密码!')
   messagebox(handle,'请选择一个用户然后输入密码!','提示',MB_OK+MB_ICONEXCLAMATION)
   else
   begin
      with datamodule2.carclassq do
      begin  //w
      close;
      sql.Clear;
      sql.Add('select * from users.dbf where userid=:uid');
      parambyname('uid').AsString:=edit1.Text;
      open;
     if edit2.Text <> fieldbyname('upassword').AsString then
      //showmessage('密码不正确！请确认后重新输入！！')
      messagebox(userlogin.Handle,'密码不正确！请确认后重新输入！！','密码错误',mb_OK+MB_ICONERROR)
      else
        begin
                  form1.islogin:=true;
                  form1.N1.Enabled:=form1.islogin;
                  form1.n2.Enabled:=form1.islogin;
                  form1.n3.Enabled:=form1.islogin;
                  form1.n4.Enabled:=form1.islogin;
                  form1.n5.Enabled:=form1.islogin;
                  form1.tbcarda.Enabled:=form1.islogin;
                  form1.tbdriverda.Enabled:=form1.islogin;
                  form1.tbshiguda.Enabled:=form1.islogin;
                  form1.tbwxman.Enabled:=form1.islogin;
                  form1.tbwzman.Enabled:=form1.islogin;
                  form1.tbyyman.Enabled:=form1.islogin;
                  form1.tbchaxun.Enabled:=form1.islogin;

         form1.StatusBar1.Panels[2].Text:=fieldbyname('userid').AsString;
          if fieldbyname('ismanager').AsBoolean then
            begin
            userlogin.Close;
            end
          else
            begin
            form1.N30.Enabled:=false;
            form1.N31.Enabled:=false;
            form1.N17.Enabled:=false;
            userlogin.close;
            end;
       end;
      end;   //w
    end;
end;

procedure TUserlogin.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Tpanel(sender).BevelOuter:=bvLowered;
end;

procedure TUserlogin.Panel1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
tpanel(sender).BevelOuter:=bvSpace;
end;

procedure TUserlogin.FormClose(Sender: TObject; var Action: TCloseAction);
var
j:integer;
begin
if not form1.islogin then
begin
  form1.StatusBar1.Panels[2].Text:='未登陆';
 form1.N1.Enabled:=form1.islogin;
 form1.n2.Enabled:=form1.islogin;
 form1.n3.Enabled:=form1.islogin;
 form1.n4.Enabled:=form1.islogin;
 form1.n5.Enabled:=form1.islogin;
 form1.tbcarda.Enabled:=form1.islogin;
 form1.tbdriverda.Enabled:=form1.islogin;
 form1.tbshiguda.Enabled:=form1.islogin;
 form1.tbwxman.Enabled:=form1.islogin;
 form1.tbwzman.Enabled:=form1.islogin;
 form1.tbyyman.Enabled:=form1.islogin;
 form1.tbchaxun.Enabled:=form1.islogin;
end;
for j:=toolbar1.ButtonCount-1 downto 0 do
toolbar1.Buttons[j].Free;
edit1.Clear;
edit2.Clear;
end;

procedure TUserlogin.FormCreate(Sender: TObject);
begin
form1.imagelist1.GetIcon(21,userlogin.Icon);
setwindowpos(handle,hwnd_top,userlogin.Left,userlogin.Top,userlogin.Width,userlogin.Height,0);
end;

end.