最详细的学生档案管理系统

《最详细的学生档案管理系统》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、VB高级程序开发学生档案管理系统学生档案管理系统目录一、标准模块（公共部分）11：PublicVar12：OPeratDataBase1二、窗体31：A院设置32：A系设置83：A班级设置144：B基本信息215：B家庭基本成员信息276：B学籍报告337：B学籍异动378：B学期注册429：B学生查询4510：C课程查询4811：C课程分配5112：C新增课程5513：D成绩单生成6214：D成绩录入6615：D成绩评审7016：E奖惩查询7417：E奖惩单生成7718：E奖惩录入7919：F数据库连接8420：G登录8521：G密码维护8722：G用户管理8923

2、：学生档案管理94学生档案管理系统—标准模块（公共部分）一、标准模块（公共部分）1：PublicVarPublicMenuIndexAsInteger'保存用户选择的菜单PublicLoginSucceededAsBoolean'用户登录标志PublicUserIDAsString'用户IDPublicConnectionStringAsString'数据库连接字符串2：OPeratDataBasePublicFunctionGetConnStr()AsString'得到数据库连接字符串，用户可以在此处设置连接字符串'UserID是数据库用户ID，Password是登

3、陆密码'InitialCatalog是数据库名，DataSource是服务器名称GetConnStr=ConnectionStringEndFunctionPublicFunctionOpenConn(ByRefConnAsADODB.Connection)AsBoolean'打开数据库连接，连接成功返回true，出错时返回falseSetConn=NewADODB.Connection'出错处理OnErrorGoToErrorHandleConn.OpenGetConnStrOpenConn=TrueExitFunctionErrorHandle:MsgBox"连接

4、数据库失败！请重新连接！"OpenConn=FalseExitFunctionEndFunctionPublicSubExecuteSQL(ByValSQLAsString,ByRefmsgAsString)'执行SQL语句DimConnAsADODB.ConnectionDimsTokens()AsString'出错处理OnErrorGoToErrorHandle'判断SQL语句sTokens=Split(SQL)IfInStr("INSERT,DELETE,UPDATE",UCase((sTokens(0))))Then'打开数据库连接IfOpenConn(Con

5、n)ThenConn.ExecuteSQLmsg=sTokens(0)&"操作执行成功！"EndIfElsemsg="SQL语句有误："&SQLEndIfFinally_Exit:Setrst=NothingSetConn=NothingExitSubErrorHandle:msg="执行错误:"&Err.DescriptionResumeFinally_ExitEndSubPublicFunctionSelectSQL(ByValSQL_AsString,ByRefmsgAsString)AsADODB.Recordset'执行SQL语句，返回ADODB.Recor

6、dsetDimConnAsADODB.Connection第96页共98页学生档案管理系统—标准模块（公共部分）DimrstAsADODB.RecordsetDimsTokens()AsString'出错处理OnErrorGoToErrorHandle'判断SQL语句sTokens=Split(SQL)IfInStr("SELECT",UCase((sTokens(0))))Then'打开数据库连接IfOpenConn(Conn)ThenSetrst=NewADODB.Recordsetrst.CursorLocation=adUseClientrst.OpenTri

7、m$(SQL),Conn,adOpenDynamic,adLockOptimisticSetSelectSQL=rstmsg="查询到"&rst.RecordCount&"条记录!"EndIfElsemsg="SQL语句有误："&SQLEndIfFinally_Exit:Setrst=NothingSetConn=NothingExitFunctionErrorHandle:MsgString="查询错误:"&_Err.DescriptionResumeFinally_ExitEndFunctionPublicFunctionBatchSelectS