рнення ) - gt; AsString= до 10 місяців raquo ;;; 6: - gt; ADOTable1 - gt; FieldByName ( Марка автомобіля ) - gt; AsString= ЗАЗ raquo ;; - gt; ADOTable1 - gt; FieldByName ( дата повернення ) - gt; AsString= 5 років raquo ;;;
} - gt; ADOTable1 - gt; Post (); - gt; Close ();
} ( Заповніть всю необхідну інформацію! );
} __ fastcall TForm2 :: ComboBox1Change (TObject * Sender)
{(ComboBox1 - gt; ItemIndex)
{0: - gt; Label6 - gt; Caption=REQ1; - gt; Label7 - gt; Caption=RATE1; - gt; Label8 - gt; Caption=TIME1 ;; 1: - gt; Label6 - gt; Caption=REQ2; - gt; Label7 - gt; Caption=RATE2; - gt; Label8 - gt; Caption=TIME2 ;; 2: - gt; Label6 - gt; Caption=REQ3; - gt; Label7 - gt; Caption=RATE3; - gt; Label8 - gt; Caption=TIME3 ;; 3: - gt; Label6 - gt; Caption=REQ4; - gt; Label7 - gt; Caption=RATE4; - gt; Label8 - gt; Caption=TIME4 ;; 4: - gt; Label6 - gt; Caption=REQ5; - gt; Label7 - gt; Caption=RATE5; - gt; Label8 - gt; Caption=TIME5 ;; 5: - gt; Label6 - gt; Caption=REQ6; - gt; Label7 - gt; Caption=RATE6; - gt; Label8 - gt; Caption=TIME6 ;; 6: - gt; Label6 - gt; Caption=REQ7; - gt; Label7 - gt; Caption=RATE7; - gt; Label8 - gt; Caption=TIME7 ;;
}
} __ fastcall TForm2 :: Button2Click (TObject * Sender)
{CurrentDate=Date (); - gt; Text=CurrentDate;
} __ fastcall TForm2 :: FormActivate (TObject * Sender)
{- gt; Clear (); - gt; Clear (); - gt; Clear (); - gt; Clear (); - gt; Clear (); - gt; Clear (); - gt; Clear (); (ComboBox1 - gt; ItemIndex)
{0: - gt; Label6 - gt; Caption=REQ1; Form2 - gt; Label7 - gt; Caption=RATE1; Form2 - gt; Label8 - gt; Caption=TIME1 ;; 1: - gt; Label6 - gt; Caption=REQ2; Form2 - gt; Label7 - gt; Caption=RATE2; Form2 - gt; Label8 - gt; Caption=TIME2 ;; 2: - gt; Label6 - gt; Caption=REQ3; Form2 - gt; Label7 - gt; Caption=RATE3; Form2 - gt; Label8 - gt; Caption=TIME3 ;; 3: - gt; Label6 - gt; Caption=REQ4; Form2 - gt; Label7 - gt; Caption=RATE4; Form2 - gt; Label8 - gt; Caption=TIME4 ;; 4: - gt; Label6 - gt; Caption=REQ5; Form2 - gt; Label7 - gt; Caption=RATE5; Form2 - gt; Label8 - gt; Caption=TIME5 ;; 5: - gt; Label6 - gt; Caption=REQ6; Form2 - gt; Label7 - gt; Caption=RATE6; Form2 - gt; Label8 - gt; Caption=TIME6 ;; 6: - gt; Label6 - gt; Caption=REQ7; Form2 - gt; Label7 - gt; Caption=RATE7; Form2 - gt; Label8 - gt; Caption=TIME7 ;;
}
} __ fastcall TForm2 :: Edit5KeyPress (TObject * Sender, char amp; Key)
{((Key gt;= 0 amp; amp; Key lt;= 9 ) || (Key == laquo ;, ) || (Key == (char) 8)) {} Key=0;
}. cpp
# include lt; vcl.h gt;
# pragma hdrstop
# include Unit1.h
# include Unit2.h
# include Unit3.h
# pragma package (smart_init)
# pragma resource *. dfm
TForm3 * Form3; 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 TForm3 :: TForm3 (TComponent * Owner)
: TForm (Owner)
{
} __ fastcall TForm3 :: FormClose (TObject * Sender, TCloseAction amp; Action)
{- gt; Enabled=True;
} __ fastcall TForm3 :: FormActivate (TObject * Sender)