11.6.2 更改密码表单的制作

 

11.6.2  更改密码表单的制作

修改密码表单进行管理员密码的修改，只有对已存在的管理员才能对自己的密码进行修改，输入新密码时同样要进行确认。其制作步骤如下：

（1）新建一个表单，在表单上添加四个标签和四个文本框，再在表单上添加两个命令按钮，并按如图11-28所示进行布局，运行结果如图11-29所示。

         

图11-28  设计“更改密码”表单                 图11-29  运行“更改密码”表单

（2）设置表单基本属性。

·    Autocenter：.T.—真。

·    Caption：更改密码。

·    Closenable：.F.—假。

·    Maxbotton：.F.—假。

（3）标签控件的名称如下所示。

·    Caption(Labe11)：管理员。

·    Caption(Labe12)：原密码。

·    Caption(Labe13)：新密码。

·    Caption(Labe14)：确认密码。

（4）所有文本框控件如下所示。

·    IntegraHeight：.T.—真。

·    Fontsize: 12。

·    Fontname:宋体。

（5）双击窗体（Form1），选择过程中的“init”过程事件的代码如下所示。

This.text1.setfocus

（6）双击确定（Command1），编辑其Click事件代码。

m1=alltrim(thisform.text1.value)

m2=alltrim(thisform.text2.value)

m3=alltrim(thisform.text3.value)

m4=alltrim(thisform.text4.value)

OPEN DATABASE 设备数据库

USE 管理员

LOCA FOR 姓名=m1 and 密码=m2

DO case

 CASE m1==""

    MESSAGEBOX("对不起!没有输入管理员姓名!",0+48+0,"注意!")

    Thisform.text1.value=""

    Thisform.text2.value=""

    Thisform.text3.value=""

    Thisform.text4.value=""

    Thisform.text1.setfocus

 CASE found()=.f.

    MESSAGEBOX("对不起!姓名或原密码错误！请重新输入！",0+48+0,"注意!")

    Thisform.text1.value=""

    Thisform.text2.value=""

    Thisform.text3.value=""

    Thisform.text4.value=""

    Thisform.text1.setfocus

  CASE m3==""

    MESSAGEBOX("对不起!密码不能为空值!请重新输入!",0+48+0,"注意!")

    thisform.text3.value=""

    thisform.text4.setfocus

    thisform.text3.setfocus

  CASE m4<>m3

    MESSAGEBOX("对不起，确认密码错误，请重新输入！",0+48+0,"注意！")

    thisform.text3.value=""

    thisform.text4.setfocus

    thisform.text3.setfocus

  OTHERWISE

     REPL 密码with m3

     MESSAGEBOX("你的密码已更改！请记住新密码！",0+48+0,"注意！")

     Thisform.text1.value=""

     Thisform.text2.value=""

     Thisform.text3.value=""

     Thisform.text4.value=""

     Thisform.release

 ENDCASE

（7）双击取消按钮（Command2），编辑其Click事件代码。

Thisform.release

（8）将该表单保存为“密码管理”。