ViewVC Help

View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing

root/public/ibx/trunk/examples/DBAdmin/MainFormUnit.pas

Comparing ibx/trunk/examples/DBAdmin/MainFormUnit.pas (file contents):
Revision 229 by tony, Tue Apr 10 13:32:36 2018 UTC vs.
Revision 231 by tony, Mon Apr 16 08:32:21 2018 UTC

#	Line 34 | Line 34 | type
34		TMainForm = class(TForm)
35		AccessRightsPopup: TPopupMenu;
36		AccessRightsSource: TDataSource;
37	+	MenuItem20: TMenuItem;
38	+	MenuItem21: TMenuItem;
39	+	RunScript: TAction;
40		AutoAdmin: TCheckBox;
41		DatabaseAliasName: TEdit;
42		DBEdit5: TDBEdit;
#	Line 70 | Line 73 | type
73		MappingsTab: TTabSheet;
74		AccessRightsTab: TTabSheet;
75		Splitter5: TSplitter;
76	+	ToolButton6: TToolButton;
77	+	ToolButton7: TToolButton;
78		UpdateColsPanel: TPanel;
79		ValidateRepairRecordFragments: TCheckBox;
80		IgnoreChecksums: TCheckBox;
#	Line 307 | Line 312 | type
312		procedure RepairTabShow(Sender: TObject);
313		procedure RevokeAllExecute(Sender: TObject);
314		procedure RevokeAllUpdate(Sender: TObject);
315	+	procedure RunScriptExecute(Sender: TObject);
316		procedure SelectAllTablesChange(Sender: TObject);
317		procedure SelectedTablesOnlyChange(Sender: TObject);
318		procedure SelectRepairActionCloseUp(Sender: TObject);
#	Line 363 | Line 369 | implementation
369		{$R *.lfm}
370
371		uses DataModule, ShutdownRegDlgUnit, AddSecondaryFileDlgUnit, NewUserDlgUnit,
372	<	ChgPasswordDlgUnit, FBMessages;
372	>	ChgPasswordDlgUnit, FBMessages, ExecuteSQLScriptDlgUnit;
373
374		{ TMainForm }
375
#	Line 744 | Line 750 | begin
750		(FieldByName('SUBJECT_TYPE').AsInteger = 8);
751		end;
752
753	+	procedure TMainForm.RunScriptExecute(Sender: TObject);
754	+	begin
755	+	ExecuteSQLScriptDlg.ShowModal;
756	+	end;
757	+
758		procedure TMainForm.SelectAllTablesChange(Sender: TObject);
759		var aBookmark: TBookmark;
760		begin

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines