MIS开发体会[推荐5篇]

第一篇：MIS开发体会

需要在开发之前进行细致的需求分析，制定严格、详细的开发规范 开发规范的内容主要包括:系统设计规范、程序开发规范和项目管理规范等。系统设计规范规定字段、数据库、程序和文档的命名规则,应用界面的标准和风格,各类报表的输出格式等。程序开发规范对应用程序进行分类,如可将程序分成代码维护类、业务处理类、业务查询类和统计报表类等，如果数据量大的话，还要考虑数据表的优化。并给出各类应用程序的标准程序流程,有必要时可编制出标准程序。项目管理规范规定项目组中各类开发人员的职责和权力,开发过程中各类问题(如设计问题、程序问题等)的处理规范和修改规则,开发工作的总体进度安排和奖惩措施等。

开发规范的制定需要花费一定的时间和精力,但是“磨刀不误砍柴功”,它相当于把今后开发过程中开发人员都要遇到的问题提前做了一个考虑。有了开发规范,在后续的开发过程中,设计人员就不必每次考虑如何为一个字段命名,编程人员也不必去想某个程序的结构和布局应当怎样,测试人员也有了判断程序对错的标准。

开发规范在项目开发工作中起着事前约定的作用,需要所有开发人员共同遵守。它约束开发人员的行为和设计、编程风格,使不同子系统和模块的设计、编程人员达成默契,以便形成整个系统的和谐步调和统一风格,也便于今后的系统维护和扩展工作。

开发项目的成功需要有一个好的开发组。高效的开发小组要有一个合理的人员构成。一般的，一个中型的开发组应包括项目负责人、系统分析员、系统设计员、程序员和测试人员等。开发组的人员要分层次,下层人员要服从上层人员的领导。

项目组要有一个项目负责人,他对整个项目有控制和决定权,对项目开发的成败负责。软件开发中遇到问题的答案往往不止一个,因此需要有人对这些问题有决定权,避免扯皮。大型项目的负责人应有丰富的项目管理经验和数据库设计经验,另外还需对用户的实际业务有较全面和深入的理解。

系统分析员协助项目负责人进行系统分析工作,并负责某一方面的具体设计工作;系统设计员帮助系统分析员进行模块设计;程序员按照模块设计进行编程;测试人员直接受项目负责人领导,为整个项目的质量把关。所有项目组人员都应对用户的实际业务有不同程度的了解,这样有助于系统的开发工作和系统最后的成功。项目进度管理是软件开发中最难以做好的一项工作。编程工作本身是一个难以量化的工作,再加上开发过程中对设计的修改等因素,使得项目开发工作经常不能按预计的时间完成。

为了管理好项目进度,首先要制定一个可行的项目进度计划。一开始,项目进度计划只能根据项目的内容、工作量和参加人员进行大致地估算,包括系统分析和设计时间,编程、测试时间和文档制作时间,估算时应根据业务复杂程度加入一些缓冲时间。系统分析、设计完成后,根据程序清单可估算出每个程序的编程时间(根据程序类型和复杂程度),并在此基础上估算这种程序量下的测试、文档制作和缓冲时间,经过这样估算再做出的进度计划已经可以做到相当准确和细致了。实际上项目进度计划是一个由粗到细且不断调整的计划。

每周要将项目进度情况与项目进度计划进行对比。对于拖延的工作如无充分理由,则应督促有关人员加班或提高工作效率赶上进度;如有正常理由,在无法追回的情况下可以修改进度计划,申请延期。

项目进度管理一定要细致和严格,像设计、编程这种难以量化的工作是很难笼统地去控制进度的。

第二篇：MIS开发中的系统分析

ＭＩＳ开发中的系统分析

随着计算机系统和计算机网络及其应用的迅猛发展，越来越多的组织、企业、部队开始对MIS（管理信息系统——Management Information System）由感兴趣而逐渐进入到实际开发、应用阶段，而随着信息技术新的发展，系统开发对分析人员素质提出了更高的要求。在管理信息系统(MIS)开发中，许多开发团队对系统分析的特点及重要性认识不足，致使在开发过程中引发各种问题，开发完成后操作人员因为不好用、不方便用而不愿意使用，造成大量人力、物力的浪费。本文结合实际，对MIS开发中系统分析工作的特点及重要性进行简单分析，对系统分析中要注意的问题。

管理信息系统(MIS)是由人和计算机设备组成的对企业或者组织（部门）管理信息进行收集、加工、传输、保存、使用、维护的系统。一个MIS的开发要经过系统分析（Systems Analysis）、系统设计、系统实现、系统维护四个阶段。系统分析的主要内容是：业务和数据的流程是否通畅，是否合理；数据、业务过程和实现管理功能之间的关系；老系统管理模式改革和新系统管理方法的实现是否具有可行性等等。系统分析的目的是：将用户的需求及其解决方法确定下来，这些需要确定的结果包括：开发者关于现有组织管理状况的了解；用户对信息系统功能的需求；数据和业务流程；管理功能和管理数据指标体系；新系统拟改动和新增的管理模型等等。系统分析从系统需求入手，从用户观点出发建立系统用户模型。用户模型从概念上全方位表达系统需求及系统与用户的相互关系。系统分析在用户模型的基础上，建立适应性强的独立于系统实现环境的逻辑结构。系统分析是整个MIS开发的基础性工作，是最为重要也最难把握的一个阶段。但是在实践当中，系统分析通常不能引起开发人员的足够重视。许多开发人员在开发一个软件产品时，往往在没有充分了解用户需求的情况下，便匆匆着手编写程序，他们错误的将“软件开发”等同于“程序编写”，这是许多软件开发人员的通病。这样导致的结果是：开发人员埋怨用户需求频繁变化，用户埋怨系统不能满足工作需求。严重时，可能导致整个开发工作失败，使开发费用付之东流。特别是近年来面向对象的开发方法被广泛采用以后，软件规模日趋庞大，前期分析的重要性便愈加凸现出来。

一、充分认识系统分析工作的重要意义

系统分析所确定的内容是今后系统设计、系统实现的基础。不同企业或组织有着不同的内部环境，当开发团队着手开发一个项目时，首先应该深入到企业或组织的各级部门，了解其组织机构、生产状况及业务流程，并在此基础上采用各种方式对各级各类人员进行咨询和调查，明确他们对该系统的具体需求。在明确了用户具体需求的基础上，方可进行后续的系统设计、系统实施等工作。只有这样，才能使所开发的MIS系统符合该组织或组织的需要，真正为其提供有效服务，才能充分利用计算机信息处理、统计、分析自动、快速、准确的优势，提高员工的工作效率，减轻员工的工作压力。否则，如果不重视前期的调查分析，系统的开发不但不能带来预期效益，反而可能造成资源浪费或给企业或组织带来不便，严重时甚至可能导致整个开发工作失败。

在MIS开发中，一个系统通常由总系统和若干子系统组成，总系统与子系统之间、子系统与子系统之间存在着纵横交错的复杂关系，整个系统是一个有机整体。比方说一个字段名在军务兵员管理中是姓名，在车辆管理系统中是驾驶员，在通信保障系统里面是值勤员等等，在总系统中其实质是姓名。因此，在着手开发一个项目时，必须对总系统及各子系统均按照软件工程的方法进行系统分析，明确系统总功能、各子系统功能及系统间的相互关系。哪怕一个子系统分析研究不到位，或其中仅仅一部分设计不合理，都可能对系统的整体功能和目标实现造成影响。因此，开发前期的系统分析工作必须做到通盘考虑、整体推进、目的明确、条理清晰、结构合理以保证开发成功。

