编写一个判断登陆语句,编译通过,但运行后按钮还是灰色的
str:=AdoQuery1.fieldbyname('权限名称').AsString;
if str='进货单' then
manage.Button1.Enabled:=true;
if str='销售单' then
manage.Button2.Enabled:=true;
费了老大劲后来修改为
if str='进货单' then
begin
manage.Button1.Enabled:=true;
end;
if str='销售单' then
begin
manage.Button2.Enabled:=true;
end;
登录后按钮显示正常。请教为什么不加begin end编译能通过却不正常,应该什么情况下加,什么情况下不加
谢谢!
str:=AdoQuery1.fieldbyname('权限名称').AsString;
if str='进货单' then
manage.Button1.Enabled:=true;
if str='销售单' then
manage.Button2.Enabled:=true;
费了老大劲后来修改为
if str='进货单' then
begin
manage.Button1.Enabled:=true;
end;
if str='销售单' then
begin
manage.Button2.Enabled:=true;
end;
登录后按钮显示正常。请教为什么不加begin end编译能通过却不正常,应该什么情况下加,什么情况下不加
谢谢!
解决方案 »
- image滚动问题
- 求一个类似10进制加法的算法!
- 请问怎么在Excel中按月份填写相应子表内容?
- 三层开发的一个典型难题,大家讨论一下,特请[斑竹]及高手们指点一下,解决后再散分并共享详细案例
- 如何用DELPHI制作功能键(快捷键)--在线等(急)!
- 为什么现在的D5的升级安装包,现在安装不了?
- 数据量巨大(54万行),用FastReport打印遇到麻烦!
- 我用SQL server+DElphi中的ADO做数据应用程序,数据库备份后,怎样实现数据库的恢复?
- 请问如何释放资源
- 我要使用ExtractIcon函数?不知道如何声明API???
- 夜宿魔鬼城
- SaveToStream 的时候提示:Abstract Error
其实,我觉得你应该这样写.
if str='进货单' then
begin
manage.Button1.Enabled:=true;
manage.Button2.Enabled:=false;
end;
if str='销售单' then
begin
manage.Button2.Enabled:=true;
manage.Button1.Enabled:=false;
end;