gn="justify">//---------------------------------------------------------------------------__ fastcall TForm2 :: RadioButton2Click (TObject * Sender)
{- gt; DataSet=ADOTable2; - gt; Active=true; - gt; Enabled=true; - gt; Enabled=true; - gt; Enabled=true; - gt; Enabled=true ;
ComboBox3- gt; Visible=true;
ComboBox2- gt; Visible=false;
ComboBox1- gt; Visible=false;
}
//---------------------------------------------------------------------------__ fastcall TForm2 :: RadioButton3Click (TObject * Sender) {- gt; DataSet =ADOTable3; - gt; Active=true; - gt; Enabled=true; - gt; Enabled=true; - gt; Enabled=true; - gt; Enabled=true; - gt; Visible=true;
ComboBox3- gt; Visible=false;
ComboBox1- gt; Visible=false;
}
//---------------------------------------------------------------------------__ fastcall TForm2 :: Button6Click (TObject * Sender) {(RadioButton1- gt ; Checked == 1)
{Form5- gt; Button1- gt; Visible=true; - gt; Button4- gt; Visible=false; - gt; ShowModal ();
} (RadioButton2- gt; Checked == 1)
{Form3- gt; Button1- gt; Visible=true;
Form3- gt; Button4- gt; Visible=false; - gt; ShowModal ();
} (RadioButton3- gt; Checked == 1) {- gt; Button1- gt; Visible=true;
Form4- gt; Button4- gt; Visible=false;
Form4- gt; ShowModal ();
}
}
//--------------------------------------------------------------------------__ fastcall TForm2 :: FormClose (TObject * Sender, TCloseAction amp; Action) {- gt; Close ();
}
//---------------------------------------------------------------------------__ fastcall TForm2 :: Button1Click (TObject * Sender) {
if (mrOk == MessageDlg ( Ви дійсно хочете видалити? raquo ;, mtConfirmation,
TMsgDlgButtons () lt; lt; mbOK lt; lt; mbCancel, 0)) {- gt; DataSet- gt; Delete ();
}
}
//---------------------------------------------------------------------------__ fastcall TForm2 :: Button3Click (TObject * Sender) {(RadioButton1- gt ; Checked == 1)
{
Form5- gt; Edit1- gt; Text=Form2- gt; ADOTable1- gt; FieldByName ( Назва ) - gt; AsString;
Form5- gt; Edit2- gt; Text=Form2-gt;ADOTable1-gt;FieldByName(laquo;Продолжительностьraquo;)-gt;AsString;
Form5- gt; Edit3- gt; Text=Form2-gt;ADOTable1-gt;FieldByName(laquo;Стоимостьraquo;)-gt;AsString;-gt;Button4-gt;Visible=true;-gt;Button1-gt;Visible=false;-gt;ShowModal();
} (RadioButton2- gt; Checked == 1) {
Form3- gt; Edit1- gt; Text=Form2- gt; ADOTable2- gt; FieldByName ( Країна виробник ) - gt; AsString;
Form3- gt; Edit2- gt; Text=Form2- gt; ADOTable2- gt; FieldByName ( Марка ) - gt; AsString;
Form3- gt; Edit3- gt; Text=Form2- gt; ADOTable2- gt; FieldByName ( Рік выпускаraquo;)-gt;AsString;-gt;Button4-gt;Visible=true;-gt;Button1-gt;Visible=false;-gt;ShowModal();
} (RadioButton3- gt; Checked == 1) {
Form4- gt; Edit1- gt; Text=Form2- gt; ADOTable3- gt; FieldByName ( Вид верстата ) - gt; AsString;
Form4- gt; ComboBox1- gt; Text=Form2- gt; ADOTable3- gt; FieldByName ( Марка ) - gt; AsString;
Form4- gt; DateTimePicker1- gt; DateTime=Form2- gt; ADOTable3- gt; FieldByName ( Дата початку ) - gt; AsDateTime;
Form4- gt; DateTimePicker2- gt; DateTime=Form2- gt; ADOTable3- gt; FieldByName ( Дата окончанияraquo;)-gt;AsDateTime;-gt;Button4-gt;Visible=true;-gt;Button1-gt;Visible=false;-gt;ShowModal();
}
}
//---------------------------------------------------------------------------__ fastcall TForm2 :: SpeedButton2Click (TObject * Sender)
{(RadioButton1- gt; Checked == 1)
{- gt; ShowModal ();
} (RadioButton2- gt; Checked == 1)
{- gt; ShowModal ();
} (RadioButton3- gt; Checked == 1) {
Form4- gt; ShowModal ();
}
}
//---------------------------------------------------------------------------__fastc...
