?? login.pas
字號(hào):
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('您的登錄密碼不正確,請(qǐng)重新輸入!','提示',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('權(quán)限').AsString;
gg_LoginMiMa:=trim(Edit_MiMa.text);
//////if not GetRight(13) then Exit; //是否有登錄權(quán)限
//frmMain.StaBar.Panels[1].Text:=gg_UserName;
//DM_Main.WriteToSysLog(gg_UserName,'登錄系統(tǒng)',0);
SetMainForm; //設(shè)置主界面
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;
//設(shè)置主界面(菜單使用權(quán)限設(shè)置)
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.權(quán)限設(shè)置 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.權(quán)限設(shè)置 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.
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -