?? login.pas
字號:
unit login;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ComCtrls, ToolWin, ExtCtrls, Buttons, StdCtrls,inifiles, DB, DBTables, FMTBcd;
type
TLogin_Form = class(TForm)
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
Login_Form: TLogin_Form;
implementation
uses Menus, main;
{$R *.DFM}
procedure TLogin_Form.Button2Click(Sender: TObject);
begin
Close;
main_Form.N11.Enabled:=true;
end;
procedure TLogin_Form.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 b.* from [user] a,[qxb] b'+#13+'where (a.yhm='''+aname+''') and(a.mm='''+apassword+''')and(a.yhm=b.yhm)'+#13+'order by b.cdx';
with tQuery.Create(nil) do
begin
try
Close;
sessionName:=main_Form.Database1.SessionName;
DatabaseName:=main_Form.Database1.DatabaseName;
SQL.Clear;
SQL.Add(sqlstr);
Active:=True;
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));
main_form.MainMenu1.Items.Items[a].Visible:=true;
main_form.MainMenu1.Items.Items[a].Items[b].Visible:=true;
Next;
end;
login_form.Close;
main_form.StatusBar1.SimpleText:=aname;
main_form.dlname:=aname;
end
else
begin
showmessage('請確認登錄的用戶名和密碼是否正確!');
name_edit.SetFocus;
name_edit.SelectAll;
end;
finally
Free;
end;
end;
end
else
begin
showmessage('請輸入登錄用戶名和密碼!');
name_edit.SelectAll;
end;
end;
procedure TLogin_Form.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;
procedure TLogin_Form.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
key:=#0;
perform(WM_NEXTDLGCTL,0,0);
end;
end;
procedure TLogin_Form.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 + -