姓名：xxx
班级：xxx
学号：xxxxxxxx
指导教师：xxx
xxxx大学。
xxxx年xx月xx日。
一、实验目的。
1、掌握visual basic的语言特点和编程技巧，熟悉控件的属性、事件和方法。
2、熟悉管理信息系统创建的全部过程。
3、掌握用ado控件访问数据库的技术，实现在数据库中的添加、查询和删除等操作。
4、为了方便对学生基本信息、出勤、调度等情况进行综合分类管理，方便查询，实现办公的信息化。
二、实验工具。
1、前台开发工具选择visual basic 6.0
2、后台数据库选择access
三、实验功能。
能够实现对学生的各种信息的查询，包括浏览，以及对学生调动信息的添加、删除和编辑操作；也可以根据输入的信息来检索学生的相关信息。管理人员还可以直接添加和删除用户信息。
系统的功能模块图如下：
四、实验内容。
1、数据库设计。
建一空的数据库使用程序设计器建立系统需要的**，包括学生调度信息表（alterationinfo），学生基本信息表（stuffinfo），用户表（userinfo）。
2、连接数据库。
在visual basic环境下，选择“工程”—“引用”命令，在对话框中选择microsoft activex data objects 2.0library。在程序设计的公共模块中定义ado连接对象。
语句如下：
dim con as
dim strconnection as string
dim strarray() as string
set con = new 创建连接。
set rs = new 创建记录集。
on error goto transactsql_error
strconnection = provider= source="
strarray = split(sql)
3、界面设计。
1）创建主窗体。
首先创建一个工程，命名为学生档案管理系统，选择“工程”—“添加mdi窗体”命令，该窗体可以同时显示多个文档，每个文档显示在各自窗体中。
2）创建子窗体。
选择“工程”—“添加窗体”命令，添加子窗体。将属性mdichild改成true，则这个窗体成为mdi窗体的子窗体。（各窗体见程序）
4、建立公共模块。
在菜单中选择“工程”—“添加模块”命令。**如下：
public gusername as string保存用户名称。
public flag as integer添加和修改的标志。
public gsql as string保存sql语句。
public iflag as integer数据库是否打开标志。
public conn as new
public function transactsql(byval sql as string) as
dim con as
dim rs as
dim strconnection as string
dim strarray() as string
set con = new 创建连接。
set rs = new 创建记录集。
on error goto transactsql_error
strconnection = provider= source="
strarray = split(sql)
strconnection打开连接。
if strcomp(ucase$(strarray(0)),select", vbtextcompare) =0 then
trim$(sql), con, adopenkeyset, adlockoptimistic
set transactsql = rs返回记录集。
iflag = 1
elsesql执行命令。
iflag = 1
end if
transactsql_exit:
set rs = nothing
set con = nothing
exit function
transactsql_error:
msgbox "查询错误："
iflag = 2
resume transactsql_exit
end function
public sub tabtoenter(key as integer)
if key = 13 then判断是否为回车键。
sendkeys "{tab转换为tab键。
end if
end sub
sub main()
dim flogin as new frmlogin
vbmodual显示窗体。
end sub
5、**设计（部分**略）
添加调动信息窗体的**：
private sub add_alter_click添加调动信息。
flag = 1
= "添加学生调动信息"
end sub
登录窗体的**：
private sub cmdok_click()
dim sql as string
dim rs as
if trim( =then
msgbox "没有输入用户名称，请重新输入！",vbokonly + vbexclamation, "警告"
else查询用户。
sql = select * from userinfo where userid='"
set rs = transactsql(sql)
if iflag = 1 then
if = true then
msgbox "没有这个用户，请重新输入！",vbokonly + vbexclamation, "警告"
elseif trim( =trim( then
gusername = trim( '保存用户名称。
unload me
elsemsgbox "密码不正确，请重新输入！",vbokonly + vbexclamation, "警告"
end if
end if
elseunload me
end if
end if
pwdcount = pwdcount + 1判断输入次数。
if pwdcount = 3 then
unload me
exit sub
end if
end sub
private sub form_load()
pwdcount = 0
username =
end sub
private sub password_keydown(keycode as integer, shift as integer)
tabtoenter keycode
学生档案管理系统
苏州科技学院电子信息与信息实验中心。面向对象课程设计报告。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 增加学生档案...
学生档案管理系统
分析与设计。课题组成员 陈业启。分析设计 陈业启。审核定稿 陈业启。设计日期 2007 4 10 2007 4 21一 项目名称3 二 内容。1 问题定义与可行性研究。1 问题定义 3 2 可行性分析 4 2 需求分析报告。1 需求规格说明 5 2 数据流图 8 3 概要设计12 4 详细设计。子模...
学生档案管理系统
计算机综合信息处理作业。学生档案管理系统。姓名 准考证号 专业 2002级计算机信息管理专业。所在单位 山东大学信息科学与工程学院。摘要。学生档案管理系统是典型的信息管理系统 mis 其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强 数据安全...