此外，前期分析工作也要考虑为后期维护打下基础。一方面，企业或组织是在不断向前发展的，一个MIS运行一段时间后，可能会在系统功能方面提出进一步要求；另一方面，系统在使用过程中也会逐渐暴露出内部的各种不合理甚至错误的地方。这就要求对系统功能进行扩充或对程序代码进行修改。如果前期分析工作做得比较到位，具有一定的前瞻性，充分考虑了软件投入使用后的环境、投入使用后的功能扩展、升级改造及后期维护，就可以避免在日后的使用过程中出现系统与环境不适应、系统功能扩充难、程序代码修改难等后遗症。

二、准确完整的系统分析文档是后续开发的依据

系统分析后形成的系统分析文档是分析工作唯一的工作成果，是后续开发工作的依据，也是评价整个开发过程是否成功的标准。在进行系统分析的过程中，分析人员应将收集到的第一手信息，进行归类整理，分析汇总，然后制订出准确、一致、完整的系统分析文档：系统需求分析报告。

通常该要对系统功能需求、内部部门状况、业务流程、数据库结构、系统功能等进行详尽描述，甚至应该包括对系统将来发展的设想，当前使用的软件、硬件环境的具体技术参数，当前用户方的技术人员和业务人员的信息技术水平，待开发的系统与现有的其他系统、甚至与外部的其他系统的接口情况等。有了这系统需求分析报告，可使后续的系统设计、系统实施、系统维护等工作有章可循，也避免了以后出现频繁修改需求的情况发生和开发出不适应工作需求的MIS系统的问题。

系统需求分析报告制订完毕以后，为提高软件的质量和保证开发的成功，还需要对这些文档资料进行评审。评审工作通常应由组织或组织的信息管理高层以及各类技术人员共同承担。文档评审时应该注意：

1、系统内部和各子系统之间各种需求不能互相矛盾；

2、需求必须是完整的，应该包括在分析阶段用户提出的所有功能或性能；

3、指定的需求用现有的软、硬件技术可以实现；

4、需求确实能解决用户当前所面临的实际问题或者能够实现用户所提出的目的。只有通过以上四方面的评审，分析工作才算告一段落，才能进行下一环节的系统设计工作。这里需要明确的是，即使进入了下一开发环节即系统设计环节，甚至于开发结束进入试用阶段，也有可能因前面环节的工作做得有漏疏而不得不重新进行需求分析，也就是说实践中这种分析工作会出现一定程度的反复，且这种反复与需求分析的认真程度、所选择的开发模式等有较大关系。在开发实践中，系统分析人员为避免系统分析工作出现重大偏差而引起大面积重复分析，可以提出多种可行性方案供用户选择。例如，从功能是否完整角度考虑，可以尝试制定三个不同档次的方案：

1、基本方案：系统只完成最基本工作，没有额外功能；

2、完整方案：除了完成基本工作以外，还提供一些附加功能；

3、增强方案：这种系统具备用户期望的几乎所有功能。用户可根据自身的人力、物力条件结合需求目标从几个方案当中选出一个最优方案。

三、系统分析应重视与企业或者组织中各类人员的沟通

系统分析的工作内容主要是分析人员同客户进行沟通，包括同组织或组织的各级领导进行沟通及同普通员工进行沟通。

首先，信息系统开发要争取各级领导的支持。实际情况中，个别管理人员因为个人习惯、文化水平、工作方法等原因可能不愿接受环境的改变，因而不愿配合分析人员的工作，造成系统分析工作的局部甚至全局延误或者失败。例如，某些财务部门负责人不愿将本部门手工账务处理改为电子账务系统，坚持沿用原来的手工方式，对系统分析人员产生抵触情绪；例如有的领导干部习惯现场办公、签字画押，不愿意在微机屏幕上修改、批复文件，认为反正都要白纸黑字形成文件，用MIS系统反而多事等等。这必然对需求分析工作带来负面影响。当遇到类似情况时，分析人员除了在了解这些人的背景及性格特点的基础上，想方设法说服其转变观念，还需要主要领导的大力支持。如果系统分析人员的说服工作无效，可直接请求高层领导处理。

