(4)在表单中添加文本框控件,为其设定属性: PasswordChar=* Name=kImm ClickEvent=用户自定义过程 FontName=宋体 (5)在表单中添加标签,设定属性: Caption操作口令 FontName=宋体 (6)为命令按钮一设计方法程序代码: if trim(thisform. klmm value)pass if messagebox(“请重新输入口令",0+16,"提示")=1 thisform. klmm setfocus endif endif if trim(thisform. klmm value)=pass do form系统主程序Scx release thisform endif（4）在表单中添加文本框控件，为其设定属性： PasswordChar=* Name=klmm ClickEvent=用户自定义过程 FontName=宋体 （5）在表单中添加标签，设定属性： Caption=操作口令 FontName=宋体 （6）为命令按钮一设计方法程序代码： if trim(thisform.klmm.value)<>'pass' if messagebox(“请重新输入口令",0+16,"提示")=1 thisform.klmm.setfocus endif endif if trim(thisform.klmm.value)='pass' do form 系统主程序.scx release thisform endif