procedure TDM.DataModuleCreate(Sender: TObject);
     var piececonfg:Tinifile;
     pathconfgstr,Providerstr,UserIDstr,
     Passwordstr,DataSourceStr,DatabaseNamestr :string;
     begin
     pathconfgstr:= ExtractFilePath(Application.ExeName);
     if pathconfgstr[length(pathconfgstr)]='/' then
     begin
     pathconfgstr:=pathconfgstr+'piececonfg.ini';
     piececonfg:=Tinifile.Create(pathconfgstr);
     end
     else
     begin
     pathconfgstr:=pathconfgstr+'/piececonfg.ini';
     piececonfg:=Tinifile.Create(pathconfgstr);
     end;
     if not FileExists(pathconfgstr) then
     begin
     application.MessageBox('配置文件不存在!','提示',mb_ok);
     application.Terminate;
     end;
     Providerstr:=piececonfg.ReadString('DataBaseConfig','Provider','');
     UserIDstr:=piececonfg.ReadString('DataBaseConfig','UserID','');
     Passwordstr:=piececonfg.ReadString('DataBaseConfig','Password','');
     DataSourceStr:=piececonfg.ReadString('DataBaseConfig','DataSource','');
     DatabaseNamestr:=piececonfg.ReadString('DataBaseConfig','DatabaseName','');
     if (Providerstr='') or (DataSourceStr='') or (DatabaseNamestr='') then
     begin
     application.MessageBox('数据库配置不正确，请重新配置!','提示',mb_ok);
     Application.Terminate;
     end;
     adoconn.Close;
     adoconn.ConnectionString:='';
     adoconn.ConnectionString:='Provider='+Providerstr+';UserID='+UserIDstr+';
     Password='+Passwordstr+';Data Source='+DataSourceStr+
     Initial Catalog='+DatabaseNamestr;
     try
     adoconn.Connected:=true;
     except
     application.MessageBox('数据库配置不正确，请重新配置!','提示',mb_ok);
     adoconn.Connected:=false;
     application.Terminate;
     end;
     search:=TstringList.create;
     end;

piececonfg.ini
++++++++++++++++++++++++++++++++++++++++++++

     [DataBaseConfig]
     Provider=SQLOLEDB.1
     UserID=sa
     Password=sa
     DataSource=192.168.1.1
     DatabaseName=mjj
======================================================