ufrm_login.pas

用于家庭养殖的财务进出

unit Ufrm_login;

interface

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

type
  Tfrm_login = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    E_User: TEdit;
    E_Pwd: TEdit;
    B_OK: TButton;
    B_EXIT: TButton;
    img1: TImage;
    img2: TImage;
    procedure FormCreate(Sender: TObject);
    procedure B_OKClick(Sender: TObject); //登陆验证
    procedure B_EXITClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormActivate(Sender: TObject);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    BoolLoginClose:boolean;
    { Public declarations }
  end;

var
  frm_login: Tfrm_login;

implementation
  uses unit3, data_module,unit_global,unit_main;   //varfununit,dmserver,globalvarunit,frmmain;//
{$R *.dfm}

procedure Tfrm_login.FormCreate(Sender: TObject);
begin
  e_user.Text:='test3';
end;

procedure Tfrm_login.B_OKClick(Sender: TObject);
var
  username,userpwd:string;
  i,j,k:integer;
  sqlstr:string;
  temmainmenuname:string;
begin
  username := E_User.Text;
  userpwd:= E_Pwd.Text;
  with dm.adoQuery1 do
  begin
  Close;
  SQL.Clear;
  //SQL.Add('select id,username,userpwd,userlevelname from admin where username ='+quotedstr(username)+' and userpwd ='+quotedstr(userpwd));
  SQL.Add('select id,username,userpwd,user_group_id from admin where username =:user and userpwd =:pwd');
  parameters[0].value:=username;
  //ParamByName('username').AsString :=username;
  //parameters[1].value:=userpwd;
  parameters[1].value:=addCode(userpwd);
  //ParamByName('userpwd').AsString :=userpwd;}
  try
   Open;
   if EOF then
   begin
   //showmessage('没有此用户,或者输入密码不对！');
   MessageDlg('没有此用户,或者输入密码不对！',mtError,[mbok],0);
   e_user.SetFocus;
   end;
   if not EOF then
   begin
   //记载用户资料
   UserVar.userId := FieldByName('id').AsString;
   UserVar.userName := FieldByName('username').AsString;
   UserVar.userPwd := FieldByName('userpwd').AsString;
   //UserVar.userLevel := FieldByName('userlevelname').asstring;
   uservar.user_group:=fieldbyname('user_group_id').AsString;
   BoolLogin := True;
   end;
    Close;
  except
   Close;
   showmessage('出错')   ;
  end;
  end;
  //初始化用户操作权限
  //初始化系统
  if  BoolLogin then
  begin
     {
      if uservar.userLevel='高级' then
        frm_main.menu:=frm_main.mainmenu1;//frmmain.Menu := frmmain.MainMenu2;
      if uservar.userLevel='普通' then
        frm_main.Menu:=frm_main.MainMenu3;
      if uservar.userLevel='查询' then
        frm_main.Menu:=frm_main.MainMenu4;
        }
///////////200604013///////////////////////////////////////
      with dm.ADOQuery2 do
      begin
        Close;
        SQL.Clear;
        sql.Add('select * from usergroup where user_id=:user_id');
        parameters[0].value:=uservar.user_group;
        try
          open;
          first;
          user_group_level:=fieldbyname('grouplevel').AsString;
        except
          close;
        end;
      end;
      case strtoint(user_group_level) of
       0: temmainmenuname:='系统';
       1: temmainmenuname:='高级';
       2: temmainmenuname:='普通';
       3: temmainmenuname:='查询';
      end;
      for i:=0 to frm_main.MainMenu1.Items.Count-1 do
      begin
        if strtoint(copy(frm_main.MainMenu1.Items[i].Name,3,1))>=strtoint(user_group_level) then
        begin
            frm_main.MainMenu1.Items[i].Visible:=true;
            if frm_main.MainMenu1.Items[i].Count>0 then
            begin
              for j:=0 to frm_main.MainMenu1.Items[i].Count-1 do
              begin
                if strtoint(copy(frm_main.MainMenu1.Items[i][j].Name,3,1))>=strtoint(user_group_level) then
                begin
                   frm_main.MainMenu1.Items[i][j].Visible:=true;
                   if frm_main.MainMenu1.Items[i][j].Count>0 then
                   begin
                     for k:=0 to frm_main.MainMenu1.Items[i][j].Count-1 do
                     begin
                       if strtoint(copy(frm_main.MainMenu1.Items[i][j][k].Name,3,1))>=strtoint(user_group_level) then
                          frm_main.MainMenu1.Items[i][j][k].Visible:=true
                       else
                         frm_main.MainMenu1.Items[i][j][k].Visible:=false;
                     end;
                   end;
                end else
                  frm_main.MainMenu1.Items[i][j].Visible:=false;
              end;
            end;
        end else
           frm_main.MainMenu1.Items[i].Visible:=false;
      end;
///////////200604013///////////////////////////////////////
      frm_main.StatusBar1.Panels[0].Text :='用户帐号:'+UserVar.userId;//frmmain.StatusBar1.Panels[0].Text :='用户帐号:'+UserVar.userId;
      frm_main.StatusBar1.Panels[1].Text :='用户姓名:'+UserVar.userName;//frmmain.StatusBar1.Panels[1].Text :='用户姓名:'+UserVar.userName;
      frm_main.StatusBar1.Panels[2].Text :='用户权限:'+temmainmenuname;
      frm_main.Show;
      //frm_login.Visible:=false;
  end;
end;
procedure Tfrm_login.B_EXITClick(Sender: TObject);
begin
  close;
end;

procedure Tfrm_login.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   BoolLoginClose:=True;
end;

procedure Tfrm_login.FormActivate(Sender: TObject);
begin
   e_pwd.SetFocus;
end;

procedure Tfrm_login.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 // if is_lock then
    
end;

end.