?? logonform.pas
字號:
unit LogonForm;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls,IniFiles;
type
TFrmLogon = class(TForm)
Panel1: TPanel;
Label1: TLabel;
ServerEdit: TEdit;
DBEdit: TEdit;
Label2: TLabel;
UserEdit: TEdit;
PassEdit: TEdit;
p: TLabel;
OKBtn: TButton;
ExitBtn: TButton;
u: TLabel;
procedure OKBtnClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure ExitBtnClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FrmLogon: TFrmLogon;
implementation
uses datamodule;
{$R *.dfm}
procedure TFrmLogon.OKBtnClick(Sender: TObject);
var
ini:TIniFile;
constr:string;
begin
if DM.allCON.Connected then
begin
Close;
ModalResult:=mrYes;
end;
//Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=WorkLoad;Data Source=.
constr:='Provider=SQLOLEDB.1;';
if UserEdit.Text = '' then
constr:=constr+'Persist Security Info=False;Initial Catalog='+DBEdit.Text
else
constr:=constr+'Persist Security Info=False;Password="'+PassEdit.Text+'";User ID='+UserEdit.Text+';Initial Catalog='+DBEdit.Text;
constr:=constr+';Data Source='+ServerEdit.Text;
DM.allCon.Connected:=False;
DM.allCon.ConnectionString:=constr;
try
DM.allCON.Connected:=True;
except
MessageDlg('請重新選擇服務(wù)器并測試連接!', mtError, [mbOk], 0);
exit;
end;
//MessageDlg('服務(wù)器連接成功!',mtInformation,MBOKCANCEL,0);
ini:=TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini'));
ini.WriteString('Servers','Name',ServerEdit.Text);
ini.WriteString('Servers','DataBase',DBEdit.Text);
ini.WriteString('Servers','User',UserEdit.Text);
ini.WriteString('Servers','Password',PassEdit.Text);
ini.Free;
Close;
ModalResult:=mrYes;
end;
procedure TFrmLogon.FormShow(Sender: TObject);
var
ini:TIniFile;
constr:string;
begin
ini:=TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini'));
ServerEdit.Text:=ini.ReadString('Servers','Name','');
DBEdit.Text:=ini.ReadString('Servers','DataBase','');
UserEdit.Text:=ini.ReadString('Servers','User','');
PassEdit.Text:=ini.ReadString('Servers','Password','');
constr:='Provider=SQLOLEDB.1;';
if UserEdit.Text = '' then
constr:=constr+'Persist Security Info=False;Initial Catalog='+DBEdit.Text
else
constr:=constr+'Persist Security Info=False;Password="'+PassEdit.Text+'";User ID='+UserEdit.Text+';Initial Catalog='+DBEdit.Text;
constr:=constr+';Data Source='+ServerEdit.Text;
DM.allCON.Connected:=False;
DM.allCON.ConnectionString:=constr;
try
DM.allCON.Connected:=True;
except
on E:Exception do
begin
MessageDlg(PChar(E.Message)+#10+'連接失敗!', mtError, [mbOk], 0);
ini.Free;
exit;
end;
end;
ini.Free;
okBtn.Click;
end;
procedure TFrmLogon.ExitBtnClick(Sender: TObject);
begin
Close;
ModalResult:=mrNo;
end;
end.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -