unit login;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, ToolWin, ExtCtrls, Buttons, Db, DBTables, StdCtrls,inifiles,
  System.ComponentModel;

type
  TLoginForm = class(TForm)
    Bevel1: TBevel;
    Name_Edit: TEdit;
    PassWord_Edit: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure PassWord_EditKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }

  end;

var
  LoginForm: TLoginForm;


implementation

uses  Menus, main;

{$R *.DFM}




procedure TLoginForm.Button2Click(Sender: TObject);
begin
    Close;
    mainForm.N11.Enabled:=true;
end;

procedure TLoginForm.Button1Click(Sender: TObject);
var
    aname,apassword,sqlstr:string;
    a,b:integer;
begin
    if (length(trim(name_edit.Text)) > 0) or (length(trim(password_edit.Text)) > 0) then
    begin
        aname:=trim(name_edit.Text);
        apassword:=trim(password_edit.Text);
        sqlstr:='select * from t_user a,t_qxb b where (a.name='''+aname+''') and(a.passwd='''+apassword+''')and(a.name=b.name) order by b.cdx';
        with TQuery.Create(nil) do
        try
        Close;
        SessionName:=mainform.Database1.SessionName;
        DatabaseName:=mainform.Database1.DatabaseName;
        SQL.Clear;
        SQL.Add(sqlstr);
        Open;
        if RecordCount > 0 then
        begin
            First;
            while not Eof do
            begin
                a:=strtoint(copy(FieldByName('cdx').AsString,1,1));
                b:=strtoint(copy(FieldByName('cdx').AsString,2,2));
                mainform.MainMenu1.Items.Items[a].Visible:=true;
                mainform.MainMenu1.Items.Items[a].Items[b].Visible:=true;
                Next;
            end;
            loginform.Close;
            mainform.StatusBar1.Panels[0].Text:=aname;
            mainform.dlname:=aname;
        end
        else
        begin
            showmessage('請確認登錄的用戶名和密碼是否正確！');
            name_edit.SetFocus;
            name_edit.SelectAll;
        end;
        finally
        Free;
        end;
    end
    else
    begin
        showmessage('請輸入登錄用戶名和密碼！');
        name_edit.SelectAll;
    end;
end;

procedure TLoginForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     Action:=caFree;
end;

procedure TLoginForm.FormKeyPress(Sender: TObject; var Key: Char);
begin
    if key=#13 then
    begin
        key:=#0;
        perform(WM_NEXTDLGCTL,0,0);
    end;
end;

procedure TLoginForm.PassWord_EditKeyPress(Sender: TObject; var Key: Char);
begin
    if key = #13 then
        Button1.Click;
end;

end.