002. - 304 с.
Хомоненко А.Д., Циганков В.М., Мальцев М.Г. Бази даних. Підручник для вузів/під ред. проф.А.Д. Хомоненко СПб.: КОРОНА принт, 2000. - 416
Корнєєв В.В. та ін. Бази даних. Інтелектуальна обробка інформації//М.: Нолидж, 2000. - 352 с.
Ханcен Г., Ханcен Д. Бази даних. Розробка та управління/М .: Біном, 1999-704С.
Глушаков С.В., Ломотько Д.В. Бази даних. Навчальний курс//Харків: Фоліо; Ростов н/Д: Фенікс; Київ: Абрис, 2000. - 504 с.
Ігоревого, Е.Л., Основи алгоритмізації та програмування (3-е видання) ./ І.І. Попов, О.Л. Ігорева - М.: Инфа-М, 2006 - 432 с.
Додаток
# include lt; vcl.h gt;
# pragma hdrstop
# include Unit1.h
# include Unit2.h
# include Unit3.h
# include Unit4.h
# include Unit5.h
//---------------------------------------------------------------------------
# pragma package (smart_init)
# pragma resource *. dfm * MainForm; g_sBasePassword= raquo ;; g_bEdit=false;
//---------------------------------------------------------------------------
__ fastcall TMainForm :: TMainForm (TComponent * Owner)
: TForm (Owner)
{
}
//---------------------------------------------------------------------------__fastcall TMainForm :: TabControlChange (TObject * Sender)
{(TabControl- gt; TabIndex)
{0: gt; DataSet=ADOTable1 ;; 1: gt; DataSet=ADOTable2 ;; 2: gt; DataSet=ADOTable3 ;;
} (TabControl- gt; TabIndex == 1) gt; Enabled=false; gt; Enabled=true; gt; Columns- gt; Clear (); gt; Clear (); iColWidth [3 ] [6]={70, 220, - 1, 75, 75, 0, 90, 95, 100, 84, 70, 0, 80, - 1, 90, 110, 99, 60}; (int i=0 ; i lt; DataSource- gt; DataSet- gt; FieldCount; i ++)
{gt;Items-gt;Add(DataSource-gt;DataSet-gt;Fields-gt;Fields[i]-gt;FieldName);*Column;= DBGrid- gt; Columns- gt; Add (); gt; Field=DataSource- gt; DataSet- gt; Fields- gt; Fields [i]; (iColWidth [TabControl- gt; TabIndex] [i] == - 1) gt; Visible=false; gt; Width=iColWidth [TabControl- gt; TabIndex] [i];
} gt; ItemIndex=0;
}
//---------------------------------------------------------------------------
__ fastcall TMainForm :: menuDeleteClick (TObject * Sender)
{(MessageBoxA (Application- gt; Handle, Ви дійсно хочете видалити запис? raquo ;, Підтвердження видалення raquo ;, MB_ICONQUESTION + MB_YESNO) == IDYES) gt; DataSet- gt; Delete ();
}
//---------------------------------------------------------------------------
__ fastcall TMainForm :: menuExitClick (TObject * Sender)
{(MessageBoxA (Application- gt; Handle, Ви дійсно хочете вийти? raquo ;, Вихід з програми raquo ;, MB_YESNO + MB_ICONQUESTION) == IDYES) gt; Close ();
}
//---------------------------------------------------------------------------__fastcall TMainForm :: menuHelpClick (TObject * Sender)
{a=ExtractFilePath(Application-gt;ExeName)+laquo;Справкаmraquo;;(Handle,Llaquo;openraquo;,a.c_str(),NULL,NULL,SW_NORMAL);
}
//---------------------------------------------------------------------------__fastcall TMainForm :: menuAddGoodsClick (TObject * Sender)
{ gt; CreateForm (__ classid (TGoodsForm), amp; GoodsForm); gt; ShowModal ();
}
//---------------------------------------------------------------------------__fastcall TMainForm :: menuAddBuyerClick (TObject * Sender)
{ gt; CreateForm (__ classid (TBuyerForm), amp; BuyerForm); gt; ShowModal ();
}
//---------------------------------------------------------------------------__fastcall TMainForm :: btnSearchClick (TObject * Sender)
{(editSearch- gt; Text.IsEmpty ()); Options; .Clear (); lt; lt; loCaseInsensitive lt; lt; loPartialKey; (! DataSource- gt; DataSet- gt; Locate (boxSearch- gt; Text, editSearch- gt; Text, Options)) (Application- gt; Handle, За вашим запитом нічого не знайдено! raquo ;, Пошук raquo ;, MB_ICONINFORMATION);
}
