?? login.pas
字號:
unit login;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ComCtrls, ToolWin, ExtCtrls, Buttons, Db, DBTables, StdCtrls,inifiles,
System.ComponentModel;
type
TLoginForm = class(TForm)
Bevel1: TBevel;
Name_Edit: TEdit;
PassWord_Edit: TEdit;
Label1: TLabel;
Label2: TLabel;
Button1: TButton;
Button2: TButton;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormKeyPress(Sender: TObject; var Key: Char);
procedure PassWord_EditKeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
LoginForm: TLoginForm;
implementation
uses Menus, main;
{$R *.DFM}
procedure TLoginForm.Button2Click(Sender: TObject);
begin
Close;
mainForm.N11.Enabled:=true;
end;
procedure TLoginForm.Button1Click(Sender: TObject);
var
aname,apassword,sqlstr:string;
a,b:integer;
begin
if (length(trim(name_edit.Text)) > 0) or (length(trim(password_edit.Text)) > 0) then
begin
aname:=trim(name_edit.Text);
apassword:=trim(password_edit.Text);
sqlstr:='select * from t_user a,t_qxb b where (a.name='''+aname+''') and(a.passwd='''+apassword+''')and(a.name=b.name) order by b.cdx';
with TQuery.Create(nil) do
try
Close;
SessionName:=mainform.Database1.SessionName;
DatabaseName:=mainform.Database1.DatabaseName;
SQL.Clear;
SQL.Add(sqlstr);
Open;
if RecordCount > 0 then
begin
First;
while not Eof do
begin
a:=strtoint(copy(FieldByName('cdx').AsString,1,1));
b:=strtoint(copy(FieldByName('cdx').AsString,2,2));
mainform.MainMenu1.Items.Items[a].Visible:=true;
mainform.MainMenu1.Items.Items[a].Items[b].Visible:=true;
Next;
end;
loginform.Close;
mainform.StatusBar1.Panels[0].Text:=aname;
mainform.dlname:=aname;
end
else
begin
showmessage('請確認登錄的用戶名和密碼是否正確!');
name_edit.SetFocus;
name_edit.SelectAll;
end;
finally
Free;
end;
end
else
begin
showmessage('請輸入登錄用戶名和密碼!');
name_edit.SelectAll;
end;
end;
procedure TLoginForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;
procedure TLoginForm.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
key:=#0;
perform(WM_NEXTDLGCTL,0,0);
end;
end;
procedure TLoginForm.PassWord_EditKeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
Button1.Click;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -