Command3 Caption 返回
Command1中添加如下代码： use booksinfo
if allt(thisform.text1.value)==\
messagebox(\请输入完整的必要信息！\提示\ thisform.text1.setfocus else
if allt(thisform.text2.value)==\
messagebox(\请输入完整的必要信息！\提示\ thisform.text2.setfocus else
if allt(thisform.text3.value)==\
messagebox(\请输入完整的必要信息！\提示\ thisform.text3.setfocus else
if allt(thisform.text4.value)==\
messagebox(\请输入完整的必要信息！\提示\ thisform.text4.setfocus else
if allt(thisform.text5.value)==\
messagebox(\请输入完整的必要信息！\提示\ thisform.text5.setfocus else
if allt(thisform.text6.value)==\
messagebox(\请输入完整的必要信息！\提示\ thisform.text6.setfocus else
if allt(thisform.text7.value)==\
messagebox(\请输入完整的必要信息！\提示\ thisform.text7.setfocus else
append blank
repl 书号 with allt(thisform.text1.value) repl 编号 with allt(thisform.text2.value) repl 书名 with allt(thisform.text3.value) repl 作者 with allt(thisform.text4.value) repl 出版社 with allt(thisform.text5.value) repl 定价 with allt(thisform.text6.value) repl 册数 with allt(thisform.text7.value) repl 备注 with allt(thisform.edit1.value) repl 入库日期 with date() thisform .command2.click endif
endif endif endif endif endif endif use
command2中添加如下代码： thisform.text1.value=\thisform.text2.value=\thisform.text3.value=\thisform.text4.value=\thisform.text5.value=\thisform.text6.value=\thisform.text7.value=\thisform.edit1.value=\thisform.text1.setfocus
command2中添加如下代码： command3中添加如下代码： thisform.release
（2） 设计图书信息修改表单
建立一个新的表单，保存为“xxxg”，部分控件属性如下： 对象名称 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.
Caption Caption Caption Caption Caption Caption Caption Caption 属性值 图书信息修改 3可调对话框 .T. .F. .F. 0-在屏幕中 修改 删除 第一条 最后一条 上一条 下一条 快速定位 返回 thisform.text5.readonly=.f. thisform.text6.readonly=.f. thisform.edit1.readonly=.f. Command2中添加的代码： use booksinfo exclusive go nhere
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.command5.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
7、读者模块设计
（1）建立表单保存为“dzlr” 对象名称 属性名称 属性值 Form1 Caption Borderstyle Autocenter Maxbutton Minbutton showwindow 录入图者信息 3-可调对话框 .T. .F. .F. 0-在屏幕中 确定 重填 返回 Command1 Command2 Command3 Caption Caption Caption Command1 中添加的代码： use readerinfo
if allt(thisform.text1.value)==\
messagebox(\请输入完整的必要信息！\提示\ thisform.text1.setfocus else
if allt(thisform.text2.value)==\
messagebox(\请输入完整的必要信息！\提示\ thisform.text2.setfocus else
if allt(thisform.text4.value)==\
messagebox(\请输入完整的必要信息！\提示\ thisform.text3.setfocus else
if allt(thisform.text5.value)==\
messagebox(\请输入完整的必要信息！\提示\ thisform.text4.setfocus else
append blank
repl 读者编号 with allt(thisform.text1.value) repl 姓名 with allt(thisform.text2.value) repl 年龄 with allt(thisform.text3.value)
repl 联系电话 with allt(thisform.text4.value) repl 详细地址 with allt(thisform.text5.value) repl 压金 with val(allt(thisform.text6.value)) repl 备注 with allt(thisform.edit1.value) repl 注册日期 with date()
if allt(thisform.combo1.value)==\
repl 性别 with allt(thisform.combo1.displayvalue) else
repl 性别 with allt(thisform.combo1.value) endif
thisform.command2.click
百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库vfp(2)在线全文阅读。
相关推荐：