更全的杂志信息网
期刊发表 | 网站导航

浅谈地质档案系统的开发

更新时间：2009-03-28

地质工作是一个对档案资料依存度高的行业，一切工作始于档案资料，终于档案资料。为便于对档案资料的管理使用，需要一套档案资料管理系统。该管理系统主要的功能是实现档案资料的计算机日常管理等工作。

1 系统思路

本系统采用Delphi 7+SQL Server2000企业版工具开发。首先为了使系统具有条理性，系统分为四大模块：登录模块、系统管理模块、查询统计汇总模块、借阅归还模块；其次，贯穿系统的是层级权限，这样考虑是因为不同身份的用户需要不同层次信息及权限；最后，具备人性化。比如给档案管理者逾期信息及时自动提醒功能等。

2 各模块设计

2.1 登录模块

登录模块主要是账号登录和账号申请。账号登录错误超过三次自动提示退出；账号申请实行分层级，分权限功能，层级包括超级用户、档案管理、部门管理、一般用户。不同层级权限是不同的，比如查询权限，一般用户级只能查那些资料能否借阅，但部门级可以查询本部门未归还资料，档案管理级还可以查询所有未归还资料情况以及统计分析等等。

 

实现的部分语句如下：

 
 
 

2.2 系统管理模块

系统管理模块包括系统配置、账号管理、资料管理，档案管理权限者须先配置，比如出版社、部门、负责人等等信息。在配置管理中，特别要强调的是，为了保持数据库的一致性、完整性，不是随意的删除已建立的数据，比如出版社、负责人等，因为数据库中这些关键性的信息是互相关联的，比如负责人，虽然部门负责人更换了，但是该负责人曾经审批的账号、借阅信息等存在，所以不能删除只能更新相应的字段编号或将状态转为无效。

表的设计主要要考虑各类关系，达到数据的一致、完整统一。再一个就是提高前台的效率，尽量缩小表的字段。表的关系主要是围绕各类报告表，用户表与之发生借阅关系，产生了借阅归还表。围绕这个核心，生成其他辅助数据库表。

 
 

部分语句如下：

 

2.3 查询统计汇总模块

部分语句如下：

不到半年的时间，新飞电器的“重生”就取得了实质性的进展。近日，深康佳一位内部人士表示，新飞电器最近两个月的销量超出预期，新飞电器目前已经实现盈利。

股骨粗隆间骨折对高龄患者无论是身心健康还是生活质量都具有严重影响，内固定材料的多样性使得临床治疗中在选择手术方案上分歧较大，本文将我院收治的100例高龄粗隆间骨折[1]患者作为本次研究对象，50例采用PCCP治疗其余50例运用PFNA治疗旨在比较两种不同治疗方法下所获得的临床效果。现报告如下。

 

查询统计汇总模块主要从三方面来进行设计的，一是从档案管理者角度来进行的统计分析资料的借阅情况，比如所有资料的逾期情况，各部门资料的借阅情况、当年资料借阅情况等等，便于年度工作分析总结。；二是从部门角度出发了解部门资料借阅归还等情况；三是从资料使用这角度出发的资料借阅与归还查询。

 

2.4 借阅归还模块

借阅归还模块，主要是按照工作流程，其中要检查有无逾期资料情况，同时借阅须各级审核。

 

实现的部分语句如下：

 

3 主要数据库表设计

我累得满头大汗，敲门后，开门的是她妈，我气喘吁吁地叫了句：“阿姨好！”紧接着双腿不听使唤，一下就跪在她妈面前……

主要数据库表如下：

 

用户表tab_User

  

列名 数据类型 长度 允许空 备注UserID smallint 2 编号 标识dept smallint 2 所属部门name nvarchar 30 职工姓名Sex bit 1 性别UserName nvarchar 30 用户名UserPassword nvarchar 10 密码Purpose nvarchar 50 申请目的AppDateTime datetime 8 申请时间

  

