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; |
73 |
|
MappingsTab: TTabSheet; |
74 |
|
AccessRightsTab: TTabSheet; |
75 |
|
Splitter5: TSplitter; |
76 |
+ |
ToolButton6: TToolButton; |
77 |
+ |
ToolButton7: TToolButton; |
78 |
|
UpdateColsPanel: TPanel; |
79 |
|
ValidateRepairRecordFragments: TCheckBox; |
80 |
|
IgnoreChecksums: TCheckBox; |
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); |
369 |
|
{$R *.lfm} |
370 |
|
|
371 |
|
uses DataModule, ShutdownRegDlgUnit, AddSecondaryFileDlgUnit, NewUserDlgUnit, |
372 |
< |
ChgPasswordDlgUnit, FBMessages; |
372 |
> |
ChgPasswordDlgUnit, FBMessages, ExecuteSQLScriptDlgUnit; |
373 |
|
|
374 |
|
{ TMainForm } |
375 |
|
|
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 |