unit Unit1;
erface uses
Windows,IniFiles, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, ADODB;
type
TForm1 =
(TForm) Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure WriteIni(alias,param,value:
);//写入INI文件 var
ini: TIniFile;
begin
ini := TIniFile.Create(ExtractFilePath(Application.exename)+'
up.ini');//配置文件路径 try
ini.WriteString(alias,param,value);
finally
FreeAndNil(ini);
end;
end;
function ReadIni(alias,param:
):;//读取INI文件 var
ini: TIniFile;
begin
ini := TIniFile.Create(ExtractFilePath(Application.exename)+'
up.ini'); try
result:=ini.ReadString(alias,param,'');
finally
FreeAndNil(ini);
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
Var
ConStr,PassWord,UID,DBName,ServerName:String;
begin
Edit1.Text:=ReadIni('sytem','server');
Edit2.Text:=ReadIni('sytem','uid');
Edit3.Text:=ReadIni('sytem','pwd');
ServerName:=ReadIni('sytem','server');
UID:=ReadIni('sytem','uid');
PassWord:=ReadIni('sytem','pwd');
(Trim(ServerName)='') or (Trim(UID)='') then begin
MessageBox(Application.handle,PChar('数据库连接配置不正确或未配置
请先配置数据库连接！'),PChar('提示'),0); not Assigned(TForm1) then Application.CreateForm(TForm1,TForm1);
TForm1.ShowModal;
end;
end;
end.
最新评论