# | 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; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |