利用INI文件進行數據庫連接

objConnection: TADOConnection;

procedure ConnectDataBase;

var
  strConnect: string;
  LoadToFile: Tinifile;
  SaveToFile: TIniFile;
begin
  objConnection := TADOConnection.Create(nil);
  LoadToFile := TInifile.Create(ExtractFilePath(Application.ExeName) + 'ini/adoconnection.ini');
  objConnection.LoginPrompt := false;
  objConnection.ConnectionString := LoadToFile.ReadString('adoconnection', 'connectionstring', '');
  if objConnection.ConnectionString = '' then
  begin
    objConnection.Close;
    objConnection.LoginPrompt := false;
    strConnect := PromptDataSource(Application.Handle, ''); //strConnect
    objConnection.ConnectionString := strConnect;
    if objConnection.ConnectionString <> '' then
    begin
      try
        objConnection.Open;
        SaveToFile := TInifile.Create(ExtractFilePath(Application.ExeName) + 'Ini/adoconnection.ini');
        SaveToFile.WriteString('adoconnection', 'connectionstring', strConnect);
      except
        MessageDLg('Connect To DataBase Fail!', mtError, [mbYes], 0);
      end;
    end
    else
      MessageDlg('Please provide the correct database connection!', mtError, [mbYes], 0);
  end;
end;