Курсовые работы / ПРИС П _4

dm.pc.CommandText:='select *

dm.pc.Active:=false;

if

from pacient order by

dm.pc.CommandText:='select *

dm.pc.FieldByName('datas_pc')

pol_pc';

from pacient order by

.AsString<>'' then

dm.pc.Active:=true;

datas_pc';

begin

end;

dm.pc.Active:=true;

exit;

procedure

end;

end

TFpacient.Button8Click(Sender

procedure

else

: TObject);

TFpacient.Button10Click(Sende

begin

begin

r: TObject);

dm.com.commandtext:='Update

e1.Clear;

begin

pacient set datas_pc=date()

dm.pc.Active:=false;

if

where (id_pc='+tmp+')';

dm.pc.CommandText:='select *

dm.pc.Fields[0].AsString=''

dm.com.Execute;

from pacient order by

then

dm.pc.Requery();

datap_pc';

begin

procedure

dm.pc.Active:=true;

showmessage('Запись для

TFpacient.FormShow(Sender:

end;

редактирования отсутствует');

TObject);

procedure

exit;

begin

TFpacient.Button9Click(Sender

end;

dbgrid1.DataSource:=dm.pcs;

: TObject);

tmp:=dm.pc.Fields[0].AsString

end;

begin

;

end.

e1.Clear;