pfm_fdlogin.pas

POS收银系统

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.