ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/DBAdmin/dlg/ExecuteSQLScriptDlgUnit.pas
(Generate patch)

Comparing ibx/trunk/examples/DBAdmin/dlg/ExecuteSQLScriptDlgUnit.pas (file contents):
Revision 271 by tony, Mon Apr 16 13:45:11 2018 UTC vs.
Revision 272 by tony, Mon Feb 4 13:34:37 2019 UTC

# Line 103 | Line 103 | end;
103   procedure TExecuteSQLScriptDlg.FormShow(Sender: TObject);
104   begin
105    PageControl1.ActivePage := SelectTab;
106 <  ServerName.Text := DatabaseData.ServerName;
107 <  DBName.Text := DatabaseData.DatabaseName;
106 >  ServerName.Text := DBDataModule.ServerName;
107 >  DBName.Text := DBDataModule.DatabaseName;
108    SourceFileName.Text := '';
109    Report.Lines.Clear;
110   end;

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines