第一篇:MIS系统建设分析报告
效益分析报告
一、MIS系统建设的基本情况
我局于2005年12月进行MIS开发和应用,应用软件开发由河南豫佳公司负责。合同签定后,河南豫佳公司组织人员到我局进行现场需求调查,对我局各专业、各部门业务和数据进行了详细调查分析,提出了MIS系统总体方案和各子系统的设计方案。12月中旬,河南豫佳信息技术有限公司组织开发人员到我局进行现场开发。2006年1月份系统投入运行。
我局MIS系统包括如下系统:
(一)用电营销管理系统
(1)业扩子系统
(2)计量子系统
(3)电费管理子系统
(4)用电安全子系统
(5)供电所管理子系统
(6)综合查询子系统
(7)线损管理子系统
(8)系统管理子系统
二、系统效益分析
MIS系统的成功建设与运行,不仅可以提供科学先进的管
理手段、极大提高全局的管理水平、进一步规范部门的业务流程、提高全员劳动生产率,而且总体上为客户提供全方位的优质服务、提高企业的社会形象、增强企业竞争力。总之,MIS的建立必将对杞县电业局今后工作的开展产生极大的社会效益和经济效益。
MIS的经济效益有以下特点:
1、效益的滞后性和间接性
MIS一般是分阶段逐步实现的,其效益也是逐步实现的,随着系统发展和功能完善而逐步显示其效益,所以不能仅用直接经济效益来评价MIS的经济效益,还要注意MIS的间接经济效益,而间接效益往往是很难评价的。
2、投资领域和获益领域的不一致性
企业内部各部门之间是相互影响的,对某部门的投资有可能在其它几个部门获得效益,这给MIS的效益评价带来了困难。
3、综合效益的多因素性
MIS的经济效益是一种综合效益。其效益的获取不仅取决于多环境条件和因素,使得MIS的效益与企业采取其它手段带来的效益难以准确区分。
4、人-机系统的不确定性
MIS是一个人-机系统,它的效益直接与管理、操作和使用系统的人有关。人为因素的不确定性,使MIS系统效益
评价具有不确定性。
MIS的建设是一种在需求、开发和应用中循环往复、不断发展的动态过程。其效益将在不断建设、不断应用的过程中逐步产生和增强,最终会给企业带来极大的经济效益。
我局MIS系统运行半年以来,为加强经营管理发挥了重要作用,提高了企业的经济效益和社会效益。主要表现在以下几个方面:
1、社会效益
社会效益主要表现在企业管理水平、管理效益和服务水平、服务质量的提高,很难用某一指标反映出来,但对企业却具有深远而广泛的影响。主要表现在以下几方面
(1)提高企业社会形象: MIS系统建成后,杞县电业局可以通过营业大厅服务、多媒体自助查询服务、电话呼叫中心服务等全新的服务形式和服务手段向用电客户提供更优质、更全面的服务,真正实现‘您只需打一个电话,其余的事我们办’的服务承诺。同时为进一步提高服务效率、缩短投诉处理与故障报修的响应时间提供必要的技术手段,为服务质量的落实和监督提供了科学的标准和依据。
系统的建设和运行,真正实现一户一表、抄表到户、电价到户、开票到户,进一步杜绝了关系电、人情电,确保电价、电量、电费三公开的实现,极大地提高供电企业在广大人民中的良好社会形象。
(2)促进同网同价真正保护用电客户的利益: 农网建设和城网建设完成后,加强对区域内电网的管理、降低电能损耗将成为当务之急。系统的建设与运行,一方面可以为加强考核与减低损耗提供及时准确的数据支持,另一方面为进一步完善和落实国家的电价政策提供必要的理论支持。使最终实现同网同价成为可能,真正保护了广大用电客户的利益。
(3)规范业务流程提高管理水平和效率: MIS的建设过程,是对各项管理工作的总结过程,是对各项业务的规范过程。系统建成后,可以促使各部门的业务活动规范、有序地进行,极大地提高企业的管理水平和管理效益。
(4)改善信息质量加速信息传递: MIS系统建成后,各业务环节所产生的基础数据信息被及时、完整、准确地保存下来,同时可以利用计算机对基础信息进行进一步的分析和挖掘,极大地提高了企业内部和外部信息的质量。同时通过计算机网络,各部门之间、上下级之间、省市县之间可以及时地进行信息交流和沟通,确保企业对内部事件和外部事件的快速相应。
2、经济效益分析
多年的实践证明,应用计算机进行辅助企业管理,肯定能获得经济效益。但如何科学地评价这些效益,目前国内还没有一个统一的、为各方面都能接受的评价方法。如何区分计算机管理和改善常规管理所产生的效益以及如何反映这些效
益等等,都有待于进一步研究。这里只能就这个问题做初步的预估分析。系统预期的经济效益包括企业直接经济效益和间接经济效益。
(1)直接经济效益: 直接经济效益是指由于在管理上应用计算机获得的可以直接计算的硬效益,比如供电量的增加、库存占用资金的减少、工作人员的精减、非生产费用的降低等等因素所产生的效益。一般来说,由于管理部门的工作不涉及具体生产,没有直接的产量的增加等情况,而且管理部门的工作做得好,有管理人员的功劳,也有直接生产人员的功劳,很难确定效益的分配。所以管理信息系统的直接经济效益很难分析。
对供电企业来说,MIS系统的直接效益大体有下列几点: 降低电网的电能损耗。借助于现代化的管理手段,及时反映电能损耗情况,针对发现的问题采取必要的措施,可使管理引起的电能损耗最大限度地降低。按每年供电量2亿千瓦时计算,损耗率每降低0.1%,则每年可多售电20万千瓦时,年收入可增加12万元(按每千瓦时0.6元计算)。
降低库存物资,减少积压,减少流动资金占压。
依据完备的用户档案,加强用电普查和用电稽查,极大地减少不合理用电。
通过现代化的办公手段来提高生产工作效率,实现减员增效。如严格管理,可实现减员25人左右,每人每年收入按
1万元计算,每年可增加25万元。
(2)间接经济效益: 间接经济效益是指应用计算机后,由于企业整体水平的提高所带来的综合性经济效益。间接经济效益有一定的后效性,但对企业的影响要远远大于直接效益,对提高企业素质、促进企业进步等有重大影响。对间接效益的评价,国外有一些方法,如美国的贝台尔方法,国内还没有一种适用的评价方法,对间接效益的评价只能给予定性的分析,而很难进行定量评价。对供电企业来说,间接经济效益大致有如下几点:
加强设备可靠性管理,减少事故的直接损失,多供电,增加售电收入;
优化管理,减少物资损耗,优化人力资源组合,降低供电成本。
借助计算机的现代化管理手段,采用先进的管理方法,提高管理质量和管理效能。
第二篇:MIS可行性分析报告
图书馆管理信息系统
可行性研究报告
1.系统简述
图书馆管理信息系统是基于Internet/Intranet 及Web技术,建立以Browser/Server 为结构模式、以数据库为后台核心应用、以服务为目的信息平台,对资源进行科学的加工整序和管理维护,为教学和科学研究提供文献信息保障和提高管理图书的效率而设计的系统。
2.项目目标
以最低的成本,在最短的期限内开发出具有管理图书和用户信息功能的图书馆管理信息系统。
3.所需资源、预算、和期望效益
3.1所需资源
硬件资源:数据库服务器1台,处理器: 支持2颗英特尔® 至强 ™处理器E5-2400 产品系列,硬盘: 最多可配8 个2.5/3.5英寸热插拔SAS、SATA 或固态硬盘,内存:最高可配192GB,网卡:支持双千兆网卡
普通PC若干
软件资源:office access数据库管理系统,开发工具
人力资源:数据库设计师1名,数据库设计员2-3名,数据库管理员1名,用户若干。
3.2 预算
由于课程案例,开发该软件系统的经费为零;
力求达到实用要求。
3.3期望效益
可以减轻图书馆工作人员工作负担,提高管理效率。
4.可行性分析
4.1经济可行性分析
作为图书馆这样的商业性质较小的场所,其经济成分比重相对较少,主要是支出的费用:其中包括设备购置费、软件开发费用、管理和维护费、人员工资和培训费等。由于各个图书馆实行统一操作,系统共享,其设备购置,人员工资,维护费用相对较少,前期的资金投入主要集中于购置图书上。建立信息中心,可将来自各方面的信息集中管理,提高图书管理的计划性和预见性,快速地反馈市场信息。
4.2技术可行性分析
技术上的可行性分析主要分析现有技术条件能否顺利完成开发工作,硬件、软
件配置能否满足开发者的需要,各类技术人员的数量,水平,来源等。图书馆管理系统的工作主要是在读者和图书馆之间架起一座桥梁,能相互沟通信息和处理信息。这一特点非常适合计算机特点,通过网络internet技术,发挥计算机的信息传输速度快、准确度高的优势。计算机硬件和软件技术的飞速发展,为系统的建设提供了技术条件。
4.3管理可行性分析
随着信息经济学院的图书馆的管理水平不断提高,该校图书馆在管理方面已积累了丰富的管理经验与方法,并建立了成熟的管理制度、齐全的规章制度,汇集了正确的原始数据,使管理工作有了制度支持与信息支持。
根据以往在图书管理中出现的困难与不便,图书馆的高层管理人员对新系统的开发持积极的态度,肯定新系统的开发,并且为新系统的开发与实施创造了各种良好的条件,制定了有利于系统实施的管理方法。目前管理方面的条件已经能够满足图书馆管理系统的开发以及日后的实施,所以在现阶段下开发一个图书馆管理系统是可行的。
结论:根据以上分析可知,使用该系统会大大减少图书馆管理人员的工作量,可以减少工作人员减少费用。同时方便同学对图书借阅情况管理,提高工作效率所以认为开发此系统的条件具备。
第三篇:MIS课程设计报告
西安郵電學院
MIS课程设计报告书
(学生学籍管理系统分析设计)
系部名称 : 信息与管理工程系 学生姓名 : 王 鸣
专业名称 : 信息管理与信息系统 班
级 : 信管0402班
时间 :
2006 年 12 月11 日 至
2006
年12 月 22 日
目 录:
一.可行性分析„„„„„„„„„„„„„„„„„„„„„„„„„ 4
二.系统分析部分„„„„„„„„„„„„„„„„„„„„„„„„ 4 1.业务流程图„„„„„„„„„„„„„„„„„„„„„„„„ 5 2.数据流程图„„„„„„„„„„„„„„„„„„„„„„„„ 5 3.功能分析图„„„„„„„„„„„„„„„„„„„„„„„„ 6 4.数据字典„„„„„„„„„„„„„„„„„„„„„„„„„ 7 5.数据加工处理的描述„„„„„„„„„„„„„„„„„„„„ 8 6.管理信息系统流程设想图„„„„„„„„„„„„„„„„„„ 9
三.系统设计部分
1.功能结构图设计„„„„„„„„„„„„„„„„„„„„„„ 9 2.新系统信息处理流程设计„„„„„„„„„„„„„„„„„„ 9 3.输出设计(主要指打印输出设计)„„„„„„„„„„„„„„„ 9 4.存储文件格式设计(数据库结构设计)„„„„„„„„„„„„„ 9 5.输入设计(主要指数据录入卡设计)„„„„„„„„„„„„„„ 12 6.代码设计(职工证号和部门代号等)„„„„„„„„„„„„„„ 14 7.程序设计说明书„„„„„„„„„„„„„„„„„„„„„„ 14
四.系统实施部分
1.程序框图„„„„„„„„„„„„„„„„„„„„„„„„„ 14 2.源程序„„„„„„„„„„„„„„„„„„„„„„„„„„ 18 3.模拟运行数据„„„„„„„„„„„„„„„„„„„„„„„ 71 4.打印报表„„„„„„„„„„„„„„„„„„„„„„„„„ 72 5.系统使用说明书„„„„„„„„„„„„„„„„„„„„„„ 72
五.附录或参考资料设计任务书
信管专业
2004级MIS课程设计任务书
一、设计目的:
通过本次设计,要求同学们能够将所学到的信息系统分析方法与软件设计技术及方法综合运用到实际信息系统的分析与设计中,提高同学们对软件的综合分析与设计能力,主要包括对数据的分析、组织能力,数据的提取、处理能力;软件结构的分析设计,复杂界面与输入输出设计能力;学习常用软件开发工具的使用。
二、设计内容: 学生学籍管理系统:
1、系统需求:
本系统主要是用于学生基本信息的管理。该系统可以完成对学生信息添加、班级管理、查找等操作,能够对学生信息进行方便有效的科学管理。
2、主要功能描述 1)权限管理
主要是用户的等级和权限的划分。分3级管理员,超级用户、只读用户、普通用户,权限可以自定义添加和删除。2)班级管理
添加班级、浏览班级、查询班级。3)学生档案管理
浏览档案、添加档案、查询档案。
4)课程设置:基本课程设置和班级课程设置。
5)成绩管理:考试类型设置、成绩添加浏览和查询。
6)打印报表:可以打印学生的档案和成绩等相关的信息报表。
三、设计要求
结合所学习的系统分析与设计的具体方法,应用程序设计的基本知识和数据库知识进行详细的系统分析设计。具体要求如下:
1、学习进行相对复杂数据的分析与设计,建立合理的数据模型。
2、学习使用VB的数据环境设计器和数据报表设计器进行报表输出设计。
3、学习使用visio工具进行常用软件图形的绘制。
4、进一步熟练进行软件系统的界面设计,深入掌握界面设计元素。
5、提供相应的软件设计报告。报告要求有系统的需求分析、系统流程图、数据流程图、软件结构图、数据库设计说明和软件说明书。
6、提供与设计报告相一致的软件系统。
7、每四人为一个课题组,自由组合,检查相应的小组讨论,讨论结果计入平时成绩。
8、报告书写规范见附件。
四、时间安排(共两周10天)
1、第一周的周一、周二(2天):查阅资料、进行系统的需求分析,要求画出 系统的业务流程图及数据流程图,并设计各类报表的格式。(图书馆)
2、第一周的周三到周五(3天):并进行详细的数据分析,建立数据字典,并进行数据库及数据查询设计。(机房)
3、第二周的周一周二(2天):进行软件结构设计,包括软件功能的划分、输入输出界面的设计。(机房)
4、第二周的周三:(1天):进行输出报表的设计。(机房)
5、第二周的周四:(1天):全面进行系统调试。(机房)
6、第二周的周五:(1天):作业检查,提交报告及设计好的软件。(机房)
五、考查方式
1、考勤20%
2、文档40%
3、程序40%
六、地点
信管系机房正文:(1)可行性分析
计算机管理学生信息的意义:
在各大中小学校,用计算机管理学校的信息已经越来越普遍了。用计算机不但可以提高工作效率,而且还节省了许多人力物力,增强了学校资料的安全性。提高了学校的管理能力,为此,用计算机来管理学校的信息,是非常必要的。我作为一个计算机应用的大学生,希望能有所贡献。用我三年的所学编制了一个实用的程序来帮助桂阳一中进行更有效的学籍档案管理。
可行性研究:
目的:可行性研究的目的是用最小的代价在尽可能的时间内确定问题是否能够解决。
经济上可行性:
现在,计算机的价格已经十分低廉,性能却有了长足的进步。而本系统的开发,为学校的工作效率带来了一个质的飞跃,为此主要表现有以下几个方面: 第一,本系统的运行可以代替人工进行许多繁杂的劳动; 第二,本系统的运行可以节省许多资源;
第三,本系统的运行可以大大的提高学校的工作效率; 第四,本系统可以使敏感文档更加安全,等等。所以,本系统在经济上是可行的。技术上可行性:
本系统的开发我利用Microsoft SQL Server2000作为本系统的数据库,它是一个支持多用户的新型数据库,适用于大中规模的数据量需求。学校校园网的建设也为新系统服务器/客户端的结构提供了硬件的支持。
使用Visual Basic6.0作为系统开发的开发环境,它作为一种现代的编程语言,提供完善的指令控制语句、类与对象的支持及丰富的数据类型,给开发高性能系统提供的保障为开发满足客户要求的系统,保证了代码的模块化要求,而代码模块化的提高,非常有利于以后对新系统的扩展与修改。综上所述,本系统的设计与开发在技术上和硬件设备上的条件都是满足的,因此,它在技术上是可行的。
运行上可行性:
本系统为一个小型的学生信息管理系统,所耗费的资源非常的小,学校的电脑无论是硬件还是软件都能够满足条件,因此,本系统在运行上是可行的。法律可行性:
本系统纯为私人设计,在开发过程中没有涉及合同、责任等与法律相抵触的方面。因此,本系统在法律上是可行的。
(2)系统分析部分 1)业务流程图
用户学生名单基本信息管理学生情况统计查询浏览表操作人员学生学生登记表学生学籍学生学籍管理 各专业教学计划教务管理学生成绩学生成绩管理学生成绩单教师教学计划排课课表学生
2)数据流程图
用户学生名单学生学生登记表学生信息管理学生学籍查询浏览表查询浏览表操作人员学生学籍管理各系部教学计划教务管理学生成绩学生成绩管理学生成绩单教师教学计划排课课表打印课表学生
3)功能分析图
学生信息管理系统用户信息管理班级信息管理学籍信息管理课程信息管理成绩信息管理奖惩信息管理个人信息查询添加修改删除用户查看所有班级信息添加修改删除班级信息查询学生学籍信息添加修改删除学生学籍信息查询课程信息添加修改删除课程信息查询成绩信息添加修改删除成绩信息查询学生奖惩信息添加修改删除奖惩信息按学号查询个人信息
4)数据字典 数据存储字典
(1)存储文件名:班级和课程
标识符:class_Cour
数据结构:
班级号
class_No
课程名称
course_Name(2)存储文件名:班级信息
标识符:class_Form
数据结构:
班级号
class_No
班级名称
class_Name
导员名称
class_Teacher
备注信息
class_Remarks(3)存储文件名:课程信息
标识符:course_Form
数据结构:
课程名
class_Name
课程列表
class_Rem(4)存储文件名:奖惩信息
标识符:prize_Form
数据结构:
奖惩名
class_Name
奖惩列表
class_Rem(5)存储文件名:奖惩信息
标识符:prize_Stud
数据结构:
奖惩号
prize_No
奖惩学号
prize_Stu
奖惩日期
prize_Data
奖惩名
prize_Name(6)存储文件名:成绩信息
标识符:score_Form
数据结构:
成绩号
score_No
考试期号
score_Per
班级号
score_Cla
学号
score_Stu
科目
score_Cou
成绩
score_Sco(7)存储文件名:个人信息
标识符:student_Form
数据结构:
学号
student_No
姓名
student_Name
性别
student_Sex
出生日期
student_Bir
班级号
student_Cla
电话
student_Tel
入学日期
student_Esd
籍贯
student_Add
备注
student_Rem(8)存储文件名:用户信息
标识符:user_Form
数据结构:
用户名
user_ID
登陆密码
user_PWD
用户日期
user_DATA 5)数据加工处理的描述
处理名:用户名处理
处理过程:登陆学生信息管理系统后,点击“用户信息管理”后出现用户信息管理界面,可以用于添加,修改,删除用户信息。
处理名:班级信息处理
处理过程:登陆学生信息管理系统后,点击“班级信息管理”后出现班级信息管理界面,可以用于查询所有班级信息和添加,修改,删除班级信息。
处理名:学籍信息处理
处理过程:登陆学生信息管理系统后,点击“学籍信息管理”后出现学籍信息管理界面,可以用于查询所有学生学籍信息和添加,修改,删除学生学籍信息。
处理名:课程信息处理
处理过程:登陆学生信息管理系统后,点击“课程信息管理”后出现课程信息管理界面,可以用于查询所有班级课程信息和添加,修改,删除班级课程信息。
处理名:成绩信息处理
处理过程:登陆学生信息管理系统后,点击“成绩信息管理”后出现成绩信息管理界面,可以用于查询所有成绩信息和添加,修改,删除成绩信息。
处理名:奖惩信息处理
处理过程:登陆学生信息管理系统后,点击“奖惩信息管理”后出现奖惩信息管理界面,可以用于查询所有奖惩信息和添加,修改,删除奖惩信息。
处理名:个人信息处理
处理过程:登陆学生信息管理系统后,点击“个人信息管理”后出现个人信息管理界面,可以用于查询个人信息。
6)管理信息系统流程设想图(新系统模型)
(3)系统设计部分
1)功能结构图设计
学生信息管理系统用户信息管理班级信息管理学籍信息管理课程信息管理成绩信息管理奖惩信息管理个人信息查询添加用户信息修改用户信息删除用户信息查询班级信息添加班级信息修改班级信息删除班级信息查询学籍信息添加学籍信息修改学籍信息删除学籍信息查询课程信息添加课程信息删除课程信息添加成绩信息查询成绩信息修改成绩信息删除成绩信息查询奖惩信息添加奖惩信息删除奖惩信息查询个人信息
2)新系统信息处理流程设计
3)输出设计(主要指打印输出设计)
4)存储文件格式设计(数据库结构设计)
5)输入设计(主要指数据录入卡设计)
6)代码设计(职工证号和部门代号等)
7)程序设计说明书
(4)系统实施部分
1)程序框图
2)源程序
学生信息管理图形界面程序设计如下:
Dim i As Long Private Sub Form_Load()
Label1.ForeColor = &H8000000E
Label1.FontSize = 12
Label1.AutoSize = True
i = Image2.Width End Sub
Private Sub Form_Resize()
Image1.Top = 0
Image1.Left = 0
Image1.Height = Me.Height
Image1.Width = Me.Width
Image2.Top = Me.HeightImage2.Width
Label1.Top = Me.Height100 End Sub
Private Sub Timer1_Timer()
i = i + 50
Label1.Left = Me.Width1
.TextMatrix(.Rows1
End With
mrc.Close
OK = False
miCount = 0 End Sub
Private Sub cmdCancel_Click()
OK = False
Me.Hide End Sub
Private Sub cmdOK_Click()
txtSQL = “select * from user_Form where user_ID = '” & txtUserName.Text & “'”
Set mrc = ExecuteSQL(txtSQL, MsgText)
If mrc.EOF = True Then
MsgBox “没有这个用户,请重新输入用户名!”, vbOKOnly + vbExclamation, “警告”
txtUserName.SetFocus
Else
If Trim(mrc.Fields(1))= Trim(txtPassword.Text)Then
OK = True
mrc.Close
Me.Hide
UserName = Trim(txtUserName.Text)
Else
MsgBox “输入密码不正确,请重新输入!”, vbOKOnly + vbExclamation, “警告”
txtPassword.SetFocus
txtPassword.Text = “"
End If
End If
miCount = miCount + 1
If miCount = 3 Then
Me.Hide
End If
Exit Sub End Sub
Private Sub txtPassword_KeyDown(KeyCode As Integer, Shift As Integer)
EnterToTab KeyCode End Sub
Private Sub txtPassword_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Call cmdOK_Click
End If End Sub
Private Sub txtUserName_Click()
txtPassword.Text = ”“ End Sub
Private Sub txtUserName_KeyDown(KeyCode As Integer, Shift As Integer)
EnterToTab KeyCode End Sub
学生信息管理系统界面程序设计如下: Private Sub claiMenu_Click()
frmclai.Show End Sub
Private Sub couiMenu_Click()
frmcoui.Show End Sub
Private Sub cusiMenu_Click()
frmcusi.Show End Sub
Private Sub MDIForm_Load()
dColor.Show End Sub
Private Sub MDIForm_Resize()
If Me.Height > 1100 Then
dColor.Height = Me.Height180
End If End Sub
Private Sub prpiMenu_Click()
frmprpi.Show End Sub
Private Sub scoiMenu_Click()
frmscoi.Show End Sub
Private Sub stsiMenu_Click()
frmstsi.Show End Sub
Private Sub sumiMenu_Click()
frmsumi.Show End Sub
奖惩信息管理界面程序设计如下: Dim mrc As ADODB.Recordset Dim MsgText As String
Private Sub Command1_Click()
Dim txtSQL As String
If Text1(0)= ”“ Then
MsgBox ” 奖惩名称不能为空!“, vbOKOnly, ”提示“
Text1(0).SetFocus
Exit Sub
End If
txtSQL = ”select * from prize_Form where prize_Name='“ & Trim(Text1(0))& ”'“
Set mrc = ExecuteSQL(txtSQL, MsgText)
If mrc.EOF = False Then
MsgBox ”此奖惩名称已经存在!“, vbOKOnly, ”警告“
Text1(0).SetFocus
Exit Sub
End If
mrc.Close
txtSQL = ”select * from prize_Form“
Set mrc = ExecuteSQL(txtSQL, MsgText)
mrc.AddNew
mrc.Fields(0)= Trim(Text1(0))
mrc.Fields(1)= Trim(Text1(1))
mrc.Update
mrc.Close
Text1(0)= ”“
Text1(1)= ”“
MsgBox ”奖惩信息添加成功!“, vbOKOnly, ”提示“
List1Text End Sub
Private Sub Command2_Click()
If List1.Text <> ”“ Then
txtSQL = ”delete from prize_Form where prize_Name='“ & Trim(List1.Text)& ”'“
Set mrc = ExecuteSQL(txtSQL, MsgText)
MsgBox ”奖惩信息已经删除!“, vbOKOnly, ”提示“
List1Text
End If End Sub
Private Sub Form_Load()
MSFlexGrid1.Cols = 5
MSFlexGrid1.ColWidth(0)= 300
MSFlexGrid1.ColWidth(1)= 0
MSFlexGrid1.ColWidth(2)= 0
MSFlexGrid1.ColWidth(3)= 1200
MSFlexGrid1.ColWidth(4)= 1200
MSFlexGrid1.TextMatrix(0, 3)= ”奖惩日期“
MSFlexGrid1.TextMatrix(0, 4)= ”奖惩名称“
MSFlexGrid1.Rows = 1
Text3(0)= GetRkno
List1Text End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label6(0).BackColor = &HC0C0C0
Label6(1).BackColor = &HC0C0C0 End Sub
Private Sub Form_Resize()
dColor.ZOrder 1 End Sub Private Sub List1Text()
Dim txSQL As String
Dim mrcc As ADODB.Recordset
txSQL = ”select * from prize_Form “
Set mrcc = ExecuteSQL(txSQL, MsgText)
List1.Clear
Do While Not mrcc.EOF
List1.AddItem Trim(mrcc!prize_Name)
mrcc.MoveNext
Loop
mrcc.Close End Sub
Private Function GetRkno()As String
GetRkno = Format(Now, ”yymmddhhmmss“)
Randomize
GetRkno = GetRkno & Int((991).Type
Case adDBDate
.TextMatrix(.Rows1)& ”“, ”yyyy-mm-dd“)
Case Else
.TextMatrix(.Rows1)& ”“
End Select
Next i
mrc.MoveNext
Loop
End With
mrc.Close End Sub
Private Sub Text2_Change()
Dim txtSQL As String
txtSQL = ”select * from prize_Stud where prize_Stu='“ & Trim(Text2)& ”'“
Set mrc = ExecuteSQL(txtSQL, MsgText)
ShowData End Sub
成绩信息管理程序设计如下: Dim mrc As ADODB.Recordset Dim MsgText As String
Private Sub Combo1_Click(Index As Integer)
Dim txSQL As String
If Index = 0 Then
txSQL = ”select * from student_Form where student_Cla='“ & Trim(Combo1(0).Text)& ”'“
Set mrc = ExecuteSQL(txSQL, MsgText)
If mrc.EOF = True Then
MsgBox ”请先进行班级设置!“, vbOKOnly, ”提示“
Else
With Combo1(1)
.Clear
Do While Not mrc.EOF
.AddItem Trim(mrc!student_NO)
mrc.MoveNext
Loop
End With
End If
txSQL = ”select * from class_Cour where class_NO='“ & Trim(Combo1(0).Text)& ”'“
Set mrc = ExecuteSQL(txSQL, MsgText)
If mrc.EOF = True Then
MsgBox ”请先进行班级设置!“, vbOKOnly, ”提示“
Else
With Combo1(2)
.Clear
Do While Not mrc.EOF
.AddItem Trim(mrc!course_Name)
mrc.MoveNext
Loop
End With
End If
End If End Sub
Private Sub Combo2_Click(Index As Integer)
Dim txSQL As String
If Index = 0 Then
txSQL = ”select DISTINCT score_Stu from score_Form where score_Cla='“ & Trim(Combo2(0).Text)& ”'“
Set mrc = ExecuteSQL(txSQL, MsgText)
If mrc.EOF = False Then
With Combo2(1)
.Clear
Do While Not mrc.EOF
.AddItem Trim(mrc!score_Stu)
mrc.MoveNext
Loop
End With
End If
txSQL = ”select DISTINCT score_Cou from score_Form where score_Cla='“ & Trim(Combo2(0).Text)& ”'“
Set mrc = ExecuteSQL(txSQL, MsgText)
If mrc.EOF = False Then
With Combo2(2)
.Clear
Do While Not mrc.EOF
.AddItem Trim(mrc!score_Cou)
mrc.MoveNext
Loop
End With
End If
End If End Sub
Private Sub Combo3_Click(Index As Integer)
Dim txSQL As String
If Index = 0 Then
txSQL = ”select * from student_Form where student_Cla='“ & Trim(Combo3(0).Text)& ”'“
Set mrc = ExecuteSQL(txSQL, MsgText)
If mrc.EOF = False Then
With Combo3(1)
.Clear
Do While Not mrc.EOF
If mrc!student_NO <>.Text Then
.AddItem Trim(mrc!student_NO)
End If
mrc.MoveNext
Loop
End With
End If
txSQL = ”select * from class_Cour where class_NO='“ & Trim(Combo3(0).Text)& ”'“
Set mrc = ExecuteSQL(txSQL, MsgText)
If mrc.EOF = False Then
With Combo3(2)
.Clear
Do While Not mrc.EOF
If mrc!course_Name <>.Text Then
.AddItem Trim(mrc!course_Name)
End If
mrc.MoveNext
Loop
End With
End If
End If End Sub
Private Sub Command1_Click()
Dim txtSQL As String
If Text1(1)= ”“ Then
MsgBox ”考试期号不能为空!“, vbOKOnly, ”提示“
Text1(1).SetFocus
Exit Sub
End If
If Combo1(0).Text = ”“ Then
MsgBox ”学生班号不能为空!“, vbOKOnly, ”提示“
Combo1(0).SetFocus
Exit Sub
End If
If Combo1(1).Text = ”“ Then
MsgBox ”学生编号不能为空!“, vbOKOnly, ”提示“
Combo1(1).SetFocus
Exit Sub
End If
If Combo1(2).Text = ”“ Then
MsgBox ”考试课程不能为空!“, vbOKOnly, ”提示“
Combo1(2).SetFocus
Exit Sub
End If
If Text1(2)= ”“ Then
MsgBox ”考试分数不能为空!“, vbOKOnly, ”提示“
Text1(2).SetFocus
Exit Sub
End If
txtSQL = ”select * from score_Form where score_Per='“ & Trim(Text1(1))& ”' and score_Cla='“ & Trim(Combo1(0).Text)& ”' and score_Stu='“ & Trim(Combo1(1).Text)& ”'And score_Cou='“ & Trim(Combo1(2).Text)& ”'“
Set mrc = ExecuteSQL(txtSQL, MsgText)
If mrc.EOF = False Then
MsgBox ”同次同人同科只能添加一次“, vbOKOnly, ”警告“
Text1(2)= ”“
Combo1(0).SetFocus
Exit Sub
End If
txtSQL = ”select * from score_Form“
Set mrc = ExecuteSQL(txtSQL, MsgText)
mrc.AddNew
mrc.Fields(0)= Trim(Text1(0))
mrc.Fields(1)= Trim(Text1(1))
mrc.Fields(2)= Trim(Combo1(0).Text)
mrc.Fields(3)= Trim(Combo1(1).Text)
mrc.Fields(4)= Trim(Combo1(2).Text)
mrc.Fields(5)= Trim(Text1(2))
mrc.Update
mrc.Close
MsgBox ”考试信息添加成功!“, vbOKOnly, ”提示“
With MSFlexGrid1
.Rows =.Rows + 1
.TextMatrix(.Rows1, 1)= Trim(Text1(1))
.TextMatrix(.Rows1, 3)= Trim(Combo1(1).Text)
.TextMatrix(.Rows1, 5)= Trim(Text1(2))
End With
Text1(2)= ”“
Combo1(0).Clear
txtSQL = ”select * from class_Form“
Set mrc = ExecuteSQL(txtSQL, MsgText)
If mrc.EOF = False Then
With Combo1(0)
.Clear
Do While Not mrc.EOF
.AddItem Trim(mrc!class_NO)
mrc.MoveNext
Loop
End With
End If
Combo1(1).Clear
Combo1(2).Clear
Text1(0)= GetRkno
MSFlexGrid1.TopRow = MSFlexGrid1.Rows1
Select Case mrc.Fields(i).Type
Case adDBDate
.TextMatrix(.Rows1, i)= mrc.Fields(i)& ”“
End Select
Next i
mrc.MoveNext
Loop
.Visible = True
End With
Frame1.Visible = False
mrc.Close
Text2(1)= ”“
txSQL = ”select DISTINCT score_Cla from score_Form“
Set mrc = ExecuteSQL(txSQL, MsgText)
If mrc.EOF = False Then
With Combo2(0)
.Clear
Do While Not mrc.EOF
.AddItem Trim(mrc!score_Cla)
mrc.MoveNext
& ”“, 46
Loop
End With
End If
Combo2(1).Clear
Combo2(2).Clear
Text2(2)= ”“ End Sub
Private Sub Command4_Click()
Dim txtSQL As String
Text2(1)= ”“
txtSQL = ”select DISTINCT score_Cla from score_Form“
Set mrc = ExecuteSQL(txtSQL, MsgText)
If mrc.EOF = False Then
With Combo2(0)
.Clear
Do While Not mrc.EOF
.AddItem Trim(mrc!score_Cla)
mrc.MoveNext
Loop
End With
End If
Combo2(1).Clear
Combo2(2).Clear
Text2(2)= ”“ End Sub
Private Sub Command5_Click()
Dim j As Integer
Dim txtSQL As String
If Text3(0)= ”“ Then
MsgBox ”清选择要修改的纪录!“, vbOKOnly, ”提示“
MSFlexGrid1.SetFocus
Exit Sub
End If
If Text3(1)= ”“ Then
MsgBox ”考试期号不能为空!“, vbOKOnly, ”提示“
Text3(1).SetFocus
Exit Sub
End If
If Combo3(0).Text = ”“ Then
MsgBox ”学生班号不能为空!“, vbOKOnly, ”提示“
Combo3(0).SetFocus
Exit Sub
End If
If Combo3(1).Text = ”“ Then
MsgBox ”学生编号不能为空!“, vbOKOnly, ”提示“
Combo3(1).SetFocus
Exit Sub
End If
If Combo3(2).Text = ”“ Then
MsgBox ”考试课程不能为空!“, vbOKOnly, ”提示“
Combo3(2).SetFocus
Exit Sub
End If
If Text3(2)= ”“ Then
MsgBox ”考试分数不能为空!“, vbOKOnly, ”提示“
Text3(2).SetFocus
Exit Sub
End If
txtSQL = ”select * from score_Form where score_NO<>'“ & Trim(Text3(0))& ”' And score_Per='“ & Trim(Text3(1))& ”' and score_Cla='“ & Trim(Combo3(0).Text)& ”' and score_Stu='“ & Trim(Combo3(1).Text)& ”'And score_Cou='“ & Trim(Combo3(2).Text)& ”'“
Set mrc = ExecuteSQL(txtSQL, MsgText)
If mrc.EOF = False Then
MsgBox ”同次同人同科只能添加一次“, vbOKOnly, ”警告“
Text3(2)= ”“
Combo3(0).SetFocus
Exit Sub
End If
txtSQL = ”Delete from score_Form where score_NO='“ & Trim(Text3(0))& ”'“
Set mrc = ExecuteSQL(txtSQL, MsgText)
txtSQL = ”select * from score_Form“
Set mrc = ExecuteSQL(txtSQL, MsgText)
mrc.AddNew
mrc.Fields(0)= Trim(Text3(0))
mrc.Fields(1)= Trim(Text3(1))
mrc.Fields(2)= Trim(Combo3(0).Text)
mrc.Fields(3)= Trim(Combo3(1).Text)
mrc.Fields(4)= Trim(Combo3(2).Text)
mrc.Fields(5)= Trim(Text3(2))
mrc.Update
mrc.Close
MsgBox ”考试信息修改成功!“, vbOKOnly, ”提示"
j = 0
For i = 1 To MSFlexGrid1.Rows1
第四篇:MIS课程设计报告
管理信息系统课程设计
专 业: 信息管理与信息系统 课程名称: MIS课程设计 课题名称: 学生管理系统 教 师: 许炜 小组成员: 张浩 张旭 周杨 徐俊杰
2014年 12 月 26 日 目录
第一章 系统规划..................................................1 1.1设计背景....................................................1 1.2系统设计目标................................................1 1.3 可行性分析..................................................1 第二章 系统分析..................................................2 2.1组织结构分析................................................2 2.2业务流程图..................................................2 2.3功能需求....................................................2 第三章 系统设计..................................................4 3.1 界面设计....................................................4 第四章 系统实施.................................................11 4.1 系统操作使用的简要说明.....................................11 4.2 系统评价...................................................11 课程设计总结....................................................13 参考资料........................................................13 江苏科技大学苏州理工学院 商学院
课 程 设 计 报 告
第一章 系统规划 1.1设计背景
学生信息系统是一项数据量很庞大的管理信息系统,需要实现的功能也越来越复杂,越来越全。因此,对于学生信息的管理系统的设计要求越来越严格,其功能的全面性,简便性要求也逐步增强。
1.2系统设计目标
本系统是基于AxureRP软件设计搭接用户界面的学生信息管理系统,实现对学生在校信息的全面集中管理。
1.3 可行性分析
技术可行性:本系统采用AxureRP软件,软件具有以下优点:
网站构架图(Site Structure):AxureRP可以快速绘制树状的网站构架图,而且可以让构架图中的每一个页面节点,直接连接到对应网页。
示意图(Wireframe):Axure RP内建了许多会经常使用到的widget元件,例如:按钮(Button)、图片(Image)、文字面板(Text Panel)、选择钮(Radio Button)、下拉式菜单(Droplist)。流程图(Flowchart):AxureRPFlowDiagram快速建立流程图就像建立wireframe一样容易,Flow Widget中有设计流程图时会经常用到的形状,您可以轻松在流程之间加入连接线并设定连接的格式。
交互设计(InteractionDesign):大多数的widget可以对一个或多个事件产生动作,包括OnClick、OnMouseOver和OnMouseLeave等
自动输出网站原型(HTML Prototype): Axure RP可以将wireframe,输出成符合InternetExplorer或Firefox等不同浏览器的HTML prototype。江苏科技大学苏州理工学院 商学院
课 程 设 计 报 告
第二章 系统分析
2.1组织结构分析
2.2业务流程图 2.3功能需求
主要功能:
※登录界面:用户名、密码登录,密码丢失,用户注册 学籍管理:包括入学注册、学籍信息查询和更新
班级管理:包括班级信息添加、更新和删除 ※课程管理:包括课程查询,学生选课系统 江苏科技大学苏州理工学院 商学院
课 程 设 计 报 告
成绩管理:包括成绩录入、查询和统计
收费管理:学生缴费信息输入、查询和统计 ※打印统计:打印统计结果 江苏科技大学苏州理工学院 商学院
课 程 设 计 报 告
第三章 系统设计
3.1 界面设计 登陆界面:
注册界面:
密码修改界面: 江苏科技大学苏州理工学院 商学院
课 程 设 计 报 告
系统功能界面:
江苏科技大学苏州理工学院 商学院
课 程 设 计 报 告
学籍管理界面:
学籍修改界面: 江苏科技大学苏州理工学院 商学院
课 程 设 计 报 告
班级管理界面: 江苏科技大学苏州理工学院 商学院
课 程 设 计 报 告
课程管理界面: 江苏科技大学苏州理工学院 商学院
课 程 设 计 报 告
成绩管理界面: 江苏科技大学苏州理工学院 商学院
课 程 设 计 报 告
收费管理界面: 江苏科技大学苏州理工学院 商学院
课 程 设 计 报 告
打印系统界面:
第四章 系统实施
4.1 系统操作使用的简要说明
本系统是基于学生信息管理过程进行设计的简明版信息存储管理系统。由登录界面进入,若还未注册或者密码遗忘,可以进行相应的找回、修改功能。之后,便可以进行学生学籍、课程、成绩以及学费管理等方面的信息查询与统计功能,最后,也可以对之前的统计结果进行打印。
4.2 系统评价
4.1.1采用的有特色的技术与技巧
1)动态面板部件。在运用AxureRP软件设计学生管理系统流程界面时,不仅使用了江苏科技大学苏州理工学院 商学院
课 程 设 计 报 告
系统一般常用的部件进行常规设计,而且使用了动态面板部件,可以让你实现高级的交互功能,实现原型的高保真度。
2)菜单控件。菜单控件用于创建简单的弹出菜单,菜单控件分为垂直菜单(Vertical Menu)和水平菜单(Horizontal Menu),可以通过控件面板中拖入菜单控件到线框图中创建菜单,每一层的菜单项可以继续向下新增子菜单。图例:
3)OnChange事件。OnChange事件可用于下拉框(Droplist)和列表框(List Box)控件。OnChange事件是在下拉框或列表框的选项选择时发生。这在原型中以下拉框进行导航非常有用,即当选择下拉框的某个选项时跳转到相应的页面上。在本次实验中,此应用很多地方用到就不一一例举。
4.2.2成功之处与主要特点
1)模块化。本系统主要分为七个模块,分别为登录界面、学籍管理、班级管理、课程管理、成绩管理、收费管理、打印统计,每一个模块中也有细分具体功能板块,这样编排,使得学生与管理员使用都很清楚、明朗;
2)简明而全面。本系统实现了学籍、班级、课程、成绩、收费的五个功能,具体而全面地涵盖了关于学生日常涉及的事务处理;
3)实用性。本系统在本校已有系统功能的基础上,完善了部分未能使用,却是学生需要的功能,如个人、专业学分计算与统计功能等。江苏科技大学苏州理工学院 商学院
课 程 设 计 报 告
4.2.3系统会改进完善之处和进一步工作的打算
1)各部信息之间关联性太强,一处信息的错误可能导致整个系统中信息错误。2)现有系统在用户角色和用户权限设置上没有相关的功能。3)在用户界面,用户体验,响应速度等方面存在问题。
改进措施:下一步将进行用户权限系统的设置。不同的用户角色享有不同的权限,方便进行信息的查询、管理和利用。同时也要改进用户界面,提高系统的响应速度,改善用户的体验,做到更便捷、更友好。
课程设计总结
本次课程设计,让我们了解和熟悉了另一种搭建网络页面框架,实现网络功能的软件和方法。虽然有些方面不及Java与ASP.net等其他软件所能实现的页面功能复杂全面,但Axure RP 可以让桌面应用软件和Web网站的设计师创建线框图、流程图、原型和规格说明文档,它比任何当前其它创建静态原型的工具如Visio,、Illustrator、Photoshop、Dreamweaver, Visual Studio、FireWorks、GUI Studio等都要快速、高效,因为它才是真正的专门原型设计工具,并且支持多人协作设计和版本控制管理。
而本次课程设计也提高我们小组成员的动手实践能力与遇到问题时的思考、分析、解决问题的能力,懂得如何实在地搭建一个我们自己生活学习中所接触到,使用到的网络界面,网站数据查询与统计功能,真正的学而致用,理解的也更全面透彻,提高了学习计算机的兴趣,增强了信心。
在本次课程设计中,我们因为不熟悉,也遇到了很多的困难。虽如此,每当克服一个困难时,我们都非常的兴奋,这些都是自己努力的结果。现在,我们有信心面对接下来的挑战,在不断的实践中锻炼自己,提高自己!
参考资料
[1] Axure第一书(作者马克)[2] Axure快速原型设计(第二版)
第五篇:浅析供电企业MIS系统建设特点与体会
更多资料请访问:豆丁教育百科
浅析供电企业MIS系统建设特点与体会
刘泽生
安徽省巢湖供电公司(238005)
摘要:本文结合笔者所在供电局的MIS系统建设,介绍供电企业MIS系统5大特点,从8个方面谈建设的思路、措施和体会,为供电企业MIS系统建设,积累了经验。
近年来,安徽省巢湖市供电局采用先进的计算机网络技术和信息系统工程开发方法,不断提高企业现代化管理水平,加快自身发展,以适应供电企业的生产经营工作需要,提高工作效率,节约各项成本。
一、巢湖供电局MIS系统建设简介
巢湖供电局MIS系统的建设,开始于1992年的”局长办公系统”。98年移植阜阳局MIS系统,进行试用与培训。99年底在合肥工大帮助下进行了MIS系统的初步规划并试用安庆局MIS,进行企业内各部门的全员培训。2000年下半年巢湖供电局进入了MIS建设的新阶段,完成了巢湖供电局信息资源规划。建成了由两千多数据元素构成的供电企业数据元库,并分类管理,完成了整个企业所辖的输变电设备编码,并通过省局评审验收。在完成供电企业信息资源规划的基础上,又完成了MIS七个子系统的开发,包括:生产管理系统、技术管理系统、基建、计划、安监、人力资源与综合查询。
在经过半年时间的双轨运行后,MIS在局生产与技术管理方面,开始了单轨运行。从2001年6月到2002年4月的10个月内,在生产口的各工区所、有关科室和220KV变电所运用新开发的MIS系统的生产、技术管理两大子系统,实现了输变电设备的检修管理(含缺陷管理)、工程管理、台帐与技术监督管理的单轨制无纸化运行。在单轨运行半年后,通过了省电力公司MIS实用化验收,获省电力系统科技二等奖。
二、巢湖供电局MIS系统的特点
1、在技术路线方面的特点:
该MIS系统是以“信息工程方法论”为指导,先全面作好供电企业信息资源规划,以规划为基础指导分步开发,突出做好企业数据与功能的分析与建模,围绕“人、设备、电、资金、材料”五个方面建立了二十七个主题数据库,在建立主题数据库环境的基础上,实现了按供电企业生产基本程序与规律,而不按单位部门职能编程的目的,达到了较复杂的市、县供电生产技术管理业务流程中的数据唯一与信息共享,从而较成功地实践了以数据为中心的信息工程理论。这就保证了MIS系统的稳定性和可持续发展。
2、在开发过程中的组织路线方面的特点:
在规划与开发过程中,充分发挥了供电企业各级领导与业务人员的主力军作用,发挥了供电
企业信息中心的纽带作用,发挥了开发方的先导作用。在整个规划、开发与试用过程中,形成了一个以开发人员、业务代表及信息中心成员三结合的执行层,一个以开发方项目负责人、企业科室负责人及信息中心负责人三方结合的管理层,一个以供电企业信息主管(企业领导班子分管领导成员)与开发方主管两结合的决策层的三棱体立体组织结构,确保企业MIS开发的技术路线在规划、开发、消缺、试用的全过程中完全得到落实,确保开发过程的关系畅通与高效。
3、在生产管理流程中的功能特点:
巢湖供电局MIS系统中的生产管理子系统,对输变电设备的停电检修管理(含缺陷管理)、工程管理这两个主要的业务流程,实现了全过程、跨部门、跨地域、实时闭环管理。达到了输变电检修、调度、变电、线路运行的日常生产业务管理工作无纸化;实现了从日常停电计划、停电申请、方式票、调度指令票、调度操作票、变电操作票、一二种工作票与检修记录、缺陷通知单均能在网上申报和审批,且其内容与编号(含方式、地线、重大缺陷、跳闸次数等)均能自动流转到调度值班与变电值班两个值班记录中,既方便了检修人员、也方便了运行人员,规范了两票三制与各种记录,大大提高了工作效率,提高了运行操作的安全性及规范管理,深受供电企业一线运行、检修人员的欢迎,从而也促进了这套MIS系统的普遍自觉使用与进一步发展。
此模块按照全国通用一致的供电企业输变电设备检修流程(即从停电计划、停电申请、方式变更、调度命令、操作票、工作票、检修记录七点大闭环),实现了供电企业生产检修管理的统一编程,不受供电企业内部生产部门与单位职能界限划分的影响。这种按供电生产的基本进程表建立的数据模型与功能模型,使得生产管理程序相对稳定,并且实现生产检修管理的全部信息能全过程闭环。而且还达到了检修、运行信息的输入数据唯一与信息共享的目的。
按照电力大修技改工程在市县工程管理的基本流程,从计划报批、开工报告报批到购货、汇款、领料,完工验收到决算,实现了工程管理的全过程闭环与程序的相对稳定,不受管理部门职能划分的影响。
4、在生产技术管理方面的特点:
通过数据项/数据值的库表形式,把所有电力设备试品的不同试验的报告,用统一的试验报告结构模式表现出来,达到了各种试验报告格式的一致性。当试品、试验目的、试验方法、试验项目、内容等变化了,统一的试验报告结构保持不变,实现了试验报告程序的稳定性、通用性、一致性。
5、在生产管理模块使用方面的特点:
为了使巢湖供电局MIS中生产管理与技术管理子系统安全流畅、有序地运行使用,巢湖局针对生产管理与技术管理编写了生产MIS使用实施细则,对各工区所、有关科室的使用作了明确的规定,对各层供电生产技术管理人员的权限作了明确的界定。确定了相应考核办法,保证管理权限落实,操作程序正确及时。操作权限方面按决策层两等级、管理层三等级与执行层三等级,共三层八个等级划分,基本满足市县供电企业的实际与需要。再按人力资源库中各类生产人员的实际权限给予相应密码。
生产系统单轨制运行后,通道可靠与网络安全问题十分突出。巢湖供电局采用了光纤加扩频(10M口)解决通道可靠性(光纤一期建成,二期待开工,现网络已覆盖各工区所、科室与220KV变电所)。同时又采用了防病毒防火墙与网络防火墙,保证系统安全,为进一步防止内部异常与“攻击”,定时对系统进行数据备份。
三、MIS系统建设的体会
巢湖供电局MIS系统的建设,经过了十年的风风雨雨,走过了一条艰苦创建的道路,感受与体会较多:
1、上级机关的支持是搞好企业MIS建设的重要条件。
2、确定技术路线的重要性。巢湖供电局MIS系统之所以在生产管理方面能够实现全方位、跨部门、跨地域、实时闭环和无纸化单轨制运行,首先受益于“先规划后开发”、“重数据分析”、“以数据为中心”、提倡“建立主题数据库环境,实行数据唯
一、信息共享”、提倡电力大工业生产的整体观念,提倡统一领导、统一规划、统一开发、统一标准。
3、供电企业主要领导的高度重视与企业信息主管的直接参与是企业MIS建设成败的关键。巢湖供电局党政领导对企业MIS建设十分重视,同时具体分管信息化建设的总工亲自全过程参与、具体加强领导与把关。
4、正确地选择企业MIS建设开发的合作伙伴,是企业MIS建设成功的先决条件。企业MIS的开发方是企业MIS建设的先导者,要发挥先导作用,企业要依靠开发方传授信息工程的正确理论与方法。巢湖供电局在十年摸索的前期两次失败与第三次的成功中充分认识到正确选择合作伙伴的十分重要性,并在实际运作中,通过咨询、调查、研究、演示、试用、比较、学术辩论等多种方式来识别自己的合作伙伴,并在合作中及时协调,在坚持合同、确保质量、贯彻初衷路线的前提下,注意与开发方保持良好的合作状态。
5、在规划开发中的组织措施。要使企业MIS系统的规划开发工作自始至终有序、高效、成功的运转,一个三棱形的立体组织结构不可缺少。即开发方项目负责人、信息中心负责人、业务科室负责人的三结合小组,对三结合的执行层提出的工作意见,每天及时进行判断、过滤,决定取舍、加以协调,理顺了MIS建设中的组织管理关系,保证了规划、开发工作顺利进行。
6、在MIS建设中正确充分地发挥三个作用,即开发方的先导作用、企业业务代表的主力军作用与企业信息中心的纽带作用,是搞好企业MIS建设的有力手段。
7、在抓好企业全员信息化建设普及培训的基础上,抓好信息中心专业人员的提高性培训。
8、在供电企业MIS系统建设中,通道问题举足轻重。供电企业的变电所分散在地区内的各地,因而没有一个带宽足够的通道支撑,要实现生产管理MIS的跨地域跨部门实时闭环是不可能的。巢湖供电局先用10M组网,使MIS初步实现了单轨制实时运转。但在实践中发现不可靠,当跨距太大、多级中转、天气变化、相邻扩频干扰时,这种通道就不足以满足生产系统单轨运行的可靠性要求,因而亟待光纤工程的投运。当然,电力生产与技术依靠MIS系统,实行无纸化单轨制运
行,系统网络的安全问题也是至关紧要的。
笔者在实践中充分认识到供电企业的MIS建设是一个长期的艰苦奋斗的过程,它只有起点,没有终点,是一个众人合作的现代化工程。它要付出巨大的人力、物力、财力,同时又给企业的现代化管理带来一个飞跃。
作者简介:刘泽生(1946—),男,湖南省岳阳人,高级工程师,长期从事电力系统技术管理工作。联系电话:0565-2302268***