其次，不能忽略普通工作人员，要同普通工作人员进行充分沟通。在系统分析时，要保证完全是从一线工作人员那里获得第一手资料，因此能否取得被调查员工的支持是系统分析有效性的关键，一线工作人员态度积极可使分析工作的效率大大提高。只有与普通工作人员建立良好的工作关系，才能充分挖掘出企业所存在的问题。例如，开发财务管理信息子系统时，本身财务系统对上级业务就有管理系统，他们在使用过程中最清楚对上业务的需要以及上级业务部门的要求，结合财务制度、保密的有关规定要求，就很容易把握本级管理系统的需求，如果二级业务管理系统能有相关接口，就可以避免重复的数据采集录入工作；如果没有相关接口，就只要达到本级相应的基本要求就满足需要，不要每一级都大而全，反而降低工作效率。再例如，开发“通信资源库信息系统”，涉及信道、设备、人员素质、地形环境、保障器材、车辆等，就要求工程、作训、网络中心、器材、干部、兵员、营房、车辆等各部门通力合作，配合开发人员的分析工作，明确提出本部门对通信资源库信息系统的需求、积极提供资源库建设所需的资料。任何一个部门的任何一个工作人员的不合作行为，都可能影响分析工作的开展，都可能给系统带来隐患。系统分析人员在同组织中的每个有关工作人员进行沟通时，必须充分考虑这些工作人员的知识背景、表达能力、沟通能力等，避免出现有些员工不能将自己的需求做出正确表达而误导系统分析人员做出分析。在分析人员要与这些工作人员共同针对其负责的具体业务进行详细探讨避免出现不清楚自己到底对系统有什么需求和提出一些不切实际的需求，特别是避免提出一些以现有的信息技术水平无法实现的要求以及开发资金预算明显不可能实现的需求。总之，要求分析人员必须有较强的沟通能力，并且善于对自己的工作对象进行正确引导，从而使他们将自己合理的、真实的想法准确的表达出来。

四、系统分析应合理划分边界

我们开发利用MIS系统，一方面是要发挥计算机自动、高速、准确的特点，另一方面也是要发挥网络信息传输的快速高效，但是这些功能的实现，必须要有一定的规则来保证，因此系统分析过程中，特别要注意“分析边界”和“人机边界”的划分，这将决定系统分析工作及后续开发工作的覆盖范围。

“分析边界”指分析工作所涵盖的范围。MIS开发是一个系统工程，需要长期的、逐步的进行完善。整个开发工作往往涉及到一个组织或企业的方方面面。结合通信总站的实际，从机关到基层、从股室到营连、从各业务主管部门到相关业务要素、从干部到战士等等，都是分析工作所涵盖的范围，涉及的部门多，人员杂，业务种类差异大，因此很难一次性满足所有需求，也很难一次性具备所有功能，因而系统分析工作就有一个分析边界的划分问题。比如兵员管理，可以延伸出来驾驶员管理、炊事员管理、技术骨干管理、士官管理、婚恋、孕情管理等等，到底延伸到哪一部分，与其它如组织管理等如何结合都得明确下来，确保分析工作在一个相对明确的范围内进行，避免分析工作无边无际，难以完成。

“人机边界”指应当明确系统中哪些工作应由人工来完成，哪些工作应由系统自动完成。通常在一个系统中，有些工作必须由人工进行，这类工作往往是计算机无法实现、或者没有必要去实现的。例如，原始数据的录入工作，比如人员基本数据、财务单据等等需要工作人员通过手工方式进行录入。而有些工作则不需要人工干预，由系统自动完成。例如，话务量的统计、各种系统阻断告警时间、报文数量都可以直接通过专门的设施传输到信息系统之中，而不需要人工干预。

然而，在系统分析工作中，分析人员面对的是尚未开发出来的系统，因而多数情况下人机边界的划分，就不是很直观，要判断哪些由人工完成合理，哪些由系统完成合理，就需要系统分析人员充分了解业务的运作特点，深入了解业务流程，在此基础上，才能对人机边界进行准确合理的划分。分析工作要避免出现将只能用手工处理的业务，纳入到MIS系统模型当中，或将只能由系统自动完成的功能设计成由人工完成。

