Question

delphi 多个EDIT 不能为空，还有DELPHI的按钮太丑了 有什么插件推荐么？

begin
if edt1.Text=''
edt5.Text=''
edt7.Text=''
edt8.Text=''
edt9.Text=''
edt5.Text=''
then
MessageBox(handle,'请填写完整信息！','Error',MB_ICONHAND);

这句判断怎么写 我不想 很多个IF 来写这句话啊。
还有一个就是SQL 查询语句 ，1个表20个字段，查询时1个字段不查询，其余19个需要显示，需要19个字段全写上去么？那么麻烦？

Answer 1

if (edt1.Text='' ) or
(edt5.Text='' ) or
(edt7.Text='') or
( edt8.Text='') or
( edt9.Text='') or
(edt5.Text='')
then

还有一个就是SQL 查询语句
这个不太可能,只能全写上去

按钮太丑了
如果你用的是D2005以上,可以用在单元里加上XPMan或从D2005中复制一个过来,其实就是加了一个manifest资源

Answer 2

1. 第三方控件 raize 挺好看的，可以试一下
   

2. 觉得麻烦用select * 啊，应该没什么影响吧
   

Answer 3

其实不丑，你设置一下就比较漂亮的
if (edt1.Text='' ) or
( edt5.Text='' ) or
( edt7.Text='') or
( edt8.Text='') or
( edt9.Text='') or
( edt5.Text='') or
then

Dev的比较漂亮，Suipack的也可以