目录。一、标准模块（公共部分） 1
1：publicvar 1
2：operatdatabase 1
二、窗体 3
1：a院设置 3
2：a系设置 8
3：a班级设置 14
4：b基本信息 21
5：b家庭基本成员信息 27
6：b学籍报告 33
7：b学籍异动 37
8：b学期注册 42
9：b学生查询 45
10：c 课程查询 48
11：c课程分配 51
12：c 新增课程 55
13：d成绩单生成 62
14：d成绩录入 66
15：d成绩评审 70
16：e奖惩查询 74
17：e奖惩单生成 77
18：e奖惩录入 79
19：f数据库连接 84
20：g登录 85
21：g密码维护 87
22：g用户管理 89
23：学生档案管理 94
一、标准模块（公共部分）
1：publicvar
public menuindex as integer '保存用户选择的菜单。
public loginsucceeded as boolean '用户登录标志。
public userid as string '用户id
public connectionstring as string '数据库连接字符串。
2：operatdatabase
public function getconnstr() as string
得到数据库连接字符串，用户可以在此处设置连接字符串。
user id 是数据库用户id，password是登陆密码。
initial catalog是数据库名，data source是服务器名称。
getconnstr = connectionstring
end function
public function openconn(byref conn as as boolean
打开数据库连接，连接成功返回true，出错时返回false
set conn = new
'出错处理。
on error goto errorhandle
getconnstr
openconn = true
exit function
errorhandle:
msgbox "连接数据库失败！请重新连接！"
openconn = false
exit function
end function
public sub executesql(byval sql as string, byref msg as string)
执行sql语句。
dim conn as
dim stokens() as string
'出错处理。
on error goto errorhandle
'判断sql语句。
stokens = split(sql)
if instr("insert,delete,update", ucase((stokens(0)))then
'打开数据库连接。
if openconn(conn) then
sqlmsg = stokens(0) &操作执行成功！"
end if
elsemsg = sql语句有误：" sql
end if
finally_exit:
set rst = nothing
set conn = nothing
exit sub
errorhandle:
msg = 执行错误： "
resume finally_exit
end sub
public function selectsql(byval sql _
as string, byref msg as string) as
执行sql语句，返回。
dim conn as
dim rst as
dim stokens() as string
'出错处理。
on error goto errorhandle
'判断sql语句。
stokens = split(sql)
if instr("select", ucase((stokens(0)))then
'打开数据库连接。
if openconn(conn) then
set rst = new
= aduseclient
trim$(sql), conn, adopendynamic, adlockoptimistic
set selectsql = rst
msg = 查询到" &条记录！ "
end if
elsemsg = sql语句有误：" sql
end if
finally_exit:
set rst = nothing
set conn = nothing
exit function
errorhandle:
msgstring = 查询错误： "
resume finally_exit
end function
public function batchselectsql(byval sql _
as string, byref msg as string) as
执行sql语句，返回批处理的。
dim conn as
dim rst as
dim stokens() as string
'出错处理。
on error goto errorhandle
'判断sql语句。
stokens = split(sql)
if instr("select", ucase((stokens(0)))then
'打开数据库连接。
if openconn(conn) then
set rst = new
= aduseclient
trim$(sql), conn, adopendynamic, adlockbatchoptimistic
set batchselectsql = rst
msg = 查询到" &条记录！ "
end if
elsemsg = sql语句有误：" sql
end if
finally_exit:
set rst = nothing
set conn = nothing
exit function
errorhandle:
msgstring = 批查询错误： "
resume finally_exit
end function
二、窗体。1：a院设置。
1）界面。2）**。
dim rs as
dim sql as string
dim msg as string
dim index as integer
学生档案管理系统
苏州科技学院电子信息与信息实验中心。面向对象课程设计报告。2015年4月10日。目录。1 课程设计任务概述 1 1.1 选择目的与意义 1 1.2 设计任务与要求 1 1.3 开发环境以及工具 1 2 系统需求分析 2 2.1 系统功能分析 2 2.2 用例图及用例说明 3 2.2.1 增加学生档案...
学生档案管理系统
姓名 xxx 班级 xxx 学号 xxxxxxxx 指导教师 xxx xxxx大学。xxxx年xx月xx日。一 实验目的。1 掌握visual basic的语言特点和编程技巧，熟悉控件的属性 事件和方法。2 熟悉管理信息系统创建的全部过程。3 掌握用ado控件访问数据库的技术，实现在数据库中的添加 ...
学生档案管理系统
分析与设计。课题组成员 陈业启。分析设计 陈业启。审核定稿 陈业启。设计日期 2007 4 10 2007 4 21一 项目名称3 二 内容。1 问题定义与可行性研究。1 问题定义 3 2 可行性分析 4 2 需求分析报告。1 需求规格说明 5 2 数据流图 8 3 概要设计12 4 详细设计。子模...