When a db node in the table tools tree has "mixed" state and it contains unaddressable stored routines, it is impossible to change the db node's check state. Fix that by removing checkboxes for stored routines.

This commit is contained in:
Ansgar Becker
2009-09-15 18:20:55 +00:00
parent 6e66726e79
commit 31e52f4df1

View File

@ -184,7 +184,7 @@ begin
ds := Mainform.FetchDbTableList(Mainform.Databases[ParentNode.Index]);
ds.RecNo := Node.Index+1;
if not (GetDBObjectType(ds.Fields) in [lntTable, lntCrashedTable, lntView]) then
Include(InitialStates, ivsDisabled);
Node.CheckType := ctNone;
end;
end;
end;
@ -234,7 +234,7 @@ var
begin
// Prepare SQL for one table node
if (csCheckedNormal in [Node.CheckState, Node.Parent.CheckState]) and
(not TreeObjects.IsDisabled[Node]) then begin
(Node.CheckType <> ctNone) then begin
SQL := UpperCase(comboOperation.Text) + ' TABLE ' +
Mainform.mask(TreeObjects.Text[Node.Parent, 0])+'.'+Mainform.mask(TreeObjects.Text[Node, 0]);
if chkQuick.Enabled and chkQuick.Checked then SQL := SQL + ' QUICK';