Реферат Розробка програмних засобів для актуалізації структур баз даних при розрахунках і оптимізації трубопровідних систем

ext)=2) then (tviz);:=TRUE ;; inc (i); aifc + i lt; gt; countTVIZ.Items.Item [aifc + i] .Selected:=truebreak; end; FK then (Sender);:=false; else e.Text:= Немає зовнішніх ключів! raquo ;;

if FLAGC then MenuConnect2Click (Sender) ;. Items.Item [ai] .Selected:=true; .SetFocus; end;

1.7 Додавання поля

procedure TFDiplomADOX.BAlterColClick (Sender: TObject) ;, ai, aifc, i: integer;: boolean;:=1;:=3;:=TVIZ.Items.Count; not Struc then

LMess.Caption:= Поле може бути створено тільки після звірки структур БД raquo ;;

exit ;; (count lt;=2) or (TVIZ.Selected.Level lt; gt; 2) then

application.MessageBox ( Оберіть у дереві (ліворуч) назва таблиці в якій є поле для створення , Помилка , MB_OK + MB_ICONERROR);

exit; end;(tviz);:=TVIZ.Selected.AbsoluteIndex;:=TVIZ.Items.Item[ai].getLastChild.AbsoluteIndex;.Items.Item[aifc+i].Selected:=true;(TVIZ.Selected.Parent.Text = Laquo; Columns ) do (tviz); (i);:=TRUE; aifc + i lt; gt; countTVIZ.Items.Item [aifc + i] .Selected:=truebreak ;; Col then (Sender);:=false;

else e.Text:= Немає додаткових полів! raquo ;;

if FLAGC then MenuConnect2Click (Sender) ;. Items.Item [ai] .Selected:=true; .SetFocus; end;

1.8 Створення звіту SQL

procedure TFDiplomADOX.BCreateRClick (Sender: TObject); M.Lines.Count gt; 0 then.Lines.SaveToFile ( SQLReport.sql ); FileExists ( SQLReport.sql ) then.MRep.Clear;.Caption:=laquo;SQLReport.sqlraquo;;.MRep.Lines.LoadFromFile(laquo;SQLReport.sqlraquo;);.ShowModal;;;