《狗狗鉴赏系统 计算机本科毕业论文(vb+access).doc》由会员分享，可在线阅读，更多相关《狗狗鉴赏系统 计算机本科毕业论文(vb+access).doc（18页珍藏版）》请在三一文库上搜索。
1、狗狗鉴赏系统摘要在我们的生活中，小狗是生活在我们身边的无处不在的小精灵，它们机灵可爱，为我们带来了无限的欢乐，为了充分的对他们进行了解，我做了这个系统，主要是为了给人们提供鉴赏和识别狗狗品种的平台，让人们更加了解他们，更加爱护他们。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 provi
2、de to the people to appreciate and recognize the breed platform, make people more aware of them, more care of them.关键词鉴赏系统 可视化数据管理器 数据库 目录第一章引言.31.1项目目的.31.2项目背景.31.2.1项目名称.31.2.2 项目功能.31.3目标.31.4主要应用软件.31.5对计算机的要求.31.5.1所需的计算机配置.31.5.2支持软件.3第二章系统功能表.32.1.系统功能简要介绍.32.2系统功能表.3第三章数据库设计43.1打开可视化数据管理器.5
3、3.2新建Access数据库.53.3创建基本表结构.63.4向基本表中添加数据.7第四章通过ADO对象访问数据库8第五章系统界面设计.85.1打开VB 6.0. .85.2在Form1中添加控件.85.3 完成Form1功能具体代码.95.4在Form2中添加控件.95.5完成Form2中添加具体代码.10第六章参考文献.17第七章致谢.17正文第一章引言1.1项目目的主要任务是完成对狗狗的基本信息进行浏览，添加，删除和修改等操作。1.2项目背景1.2.1系统名称：狗狗管理系统1.2.2项目功能：用计算机对狗狗信息进行日常的管理和浏览。1.3目标能够对信息进行浏览，检索，添加和删除等功能。1
4、.4主要应用软件Microsoft Office Access2003Microsoft Visual Basic 6.01.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”.当输入不正确时，将出现
5、对话框“您的用户名或密码有误，请重新输入！”同时，光标移动到开始位置，输入错误的内容全部清空，方便进行重新输入。输入正确后将转到系统主页，进行相关操作。系统主页主要完成的功能有浏览数据库中的数据，使数据库中与VB界面中相同关键字名对应，内容在相应TextBox中给予显示，共四个按钮，“第一条”，“上一条”，“下一条”，“最后一条”来控制数据的浏览。另外还有向数据库中添加数据的按钮，删除数据的按钮，修改，保存按钮也能完成相应功能，最后是退出按钮,退出当前页面。除了浏览功能和修改等功能之外，本系统还有查找数据库中数据的内容，当输入的数据是数据库中的数据时，该条数据的详细信息将会在界面中相应的位置处
6、显示，如果输入的数据没有在当前数据库中，则出现对话框“您所指定的条件没有匹配的记录，请重新输入！”。2.2 系统功能表浏览数据库中第一条记录狗狗鉴赏系统用户名或密码错误您的用户名或密码错误，请重新输入第一条添加修改在当前数据库中添加一条新的纪录登陆页面浏览页面，对信息进行操作上一条下一条最后一条浏览当前数据库中记录的前一条记录浏览当前数据库中记录的后一条记录浏览数据库中最后一条记录删除保存关闭修改当前数据库中的记录删除数据库中当前记录将添加，修改，删除完成后的数据库进行保存关闭当前数据库第三章.数据库设计 本文中用到的是Microsoft Office中的Access 2003，本软件是一种数
7、据库管理程序，可赋予更佳的用户体验，并且新增了导入、导出和处理 XML 数据文件等功能。由于该程序可以识别和标记常见错误，同时提供更正错误的选项，因此在 Access 2003 中工作变得更加轻松自如。另外，Access 2003 的新功能还可以帮助数据库开发人员查看有关数据库对象之间相关性的信息。本文中的数据库建造借助于VB6.0提供的可视化数据管理器（VISDATA.EXE），这样做的好处是可以方便的进行数据库的创建和管理。具体的创建过程如下：3.1打开可视化数据管理器：在VB主窗口中选择“外接程序”菜单下的“可视化数据管理器”命令，即可打开可视化数据管理器。如图所示：3.2新建Acces
8、s数据库：3.2.1在可视化数据管理器窗口中选择“文件”菜单下的“新建”命令，在“新建”子菜单中再选择“Microsoft Access”下的“version7.0”子命令，即可创建Access数据库，如图所示：3.2.2在“选择要创建的Microsoft Access数据库”对话框中，选择保存位置后，输入“狗狗档案”，即可新建一个Access格式的数据库3.2.3新建数据库后，在可视化数据管理器中将会出现“数据库窗口”和“SQL语句”两个子窗口。3.3.创建基本表结构（1）在“数据库窗口”中单击鼠标右键，从快捷菜单中选择“新建表”命令，打开“表结构”对话框。如图所示：（2）输入基本表的名称“
9、狗狗状况”，单击“添加字段”按钮，弹出“添加字段”对话框，如图所示：（3）在“添加字段”对话框中输入字段名，并选择数据类型及大小等字段属性，单击“确定”按钮后，对话框将被清空，可以继续添加表中的其他字段。表中所有字段添加完毕后，点击“关闭”按钮后，返回 “表结构”对话框。（4）单击“添加索引”对话框，弹出“添加索引”对话框。（5）在“添加索引”对话框中选择“可用字段”列表框中欲索引的字段，然后输入索引名称“序号”，选中在“主要的”和“唯一的”两个复选框，单击“确定”按钮，返回“表结构”对话框。（6）单击“生成表”按钮，即可在“数据库”窗口看见新建的基本表“狗狗状况”，如图所示：3.4向基本表中
10、添加数据（1）在“数据库窗口”中双击基本表的名字，将会弹出数据记录窗口。（2）在数据记录窗口中，单击“添加”按钮，将弹出空记录窗口，输入数据后，单击“更新”按钮，新纪录将被添加入基本表如图所示：注：可以看出，本例中的数据库基本表中共有三条记录第四章通过ADO对象访问数据库加载ADODB类型数据库。方法：在VB 6.0主窗口中选择“工程”“引用”对话框中，选中“Microsoft ActiveX Data Objects 2.8 Library”即可。如图所示：第五章系统界面设计5.1打开VB 6.0：在“文件”“新建工程”“标准EXE”点击确定。出现工程1，Form1窗口。如图所示：5.2在F
11、orm1中添加控件控件属性如下表所示：控件名称属性名称属性Label1Caption用户名Label2Caption密码TextBox1Text请输入TextBox2Text请输入Command1Caption确定Command2Caption退出Form1Caption登陆界面Backcolor&H00FFFF00&设计界面如图所示：5.3完成Form1功能具体代码如下：按钮Command1代码如下：Private Sub Command1_Click()Dim user As StringDim pws As Stringuser = Text1.Textpsw = Text2.TextI
12、f 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()EndEnd Sub5.4在Form2中添加控件控件属性如下表所示：控件名称属性名称属性值Label1Caption序号Label2Caption名称Label3Caption别名Label4Caption体型Label5Capti
13、on毛型Label6Caption平均寿命Label7Caption详细介绍Label8Caption输入待查狗狗名称Text1（1）Maxlength10Text1（2）Maxlength10Text1（3）MultiLineTrueMaxlength10Text1（4）Maxlength10Text1（5）Maxlength10Text1（6）Maxlength10Text1（7）MultiLineTrueMaxlength20Text2Maxlength10CmdaddCaption添加CmdupdateCaption修改CmddeleteCaption删除CmdsaveCaption保
14、存CmdcloseCaption关闭CmdfirstCaption第一条CmdpreviousCaption上一条CmdnextCaption下一条CmdlastCaption最后一条CmdfindCaption查找设计界面如图所示：5.5具体代码过程如下：通用声明代码：Public myConn As ADODB.ConnectionPublic myRs As ADODB.RecordsetDim myAdd As BooleanDim myedit As BooleanDim i As IntegerForm2的代码：Private Sub Form_Load() myAdd = Fal
15、se myedit = False Set myConn = New Connection Set myRs = New ADODB.Recordset myConn.Provider = Microsoft.Jet.OLEDB.4.0 myConn.ConnectionString = data source= & App.Path & 狗狗档案.mdbmyConn.OpenmyRs.Open 狗狗状况, myConn, adOpenStatic, adLockOptimisticIf myRs.RecordCount = 0 Thencmdfirst.Enabled = Falsecmdp
16、revious.Enabled = Falsecmdnext.Enabled = Falsecmdlast.Enabled = Falsecmdupdate.Enabled = Falsecmddelete.Enabled = Falsecmdsave.Enabled = Falsecmdfind.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.E
17、nabled = False End If cmdsave.Enabled = False End Sub“第一条”按钮代码：Private Sub cmdfirst_Click()myRs.MoveFirstFor i = 1 To 7Text1(i) = myRs.Fields(i - 1).ValueNext icmdprevious.Enabled = Falsecmdfirst.Enabled = Falsecmdnext.Enabled = Truecmdlast.Enabled = TrueEnd Sub “上一条”按钮代码：Private Sub cmdprevious_Cli
18、ck()myRs.MovePreviousFor i = 1 To 7Text1(i) = myRs.Fields(i - 1).ValueNext icmdnext.Enabled = Truecmdlast.Enabled = TrueIf myRs.AbsolutePosition = 1 Thencmdprevious.Enabled = Falsecmdfirst.Enabled = FalseElsecmdprevious.Enabled = Truecmdfirst.Enabled = TrueEnd IfEnd Sub“下一条”按钮代码：Private Sub cmdnext_
19、Click()myRs.MoveNextFor i = 1 To 7Text1(i) = myRs.Fields(i - 1).ValueNext icmdprevious.Enabled = Truecmdfirst.Enabled = TrueIf myRs.AbsolutePosition = myRs.RecordCount Thencmdnext.Enabled = Falsecmdlast.Enabled = FalseElsecmdnext.Enabled = Truecmdlast.Enabled = TrueEnd IfEnd Sub“最后一条”按钮代码：Private Su
20、b cmdlast_Click()myRs.MoveLastFor i = 1 To 7Text1(i) = myRs.Fields(i - 1).ValueNext icmdprevious.Enabled = Truecmdfirst.Enabled = Truecmdnext.Enabled = Falsecmdlast.Enabled = FalseEnd Sub“添加”按钮代码：Private Sub cmdadd_Click()For i = 1 To 7Text1(i).Text = Next iMsgBox 添加完成后请按保存按钮myAdd = Truemyedit = Fal
21、secmdfirst.Enabled = Falsecmdprevious.Enabled = Falsecmdnext.Enabled = Falsecmdlast.Enabled = Falsecmdfind.Enabled = Falsecmdadd.Enabled = Falsecmdupdate.Enabled = Falsecmddelete.Enabled = Falsecmdsave.Enabled = TrueText1(1).SetFocusEnd Sub“修改”按钮代码：rivate Sub cmdupdate_Click()MsgBox 编辑完成之后请按保存按钮myed
22、it = TruemyAdd = Falsecmdfirst.Enabled = Falsecmdprevious.Enabled = Falsecmdnext.Enabled = Falsecmdlast.Enabled = Falsecmdfind.Enabled = Falsecmdadd.Enabled = Falsecmdupdate.Enabled = Falsecmddelete.Enabled = Falsecmdsave.Enabled = TrueText1(1).SetFocusEnd Sub“删除”按钮代码：Private Sub cmddelete_Click()Di
23、m str1$, str2$str1$ = 您确定要删除 & Text1(2).Text & 的档案信息吗？str2$ = MsgBox(str1$, vbYesNo + vbQuestion, 确认删除)If str2$ = vbYes ThenmyRs.DeleteIf myRs.RecordCount = 0 ThenMsgBox 当前已经无记录！For i = 1 To 7Text1(i).Text = Next icmdfirst.Enabled = Falsecmdprevious.Enabled = Falsecmdnext.Enabled = Falsecmdlast.Enab
24、led = Falsecmdupdate.Enabled = Falsecmddelete.Enabled = Falsecmdsave.Enabled = Falsecmdfind.Enabled = FalseElsemyRs.MoveFirstFor i = 1 To 7Text1(i).Text = myRs.Fields(i - 1).ValueNext icmdfirst.Enabled = Falsecmdprevious.Enabled = FalseIf myRs.AbsolutePosition = myRs.RecordCount Thencmdnext.Enabled
25、= Falsecmdlast.Enabled = FalseElsecmdnext.Enabled = Truecmdlast.Enabled = TrueEnd IfEnd IfEnd If End Sub“保存”按钮代码：Private Sub cmdsave_Click()If Len(Text1(1).Text) = 0 ThenMsgBox 序号不能为空！, vbExclamation, 错误Text1(1).SetFocusExit SubEnd IfIf Len(Text1(2).Text) = 0 ThenMsgBox 名称不能为空！, vbExclamation, 错误Tex
26、t1(2).SetFocusExit SubEnd IfIf Len(Text1(3).Text) = 0 ThenMsgBox 别名不能为空！, vbExclamation, 错误Text1(3).SetFocusExit SubEnd IfIf Len(Text1(4).Text) = 0 ThenMsgBox 体型不能为空！, vbExclamation, 错误Text1(4).SetFocusExit SubEnd IfIf Len(Text1(5).Text) = 0 ThenMsgBox 毛型不能为空！, vbExclamation, 错误Text1(5).SetFocusExit
27、 SubEnd IfIf Len(Text1(6).Text) = 0 ThenMsgBox 平均寿命不能为空！, vbExclamation, 错误Text1(7).SetFocusExit SubEnd IfIf Len(Text1(7).Text) = 0 ThenMsgBox 详细介绍不能为空！, vbExclamation, 错误Text1(7).SetFocusExit SubEnd IfIf myAdd = True ThenmyRs.AddNewFor i = 1 To 7myRs.Fields(i - 1).Value = Text1(i).TextNext imyRs.Up
28、dateMsgBox 添加记录成功！ElseIf myedit = True ThenFor i = 1 To 7myRs.Fields(i - 1).Value = Text1(i).TextNext imyRs.UpdateMsgBox 修改记录成功！End Ifcmdadd.Enabled = Truecmdupdate.Enabled = Truecmddelete.Enabled = Truecmdsave.Enabled = Falsecmdfind.Enabled = TrueIf myRs.AbsolutePosition = 1 Thencmdprevious.Enabled
29、 = Falsecmdfirst.Enabled = FalseElsecmdprevious.Enabled = Truecmdfirst.Enabled = TrueEnd IfIf myRs.AbsolutePosition = myRs.RecordCount Thencmdnext.Enabled = Falsecmdlast.Enabled = FalseElsecmdnext.Enabled = Truecmdlast.Enabled = TrueEnd IfEnd Sub“关闭”按钮代码：Private Sub cmdclose_Click()Unload MeEnd Sub“
30、查找”按钮代码：Private Sub cmdfind_Click()Dim str As StringDim mybookmarket As Variantmybookmarket = myRs.Bookmarkstr = 名称= & Text2.Text & myRs.MoveFirstmyRs.Find strIf myRs.EOF ThenMsgBox 您所指定的条件没有匹配的记录，请重新输入！, , 信息提示myRs.Bookmark = mybookmarketElseFor i = 1 To 7Text1(i).Text = myRs.Fields(i - 1).ValueNext iEnd IfEnd Sub系统完成后部分效果展示图：第六章参考文献杨忠宝 康顺哲主编VB语言程序设计教程 人民邮电出版社潘明寒主编 Access程序设计教程 清华大学出版社第七章致谢在这一个多月以来，经过多方询问，完成了该篇论文，期间经历了各种困难，学到了很多新知识，在这里，感谢帮助我完成这篇论文的各位老师和朋友，感谢各位老师对我的论文提出宝贵意见。我会在今后的学习中继续加深对VB的学习，争取使这篇文章更加完善。18