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

2Click (Sender: TObject);

beginl = 0

procedure TForm2.DBGrid2CellClick (Column: TColumn);

var

Edit1.Text: = DataModule3.ADODataSet2.FieldByName ('VRfio'). AsString;

Edit2.Text: = DataModule3.ADODataSet2.FieldByName ('VRsp'). AsString;;

procedure TForm2.Button8Click (Sender: TObject);

var x: string;

// додавання do begin; ('MYname'). Value: = x; ('MYopis'). Value: = Edit4.Text; ('MYst'). Value: = Edit5.Text;;;. Text: ='';. Text: ='';;

procedure TForm2.Button9Click (Sender: TObject);

begin

// видалення послуги ------------------------------------------- --- Application. MessageBox ('Ви дійсно хочете видалити цей запис', '! Увага!', MB_OKCANCEL) = id_OK thennot DBGrid4.DataSource.DataSet.Eof then.DataSource.DataSet.Delete;;

procedure TForm2.Button10Click (Sender: TObject);

begin

// кнопка мед

procedure TForm2.Button11Click (Sender: TObject);

begin

// кнопка

procedure TForm2.DBGrid1CellClick (Column: TColumn);

begin

Edit3.Text: = DataModule3.ADODataSet1.FieldByName ('KLtel'). AsString;

end; TForm2.DBGrid5CellClick (Column: TColumn);

begin.Text: = DataModule3.ADODataSet4.FieldByName ('MYname'). AsString;

Edit2.Text: = DataModule3.ADODataSet4.FieldByName ('MYopis'). AsString

Edit3.Text: = DataModule3.ADODataSet4.FieldByName ('MYst'). AsString;;

procedure TForm2.DBGrid6CellClick (Column: TColumn);

procedure TForm2.DBGrid4CellClick (Column: TColumn);

begin

Edit4.Text: = DataModule3.ADODataSet4.FieldByName ('MYopis'). AsString

Edit5.Text: = DataModule3.ADODataSet4.FieldByName ('MYst'). AsString;;

procedure TForm2.Button12Click (Sender: TObject);

begin

// зміна записів ------------------------------------------- -

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

// врачіGroupBox4.Visible = true then beginDBGrid2.DataSource.DataSet do begin; ('VRfio'). Value: = Edit1.Text; ('VRsp'). Value: = Edit2.Text;;;;

// мед услугі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: =''...