unit1.pas

材料管理系统

unit Unit1;

interface

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

type
  Tfrmlogin = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmlogin: Tfrmlogin;
  NotRight:Boolean;

implementation

uses Unit2;

{$R *.dfm}

procedure Tfrmlogin.Button2Click(Sender: TObject);
begin
  application.Terminate;
end;

procedure Tfrmlogin.Button1Click(Sender: TObject);
var
  Query1:TADOQuery;
  Username:string;
  Password:string;
  Right:integer;
begin
//  Frmmain:=TFrmmain.Create(nil);
  NotRight := True;
  if trim(Edit1.Text)='' then
  begin
    application.MessageBox('请输入用户名!','错误',MB_OK OR MB_ICONERROR);
    exit;
  end;
  Frmmain:=TFrmmain.Create(nil);
  Query1 := TADOQuery.Create(nil);
  Query1.ConnectionString :=Frmmain.ADOConnection1.ConnectionString;
  with Query1 do
  begin
    close;
    sql.Add('select * from CKuser where Username='''+trim(Edit1.Text)+'''');
    open;
  end;
  if not Query1.Eof  then   //数据库中存在此用户名
  begin
    Password := Query1.FieldByName('Password').AsString;  //取密码
    Username := Query1.FieldByName('Username').AsString;  //取用户名
    Right := Query1.FieldByName('SuperRight').AsInteger;  //取权限
    if CompareStr(trim(Edit1.Text),Username) = 0 then
    begin
      if CompareStr(trim(Edit2.Text),Password) = 0 then
      begin
        Edit1.Clear;
        Edit2.Clear;
        if Right = 1 then
          NotRight := False;     //管理员
        Frmmain.statusbar1.Panels[1].Text := Frmmain.statusbar1.Panels[1].Text + Username;
        Frmmain.ShowModal;
      end
      else          //密码错误
      begin
        Application.MessageBox('密码错误,请重试!','错误',MB_OK OR MB_ICONERROR);
        Edit2.Clear;
        exit;
      end;
    end
    else        //输入的用户名错误
    begin
      Application.MessageBox('用户名错误.','错误',MB_OK OR MB_ICONERROR);
      Edit1.Clear;
      Edit2.Clear;
      exit;
    end;
  end
  else                    //不存在此用户名
  begin
    Application.MessageBox('无效帐号,请输入用户名.','错误',MB_OK OR MB_ICONERROR);
    Edit1.Clear;
  end;
  FreeAndNil(Query1);
//  frmmain.ShowModal;
  FreeAndNil(frmmain);
end;

procedure Tfrmlogin.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  application.Terminate;
end;

end.