五、系统分析人员具有较高的综合素质非常重要

随着应用的发展，分析工作对系统分析员的综合素质提出更高的要求。系统分析人员必须既是管理人员又是技术人员，他们不直接从事管理工作，但一定要懂管理、懂协调；不直接从事具体的设计和实施工作，但一定要熟知各种开发技术和现有的技术发展状况，懂得如何运用并跟上科学技术的发展。

首先，从项目管理的角度看，要求系统分析人员具有极强的沟通能力、掌握一定的行业知识、具备一定的管理经验，以一个企业管理人员的标准要求自己。例如，要开发一个通信管理系统，就需要对通信管理和通信业务的处理流程有所了解；要为某企业开发一个Intranet，就要对该企业的业务知识、产品特性有所了解。否则很难保证开发出来的系统能与企业相适应。

其次，从技术角度看，当前许多企业需要开发基于动态网站技术的MIS，以期实现信息处理工作在交互式动态Web页面上进行。这就要求系统分析人员充分了解与开发相关的各项技术。系统分析员需要了解各种服务器平台、各种数据库产品，各种开发工具以及各种硬件设备性能等。由于当前基于Web的MIS可采用的技术手段种类繁多，实现同样的目标可以采用不同的技术手段，这就要求系统分析人员必须能够在众多的开发模式中选择出最佳方案，这样才能使后续的设计人员和编程人员的工作顺利进行。

六MIS系统的需求分析一定要坚持有利于提高管理、工作效率这一根本原则

我们开发一套MIS系统，不是单纯为了跟上信息化社会的步伐，不是为了实现个人或是领导团队的政绩需要，其最最根本的目的是要有利于提高管理、工作效率，如果脱离了这一目标，就完全是得不偿失。

首先，要避免MIS系统的大而全，开发大而全的系统的确能让人有成就感，与人一提起来就觉得什么都能干、什么都能干好。但是事实上呢？比如一个门禁系统，刷一次卡就开关一次门，的确能保证不刷卡就不开门，但是能保证开一次门肯定只有一个人进出吗？如果严格按照地铁站那样严格的刷卡出入系统，也许能保证上下班高峰时刻的流量，但是成本呢？如果成本和效率不能很好地达到一致，MIS系统的存在也就没有意义了。

其次，要清醒地认识到MIS系统不是万能的，还得有人为的监督才能保证，如果为了实现所有功能达到所有目的，到处安排人来进行监督管理，就根本达不到开发使用MIS系统的目的。比如说前段时间报道的成都绕城高速道路收费系统中使用的防闯关系统，其中的目的更多的是威慑目的一样，如果前车带走铁钉证据，只要后车现场没被抓一样没有闯关证据。所以这个功能估计也不会经常使用，只能在夜间人少时做为威慑使用。

然后，需求分析一定要紧密结合应用。比如为了提高办公效率，应该规定使用文档的类型、属性、格式，而不是把所有的多媒体、电子书、图片格式都兼容并包。相反，在单独的多媒体应用方面，就应该考虑多种媒体文件的兼容性、可扩展性，能够为大家提供丰富的文化娱乐、视频教学、课件学习等。

最后，就是要把握推陈出新的力度和节奏。我们开发MIS，并不是采用越新越前沿的技术越好，更不是界面越漂亮、采用多媒体技术越多就越好。当我们决定采用一种新的开发工具二次开发MIS系统的时候，就应该想一想：我们上一次开发的成果用了多久？参与开发的人员现在是什么情况？上次开发与这一次开发在需求上有多少更为急迫的要求和变化？尤其是最后这一条，一定要认真仔细地想一想分析一下，如果没有多少变化那为什么会感觉不完善，如果职能需求变化太大是不是因为最初的需求分析做得不够好？

