课程设计报告参考格式2(1210)

北京工业大学实验学院课程设计
课程设计报告
课程：Visual Basic程序设计教程
年级：06级
题目：VB设计绿色书屋数据库系统
学号：06614126 06614222 06614233
姓名：孙涛刘慧辰陈峥
专业：工商管理
时间：2008-05-19
指导教师：冷永杰
一、设计目的
进入二十一世纪以来，世界资源紧缺面临着更加严峻的形势，随着中国国际地位的提升，经济地位的巩固，中国在对于世界环境保护方面的影响也更加突出，同时环境保护和可持续性发展也已经成为中国经济发展的必由之路。

如果不能合理利用，节约利用，重复利用资源，那么中国的发展将会面临更加严峻的资源问题。

为了支持资源的可重复性利用，便于统计和管理循环使用的书籍与教材，特开发了绿色书屋数据库管理系统，旨在促进，并推动可循环使用书籍活动在各大院校的开展。

二、概要设计
功能图
简单说明。

所建立的绿色书屋数据库实例主要有如下功能：
◆能存储会员个人情况的有关信息。

◆能存储绿色书籍的有关信息。

◆用户能对上述信息进行录入、修改、删除等操作。

◆用户能通过多种方式对上述信息进行查询和统计。

三、详细设计
1. 设计表与建立数据表（数据库，主要表的结构。

）
根据上述功能要求，需收集如下信息：
◆会员资料：学号、姓名、生日、性别、电话、专业、会员级别
◆书籍回收与销售情况：书籍编号、回收与销售
◆书籍与出版社资料：书名、出版社、出版日期、作者、原价、收购价格、出售
价格、库存、备注
2.表间关系
3. 设计窗体与建立数据窗体
（1）设计进入窗体：为了保护会员的信息安全,故有此设计想法.
主要程序编码：Sub Command1_Click()
If Text1.Text = "06614126" And Text2.Text = "06614126" Then
Form1.Hide
Form2.Show
Else: MsgBox "用户名或密码错误", , "警告"密码检验
Text1 = ""
Text2 = ""便于重新输入
End If
End Sub
(2)设计启动窗体:启动窗体是这个绿色书籍数据库系统的核心.它是连接其它窗体的媒介,是为了方便使用者操作的窗体.使用者可以用其方便的找到自己相知道的信息.
(3)备忘录窗体:该窗体可以方便用户输入公告信息等其他信息.
(4)基础信息查询与统计:主要用于查看信息.运用Adodc和DATAGrid程序将数据库与VB两个程序连接在一起，这样可以实现在系统中修改，删除，增加，更新信息。

四．窗体的实现
列出主要窗体
完成的功能、主要使用的控件。

实现的难点是数据库与vb的连接。

Dim AppPath = Application.StartupPath '获取文件路径
'声明Connection连接对象
Dim strConn As String = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source =" + AppPath + "\student.mdb"
Dim objConn As New OleDbConnection(strConn)
' 声明数据适配器对象objAdap
Dim objAdap As New OleDbDataAdapter
' 声明数据集对象objDSet
Dim objDSet As New DataSet
主要程序编码：Private Sub Command1_Click()
If Text1 > "" Then
Adodc1.RecordSource = "select * from 绿色书屋会员资料 where
专业='" & Text1.Text & "'"
Else
Adodc1.RecordSource = "select * from 绿色书屋会员资料 "
End If
Adodc1.Refresh
End Sub
Private Sub Command2_Click()
Form4.Hide
Form2.Show
Private Sub Form_Load()
Dim mpath$, mlink$
mpath = App.Path
If Right(mpath, 1) <> "\" Then mpath = mpath + "\"
mlink = "Provider=Microsoft.Jet.OLEDB.4.0;" + "Data Source=" + mpath + "绿色书屋.mdb"
Adodc1.ConnectionString = mlink
mandType = adCmdUnknown
Adodc1.Refresh
End Sub
Private Sub 保存_Click()
Adodc1.Recordset.Update
End Sub
Private Sub 插入_Click()
Adodc1.Recordset.AddNew
If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveFirst
End Sub
Private Sub 粗体_Click()
DataGrid1.FontBold = Not Text1.FontBold
End Sub
Private Sub 删除_Click()
ask = MsgBox("删除否?", vbYesNo)
If ask = 6 Then
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast
End Sub
Private Sub 删除线_Click()
DataGrid1.FontStrikethru = Not Text1.FontStrikethru
End Sub
Private Sub 十五_Click()
Text1.FontSize = 15
End Sub
Private Sub 下划线_Click()
DataGrid1.FontUnderline = Not Text1.FontUnderline
End Sub
Private Sub 斜体_Click()
DataGrid1.FontItalic = Not Text1.FontItalic
End Sub
(5)查询: 主要用于查询信息. 运用Adodc和DATAGrid程序将数据库与VB两个程序连接在一起，这样可以实现在系统中查询信息。

主要程序编码：Private Sub Command1_Click()
If Text1 > "" Then
Adodc1.RecordSource = "select * from 绿色书屋会员资料where 专业='" & Text1.Text & "'"
Else
Adodc1.RecordSource = "select * from 绿色书屋会员资料 "
End If
Adodc1.Refresh
四、调试分析
在设计数据库时，我们发现如何建立表间关系以及窗体设计方面存在着问题。

并且这些问题对我制作数据库有着关键影响。

因为表间关系是整个数据库的结构，没有
表间关系就无法成为一个有机整体。

于是，我通过书籍与收售情况之间存在着一对一的从属关系，会员与收售情况之间存在着一对一的关系。

将学生档案表与学生成绩表联系在一起，还与学生宿舍表、课程表联系到一块，最后形成一体。

在窗体设计方面，为了让使用者能方便查阅，我想把各个表都制作成窗体，并且能通过一个窗体使之与其它窗体联系在一起。

最后，我制作了一个进入窗体，它起的作用就是连接其它窗体的作用。

使用户可以通过此窗体直接查阅由各个表制作的其它窗体。

在设计窗体时,我主要对打开的编程有问题.因为起初我认为其编码可以由open 语句直接打开,但当我实践时发现与我设想的不对,经过查书,上网等手段,才明白应该使用CommonDialog1.ShowOpen语句.CommonDialog是设计打开对话框的程序.它可以用于打开和保存文件.
四、出现问题及解决办法
五、课设总结
在初步测试中，如果初期输入正确则完全没有问题，且能正常完成所要求的工作。

如果输入不正确则无法通过进入窗体的密码检验，并给予警告。

经过输入数据实际检验，没有任何问题，完全符合预期设想要求。

比初期的检验更为有效。

具体计划：选取实际数据按照正规顺序输入。

没有任何不良现象。

故意选取错误数据进行输入，如果密码错误则无法进入，若输入表中的数据类型错误，则无法继续输入。

由于本系统的设计对象是学生，所以我在设计操作流程方面尽可能非常简单，把复杂的操作尽可能由编码代替。

故用户无需操心操作问题。

通过设计该班级学生情况数据库系统,我不仅增强了对数据库和VB的了解而且还制作了一个对班级有用的数据库系统.这是一举两得的好事.希望还能使用VB制作更有用的系统来为我们的生活和学习提供更多的便利。