管理信息系统开发上机指导3.doc

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

1、第三次上机完成任务1、完成全局变量存放模块（Modulel）的制作（可参照附录1）2、完成登陆界面（login）的制作（可参照附录2）3、完成“系统管理”菜单下所有窗体的制作（可参照附录3）4、每一部分完成后单独进行测试附录1：模块Module11、创建模块Module1：存放公用变量OptionExplicitPublicPublicPublicPublicPublic丿标记连接对象'标记所选择的菜单'标记当前用户ID，标记用户权限'要借的书的編号2、结构内容如下图卜-Iodulel(Code)口回冈

2、GE用）▼

3、時明）connAsNewADOBE.Connectionselect_menuAsStringuserIDAsStringuserpowAsStringbook_numAsString附录2：登陆验证1、窗体名称：login2、窗体外观ZSitxtuser-txtpwdCommand13、窗体代码＞打开窗体、连接数据库OptionExplicitDimcutAsInteg；Qr'记录确定次数PrivateSubCommand2_Click0'点击“取消"按钮重置界面UnloadMeEnd.SubPrivateSub

4、Form_Load0'打开窗体时连接数据库DimconnectionstringAsStringconnectionstring="provider=Microsoft.Jet.oledb.4.0;&_"datasource二book.mdb，vconn・0p©nconnectionstringent=0EndSub＞判断权限FrivateSubCommandl_C1ick0DimsqlAsStringDimrs_loginAsNewADODB.RecordsetIfTrim(txtuser.Text)=Then'

5、判断输入的用户名是否为空MsgBox"没有这个用户"丿vbOKOnly+vbExclamation?txtuswr.SmtFocusElsesql="select*from系统管理where用户名二'"&txtuser.Text&rs_login.0pensql,conn,adOpenKeyset丿adLockPessimisticIfrs_login.EOF=TrueThenMsgBox"没有这个用户"丿vbOKOnly+vbExclamation?txtus*SmtFocusElse?检验密码是否正确IfTri

6、m(rsjogin.Fields(1))=Trim(txtpwd.Text)ThenuserID=txtuser.Textuserpow=rs_login.Fields(2)rs_logireClose

7、UnloadMeForm2.ShowElseMsgBox"密码不正确"丿vbOKOnly+vbExclamation?txtpwd.SmtFocusEndIfEndIfEndIfcrit=crit+1Ifent=3ThenUnloadMeEndIfExitSubEndSub附录3：“系统管理”4.3.1注册用户1、

8、外观2、窗体代码PrivateSubCommandl_C1ick()DimsqlAsStringDimrs_addAsNewADODB.RecordsetIfTrimCTextl.Text)="ThenMsgBox"用戶名不能为空"，vbOKOnly+vbExclnation.ExitSubTextl.SetFocusElsesql="select*from系统管理“rs_add.Opensql,conn,adOpenKeyset,adLockPessimisticWhile(rs.add.EOF=False)If

9、Trim(rs_add.Fields(0))=Trim(Textl.Text)Then检查用戶是否存在MsgBox"己有这个用户"'vbOKOnly+vbExclamatioikTextl.SetFocus'如臬用户存在洁空所看信息Textl.T@xt=Text2.Text=Text3.Text=Combol.Text=ExitSubElsers_add.MoveNextEndIfWendIfTrim(Text2.Text)OTrimCText3.Text)ThenMsgBox"两次密码不一致笃vbOKOnly+v

10、bExclamation^""Text2.SetFocusText2.Text="Text3.Text=ExitSubElselfTrim(Combol.Text)◊"system'AndTrim(Combol.Text)◊"guest"ThenMsgBox"谙选择正确的用户权顒SvbOKOnly+vbExclnation,"“Combol.SetFocus