添加问题

[zhjdelphi]

if application.MessageBox('请核对，确定添加吗？','添加',MB_OKCANCEL)=IDOK then
begin
query.SQL.Clear;
query.SQL.Add('select name from ddlx where name='''+trim(dbedit1.text)+'''');
query.Open;
if query.RecordCount<=0
then
if DBEdit1.text<>'' then
begin
query.FieldByName('name').AsString:=dbedit1.Text;
showmessage('添加业务名称成功');
query.SQL.Clear;
query.SQL.Add('select name from ddlx ');
query.Open;
end
else
begin
showmessage('请填写业务名称') ;
dbedit1.setfocus
end
else
begin
showmessage('此业务已存在，请重新填写') ;
dbedit1.Clear ;
dbedit1.SetFocus ;
end;





end;
end;

[jzinfo]

楼主似乎没有实现添加功能哦。

建议用SQL语句添加吧 insert into ...

个人不大喜欢感知控件

[chenchuan1314]

看着有点乱，不明白什么意思

[jhldelphi]

query.FieldByName('name').AsString:=dbedit1.Text; 
       showmessage('添加业务名称成功'); 

with query do
begin
  close;
  sql.clear;
  sql.add('insert into ddlx(name,编码,..) values('''
    +dbedit1.Text
    +''','''+ 编码
     .........
    +''')');
  execsql;
end;

[shuihan20e]

if application.MessageBox('请核对，确定添加吗？','添加',MB_OKCANCEL)=IDOK then 
  begin 
           query.SQL.Clear; 
        query.SQL.Add('select name from ddlx where name='''+trim(dbedit1.text)+''''); 
       query.Open; 
       if query.RecordCount <=0 
       then 
          if DBEdit1.text <>'' then 
            begin 
         query.FieldByName('name').AsString:=dbedit1.Text; //没有执行写入操作,可以post
       showmessage('添加业务名称成功'); 
       query.SQL.Clear; 
        query.SQL.Add('select name from ddlx '); 
       query.Open; 
            end 
          else 
            begin 
              showmessage('请填写业务名称') ; 
                dbedit1.setfocus 
            end 
       else 
       begin 
          showmessage('此业务已存在，请重新填写')  ; 
          dbedit1.Clear ; 
          dbedit1.SetFocus ; 
       end; 


  end; 
end;

[S_Slan]

没有post

[阿三]

要用edit,insert,post才能修改,添加,提交数据

[caize131]

有什么问题?应该描述一下啊

[abc3011016]

query你除了打开就没实现添加

[zykaixin]

看代码累.