计算机本科毕业论文.doc

个人收集整理 勿做商业用途
狗狗鉴赏系统
摘要
在我们的生活中，小狗是生活在我们身边的无处不在的小精灵,它们机灵可爱，为我们带来了无限的欢乐，为了充分的对他们进行了解，我做了这个系统，主要是为了给人们提供鉴赏和识别狗狗品种的平台,让人们更加了解他们，更加爱护他们.
Abstract
In our life, the dog is the life around us everywhere， they are cute, brought infinite joy to us, in order to fully understand it， I made this system, mainly in order to provide to the people to appreciate and recognize the breed platform， make people more aware of them, more care of them。

关键词
鉴赏系统 可视化数据管理器 数据库
目录
第一章．引言…………………………………………………………………………….。。3
1。1项目目的…………………………………………………………………………..3
1。2项目背景…………………………………………………………………………。.3
1.2。1项目名称………………………………………………………………………。..3
1.2.2 项目功能………………………………………………………………………..3
1。3目标………………………………………………………………………………。。3
1。4主要应用软件……………………………………………………………………。.3
1.5对计算机的要求…………………………………………………………………。.3
1.5.1所需的计算机配置……………………………………………………………。。。3
1。5.2支持软件………………………………………………………………………。。.3
第二章．系统功能表……………………………………………………….。..3
2.1.系统功能简要介绍……………………………………………………………….。3
2。2系统功能表………………………………………………………………………。。3
第三章．数据库设计…………………………………………………………4
3.1打开可视化数据管理器…………………………………………………………。。5
3.2新建Access数据库………………………………………………………………..5
3。3创建基本表结构…………………………………………………………………。。6
3.4向基本表中添加数据……………………………………………………………。.7
第四章．通过ADO对象访问数据库…………………………………8
第五章．系统界面设计…………………………………………….。………8
5。1打开VB 6。0……………………………………。。………….…………….。 ……。8
5.2在Form1中添加控件…………………………………………………………….8
5。3 完成Form1功能具体代码…………………………………………….。………。9
5.4在Form2中添加控件…………………………………….。.……………………。.9
5.5完成Form2中添加具体代码…………………………………………………….10
第六章．参考文献……………………………………………………………。17
第七章．致谢……………………………………………………………。。……。17

正文
第一章．引言
1.1项目目的
主要任务是完成对狗狗的基本信息进行浏览，添加，删除和修改等操作。
1。2项目背景
1.2.1系统名称：狗狗管理系统
1.2。2项目功能：用计算机对狗狗信息进行日常的管理和浏览。
1。3目标
能够对信息进行浏览,检索，添加和删除等功能.
1。4主要应用软件
Microsoft Office Access2003
Microsoft Visual Basic 6。0
1.5对计算机的要求
1.5.1所需的计算机配置：cpu 0.5G以上，内存 32MB以上。
1.5。2支持软件：WinXP/9X/me/2000操作系统、VB 6。0

第二章．系统功能表
2。1系统功能简要介绍
本系统用到Access2003数据库，共有7个关键字，包括序号，名称，别名，体型，毛型，平均寿命，详细介绍,共有三组数据。
在VB6。0中设计好相应界面和代码后，首先是登陆界面，必须输入系统正确的用户名和密码才能够进入，用户名是“ls"，密码是“123”。当输入不正确时，将出现对话框“您的用户名或密码有误，请重新输入！"同时，光标移动到开始位置，输入错误的内容全部清空，方便进行重新输入。输入正确后将转到系统主页,进行相关操作。
系统主页主要完成的功能有浏览数据库中的数据,使数据库中与VB界面中相同关键字名对应,内容在相应TextBox中给予显示，共四个按钮，“第一条"，“上一条”,“下一条”，“最后一条”来控制数据的浏览。另外还有向数据库中添加数据的按钮，删除数据的按钮，修改，保存按钮也能完成相应功能，最后是退出按钮，退出当前页面.
除了浏览功能和修改等功能之外，本系统还有查找数据库中数据的内容,当输入的数据是数据库中的数据时，该条数据的详细信息将会在界面中相应的位置处显示,如果输入的数据没有在当前数据库中,则出现对话框“您所指定的条件没有匹配的记录，请重新输入！”。
2.2 系统功能表
浏览数据库中第一条记录
狗狗鉴赏系统
用户名或密码错误
您的用户名或密码错误，请重新输入
第一条
添加
修改
在当前数据库中添加一条新的纪录
登陆页面
浏览页面，对信息进行操作
上一条
下一条
最后一条
浏览当前数据库中记录的前一条记录
浏览当前数据库中记录的后一条记录
浏览数据库中最后一条记录
删除
保存
关闭
修改当前数据库中的记录
删除数据库中当前记录
将添加，修改，删除完成后的数据库进行保存
关闭当前数据库

