能不能改成每次进入密码为空，每次都需要输入密码？表单click如下，请帮忙修改：
set exact on
stor thisform.text1.value to mm_mm
stor to mm_gd
   if mm_mm ="979899"
    thisform.label3.caption= "密码正确"
    thisform.label3.fonTsize = 20
    release thisform        
    do  sys(5)-"\gzgl\zcd.mpr"   
   else
    thisForm.label3.Caption = "密码错误，请重输！！ "
   endif  
*   stor "  "  to thisform.texword.value

你在表单的init事件中写一行thisform.text1.value=""

在程序用固定的密码进入，岂不是形同虚设？

像2楼说的 先清空 再输入

主要是为了防止外人进入，谢谢！还是这的高手多啊，这个程序找了好多人解决不了，问题已解决，非常感谢！

嘎嘎