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

Comparing ibx/trunk/examples/DBAdmin/MainFormUnit.pas (file contents):
Revision 262 by tony, Mon Apr 16 08:32:21 2018 UTC vs.
Revision 263 by tony, Thu Dec 6 15:55:01 2018 UTC

# Line 34 | Line 34 | type
34    TMainForm = class(TForm)
35      AccessRightsPopup: TPopupMenu;
36      AccessRightsSource: TDataSource;
37 +    ClientLibrary: TLabel;
38      MenuItem20: TMenuItem;
39      MenuItem21: TMenuItem;
40      RunScript: TAction;
# Line 376 | Line 377 | uses DataModule, ShutdownRegDlgUnit, Add
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;
# Line 1036 | Line 1037 | begin
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;

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines