fy"> {- gt; Edit1 - gt; Text=Form1 - gt; ADOTable1 - gt; FieldByName ( Прізвище ) - gt; AsString; - gt; Edit2 - gt; Text=Form1 - gt; ADOTable1 - gt; FieldByName ( батькові ) - gt; AsString; - gt; Edit3 - gt; Text=Form1 - gt; ADOTable1 - gt; FieldByName ( Адреса ) - gt; AsString; - gt; Edit4 - gt; Text=Form1 - gt; ADOTable1 - gt; FieldByName ( Телефон ) - gt; AsString; - gt; Edit7 - gt; Text=Form1 - gt; ADOTable1 - gt; FieldByName ( повна стоймость ) - gt; AsString; - gt; Edit6 - gt; Text=Form1 - gt; ADOTable1 - gt; FieldByName ( дата видачі ) - gt; AsString; - gt; Edit8 - gt; Text=Form1 - gt; ADOTable1 - gt; FieldByName ( дата повернення ) - gt; AsString; (Form1 - gt; ADOTable1 - gt; FieldByName ( Марка автомобіля ) - gt; AsString == ВАЗ ) - gt; ComboBox1 - gt; ItemIndex=0; if (Form1 - gt; ADOTable1 - gt; FieldByName ( Марка автомобіля ) - gt; AsString == БМВ ) - gt; ComboBox1 - gt; ItemIndex=1; if (Form1 - gt; ADOTable1 - gt; FieldByName ( Марка автомобіля ) - gt; AsString == Мерседес ) - gt; ComboBox1 - gt; ItemIndex=2; if (Form1 - gt; ADOTable1 - gt; FieldByName ( Марка автомобіля ) - gt; AsString == Жигулі ) - gt; ComboBox1 - gt; ItemIndex=3; if (Form1 - gt; ADOTable1 - gt; FieldByName ( Марка автомобіля ) - gt; AsString == Газель ) - gt; ComboBox1 - gt; ItemIndex=4; if (Form1 - gt; ADOTable1 - gt; FieldByName ( Марка автомобіля ) - gt; AsString == Лада ) - gt; ComboBox1 - gt; ItemIndex=5; if (Form1 - gt; ADOTable1 - gt; FieldByName ( Марка автомобіля ) - gt; AsString == ЗАЗ ) - gt; ComboBox1 - gt; ItemIndex=6; (ComboBox1 - gt; ItemIndex)
{0: - gt; Label6 - gt; Caption=REQ1; Form3 - gt; Label7 - gt; Caption=RATE1; Form3 - gt; Label8 - gt; Caption=TIME1 ;; 1: - gt; Label6 - gt; Caption=REQ2; Form3 - gt; Label7 - gt; Caption=RATE2; Form3 - gt; Label8 - gt; Caption=TIME2 ;; 2: - gt; Label6 - gt; Caption=REQ3; Form3 - gt; Label7 - gt; Caption=RATE3; Form3 - gt; Label8 - gt; Caption=TIME3 ;; 3: - gt; Label6 - gt; Caption=REQ4; Form3 - gt; Label7 - gt; Caption=RATE4; Form3 - gt; Label8 - gt; Caption=TIME4 ;; 4: - gt; Label6 - gt; Caption=REQ5; Form3 - gt; Label7 - gt; Caption=RATE5; Form3 - gt; Label8 - gt; Caption=TIME5 ;; 5: - gt; Label6 - gt; Caption=REQ6; Form3 - gt; Label7 - gt; Caption=RATE6; Form3 - gt; Label8 - gt; Caption=TIME6 ;; 6: - gt; Label6 - gt; Caption=REQ7; Form3 - gt; Label7 - gt; Caption=RATE7; Form3 - gt; Label8 - gt; Caption=TIME7 ;;
}
} __ fastcall TForm3 :: Button2Click (TObject * Sender)
{CurrentDate=Date (); - gt; Text=CurrentDate;
} __ fastcall TForm3 :: ComboBox1Change (TObject * Sender)
{(ComboBox1 - gt; ItemIndex)
{0: - gt; Label6 - gt; Caption=REQ1; Form3 - gt; Label7 - gt; Caption=RATE1; Form3 - gt; Label8 - gt; Caption=TIME1 ;; 1: - gt; Label6 - gt; Caption=REQ2; Form3 - gt; Label7 - gt; Caption=RATE2; Form3 - gt; Label8 - gt; Caption=TIME2 ;; 2: - gt; Label6 - gt; Caption=REQ3; Form3 - gt; Label7 - gt; Caption=RATE3; Form3 - gt; Label8 - gt; Caption=TIME3 ;; 3: - gt; Label6 - gt; Caption=REQ4; Form3 - gt; Label7 - gt; Caption=RATE4; Form3 - gt; Label8 - gt; Caption=TIME4 ;; 4: - gt; Label6 - gt; Caption=REQ5; Form3 - gt; Label7 - gt; Caption=RATE5; Form3 - gt; Label8 - gt; Caption=TIME5 ;; 5: - gt; Label6 - gt; Caption=REQ6; Form3 - gt; Label7 - gt; Caption=RATE6; Form3 - gt; Label8 - gt; Caption=TIME6 ;; 6: - gt; Label6 - gt; Caption=REQ7; Form3 - gt; Label7 - gt; Caption=RATE7; Form3 - gt; Label8 - gt; Caption=TIME7 ;;
}
} __ fastcall TForm3 :: 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; Edit (); - gt; ADOTable1 - gt; FieldByName ( Прізвище ) - gt; AsString=Form3 - gt; Edit1 - gt; Text; - gt; ADOTable1 - gt; FieldByName ( батькові ) - gt; AsString=Form3 - gt; Edit2 - gt; Text; - gt; ADOTable1 - gt; FieldByName ( Адреса ) - gt; AsString=Form3 - gt; Edit3 - gt; Text; - gt; ADOTable1 - gt; FieldByName ( Телефон ) - gt; AsString=Form3 - gt; Edit4 - gt; Text; - gt; ADOTable1 - gt; FieldByName ( Марка автомобіля ) - gt; AsString=Form3 - gt; Edit7 - gt; Text; - gt; ADOTable1 - gt; FieldByName ( повна стоймость ) - gt; AsString=Form3 - gt; ComboBox1 - gt; Text; - gt; ADOTable1...
