小小问题!!!!(30分)

冰

冰火

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-04

• #21

OK, try this:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Label1.Caption = Edit1.Text then //Input '0001' and Label1's Caption is '0001'
begin
Label1.Font.Color := clRed;
Table1.Locate('BoxNumber', Edit1.Text, [loCaseInsensitive]);
Table1.Edit;
Table1.FieldValues['Status'] := '1';
Table1.Post;
end;

end;

当然，实际当中不能用一千个if...then，你需要自己动动脑筋了。
基本就是这样了。

 

C

chamberlin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-04

• #22

冰火大哥!小弟就是为这一千个LABELS伤透脑了,你就快点给小弟讲一下吧!
按你上面所写的我也写过,就是不懂得如何在EDIT里面输入0002或0005的话,按
确定按钮后,相对应的LABELS就改变颜色.
实际当中不能用一千个if...then,那该怎么办呢?能否再写一下.到时我再多
加分数给你,好吗?

 

W

wmsoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-05

• #23

我觉得chamberlin弟应该去多学一些基本功,不然你总不可能一有问题就到网上来
请人给你写代码吧? 临渊羡鱼,不如退而结网.
冰火兄说得已经很清楚了,你到这样还不能完成, 那真是要回去补补课了.
你这个程序当然可以有多个办法,不一定要用LABEL来实现的.

 

C

chamberlin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-06

• #24

哎!我真的很笨!
不过我想出来一个:
var
1:Tlabel;
begin
..
1:=findcompontent('label'+edit1.text) as Tlabel;
1.color:=clred;
..
end
不知这样行吗?

 

C

chamberlin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-06

• #25

接受答案了.

 

C

chamberlin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-06

• #26

我要特别感谢冰火大哥的帮助,也要对MSOFT大哥对我的建议,也希望你们可以成为我的朋
友,好吗?
如果可以的话,写信给我说你们的邮件地址.我的E-MAIL:zhuoyl@163.net

 

冰

冰火

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-06

• #27

关于这个问题，我在多说两句：
1.wmsoft说的很对，chamberlin还需要多学些基本功，有些东西再练练
2.你用Label是不好的一种解决方法，要是数据库里的箱子数目改变了，你还得采用
动态生成Label的方法，Form的大小和布局也需要调整，要是真有1000个箱子，
你的Form得有多大啊？势必要用Scroll Form或ScrollBox等等
3.建议你用表格，然后改行的颜色；或者用CheckboxList，Item动态添加，这样要好
得多，当然，你就需要再看些东西了。
4.有问题上这里来问，没关系的，重要的是，要把问题说清楚，这也需要功夫的，二
是真的是要没辙了，三是要体会别人的思路，然后自己就能把它实现了，总等着
别人写代码是不成的。这次是你初学，也没关系，以后功夫深了，也就不需要别人
把代码写出来才能明白了。
5.我的Email：guestwind@21cn.com，欢迎wmsoft也和我交个朋友，呵呵。

 

W

wmsoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-06

• #28

myemail:wmsoft@21cn.com
http://wmsoft.yeah.net
本论坛是反对个人交往的,不知道版主看了会不会XXX了...