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

'Програму розробив: Маскальчук Іван' + # 13 + 'Контактний телефон: +375292646548' + # 13 +' E-mail: vano.maskalchuk27 @ gmail.com ');;

procedure TForm2.Timer1Timer (Sender: TObject);

begin.Caption: = 'АРМ "Медичні послуги". Сьогодні: '+ datetostr (now) +' '+ timetostr (now);;

procedure TForm2.Button2Click (Sender: TObject);

begin

// кнопка клієнти

procedure TForm2.Button3Click (Sender: TObject);

begin

// додавання записів -------------------------------------- -------

// кліентиGroupBox2.Visible = true then beginDBGrid1.DataSource.DataSet do begin; ('KLfio'). Value: = Edit1.Text; ('KLadres'). Value: = Edit2.Text; ('KLtel'). Value: = Edit3.Text;;;;

// врачіGroupBox4.Visible = true then beginDBGrid2.DataSource.DataSet do begin; ('VRfio'). Value: = Edit1.Text; ('VRsp'). Value: = Edit2.Text; ;; DBGrid3.DataSource.DataSet do begin; ('Rpn'). Value: = 'Час'; ('Rvt'). Value: = 'Час'; ('Rsr'). Value: = 'Час'; ( 'Rcht'). Value: = 'Час'; ('Rpt'). Value: = 'Час'; ('Rsb'). Value: = 'Час'; ('Rvs'). Value: = 'Час' ;;;;

// мед услугіGroupBox7.Visible = true then beginDBGrid5.DataSource.DataSet do begin; ('MYname'). Value: = Edit1.Text; ('MYopis'). Value: = Edit2.Text ; ('MYst'). Value: = Edit3.Text;;;;

// медікаментиGroupBox8.Visible = true then beginDBGrid6.DataSource.DataSet do begin; ('Mname'). Value: = Edit1.Text; ('Mkol'). Value: = Edit2.Text; ('Mst'). Value: = Edit3.Text;;;;. Text: ='';. Text: ='';. Text: ='';;

procedure TForm2.Button4Click (Sender: TObject);

begin

// видалення запису -------------------------------------- -------------

// кліентиGroupBox2.Visible = true then beginApplication.MessageBox ('Ви дійсно хочете видалити цей запис', '! Увага!', MB_OKCANCEL) = id_OK thennot DBGrid1.DataSource.DataSet. Eof then.DataSource.DataSet.Delete;;

// врачіGroupBox4.Visible = true then beginApplication.MessageBox ('Ви дійсно хочете видалити цей запис', '! Увага!', MB_OKCANCEL) = id_OK thennot DBGrid2.DataSource.DataSet. Eof then.DataSource.DataSet.Delete; not DBGrid3.DataSource.DataSet.Eof then.DataSource.DataSet.Delete;;

// мед услугіGroupBox7.Visible = true then beginApplication.MessageBox ('Ви дійсно хочете видалити цей запис', '! Увага!', MB_OKCANCEL) = id_OK thennot DBGrid5.DataSource.DataSet . Eof then.Data...