1.请问下,“添加”按钮的onclick代码怎么写啊?http://www.jw.chd.edu.cn/gys2.jpg2.我想让DBEdit中的内容都为空,下面这样写对么?
procedure TFrmgys.Button1Click(Sender: TObject);
begin
     dbedit1.Text:='';
     dbedit2.Text:='';
     dbedit3.Text:='';
     dbedit4.Text:='';
     dbedit5.Text:='';
     dbedit6.Text:='';
end;3.清空DBEdit中的内容后,输入新记录,然后保存,不知道代码是不是这样写:
procedure TFrmgys.Button2Click(Sender: TObject);
begin
     with table1 do
     begin
     Insert;
     Fieldvalues['Gysid']:='dbedit1.Text';
   Fieldvalues['Gys']:='dbedit2.Text';
     post;
     end;
end;在做毕业设计,第一次弄,很菜,请各位大虾路过帮忙,小生感激不尽!

解决方案 »

  1.   

    table1有个ReadOnly属性,你设成false啊.      
          Fieldvalues['Gysid']:='dbedit1.Text'; //不要'':Fieldvalues['Gys']:=dbedit2.Text;
          Fieldvalues['Gysid']:='dbedit1.Text'; //也一样  
      

  2.   

    dbedit1.text已经是字符型的了,不用再加引号
      

  3.   

    table1有个ReadOnly属性,你设成false啊.-------------------------------------
    我在对象检视器里面改的话,就不显示数据了请问,在Button1Click的代码里面怎么改啊?
    谢谢!