dmjobform.gzmsdm.SQL.Add('DELETE FROM DM_GZMSDM WHERE GZMSDM=:X');
解决方案 »
- 在webbrowser中执行js语句,不能进行 多行文本的赋值,如何解决?
- 高手请进,怎么给回调函数传参数,回调函数奇怪的问题,
- 我的表里有a,b,c三个字段,现在要查出c不重复的记录,但要包括a和b:
- 在DBGridEH中,怎样让他增加或修改数据后不直接保存.而是弹出窗口提示用户保存.
- 询问一个关于tcpserver和tcpclient的互发信息的奇怪问题!
- 购买的笔记本电脑到货,欣慰。散分
- 函数名或过程名能用变量表示吗?
- 串口通讯
- 如何將ADOConnection放到DLL中供其它Form調用
- kylix的论坛那有?
- 一个很简单的问题:
- 请问哪里有在DELPHI中访问Execl文件的帮助?急需!
dmjobform.gzmsdm.SQL.Add('DELETE FROM DM_GZMSDM WHERE GZMSDM=X');
该为 dmjobform.gzmsdm.SQL.Add('DELETE FROM DM_GZMSDM WHERE GZMSDM=:X');
SQL.Add('GZMSDM=:tmpvar');
SQL.Add('GZMSDM='''+dmjobform.gzmsdm.FieldValues['GZMSDM']+'''');
parambyname('tmpvar').AsString:=tmpvar;
dmjobform.gzmsdm.ParamByName('tmpvar').AsString:=X;
dmjobform.gzmsdm.ExecSQL;
tmpvar:string;
begin
if MessageDlg('本操作将删除一条记录,您是否确定?',mtConfirmation,
[mbYes, mbNo], 0) = mrYes then
begin
tmpvar:=dmjobform.gzmsdm.FieldValues['gzmsdm'];
dmjobform.gzmsdm.Close;
dmjobform.gzmsdm.SQL.text:='DELETE FROM DM_GZMSDM WHERE M=:X'
dmjobform.gzmsdm.ParamByName('x').AsString:=tmpvar;
dmjobform.gzmsdm.ExecSQL;
end;
end;
tmpvar:string;
begin
if MessageDlg('本操作将删除一条记录,您是否确定?',mtConfirmation,
[mbYes, mbNo], 0) = mrYes then
begin
tmpvar:=dmjobform.gzmsdm.FieldValues['gzmsdm'];
dmjobform.gzmsdm.Close;
dmjobform.gzmsdm.SQL.text:='DELETE FROM DM_GZMSDM WHERE GZMSDM=:X'
dmjobform.gzmsdm.ParamByName('x').AsString:=tmpvar;
dmjobform.gzmsdm.ExecSQL;
end;
end;
var x:string;
tmpvar:string;
begin
if MessageDlg('本操作将删除一条记录,您是否确定?',mtConfirmation,
[mbYes, mbNo], 0) = mrYes then
begin
tmpvar:=dmjobform.gzmsdm.FieldValues['gzmsdm'];
dmjobform.gzmsdm.Close;
dmjobform.gzmsdm.SQL.text:='DELETE FROM DM_GZMSDM WHERE GZMSDM=:X'
dmjobform.gzmsdm.ParamByName('x').AsString:=tmpvar;
dmjobform.gzmsdm.ExecSQL;
end;
end;