endif endif endif endif use
Command2 中添加的代码： thisform.text1.value=\thisform.text2.value=\thisform.text3.value=\thisform.text4.value=\thisform.text5.value=\thisform.combo1.value=\
thisform.combo1.displayvalue=\男\thisform.edit1.value=\thisform.text1.setfocus
Command3 中添加的代码： thisform.release
（2）建立度读者信息修改表单，保存为“dzxg” 对象名称 Form1 属性名称 Caption Borderstyle Autocenter Maxbutton Minbutton showwindow Command1 Command2 Command3 Command4 Command5 Command6 Command7 Command8 Command1 中添加的代码： thisform.text1.readonly=.f. thisform.text2.readonly=.f. thisform.text3.readonly=.f. thisform.text4.readonly=.f. thisform.text5.readonly=.f. thisform.text6.readonly=.f. thisform.edit1.readonly=.f. Command2 中添加的代码：
Caption Caption Caption Caption Caption Caption Caption Caption 属性值 读者信息修改 3可调对话框 .T. .F. .F. 0-在屏幕中 修改 删除 第一条 最后一条 上一条 下一条 快速定位 返回 use booksinfo exclusive go there
mb=messagebox(\确定要删除吗？\提示\if mb==1 delete pack
thisform.label1.init if nhere>num go bottom thisform.init else
go nhere thisform.init endif endif
Command3 中添加的代码： go top
nhere=recno()
thisform.label8.caption=allt(str(recno())) thisform.command4.enabled=.t. thisform.command6.enabled=.t. thisform.init
Command4 中添加的代码： go bottom nhere=recno()
thisform.label8.caption=allt(str(recno())) thisform.command3.enabled=.t. thisform.command6.enabled=.t. thisform.init
Command5 中添加的代码： skip-1 if bof()
this.enabled=.f.
thisform.command3.enable=.f.
messagebox(\已经到第一条记录了！\提示 go top
nhere=recno() else
thisform.init nhere=recno() endif
thisform.command4.enabled=.t. thisform.command6.enabled=.t. Command6 中添加的代码：
\skip 1 if eof()
thisform.enabled=.f.
thisform.command4.enabled=.f.
messagebox(\已经到最后一条记录了！\提示\ go bottom nhere=recno() else
nhere=recno() thisform.init endif
thisform.command3.enabled=.t. thisform.command5.enabled=.t.
Command7 中添加的代码： sele booksinfo go top
if allt(thisform.text7.value)==\
messagebox(\请输入要查询的内容！\提示\ thisform.text7.setfocus else
locate for allt(书名)=allt(thisform.text7.value) if eof()
go bottom thisform.init
messagebox(\此书不存在，请重新输入！\提示\ thisform.text7.setfocus else
thisform.init endif
nhere=recno() endif
Command8 中添加的代码 thisform.release
8、系统管理模块设计
（1）建立一个新的表单，保存为“yhzc”，部分控件属性： 对象名称 Form1 属性名称 Caption 属性值 用户注册 Borderstyle Autocenter Maxbutton Minbutton showwindow 2-固定对话框 .T. .F. .F. 0-在屏幕中 Command1 Caption Command2 Caption
Command1中添加的代码： select passwordinfo
if allt(thisform.text1.value)==\ thisform.text1.setfocus else
locate for allt(用户名)=allt(thisform.text1.value) if !eof()
messagebox(\用户名已存在，请重新输入！\提示\ thisform.text1.value=\ thisform.text2.value=\ thisform.text1.setfocus() else
if allt(thisform.text2.value)==\
messagebox(\请输入密码！\提示\ thisform.text2.setfocus else
if !allt(thisform.text2.value)==allt(thisform.text3.value)
messagebox(\确认密码错误，请重新输入！\信息提示 thisform.text3.value=\ thisform.text3.setfocus else
append blank
repl 用户名 with allt(thisform.text1.value) repl 密码 with allt(thisform.text2.value) thisform.text1.value=\ thisform.text2.value=\ thisform.text3.value=\ endif endif endif endif
Command2中添加的代码： thisform.release
注册 取消 \
（2）建立一个新的表单，保存为“yhxg”，部分控件属性： 对象名称 Form1 属性名称 Caption Borderstyle Autocenter Maxbutton Minbutton showwindow Command1 Command2 Caption Caption 属性值 修改用户密码 2-固定对话框 .T. .F. .F. 0-在屏幕中 修改 取消
Command1中添加的代码： select passwordinfo
if allt(thisform.text1.value)==\ thisform.text1.setfocus else
locate for allt(用户名)=allt(thisform.text1.value) if eof()
messagebox(\此用户不存在，请重新输入！\提示\ thisform.text1.value=\ thisform.text2.value=\ thisform.text3.value=\ thisform.text4.value=\ thisform.text1.setfocus() else
if !allt(thisform.text2.value)==\
messagebox(\密码错误，请重新输入！\提示\ thisform.text2.value=\ thisform.text3.value=\ thisform.text4.value=\ thisform.text2.setfocus() else
if allt(thisform.text3.value)==\
messagebox(\请输入新密码！\提示\ thisform.text3.setfocus else
if !allt(thisform.text3.value)==allt(thisform.text4.value)
messagebox(\确认密码错误，请重新输入！\提示\ thisform.text4.value=\ thisform.text3.setfocus else
repl 密码 with allt(thisform.text4.value)