34 |
|
TMainForm = class(TForm) |
35 |
|
AccessRightsPopup: TPopupMenu; |
36 |
|
AccessRightsSource: TDataSource; |
37 |
+ |
ClientLibrary: TLabel; |
38 |
|
MenuItem20: TMenuItem; |
39 |
|
MenuItem21: TMenuItem; |
40 |
|
RunScript: TAction; |
377 |
|
procedure TMainForm.FormShow(Sender: TObject); |
378 |
|
begin |
379 |
|
{Set IB Exceptions to only show text message - omit SQLCode and Engine Code} |
380 |
< |
FirebirdAPI.GetStatus.SetIBDataBaseErrorMessages([ShowIBMessage]); |
380 |
> |
DatabaseData.IBDatabase1.FirebirdAPI.GetStatus.SetIBDataBaseErrorMessages([ShowIBMessage]); |
381 |
|
Application.ExceptionDialog := aedOkMessageBox; |
382 |
|
PageControl1.ActivePage := Properties; |
383 |
|
DatabaseData.AfterDBConnect := @HandleDBConnect; |
1037 |
|
DatabaseData.AuthMethod, DatabaseData.SecurityDatabase,DatabaseData.RoleName]); |
1038 |
|
if assigned(PageControl1.ActivePage.OnShow) then |
1039 |
|
PageControl1.ActivePage.OnShow(nil); |
1040 |
+ |
ClientLibrary.Caption := 'Firebird Client Library: ' + DatabaseData.IBDatabase1.FirebirdAPI.GetFBLibrary.GetLibraryFilePath + |
1041 |
+ |
' (API Version = ' + DatabaseData.IBDatabase1.FirebirdAPI.GetImplementationVersion + ')'; |
1042 |
|
end; |
1043 |
|
|
1044 |
|
procedure TMainForm.LoadData; |