
1.在表单的MinButton和MaxButton中,设置.F.;表单的BorderStyle设为0
2.在optiongroup的click事件或InterActiveChange事件中,输入如下代码:
if this.value=2
thisform.Text1.enabled=.t.
thisform.Spinner1.enabled=.t.
thisform.refresh
endif
3.在command2的click事件中输入如下CODE:thisform.release就可以退出表单了。
4.这个要自己去调整了。
这是用表单做的,新建表单,将表单的caption属性改成“教材信息管理”,然后添加一个标签控件,将他额caption属性改成“登录界面”,同样再弄2个标签控件,分别将caption改成“用户名”“密码”,在这两个标签后面分别加个文本框,然后下面加2个命令按钮,把他们的caption变成“确定”“退出”,这样就可以。我看你这个图,文本框是不是不可用啊,如果是只读,你就把文本框的readonly属性变成t-真就可以,还有问题再问我啊~~
双击“确定”按钮,打开其click代码窗口,输入t=1
for n=1 to val(allt(thisform.text1.value))
t=t*n
endfor
thisform.la1.caption=allt(str(t))
thisform.refresh
然后再双击“退出”按钮,输入
thisform.release
下面就可以运行了。
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)