озробка, реалізація/СПб .: Питер, 2002. - 304 с.
. Хомоненко А.Д., Циганков В.М., Мальцев М.Г. Бази даних. Підручник для вузів/під ред. проф.А.Д. Хомоненко СПб.: КОРОНА принт, 2000. - 416
. Корнєєв В.В. та ін. Бази даних. Інтелектуальна обробка інформації//М.: Нолидж, 2000. - 352 с.
. Ханcен Г., Ханcен Д. Бази даних. Розробка та управління/М .: Біном, 1999-704С.
. Глушаков С.В., Ломотько Д.В. Бази даних. Навчальний курс//Харків: Фоліо; Ростов н/Д: Фенікс; Київ: Абрис, 2000. - 504 с.
. Ігорева, Е.Л., Основи алгоритмізації та програмування (3-е видання) ./ І.І. Попов, О.Л. Ігорева - М .: Інфа-М, 2006 - 432 с.
. Цивільний кодекс РФ Частини перша, друга. М .: Норма.- 2000.
Додаток
# include lt; vcl.h gt;
# pragma hdrstop
# include Unit1.h
# include Unit2.h
//---------------------------------------------------------------------------
# pragma package (smart_init)
# pragma resource *. dfm * Form1;
//---------------------------------------------------------------------------
__ fastcall TForm1 :: TForm1 (TComponent * Owner)
: TForm (Owner)
{
} __ fastcall TForm1 :: TabControl1Change (TObject * Sender)
{(TabControl1- gt; TabIndex)
{0: - gt; DataSet=ADOTable1 ;; 1: - gt; DataSet=ADOTable2 ;; 2: - gt; DataSet=ADOTable3 ;; 3: - gt; DataSet=ADOTable4 ;;
} - gt; Columns- gt; Clear ();
}
//---------------------------------------------------------------------------__fastcall TForm1 :: Button1Click (TObject * Sender)
{- gt; Hide (); - gt; Show ();
}
//---------------------------------------------------------------------------
# include lt; vcl.h gt;
# pragma hdrstop
# include Unit3.h
# include Unit5.h
# include Unit6.h
# include Unit1.h
# include Office_2K.h
# include lt; sysvari.h gt;
# include ComObj.hpp
//---------------------------------------------------------------------------
# pragma package (smart_init)
# pragma resource *. dfm * Form3;
//---------------------------------------------------------------------------
__ fastcall TForm3 :: TForm3 (TComponent * Owner)
: TForm (Owner)
{
}
//---------------------------------------------------------------------------__fastcall TForm3 :: TabControl1Change (TObject * Sender)
{(TabControl1- gt; TabIndex)
{0: - gt; DataSet=ADOTable1 ;; 1: - gt; DataSet=ADOTable2 ;; 2: - gt; DataSet=ADOTable3 ;; 3: - gt; DataSet=ADOTable4 ;;
} - gt; Columns- gt; Clear (); - gt; Clear (); iColWidth [3] [6]={45, 80, 70, 90, 30, 50, 45, 146, 30, 70, 70, 50, 45, 248, 30, 90, 0, 0}; (int i=0; i lt; DataSource1- gt; DataSet- gt; FieldCount; i ++)
{-gt;Items-gt;Add(DataSource1-gt;DataSet-gt;Fields-gt;Fields[i]-gt;FieldName);*Column;= DBGrid1- gt; Columns- gt; Add (); gt; Field=DataSource1- gt; DataSet- gt; Fields- gt; Fields [i]; gt; Width=iColWidth [TabControl1- gt; TabIndex] [i];
} - gt; ItemIndex=0; - gt; Columns- gt; Clear (); (int i=0; i lt; DataSource1- gt; DataSet- gt; FieldCount; i ++)
{* Column;=DBGrid1- gt; Columns- gt; Add (); gt; Field=DataSource1- gt; DataSet- gt; Fields- gt; Fields [i]; gt; Width= 100;
}
}
//---------------------------------------------------------------------------__fastcall TForm3 :: TabControl2Change (TObject * Sender)
{(TabControl2- gt; TabIndex)
{0: - gt; Visible=true; - gt; Visible=false; - gt; Visible=false ;; 1: - gt; Visible=false; - gt; Visible=true; - gt; Visible=false ;; 2: - gt; Visible=false; - gt; Visible=false; - gt; Visible=true ;;
}
}
//-----------------------...
