unit pfm_fdlogin;

interface

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

type
  Tfm_fdlogin = class(TForm)
    GrpBox1: TGroupBox;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit1: TEdit;
    BBtnOk: TBitBtn;
    BBtnCancel: TBitBtn;
    Query1: TQuery;
    Label4: TLabel;
    Image1: TImage;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure BBtnOkClick(Sender: TObject);
    procedure BBtnCancelClick(Sender: TObject);
    procedure Edit3Enter(Sender: TObject);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
    procedure GetUserRight();
  public
    { Public declarations }
  end;

var
  fm_fdlogin: Tfm_fdlogin;

implementation

{$R *.DFM}

procedure Tfm_fdlogin.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
    if key<>#13 then exit;
    if edit1.text='ff' then
    begin
         musername:='admin';
         modalresult:=mrOk;
    end;//調試用
    if length(edit1.text)<4 then
    begin
        showmessage('用戶帳號為4~8個字符');
        exit;
    end;
    if (InitRead2('初始化','系統初始化','0')='0') and (edit1.text='admin') then
    begin
        mUsername:=edit1.text;
        mpname:='管理員';
        edit2.text:=mpname;
        edit3.setfocus;
        mUserpass:=InitRead2('初始化','初始密碼','zhong');
        mUserid:='1';
        label4.Caption:='用戶名正確，請輸入密碼';
        exit;
    end;
    query1.Close;
    query1.sql.clear;
    query1.sql.add('select * from t_user where username='''+edit1.text+'''');
    query1.open;
    if not query1.Eof then
    begin
        mUsername:=edit1.text;
        mUserpass:=query1.fieldbyname('userpass').asstring;
        mpname:=query1.fieldbyname('pname').asstring;
        mUserid:=query1.fieldbyname('userid').asstring;
        edit2.text:=mPname;
        edit3.setfocus;
        label4.Caption:='用戶名正確，請輸入密碼';
    end
    else
    begin
        label4.Caption:='用戶名錯誤，請重新輸入';
        edit1.text:='';
    end;
    query1.Close;
end;

procedure Tfm_fdlogin.BBtnOkClick(Sender: TObject);
begin
    if (edit3.text=mUserpass) and (length(mUserpass)>=4) then
    begin
        GetUserright();
        AddOptRecord('登錄系統');
        modalresult:=mrOk;
    end
    else
    begin
        label4.Caption:='密碼錯誤';
        edit3.SelectAll;
    end;
end;

procedure Tfm_fdlogin.BBtnCancelClick(Sender: TObject);
begin
    modalresult:=mrCancel;

end;

procedure Tfm_fdlogin.Edit3Enter(Sender: TObject);
begin
    if length(edit1.text)<4 then
    begin
        edit1.SetFocus;
    end;

end;

procedure Tfm_fdlogin.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
    if key<>#13 then exit;
    if (edit3.text=mUserpass) and (length(mUserpass)>=4) then
    begin
        GetUserright();
        AddOptRecord('登錄系統');
        modalresult:=mrOk;
    end
    else
    begin
        label4.Caption:='密碼錯誤';
        edit3.SelectAll;
    end;
end;
procedure Tfm_fdlogin.GetUserRight();
begin
    query1.Active:=false;
    query1.sql.clear;
    query1.sql.add('select * from t_userright where userid='+muserid);
    query1.active:=true;
    mUserright.Clear;
    while not query1.Eof do
    begin
        
        mUserright.Add(query1.fieldbyname('rightname').asstring+'='+
            query1.fieldbyname('canuse').asstring);
        query1.next;
    end;
    query1.active:=false;
end;
end.