仓库设备数据库应用程序的主要作用是存放数据、从数据库中检索和统计数据，以得到各种各样的信息。本系统完整的数据库应用程序按照功能可分为四个部分的内容：数据库（单表）；应用程序窗体；查询和更新；报表和图表(仪器领用单)。
数据库是数据库应用程序的基础，主要用来存放原始数据。一般来说。用户不直接对原始数据进行操作。如果需要检索和更新数据，先用查询将数据检索出来放在缓冲区或临时表中，用户对缓冲区和临时表中的数据进行操作，在所有的操作完成后，再将数据的更改更新到数据库中。窗体用来完成用户和数据库之间、与程序之间交互。报表和图表的数据来自查询和统计，是定制的。它们之间的相互作用如图１所示。
报表和图表 查询和统计
图1数据库应用程序的基本组成
数据库设计是开发数据库及其应用系统的技术，也是本系统开发和建设的重要组成部分。具体说，数据库设计是要在一个给定的应用环境中，通过合理的逻辑设计和有效的物理设计，构造较优的数据库模式，建立数据库及其应用系统，满足用户的各种信息需求。
这里从数据库应用系统和开发的全过程来考虑，根据本系统的实际情况，将数据库及其应用系统的设计分为以下几个阶段：需求分析，功能模块设计，创建数据库，创建应用工程文件，创建应用窗体文件，创建应用文件包。
在设计一个数据库之前，首先要对数据库的设计目的和应用背景进行分析。在进行设计目的分析时，应搞清楚该数据库要解决一个什么样的问题、需要存储哪些数据、能够提供哪些信息、完成哪些自动化功能等。应用背景指数据库应用于一个什么样场合。在对本系统应用环境和需求进行收集和分析后所形成的抽象的系统概貌图如图2。
数据存储 处理 数据 输出 数据 来源 数据流
图2系统概貌图
本系统是为仓库开发的设备管理系统，根据任务书的要求，应设计一个可行的数据库结构和数据库管理系统。该数据库管理系统应具有：
1. 数据查询功能(多种关键词查询 )；
2. 数据更新功能(修改, 增加, 删除等)；
3. 数据安全性设计。
概括层的数据流图如图3
采购部门 仪器管理 系统 领用人1 领用人2 领用人n
图3数据流图
采购部门：负责采购仪器设备，将仪器设备的相关信息提供给实验室。
仪器管理系统：负责仪器的统一管理。通过该系统可以直接对数据库进行操作，进行业务处理，以记录每套仪器设备的相关信息；负责仪器设备的配入与发放，并记录仪器的发放与归还。
领用人(1、2、3……n)：领用人领用设备时要作相应记录，以便管理部门可以查询每套仪器的情况。
在软件设计中，程序设计分为两个阶段完成，首先进行结构设计，以确定程序由那些模块组成，然后进行过程设计，过程设计是确定每个模块的处理过程。
本系统共有两个数据库，一个是仪器性能指标数据库，另一个是用户标识和鉴定数据库。设计中规定了数据库的结构（表、记录、字段、关键字）、制订了数据所应满足的条件、规定了用户的使用密码和用户名,帮助用户方便地对数据库中数据进行操作。
以下是本系统的功能模块图。（如图4）
仓库设备数据库管理系统 密码数据库 仪器数据库 工程文件 系统信息界面 查询信息界面 修改信息界面 添加信息界面 删除信息界面 修改用户界面 添加用户界面 删除用户界面 用户登录界面 功能管理主界面
图4 系统功能模块图
在数据库管理系统的应用程序中有十一个应用窗体文件，分别是：
1、系统信息应用窗体文件，使用户了解系统摘要、硬件资源、系统组件、软件环境、Internet Explorer和office 2003 应用程序等信息；
2、登录初始化应用窗体；
3、用户登陆应用窗体文件，完成用户登录进入管理系统的功能；
4、信息管理和用户管理的主窗体，完成用户对系统功能的全局控制；
5、查询信息应用窗体文件，完成通过仪器编号和名称对仪器进行查询的功能；
6、修改信息应用窗体文件，完成修改仪器设备信息的功能；
7、添加信息应用窗体文件，完成信息的添加功能；
8、删除信息应用窗体文件，完成删除仪器设备信息的功能；
9、添加用户应用窗体文件，完成添加用户信息功能，记录用户名和用户密码；
10、删除用户应用窗体文件，完成删除用户信息功能；
11、修改密码应用窗体文件，完成对已有记载的用户进行密码重新设定的功能。
在使用Visual Basic开发数据库应用程序时，其后台数据库可以选用多种格式，本系统使用Microsoft Access的数据库格式，因为Access数据库和Visual Basic数据库都是Microsoft Jet数据库，其数据库对象的层次结构和编程方法是完全相同的，用Access创建的数据库可以原封不动地用到Visual Basic应用程序中。
Access数据库表的建立方法是：准备好设计资料，先在纸上设计好数据库的结构，即由哪几个表组成，每个表包含哪几个字段，各个字段的属性如何，哪个字段是关键字，共有多少个记录。下面介绍本系统中两个数据库的创建方法。
本系统的仪器数据库是用Microsoft Access中文版创建的。下面示例的表中主关键字是“yiqibianhao”，共有12个字段。
创建步骤如下：
1. 创建一个新的空数据库，确定数据库的名称及数据库的保存类型；
2. 向空数据库添加表，将数据进行分类和量化，并设置表单的主键；使数据便于计算机处理。列出每一个表所包含的数据字段名称，确定每个字段的数据类型和字段大小；
3. 在表单中输入和修改数据；
4. 保存数据库。
如图所示：
安全性问题是所有计算机系统都有的问题，只是在数据库系统中大量数据集中存放，而且是多用户共享，使安全性问题更为突出。数据库安全与恢复是数据库保护的组成部分，数据库保护一般包括四个方面的内容，其中安全性主要是对用户的存取数据库中数据权限的控制，以保证数据库的安全和保密。本系统根据任务书的要求，主要是对数据库的安全性进行了设计。
在计算机系统中，一般说来安全措施是分级设置的，本系统安全性设计中采用的是用户标识和鉴定。用户标识和鉴定是系统提供的最外层的安全保护措施，其方法是由系统提供一定的方式让用户标识自己的名字或身份，每次用户要进入系统时，系统对用户身份进行核实，通过鉴定后才提供系统使用权。本系统采用的方法具体是：用一个用户名来标明用户身份，系统鉴别此用户是否是合法的用户，若是，则可进入下一步的核实；若不是，则不能使用系统。为了进一步核实用户，系统要求用户输入密码，为保密起见，用户在终端上输入的口令不显示在屏幕上，系统核定密码以鉴别用户身份。
创建方法和步骤同
本系统的应用工程文件是用Visual Basic6.0创建的，选定“标准的可执行文件”单击“打开”进入工程的窗体文件设计。
本工程文件中有十一个应用窗体文件，下面分别是应用窗体文件的窗体格式和程序代码文本。
在visual basic中新建一个form，保存为formabout.frm。从工具箱中选择相应控件将其添加到窗体中，根据需要设置其各项属性，最后的关于仓库管理程序窗体如图所示。
将窗体及其各控件的属性设置完毕后，根据需要为窗体及控件添加事件处理函数，程序如下：
Private Sub CommandOK_Click()
Me.Hide
Load Formstart
Formstart.Show
End Sub
Private Sub Form_Load()
Me.Caption = "关于仓库管理程序"
Picture1.Appearance = 0
Labelbiaoti.Caption = "仓库管理程序"
End Sub
在visual basic中新建一个form，保存为start.frm。从工具箱中选择相应控件将其添加到窗体中，根据需要设置其各项属性，最后的程序初始化窗体如图所示。
将窗体及其各控件的属性设置完毕后，根据需要为窗体及控件添加事件处理函数，程序如下：
Private Sub Form_Load()
Label2.FontSize = 20
Label2.Caption = "欢迎登录仓库管理程序"
Label2.ForeColor = vbRed
Timer2.Interval = 50
Timer2.Enabled = True
Label2.Top = 1665
Label2.Left = Formstart.Width / 2 - Label1.Width / 2
Timer1.Interval = 50
End Sub
Private Sub Timer1_Timer()
Bar.Value = Bar.Value + 4
If Bar.Value = 98 Then
Bar.Value = 100
End If
If Bar.Value = 100 Then
If Timer1.Interval >= 1 Then
Unload Formstart
Load Formdenglu
Formdenglu.Show
End If
End If
End Sub
Private Sub Timer2_Timer()
Label2.Left = Formstart.Width / 2 - Label2.Width / 2
Label2.FontSize = Label2.FontSize + 1
If Label2.FontSize >= 36 Then
Timer2.Enabled = False
End If
End Sub
在visual basic中新建一个form，保存为formdenglu.frm。从工具箱中选择相应控件将其添加到窗体中，根据需要设置其各项属性，最后的用户登录窗体如图所示。
将窗体及其各控件的属性设置完毕后，根据需要为窗体及控件添加事件处理函数，程序如下：
Dim denglu As New ADODB.Connection
Dim rstdenglu As New ADODB.Recordset
Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "请输入用户名", vbOKOnly, "警告"
Text1.SetFocus
End If
If Text2.Text = "" Then
MsgBox "请输入密码", vbOKOnly, "警告"
Text2.SetFocus
End If
rstdenglu.MoveFirst
rstdenglu.Find ("yonghuming = '" + Text1.Text + "'")
If Not rstdenglu.EOF Then
If Text2.Text = rstdenglu.Fields("mima") Then
Me.Visible = False
mainForm.Show
Else
i = MsgBox("请输入正确的密码！", vbOKOnly, "密码错误")
End If
Else
MsgBox "用户名不正确！"
End If
End Sub
Private Sub Command2_Click()
Dim i As Byte
Beep
i = MsgBox("你确定要退出仓库管理系统吗？", vbYesNo, "退出系统")
If i = vbYes Then
End
End If
End Sub
Private Sub Form_Load()
Set denglu = New ADODB.Connection
denglu.CursorLocation = adUseClient
denglu.Open "Provider=Microsoft.Jet.OLEDB.4.0;User ID=admin;Data Source=F:\仓库管理系统\yonghuxinxi.mdb;Persist Security Info=False"
Set rstdenglu = New ADODB.Recordset
Set rstdenglu.ActiveConnection = denglu
rstdenglu.Open "select * from yonghuxinxi", denglu, adOpenStatic, adLockOptimistic
End Sub
在visual basic中新建一个form，保存为mainform.frm。从工具箱中选择相应控件将其添加到窗体中，根据需要设置其各项属性，最后的仓库管理程序主窗体如图所示。
将窗体及其各控件的属性设置完毕后，根据需要为窗体及控件添加事件处理函数，程序如下：
Private Sub Commandsc_Click()
Load Formshanchuyh
Formshanchuyh.Show
End Sub
Private Sub Commandtc_Click()
Dim i As Byte
Beep
i = MsgBox("你确定要退出仓库管理系统吗？", vbYesNo, "退出系统")
If i = vbYes Then
Mydb.Close
Myws.Close
Unload Me
End If
End Sub
Private Sub Commandtj_Click()
Load Formtianjiayh
Formtianjiayh.Show
End Sub
Private Sub Commandxg_Click()
Load Formxiugaiyh
Formxiugaiyh.Show
End Sub
Private Sub Commandxxcx_Click()
上一页 [1] [2] [3] [4] [5] [6] [7] 下一页