Реферат Розробка програми АРМ "Медичні послуги"

Лікарю 'then.ADODataSet4.Active: = false;. ADODataSet4.CommandText: =' select IDMY, MYname, MYopis, MYst from Med_yslygi WHERE MYname LIKE''% '+ ComboBox1.Text +'%'' ORDER BY MYname ';. ADODataSet4.Active: = true;; Label6.Caption =' Найменуванню 'then.ADODataSet4.Active: = false;. ADODataSet4.CommandText : = 'select IDMY, MYname, MYopis, MYst from Med_yslygi WHERE MYopis LIKE''%' + ComboBox1.Text + '%'' ORDER BY MYname';. ADODataSet4.Active: = true;; Label6.Caption = 'Вартістю' then . ADODataSet4.Active: = false;. ADODataSet4.CommandText: = 'select IDMY, MYname, MYopis, MYst from Med_yslygi WHERE MYst LIKE''%' + ComboBox1.Text + '%'' ORDER BY MYst';. ADODataSet4.Active: = true;;;

// медікаментиGroupBox8.Visible = true then beginLabel6.Caption = '№' then.ADODataSet5.Active: = false;. ADODataSet5.CommandText: = 'select IDM, Mkol, Mname, Mst from Medikomenti WHERE IDM = '+ ComboBox1.Text;. ADODataSet5.Active: = true;; Label6.Caption =' Назвою 'then.ADODataSet5.Active: = false;. ADODataSet5.CommandText: =' select IDM, Mkol, Mname, Mst from Medikomenti WHERE Mname LIKE''% '+ ComboBox1.Text +'%'' ORDER BY Mname ';. ADODataSet5.Active: = true;; Label6.Caption =' Кількості 'then.ADODataSet5.Active: = false;. ADODataSet5.CommandText: = 'select IDM, Mkol, Mname, Mst from Medikomenti WHERE Mkol LIKE''%' + ComboBox1.Text + '%'' ORDER BY Mkol';. ADODataSet5.Active: = true;; Label6.Caption = 'Вартістю' then. ADODataSet5.Active: = false;. ADODataSet5.CommandText: = 'select IDM, Mkol, Mname, Mst from Medikomenti WHERE Mst LIKE''%' + ComboBox1.Text + '%'' ORDER BY Mst';. ADODataSet5.Active: = true;;;;

procedure TForm2.Button6Click (Sender: TObject);

begin

// кнопка всі записи ------------------------------------- ---------

// кліенти.ADODataSet1.Active: = false;. ADODataSet1.CommandText: = 'select IDKL, KLfio, KLadres, KLtel from Klientu';. ADODataSet1.Active: = true;

// врачі.ADODataSet2.Active: = false;. ADODataSet2.CommandText: = 'select IDVR, VRfio, VRsp from Vrachi';. ADODataSet2.Active: = true;

// мед услугі.ADODataSet4.Active: = false;. ADODataSet4.CommandText: = 'select IDMY, MYname, MYopis, MYst from Med_yslygi';. ADODataSet4.Active: = true;

// медікаменти.ADODataSet5.Active: = false;. ADODataSet5.CommandText: = 'select IDM, Mkol, Mname, Mst from Medikomenti';. ADODataSet5.Active: = true;;

procedure TForm2.Button7Click (Sender: TObject);

begin

// кнопка

procedure TForm2.SpeedButton...