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;在做毕业设计,第一次弄,很菜,请各位大虾路过帮忙,小生感激不尽!
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;在做毕业设计,第一次弄,很菜,请各位大虾路过帮忙,小生感激不尽!
Fieldvalues['Gysid']:='dbedit1.Text'; //不要'':Fieldvalues['Gys']:=dbedit2.Text;
Fieldvalues['Gysid']:='dbedit1.Text'; //也一样
我在对象检视器里面改的话,就不显示数据了请问,在Button1Click的代码里面怎么改啊?
谢谢!