第三章。数据库设计
本文中用到的是Microsoft Office中的Access 2003，本软件是一种数据库管理程序，可赋予更佳的用户体验，并且新增了导入、导出和处理 XML 数据文件等功能。由于该程序可以识别和标记常见错误，同时提供更正错误的选项,因此在 Access 2003 中工作变得更加轻松自如。另外,Access 2003 的新功能还可以帮助数据库开发人员查看有关数据库对象之间相关性的信息。
本文中的数据库建造借助于VB6。0提供的可视化数据管理器（VISDATA。EXE)，这样做的好处是可以方便的进行数据库的创建和管理。具体的创建过程如下:
3。1打开可视化数据管理器：在VB主窗口中选择“外接程序"菜单下的“可视化数据管理器”命令，即可打开可视化数据管理器。如图所示：

3。2新建Access数据库：
3。2。1在可视化数据管理器窗口中选择“文件"菜单下的“新建”命令，在“新建”子菜单中再选择“Microsoft Access”下的“version7。0”子命令，即可创建Access数据库，如图所示：

3。2.2在“选择要创建的Microsoft Access数据库"对话框中,选择保存位置后，输入“狗狗档案"，即可新建一个Access格式的数据库
3.2。3新建数据库后,在可视化数据管理器中将会出现“数据库窗口”和“SQL语句"两个子窗口。

3。3。创建基本表结构
（1）在“数据库窗口”中单击鼠标右键，从快捷菜单中选择“新建表"命令，打开“表结构”对话框。如图所示：

（2）输入基本表的名称“狗狗状况”,单击“添加字段"按钮，弹出“添加字段"对话框,如图所示：

（3）在“添加字段"对话框中输入字段名，并选择数据类型及大小等字段属性，单击“确定”按钮后，对话框将被清空，可以继续添加表中的其他字段。表中所有字段添加完毕后,点击“关闭”按钮后，返回 “表结构”对话框.
（4）单击“添加索引”对话框，弹出“添加索引”对话框。
（5）在“添加索引”对话框中选择“可用字段”列表框中欲索引的字段，然后输入索引名称“序号"，选中在“主要的”和“唯一的”两个复选框，单击“确定"按钮，返回“表结构"对话框。
（6）单击“生成表”按钮，即可在“数据库”窗口看见新建的基本表“狗狗状况"，如图所示：

3。4向基本表中添加数据
（1)在“数据库窗口"中双击基本表的名字，将会弹出数据记录窗口。
（2）在数据记录窗口中，单击“添加”按钮，将弹出空记录窗口，输入数据后，单击“更新”按钮，新纪录将被添加入基本表
如图所示:

注：可以看出，本例中的数据库基本表中共有三条记录
第四章．通过ADO对象访问数据库
加载ADODB类型数据库。方法：在VB 6。0主窗口中选择“工程”→“引用”对话框中，选中“Microsoft ActiveX Data Objects 2。8 Library"即可.
如图所示：

第五章．系统界面设计
5。1打开VB 6。0:
在“文件"→“新建工程”→“标准EXE”点击确定。出现工程1,Form1窗口.如图所示：

5.2在Form1中添加控件
控件属性如下表所示:
控件名称
属性名称
属性
Label1
Caption
用户名
Label2
Caption
密码
TextBox1
Text
请输入
TextBox2
Text
请输入
Command1
Caption
确定
Command2
Caption
退出
Form1
Caption
登陆界面
Backcolor
&H00FFFF00&

设计界面如图所示:

