下载文档原格式
机考操作流程一、登录“考试机”在接到考场管理机的控制命令后，将以全屏方式出现考生登录界面，如下图。
在考试期间不允许考生切换到其他界面。
考生登录界面右上角显示的是本机的机位号。
考生进场后，根据准考证上的机位号就座。
登录界面登录的步骤：1．点击输入学生证号。
输入学生证号，点击确定。
2．此时将在登录界面的左边出现与之对应的考生姓名、性别、准考证号、学号、考试科目等信息，考生须与准考证进行认真核对，无误后点击确定完成登录。
如果发现输入的号码有误，点击更改，重新输入。
登录后屏幕将停留在“考生须知”界面上，如下图。
考生在此等待准备答题。
考生须知界面注意：强烈推荐在出现登录界面前，关闭所有应用程序。
出现登录界面后禁止考生通过键盘的快捷键操作等方式开启任何应用程序。
否则由此引起的后果将由操作者自负。
考试机的屏幕从“考生须知”进入到答题部分，是由考场管理机来控制的。
因此，建议监考老师要等到在场的考生都进到“考生须知”的界面后，再操作管理机下达开始考试的控制命令。
二、答题接到考场管理机开考的控制命令后，考试机程序进入答题界面。
1．单选题与判断题答题操作直接在唯一正确的答案上点击，如果修改则直接点击对的选项，无须理会原来的选择。
2．多选题答题操作直接在正确的答案上进行勾选，如果修改则先勾选上对的选项，对于多选出来的，用鼠标去掉选项前的小勾即可。
3．填空选择题答题操作每个填空就是一个单选，填空选择题的操作相当于包含了多个单选题的操作。
首先认真阅读题面，然后用填空切换按钮，切换到要回答的填空上，直接在正确的答案上点击，如果修改则直接点击对的选项，无须理会原来的选择。
如此反复直到答完题面上全部的填空。
4．其他操作“上一题”按钮：将当前试题切换到比当前题号小1的试题上。
“下一题”按钮：将当前试题切换到比当前题号大1的试题上。
“作标记”按钮：在答题过程中对于没有把握的试题先做一个记号避免遗忘。
它不会对答题的结果产生任何影响。
注意：应提醒考生在答题过程中遇到不确定答案或存有疑问的试题时应使用“作标记”按钮，而不要在一道试题上使用过多的时间。
信息管理系统期末综合练习及答案信息管理系统（Information Management System，简称IMS）是指通过计算机技术来进行信息的存储、管理和传递的一种系统化的操作。
在现代社会中，信息管理系统已经在各行各业得到了广泛应用。
本文将对信息管理系统期末综合练习进行分析，并提供相应的答案。
一、综合练习题目1. 如何定义信息管理系统？2. 信息管理系统的主要功能有哪些？3. 什么是数据库管理系统（DBMS）？4. 数据库管理系统有哪些特点？5. 数据库中的实体与属性有何区别？6. 什么是数据模型？数据模型的作用是什么？7. 请简述关系数据库模型的基本概念。
8. 在关系数据库中，什么是关键字？9. 数据库的设计过程包括哪些步骤？10. 数据库系统的完整性约束有哪些类型？二、答案及分析1. 信息管理系统是指通过计算机技术实现信息存储、管理和传递的一种系统化操作。
它通过建立数据库并使用数据库管理系统对数据进行管理和处理，实现信息的高效利用和共享。
2. 信息管理系统的主要功能包括数据的收集、存储、查询、更新与删除、数据安全性管理、数据备份和恢复、数据共享与协作、以及数据分析与报告等。
3. 数据库管理系统（Database Management System，简称DBMS）是指用于管理数据库的软件系统。
它提供了对数据库的访问和操作接口，可以实现数据的增删改查、数据的完整性约束、并发控制、安全性保护等功能。
4. 数据库管理系统的特点包括：数据独立性、数据共享性、数据一致性、数据安全性、数据完整性、数据可扩展性、以及数据并发控制等。
5. 数据库中的实体是指客观世界中的一个个独立存在的事物，可以用来进行数据记录。
而属性是实体的特征或描述，用来描述实体的性质或特点。
6. 数据模型是对现实世界中的数据进行抽象和描述的一种模型。
它可以通过定义实体、属性以及实体与属性之间的关系来表示和描述数据。
数据模型的作用是帮助人们理解和组织数据，同时也为数据库的设计和实现提供了指导。
综合教务管理系统期末考试安排操作说明（学院版）第一步：考试管理—考试任务维护，选择考试名称，点击查询，鼠标右键点击左侧空白区域，选择“生成计划内考试任务”，出现“生成计划内考试任务”界面。
第二步：在“生成计划内考试任务”界面，设定相应条件，点击查询，在查询结果中选择要安排考试的课程，点击“生成考试任务”按钮，即可生成考试任务。
第三步：考试管理—考试任务维护，考试任务信息维护。
选择“考试名称”和“开课院系”，点击“查询”按钮，查询课程信息。
批量维护部分信息：选中所有（鼠标点击+Shift）课程信息，设定排考属性（统一排）、排考方式（考期集中安排）、考试方式（开卷、闭卷）、课堂拆分方式（实用原则）、选中“需要教室”，点击“批量设定”按钮。
如果特殊考堂需要指定时间，可以点击“批量指定时间”，弹出窗口选择考试周次、考试时间点，点击确定按钮。
第四步：手工调整排考结果—选择课程信息，选择所分配的教室和时间片，鼠标右键点击选择“安排在所选时间”，安排上课时间地点信息。
注意：如果提示考试安排有学生冲突，不可强制保存，应改用其它时间。
使用的注意事项：1、不要点击“选择教室”，否则某个学院的教室筛选会导致全校都只能看见筛选出来的教室。
2、“+”“—”是用来放大和缩小格子的大小的，可以使用。
3、小人图标是用来安排监考的，双击左边课程的具体考堂——点击小人图标——选择具体监考教师——确定。
如果安排监考错误，再重复以上步骤，选择新的监考教师即可。
第五步：智能排考—生成考试座位，选择“考试名称”，点击“查询”按钮，选中（鼠标+Shift）左侧所有课程，算法设定选择“随机号”，点击“批量生成”按钮。
第六步：根据考试要求，打印相关报表，组织考试。
主要包括《河北大学考场座次表》（两种）、监考教师安排表、考试安排表等。
《管理信息系统概论》期末考查说明一、注意事项二、考查题目一、注意事项1、考查范围：内容主要围绕期中布置的课外研读资料。
虽然内容因个人选择而有所不同，但考查的重点不在于你的内容是什么，而在于你的思考和表达。
2、考查题目：设置3小题，请按要求作答。
题目不必抄在试卷纸上，只需标注清楚题目序号即可。
3、纸张要求：必须使用“福建师大试卷纸”，请大家统一到学委处领取。
因学校提供的量有限，每人限领4张，丢损之类后果自负。
所以请注意事先打好草稿后再手写到纸上，字体大小和字数应有所控制。
试卷首页的个人信息应填写完整并装订好。
4、时间要求：请在实习培训结束前一天提交给学委，超时不侯。
届时学委也会提前通知。
5、其他：如有其他问题请及时电联学委或老师。
评分将在七月初进行。
（另外，部分同学补发来的实训作业均有收到、收到过个别同学研读的作业亦拜读了，待期末考查时会再留意一下你们试卷上的情况。
）二、考查题目根据期中时要求研读的与“管理信息系统”相关的资料（期刊论文，专著篇章等）的具体内容回答如下三个问题：（一）请简要说明一下你所研读资料的作者、出处等信息，该资料内容的核心思想是什么，它在文中又如何体现出来？（二）请你就文中提到的某一个或某些你较少接触的词组进行解释说明，如果没有新鲜的词组可解释的，那就请对文中某一个观点进行分析评论，特别是你有不同见解的观点。
（先说明是什么词组或观点，个人再进行解释说明或分析评论）（三）阅读这些资料后，还有哪些问题是自己尚未搞清楚的、在论文中又论述得不够透彻，需要以后有时间再认真拓展阅读的？请例举几个简单说明一下它们。
在这段时间，我本人对管理信息系统的应用研究比较感兴趣，除了阅读老实所给的关于应用研究的知识外，我主要学习了ERP软件操作的有关知识，其中了解得比较深入的是“总账”部分和“UFO报表”部分的具体操作过程。
参考书目有：一：付得一主编的《会计信息系统》第二版P39-P106；二：王新玲、汪刚主编的《会计信息系统实验教程》P24-P76；三：《浅析ERP与电子商务的整合》，成淼，无锡商业职业技术学院，江苏，214000；四：《论电子商务与企业管理信息系统的区别与联系》，王彤，大庆职业学院，大庆，163000。
协和学院期末考试题及答案一、选择题（每题2分，共20分）1. 计算机科学中，以下哪个选项不是数据结构的分类？A. 数组B. 栈C. 树D. 编译器答案：D2. 在经济学中，市场失灵是指什么？A. 市场无法达到最优资源配置B. 市场价格上涨C. 市场需求下降D. 市场供给过剩答案：A3. 根据牛顿第二定律，力和加速度的关系是什么？A. F = maB. F = mvC. F = m/vD. F = a/m答案：A4. 以下哪个不是生物多样性的组成部分？A. 物种多样性B. 基因多样性C. 生态系统多样性D. 地理多样性答案：D5. 以下哪个不是历史学研究的方法？A. 文献研究B. 考古发掘C. 口述历史D. 实验模拟答案：D6. 心理学中，弗洛伊德的哪个理论强调了潜意识对行为的影响？A. 行为主义B. 认知理论C. 精神分析理论D. 人本主义答案：C7. 在化学中，哪个元素的原子序数是1？A. 氢B. 氦C. 锂D. 铍答案：A8. 以下哪个不是现代企业管理的基本原则？A. 以人为本B. 利润最大化C. 持续创新D. 风险控制答案：B9. 在数学中，勾股定理适用于哪种几何形状？A. 三角形B. 四边形C. 圆D. 椭圆答案：A10. 以下哪个不是文学批评的常见方法？A. 形式主义批评B. 心理分析批评C. 社会历史批评D. 统计分析批评答案：D二、填空题（每空1分，共10分）1. 根据相对论，时间是相对的，这被称为________。
答案：时间膨胀2. 经济学中的边际效用递减法则指的是，随着消费者对某一商品的消费量增加，该商品的边际效用逐渐________。
答案：减少3. 在物理学中，能量守恒定律表明能量既不能被创造，也不能被________。
答案：消灭4. 心理学中的自我概念是指个体对自己的________、能力和特征的总和。
答案：认识5. 化学中的酸碱中和反应，其结果是生成________和水。
《管理信息系统》大作业及要求《管理信息系统》课程最大的特点是综合性强。
现对大作业的要求及教学过程说明如下：1、大作业名称:管理信息系统开发实例（2）学生在进行开发实践时，应结合具体的实例，将大作业的名称具体化，比如，学生以“人事管理系统开发”为实例进行实践，则大作业的名称应具体化为“人事管理系统开发实例”，以此类推。
3、内容及教学过程说明：（1）选题：当课堂教学进行到第5章“管理信息系统的总体规划”，或者全部完成后，可组织学生进行开发实例选题（根据具体情况，由教师灵活掌握）。
经教师确认后，学生着手开发实践。
（2）形式：大作业完成后，学生需要以电子“文档”的形式上交作业。
该文档是教材中所讲述的系统开发与设计资料，一般包括可行性分析报告（总体规划）；系统分析说明书、系统设计说明书等内容。
（3）对有条件的教学点，学生在完成上述文档的同时，应采用某种程序设计语言，对所设计系统的全部或部分功能进行编程实现。
4、对大作业的说明：当学生选题结束后，即可着手开发实践。
为了便于教师组织教学，考核学生，原则上将开发实践分为以下四个阶段。
（1）总体规划阶段(提交可行性分析报告)：要求学生按教材第5章的知识“勾画”出拟开发系统的蓝图，并最终以“系统可行性报告”的形式提交作业。
可行性报告是系统开发过程中的第一个正式文档，目前尚没有统一的编写格式，报告的内容通常由以下部分组成：①引言。
包括摘要：包括现行系统的名称、目标和功能等；背景：说明系统的用户、开发者，本系统与其他系统或机构的关系；参考资料：包括下达本系统可行性研究的文件、合同或批文；本报告引用的专门术语说明等；②现行系统调查与分析。
主要包括现行系统初步调查：包括组织机构层次、任务和范围；主要业务流程及对信息的需求；当前系统的工作量；当前系统运行的各项费用开支、人员和设备；已有计算机的配置、使用效率和存在的问题；现行系统存在的主要问题和薄弱环节；需求调查和分析：包括用户提出的和开发人员分析得出的需求；③新系统建设方案。
机考操作步骤：
注意：考试系统只支持IE7.0及以上版本
（1）打开考试系统
从中国地质大学（武汉）远程与继续教育学院主页左侧的服务专栏->期末考试中进入。
（2）登录考试系统
打开网上考试系统主页后，在"用户名"文本框中输入学生的学号，在密码框中输入密码（密码和登录远程教育管理平台的密码一致），在"系统"的下拉框中选择"学员期末考试系统"，点击"Enter"即可进入。
（3）开始考试
进入平台后，在左边"学生工作室"中有"大学英语考试"、"远程教育学习指南考试"和"机考成绩"三个按钮，点击左边相应课程后，再点击右边界面中课程后面红色的"开始考试"即可进入考试界面。
答题完成以后点击试卷最下面的"完成考试（提交试卷）"按钮就可以提交试卷。
（4）设置为考试卷
考试完成以后，在"操作"字段下选择其中的最满意的一次考试点击"置为考试卷"，如不设置系统默认最后一次考试试卷为"考试卷"。
青果系统考务子系统排考教程务必请细心操作，确认无误后再保存相关的内容。
第一步、确定需安排考试课程第一步、用承担系系秘书的身份进考务系统，在“基本信息”功能模块里“完成学期学年—设置现行考试轮次”：第二步、在【考试任务→确定需安排考试课程】功能模块，将相应课程确定需安排考试。
单击“检索”按钮，即可在左边列表中浏览现行考试轮次待安排考试课程→上课班级单击课程名称前的“复选框”选中本次末考试必须安排的课程：，单击“保存”按钮，即可保存相应设置：，确认这门课程为考试课程，此操作可一次选择多门课程，再点击保存。
可在选择这门已经确定的考试课程，单击“取消”，取消对这门课程的考试确定。
本系所有承担的出卷考试的课程，完成考试课程确定后，单击“返回”，进入下一流程。
第二步、确定考试安排任务第一步、在【考试任务 确定考试安排任务】功能模块，确定考试安排任务。
确定考试安排任务单击“检索”读出已经确认了的考试课程，在如下位置，完成对这门课程考试时间和场次的设置：单击“”，单击“保存”，完成对该课程的考试时间设置。
选中一门已经确认考试时间的课程，再次单击“”后，单击“保存”，则取消已经保存的内容，可重新设置。
设置时可通过一定的条件限制，如“未完全确定考试课程”“已完全确定考试课程”等条件对课程进行筛选。
单击“返回”，进入下一流程。
第三步、辅助安排考试时间/地点由课程承担系系秘书，在[主控界面→考试事务→考试安排→辅助安排考试时间/地点]功能模块，逐一安排承担课程的考试时间/地点。
在左上部列表中，双击选定某一未排考课程/批次，即可在左下部列表中浏览相应的上课班级/行政班级，在右上部列表中浏览相应的可排考时间(即选定课程/批次所有考试学生在某一考试时间范围之内的空闲日期/场次)。
单击“确定时间”按钮，即可确定考试时间。
便完成一科考试的时间安排可通过进行排考规则的设置。
单击“安排考场”按钮，即可弹出“安排考场”窗体。
通过最上方的单选框来选择表达方式，根据自己的习惯和需要选择课程的显示凡是。
教务管理系统可以模仿人事管理系统这块来做，很多相似的（里面有登录界面、输入界面、查询界面、打印界面、帮助界面）Form1 intbel3.visible=.f.bel4.visible=.f.Label2 click(学生宿舍)bel3.visible=.t.bel2.visible=.f.Label3 click(学生食堂)bel3.visible=.f.bel4.visible=.t.Label4 click(学生教室)bel2.visible=.t.bel4.visible=.f.Form1 intPUBLIC nCount,flagnCount=0flag=.f.Command1（登录）select passwordedscanif alltrim(thisform.text2.value)=alltrim(密码)wait "密码正确,正在加载系统,请等侯!" windows timeout 2 flag=.t.* do form mainthisform.releaseendifENDSCANif eof() and not flagmessageBOX("密码输入错误"+alltrim(str(nCount+1))+"次！",64,"密码信息框")nCount=nCount+1if nCount>=3thisform.setall("enabled",.f.,"commandbutton")wait "由于错误次数太多，系统即将于3秒后退出，再见!" windows timeout 3 thisform.releaseendifTHISFORM.TEXT1.VALUE=""THISFORM.TEXT1.SETFOCUSendifCommand2 (取消)Thisform.release或者cmessagetitle='系统登录'cmessagetext='真的想要退出吗？'nDialogtype=4+32nanswer=messagebox(cMessagetext,nDialogtype,cMessagetitle)do casecase nanswer=6 &&选择"是"时的操作thisform.release &&释放表单case nanswer=7 &&选择"否"时不做任何操作endcase这一部分老师没给代码添加保存取消那有一块还没做好Form1 intpublic cxcx=0thisform.pageframe1.page1.text1.value=tabgys.供应商编号thisform.pageframe1.page1.text2.value=tabgys.简称thisform.pageframe1.page1.text3.value=tabgys.供应商全称thisform.pageframe1.page1.text4.value=tabgys.所属地区thisform.pageframe1.page1.text5.value=tabgys.地址thisform.pageframe1.page1.text6.value=tabgys.邮政编码thisform.pageframe1.page1.text7.value=tabgys.电话thisform.pageframe1.page1.text8.value=tabgys.传真thisform.pageframe1.page1.text9.value=tabgys.联系人thisform.pageframe1.page1.text10.value=tabgys.联系人电话thisform.pageframe1.page1.text11.value=tabgys.开户银行thisform.pageframe1.page1.text12.value=tabgys.银行帐号thisform.pageframe1.page1.text13.value=tabgys.纳税人登记thisform.pageframe1.page1.text14.value=tabgys.邮箱网址查询cx=0set exact offcif=alltrim(bo1.displayvalue)ccif=alltrim(bo2.displayvalue)ctext=alltrim(thisform.text1.value)if empty(ccif)messagebox('请输入查询条件！',48,'操作失败！')bo2.setfocuselseif empty(ctext)messagebox('请输入查询条件！',48,'操作失败！')thisform.text1.setfocuselseset exact onif ccif='='select *;from tabgys;where &cif.==alltrim(thisform.text1.value);order by tabgys.供应商编号;into cursor lindepingendifset exact offif ccif='<'select *;from tabgys;where &cif.< alltrim(thisform.text1.value)+"*";order by tabgys.供应商编号;into cursor lindepingendifset exact offif ccif='>'select *;from tabgys;where &cif.>alltrim(thisform.text1.value)+"*";order by tabgys.供应商编号;into cursor lindepingendifif ccif='like'select *;from tabgys;where alltrim(thisform.text1.value)$&cif.;order by tabgys.供应商编号;into cursor lindepingendifgo topif eof()go bottommessagebox('供应商不存在',48,'信息窗口')thisform.pageframe1.page2.grid1.recordsource='lindeping'mand1.enabled=.f.mand2.enabled=.f.mand3.enabled=.f.mand4.enabled=.f.mandgroup1.cmodify.enabled=.f.mandgroup1.cdel.enabled=.f.cx=1elsethisform.pageframe1.page2.grid1.recordsource='lindeping'lgysnumber=lindeping.供应商编号select tabgysset order to 供应商编号seek lgysnumberthisform.init &&调用表单的INIT事件l=.f.thisform.resize &&调用表单的Resize事件thisform.refreshendifendifendif第一条if cx=1go topmand1.enabled=.f.mand2.enabled=.f.mand3.enabled=.f.mand4.enabled=.f.mandgroup1.cmodify.enabled=.f.mandgroup1.cdel.enabled=.f.elsego topmand1.enabled=.f.mand2.enabled=.f.mand3.enabled=.t.mand4.enabled=.t.endifthisform.initthisform.refresh上一条if cx=1messagebox('已是第一个记录',48,'信息窗口')mand1.enabled=.f.mand2.enabled=.f.mand3.enabled=.f.mand4.enabled=.f.mandgroup1.cmodify.enabled=.f.mandgroup1.cdel.enabled=.f.thisform.initelseskip-1thisform.initif bof()messagebox('已是第一个记录',48,'信息窗口')mand1.enabled=.f.mand2.enabled=.f.thisform.initelsemand1.enabled=.t.mand2.enabled=.t.endifmand3.enabled=.t.mand4.enabled=.t.endifthisform.refresh下一条if eof()messagebox('已经是最后一条记录',48,'管理窗口')skip-1thisform.initmand3.enabled=.f.mand4.enabled=.f.mand1.enabled=.f.mand2.enabled=.f.mandgroup1.cmodify.enabled=.f.mandgroup1.cdel.enabled=.f.elseskipthisform.initif eof()messagebox('已经是最后一条记录',48,'管理窗口')skip-1thisform.initmand3.enabled=.f.mand4.enabled=.f.elsemand3.enabled=.t.mand4.enabled=.t.endifmand1.enabled=.t.mand2.enabled=.t.endifthisform.refresh最后一条if cx=1go bottommand3.enabled=.f.mand4.enabled=.f.mand1.enabled=.f.mand2.enabled=.f.mandgroup1.cmodify.enabled=.f.mandgroup1.cdel.enabled=.f.elsego bottommand3.enabled=.f.mand4.enabled=.f.mand1.enabled=.t.mand2.enabled=.t.endifthisform.initthisform.refresh添加thisform.pageframe1.page1.text1.enabled=.f.l=.t.thisform.resize*自动编号select tabgysif empty(供应商编号)thisform.pageframe1.page1.text1.value=alltrim('GYS00001')elseselect max(供应商编号) from tabgys into array a &&查找数据表最大的供应商编号存入数组cend=val(substr(a(1),4))+1thisform.pageframe1.page1.text1.value=alltrim('GYS'+padl(alltrim(str(cend,5)),5,'0')) endifstore '' tothisform.pageframe1.page1.text2.value,thisform.pageframe1.page1.text3.value,thisform.pagef rame1.page1.text4.value,;thisform.pageframe1.page1.text5.value,thisform.pageframe1.page1.text6.value,thisform.pagef rame1.page1.text7.value,;thisform.pageframe1.page1.text8.value,thisform.pageframe1.page1.text9.value,thisform.pagef rame1.page1.text10.value,;thisform.pageframe1.page1.text11.value,thisform.pageframe1.page1.text12.value,thisform.pag eframe1.page1.text13.value,;thisform.pageframe1.page1.text14.valuethisform.pageframe1.page1.text2.setfocusmandgroup1.cmodify.enabled=.f.mandgroup1.cdel.enabled=.f.mandgroup1.cexit.enabled=.t.ancel.enabled=.t.mandgroup1.csave.enabled=.t.mandgroup1.cadd.enabled=.f.thisform.pageframe1.page2.enabled=.f.mand1.enabled=.f.mand2.enabled=.f.mand3.enabled=.f.mand4.enabled=.f.mand1.enabled=.f.保存gysnumber=alltrim(thisform.pageframe1.page1.text1.value) jiancheng=alltrim(thisform.pageframe1.page1.text2.value) gysname=alltrim(thisform.pageframe1.page1.text3.value)area=alltrim(thisform.pageframe1.page1.text4.value)dizhi=alltrim(thisform.pageframe1.page1.text5.value)yzbm=alltrim(thisform.pageframe1.page1.text6.value)tel=alltrim(thisform.pageframe1.page1.text7.value)fax=alltrim(thisform.pageframe1.page1.text8.value)people=alltrim(thisform.pageframe1.page1.text9.value)mantel=alltrim(thisform.pageframe1.page1.text10.value) gysbank=alltrim(thisform.pageframe1.page1.text11.value) bankno=alltrim(thisform.pageframe1.page1.text12.value)nsrdj=alltrim(thisform.pageframe1.page1.text13.value)email=alltrim(thisform.pageframe1.page1.text14.value) cmessagetitle='供应商管理系统'cmessagetext='确定要保存吗？'ndialogtype=4+32nAnswer=messagebox(cmessagetext,ndialogtype,cmessagetitle) do casecase nAnswer=6if empty(gysnumber)=.t.messagebox('供应商编号不能为空',48,'操作失败！')thisform.pageframe1.page1.text1.value=tabgys.供应商编号thisform.pageframe1.page1.text2.value=tabgys.简称thisform.pageframe1.page1.text3.value=tabgys.供应商全称thisform.pageframe1.page1.text4.value=tabgys.所属地区thisform.pageframe1.page1.text5.value=tabgys.地址thisform.pageframe1.page1.text6.value=tabgys.邮政编码thisform.pageframe1.page1.text7.value=tabgys.电话thisform.pageframe1.page1.text8.value=tabgys.传真thisform.pageframe1.page1.text9.value=tabgys.联系人thisform.pageframe1.page1.text10.value=tabgys.联系人电话thisform.pageframe1.page1.text11.value=tabgys.开户银行thisform.pageframe1.page1.text12.value=tabgys.银行帐号thisform.pageframe1.page1.text13.value=tabgys.纳税人登记thisform.pageframe1.page1.text14.value=tabgys.邮箱网址thisform.refreshelseset order to 供应商编号seek gysnumberif!found()insert into tabgysvalues(gysnumber,gysname,jiancheng,dizhi,area,yzbm,tel,fax,people,mantel,gysbank,bankno,n srdj,email)messagebox('数据保存完毕',48,'操作成功！')thisform.refreshelsecmessagetitle='供应商管理系统'cmessagetext='供应商已经存在，要修改吗？'ndialogtype=4+32nAnswer=messagebox(cmessagetext,ndialogtype,cmessagetitle)do casecase nAnswer=6update tabgys set 供应商全称=gysname,简称=jiancheng,地址=dizhi,所属地区=area,邮政编码=yzbm,电话=tel,传真=fax,联系人=people,联系人电话=mantel,开户银行=gysbank,银行帐号=bankno,纳税人登记=nsrdj,邮箱网址=email where 供应商编号=gysnumbermessagebox('数据修改完毕',48,'操作成功！')thisform.refreshcase nanswer=7thisform.initthisform.refreshendcaseendifendifl=.f.thisform.resizethisform.pageframe1.page1.text1.setfocusendcasemandgroup1.cmodify.enabled=.t.mandgroup1.cdel.enabled=.t.mandgroup1.cexit.enabled=.t.ancel.enabled=.f.mandgroup1.csave.enabled=.f.mandgroup1.cadd.enabled=.t.thisform.pageframe1.page2.enabled=.t.mand1.enabled=.t.mand2.enabled=.t.mand3.enabled=.t.mand4.enabled=.t. mand1.enabled=.t.取消thisform.initl=.f.thisform.resizethisform.pageframe1.page1.text1.setfocus mandgroup1.cmodify.enabled=.t. mandgroup1.cdel.enabled=.t. mandgroup1.cexit.enabled=.t. ancel.enabled=.f. mandgroup1.csave.enabled=.f. mandgroup1.cadd.enabled=.t. thisform.pageframe1.page2.enabled=.t. mand1.enabled=.t. mand2.enabled=.t. mand3.enabled=.t. mand4.enabled=.t. mand1.enabled=.t.修改thisform.pageframe1.page1.text1.enabled=.f.l=.t.thisform.resizethisform.refreshmandgroup1.cmodify.enabled=.f. mandgroup1.cdel.enabled=.f. mandgroup1.cexit.enabled=.t. ancel.enabled=.t. mandgroup1.csave.enabled=.t. mandgroup1.cadd.enabled=.f. thisform.pageframe1.page2.enabled=.f. mand1.enabled=.t. mand2.enabled=.t. mand3.enabled=.t. mand4.enabled=.t. mand1.enabled=.f.删除gysnumber=alltrim(thisform.pageframe1.page1.text1.value) cmessagetitle='供应商管理系统'cmessagetext='确定要删除吗？'ndialogtype=4+32nAnswer=messagebox(cmessagetext,ndialogtype,cmessagetitle) do case*选择"是"操作case nAnswer=6set order to 供应商编号seek gysnumberuse database/tabgys exclusivedele from tabgys where 供应商编号=gysnumberdele from tabgys where empty(供应商编号)packthisform.initthisform.pageframe1.page2.grid1.recordsource='tabgys'messagebox('删除完毕',48,'操作成功！')thisform.refreshendcase退出cmessagetitle='供应商管理'cmessagetext='真的想要退出吗？'nDialogtype=4+32nanswer=messagebox(cMessagetext,nDialogtype,cMessagetitle) do casecase nanswer=6thisform.releasecase nanswer=7endcaseGrid1 表格的属性Recordsource 4-SQl说明command1 click（查询）go toplocate for sc.学号=alltrim(thisform.text1.value)thisform.grid1.recordsource="select sc.学号,sc.课程号,sc.成绩,sc.备注 from sc where sc.学号=alltrim(thisform.text1.value);into cursor temp"退出Thisform.release汽车库存销售系统教务管理系统主程序Mainset safe offset stat offset dele on set cent onset exact onset date to ansiclose allclear screenRELEASE WINDOW 常用&&关闭常用工具栏do form login.scxdo caidan.mprread eventsquitform1 intpublic nCount,flagnCount=0flag=.f.确定select tblpasswordscanif alltrim(thisform.text1.value)=alltrim(密码)wait "密码正确,正在加载系统,请等侯!" windows timeout 2flag=.t.do form mainthisform.releaseendifENDSCANif eof() and not flagmessageBOX("密码输入错误"+alltrim(str(nCount+1))+"次！",64,"密码信息框") nCount=nCount+1if nCount>=3thisform.setall("enabled",.f.,"commandbutton")wait "由于错误次数太多，系统即将于3秒后退出，再见!" windows timeout 3 thisform.releaseendifTHISFORM.TEXT1.VALUE=""THISFORM.TEXT1.SETFOCUSEndif退出THISFORM.RELEASEclear events开始输入scatter to aTEMPcLASTID=编号if this.caption="开始输入"this.caption="确认输入"thisform.setall("readonly",.f.,"TextBox")append blankgather from atempreplace 编号with alltrim(str(val(cLASTID)+1))replace 姓名with ""* thisform.refreshelseYN=messagebox("是否确认输入此条记录的信息？",4+32,"提示信息") if YN=7 &&用户放弃输入set delete ondeleteskip -1thisform.refreshendifthis.caption="开始输入"thisform.setall("readonly",.t.,"TextBox")endifthisform.refresh退出Thisform.release//输入界面做到这里为止//查询模块Form1 Activatethisform.grid1.recordsourcetype=4thisform.grid1.recordsource="select department.部门编号,部门名称,编号,姓名,性别,职称,学历,专业,籍贯,出生日期,工作时间;from teacher,department where teacher.部门编号=department.部门编号order by 1 into cursor temp"thisform.grid1.column2.width=60Form1 ActivateQueryunloaded*** Begin form mediator object code ***DO CASECASE NOT DODEFAULT()NODEFAULTRETURN .F.CASE ( TYPE("THIS.app_mediator.BaseClass")="C" ) AND ; ( NOT THIS.app_mediator.QueryUnload() )NODEFAULTRETURN .F.OTHERWISE* continueENDCASE*** End form mediator object code ***Combo1 clickthisform.grid1.recordsourcetype=4thisform.grid1.recordsource="select department.部门编号,部门名称,编号,姓名,性别,职称,学历,专业,籍贯,出生日期,工作时间;from teacher,department where teacher.部门编号=department.部门编号and 部门名称=alltrim(this.displayvalue) order by 1 into cursor temp"Combo2 clickcSEX=alltrim(bo2.displayvalue)thisform.grid1.recordsource="select department.部门编号,部门名称,编号,姓名,性别,职称,学历,专业,籍贯,出生日期,工作时间;from teacher,department where teacher.部门编号=department.部门编号and 性别=cSEX order by 2 into cursor temp"Combo3 clickdo casecase this.value=1thisform.grid1.recordsourcetype=4thisform.grid1.recordsourcetype=4thisform.grid1.recordsource="select department.部门编号,部门名称,编号,姓名,性别,year(date())-year(出生日期) as 年龄,职称,学历,专业,籍贯,出生日期,工作时间;from teacher,department where teacher.部门编号=department.部门编号and year(date())-year(出生日期)<35order by 6 into cursor temp"case this.value=2thisform.grid1.recordsourcetype=4thisform.grid1.recordsource="select department.部门编号,部门名称,编号,姓名,性别,year(date())-year(出生日期) as 年龄,职称,学历,专业,籍贯,出生日期,工作时间;from teacher,department where teacher.部门编号=department.部门编号and year(date())-year(出生日期)>35order by 6 into cursor temp"case this.value=3thisform.grid1.recordsourcetype=4thisform.grid1.recordsource="select department.部门编号,部门名称,编号,姓名,性别,year(date())-year(出生日期) as 年龄,职称,学历,专业,籍贯,出生日期,工作时间;from teacher,department where teacher.部门编号=department.部门编号and year(date())-year(出生日期)>50order by 6 into cursor temp"endcaseCombo4 clickthisform.grid1.recordsourcetype=4thisform.grid1.recordsource="select department.部门编号,部门名称,编号,姓名,性别,职称,学历,专业,籍贯,出生日期,工作时间;from teacher,department where teacher.部门编号=department.部门编号and 职称=alltrim(this.displayvalue) order by 1 into cursor temp"Combo5clickthisform.grid1.recordsourcetype=4thisform.grid1.recordsource="select department.部门编号,部门名称,编号,姓名,性别,职称,学历,专业,籍贯,出生日期,工作时间;from teacher,department where teacher.部门编号=department.部门编号and 学历=alltrim(this.displayvalue) order by 1 into cursor temp"Combo6 clickthisform.grid1.recordsourcetype=4thisform.grid1.recordsource="select department.部门编号,部门名称,编号,姓名,性别,职称,学历,专业,籍贯,出生日期,工作时间;from teacher,department where teacher.部门编号=department.部门编号and 专业=alltrim(this.displayvalue) order by 1 into cursor temp"（combo1。
