于组织和表达信息,简而言之,数据库就是信息的集合。计算机的数据库可以分为两类:非关系数据库(flat-file)和关系数据库(relational)。关系数据库中包含了多个数据表的信息,数据库含有各个不同部分的术语,象记录、域等。
_新建一个数据库
创建任何一个数据库的第一步是仔细的规划数据库,设计必须是灵活的、有逻辑的。创建一个数据库结构的过程被认为是数据模型设计。
1.标识需要的数据;
2.收集被标识的字段到表中;
3.标识主关键字字段;
4.绘制一个简单的数据图表;
5.规范数据;
6.标识指定字段的信息;
7.创建物理表。
_修改已建的数据库
数据库的修改分为:添加、编辑和删除记录。这三种操作均可由VisualBasic创建的程序来完成,下面的章节将详细描述实现的具体方法。
_实现数据库之间的联系
数据库之间的关系指明两个库之间共享一个共同的关键字值。一个连接是指一种虚拟的表,这种表是在当用户要求从相互关联的各个不同的表中获取信息时建立的,关键字段用于在相互连接的不同表中查找匹配的记录。一个更高级的连接形式称为自连接。这种连接是指一个表被连接到它自己的一个字段,或在不同的纪录中由重复数据的组合字段。数据库中有三种不同类型的关键字:主关键字、组合关键字和外关键字。在表中使用的关键字类型用于描述库表示什么以及在数据库中如何与其它的库建立关系。
第五章.系统总体规划
_系统功能
1.可以进行文本操作;
2.添加一个数据库项目;
3.删除一个数据库项目;
4.修改一个数据库项目;
5.查询信息
6系统维护
6.1系统数据转出
6.2系统数据转入
6.3修改系统密码
6.4数据初始化
7帮助
8退出
第六章系统具体实现
主界面实现:
功能:对所有设备进行添加,查询,修改,删除操作,对用户密码进行修改,对每条设备信息进行打印。
数据编缉界面实现功能:
对于设备的编号,设备名称,设备型号,制造商,国别,购买日期,单价,数量,使用单位,使用人,管理员,放置地点,已使用年限,设备来源,报年限,联系电话等记录进行录入,删除,修改,打印操作!
数据查询界面与功能简介
实现对在所有的设备记录中查找某一个设备的说细信息,也可在查询完一个后点击
下一个按钮对下一条记录进行查询。
第七章.结束语
经过一个多月的设计和开发,设备管理信息系统基本开发完毕。其功能基本符合用户需求,能够实现固设备的基本信息的录入、更新、删除、打印等基本功能,从而实现设备的管理。对于数据的一致性的问题也通过程序进行了有效的解决。但是由于毕业设计时间较短,所以该系统还有许多不尽如人意的地方,比如联机文档比较少,用户界面不够美观,出错处理不够等多方面问题。这些都有待进一步改善。
致谢
在本次毕业设计中,我从指导老师身上学到了很多东西。老师认真负责的工作态度,严谨的治学精神和深厚的理论水平都使我收益匪浅。他无论在理论上还是在实践中,都给与我很大的帮助,使我得到不少的提高这对于我以后的工作和学习都有一种巨大的帮助,感谢他耐心的辅导。
另外,在系统开发过程中助手同学也给于我很大的帮助,帮助解决了不少的难点,使得系统能及时开发完成,还有同组的同学同样给与我不少帮助,这里一并表示感谢。
第八章.主要参考文献
[1]VisualBasic6.0使用指南
作者:BobReselman,RichardPeasley,WaynePruchniak.
出版社:电子工业出版社
[2]中文版MicrosoftOffice97自学通
作者:NedSnell
出版社:机械工业出版社
[3]VisualBasic6.0中文版控件大全
作者:Microsoft
出版社;电子工业出版社
[4]中文Access200024学时教程
作者:CraigEddy,TimothyBuchanan
出版社:机械工业出版社
九.程序源代码、各功能模块的程序流程图
――――登录界面源代码:
PrivateSubCommand1_Click()
IfTrim(Text1.Text)=Trim(Text3.Text)AndTrim(Text2.Text)=Trim(Text4.Text)Then
Form2.Show
UnloadMe
Else
ForX=1To1
IfA1.Recordset.EOF=TrueThen
MsgBox"您输入的用户名和密码有误,请重新输入!",16,"出错:"
Text1.Text=""
Text2.Text=""
A1.Recordset.AbsolutePosition=1
Else
IfTrim(Text1.Text)=Trim(Text3.Text)AndTrim(Text2.Text)=Trim(Text4.Text)Then
MDIForm1.Show
MDIForm1.PrintCommand1.Tag
MDIForm1.Tag=Text1.Text
UnloadMe
Else
X=X-1
A1.Recordset.MoveNext
EndIf
EndIf
NextX
EndIf
EndSub
PrivateSubCommand2_Click()
UnloadMe
EndSub
PrivateSubForm_Load()
IfA1.Recordset.EOF=TrueAndA1.Recordset.BOF=TrueThen
MsgBox"您是第一次使用本程序,请设置超级用户!",32,"设置:"
Form2.Show
UnloadMe
EndIf
EndSub
――――系统主界面代码:
PrivateSubgycx_Click()
frmAbout.Show
EndSub
PrivateSubsjbj_Click()
Form3.Show
EndSub
PrivateSubsjcx_Click()
Form5.Show
EndSub
PrivateSubsjdy_Click()
Form4.Show
EndSub
PrivateSubtc_Click()
UnloadMe
EndSub
PrivateSubToolbar1_Butt(ByValButtonAsMSComctlLib.Button)
SelectCaseButton.Index
Case1
Form3.Show
Case2
Form5.Show
Case3
Form2.Show
Case4
Form4.Show
Case5
frmAbout.Show
Case6
UnloadMe
EndSelect
EndSub
――――设备信息代码
PrivateSubCommand1_Click()
IfCommand1.Tag="True"Then
IfCommand1.Caption="输入新记录"Then
r=1
IfA1.Recordset.BOF=TrueAndA1.Recordset.EOF=TrueThen
Else
A1.Recordset.MoveFirst
EndIf
ForX=1To1
IfA1.Recordset.EOF=TrueThen
A1.Tag=Y
ExitFor
Else
A1.Recordset.MoveNext
EndIf
X=X-1
r=r+1
NextX
A1.Recordset.AddNew
Label3.Caption=r
Command1.Caption="输入完毕"
Command2.Enabled=False
Command3.Enabled=False
Command4.Enabled=False
Command5.Enabled=False
Form3.Height=8220
Form3.Top=300
F1.Visible=True
Else
Ift3(0).Text=""Then
MsgBox"设备不能为空!",16,"出错:"
t3(0).Text="123"
A1.Recordset.Delete
Command1.Caption="输入新记录"
Command2.Enabled=True
Command3.Enabled=True
Command4.Enabled=True
Command5.Enabled=True
Form3.Height=5728
Form3.Left=600
Form3.Top=1500
F1.Visible=False
Else
ForX=11To13
IfLen(Trim(t3(X).Text))>200Then
MsgBox"字符不能超过200个!",16,"出错:"
ExitSub
EndIf
NextX
A1.Recordset.MovePrevious
A1.Recordset.MoveNext
Command1.Caption="输入新记录"
Command2.Enabled=True
Command3.Enabled=True
Command4.Enabled=True
Command5.Enabled=True
Form3.Height=5728
F1.Visible=False
Form3.Left=600
Form3.Top=1500
EndIf
EndIf
Else
MsgBox"您没有这个权限!",16,"出错:"
EndIf
EndSub
PrivateSubCommand10_Click()
ForX=0To6
IfA1.Recordset.EOF=TrueThen
MsgBox"您已经位于最后一条记录",32,"提示:"
A1.Recordset.MovePrevious
ExitSub
Else
A1.Recordset.MoveNext
EndIf
NextX
EndSub
PrivateSubCommand11_Click()
Form10.Show
UnloadMe
EndSub
PrivateSubC
上一篇:
VB计算机高级语言多媒体教学演示系统(论文和程序)
下一篇:
黑色的摄影网站展示功能强大网上少见js技术强悍