TADOConnection у Delphi-ју: исправан начин да се користи LoginPrompt := True

Пример кода

Дуго ми није било јасно шта LoginPrompt := True заправо ради. Исправан начин да се користи је следећи:

procedure TfrmMain.FormShow(Sender: TObject);
var
  i: integer;
begin
  con1.Provider := 'SQLOLEDB.1';
  con1.Properties['Application Name'].Value := Application.Title;
  with TIniFile.Create(ExtractFileDir(ParamStr(0)) + '\setup.ini') do
  begin
    con1.Properties['Initial Catalog'].Value := ReadString('database', 'Initial Catalog', '');
    con1.Properties['Data Source'].Value := ReadString('database', 'Data Source', '');
    if ReadBool('database', 'Integrated Security', false ) then
    begin
      con1.Properties['Integrated Security'].Value := 'SSPI';
      con1.Properties['Persist Security Info'].Value := 'False';
      con1.LoginPrompt := False;
    end
    else
    begin
      con1.Properties['Persist Security Info'].Value := 'True';
      con1.LoginPrompt := true;
    end;
  end;
end;

procedure TfrmMain.con1Login(Sender: TObject; Username, Password: string);
begin
  con1.Properties['User ID'].Value := Username;
  con1.Properties['Password'].Value := Password;
end;
  

Како ради

1. У догађају FormShow се поставља провајдер, а основна обележја везе (Data Source и Initial Catalog) читају се из фајла setup.ini који стоји поред програма.
2. Ако је у фајлу укључена Windows аутентикација (Integrated Security), веза користи SSPI и LoginPrompt се искључује, јер корисничко име и лозинка нису потребни.
3. У супротном се користи SQL Server аутентикација и LoginPrompt се укључује. Када програм отвори везу (Open или Connected := True), корисник добија прозор за унос корисничког имена и лозинке.
4. После уноса се позива догађај OnLogin (у примеру con1Login), који примљене вредности уписује у обележја User ID и Password.

Вредности треба уписивати преко колекције Properties, а не мењањем текста везе (ConnectionString), на пример функцијом StringReplace. Измена самог текста везе у овом случају не ради.

Пример INI фајла

Код чита одељак [database] из фајла setup.ini:

[database]
Data Source=SERVER\SQLEXPRESS
Initial Catalog=MojaBaza
Integrated Security=0

ReadBool вредност 1 тумачи као True, а 0 као False. За Windows аутентикацију довољно је уписати Integrated Security=1.

На шта треба пазити

• Стандардни прозор за пријаву долази из јединице DBLogDlg (у новијим верзијама Delphi-ја Vcl.DBLogDlg), па она мора бити укључена у uses листу.
• Провајдер SQLOLEDB је застарео. За нове програме Microsoft препоручује OLE DB Driver for SQL Server (провајдер MSOLEDBSQL), а у овом коду се мења само прва линија.
• Persist Security Info = True оставља лозинку у тексту везе и после повезивања. То има смисла само ако програм касније поново користи исти текст везе; у супротном је безбедније False.

Подешавање везе са базом део је готово сваког десктоп програма који ради са подацима. Шта још обухвата израда таквих програма описано је у тексту о изради програма.