procedure TForm3.Button2Click(Sender: TObject);
begin
if Application.MessageBox('确认删除吗?','提示',33)=IDok then
begin
Image1.Picture.Graphic:=Nil;
Form2.Adoquery1.Edit;
TBLobField(Form2.ADOQuery1.FieldByName('照片')).clear;
Form2.ADOQuery1.Post;
end;
end;
begin
if Application.MessageBox('确认删除吗?','提示',33)=IDok then
begin
Image1.Picture.Graphic:=Nil;
Form2.Adoquery1.Edit;
TBLobField(Form2.ADOQuery1.FieldByName('照片')).clear;
Form2.ADOQuery1.Post;
end;
end;
解决方案 »
- shelllistview怎样实现oncolumnclick的时候排序的功能?
- ReturnLen: Cardinal;是什么意思??
- 发现一个 bug 赏黄金千两!
- TWindowsMediaPlayer 如何知道点击的是next按钮
- 问一个createpoint 的 简单的问题(见笑了^ ^)
- 不懂啊请教!!
- dbgrid随分辨率改变的问题
- 我在DATABASE DESKTOP里新建的表如何才能保存?
- 现在我出现了一个奇怪的错误,点击多次后报个错。 我只是动态的创建一些东西,释放报错而且错的Eprivelege error ,Check Range error,abstract error,bpl 错误 高手呢?
- 一定给你分,怎样让快捷方式在自己编写的Form中显示?
- 创建ACCESS文件时的问题
- 请问如何在系统关闭菜单按钮事件中执行代码?
好的
Update Table Set Pic = null