Зертханалық жұмыс №1 «Қойма» деректер қорын басқару жүйесін құру


if dbIM.DataSource.State dsEdit then dbIM.DataSource.Edit



бет65/100
Дата06.02.2022
өлшемі1,89 Mb.
#53051
1   ...   61   62   63   64   65   66   67   68   ...   100
Байланысты:
БД-зертханалық жұмыс

if dbIM.DataSource.State <> dsEdit then dbIM.DataSource.Edit;
dbIM.DataSource.DataSet.FieldByName(nmField).Clear;
dbIM.DataSource.DataSet.Post;
end;
end;

procedure TfmMain.mcSaveClick(Sender: TObject);


var dbIM:TDBImage;
begin
if Not(dlgSaveImage.Execute) then Exit;
dbIm:=nil;
With MenuClip do
if PopupComponent is TDBImage then dbIM:=(PopupComponent as TDBImage);
try
if dbIm<>nil then dbIM.Picture.SaveToFile(dlgSaveImage.FileName);
except
ShowMessage('Ошибка записи в файл:'+#13#10+dlgSaveImage.FileName);
end;
end;

procedure TfmMain.mcClearClick(Sender: TObject);


var dbIM:TDBImage;nmField:string;
begin
dbIm:=nil;
With MenuClip do
if PopupComponent is TDBImage then dbIM:=(PopupComponent as TDBImage);


Достарыңызбен бөлісу:
1   ...   61   62   63   64   65   66   67   68   ...   100




©engime.org 2024
әкімшілігінің қараңыз

    Басты бет