管理信息系统开发上机指导6

《管理信息系统开发上机指导6》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、第6次上机完成任务1、完成“添加读者类别”模块（可参考附录1）2、完成“修改读者类别”模块（可参考附录2）3、完成“读者借阅”模块（可参考附录3）4、完成“用户信息管理”模块（可参考附录4）附录1:添加读者类别1＞添加读者类别(fmiaddreaderstyle)窗体外观2、窗体代码OptionExplicitDim"t/ylmAsNewABODE.RecordsetFrivateSubCommandl_C1ick()DimsqlAsStringIfTrim(Textl.Text)=ThenHsgBox“读者种类不能为空vbOKOn

2、ly+Textl.SetFocusExitSubEndI£IfTrim(Text2.Text)=ThenMsgBox“借书数星不能为空：vbOKOnly+Text2.SetFocusExitSubEndI£IfTrim(Text3.Text)=ThenMsgBox"借书期限不能为空"丿vbOKOnly+Text3.SetFocusExitSubEndI£IfTrim(Text4.Text)=ThenMsgBox"有限期瓯不能为空"丿vbOKOnly+Text4.SetFocusvbExclamation」vbExclamation」

3、vbExclamation」vbExclamation」CfCfCfCfCfCfCfCfExitSubEndI£sql="select*from读者类别where种类名称三"&Textl.Text&rspreaderstyle.Opensql?conn丿adOpenKeyseadLockPessimisticI厂srsrsrsrsrsMliBox"添加读者类别成功？：vbOKOnly,rsreaderstyle.CIqegElse-MsgBox"读者类别重复？"丿vbOKOnly+vbExclamation,Textl・SetFoc

4、usTextl.Text=""rspreaderstyle.CloseExitSubEndIf“adertyle.EOFThenreaderstyle.Addllewreaderstyle.Fields(0)readerstyle.Fields(1)readerstyle.Fields(2)readerstyle.Fields(3)readerstyle.%賽1e..=Trim(Textl.Text)=CIntCText2.Text)=CIntCText3.Text)=CIntCText4.Text)CfCfEndSub附录2：修改

5、读者类别1＞修改读者类别(fondderstyle)窗体外观2、窗体代码代码参照：frmmodifyreaderstyle附录3：“读者借阅”窗体1>名称frmbonowbook2、窗体外观3、窗体代码代码部分根据自己的功能设计自行编写附录4：“用户信息管理”窗体用户信息管理1、用户信息管理(frmFeaderinfo)窗体外观2、窗体代码代码参照：frmmodifyreaderstyle