[档案管理系统的设计与开发] 学生学籍档案管理系统开发与设计
时间：2019-01-03 03:25:12 来源：雅意学习网 本文已影响 人 
摘 要: 城市建设与城市管理是一对密不可分的关系,忽略任何一个方面都将对城市造成很大损失。如何最大限度地挥发城市管理的水平,这是广大城市管理者关心的问题,同时也是广大工程技术人员关心的问题。只要开发出较好的管理程序,计算机就可以帮助提高城市管理水平,并做到管理资料和各种数据准确无误,它不但能满足城市管理的要求,而且能进一步规范城市建设与施工行为,能做好政府的帮手。
关键词: 建设工程 城建档案 管理系统 数据库查询
一、设计概况
1.系统的重要性
建设城市必须真正做到了解城市,了解城市必须熟悉城市的“神经系统”。建国以来,我国的城市管理与建设资料,以人工操作与手工记录为主,因此在城市建设中经常发生不明情况的断水、断电、断通讯的事件。
随着信息化时代的到来,计算机的发展,如何使计算机在城市建设中发挥作用,这是计算机应用领域中工程技术人员关心的问题,同时也是本文的重点。
各工程单位在施工前必须到城建档案部门查阅相关建设资料,掌握已验收工程、相邻工程、在建工程和待建工程的各种关系。同时,在有关政策和规定的支持下,各级城建档案部门必须定期向社会提供出现断水、断电、断通讯事故单位的名单。
2.相关建设资料管理流程简图
施工中形成的建设资料工程完成后上交
和工程设计资料 相关建设资料
城建档案部门档案管理并为下一建设周期
上门指导 提供准确、可靠的相关资料
经调查得知,一个省会城市在一年中收集到的各种城市建设相关资料不少于10000卷,每卷最少也有500页以上,最大的施工图页面有0号图纸大。面对这样庞大的数据,为完成资料的收集、整理、保管等工作,首先要有政府的支持和与之配套的政策,另一个就是要有计算机的支持,再一个是城建档案部门要有一批不怕困难、敢于吃苦的管理人员。
3.计算机管理的特点
所有工程建设资料的目录由“数据库”进行收集,这个数据库中不许作删除操作,要充分保证资料的原始性,为了保证资料的准确性和可靠性,并达到建设部和实际情况的要求,在数据库中设置了满足需要的字段,当然也有记录不常出现事故的能力。另外,该数据库可根据相关权限进行相应访问,操作的结果可输出相对应的报表。
数据库不在网上运行也不进行任何共享操作,这个数据库中设置多张表,城建档案部门的各相关职能部门按规定操作自己的表并更新自己的表。
操作人员根据计算机提供的程序界面进行操作,界面的设计原则是操作尽量简单,不要或少要操作人员输入字符,界面的字符全部为中文字符。
计算机程序的运行环境为Windows 9X、Windows XP,计算机程序可用Visual C++或Visual Basic编制,数据库可用PowerBuilder、SQL Serven或Access等工具进行设计。
本文应用程序使用Visual Basic编制,数据库使用Access进行设计。
二、软件设计
1.开发模型
数据库模型:在模型中有一个数据库名称为Manager,在数据库中有五张表,各表的作用与操作对象如模型所示。
Manager库Position表作用:查询所要资料在档案库中的位置,
操作:由档案收集部门管理。Borrow表作用:向有关部门提供原始档案资料,
操作:由档案收集部门管理Password表作用:提供数据库访问所需的密码,
操作:需要向数据库进行添加操作的有关部门。Report表作用:工程报建时取得档案收集部门的认可,
操作:业务指导部门。Other表作用:记录不常出现的事件,
操作:各有关职能部门。
系统应用程序模型:为多窗体程序;
使用DataGrid控件显示和操作数据;
各种操作由菜单完成;
使用SQL语句对数据库进行查询;
在数据环境中设置、完成报表的打印。
2.软件的实现
①程序由多窗体组成
Begin.frm:本程序的欢迎界面;Frist.frm:程序的操作主窗体;MyOutput.frm:档案外调要事记录窗体;Password.frm:进入数据库操作时必须输入的密码窗体;Second.frm:第一次申报窗体;DataEnvironment:数据环境;DataFind:查询报表;DataMemer数据库浏览报表。
②查询工作的主要流程
Private Sub Form_Load()Set_agree.Enabled=False不能打印Set_data.Enabled=False不能浏览Set_outwrok.Enabled=False不能调阅打开程序主窗体first.frm
End Sub
数据库查询(菜单)按单位名称查询(Set_name)激活Label1和inputname按工程地点查询(Set_position)激活Label4和Text1激话按键Command7.Enabled=True
档案调阅(菜单)
调阅次数操作(Set_outwrok)
激活Set_outwrok.Enabled=True
打印(菜单)
按查询结果预览(Set_data)
激活Set_data.Enabled=True
按查询结果打印(Set_agree)
激活Set_agree.Enabled=True
③程序主操作界面
④程序查询的实现
Private Sub Command7_Click()查询
Dim MyUse As String
MyInput1=""+Text1.Text+"" 构造查询条件
MyInput2=" "+inputname.Text+""构造查询条件
If Myquery Then 按单位名称“或”工程地点查询
MySQL="SELECT序号,单位名称,项目类型,项目地点,档案存放地点,工程建设时间,类型中的分项,档案调阅次数"_
&"FROM Myposition"_
&"WHERE单位名称"&"="& MyInput2
Adodc1.RecordSource=MySQL 设置数据源
Adodc1.Refresh刷新
DataGrid1.Caption="数据库按单位查询表"
DataGrid1.Refresh 刷新
Else
MySQL="SELECT序号,单位名称,项目类型,项目地点,档案存放地点,工程建设时间,类型中的分项,档案调阅次数"_
&"FROM Myposition"_
&"WHERE 项目地点"&"="& MyInput1
Adodc1.RecordSource=MySQL
Adodc1.Refresh
DataGrid1.Caption="数据库按工程地点查询表"
DataGrid1.Refresh
End If
Set_agree.Enabled=True能打印
Set_data.Enabled=True 能浏览
Set_outwrok.Enabled=True 能调阅
本文为全文原貌 未安装PDF浏览器用户请先下载安装 原版全文 EndSub
⑤密码确定
Private Sub Command2_Click()密码输入
Dim MyStr As String
If old.Text=Data1.Recordset.Fields("newpass") Then
Unload password
second.Show
Else
MsgBox"密码错,请重新输入,您只能输入三次!",vbOKOnly,"密码校验"
old.Text=""
old.SetFocus
MyInt=MyInt+1
MyStr=Str(MyInt)
MsgBox"您已经输入"+MyStr+"次!",vbOKOnly,"提示信息"
End If
If MyInt=3 Then恢复变量
MyInt=0
End
End If
End Sub
⑥跟踪数据库记录条数
Private Sub Adodc1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum,ByVal pError As ADODB.Error,adStatus As ADODB.EventStatusEnum,ByVal pRecordset As ADODB.Recordset)
Text1.Text="第"& Adodc1.Recordset.AbsolutePosition &"条。"
End Sub
⑦查询结果的浏览
Private Sub Set_data_Click()按查询结果浏览
DataEnvironment1.rsmyprint.Source=MySQL
DataEnvironment1.rsmyprint.Open
DataFind.Refresh 报表刷新
DataFind.Show报表浏览
DataEnvironment1.rsmyprint.Close
End Sub
高校计算机软件专业一般设置了数据库开发与应用、SQL Servien、VC、VB、软件工程等专业课程,如何将这些课程的核心思想与现实生活中的实际工程结合,让学生充分发挥自己的能力与才能,在实践中提高自己的动手能力,是每个教授计算机软件的教师所关心的问题。通过简单、实用的工程设计与开发可以促进师生相动。
参考文献:
[1]柳青等.Visual Basic程序设计教程.北京:高等教育出版社,2002.
[3]郝蕴等.Visual C++ 6.0开发与实例.北京:电子工业出版社,1999.
[4]张君等.InstallShield 6.X.北京:北京希望电子出版社.
本文为全文原貌 未安装PDF浏览器用户请先下载安装 原版全文
