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;在做毕业设计,第一次弄,很菜,请各位大虾路过帮忙,小生感激不尽!
解决方案 »
- 报表问题(小的没分了,请不要见怪~!有分一定大大送上!)
- 知道对方的DTD文件,怎么把我的数据写成XML格式传给他?谢谢,急!急!急!!!
- 两这样两张表 求怎么写SQL语句 谢谢啦!
- up者有分 怎么样在Fastreport script里实现换页?
- 求救:对于VB中的AscW()在DELPHI中是否有同样的函数????
- 读取ini文件的问题?谢谢各位高手啦!^-^
- inherited关键字有什么用啊
- 没有QQ的请留下EMAIL?(Nizvoo)
- 各位大侠帮帮忙:在dbgrid控件上,当把所有的记录都选上后,怎么才能点其中一条纪录时,使这条记录不选中,而其他记录仍然选中?
- 各位战友:
- Delphi里面怎么实现PDF文件的读取或者转换?
- 求助,在 SQL SERVER 2000 有没有这样的函数,只取 ’2005-5-5 7:24:00‘ 中的 ’7:24:00' ,谢谢!
Fieldvalues['Gysid']:='dbedit1.Text'; //不要'':Fieldvalues['Gys']:=dbedit2.Text;
Fieldvalues['Gysid']:='dbedit1.Text'; //也一样
我在对象检视器里面改的话,就不显示数据了请问,在Button1Click的代码里面怎么改啊?
谢谢!