油藏资料管理系统(2)

通过调研了解到，该油藏资料馆各个部门负责的主要业务如下：
（1）采编组主要负责油藏资料采编工作，包括购置新资料、打印编目、增加数量。
（2）目录厅主要负责读者查询工作，包括可借油藏资料（按油藏资料类别、油藏资料名称或油藏资料作者查询）；资料目录（按油藏资料类别、日期查询）；借资料情况
（3）借阅组主要负责油藏资料流通、查询统计、借阅查询等工作。
（4）阅览室、工具书室主要负责读者阅览工作，包括：阅览各种杂志、报纸、阅览各种工具书。
下面绘制出油藏资料馆流通业务中借书的流程图。
（1）读者在目录厅查阅索引卡；
（2）读者写出所借油藏资料的分类号、种次号、交给油藏资料管理员
（3）油藏资料管理员根据油藏资料的分类号、次号到书库找书；
（4）将油藏资料交给读者，并由读者填写所借油藏资料的借书卡。

【买计算机毕业论文就到www.think58.com】

copyright think58

[版权所有：http://think58.com]

[资料来源：www.THINK58.com]

（5）油藏资料管理员把借书卡保存到写有该读者借书证号的口袋里 think58.com

[资料来源：http://think58.com]

本文来自think58

[资料来源：www.THINK58.com]

1．2现行系统存在问题的分析
该油藏资料馆工作大部分还是进行着手工管理，工作起来效率很低，并且不能及时了解油藏资料馆各类油藏资料的存库，借阅者们比较需求的油藏资料等等，不便于动态及时地调整油藏资料结构，以便更好地适应当前借阅者的借阅需求。手工管理还存在这许多弊端，由于不可避免的人为因素，经常造成数据的遗漏、误报。计算机信息化管理有着储存信息量大、速度快等许多优点，提供给我们的处理信息及时快捷，同时也提高了我们工作人员的自身素质。
1．3解决方案
基于以上的对问题的分析，利用计算机给我们提供信息，及时地调整各公司及单位油藏资料馆油藏资料结构，并且对借阅者们的借阅过程形成一整套动态的管理就十分必要了。
油藏资料馆信息系统的建立，需要进行用户的需求调查与分析，以确定系统目标，提出解决问题的详细方案，这是系统建设的重要环节。
各公司及单位油藏资料馆规模相对于商业油藏资料馆小，但要有着完善的油藏资料信息，对每一资料要有详细的记录信息，功能上对系统的需求是全面的。因此对用户的需求可分为四个方面：一方面是油藏资料馆工作人员通过计算机来管理各类油藏资料，分类编号，调整油藏资料结构，增加油藏资料库存，适应借阅者的需求；二方面是借阅者们能通过计算机来查询浏览油藏资料馆中的油藏资料，来确定自已需要的书籍，为借阅做好准备；三方面是工作人员对借阅者们的借书证发放，登记能作好全面的掌握，及时得到每个借书证的当前状态和历史借阅记录；四方面也是油藏资料馆的核心工作，对油藏资料的借阅管理。

这四个方面形成了各公司及单位油藏资料馆一个工作整体，采用计算机自动化信息处理，可方便快捷地共享信息、交流信息，高效地协同工作。
在软、硬件方面对系统的需求，软件要求易学，界面友好，容易掌握，可以很简单方便的管理各种油藏资料信息。硬件的配置要求不能太高，这样可以很好的适应当前的各公司及单位油藏资料馆。
在开发方式上对系统的需求，由于各公司及单位油藏资料馆是一种无商业利益的，所以系统设计开发的周期要短，在短时间内完成，减少开发成本，提高开发效率，方便、简单、实用作为系统开发的指导思想。
1．4可行性分析
通过对该油藏资料馆的各个方面进行了具体的了解之后，现对该单位开发油藏资料管理系统的可行性进行分析。
技术上可行：该系统所需硬件设备，市场上销售且价格较低，甚至可以使用原有的设备，软件上，操作系统采用Windows系列操作系统，数据库管理系统采用Visual Basic，这些软件在MIS开发中已被大量应用，技术上都比较成熟。因此在技术上是可行的。
经济上可行：由于各公司及单位急需采用计算机来进行油藏资料馆的管理，因此对开发油藏资料管理系统大力支持，开发经费没有问题。
管理上可行：该各公司及单位的油藏资料馆有很多的管理体制，每位借书人均有借书证，同时油藏资料馆还为每位借书人建立了档案。因此管理上可行。另外，油藏资料馆管理人员对开发该系统也是大力支持的，同时制定了培训计划，并进行了实施MIS的物质准备和工作准备。 think58

[资料来源：http://www.THINK58.com]

第二章 系统分析与设计
2.1现系统中存在的问题
现行的油藏资料管理系统只是单一管理系统，现已不能满足快速准确的油藏资料管理需要。系统输入繁琐，极易产生输入错误，缺少智能化输入功能，如：油藏资料名称输入过程中，单位名称和单位代码不能够相互协调，易产生不匹配现象。另外，整个系统运行较慢，数据处理能力不够，进行一个查询往往需要等待很长时间。该系统还缺少油藏资料管理理功能，油藏资料组成条目都是经过手工计算的，工作量很大，且容易产生错误，有一个小错误，核对都需要花费很大的精力，换句话说，当前没有油藏资料管理系统。
原油藏资料系统是用basic开发，为单机版，不能实现网络共享，使同是人事部内部之间进行信息传递成为很棘手的问题。该系统已不能满足多个人员对数据的索取；如副科长管理计算机，则科长就不能在自己的办公室中查看资料。可见当前系统已不能适应未来管理信息系统发展的趋势，慢慢的将要被淘汰，一个新兴的网络管理信息系统是当前的迫切需求。 think58好，好think58

[来源：http://think58.com]

think58 [资料来源：THINK58.com]

六．第六章 系统设计各功能模块结构与实现
6.1用户界面的实现

登录界面中入用户名和密码就进入系统进行操作，如果密码输入错误次数超过三次，将会视为非为非法用户，系统将自动退出。
_ 主界面的实现

6.1 文件
文件由由数据备份，数据恢复，资料情况等组成。此可以对油藏资料进行对资料的数据进行备份，以及当系统出现问题后从指定目录进行数据的恢复，以及资料库存数进行查看。
6.2 操作
实现油藏资料的添加，删除，修改，查询等功能

6.3　外借　　　　　　对资料进行外借，外借查询，以及对外借的资料进行归还等操作。
6.4　内借与归还 对所有内借资料进行查询，借出，归还相应操作
6.5　用户管理 　 对于管理者进行删除，和修改管理者密码等进行操作
6.6 退出系统
_ 数据库的实现
6．2．1油藏资料数据库
油藏资料数据库里存储了油藏资料包括：油藏资料编号，油藏资料名，份数等
列名（中文）数据类型宽度小数点位数是否为空油藏资料编号Name Date8No资料名CodeInteger6No份数SexDate2No经办人AgeDate6No备注NationDate6No
油藏资料模块：
该模块主要完成借阅者基本信息的录入、删除 、更新等功能。在此模块中定义了八个域名来进行借阅者的信息存储。如果用户修改某一纪录中的某一项，可单添加按钮进行油藏资料记录的编辑，此窗口使用数据窗口的FREEDOM风格（典型的录入界面）。该种风格特点是列标题紧挨着数据列在此窗口还可以增加新借阅者纪录。
6．2．2管理者信息数据库
读者信息数据库里存储了油藏资料包括：用户名，密码
列名（中文）列名（英文）数据类型宽度小数点位数是否为空读用户名Name Date8No密码CodeInteger6No等 copyright think58

[资料来源：http://think58.com]

——油藏资料列表模块：
该模块主要完成油藏资料的基本信息的、删除 、删新，查询以及保存等功能。在此模块中定义了四个域名来进行油藏资料的信息存储。
油藏资料查找也可分为以油藏资料编号和油藏资料名称查找以及油藏资料份数。
也可以按照上一条，下一条，到第一条，到最后一条进行油藏资料的查找 think58 [资料来源：THINK58.com]

第七章、界面与精彩代码
系统登录界面与源代码：

Dim tdatabase As Database '定义数据库变量
Dim ttable As Recordset '定义表变量
Dim cishu As Integer '定义变量用来记录登录次数
Dim mima As String '用与从数据库中取出密码准备与输入判断
Dim mhp As String
Private Sub Command1_Click()
Dim mmm As String
ttable.MoveLast
ttable.MoveFirst
For i = 0 To ttable.RecordCount - 1
If ttable.Fields("tname") = Combo1.Text Then '如果找到用户名相等的记录并
mima = ttable.Fields("tpassword") '从此条记录中取出密码存放在mima变量中,同时跳出查找循环
Exit For
End If
ttable.MoveNext
Next i
If i = ttable.RecordCount Then
msgbox ("非法的用户！")
End
End If
If Text1.Text = mima Then '判断输入的密码是否正确
yunhu = Combo1.Text
MDImain.Show
tuserform.Hide
cishu = 0
Text1.Text = ""
Else
If cishu = 2 Then '判断是否输入了三次 内容来自think58

[资料来源：www.THINK58.com]

aaa = msgbox("你输入的密码三次都为错误，对不起系统无法进入！", vbOKOnly + vbExclamation, "密码错误")
Unload Me
Else
X = cishu + 1
Select Case X
Case 1
mmm = "一"
Case 2
mmm = "二"
End Select
aaa = msgbox("你输入的密码" + mmm + "次错误，请查证后再输。", vbOKOnly + vbCritical, "密码错误")
Text1.Text = ""
Text1.SetFocus
End If
cishu = cishu + 1
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
If Dir(App.Path + "\shujuzunku.mdb") = "" Then '判断数据库是否存在
Set db = CreateDatabase(App.Path + "\shujuzunku", dbLangChineseSimplified, dbEncrypt)
SQL = "create table[tuser]([tname]text(20),[tpassword] text(20))"
db.Execute SQL
SQL = "create table [shujukbb]([bianhao]text(10),[mingcheng]text(50),[shuliang]int,[danjia]float,[congruriqi]text(14),[jingbanren]text(16),[beizhu]text(100))" think58好，好think58
db.Execute SQL
SQL = "create table [chushou]([bianhao]text(10),[mingcheng]text(50),[shuliang]text(50),[danjia]text(50),[chushouriqi]text(14),[jingbanren]text(16),[beizhu]text(100))"
db.Execute SQL
SQL = "create table [chuzu]([bianhao]text(10),[mingcheng]text(50),[shuliang]text(50),[kehuname]text(16),[yajing]text(50),[zujing]text(50),[chuzuriqi]text(14),[jingbanren]text(16),[beizhu]text(100))"
[来源：http://www.think58.com]