?? frmlogin.pas
字號(hào):
unit frmLogin;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DBCtrls, ExtCtrls,DB, Buttons, Grids, DBGrids;
type
TLoginForm = class(TForm)
panWelcome: TPanel;
grbUserInfo: TGroupBox;
lblName: TLabel;
lblPassWord: TLabel;
lblServer: TLabel;
txtPassWord: TEdit;
cboServerName: TComboBox;
cmdLogin: TButton;
cmdExit: TButton;
cboUserName: TComboBox;
procedure cmdExitClick(Sender: TObject);
procedure cmdLoginClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
LoginForm: TLoginForm;
implementation
uses mdDataBases, Common, frmMain;
{$R *.dfm}
procedure TLoginForm.cmdExitClick(Sender: TObject);
begin
Application.Terminate;
end;
procedure TLoginForm.cmdLoginClick(Sender: TObject);
var
strPassWord:string;
begin
dmDataSource.tblOperator.DisableControls;
dmDataSource.tblOperator.Locate('OPERATOR_NAME',cboUserName.Text,[loPartialKey]);
strPassWord:=Base64Decode(dmDataSource.tblOperator['OPERATOR_PASSWORD']);
dmDataSource.tblOperator.EnableControls;
if UpperCase(Trim(txtPassword.Text))=UpperCase(Trim(strPassWord)) then
begin
MainForm.CurrentUserName:=dmDataSource.tblOperator['OPERATOR_NAME'];
LoginForm.Close;
end
else
begin
MessageBox(Application.Handle,'密碼錯(cuò)誤,請(qǐng)您重新輸入。','密碼錯(cuò)誤',16);
txtPassWord.Text:='';
txtPassWord.SetFocus;
end;
end;
procedure TLoginForm.FormCreate(Sender: TObject);
begin
dmDataSource.tblOperator.Active := True;
cboUserName.Clear;
cboUserName.Items.AddStrings(
GetFieldValue(dmDataSource.tblOperator,'OPERATOR_NAME'));
cboUserName.Text:=cboUserName.Items[0];
cboServerName.Clear;
cboServerName.Items.AddStrings(SplitString(ReadIniFileString('.\Setting.INI',
'基本設(shè)置','服務(wù)器'),','));
cboServerName.Text:=cboServerName.Items[0];
end;
end.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -