添加问题

Question

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;

Answer 1

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

Answer 2

楼主似乎没有实现添加功能哦。建议用SQL语句添加吧 insert into ...个人不大喜欢感知控件

Answer 3

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;

Answer 4

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;

Answer 5

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