我这个程序能简单写吗，好麻烦

Question

lyybb.RzNumericEdit1.Text:=dm.lyybb.fieldbyname('djsd1').AsString;
   lyybb.RzNumericEdit2.Text:=dm.lyybb.fieldbyname('djsd2').AsString;
   lyybb.RzNumericEdit3.Text:=dm.lyybb.fieldbyname('tldc').AsString;
   lyybb.RzNumericEdit4.Text:=dm.lyybb.fieldbyname('tlsd').AsString;
   lyybb.RzNumericEdit5.Text:=dm.lyybb.fieldbyname('pjdym').AsString;
   lyybb.RzNumericEdit6.Text:=dm.lyybb.fieldbyname('zqsj').AsString;
   lyybb.RzNumericEdit7.Text:=dm.lyybb.fieldbyname('pjzqcyy').AsString;
   lyybb.RzNumericEdit8.Text:=dm.lyybb.fieldbyname('pjzqcys').AsString;
   lyybb.RzNumericEdit9.Text:=dm.lyybb.fieldbyname('pjrcyy').AsString;
   lyybb.RzNumericEdit10.Text:=dm.lyybb.fieldbyname('pjrcys').AsString;
   lyybb.RzNumericEdit11.Text:=dm.lyybb.fieldbyname('ylcyy').AsString;
   lyybb.RzNumericEdit12.Text:=dm.lyybb.fieldbyname('ylcys').AsString;
   lyybb.RzNumericEdit13.Text:=dm.lyybb.fieldbyname('nlcyy').AsString;
   lyybb.RzNumericEdit14.Text:=dm.lyybb.fieldbyname('nlcys').AsString;
我好多地方都能用到类似的写法

Answer 1

這樣可能是比較常用的!
當然, 你可以用個循環, 取
Fields[i] 來操作

Answer 2

劝你复制粘贴吧。顶天是用with能让你少写几个字。可是行数是一点都不少的！！还是长长的一大串。

Answer 3

用循環, 取Fields[i] 來操作的话，以后数据结构变动的话，有你受的!

Answer 4

做一个表，CtrlSourceDefine (CtrlName,FieldName)一列存放组件的名称，一列存放数据的名称
遍历表，找到组件，再读出值，放到组件中去

Answer 5

用数据敏感控件写啦，
只要选择数据表中的字段就行了
然后用数据控制组件如：ADOQuery,ADODataset等的
edit,post或APPEND，POST方法就行了
不过，这样做容易出现问题
劝你还是老老实实的一句句写吧