总之：MIS系统开发过程中的系统分析工作与其它软件开发过程中的系统分析工作一样重要，是软件工程的一个重要步骤和组成部分，只有充分重视并认真进行系统分析，才能保证整个MIS开发工作的顺利展开，最终在人员、时间、金钱上获得收益，达到MIS开发的最终效果。

翟宗军

2012年10月14日

第三篇：2012年MIS工作计划

2012年MIS工作計畫

1、一月、六月份對一樓的電腦進行維護，維護的內容包括清理系統垃圾、註冊表垃圾，檢查作業系統是否出現異常，對沒有備份的電腦進行作業系統備份.2、二月、九月份對二樓的電腦進行維護，維護的內容包括清理系統垃圾、註冊表垃圾，檢查作業系統是否出現異常，對沒有備份的電腦進行作業系統備份.3、三月、七月、十一月份更換監控硬碟，並對監控攝像頭進行維護，維護的內容包括檢查監控攝像頭是否正常，監控角度是否出現偏差.4、四月、十月份對三樓的電腦進行維護，維護的內容包括清理系統垃圾、註冊表垃圾，檢查作業系統是否出現異常，對沒有備份的電腦進行作業系統備份.5、五月、十二月份進行印表機維護，包括點陣式印表機、噴墨印表機、雷射印表機，點陣式印表機檢查打印頭是否出現了斷針、卡色帶，噴墨印表機檢查噴頭是否出現堵塞，墨水匣是否出現異常.6、六月份對郵件進行維護，清理垃圾郵件.7、每天對機房的伺服器進行檢查維護，檢查伺服器是否運行正常，機房內的空調是否在運行，並登記機房“伺服器日常運行記錄表”.8、每個月對網路設備進行維護，檢查網路交換機是否有異常.9、淘汰辦公室的windows2000系統，安裝windowsXP原版系統.10、淘汰系統舊版本Outlook Express郵箱，換操作性比较好的Microsoft Office Outlook 2003郵箱.11、針對公司的網路速度慢的問題，進行機房網路整改，具體事宜待商量可行性後再行實

施.12、淘汰辦公室舊版本MSN，重新安裝新版本MSN2009.對設備進行維護，有利於延長設備的使用壽命，減少出現故障的頻率，可以有效的控制隱藏故障，從而節約維修成本.噴墨印表機可以進行改裝，改為連供的.改連供系統只是前期投入成本比較大，但後續成本相對於墨水匣來講就大大的降低了.

第四篇：MIS期末考试