列名 数据类型 长度 允许空 备注DeptDateTime datetime 8 部门审批时间DeptLeader Smallint 2 部门负责人编号ArchiveDateTime datetime 8 档案馆审批时间WorkerID smallint 2 档案馆操作人员编号State Bit 1 状态（0：正常，1：删除）User_Level smallint 2用户层级（0普通，1部门，2馆，3超级）权限（0 普通，1部门，2馆，3超级）LastLoginDatetime datetime 8 上次登录时间AppID Int 4 申请单编号Author nvarchar 10

 

地质报告表tab_GeoReport

  

列名 数据类型 长度 允许空 备注id int 4 编号 标识GeoReportID Nvarchar 10 资料编号GeoReportName Nvarchar 50 资料名称CompanyName Nvarchar 50 编制单位Workers Nvarchar 50 编制人员EstabDate DateTime 8 编制时间ReportPages Smallint 2 报告页数ReportFigure Smallint 2 报告附图AttachedList Smallint 2 报告附表Attachment smallint 2 报告附件Disk Smallint 2 光碟Numbers Smallint 2 份数CurExistNum Smallint 2 当前存在份数Remark Nvarchar 50 备注BorrowState bit 1 借阅状态（0归还；1借出）BorrowTS int 4 借阅次数InputTime DateTime 8 录入时间WorkerID Smallint 2 操作人员编号State Bit 1 状态（0 正常；1删除）

借阅归还表 tab_BorrowReturn（拆分成一般信息、资料信息表，资料归还在一般信息表中，申请单编号为连接字段）一次审批借阅，多次归还模式。

像许多情种一样，我也曾有过浪漫的初恋，只是遭遇了一个饥不择食的年代，因而很不幸。但不幸之中有万幸，我的初恋就夭折在那个时候，没有酿成痛不欲生的恶果。无奈白云苍狗，后来发生的事情无形中又唤醒了我沉睡的记忆。

  

列名 数据类型 长度 允许空 备注Id int 4 编号 标识BorrowID nvarchar 6 申请单编号BorrowTime DateTime 8 借阅时间Deadline Datetime 8 限定归还日期（最晚一本时间）ReturnTime Datetime 8 归还时间（最后一本归还时间）BorrowPurpose Nvarchar 50 借阅目的UserID Smallint 2 借阅人编号DeptID smallint 2 所属部门编号Fdept Nvarchar 50 外单位名称Fuser Nvarchar 20 外单位借阅人姓名Address Nvarchar 50 外单位地址Phone Nvarchar 11 外单位电话Remark nvarchar 50 备注BorrowReturnState Bit 1 借阅状态（1归还；0借出）DeptDateTime DateTime 8 部门审批时间（审批目的）

  

列名 数据类型 长度 允许空 备注DeptLeader Smallint 2 部门负责人编号BworkerID Smallint 2 借阅操作人员编号RworkerID Smallint 2 归还操作人员编号（最后一本）Flag bit AppID Int 1 4外单位标志（1是）申请单编号

4 结语

本系统经过实践的验证，较好的发挥了管理作用，提高了工作效率，将原来看不见摸不着的档案管理状态，直观量化具体化了，有助于极大的提高地质档案工作水平。

 
秦威
《江西煤炭科技》 2018年第01期
《江西煤炭科技》2018年第01期文献

服务严谨可靠 7×14小时在线支持 支持宝特邀商家 不满意退款

本站非杂志社官网，上千家国家级期刊、省级期刊、北大核心、南大核心、专业的职称论文发表网站。
职称论文发表、杂志论文发表、期刊征稿、期刊投稿，论文发表指导正规机构。是您首选最可靠，最快速的期刊论文发表网站。
免责声明：本网站部分资源、信息来源于网络，完全免费共享，仅供学习和研究使用，版权和著作权归原作者所有
如有不愿意被转载的情况，请通知我们删除已转载的信息 粤ICP备2023046998号