.Items.Count;:=IZcount - 1; (IZcount gt; 1) and (Vcount gt; 1) thenwhile i lt; gt; 1 do.Items.Item [i] .Selected:=true;:=TVIZ.Items.Item [i] .Text;:=TVIZ.Items.Item [i] .Level;:=Vcount - 1; j lt; gt; 1 do.Items.Item [j] .Selected:=true;:=TVV.Items.Item [j] .Text; (IZlevel=2) and GetStrTable (IZtext) and (not TVIZ.Items.Item [i]. HasChildren) then.Items.Item [i] .Delete ;; end; dec (j); end; dec (i); end; end;:=TVIZ.Items.Count; .Items.Item [1] .Selected:=true; .Items.EndUpdate; (0) ;. Cursor:=crDefault; IZcount lt;=2begin Struc:=true; not checkapplication.MessageBox ( Відмінностей в структурах БД не обнаруженоraquo;,laquo;Вниманиеraquo;,MB_OK+MB_ICONINFORMATION).MessageBox(laquo;Структура БД перенесена успішно, Відмінностей в структурах БД не виявлено , Увага , MB_OK + MB_ICONINFORMATION);:=false; end; endbegin
Struc:=true; end; end;
1.2 Передача структури БД
procedure TFDiplomADOX.BGenerateStrucClick (Sender: TObject) ;, i, j: integer;: string; .ShowModal; (st gt;=0) and (fin gt;=0) then:=FAlSE ; (TVIZ.Handle) ;. Cursor:=crHourGlass;:=TVIZ.Items.Count; i:=st to fin doj:=1 to Count - 1 do.Items.Item [j] .Selected:=true ;: =TVIZ.Items.Item [j] .Text; GetStrTable (text) then (i=0) and (not FLAGC) then BCreateTClick (Sender); (i=1) and (not FLAGC) then BAlterTPKClick (Sender); ( i=2) and (not FLAGC) then BAlterTFKClick (Sender) ;;;;. FullCollapse; TVIZ.Items.Count gt; 2 then.Items.Item [2] .MakeVisible else.Items.Item[1].MakeVisible;:=TRUE;.Lines.SaveToFile(laquo;SQLReport.sqlraquo;);.Lines.Clear;Click(Sender);(0);.Cursor:= crDefault;:=true; TVIZ.Items.Count lt; 1000 then (Sender) ;;;
1.3 Передача даних БД
procedure TFDiplomADOX.BReportDataClick (Sender: TObject);FileExists(laquo;MsExport.exeraquo;)winexec(pchar(laquo;MsExport.exeraquo;),1)application.MessageBox(laquo;Файл MsExport.exe raquo, не найденraquo;,laquo;Ошибкаraquo;,MB_OK+MB_ICONERROR);;TFDiplomADOX.ExecSQLClick(Sender: TObject);:=CoCatalog.Create;FileExists(pDS)E0.Text:=laquo;OKraquo;CatalogD.Create(DS);.Close;.ConnectionString:=DS;.Open;.Lines.Add(E.Text);.SQL.Text:=E.Text;.ExecSQL();.Close;.Caption:=laquo;raquo;;.Clear;;
Ручний режим
1.4 Створення таблиці
procedure TFDiplomADOX.BCreateTClick (Sender: TObject) ;, ai, ailc, i: integer;: boolean;:=1;:=1;:=TVIZ.Items.Count; (count lt; =2) or (TVIZ.Selected.Level lt; gt; 2) then.MessageBox ( Оберіть у дереві (ліворуч) назва таблиці яку хочете создатьraquo;,laquo;Ошибкаraquo;,MB_OK+MB_ICONERROR);;;(tviz);:=TVIZ.Items.Count;:=TVIZ.Selected.AbsoluteIndex;:=TVIZ.Items.Item[ai].GetLastChild.AbsoluteIndex;.Items.Item[ailc+i].Selected:=true;TVIZ.Selected.Parent.Text = Laquo; Columns do (tviz); (i);:=true; ailc + i lt; gt; countTVIZ.Items.Item [ailc + i] .Selected:=truebreak ;; Field then (Sender);:= false; e.Text:= Ні полів! raquo ;; FLAGC then MenuConnect2Click (Sender) ;. Items.Item [ai] .Selected:=true; .SetFocus ;;
1.5 Створення Primary Keys
procedure TFDiplomADOX.BAlterTPKClick (Sender: TObject) ;, ai, aifc, i: integer;: string;: boolean;:=1; Gen:=2;:=TVIZ.Items.Count; (count lt;=2) or (TVIZ.Selected.Level lt; gt; 2) then.MessageBox ( Оберіть у дереві (ліворуч) назва таблиці в якій є PK , Помилка , MB_OK + MB_ICONERROR) ;. Caption:= Увага! PK може бути створений тільки після створення всіх таблиць (з полями) raquo ;;
exit; end;(tviz);:=TVIZ.Selected.AbsoluteIndex;:=TVIZ.Items.Item[ai].getFirstChild.AbsoluteIndex;.Items.Item[aifc+i].Selected:=true;(TVIZ.Selected.Parent.Text = Laquo; Keys ) doText:=TVIZ.Selected.Text; (GetStrPK_Keys (Text)=1) then (tviz);:=TRUE ;; (i); aifc + i lt; gt; countTVIZ.Items.Item [aifc + i] .Selected:=truebreak ;; PK then (Sender);:=false;
else e.Text:= Ні ідентифікаційних ключів! raquo ;;
if FLAGC then MenuConnect2Click (Sender) ;. Items.Item [ai] .Selected:=true; .SetFocus; end;
1.6 Створення Foreign Keys
procedure TFDiplomADOX.BAlterTFKClick (Sender: TObject) ;, ai, aifc, i: integer;: string;: boolean;:=1;:=2;:=TVIZ.Items.Count; ( count lt;=2) or (TVIZ.Selected.Level lt; gt; 2) then.MessageBox ( Оберіть у дереві (ліворуч) назва таблиці в якій FK , Помилка , MB_OK + MB_ICONERROR) ;. Caption := FK може бути створений тільки після створення всіх таблиць (з полями) і PK raquo ;;
exit;;(tviz);:=TVIZ.Selected.AbsoluteIndex;:=TVIZ.Items.Item[ai].getFirstChild.AbsoluteIndex;.Items.Item[aifc+i].Selected:=true;(TVIZ.Selected.Parent.Text = Laquo; Keys ) do:=TVIZ.Selected.Text; (GetStrFK_Keys (T...