5。3完成Form1功能具体代码如下：
按钮Command1代码如下：
Private Sub Command1_Click（)
Dim user As String
Dim pws As String
user = Text1.Text
psw = Text2.Text
If user = "ls” And psw = ”123” Then
Form1。Hide
Form2。Show
Else： MsgBox ("您的用户名或密码有误，请重新输入！"）
Text1。SetFocus
Text1.Text = ""
Text2.Text = ””
End If
End Sub

按钮 Command2代码如下:
Private Sub Command2_Click(）
End
End Sub

5。4在Form2中添加控件
控件属性如下表所示：
控件名称
属性名称
属性值
Label1
Caption
序号
Label2
Caption
名称
Label3
Caption
别名
Label4
Caption
体型
Label5
Caption
毛型
Label6
Caption
平均寿命
Label7
Caption
详细介绍
Label8
Caption
输入待查狗狗名称
Text1（1）
Maxlength
10
Text1(2）
Maxlength
10
Text1（3）
MultiLine
True
Maxlength
10
Text1（4)
Maxlength
10
Text1（5）
Maxlength
10
Text1（6)
Maxlength
10
Text1（7）
MultiLine
True
Maxlength
20
Text2
Maxlength
10
Cmdadd
Caption
添加
Cmdupdate
Caption
修改
Cmddelete
Caption
删除
Cmdsave
Caption
保存
Cmdclose
Caption
关闭
Cmdfirst
Caption
第一条
Cmdprevious
Caption
上一条
Cmdnext
Caption
下一条
Cmdlast
Caption
最后一条
Cmdfind
Caption
查找

设计界面如图所示:

5。5具体代码过程如下:
通用声明代码:
Public myConn As ADODB.Connection
Public myRs As ADODB。Recordset
Dim myAdd As Boolean
Dim myedit As Boolean
Dim i As Integer

Form2的代码:
Private Sub Form_Load（)
myAdd = False
myedit = False
Set myConn = New Connection
Set myRs = New ADODB.Recordset
myConn。Provider = ”Microsoft。Jet.OLEDB.4.0”
myConn。ConnectionString = ”data source=" ＆ App。Path ＆ ”\狗狗档案.mdb"
myConn。Open
myRs。Open "狗狗状况", myConn， adOpenStatic, adLockOptimistic
If myRs.RecordCount = 0 Then
cmdfirst.Enabled = False
cmdprevious。Enabled = False
cmdnext.Enabled = False
cmdlast。Enabled = False
cmdupdate。Enabled = False
cmddelete.Enabled = False
cmdsave。Enabled = False
cmdfind.Enabled = False
myAdd = ture
Else
myRs.MoveFirst
For i = 1 To 7
Text1（i).Text = myRs。Fields(i — 1）.Value
Next i
cmdprevious.Enabled = False
cmdfirst.Enabled = False
End If
cmdsave。Enabled = False
End Sub

“第一条”按钮代码：
Private Sub cmdfirst_Click(）
myRs。MoveFirst
For i = 1 To 7
Text1（i) = myRs。Fields（i — 1）.Value
Next i
cmdprevious。Enabled = False
cmdfirst.Enabled = False
cmdnext.Enabled = True
cmdlast。Enabled = True
End Sub

“上一条"按钮代码：
Private Sub cmdprevious_Click（）
myRs。MovePrevious
For i = 1 To 7
Text1(i） = myRs.Fields(i - 1)。Value
Next i
cmdnext.Enabled = True
cmdlast.Enabled = True
If myRs。AbsolutePosition = 1 Then
cmdprevious.Enabled = False
cmdfirst。Enabled = False
Else
cmdprevious。Enabled = True
cmdfirst.Enabled = True
End If
End Sub

“下一条”按钮代码：
Private Sub cmdnext_Click（)
myRs。MoveNext
For i = 1 To 7
Text1(i） = myRs。Fields（i - 1).Value
Next i
cmdprevious。Enabled = True
cmdfirst.Enabled = True
If myRs.AbsolutePosition = myRs.RecordCount Then
cmdnext.Enabled = False
cmdlast。Enabled = False
Else
cmdnext。Enabled = True
cmdlast.Enabled = True
End If
End Sub

“最后一条”按钮代码：
Private Sub cmdlast_Click()
myRs.MoveLast
For i = 1 To 7
Text1（i) = myRs。Fields(i — 1）。Value
Next i
cmdprevious。Enabled = True
cmdfirst.Enabled = True
cmdnext.Enabled = False
cmdlast。Enabled = False
End Sub

“添加”按钮代码：
Private Sub cmdadd_Click()
For i = 1 To 7
Text1(i)。Text = "”
Next i
MsgBox "添加完成后请按保存按钮”
myAdd = True
myedit = False
cmdfirst。Enabled = False
cmdprevious.Enabled = False
cmdnext.Enabled = False
cmdlast.Enabled = False
cmdfind。Enabled = False
cmdadd。Enabled = False
cmdupdate。Enabled = False
cmddelete.Enabled = False
cmdsave。Enabled = True
Text1（1).SetFocus
End Sub

