Source.DataSet.Delete;;
// медікаментиGroupBox8.Visible = true then beginApplication.MessageBox ('Ви дійсно хочете видалити цей запис', '! Увага!', MB_OKCANCEL) = id_OK thennot DBGrid6.DataSource.DataSet. Eof then.DataSource.DataSet.Delete;;;
procedure TForm2.FormClose (Sender: TObject; var Action: TCloseAction);
begin.Terminate;;
procedure TForm2.ComboBox1Click (Sender: TObject);
begin: = ComboBox1.ItemIndex;. Caption: = ComboBox1.Items.Strings [n];. Text: ='';;
procedure TForm2.Button5Click (Sender: TObject);
begin
// пошук --------------------------------------- -----------
// кліентиGroupBox2.Visible = true then beginLabel6.Caption = '№' then.ADODataSet1.Active: = false;. ADODataSet1.CommandText: = 'select IDKL, KLfio, KLadres, KLtel from Klientu WHERE IDKL = '+ ComboBox1.Text;. ADODataSet1.Active: = true;; Label6.Caption =' ПІБ 'then.ADODataSet1.Active: = false;. ADODataSet1.CommandText: =' select IDKL, KLfio, KLadres, KLtel from Klientu WHERE KLfio LIKE''% '+ ComboBox1.Text +'%'' ORDER BY KLfio ';. ADODataSet1.Active: = true;; Label6.Caption =' Адресу 'then.ADODataSet1.Active: = false;. ADODataSet1.CommandText: = 'select IDKL, KLfio, KLadres, KLtel from Klientu WHERE KLadres LIKE''%' + ComboBox1.Text + '%'' ORDER BY KLfio';. ADODataSet1.Active: = true;; Label6.Caption = 'Телефону' then. ADODataSet1.Active: = false;. ADODataSet1.CommandText: = 'select IDKL, KLfio, KLadres, KLtel from Klientu WHERE KLtel LIKE''%' + ComboBox1.Text + '%'' ORDER BY KLtel';. ADODataSet1.Active: = true;;;
// врачіGroupBox4.Visible = true then beginLabel6.Caption = '№' then.ADODataSet2.Active: = false;. ADODataSet2.CommandText: = 'select IDVR, VRfio, VRsp from Vrachi WHERE IDVR = '+ ComboBox1.Text;. ADODataSet2.Active: = true;; Label6.Caption =' ПІБ 'then.ADODataSet2.Active: = false;. ADODataSet2.CommandText: =' select IDVR, VRfio, VRsp from Vrachi WHERE VRfio LIKE ' '%' + ComboBox1.Text + '%'' ORDER BY VRfio';. ADODataSet2.Active: = true;; Label6.Caption = 'Спеціалізації' then.ADODataSet2.Active: = false;. ADODataSet2.CommandText: = 'select IDVR , VRfio, VRsp from Vrachi WHERE VRsp LIKE''% '+ ComboBox1.Text +'%'' ORDER BY VRsp ';. ADODataSet2.Active: = true;;;
// мед услугіGroupBox7.Visible = true then beginLabel6.Caption = '№' then.ADODataSet4.Active: = false;. ADODataSet4.CommandText: = 'select IDMY, MYname, MYopis, MYst from Med_yslygi WHERE IDMY = '+ ComboBox1.Text;. ADODataSet4.Active: = true;; Label6.Caption =' ...
