【vfp精品源码栏目提醒】:网学会员为需要vfp精品源码的朋友们搜集整理了VFP小说租阅管理系统源代码 - 毕业设计相关资料,希望对各位网友有所帮助!
查询:LPARAMETERS cName cClass继续查询:LPARAMETERS cName cClass确定:thisform.release进入:do form 密码thisform.release退出:set sysmenu to defaclear eventquit密码_确定loca for 密码alltrimthisform.text1.valueif founddo 菜单 1.mprthisform.releaseelsemessagebox密码错误,请重新输入!416512提示信息thisform.text1.setfocusendif密码修改_修改public cncn0loca for 密码alltrimthisform.text1.valueif 密 码 alltrimthisform.text1.value orlenalltrimthisform.text1.value0cncn1messagebox原有密码输入错误!请重新输入!16提示信息thisform.text1.valuethisform.command1.enabled.t.elsethisform.refreshthisform.command1.enabled.f.thisform.text1.enabled.f.thisform.text2.enabled.t.thisform.command4.enabled.t.endif密码修改_确定thisform.text2.enabled.f.thisform.label3.visible.t.thisform.text3.visible.t.thisform.command4.enabled.f.thisform.command2.enabled.t.密码修改_保存if messagebox是否保存修改后的密码?4320提示信息6if alltrimthisform.text2.valuealltrimthisform.text3.value orlenalltrimthisform.text2.value0 orlenalltrimthisform.text3.value0cncn2tablerevert.f.messagebox确认新密码与输入新密码不一致或输入密码为空,无效!请重新输入!16提示信息thisform.text1.enabled.f.thisform.text2.enabled.t.thisform.text2.valuethisform.label3.visible.f.thisform.text3.visible.f.thisform.text3.valuethisform.command1.enabled.f.thisform.command4.enabled.t.thisform.command2.enabled.f.elsetableupdate.f.replace 密码 with thisform.text2.valuemessagebox您的密码修改成功!请您记住修改后密码!0480提示信息thisform.text2.enabled.f.thisform.text2.valuethisform.text1.enabled.t.thisform.text1.valuethisform.label3.visible.f.thisform.text3.visible.f.thisform.text3.valuethisform.command1.enabled.t.thisform.command2.enabled.f.thisform.command4.enabled.f.endifendif添加删除_第一个:if recno1 thencMessageTitle警告cMessageText这是第一条记录!nDialogType048256nAnswermessageboxcMessageTextnDialogTypecMessageTitleelsego topthisform.commandgroup1.command1.enabled.f.thisform.commandgroup1.command2.enabled.f.thisform.commandgroup1.command3.enabled.t.thisform.commandgroup1.command4.enabled.t.thisform.commandgroup1.command5.enabled.t.thisform.commandgroup1.command6.enabled.t.thisform.commandgroup1.command7.enabled.t.thisform.commandgroup1.command8.enabled.t.thisform.refreshendif添加删除_上一个:if recno1 thencMessageTitle警告cMessageText这是第一条记录!nDialogType048256nAnswermessageboxcMessageTextnDialogTypecMessageTitleelseskip -1if bofskipthisform.commandgroup1.command2.enabled.f.thisform.commandgroup1.command1.enabled.f.endifthisform.commandgroup1.command3.enabled.t.thisform.commandgroup1.command4.enabled.t.thisform.commandgroup1.command5.enabled.t.thisform.commandgroup1.command6.enabled.t.thisform.commandgroup1.command7.enabled.t.thisform.commandgroup1.command8.enabled.t.thisform.refreshendif添加删除_下一个:if recnoreccount thencMessageTitle警告cMessageText这是最后一条记录,没有下一条记录!nDialogType048256nAnswermessageboxcMessageTextnDialogTypecMessageTitleelseskipif eofthisform.commandgroup1.command3.enabled.f.thisform.commandgroup1.command4.enabled.f.endifthisform.commandgroup1.command1.enabled.t.thisform.commandgroup1.command2.enabled.t.thisform.commandgroup1.command5.enabled.t.thisform.commandgroup1.command6.enabled.t.thisform.commandgroup1.command7.enabled.t.thisform.commandgroup1.command8.enabled.t.thisform.refreshendif添加删除_最后一个:if recnoreccount thencMessageTitle警告cMessageText这是最后一条记录!nDialogType048256nAnswermessageboxcMessageTextnDialogTypecMessageTitleelsegoto reccountgo bottomthisform.commandgroup1.command1.enabled.t.thisform.commandgroup1.command2.enabled.t.thisform.commandgroup1.command3.enabled.f.thisform.commandgroup1.command4.enabled.f.thisform.commandgroup1.command5.enabled.t.thisform.commandgroup1.command6.enabled.t.thisform.commandgroup1.command7.enabled.t.thisform.commandgroup1.command8.enabled.t.thisform.refreshendif添加删除_添加:sele 小说自然资料 1if messagebox是否添加新记录?4480提示信息6thisform.txt 编号.readonly.f.thisform.txt 书系.readonly.f.thisform.txt 书名.readonly.f.thisform.txt 作者.readonly.f.thisform.txt 出版社.readonly.f.thisform.txt 出版时间.readonly.f.thisform.txt 印刷数目.readonly.f.thisform.txt 定价.readonly.f.thisform.edt 书中人物.readonly.f.thisform.txt 主人公.readonly.f.thisform.edt 内容提要.readonly.f.append blankendifthisform.refresh添加删除_删除:if messagebox是否删除此记录!4480提示信息6sele 小说自然资料 1deleteset delete ongo topskipendifthisform.refresh添加删除_修改:sele 小说自然资料 1if messagebox是否修改本记录?4480提示信息6thisform.txt 编号.readonly.f.thisform.txt 书系.readonly.f.thisform.txt 书名.readonly.f.thisform.txt 作者.readonly.f.thisform.txt 出版社.readonly.f.thisform.txt 出版时间.readonly.f.thisform.txt 印刷数目.readonly.f.thisform.txt 定价.readonly.f.thisform.edt 书中人物.readonly.f.thisform.txt 主人公.readonly.f.thisform.edt 内容提要.readonly.f.endif添加删除_保存sele 小说自然资料 1if messagebox是否修改本记录?4480提示信息6thisform.txt 编号.readonly.f.thisform.txt 书系.readonly.f.thisform.txt 书名.readonly.f.thisform.txt 作者.readonly.f.thisform.txt 出版社.readonly.f.thisform.txt 出版时间.readonly.f.thisform.txt 印刷数目.readonly.f.thisform.txt 定价.readonly.f.thisform.edt 书中人物.readonly.f.thisform.txt 主人公.readonly.f.thisform.edt 内容提要.readonly.f.endif退出_返回do 菜单 1.mprthisform.release退出_退出set sysmenu to defaclea eventquit综合查询_opeiongroup1LPARAMETERS cName cClassnthis.valuedo case case n1 thisform.text1.enabled.t. thisform.combo1.enabled.f. thisform.combo2.enabled.f. thisform.combo3.enabled.f. thisform.refresh case n2 thisform.combo1.enabled.t. thisform.text1.enabled.f. thisform.combo2.enabled.f. thisform.combo3.enabled.f. thisform.refresh case n3 thisform.combo2.enabled.t. thisform.text1.enabled.f. thisform.combo1.enabled.上一篇:【精品】程序员成功之路