班组网络管理系统

第 1 页 共 34 页 XX 大学计算机专业毕业 设计 领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计 班 组 网 络 管 理 系 统 学生姓名：张 静 指导老师：郑文华 日 期：二 00 二年五月 第 2 页 共 34 页 摘要： Match the HeFei power supply bureau correspondence the equipments management the system to make use of the Microsoft Access 2000 and the Visual Basic 6.0 developments's system software, include to correspond by letter the several and big function mold of search, system maintenance...etc. of management, equipments information of equipments the piece the covariance for tiny machine for equipments , main function realizing correspondence equipments information information, equipments install, having the the spare parts, equipments changing into, searching, having the good can seeing the operating the interface, realizing managing working, for managing personnel providing the fleetness efficiently the analysis, and increase the work efficiency. Key phrase:Equipments management information search [译；]设备管理系统是利用Microsoft Access 2000 和Visual Basic 6.0 开发的系统软件， 包括通信设备管理、设备信息查询、系统维护等几大功能模块，主要功能实现通信设备信息的 设备信息、设备配置、备品备件、设备变更的录入、查询，具有良好的可视化操作界面，实现 管理工作的微机化，为管理人员提供了快速高效的统计分析，提高工作效率。 关键词：设备管理 信息 查询 一、系统简介 通信所设备管理信息系统，是针对通信所具体的管理模式、工作任务和 流程 快递问题件怎么处理流程河南自建厂房流程下载关于规范招聘需求审批流程制作流程表下载邮件下载流程设计 ，面向对象、 面向实际工作，实现管理工作的微机化。 1 满足通信所各项日常工作，提高通信工作效率。 2 为管理人员提供快速、高效的统计分析、查询。 3 实现对通信管理工作 规范 编程规范下载gsp规范下载钢格栅规范下载警徽规范下载建设厅规范下载 化处理，使数据动态处理和畅通流动。 二、 系统开发原则 1 界面风格一致，实现对所有数据均可进行查询。 2 使用面向对象的设计思想。 3 系统具有较好的可维护性和可扩展性。 4 系统开发应以设备为中心，工作任务为线索，实现用户日常工作管理，便于用户使用，提 高用户的工作效率。 三、 系统分析 3． 1 系 统 建 设 的 必 要 性 在平时的工作，通信设备的台帐、资料比较多，保存比较困难且也容易丢失，特别是 在查找方面则更是麻烦，迫切需要一套关于通信设备方面的管理系统，来提高日常的管理 工作，为工作带来方便。 3．2 系统开发平台 本系统采用在 Wondows 98 操作系统环境下，利用 Microsoft Access 2000 作为后台数据 库，Visual Basic 6.0 可视化编程语言开发用户界面。由于 Microsoft Access 2000 和 Visual Basic 6.0 同为微软公司开发的产品，两者之间具有良好的接口，数据无需进行任何格式转化 且 Visual Basic 6.0 能迅速有效地编制程序界面，程序量小，易于实现。 第 3 页 共 34 页 3．3 系统硬件要求 1 PII 处理器（166 以上） 2 内存 64M 及以上 3 硬盘 5G 及以上 4 1.44M 软驱一个 5 显示器 3.4 组织机构分析 组织机构图如下： 生产副局长 办公室 检修班 通信调度 载波班 机务班 三产办 话务班 通信所 3.5 管理职能分析 设备管理包括运行设备管理 、设备配置管理、备品备件管理 、设备变更管理 。 运行设备管理: 由各生产维护班组及运行班组负责录入各运行设备的信息、运行状况。 设备配置管理: 根据设备安装地点的具体情况及具体要求,决定设备的配置情况。 备品备件管理: 根据备品备件的报表,确定是否需要购买新的板件。 设备变更管理: 根据各变电所的实际需要对设备进行添加、减少插板。 设备管理系统 运行设备管理 设备配置管理 备品备件管理 设备变更管理 第 4 页 共 34 页 3.6 业务流程分析 申请 用户 各运维 开会讨论 生产科 局领导 通信所 审批 报表 班组 存档 计划 项目进度计划表范例计划下载计划下载计划下载课程教学计划下载 平衡 各运维班组 3.7 数据流程分析 3.7.1 顶层数据流程图 服务响应 设 备 管 理 信 息 系 统 服务请求 变更信息 备品备件信息 基本信息 设备配置信息 3.7.2 0 层数据流程图 第 5 页 共 34 页 3.8 数据字典 设备类别 字段名称 数据类型 字段长度 备注 类别编号 文本 8 主键 类别名称 文本 12 设备型号 字段名称 数据类型 字段长度 备注 型号编号 文本 8 主键 类别编号 文本 8 型 号 文本 10 生产厂家 文本 16 软件版本 文本 6 标称容量 文本 6 传输速率 文本 6 模块容量 文本 6 配置信息 密码管理 合法性检查 服务请求 录入处理 查询处理 报表输出 系统维护 服务类别处理 基本信息 备品信息 基本信息报表 配置信息报表 备品信息报表 用户管理 数据备份 第 6 页 共 34 页 安装地点 字段名称 数据类型 字段长度 备注 安装地点 ID 文本 8 主键 地点名称 文本 10 基本信息表 字段名称 数据类型 字段长度 备注 设备编号 文本 12 主键 型号编号 文本 8 设备名称 文本 8 出厂编号 文本 10 安装地点 ID 文本 6 设备状态 文本 4 直流输出路数 数字 整型 耦合相位 文本 4 维护责任人 文本 8 发送频率 数字 单精度型 小数位（自动） 接收频率 数字 单精度型 小数位（自动） 天线类型 文本 6 馈线类型 文本 6 极化方式 文本 4 模块数量 数字 整型 板型 字段名称 数据类型 字段长度 备注 板型 ID 数字 整型 主键 设备编号 文本 12 单盘类型 文本 6 单盘数量 数字 整型 第 7 页 共 34 页 备品备件 字段名称 数据类型 字段长度 备注 序号 数字 整型 主键 型号 文本 12 备盘类型 文本 6 备盘数量 数字 整型 变更 记录 混凝土 养护记录下载土方回填监理旁站记录免费下载集备记录下载集备记录下载集备记录下载 字段名称 数据类型 字段长度 备注 设备编号 变更日期 原状态 现状态 变更原因 变更人 操作人 密码表 字段名称 数据类型 字段长度 说明 yhm 文本 8 用户名 mm 文本 10 密码 yhqx 文本 2 用户权限 3．9 数据库关系图 第 8 页 共 34 页 3.10 新系统逻辑模型图 根据前面的分析结果，提出如下的逻辑模型： 备品备件管理 备品信息 条件查询 设备配置管理 设备变更管理 基本信息管理 设备基本信息 变更信息 基本信息 设备台帐 报表 查询 设备配置信息 第 9 页 共 34 页 设备型号 备品备件 设备基本信息 设备配置 设备变更 设备 台帐 基本 信息 汇总 连接 录入 录入 查询条件 统计分析 查询 报表 显示、打印 第 10 页 共 34 页 四、系统设计 新系统功能结构图: 设备信息管理系统 设备管理 窗口 设 备 类 别 录 入 设 备 型 号 录 入 基 本 信 息 录 入 备 品 备 件 录 入 安 装 地 点 录 入 设 备 变 更 录 入 信息查询 设 备 配 置 录 入 信 息 查 询 配 置 查 询 备 品 备 件 查 询 变 更 记 录 查 询 帮助 关 于 数据报表 基 本 信 息 报 表 配 置 报 表 变 更 记 录 报 表 备 品 备 件 报 表 系统维护 密 码 管 理 用 户 管 理 数 据 备 份 工具 计 算 器 记 事 簿 退出 退 出 系 统 第 11 页 共 34 页 五、系统实施 5．1 系统登录界面 frmlogin 的程序代码如下: Option Explicit Dim i As Integer Dim X As String Dim y As String Dim sr As String Dim ab As String Public LoginSucceeded As Boolean Private Sub cmdCancel_Click() End End Sub Private Sub cmdOK_Click() ab = 0 If DataCombo1.Text <> "" Then Adodc1.Recordset.Filter = "yhm='" & DataCombo1.Text & "'" Else X = MsgBox("请选择用户名！", vbExclamation, "提示框：") DataCombo1.SetFocus End If sr = Adodc1.Recordset!mm If Trim(txtPassword.Text) = Trim(sr) Then y = MsgBox("登录成功", , "提示框：") If DataCombo1.BoundText = "1" Then lSuperUser = True Else lSuperUser = False End If If Adodc1.Recordset!yhqx = "1" Then MDIForm1.设备管理.Enabled = True Else MDIForm1.类别录入.Enabled = False MDIForm1.备品备件录入.Enabled = False MDIForm1.变更记录录入.Enabled = False MDIForm1.密码管理.Enabled = False MDIForm1.设备基本信息录入.Enabled = False MDIForm1.设备配置录入.Enabled = False MDIForm1.安装地点录入.Enabled = False 第 12 页 共 34 页 MDIForm1.设备型号录入.Enabled = False MDIForm1.用户管理.Enabled = False End If Unload Me Load MDIForm1 MDIForm1.Show Else i = i + 1 + ab y = MsgBox("第" & Str(i) & "次输入密码不正确") txtPassword.Text = "" txtPassword.SetFocus End If If i > 2 And LCase$(txtPassword.Text) <> sr Then X = MsgBox("登录失败", vbOKOnly) If X = vbOK Then End End If End If End Sub Private Sub Form_Load() Adodc1.Visible = False End Sub 5．2 系统主界面 MDIForm1 的程序代码如下: Private Sub 安装地点录入_Click() frmddlr.Show End Sub Private Sub 备品备件查询_Click() frmbpbjcx.Show End Sub Private Sub 备品备件录入_Click() 第 13 页 共 34 页 frmbpbjlr.Show End Sub Private Sub 变更记录查询_Click() frmbgcx.Show End Sub Private Sub 变更记录录入_Click() Frmbglr.Show End Sub Private Sub 关于_Click() frmAbout.Show End Sub Private Sub 计算器_Click() Shell ("c:\windows.000\calc.exe") End Sub Private Sub 记事簿_Click() Shell ("c:\windows\notepad.exe") End Sub Private Sub 类别录入_Click() Frmlblr.Show End Sub Private Sub 密码管理_Click() mmxg.Show End Sub Private Sub 设备基本信息录入_Click() frmxxlr.Show End Sub Private Sub 设备配置查询_Click() frmpzcx.Show End Sub Private Sub 设备配置录入_Click() frmpzlr.Show End Sub Private Sub 设备信息报表_Click() 第 14 页 共 34 页 Dim objExcel As Excel.Application Set objExcel = New Excel.Application objExcel.Visible = True With objExcel .Workbooks.Open "D:\jiemian\book1.xls" With .Sheets("sheet1") i = 3 While Not Frmxxcx.Adodc1.Recordset.EOF For j = 1 To 20 .Cells(i, j).Value = Frmxxcx.Adodc1.Recordset.Fields(j - 1) Next j .Cells(i, 20).Value = "'" & Frmxxcx.Adodc1.Recordset.Fields(3) i = i + 1 Frmxxcx.Adodc1.Recordset.MoveNext Wend End With End Sub Private Sub 设备信息查询_Click() Frmxxcx.Show End Sub Private Sub 设备型号录入_Click() frmxhlr.Show End Sub Private Sub 数据备份_Click() Dim sourcefile As String Dim destfile As String sourcefile = "d:\shjk\设备管理.mdb" destfile = "d:\数据备份\" & Year(Date) & Month(Date) & Day(Date) & ".mdb" FileCopy sourcefile, destfile MsgBox "数据按日期备份成功!", 64, "数据成功备份提示框" End Sub Private Sub 退出_Click() End End Sub Private Sub 用户管理_Click() mmwh.Show End Sub 第 15 页 共 34 页 5．3 设备管理 5．3．1 类别录入 frmlblr 的程序代码如下: Private Sub Command1_Click() On Error Resume Next DataGrid1.AllowAddNew = True DataGrid1.AllowUpdate = True Adodc1.Recordset.AddNew End Sub Private Sub Command2_Click() On Error Resume Next DataGrid1.AllowUpdate = True End Sub Private Sub Command3_Click() On Error Resume Next DataGrid1.AllowDelete = True strdecide = MsgBox("确实要删除该记录吗?", vbYesNo, "删除记录") If strdecide = vbNo Then Exit Sub Adodc1.Recordset.Delete End Sub Private Sub Command4_Click() On Error Resume Next DataGrid1.ReBind Adodc1.Recordset.MovePrevious If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst Adodc1.Recordset.Update End Sub Private Sub Command5_Click() On Error Resume Next Adodc1.Refresh End Sub Private Sub Command6_Click() On Error Resume Next Unload Me End Sub Private Sub Form_Load() Adodc1.Visible = False 第 16 页 共 34 页 End Sub 5．3．2 安装地点录入 frmddlr 的程序代码如下: Private Sub Command1_Click() On Error Resume Next DataGrid1.AllowAddNew = True DataGrid1.AllowUpdate = True Adodc1.Recordset.AddNew End Sub Private Sub Command2_Click() On Error Resume Next DataGrid1.AllowUpdate = True End Sub Private Sub Command3_Click() On Error Resume Next DataGrid1.AllowDelete = True strdecide = MsgBox("确实要删除该记录吗?", vbYesNo, "删除记录") If strdecide = vbNo Then Exit Sub Adodc1.Recordset.Delete End Sub Private Sub Command4_Click() On Error Resume Next Adodc1.Refresh End Sub Private Sub Command5_Click() On Error Resume Next DataGrid1.ReBind Adodc1.Recordset.MovePrevious If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst End Sub Private Sub Command6_Click() On Error Resume Next Unload Me End Sub 第 17 页 共 34 页 Private Sub Form_Load() Adodc1.Visible = False End Sub 5．3．3 设备型号录入 frmxhlr 的程序代码如下: Private Sub Command1_Click() On Error Resume Next Adodc1.LockType = adLockOptimistic Adodc1.Mode = adModeReadWrite Adodc1.EOFAction = adDoAddNew DataGrid1.AllowAddNew = True DataGrid1.AllowUpdate = True Adodc1.Recordset.AddNew End Sub Private Sub Command2_Click() On Error Resume Next Adodc1.LockType = adLockOptimistic Adodc1.Mode = adModeReadWrite DataGrid1.AllowUpdate = True End Sub Private Sub Command3_Click() On Error Resume Next Adodc1.LockType = adLockOptimistic Adodc1.Mode = adModeReadWrite DataGrid1.AllowDelete = True strdecide = MsgBox("确实要删除该记录吗?", vbYesNo, "删除记录") If strdecide = vbNo Then Exit Sub Adodc1.Recordset.Delete End Sub Private Sub Command4_Click() On Error Resume Next Adodc1.Refresh End Sub Private Sub Command5_Click() On Error Resume Next Adodc1.Recordset.Update End Sub 第 18 页 共 34 页 Private Sub Command6_Click() On Error Resume Next Adodc1.Recordset.Close Unload Me End Sub Private Sub Form_Load() Adodc1.Visible = False End Sub 5．3．4 基本信息录入 frmxxlr 的程序代码如下: Private Sub Command1_Click() DataGrid1.AllowAddNew = True DataGrid1.AllowUpdate = True Adodc1.Recordset.AddNew End Sub Private Sub Command2_Click() DataGrid1.AllowUpdate = True End Sub Private Sub Command3_Click() DataGrid1.AllowDelete = True strdecide = MsgBox("确实要删除该记录吗?", vbYesNo, "删除记录") If strdecide = vbNo Then Exit Sub Adodc1.Recordset.Delete End Sub Private Sub Command4_Click() Adodc1.Refresh End Sub 第 19 页 共 34 页 Private Sub Command5_Click() DataGrid1.ReBind Adodc1.Recordset.MovePrevious If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst End Sub Private Sub Command6_Click() Unload Me End Sub Private Sub Form_Load() Adodc1.Visible = False End Sub 5．3．5 设备配置录入 frmpzlr 的程序代码如下: Private Sub Command1_Click() 'Adodc1.Recordset.State txt 设备编号(1).Enabled = False Adodc1.Recordset.AddNew 'Adodc1.Recordset.MoveFirst End Sub Private Sub Command2_Click() Adodc1.LockType = adLockOptimistic Adodc1.Mode = adModeReadWrite End Sub Private Sub Command3_Click() Adodc1.Recordset.Delete End Sub Private Sub Command4_Click() 'Adodc1.Recordset.MoveFirst End Sub Private Sub Command5_Click() Unload Me End Sub Private Sub Command6_Click() Adodc1.Recordset.Filter = "设备编号='" & txt 设备编号(1).Text & "'" 第 20 页 共 34 页 End Sub Private Sub Command7_Click() On Error Resume Next SetButtons True mbEditFlag = False mbAddNewFlag = False adoPrimaryRS.CancelUpdate If mvBookMark > 0 Then adoPrimaryRS.Bookmark = mvBookMark Else adoPrimaryRS.MoveFirst End If mbDataChanged = False End Sub Private Sub Form_Load() Adodc1.Visible = False End Sub 5．3．6 备品备件录入 frmbpbjlr 的程序代码如下: Private Sub Command1_Click() On Error Resume Next Adodc1.LockType = adLockOptimistic Adodc1.Mode = adModeReadWrite 第 21 页 共 34 页 Adodc1.EOFAction = adDoAddNew DataGrid1.AllowAddNew = True DataGrid1.AllowUpdate = True Adodc1.Recordset.AddNew End Sub Private Sub Command2_Click() On Error Resume Next Adodc1.LockType = adLockOptimistic Adodc1.Mode = adModeReadWrite DataGrid1.AllowUpdate = True End Sub Private Sub Command3_Click() On Error Resume Next DataGrid1.AllowDelete = True strdecide = MsgBox("确实要删除该记录吗?", vbYesNo, "删除记录") If strdecide = vbNo Then Exit Sub Adodc1.Recordset.Delete End Sub Private Sub Command4_Click() On Error Resume Next Adodc1.Recordset.Update End Sub Private Sub Command5_Click() On Error Resume Next Adodc1.Recordset.Close Unload Me End Sub Private Sub Command6_Click() On Error Resume Next Adodc1.Refresh End Sub Private Sub DataCombo1_Click(Area As Integer) Adodc1.RecordSource = "select *from 备品备件 where 型号= '" & DataCombo1.BoundText & "'" Adodc1.Refresh End Sub Private Sub Form_Load() 第 22 页 共 34 页 Adodc1.Visible = False End Sub 5．3．7 变更记录录入 frmbglr 的程序代码如下: Private Sub Command1_Click() On Error Resume Next Adodc1.LockType = adLockOptimistic Adodc1.Mode = adModeReadWrite Adodc1.EOFAction = adDoAddNew DataGrid1.AllowAddNew = True DataGrid1.AllowUpdate = True Adodc1.Recordset.AddNew End Sub Private Sub Command2_Click() On Error Resume Next Adodc1.LockType = adLockOptimistic Adodc1.Mode = adModeReadWrite DataGrid1.AllowUpdate = True End Sub Private Sub Command3_Click() On Error Resume Next DataGrid1.AllowDelete = True strdecide = MsgBox("确实要删除该记录吗?", vbYesNo, "删除记录") If strdecide = vbNo Then Exit Sub Adodc1.Recordset.Delete End Sub Private Sub Command5_Click() On Error Resume Next Adodc1.Recordset.Close Unload Me End Sub Private Sub Command7_Click() On Error Resume Next Adodc1.Refresh End Sub Private Sub Command4_Click() 第 23 页 共 34 页 On Error Resume Next Adodc1.Recordset.Update End Sub Private Sub Command6_Click() Adodc1.Recordset.Filter = "设备编号='" & txt 设备编号(1).Text & "'" End Sub Private Sub Form_Load() Adodc1.Visible = False End Sub 5．4 信息查询 5．4．1 设备信息查询 frmxxcx 的程序代码如下: Private Sub Command1_Click() On Error Resume Next If Not Adodc1.Recordset.BOF Then Adodc1.Recordset.MovePrevious End If End Sub Private Sub Command2_Click() On Error Resume Next If Not Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveNext End If End Sub Private Sub Command3_Click() On Error Resume Next Adodc1.Recordset.MoveFirst End Sub Private Sub Command4_Click() On Error Resume Next Adodc1.Recordset.MoveLast End Sub Private Sub Command5_Click() Unload Me End Sub 第 24 页 共 34 页 Private Sub DataCombo1_Click(Area As Integer) Adodc1.RecordSource = "select * from 设备类别,设备型号,基本信息表,安装地点 where 设备类别.类别编号=设备型号.类别编号 and 设备型号.型号编号=基本信息表.型号编号 and 安装地点.安装地点 ID=基本信息表.安装地点 ID and 设备类别.类别名称='" & DataCombo1.BoundText & "'" Adodc1.Refresh End Sub Private Sub DataCombo2_Click(Area As Integer) Adodc1.RecordSource = "select * from 设备类别,设备型号,基本信息表,安装地点 where 设备类别.类别编号=设备型号.类别编号 and 设备型号.型号编号=基本信息表.型号编号 and 安 装 地 点 . 安 装 地 点 ID= 基 本 信 息 表 . 安 装 地 点 ID and 设 备 型 号 . 型 号 ='" & DataCombo2.BoundText & "'" Adodc1.Refresh End Sub Private Sub DataCombo3_Click(Area As Integer) Adodc1.RecordSource = "select * from 设备类别,设备型号,基本信息表,安装地点 where 设备类别.类别编号=设备型号.类别编号 and 设备型号.型号编号=基本信息表.型号编号 and 安装地点.安装地点 ID=基本信息表.安装地点 ID and 安装地点.地点名称='" & DataCombo3.BoundText & "'" Adodc1.Refresh End Sub 5．4．2 设备配置查询 frmpzcx 的程序代码如下: Dim cn1 As DataEnvironment1 Private Sub Command1_Click() On Error Resume Next 第 25 页 共 34 页 cn1.rsbx.MoveFirst End Sub Private Sub Command2_Click() On Error Resume Next cn1.rsbx.MovePrevious If cn1.rsbx.BOF Then cn1.rsbx.MoveFirst End If End Sub Private Sub Command3_Click() On Error Resume Next cn1.rsbx.MoveNext If cn1.rsbx.EOF Then cn1.rsbx.MoveLast End If End Sub Private Sub Command4_Click() On Error Resume Next cn1.rsbx.MoveLast End Sub Private Sub Command5_Click() On Error Resume Next Set cn1 = New DataEnvironment1 cn1.bx Trim(DataCombo1.Text) If cn1.rsbx.EOF Then MsgBox "无符合条件的查询记录！", 48, "提示" DataGrid1.DataMember = "" DataCombo.Text = "" DataCombo1.SetFocus Else Set DataGrid1.DataSource = cn1 DataGrid1.DataMember = "bx" End If DataGrid1.Refresh End Sub Private Sub Command6_Click() Unload Me End Sub 第 26 页 共 34 页 Private Sub Form_Load() DataCombo1.Text = "" End Sub 5．4．3 备品备件查询 frmbpbjcx 的程序代码如下: Dim cn1 As DataEnvironment1 Private Sub Command1_Click() On Error Resume Next cn1.rsbx.MoveFirst End Sub Private Sub Command2_Click() On Error Resume Next cn1.rsbx.MovePrevious If cn1.rsbx.BOF Then cn1.rsbx.MoveFirst End If End Sub Private Sub Command3_Click() On Error Resume Next cn1.rsbx.MoveNext If cn1.rsbx.EOF Then cn1.rsbx.MoveLast End If End Sub Private Sub Command4_Click() On Error Resume Next cn1.rsbx.MoveLast End Sub Private Sub Command5_Click() On Error Resume Next Set cn1 = New DataEnvironment1 cn1.bx Trim(DataCombo1.Text) If cn1.rsbx.EOF Then MsgBox "无符合条件的查询记录！", 48, "提示" DataGrid1.DataMember = "" DataCombo.Text = "" DataCombo1.SetFocus