1.Explain why information systems are so important today for business and management.Information systems are a foundation for conducting business today.In many industries, survival and even existence without extensive use of IT is inconceivable and IT plays a critical role in increasing productivity.Although information technology has become more of a commodity, when coupled with complementary changes in organization and management, it can provide the foundation for new products, services, and ways of conducting business that provide firms with a strategic advantage.Information technology has become the largest component of capital investment for firms in the United States and many industrialized societies.2.Evaluate the role played by the major types of systems in a business and their relationship to each other.There are four major types of information systems in contemporary organizations.Operational-level systems are transaction processing systems(TPS), such as payroll or order processing, that track the flow of the daily routine transactions that are necessary to conduct business.Management-level systems(MIS and DSS)provide the management control level with reports and access to the organization’s current performance and historical records.Most management information systems(MIS)reports condense information from TPS and are not highly analytical.Decision-support systems(DSS)support management decisions when these decisions are unique, rapidly changing, and not specified easily in advance.They have more advanced analytical models and data analysis capabilities than MIS and often draw on information from external as well as internal sources.Executive support systems(ESS)support the strategic level by providing data of greatest importance to senior management decision makers, often in the form of graphs and charts delivered via portals.They have limited analytical capabilities but can draw on sophisticated graphics software and many sources of internal and external information.The various types of systems in the organization exchange data with one another.TPS are a major source of data for other systems, especially MIS and DSS.ESS primarily receive data from lower-level systems.Today’s business environment calls for more integration among systems than in the past, but such integration is not easy to achieve.3.Analyze how information systems support various business strategies for competitive advantage.Businesses can use strategic information systems to gain an edge over competitors.Such systems change organizations’ goals, business processes, products, services, or environmental relationships, driving them into new forms of behavior.Information systems can be used to support strategy at the business, firm, and industry levels.At the business level of strategy, information systems can be used to help firms become the low-cost producers, differentiate products and services, or serve new markets.Information systems can also be used to lock in customers and suppliers using efficient customer response and supply chain management applications.Value chain analysis is useful at the business level to highlight specific activities in the business where information systems are most likely to have a strategic impact.At the firm level, information systems can be used to achieve new efficiencies or to enhance services by tying together the operations of disparate business units so that they can function as a whole or promote the sharing of knowledge across business units.At the industry level, systems can promote competitive advantage by facilitating cooperation with other firms in the industry, creating consortiums or communities for sharing information, exchanging transactions, or coordinating activities.The competitive forces model, information partnerships, business ecosystems, and network economics are useful concepts for identifying strategic opportunities for systems at the industry level.4.Evaluate the role of Internet technology in facilitating management and coordination of internal and inter-organizational business processes.Private, internal corporate networks called intranets can be created using Internet connectivity standards.Extranets are private intranets that are extended to selected organizations or individuals outside the firm.Intranets and extranets are forming the underpinnings of electronic business by providing a low-cost technology that can run on almost any computing platform.Organizations can use intranets to create collaboration environments for coordinating work and information sharing, and to make information flow between different functional areas of the firm.Intranets also provide a low-cost alternative for improving coordination of cross-functional business processes within the organization.Extranets help coordinate business processes shared with customers, suppliers, and other external organizations.Collaborative commerce builds on extranets to enable multiple organizations to collaboratively design, develop, build, move, and manage products through their life cycles.A firm engaged in collaborative commerce with its suppliers and customers can achieve new efficiencies by reducing product design cycles, minimizing excess inventory, forecasting demand, and keeping partners and customers informed.5

