用DBE组个,我添加数据时是用以下代码,但是要是更新数据时,代码得怎么写呢。用的是BDE的组件。谢谢先! with dm.qyliushui do
begin
Close;
SQL.Clear;
SQL.Add('Insert Into sblsb(id,lslx,ywrq,je)');
SQL.Add('Values (:p0,:p1,:p2,:p3)');
parambyname('p0').value:=Trim(yhbh.Text);
parambyname('p1').value:=Trim(lslx.Text);
parambyname('p2').value:=ywrq.Date;
parambyname('p3').value:=Trim(je.Text);
ExecSQL;
end;
showmessage('数据添加成功!');
end;
begin
Close;
SQL.Clear;
SQL.Add('Insert Into sblsb(id,lslx,ywrq,je)');
SQL.Add('Values (:p0,:p1,:p2,:p3)');
parambyname('p0').value:=Trim(yhbh.Text);
parambyname('p1').value:=Trim(lslx.Text);
parambyname('p2').value:=ywrq.Date;
parambyname('p3').value:=Trim(je.Text);
ExecSQL;
end;
showmessage('数据添加成功!');
end;
解决方案 »
- Frm_Login 是其中一个单元名,但是我在uses中引用却是用的Login 把Frm_给去掉了,这是为什么
- 怎么写一个代替alt+talbe切窗口的程序
- 请问const Msg=$1357是什么意思呀
- 在delphi中利用tcpsocket和tcpclient组件怎样传递记录型的数据呀?
- 关于Richbox的问题
- 在sql server中使用了触发器,ado的Tadotable控件要报错,简直太烦了,各位帮帮忙!
- 兄弟帮帮忙啦!!
- 问题:鼠标左键在界面内任意处按下后移动窗体
- 如何阻止某个站点写cookie?
- delphi的winsock.pas中定义了sockaddr_in,如何读其中的ip地址和断口号?它的声明内附
- Delphi中,如何獲得mouse的坐標值
- 求助:使用BDE的问题,Query在执行的时候都提示要输入用户和密码?
begin
dm.qyliushui.checkbrowsemode ;
if dm.qyliushui.changecount>0 then
dm.qyliushui.applyupdate(0);end
with dm.qyliushui do
begin
Close;
SQL.Clear;
SQL.Add(select * from sblsb where id=xxxx);
ExecSQL;
Edit;
FieldByName('slx').value := xxxx;
FieldByName('je').value :=xxxx;
Post;
ApplyUpdates(0);
end;大概是这样。
sqlt:string;
begin
sqlt:='Insert Into sblsb(id,lslx,ywrq,je)values('''+yhbh.Text+''','''+lslx.Text+''','''+FormatDateTime('yyyy-MM-dd',ywrq.Date)+''','''+je.Text+''')';
这里就不写了。。错的应该是你那日期写入的问题。
.....
SQL.Add(sqlt)
.....
end;
begin
Close;
SQL.Clear;
SQL.Add('Insert Into sblsb(id,lslx,ywrq,je)');
SQL.Add('Values (:p0,:p1,:p2,:p3)');
parambyname('p0').value:=Trim(yhbh.Text);
parambyname('p1').value:=Trim(lslx.Text);
parambyname('p2').value:=FormatDateTime(yyyy-MM-dd,ywrq.Date);
parambyname('p3').value:=Trim(je.Text);
ExecSQL;
end;
showmessage('数据添加成功!');
end;这样试一下!
begin
Close;
SQL.Clear;
SQL.Add(update sblsb set lslx=,:p1,ywrq=,:p2,je=,:p3');
SQL.Add('where id=:p0');
parambyname('p0').value:=Trim(yhbh.Text);
parambyname('p1').value:=Trim(lslx.Text);
parambyname('p2').value:=FormatDateTime(yyyy-MM-dd,ywrq.Date);
parambyname('p3').value:=Trim(je.Text);
ExecSQL;
end;
showmessage('数据修改成功!');
end;楼主好象要的是这个吧?