毕业设计 10.docx
- 文档编号:6051006
- 上传时间:2023-01-03
- 格式:DOCX
- 页数:22
- 大小:672.69KB
毕业设计 10.docx
《毕业设计 10.docx》由会员分享,可在线阅读,更多相关《毕业设计 10.docx(22页珍藏版)》请在冰豆网上搜索。
毕业设计10
编号:
南京森林警察学院
毕业论文
论文题目国家重点保护野生植物数据库(木本)专业
班级
姓名
指导教师
年月
国家一级重点保护野生植物数据库(木本)
()
摘要:
以VisualBasic6.0和SQLServer为开发软件,针对国家一级重点保护野生植物开发了国家一级重点保护野生植物数据库(木本)软件,在介绍主要模块的基础上,介绍了设计思路、方法、功能及作用,探讨了其实现方式。
关键词:
森林公安VB数据库国家一级重点保护植物
一、设计的目的和意义
美丽源于自然,我国地域幅员辽阔,植物种类多样。
这也为初学者造成了困惑,喜欢却不知道从何入手,成了广大初学者的心声。
本程序立足于森林警车学院在校学生是实际应用,争取为各位同学提供一个初步学习和巩固查询的功能。
希望各位使用者能在这里找到自感兴趣的知识。
本程序在运行之初即分为用户和管理员。
普用户在申请页面申请后经过管理员同意即可使用本程序,查询自己感兴趣的知识。
初始密码为123.管理员在登陆后可以对植物数据库和普通用户进行分别管理,以净化、优化程序使用环境。
最后,希望各位使用愉快。
二、设计的工作环境
(一)页面设计
采用VisualBasic6.O进行系统的页面框架设计。
VisualBasic6.0(VB)是一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言,VB系统提供了各种对象供用户使用.因此其程序设计的过程就是使用对象对相应的事件的编码过程。
可视化程序设计环境提供给程序员的界面称为可视化界面,使用可视化界面,程序员在设计用户界面时可以直接根据视觉通过鼠标拖动而不用编写过多的代码。
此外.可视化程序设计环境也提供了每个控件与代码相关联的方法。
其优点在于:
1.图形用户界面可视化开发。
2.面向对象的程序设计方法,把程序和数据封装起来作为一个对象,控件的添加、移动、删改以及修改属性方便快捷,属性的修改可以使用语句的方式.也可以使用在属性框中修改的方式。
3.VB本身提供与各种数据库相链接的接口。
可以快速方便的对数据库进行读写操作。
4.VB也提供与SQLserver相连接的接口。
传输数据方便。
如可以直接生成EXCEL文档。
5.VB中可以使用AdodcX控件。
很容易在VB中增加新功能.降低使用者的编程压力。
(二)后台建设
用SQL进行数据库的搭建,使系统具备基本的添加、删除功能,实现教务内容的动态性。
SQL(StructuredQueryLanguage,结构查询语言)是一个功能强大的数据库语言。
SQL通常使用于数据库的通讯。
ANSI(美国国家标准学会)声称,SQL是关系数据库管理系统的标准语言。
SQL语句通常用于完成一些数据库的操作任务,比如在数据库中更新数据,或者从数据库中检索数据。
使用SQL的常见关系数据库管理系统有:
Oracle、Sybase、MicrosoftSQLServer、Access、Ingres等等。
虽然绝大多数的数据库系统使用SQL,但是它们同样有它们自立另外的专有扩展功能用于它们的系统。
但是,标准的SQL命令,比如"Select"、"Insert"、"Update"、"Delete"、"Create"和"Drop"常常被用于完成绝大多数数据库的操作。
但是,不像其它的语言,如C、Pascal等,SQL没有循环结构(比如if-then-else、do-while)以及函数定义等等的功能。
而且SQL只有一个数据类型的固定设置,换句话说,你不能在使用其它编程语言的时候创建你自己的数据类型。
SQL功能强大,但是概括起来,它可以分成以下几组:
DML(DataManipulationLanguage,数据操作语言):
用于检索或者修改数据;
DDL(DataDefinitionLanguage,数据定义语言):
用于定义数据的结构,比如创建、修改或者删除数据库对象;
DCL(DataControlLanguage,数据控制语言):
用于定义数据库用户的权限。
其中DML组可以细分为以下的几个语句:
SELECT:
用于检索数据;
INSERT:
用于增加数据到数据库;
UPDATE:
用于从数据库中修改现存的数据
DELETE:
用于从数据库中删除数据。
DDL语句可以用于创建用户和重建数据库对象。
SQL是高级的非过程化编程语言,允许用户在高层数据结构上工作。
他不要求用户指定对数据的存放方法,也不需要用户了解具体的数据存放方式,所以具有完全不同底层结构的不同数据库系统可以使用相同的SQL语言作为数据输入与管理的接口。
它以记录集合作为操纵对象,所有SQL语句接受集合作为输入,返回集合作为输出,这种集合特性允许一条SQL语句的输出作为另一条SQL语句的输入,所以SQL语言可以嵌套,这使他具有极大的灵活性和强大的功能,在多数情况下,在其他语言中需要一大段程序实现的一个单独事件只需要一个SQL语句就可以达到目的,这也意味着用SQL语言可以写出非常复杂的语句。
SQL同时也是数据库文件格式的扩展名。
1.SQL语言包含4个部分
数据定义(DDL)语言(如CREATE,DROP,ALTER等语句)
数据操纵(DML)语言(INSERT,UPDATE,DELETE语句)
数据查询语言(SELECT语句)
数据控制语言(如GRANT,REVOKE,COMMIT,ROLLBACK等语句)
2.SQL语言具有以下特点:
综合统一;
高度非过程化;
面向集合的操作方式;
以同一种语法结构提供两种使用方式;
语言简捷,易学易用
(三)链接功能
采用SQL语言实现系统界面和数据库的连接。
三、系统的功能、结构设计
如图1所示。
图1
(一)数据信息
程序的第一个功能是数据库信息查询,通过数据库信息查询,我们可以清楚的了解到已加入的植物中文名字以及拉丁文名字,如“银杏Ginkgobiloba、百山祖冷杉Abiesbeshanzuensis”,我们还能清楚的了解到当前已经注册的用户姓名,以便用户查阅。
1.已加入的植物
如图2所示。
图2
2.已注册用户
如图3所示。
图3
(二)用户
单击可用户登录和信息修改
1.用户登录
通过已注册的用户输入用户名和密码进行登录,弹出一个可以查找植物名称的界面,只需输入需要查找植物的中文名字或者拉丁文名字,就能够迅速的显示出所需查找植物的形态特征、分布习性、用途及价值、显示图片等文本框。
想要了解其中任何一个的具体说明方可单击进入,进行详细了解。
如想退出,单击返回选择界面按钮。
用户登录的代码:
DimcnnAsNewConnection
PrivateSubCommand1_Click()
DimrsAsNewRecordset
DimmstrsqlAsString
Dimuser,passAsString
user=Text1.Text
pass=Text2.Text
Setrs=NewRecordset
mstrsql="select*from用户表where姓名='"&user&"'and审核='true'
rs.Openmstrsql,cnn,adOpenStatic,1
Ifrs.RecordCount>0Then
Ifpass<>rs("密码")Then
Y=MsgBox("您输入的密码不正确",16,"提示")
Else
Form3.Show
EndIf
Else
X=MsgBox("该用户不存在或未通过审核",48,"提示")
EndIf
rs.Close
Setrs=Nothing
Text1.Text=""
Text2.Text=""
EndSub
(1)登录界面
如图4所示。
图4
(2)输入植物名称
如图5、6所示。
代码为:
DimcnnAsNewConnection:
Dimzhongwen,ladingwenAsString
PrivateSubCommand1_Click()
DimrsAsNewRecordset
DimmstrsqlAsString
zhongwen=Text1.Text
Setrs=NewRecordset
mstrsql="select*from木本植物where中文名字='"&zhongwen&"'"
rs.Openmstrsql,cnn,adOpenStatic,1
Ifrs.RecordCount>0Then
Ifzhongwen=rs("中文名字")Then
MsgBox"该植物不属于国家一级保护野生植物(木本)"
Else
Form5.Show
EndIf
EndIf
rs.Close
Setrs=Nothing
EndSub
PrivateSubCommand2_Click()
DimrsAsNewRecordset
DimmstrsqlAsString
ladingwen=Text2.Text
Setrs=NewRecordset
mstrsql="select*from木本植物where拉丁文名字='"&ladingwen&"'"
rs.Openmstrsql,cnn,adOpenStatic,1
Ifrs.RecordCount>0Then
Ifladingwen=rs("拉丁文名字")Then
MsgBox"该植物不属于国家一级保护野生植物(木本)"
Else
Form5.Show
EndIf
EndIf
rs.Close
Setrs=Nothing
EndSub
PrivateSubCommand3_Click()
Form10.Show
Form3.Hide
EndSub
图5
图6
(3)点击中文查询或拉丁文查询,即可弹出界面。
如图7所示。
图7
(4)想要了解其中任何一个的具体说明方可单击进入,进行详细了解。
<1>显示图片
如图8所示。
代码:
PrivateSubCommand1_Click()
'调用这个过程就显示图片到Image1控件中
If(NotAdodc1.Recordset.BOF)And(NotAdodc1.Recordset.EOF)Then
tmpSQLStmt="SELECT中文名字,图片FROM木本植物WHERE中文名字='"+Trim(StrReplace(Text1.Text))+"'"'sfzh,zp表示身份证号和照片两个字段名
CallShowImage(Image1,tmpSQLStmt)
EndIf
'调用这个过程就显示图片到Image1控件中
If(NotAdodc1.Recordset.BOF)And(NotAdodc1.Recordset.EOF)Then
tmpSQLStmt="SELECT中文名字,图片FROM木本植物WHERE中文名字='"+Trim(StrReplace(Text1.Text))+"'"'sfzh,zp表示身份证号和照片两个字段名
CallShowImage(Image2,tmpSQLStmt)
EndIf
'调用这个过程就显示图片到Image1控件中
If(NotAdodc1.Recordset.BOF)And(NotAdodc1.Recordset.EOF)Then
tmpSQLStmt="SELECT中文名字,图片FROM木本植物WHERE中文名字='"+Trim(StrReplace(Text1.Text))+"'"'sfzh,zp表示身份证号和照片两个字段名
CallShowImage(Image3,tmpSQLStmt)
EndIf
EndSub
PrivateSubCommand2_Click()
Image1.Picture=LoadPicture("")
Image2.Picture=LoadPicture("")
Image3.Picture=LoadPicture("")
Form11.Hide
Form5.Show
EndSub
PrivateSubForm_Activate()
Text1.Text=Form3.Text1
EndSub
PrivateSubForm_Load()
Show
Image1.Picture=LoadPicture("")
EndSub
图8
<2>形态特征
如图9所示。
代码:
PrivateSubCommand1_Click()
Form9.Hide
Form5.Show
EndSub
PrivateSubForm_Load()
Text1.Text=Form3.Text1.Text
EndSub
图9
<3>分布习性
如图10所示。
代码:
PrivateSubCommand1_Click()
Form6.Hide
Form5.Show
EndSub
PrivateSubForm_Load()
Text1.Text=Form3.Text1.Text
EndSub
图10
<4>用途及价值
如图11所示。
代码:
PrivateSubCommand1_Click()
Form7.Hide
Form5.Show
EndSub
PrivateSubForm_Load()
Text1.Text=Form3.Text1.Text
EndSub
图11
2.信息修改
如图12、13所示。
填入所需要填入的信息,确认无误后,点击确定提交按钮。
信息修改的代码:
DimcnnAsNewConnection
PrivateSubCommand1_Click()
DimrsAsNewRecordset
DimsqlstrAsString
DimmydataAsADODB.Recordset
Dimuser,passAsString
user=Text1.Text
pass=Text2.Text
sqlstr="select*from用户表where姓名='"&user&"'"
Setrs=NewRecordset
rs.Opensqlstr,cnn,adOpenStatic,1
Ifrs.RecordCount>0Then
Ifpass<>rs("密码")Then
MsgBox"原始密码不正确"
Else
IfText4.Text=Text3.TextThen
sqlstr="update用户表set密码='"&Text3.Text&"'QQ='"&Text5.Text&"'电话='"&Text6.Text&"'邮箱='"&Text7.Text&"'where姓名='"&user&"'"
MsgBox"信息已更新"
UnloadMe
Else
MsgBox"两次输入的密码不一致"
EndIf
EndIf
EndIf
Ifrs.State=1Thenrs.Close
Setrs=Nothing
EndSub
图12
图13
(三)申请加入
如图14、1516所示。
1.用户账号申请,所有信息添加准确无误后,点击确认提交。
用户申请的代码
DimcnnAsNewConnection
PrivateSubCommand1_Click()
Adodc1.Refresh
IfText1.Text<>""AndText2.Text<>""AndText3.Text<>""AndText4.Text<>""Then
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("姓名")=Text1.Text
Adodc1.Recordset.Fields("性别")=Text2.Text
Adodc1.Recordset.Fields("所属系")=Text4.Text
Adodc1.Recordset.Fields("学号")=Text3.Text
Adodc1.Recordset.Fields("QQ")=Text5.Text
Adodc1.Recordset.Fields("电话")=Text6.Text
Adodc1.Recordset.Fields("邮箱")=Text7.Text
Adodc1.Recordset.Update
Adodc1.Refresh
MsgBox"申请成功。
等待审核"
UnloadMe
Else
MsgBox"申请失败,可能你输入的信息不完整!
"
UnloadMe
EndIf
EndSub
图14
图15
图16
2.在管理员登陆人员管理列表中出现,等待审核。
如图17、18所示。
图17
图18
3.通过审核的人员,即可以在用户登录中输入,即可进行相关查询。
验证如图19、20所示。
图19
图20
(四)管理员登陆
如图21所示。
1.通过管理员登陆,能够进行登陆人员管理,登陆植物管理,添加图片
管理员登录代码:
DimcnnAsNewConnection
PrivateSubCommand1_Click()
DimrsAsNewRecordset
DimmstrsqlAsString
Dimuser,passAsString
user=Text1.Text
pass=Text2.Text
Setrs=NewRecordset
mstrsql="select*from管理员表where管理员姓名='"&user&"'"
rs.Openmstrsql,cnn,adOpenStatic,1
Ifrs.RecordCount>0Then
Ifpass<>rs("密码")Then
Y=MsgBox("您输入的密码不正确",16,"提示")
Else
Form16.Show
EndIf
Else
X=MsgBox("该用户不存在或不是管理员",48,"提示")
EndIf
rs.Close
Setrs=Nothing
EndSub
PrivateSubCommand2_Click()
DimrsAsNewRecordset
DimmstrsqlAsString
Dimuser,passAsString
user=Text1.Text
pass=Text2.Text
Setrs=NewRecordset
mstrsql="select*from管理员表where管理员姓名='"&user&"'"
rs.Openmstrsql,cnn,adOpenStatic,1
Ifrs.RecordCount>0Then
Ifpass<>rs("密码")Then
Y=MsgBox("您输入的密码不正确",16,"提示")
Else
Form17.Show
EndIf
Else
X=MsgBox("该用户不存在或不是管理员",48,"提示")
EndIf
rs.Close
Setrs=Nothing
EndSub
PrivateSubCommand3_Click()
Form18.Show
EndSub
图21
2.输入管理员姓名及密码,进入登录人员管理、登录植物管理、添加图片界面
如图22。
图22
3.登录人员管理
如图23所示。
图23
(1)删除用户
如图24、25所示。
图24
图25
(2)显示删除成功
如图26所示。
图26
4.登录植物管理
如图27所示。
图27
(1)删除植物,输入想要删除植物的名字,点击删除该植物。
如图28所示。
图28
(2)显示删除成功
如图29所示。
图29
(3)证明删除成功
如图30所示
图30
5.添加植物,在添加植物的信息栏中,填写相关信息,植物的中文名称、植物的拉丁文名称、形态特征、分布习性、用途及价值、申请添加人的信息。
如填写不完整,则会显示“输入失败,可能你添加的信息不完整”。
如图31、32所示。
图31
图32
(1)如信息不完整,则会显示
如图33、34所示。
图33
图34
(五)说明
点击说明按钮,即可弹出一个崭新的界面,供使用者了解软件的用途与实际意义,阅读完毕后,点击“知道了”即可返回主页面。
如图35所示。
说明的代码为:
PrivateSubCommand1_Click()
UnloadMe
Form10.Show
EndSub
图35
(六)退出系统
如果用户对相关知识查询完毕或想要退出系统,即可单击“退出系统”,方可退出。
四、总结
该系统简化了初步了解和研究国家一级保护野生植物的工作量,使之更加合理化、简便化、科学化。
为初学者打开了一条探索之路。
本系统能够使用户清晰明朗的查看有关野生植物的相关信息,内容和知识条理化便于用户了解和记忆。
在制作该系统的过程中,遇到一些困难也学到一些知识。
遇到的第一个困难就是对植物学的学习,由于制作者本人并没有系统的学习植物学的知识,所以在制作之初,首先需要攻克的就是植物学知识。
为此特地参考了《国家林业局.中国重点保护野生植物资源调查》、《植物百科/彩图MINI百科全书》,植物学的学习,为系统的简化提供了帮助。
除此之外,还有很多不完善的地方,因为知识水平和解决相关问题的能力不足,普通用户和管理员用户不能很好的衔接在一起,很容易出现管理混乱等错误,所以把普通用户登录和管理员登录区别开了,还有待进一步完善。
参考文献:
[1]宋漪.SQLServer数据库管理与开发[M].北京:
电子工业出版社,2005.
[2]董国平.颜志军.万丽.VisualBasic数据库开发[M].北京:
电子工业出版社,2003.
[3]赵明生.公安计算机应用教程[M].南京:
东南大学出版社,2008.
[4]刘志俯.基于VB和SQL的数据库
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 毕业设计 10