刚学编程－这些代码如何写得简单点

learn_D 2006-09-03 04:51:34

要向数据库写入一些代码：

ADOTable1.edit;
ADOTable1.FieldByName('username').AsString:=edit1.text;
ADOTable1.FieldByName('userpassword').AsString:=edit2.text;
……
ADOTable1.FieldByName('×××').AsString:=editn.text;
ADOTable1.Post;

还有 edit1.text:='';
edit2.text:='';
……
editn.text:='';

第一：是否可以用循环做可以写得简单一点，只听说过，但是不知到如何实现。

第二：如果我在程序的其他窗体中也要用这些代码的话，那么应该怎么编？是把它们弄成一个什么，之后调用吗？呵呵，也许真是一些很浮浅的问题。请各位大侠指点一下。

...全文

271 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

yuehaiyang 2006-09-03

打赏
举报

1、可以循环，只要你的功能是一样的
2、可以指定的，即同一个unit文件中，如果要用到该代码，只要指到该段代码就行了。

learn_D 2006-09-03

打赏
举报

就是不知道怎么封装，怎么调用，只懂得最基本的写代码，但是由于冗余比较多，所以只能上来问了。

andyzhou1101 2006-09-03

打赏
举报

你把我的代码结合起来做成一个函数就好了

andyzhou1101 2006-09-03

打赏
举报

那么如果我要重复调用的话，应该怎么写
-----------------
-----------------

封装成一个函数啊，其它单元引用该单元就可以调用了

learn_D 2006-09-03

打赏
举报

那么如果我要重复调用的话，应该怎么写

andyzhou1101 2006-09-03

打赏
举报

第一：是否可以用循环做可以写得简单一点，只听说过，但是不知到如何实现。

-------------------------------
帮你写了个如何建立对应关系，你参考一下。不过建的表的字段名要跟edit的name是一样的

代码:

procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
begin
with adoquery1 do
begin
close;
sql.Clear;
sql.Add('select * from aaaa');
open;
if recordcount <> 0 then
begin
for i := 0 to self.ControlCount - 1 do
begin
if self.Components[i] is TEdit then
begin
(self.Components[i] as TEdit).Text := FieldByName((self.Components[i] as TEdit).Name).AsString;
end;
end;
end;
end;
end;

andyzhou1101 2006-09-03

打赏
举报

第一：是否可以用循环做可以写得简单一点，只听说过，但是不知到如何实现。

-------------------------------------------------

这个好象不怎么好写，除非你的字段跟edit建立相对应的关系，其实你可以考虑用dbtext啊

andyzhou1101 2006-09-03

打赏
举报

第二：如果我在程序的其他窗体中也要用这些代码的话，那么应该怎么编？是把它们弄成一个什么，之后调用吗？呵呵，也许真是一些很浮浅的问题。请各位大侠指点一下。

--------------------------

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i := 0 to self.ControlCount - 1 do
begin
if self.Components[i] is TEdit then
begin
(self.Components[i] as TEdit).Clear;
end;
end;
end;