AsString; - gt; Caption= Марка автомобіля: + Form1 - gt; ADOTable1 - gt; FieldByName ( Марка автомобіля ) - gt; AsString;
//Label5 - gt; Caption= Термін: + Form1 - gt; ADOTable1 - gt; FieldByName ( Термін ) - gt; AsString; - gt; Caption= Дата видачі: + Form1 - gt; ADOTable1 - gt; FieldByName ( Дата видачі ) - gt; AsString;
} __ fastcall TForm1 :: FormCreate (TObject * Sender)
{- gt; ADOTable1 - gt; Open ();
}. cpp
# include lt; vcl.h gt;
# pragma hdrstop
# include Unit1.h
# include Unit2.h
# include Unit3.h
# pragma package (smart_init)
# pragma resource *. dfm
TForm2 * Form2; String REQ1= Умови отримання: предьявление паспорта, укладення договору, перший внесок raquo ;,= Умови отримання: предьявление паспорта, укладення договору, перший внесок raquo ;,= laquo ; Умови отримання: предьявление паспорта, укладення договору, перший внесок raquo ;,= Умови отримання: предьявление паспорта, укладення договору, перший внесок raquo ;,= Умови отримання: предьявление паспорта, укладення договору, перший внесок raquo ;,= Умови отримання: предьявление паспорта, укладення договору, перший внесок raquo ;,= Умови отримання: предьявление паспорта, укладення договору, перший внесок raquo ;,= Номер автомобіля: 8 539-УБ6 raquo ;,= Номер автомобіля: +9133-УБ6 raquo ;,= Номер автомобіля: 1437-УБ6 raquo ;,= Номер автомобіля: 2731-УБ6 raquo ;,= Номер автомобіля: 8934-УБ6 raquo ;,= Номер автомобіля: 6136-УБ6 raquo ;,= Номер автомобіля: +7030-УБ6 raquo ;,= Термін: до 6-місяців raquo ;,= Термін: до 4-місяців (продовження) raquo ;,= Термін: до 1-рік raquo ;,= Термін: до 7-місяців raquo ;,= Термін: до 9-місяців raquo ;,= Термін: до 10-ти місяців raquo ;,
TIME7= Термін: до 5-років raquo ;; -
__ fastcall TForm2 :: TForm2 (TComponent * Owner)
: TForm (Owner)
{
} __ fastcall TForm2 :: FormClose (TObject * Sender, TCloseAction amp; Action)
{- gt; Enabled=True;
} __ fastcall TForm2 :: Button1Click (TObject * Sender)
{((Edit1 - gt; Text!= ) amp; amp; (Edit2 - gt; Text!= ) amp; amp; (Edit3 - gt; Text != ) amp; amp; (Edit4 - gt; Text!= ) amp; amp; (Edit5 - gt; Text!= ) amp; amp; (Edit6 - gt; Text!= ) amp; amp; (Edit7 - gt; Text!= ))
{- gt; ADOTable1 - gt; Open (); - gt; ADOTable1 - gt; Insert (); - gt; ADOTable1 - gt; Edit (); - gt; ADOTable1 - gt; FieldByName ( Прізвище ) - gt; AsString=Form2 - gt; Edit1 - gt; Text; - gt; ADOTable1 - gt; FieldByName ( батькові ) - gt; AsString=Form2 - gt; Edit2 - gt; Text; - gt; ADOTable1 - gt; FieldByName ( Адреса ) - gt; AsString=Form2 - gt; Edit3 - gt; Text; - gt; ADOTable1 - gt; FieldByName ( Телефон ) - gt; AsString=Form2 - gt; Edit4 - gt; Text; - gt; ADOTable1 - gt; FieldByName ( повна стоймость ) - gt; AsString=Form2 - gt; Edit7 - gt; Text; - gt; ADOTable1 - gt; FieldByName ( Марка автомобіля ) - gt; AsString=Form2 - gt; ComboBox1 - gt; Text; - gt; ADOTable1 - gt; FieldByName ( Дата видачі ) - gt; AsString=Form2 - gt; Edit6 - gt; Text; - gt; ADOTable1 - gt; FieldByName ( стоймость прокату ) - gt; AsString=Form2 - gt; Edit5 - gt; Text; - gt; ADOTable1 - gt; FieldByName ( дата повернення ) - gt; AsString=Form2 - gt; Edit8 - gt; Text; (ComboBox1 - gt; ItemIndex)
{0: - gt; ADOTable1 - gt; FieldByName ( Марка автомобіля ) - gt; AsString= ВАЗ raquo ;; - gt; ADOTable1 - gt; FieldByName ( дата повернення ) - gt; AsString= 6-місяців raquo ;;; 1: - gt; ADOTable1 - gt; FieldByName ( Марка автомобіля ) - gt; AsString= БМВ raquo ;; - gt; ADOTable1 - gt; FieldByName ( дата повернення ) - gt; AsString= 4 місяців raquo ;;; 2: - gt; ADOTable1 - gt; FieldByName ( Марка автомобіля ) - gt; AsString= Мерседес raquo ;; - gt; ADOTable1 - gt; FieldByName ( дата повернення ) - gt; AsString= до 1 року raquo ;;; 3: - gt; ADOTable1 - gt; FieldByName ( Марка автомобіля ) - gt; AsString= Жигулі raquo ;; - gt; ADOTable1 - gt; FieldByName ( дата повернення ) - gt; AsString= до 7 місяців raquo ;;; 4: - gt; ADOTable1 - gt; FieldByName ( Марка автомобіля ) - gt; AsString= Газель raquo ;; - gt; ADOTable1 - gt; FieldByName ( дата повернення ) - gt; AsString= до 9 місяців raquo ;;; 5: - gt; ADOTable1 - gt; FieldByName ( Марка автомобіля ) - gt; AsString= Лада raquo ;; - gt; ADOTable1 - gt; FieldByName ( дата пове...