“修改”按钮代码：
rivate Sub cmdupdate_Click(）
MsgBox "编辑完成之后请按保存按钮”
myedit = True
myAdd = False
cmdfirst.Enabled = False
cmdprevious。Enabled = False
cmdnext.Enabled = False
cmdlast.Enabled = False
cmdfind.Enabled = False
cmdadd。Enabled = False
cmdupdate.Enabled = False
cmddelete.Enabled = False
cmdsave。Enabled = True
Text1（1）。SetFocus
End Sub

“删除”按钮代码：
Private Sub cmddelete_Click（）
Dim str1$， str2＄
str1$ = "您确定要删除" & Text1(2）。Text & "的档案信息吗？"
str2$ = MsgBox(str1＄, vbYesNo + vbQuestion， ”确认删除"）
If str2＄ = vbYes Then
myRs。Delete
If myRs.RecordCount = 0 Then
MsgBox "当前已经无记录!”
For i = 1 To 7
Text1(i)。Text = ""
Next i
cmdfirst.Enabled = False
cmdprevious。Enabled = False
cmdnext.Enabled = False
cmdlast。Enabled = False
cmdupdate.Enabled = False
cmddelete。Enabled = False
cmdsave.Enabled = False
cmdfind。Enabled = False
Else
myRs。MoveFirst
For i = 1 To 7
Text1(i）。Text = myRs。Fields(i — 1）.Value
Next i
cmdfirst.Enabled = False
cmdprevious。Enabled = False
If myRs。AbsolutePosition = myRs。RecordCount Then
cmdnext.Enabled = False
cmdlast.Enabled = False
Else
cmdnext。Enabled = True
cmdlast.Enabled = True
End If
End If
End If
End Sub

“保存”按钮代码:
Private Sub cmdsave_Click()
If Len(Text1(1）.Text) = 0 Then
MsgBox ”序号不能为空！"， vbExclamation, ”错误"
Text1(1）。SetFocus
Exit Sub
End If
If Len（Text1（2）。Text) = 0 Then
MsgBox ”名称不能为空!", vbExclamation， ”错误"
Text1（2)。SetFocus
Exit Sub
End If
If Len(Text1(3）。Text） = 0 Then
MsgBox "别名不能为空！”， vbExclamation， ”错误"
Text1(3)。SetFocus
Exit Sub
End If
If Len(Text1（4).Text) = 0 Then
MsgBox ”体型不能为空！", vbExclamation, ”错误"
Text1（4）。SetFocus
Exit Sub
End If
If Len（Text1(5）.Text) = 0 Then
MsgBox "毛型不能为空！"， vbExclamation， ”错误"
Text1（5)。SetFocus
Exit Sub
End If
If Len（Text1(6).Text) = 0 Then
MsgBox "平均寿命不能为空！", vbExclamation, ”错误"
Text1(7).SetFocus
Exit Sub
End If
If Len(Text1（7）.Text) = 0 Then
MsgBox ”详细介绍不能为空！"， vbExclamation， "错误"
Text1(7）.SetFocus
Exit Sub
End If
If myAdd = True Then
myRs.AddNew
For i = 1 To 7
myRs。Fields(i — 1).Value = Text1(i).Text
Next i
myRs.Update
MsgBox "添加记录成功！”
ElseIf myedit = True Then
For i = 1 To 7
myRs.Fields（i — 1）.Value = Text1(i)。Text
Next i
myRs。Update
MsgBox ”修改记录成功！”
End If
cmdadd。Enabled = True
cmdupdate.Enabled = True
cmddelete.Enabled = True
cmdsave。Enabled = False
cmdfind.Enabled = True
If myRs。AbsolutePosition = 1 Then
cmdprevious。Enabled = False
cmdfirst。Enabled = False
Else
cmdprevious。Enabled = True
cmdfirst.Enabled = True
End If
If myRs。AbsolutePosition = myRs.RecordCount Then
cmdnext.Enabled = False
cmdlast。Enabled = False
Else
cmdnext。Enabled = True
cmdlast。Enabled = True
End If
End Sub

“关闭”按钮代码：
Private Sub cmdclose_Click（)
Unload Me
End Sub

“查找”按钮代码:
Private Sub cmdfind_Click()
Dim str As String
Dim mybookmarket As Variant
mybookmarket = myRs。Bookmark
str = "名称=’” ＆ Text2。Text & "’"
myRs.MoveFirst
myRs.Find str
If myRs.EOF Then
MsgBox "您所指定的条件没有匹配的记录，请重新输入!”， ， ” 信息提示”
myRs。Bookmark = mybookmarket
Else
For i = 1 To 7
Text1（i).Text = myRs。Fields（i — 1)。Value
Next i
End If
End Sub
系统完成后部分效果展示图：

第六章．参考文献
杨忠宝 康顺哲主编《VB语言程序设计教程》 人民邮电出版社
潘明寒主编 《Access程序设计教程》 清华大学出版社

第七章．致谢
在这一个多月以来，经过多方询问，完成了该篇论文，期间经历了各种困难,学到了很多新知识，在这里,感谢帮助我完成这篇论文的各位老师和朋友，感谢各位老师对我的论文提出宝贵意见。我会在今后的学习中继续加深对VB的学习，争取使这篇文章更加完善.

18