PCのローカルアプリデータパスにUDLファイル(Connection.UDL)を作成し、アプリケーションの接続文字列にそれを使用させます
Var
plainAppName : String;
appDataPath : String;
Begin
plainAppName := ChangeFileExt(ExtractFilePath(ParamStr(0)),'.EXE','');
appDataPath := IncludeTrailingBackslash(GetSpecialFolderLocation(CSIDL_APPDATA))+plainAppName+'\';
ADOConnection.Connectionstring := 'FILE NAME = '+appDataPath+'Connection.UDL';
そして、Connection.UDLには
[oledb]
; Everything after this line is an OLE DB initstring
Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=test;Data Source=YourPC\InstanceName
実際、それは空である可能性があります。ただし、ユーザー(または顧客)がファイルをダブルクリックすると、oleDB接続ダイアログが開きます。次に、サーバー、インスタンス、ログイン資格情報を設定し、接続をテストして保存します。
終わり。
アプリがファイルを開き(まあ、ADOConnectionが開きます)、安全です。
もう1つのより一般的なアプローチは、サーバーPCのIP /名前をINIファイルに保存し、それをコードに置き換えることです。
CONST
adoStr = 'Provider=SQLOLEDB.1;Integrated Security=SSPI;'
+'Persist Security Info=False;Initial Catalog=test;'
+'Data Source=%s';
ADOConnection.ConnectionString := Format(adoStr,[TheIPOrNameOfThePC]);
...