1、 课 程 设 计课 程 设 计 学学 号号 班班 级级 姓姓 名名 指导教师指导教师 2013 年年 3 月月 14 日日 课 程 设 计 任 务 书课 程 设 计 任 务 书 一、课程设计时间一、课程设计时间 20122013 第 2 学期 第 3 周，共计 1 周，20 学时。 二、课程设计内容二、课程设计内容 以 VB+Access 组合， 实现同学通讯录信息管理。 用户界面中的菜单至少应包括 “同 学信息的数据维护”“同学信息查询（根据姓名，或编号等。 ） ”“显示全部同学信 息”“退出”四项。自行设计数据库的表结构。 三、课程设计要求三、课程设计要求 程序质量： 贯彻事件驱动的程序设
2、计思想。 用户界面友好，功能明确，操作方便；可以加以其它功能或修饰。 代码应适当缩进，并给出必要的注释，以增强程序的可读性。 课程设计说明书： 课程结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提 供的模板。 四、指导教师和学生签字四、指导教师和学生签字 指导教师：指导教师：_ 学生签名：学生签名：_夏军夏军_ 五、成绩五、成绩 六、教师评语六、教师评语 第 3 页，共 15 页 目 录 需求分析 .4 设计分析 .4 关键技术 .错误错误!未定义书签。未定义书签。 总结 .12 完整的源程序 .12 参考文献 .15 第 4 页，共 15 页 需求分析需求分析 现在科技发展的越
3、来越快，世界已经成了地球村，科 技把人们紧紧的联系在一起，通讯信息发挥人着主要作 用。如何管理通讯信息就用到通讯录。学生通讯录管理包 括四个模块： 同学信息维护（包括增加，修改，删除） 。 同学信息查询。 显示全部同学信息。 退出。 设计设计分析分析 （1）基本原理：建立程序设计与数据库的连接，用 SQL 语句在数据库中查找，添加和更改数据。 （1） 总体设计： 第 5 页，共 15 页 （3）详细设计： 显示主界面 同学信息维护 同学信息查询 显示全部同学信息 退出 开始 同学信息维护 增加数据 修改数据 删除数据 增加同学信息 修改同学信息 删除同学信息 第 6 页，共 15 页 关键技术
4、关键技术 1. 登录界面登录界面 Private Sub Command3_Click() If Text3.Text = 111111 Then MsgBox “尊敬的用户，欢迎登录本程序！“, vbOKOnly, “进入系统“ Form1.Show Else MsgBox “密码错误！请重新输入！“ Text3.Text = “ Text3.SetFocus End If End Sub Private Sub Command4_Click() Dim n As Integer n = MsgBox(“确定退出吗？“, 33, “用户登录“) If n = 1 Then End Else
5、End If End Sub 第 7 页，共 15 页 2.2. 同学信息的维护同学信息的维护 Private Sub a_Click() Command1.Visible = False Command2.Visible = False DataGrid1.Visible = False Adodc1.Recordset.AddNew End Sub Private Sub b_Click() Dim x$ x = InputBox(“请输入要修改的学生学号“) Adodc1.Recordset.Find “学号=“ & x & “ If Adodc1.Recordset.EOF Then
6、MsgBox (“此学号不存在“) 第 8 页，共 15 页 Command1.Visible = True Command2.Visible = False DataGrid1.Visible = False End Sub Private Sub c_Click() Dim y$ y = InputBox(“请输入要删除的学生学号“) Adodc1.Recordset.Find “学号=“ & y & “ If Adodc1.Recordset.EOF Then MsgBox (“此学号不存在“) Command1.Visible = False Command2.Visible = True End Sub Private Sub Command1_Click() Dim n As Integer n = MsgBox(“修改成功“, 1, “同学通讯录“) If n = 1 Then Adodc1.Recordset.Upd