Identify the main moral dimensions of an information society and specific principles for conduct that can be used to guide ethical decisions.The moral dimensions of information systems center around information rights and obligations, property rights and obligations, accountability and control, system quality, and quality of life.Six ethical principles are available to judge conduct.These principles are derived independently from several cultural, religious, and intellectual traditions and include the Golden Rule, Immanuel Kant’s Categorical Imperative, Descartes’rule of change, the Utilitarian Principle, the Risk Aversion Principle, and the ethical “no free lunch” rule.These principles should be used in conjunction with an ethical analysis to guide decision making.The ethical analysis involves identifying the facts, values, stakeholders, options, and consequences of actions.Once completed, you can consider which ethical principle to apply to a situation to arrive at a judgment.6.Define IT infrastructure and describe the components and levels of IT infrastructure.IT infrastructure is the shared technology resources that provide the platform for the firm’s specific information system applications.IT infrastructure includes hardware, software, and services that are shared across the entire firm.Major IT infrastructure components include computer hardware platforms, operating system platforms, enterprise software platforms, networking and telecommunications platforms, database management software, Internet platforms, and consulting services and systems integrators.There are three different levels of IT infrastructure: public, enterprise, and business unit.You can better understand the business value of IT infrastructure investments by viewing IT infrastructure as a platform of services as well as a set of technologies.7.Describe the major standards for wireless networks and for wireless Internet access.The Institute of Electrical and Electronics Engineers(IEEE)has established a hierarchy of complementary standards for wireless computer networks.These include Bluetooth(802.15)for small personal area networks(PANs), Wi-Fi(802.11)for local area networks(LANs), and WiMax(802.16)for metropolitan area networks(MANs).Bluetooth can link up to eight devices within a 10 meter area using low-power, radio-based communication and can transmit up to 722 Kbps in the 2.4-GHz band.Wireless phones, keyboards, computers, printers, and PDAs using Bluetooth can communicate with each other and even operate each other without direct user intervention.The most popular of the 802.11 standards is currently 802.11b, which can transmit up to 11 Mbps in the unlicensed 2.4-GHz band and has an effective distance of 30 to 50 meters, although this range can be extended outdoors by using tower-mounted antennas.The 802.11b standard has been the most widely used standard for creating wireless LANs and providing broadband wireless Internet access.However, 802.11b is vulnerable to penetration by outsiders and interference from other wireless devices in the same frequency spectrum.WiMax has a wireless access range of up to 31 miles and a data transfer rate of up to 75 Mbps, making it suitable for providing broadband Internet access in areas lacking DSL and cable lines.The 802.16 specification also has robust security and quality of service features to support voice and video.Major cellular carriers are also upgrading their networks to provide wireless broadband access to the Internet at an average speed of 300 to 500 Kbps.Verizon’s service, called BroadBand Access, uses a technology called EV-DO to provide Internet access over a cellular network.8.Assess how supply chain management systems provide value for businesses and explain how they work.Supply chain management systems automate the flow of information between members of the supply chain so they can use it to make better decisions about when and how much to purchase, produce, or ship.More accurate information from supply chain management systems reduces uncertainty and the impact of the bullwhip effect.The correct movement of information makes it possible to time orders, shipments, and production properly to minimize inventory levels and expedite deliveries to customers.Supply chain management software includes software for supply chain planning and for supply chain execution.Supply chain planning systems enable the firm to generate demand forecasts for a product and to develop sourcing, manufacturing, and distribution plans.Supply chain execution systems manage the flow of products through the final stages of production, distribution, and delivery.Supply chain management systems provide data such as fill rates, inventory turns, or source/make cycle time for evaluating the performance of supply chain processes.Firms can use intranets to improve coordination among their internal supply chain processes, and they can use extranets to coordinate supply chain processes shared with their business partners.Internet technology facilitates the management of global supply chains by providing the connectivity for organizations in different countries to share supply chain information.Improved communication among supply chain members also facilitates efficient customer response and movement toward a demanddriven model.9 Assess how customer relationship management systems provide value for businesses and describe how they work.Customer relationship management(CRM)systems integrate and automate many customer-facing processes in sales, marketing, and customer service, providing an enterprise-wide view of customers.These systems track all of the ways in which a company interacts with its customers and analyze these interactions to maximize customer lifetime value for the firm.CRM systems capture and integrate customer data from all over the organization, analyzing the data and distributing the results to customer-related systems and customer touch points across the enterprise.Companies can use this customer knowledge when they interact with customers to provide them with better service or to sell new products and services.These systems can also identify profitable or nonprofitable customers or opportunities to reduce the churn rate.The major customer relationship management software packages integrate customer-related processes in sales, marketing, and customer service and provide capabilities for both operational CRM and analytical CRM.They often include modules for managing relationships with selling partners(partner relationship management)and for employee relationship management.If properly implemented, CRM systems help firms increase customer satisfaction, reduce direct marketing costs, and lower costs for customer acquisition and retention.Information from CRM systems can increase sales revenue by identifying the most profitable customers and segments for focused marketing, cross-selling, and up-selling.Customer churn can be reduced as sales, service, and marketing better respond to customer needs.10.Define and describe the major types of knowledge work systems and assess how they provide value for firms.Knowledge work systems(KWS)support the creation of new knowledge and its integration into the organization.KWS require easy access to an external knowledge base;powerful computer hardware that can support software with intensive graphics, analysis, document management, and communications capabilities;and a user-friendly interface.These capabilities can increase the productivity of highly paid knowledge workers.KWSs often run on workstations that are customized for the work they must perform.Computeraided design(CAD)systems and virtual reality systems, which create interactive simulations that behave like the real world, require graphics and powerful modeling capabilities.KWS for financial professionals provide access to external databases and the ability to analyze massive amounts of financial data very quickly.

第五篇：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）权限管理

主要是用户的等级和权限的划分。分３级管理员，超级用户、只读用户、普通用户，权限可以自定义添加和删除。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