procedure TForm1.FormCreate(Sender: TObject);
var filename:string;
databaseset:Tinifile;
begin
filename:=ExtractFilePath(Paramstr(0))+'databaseset.ini';
//设置配置文件的路径为执行程序目录,如果不设置目录的话程序会把配置文件放到windows系统目录中去。
databaseset:=TInifile.Create(filename);
try //连接数据库
ADOConnYK.Close; //ADOConnYK为ADOConnection控件
ADOConnYK.ConnectionString:=databaseset.ReadString('ykconn','connstr',''); //读取数据库连接配置字符串
ADOConnYK.Open; //如正确,连接上数据库
Except //配置文件不存在或者不正确,无法连接到数据库
if Application.MessageBox('无法连接到数据库,要重新设置连接吗?','提示',MB_YESNO+MB_ICONQUESTION)=IDYES then
begin
ADOConnYK.Close;
if EditConnectionString(ADOConnYK) then //重新配置连接属性
begin
databaseset.W
var filename:string;
databaseset:Tinifile;
begin
filename:=ExtractFilePath(Paramstr(0))+'databaseset.ini';
//设置配置文件的路径为执行程序目录,如果不设置目录的话程序会把配置文件放到windows系统目录中去。
databaseset:=TInifile.Create(filename);
try //连接数据库
ADOConnYK.Close; //ADOConnYK为ADOConnection控件
ADOConnYK.ConnectionString:=databaseset.ReadString('ykconn','connstr',''); //读取数据库连接配置字符串
ADOConnYK.Open; //如正确,连接上数据库
Except //配置文件不存在或者不正确,无法连接到数据库
if Application.MessageBox('无法连接到数据库,要重新设置连接吗?','提示',MB_YESNO+MB_ICONQUESTION)=IDYES then
begin
ADOConnYK.Close;
if EditConnectionString(ADOConnYK) then //重新配置连接属性
begin
databaseset.W