回 帖 发 新 帖 刷新版面

主题:delphi中如何实现添加功能

例:向数据库中添加姓名和年龄,用了query,dbgrid,database,edit1,edit2,button1控件,请问怎么添加,代码怎么写。
 我自己这样写的不过有问题 不知道为什么?
 with query1 do
 begin
 query1.close;
 query1.sql.clear;
 query1.sql.add('select * from t_kaosheng where(edit1=:tt,edit2=:kk)');
 query1.parambyname('tt').value:=edit1.text;
 query1.parambyname('kk').value:=edit2.text;
 query1.open;
 edit1.text:=fieldbyname('xingming').asstring;
 edit2.text:=fieldbyname('nianl').asstring;
 if query1.recordcount<0 then
 begin
  query1.sql.clear;
  query1.sql.add('insert into t_kaosheng(xingming,nianl)values(:tt,:kk)');
  query1.execsql;
 end;
end;

回复列表 (共1个回复)

沙发

将with query1 do去掉看一下!

我来回复

您尚未登录,请登录后再回复。点此登录或注册