login.~pas

模块名称: 一、基础信息管理 碟片管理 歌曲管理 歌星管理 人员管理 二、借阅管理 借出登记 归还登记 借阅查询 其它管理 三、系统管理 权限设置 更改密

unit Login;

interface

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

type
  TfrmLogin = class(TForm)
    Edit_MiMa: TEdit;
    Label1: TLabel;
    Btn_OK: TBitBtn;
    Label2: TLabel;
    Btn_Undo: TBitBtn;
    Panel1: TPanel;
    Edit_Code: TEdit;
    Image1: TImage;
    Bevel1: TBevel;
    QryComm: TADOQuery;
    Label3: TLabel;
    ComboBox1: TComboBox;
    procedure FormActivate(Sender: TObject);
    procedure Btn_OKClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Btn_UndoClick(Sender: TObject);
    procedure Edit_CodeKeyPress(Sender: TObject; var Key: Char);
    procedure Edit_MiMaKeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
    aKeyFlags:bool;    
    procedure SetMainForm();
  public
    { Public declarations }
    ReLoginFlags:bool;
  end;

var
  frmLogin: TfrmLogin;
  
implementation
uses   uCommon, CDDM, uMainForm;
{$R *.DFM}



procedure TfrmLogin.FormActivate(Sender: TObject);
begin
  Edit_Code.SetFocus;
  Edit_Code.Text:='';
  Edit_mima.text:='';
end;
//确定
procedure TfrmLogin.Btn_OKClick(Sender: TObject);
begin
  try

    with  QryComm  do  begin
      Close;
      SQL.Clear;
      SQL.Add('Select *  from  借阅人表  Where  密码=:p_password  and  编码=:p_staffno');
      Parameters.ParamByName('p_staffno').Value:=Edit_code.text;
      Parameters.ParamByName('p_password').Value:=trim(Edit_MiMa.text);
      Open;
        if  IsEmpty  then  begin
          Application.MessageBox('您的登录密码不正确,请重新输入！','提示',MB_ICONEXCLAMATION);
          Edit_MiMa.SelectAll;
          Edit_MiMa.SetFocus;
          Exit;
        end
        else  begin
          GG_StaffID:=FieldByName('借阅人ID').AsInteger;
          GG_StaffNO:=FieldByName('编码').AsString;
          GG_StaffName:=FieldByName('借阅人姓名').AsString;
          GG_StaffClass:=FieldByName('权限').AsString;
          gg_LoginMiMa:=trim(Edit_MiMa.text);
             //////if not GetRight(13)  then  Exit;      //是否有登录权限
          //frmMain.StaBar.Panels[1].Text:=gg_UserName;
          //DM_Main.WriteToSysLog(gg_UserName,'登录系统',0);
          SetMainForm;     //设置主界面
          aKeyFlags:=True;
          ModalResult:=mrOk;
          S_DiskType:=Combobox1.Text;
        end;
      end;
    except
    Application.MessageBox('登录操作失败！','警告',MB_ICONEXCLAMATION);
  end;     
end;

procedure TfrmLogin.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if QryComm.Active then  QryComm.Close;
end;

//取消
procedure TfrmLogin.Btn_UndoClick(Sender: TObject);
begin
  {gg_UserId:='';
  gg_UserName:='';
  gg_LoginMiMa:='';
  gg_DQUserQX:=GetLenString('0',20);}
  aKeyFlags:=True;  
  if  ReLoginFlags=False then
  begin
      Application.Terminate;
  end
  else  begin
      Close;
  end;    
end;

procedure TfrmLogin.Edit_CodeKeyPress(Sender: TObject; var Key: Char);
begin
  if  key=#13  then  Edit_MiMa.SetFocus;
end;

procedure TfrmLogin.Edit_MiMaKeyPress(Sender: TObject; var Key: Char);
begin
  if  key=#13  then   Btn_OKClick(nil);
end;

procedure TfrmLogin.FormCreate(Sender: TObject);
begin
  ReLoginFlags:=false;
  aKeyFlags:=false;
  QryComm.Close;
  QryComm.SQL.Text:='select distinct 碟片类型 from 碟片表';
  QryComm.Open;
  combobox1.Items.Clear;
  QryComm.First;
  while not QryComm.eof do
    begin
      combobox1.Items.Add(QryComm.fieldbyname('碟片类型').Asstring);
      QryComm.Next;
    end;
end;


//设置主界面(菜单使用权限设置)
procedure TfrmLogin.SetMainForm;
begin
  with  MainForm do
  begin
    {1.碟片管理
    N_Disk: TMenuItem;
2.歌曲管理  N_Song: TMenuItem;
3.歌星管理  N_Singer: TMenuItem;
4.借阅人管理     N_Staff: TMenuItem;
5.借出登记    N_Borrow: TMenuItem;
6.归还登记    N_Return: TMenuItem;
7.其他管理    N_Other: TMenuItem;
8.权限设置   N_Manage: TMenuItem;
9.更改密码    N_MiMa: TMenuItem;
10.重新登录   N_Login: TMenuItem;

    N_Exit: TMenuItem;
    N_About: TMenuItem;
}
    //zzz:=false;
    //1.碟片管理
    N_Disk.Enabled:=iif(Copy(GG_StaffClass,1,1)='1',True,False);

    //2.歌曲管理  N_Song: TMenuItem;
    N_Song.Enabled:=iif(Copy(GG_StaffClass,2,1)='1',True,False);
    //zzz:=N_Disk.Enabled;
    //if N_Disk.Enabled then
      // showmessage('true')
      // else
     //  showmessage('false');
    //3.歌星管理  N_Singer: TMenuItem;
    N_Singer.Enabled:=iif(Copy(GG_StaffClass,3,1)='1',True,False);
    //4.借阅人管理     N_Staff: TMenuItem;
    N_Staff.Enabled:=iif(Copy(GG_StaffClass,4,1)='1',True,False);
    //5.借出登记    N_Borrow: TMenuItem;
    N_Borrow.Enabled:=iif(Copy(GG_StaffClass,5,1)='1',True,False);
    //6.归还登记    N_Return: TMenuItem;
    N_Return.Enabled:=iif(Copy(GG_StaffClass,6,1)='1',True,False);
    //7.其他管理    N_Other: TMenuItem;
    N_Other.Enabled:=iif(Copy(GG_StaffClass,7,1)='1',True,False);
    //8.权限设置   N_Manage: TMenuItem;
    N_Manage.Enabled:=iif(Copy(GG_StaffClass,8,1)='1',True,False);
    //9.更改密码    N_MiMa: TMenuItem;
    N_MiMa.Enabled:=iif(Copy(GG_StaffClass,9,1)='1',True,False);
    //10.重新登录   N_Login: TMenuItem;
    N_Login.Enabled:=iif(Copy(GG_StaffClass,10,1)='1',True,False);
    //
    //MediCheckRecord.Enabled:=iif(Copy(GG_StaffClass,40,1)='1',True,False);

  end;
end;

procedure TfrmLogin.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose:=aKeyFlags;
end;

procedure TfrmLogin.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then Edit_Code.SetFocus;
end;

end.