《大作业学校管理系统.pdf》由会员分享，可在线阅读，更多相关《大作业学校管理系统.pdf（23页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、课程大作业课程大作业-学校管理信息系统学校管理信息系统 MISOSMISOS(Management Information System Of School)(Management Information System Of School)前言前言在现代化的今天，计算机应用已普及到人类生活和工作的各个方面。随着各种信息交流量的急剧增加，信息作为人类社会三大资源之一，将会得到广泛应用。学校作为一个信息不断流动且信息业务广泛的单位，其自身的工作量极大，由于传统的工作方式而带来的种种不便，使得工作人员频繁奔波在各个部门之间，每天都是重复性的工作，其效率极低。因此，有必要建立起一套与之工作方式相适应的
2、管理系统，尽可能的利用计算机替代原始的重复性的手工管理工作。本系统就是在这样的情况下产生的。由于学校管理信息系统是一个庞大的系统工程，本人能力有限，只能将其部分功能展示出来，因而本系统是 MISOS 的测试版。如在使用中给您带来不便请谅解！系统分析与设计系统分析与设计1.1.问题提出问题提出随着信息化社会的到来，一场信息的革命已经开始，人们越来越感到信息化的到来给我们带来的不止是一件新鲜的事物，而是的的确确给我们的工作和生活所带来的改变。(1)学生信息网络化如今，实现网上录取，不论是北大、清华，还是天大、南大，都已实现了网上录取。这样一来，传统的流程便显得有些多余，学生一旦被录取，学校便发送录
3、取通知书，并同时完成存档。如此一来，学校如果有一套系统，便可在存档的同时将学生的部分情况存入学生管理系统的数据库，同时发送录取通知书，一举两得。(2)人工统计的失误较多依目前的工作方式来计算、统计，需要大量的工作人员进行一次次反复重复的计算，当然会耗费大量人力、物力，这样自然提高了管理的成本。与此同时，还会有大量数据需要不断重复的添加，修改，删除，也会造成数量统计上的不准确。因此，不能跟上整个工作的运行速度，也不能及时搜索所需要的数据，更不能实时的提供准确，详实的数据以供参考与分析。(3)计算不准确这尤其体现在财务方面。其实在统计，分析等工作中也有这样的问题。2.2.系统目标设计系统目标设计学
4、校管理系统可以用于业务管理，学生管理，信息服务等方面的工作，有如下3个方面的目标。支持学校实现规范化的管理。支持学校高效率完成业务管理中的人事、财务、传统办公等工作，还可以完成学生管理中的新生注册、学籍管理、成绩管理、教学计划等方面的工作，同时支持 Internet 等新业务。支持企业进行相关方面的科学决策，分析统计。3.3.开发设计思想开发设计思想本系统开发设计思想有以下几点。本系统开发设计思想有以下几点。尽量采用现有软硬件资源，进行资源整合，提高软硬件的利用律。同时加以先进的管理运行方案，从而达到充分利用公司现有资源，提高系统开发水平和应用效果的目的。系统应符合学校管理的规定，满足公司日常
5、工资管理工作需要，并达到操作过程中的直观、方便、实用、安全等要求。系统采用 C/S 体系结构。Client（客户端）负责提供表达逻辑、显示用户界面信息访问数据库服务器；Server（服务器端）则用于提供数据服务。系统分析等前期工作应尽量详细完善，以便应付以后的变化。对于一些安全性要求不高的信息和一些必要的信息可以方便地采用 Brower/Server 的方式进行发布与访问。系统采用模块化程序设计方法，既便于系统功能的各种组合和修改，又便于未参与开发的技术维护人员补充、维护。系统应具备数据库维护功能，及时根据用户需求进行数据的添加、删除、修改、备份等操作。4.4.开发和运行环境选择开发和运行环境
6、选择操作系统采用 Microsoft WindowsNT/2000。同时采用 Microsoft SQLServer2000 数据库管理系统做后台数据处理使用，前端采用 PowerBuilder8.0Enterprise 作为应用开发工具。客户端软件在Windows98、Windows ME 以及Windows2000 下均可安装使用。Microsoft SQL Server2000 是一种大型数据库应用软件，其具有简单易操作，使用广泛，尤其是中小型企事业单位。特别是它与 Windows OS 良好的兼容性，使其具有其他同类数据库软件所不可比拟的优势。另外它的成本较低，很适于学校这样的非企业单
7、位。和 Microsoft SQL Server2000 相比，PowerBuilder8.0 有着其专业数据库开发工具的优势。其面向对象、开发效率高、维护性好等优点特别适合开发数据库应用系统。系统需求：1）硬件资源：服务器端：P4 Server(或高级 PC 机)配置：P4 CPU,512M Memory,RAID DISK,网卡等；客户端：普通 PC,要有网卡；其它要求：集线器（HUB），网线等；2）软件资源：服务器端：Windows2000 Server/Advanced；客户端：Windows98/ME/NT/2000 均可；5.5.系统功能分析系统功能分析(1)(1)新生注册：将学生
8、信息录入表中,分配每位新生一个学号,这个学号是这个学生在校期间的唯一标识。(2)(2)教学计划：在开学前，各部系要将新学期的教学计划提交教务处。其中包括：班级设定、课程设定、排课、（它决定着教师的安排，教室的安排，教师的工资结算等众多问题）。(3)(3)学籍管理：在学校管理系统中，尤为重要的一项工作就是学籍管理。其中对学生的奖惩，学籍变动，考试等许多方面起重要的作用。(4)(4)统计、查询、打印：在系统使用过程中，准确详实的统计分析会给相关部门提供有价值的信息，在需要的时候，不仅可以迅速查到所需内容，更能及时打印出来，既方便有快捷。6.6.用户权限用户权限对于访问此系统的用户主要分为三类：第一
9、类：匿名用户（guest）。此类用户只具有查询检索的功能，可通过指定机器进行操作或通过 Internet 进行浏览。第二类：管理人员（Manager）。管理人员是指教务处，学生处等管理部门的工作人员。他们必须在系统管理员的权限指派下方能进行管理。其基本具有增、删、改、查的功能。他们不具备给予其他人员权限的权利。第三类：系统管理员（System Manager）此用户具有最高的权限，可对整个数据库进行操作。7.7.软件系统功能模块设计（软件系统功能模块设计（HIPOHIPO 图及每一个模块的作用）图及每一个模块的作用）HIPO 图：在系统功能分析的基础上，考虑 PowerBuilder 程序编制
10、的特点，得到如下图所示的功能模块图。学校管理信息系统系统学生业务信维护管理管理息1.02.03.0服务查询打印日常学籍统计教师工资1.1管理管理人数管理管理2.12.23.13.2比例2.3新生教学注册计划2.1.12.1.2由课由学程录生录班 级 设课程排课定入入2.1.2.3设定2.1.2.12.2.12.2.22.1.2.2各功能模块的作用（1）（1）新生注册：将学生信息录入表中,分配每位新生一个学号,这个学号是这个学生在校期间的唯一标识。录入学生个人情况。（2）（2）班级设定：在教学计划和招生中起重要作用的一项功能。录入设定的班级。（3）（3）课程设定：与班级设定一样，是为教学计划和招
11、生服务的。录入设定的课程。（4）（4）排课：这是教学计划中最为关键的一项工作，它决定着教师的安排，教室的安排，教师的工资结算等众多问题。安排课程、班级与教师。（5）（5）学籍管理：在学校管理系统中，尤为重要的一项工作就是学籍管理。其中对学生的奖惩，学籍变动，考试等许多方面起重要的作用。尤其是成绩管理，这里使用的是由课程录入（即统一阅卷时的成绩录入）和学生录入（即由个人录入本人的各课成绩）（6）（6）统计人数比例：在系统使用过程中，准确详实的统计出各班人数比例情况。（7）（7）查询打印：可对学生、课程、班级等进行查询打印。（8）（8）教师管理：录入教师个人情况。（9）（9）工资管理：对本系统中的
12、教师的工资进行管理，按科学算法进行工资发放，并对其进行实时有效的监督和管理。数据库设计数据库设计实体联系图实体联系图,说明每个实体的作用。说明每个实体的作用。教师班级有教学生课程学习教师、学生、班级、课程实体关系模型图数据库逻辑结构设计数据库逻辑结构设计为了实现该管理系统各个模块的功能，首先应对各种数据进行系统的、有序的归类和整理。在此，建立一个名为 MISOS 的数据库，在该库中主要包括以下几个表:(1)学生表（student）表所记录的为所有学生的详细信息，在新生注册时，可在此表加入新的记录，也可根据此表查询有关学生的相关资料。其结构如下标题名称列名数据类型精度可否为空主关键字学号SidS
13、idIntegerInteger4 4是是学生姓名SnameSnamecharchar1010性别SexSexCharChar2 2出生年月BirthdayBirthdayDateDate入学时间IndateIndateDateDate毕业时间OutdateOutdateDateDate班号CpidCpidvarcharvarchar1010住址AddressAddressvarcharvarchar5050邮政编码Zip codeZip codecharchar6 6联系电话TeltphoneTeltphonecharchar1515备注MemoMemoVarchatVarchat5050(
14、2)教师表（teacher）表所记录的为所有教师的详细信息，可在此表加入新的教师记录，也可根据此表查询有关教师的相关资料。其结构如下标题名称列名数据类型精度可否为空主关键字教师编号TidTidIntegerInteger4 4是是教师姓名TnameTnamecharchar1010性别SexSexCharChar2 2出生年月BirthdayBirthdayDateDate工作时间IndateIndateDateDate工作等级WorkrateWorkrateUnsignedUnsignedsmallintsmallint所属部系Grade/departmentGrade/department
15、varcharvarchar3030住址AddressAddressvarcharvarchar5050邮政编码备注MemoMemoVarchatVarchat5050(2)教师表（teacher）表所记录的为所有教师的详细信息，可在此表加入新的教师记录，也可根据此表查询有关教师的相关资料。其结构如下标题名称列名数据类型精度可否为空主关键字教师编号TidTidIntegerInteger4 4是是教师姓名TnameTnamecharchar1010性别SexSexCharChar2 2出生年月BirthdayBirthdayDateDate工作时间IndateIndateDateDate工作等
16、级WorkrateWorkrateUnsignedUnsignedsmallintsmallint所属部系Grade/departmentGrade/departmentvarcharvarchar3030住址AddressAddressvarcharvarchar5050邮政编码5050 成绩表（report1）:其表记录关于某学生某门课程的成绩，可利用它进行成绩录入，成绩查询等工作。标题名称学号课程号成绩列名SidSidcidcidScoreScore摘要AbstractAbstract5050 排课表(report2)其表记录关于某门课程在某个学期由那个教师教那个班多少学时。可利用它进行
17、排课，还可以对教师工资进行计算等内容。标题名称列名数据类型精度可否为空主关键字主关键字课程编号cidcidintegerinteger是是班号CpidCpidcharchar1010是是学期TermTermUnsignedUnsignedsmallintsmallint学时HoursHoursUnsignedUnsignedsmallintsmallint教师编号TidTidIntegerInteger是是备注MemoMemoVarchatVarchat5050物理数据库设计物理数据库设计根据以上的根据以上的 E-RE-R 图设计如下的数据库物理结构图设计如下的数据库物理结构数据类型Integ
18、erIntegerIntegerIntegerUnsignedUnsignedsmallintsmallintVarcharVarchar精度4 44 4可否为空主关键字主关键字是是是是应用程序对象、登录窗口、主窗口、菜单的设计和相应脚本应用程序对象、登录窗口、主窗口、菜单的设计和相应脚本一、应用程序的创建一、应用程序的创建1.创建工作空间:misos.pbw2.创建应用程序：misos.pblopen 事件脚本：application-script/*Event:Open 打开事件 *Function:初始化 *Author:J.R.Wang *Create date:2002/12/12
19、*/为事务对象 SQLCA 赋值/为事务对象 SQLCA 赋值SQLCA.DBMS=ODBC/为事务对象 SQLCA 赋值SQLCA.AutoCommit=False/程序通过提交语句（COMHIT）提交事务SQLCA.DBParm=Connectstring=DSN=misos/与数据库管理系统相关的一组连接参数connect using sqlca;/通过事务对象将应用程序与数据库建立连接/测试数据库连接是否操作成功，若失败则显示错误信息if sqlca.sqlcode0 then Messagebox(错 误 警 告,不 能 连 接 数 据 库,错 误 是+sqlca.sqlerrtex
20、t,stopsign!)returnend ifopen(w_info_miso)二、登录窗口的设计二、登录窗口的设计1.进入系统界面2.登录窗口图示3.登录窗口主要控件掩码编辑器（em_1），单行编辑框(sle_1)，静态文本框(st_3)，以及控制按钮(cb)。4.登录窗口主要脚本/*Event:Open 打开事件 *Function:初始化 *Author:J.R.Wang *Create date:2002/12/12 */cb_1.Enabled=Falseem_1.SetFocus()/*Event:EnterKey 事件 *Function:输入用户帐号 *Author:J.R.
21、Wang *Create date:2002/12/12 */integer code/如果用户按回车键或 Tab 键则验证用户密码if keydown(KeyEnter!)or keydown(KeyTab!)THENcode=integer(em_1.text)/将用户输入的用户帐号赋予 codeif code12345 thenst_3.Text=警告信息:用户帐号有误,请重新输入st_3.TextColor=rgb(255,0,0)/红色em_1.Text=em_1.SetFocus()else st_3.Text=请输入密码 st_3.TextColor=rgb(0,255,255)
22、/粉蓝色 sle_1.Enabled=TRUE sle_1.BackColor=rgb(255,255,255)sle_1.Text=sle_1.SetFocus()em_1.Enabled=Falseend ifend if/*Event:EnterKey 事件 *Function:输入用户密码 *Author:J.R.Wang *Create date:2002/12/12 */string mm/如果用户按回车键或 Tab 键则验证用户密码if keydown(KeyEnter!)or keydown(KeyTab!)THENmm=string(sle_1.text)/将用户输入的用户帐
23、号赋予 codeif mmadmin thenst_3.Text=警告信息:用户密码有误,请重新输入st_3.TextColor=rgb(255,0,0)/红色sle_1.Text=sle_1.SetFocus()else st_3.Text=请单击 Enter 键登录 st_3.TextColor=rgb(0,255,255)/粉蓝色 cb_1.Enabled=TRUE cb_1.SetFocus()sle_1.Enabled=Falseend ifend if/*Event:EnterKey 事件 *(同时兼有 Clicked 点击事件)*Function:登录系统 *Author:J.R
24、.Wang *Create date:2002/12/12*/open(w_main)close(w_login)/*Event:Enterkey 事件 *(同时兼有 Clicked 点击事件)*Function:关闭登录窗口 *Author:J.R.Wang *Create date:2002/12/12 */close(parent)messagebox(提示,已经退出系统了,none!)三、应用程序主窗口三、应用程序主窗口1.运行界面图示及属性设置四、主菜单设计四、主菜单设计1.菜单的结构图2.介绍各个菜单的脚本“退出”菜单下“退出系统”子菜单项的 Clicked 事件脚本为Close(
25、ParentWindow)Close(ParentWindow)messagebox(提示,已经退出系统了,none!)/其功能是关闭主窗口 w_main五、具体脚本五、具体脚本依次介绍：依次介绍：新生注册新生注册(班级设定、课程设定与排课的脚本与其雷同故省略班级设定、课程设定与排课的脚本与其雷同故省略)w_edit_studentw_edit_studentw_edit_student-scriptw_edit_student-script/*/*Event:Open*Event:Open 打开事件打开事件 *Function:*Function:初始化窗口及其控件初始化窗口及其控件 *Au
26、thor:J.R.Wang*Author:J.R.Wang *Create date:2002/12/12*Create date:2002/12/12 */*/说明变量说明变量longlongrsmrsmstring xq,hhstring xq,hh/初始化控件和数据窗口初始化控件和数据窗口dw_1.ShareData(dw_2)/dw_1.ShareData(dw_2)/两个数据窗口控件共享两个数据窗口控件共享 DatawindowsDatawindowsdw_1.SetTransObject(sqlca)/dw_1.SetTransObject(sqlca)/为数据窗口为数据窗口dw_
27、1dw_1指定事务对象指定事务对象SQLCASQLCAdw_2.SetTransObject(sqlca)/dw_2.SetTransObject(sqlca)/为数据窗口为数据窗口dw_2dw_2指定事务对象指定事务对象SQLCASQLCArsm=dw_1.retrieve()/rsm=dw_1.retrieve()/检索数据，将符合条件的记录数赋予检索数据，将符合条件的记录数赋予rsmrsmif rsm=0 then /if rsm=0 then /如果没有检索出数据如果没有检索出数据cb_2.Enabled=FALSE /cb_2.Enabled=FALSE /置“删除”按钮使不能置“删
28、除”按钮使不能else /else /如果检索出数据如果检索出数据cb_2.Enabled=TRUE /cb_2.Enabled=TRUE /置“删除”按钮使能置“删除”按钮使能end ifend ifCOMMIT USING SQLCA;/COMMIT USING SQLCA;/建立数据库连接建立数据库连接dw_1.SetRowFocusIndicator(Hand!)/dw_1.SetRowFocusIndicator(Hand!)/将将 dw_1dw_1 的行光标设置成手形的行光标设置成手形dw_1.SetFocus()dw_1.SetFocus()dw_1-scriptdw_1-scr
29、ipt/*/*Event:RowFousChanged*Event:RowFousChanged 行光标改变事件行光标改变事件 *Function:*Function:从数据窗口滚动到当前行从数据窗口滚动到当前行 *Author:J.R.Wang*Author:J.R.Wang *Create date:2002/12/12*Create date:2002/12/12*/*/如果从数据窗口的当前行与主数据窗口的当前行不同如果从数据窗口的当前行与主数据窗口的当前行不同/置从数据窗口的当前行为主数据窗口的当前行置从数据窗口的当前行为主数据窗口的当前行if dw_2.getrow()current
30、row thenif dw_2.getrow()currentrow thendw_2.scrolltorow(currentrow)dw_2.scrolltorow(currentrow)end ifend if/*/*Event:Scrollvertical*Event:Scrollvertical 垂直滚条改变事件垂直滚条改变事件 *Function:*Function:从数据窗口滚动到主数据窗口从数据窗口滚动到主数据窗口 *当前页的第一行当前页的第一行 *Author:J.R.Wang*Author:J.R.Wang *Create date:2002/12/12*Create dat
31、e:2002/12/12 */*/dw_2.scrolltorow(long(dw_1.object.datawindow.firstrowonpage)dw_2.scrolltorow(long(dw_1.object.datawindow.firstrowonpage)cb_1-scriptcb_1-script/*/*Event:Clicked*Event:Clicked 事件事件*Function:*Function:增加课程增加课程*Author:J.R.Wang*Author:J.R.Wang*Create date:2002/12/12*Create date:2002/12/1
32、2*/*/longlongrow,rsmrow,rsm/dw_1.ShareData(dw_2)/dw_1.ShareData(dw_2)/两两 个个 数数 据据 窗窗 口口 控控 件件 共共 享享DatawindowsDatawindowsrow=dw_2.InsertRow(0)/row=dw_2.InsertRow(0)/在数据窗口中插入一条记录在数据窗口中插入一条记录if row=-1 then /if row=-1 then /插入无效报错插入无效报错messagebox(messagebox(插入错误插入错误,无法增加无法增加,请重新插入请重新插入,Exclamation!),Ex
33、clamation!)elseelsedw_1.ScrollToRow(row)/dw_1.ScrollToRow(row)/滚动到滚动到 rowrow 行行dw_2.ScrollToRow(row)/dw_2.ScrollToRow(row)/滚动到滚动到 rowrow 行行dw_1.SetRow(row)/dw_1.SetRow(row)/置置 rowrow 为当前行为当前行dw_2.SetRow(row)/dw_2.SetRow(row)/置置 rowrow 为当前行为当前行dw_2.Object.snamerow=dw_2.Object.snamerow=无无 /在姓名字段填入“无”在
34、姓名字段填入“无”dw_2.Object.sexrow=dw_2.Object.sexrow=男男 /在性别字段填入“男”在性别字段填入“男”cb_2.Enabled=TRUE /cb_2.Enabled=TRUE /使命删除令按钮使命删除令按钮 cb_2cb_2 为使能为使能end ifend ifreturnreturncb_2-scriptcb_2-script/*/*Event:Clicked*Event:Clicked 事件事件*Function:*Function:修改新的数据修改新的数据*Author:J.R.Wang*Author:J.R.Wang*Create date:20
35、02/12/12*Create date:2002/12/12*/*/integerintegerrcrclonglongrsmrsmrsm=dw_2.RowCount()/rsm=dw_2.RowCount()/计算数据窗口中的记录个数计算数据窗口中的记录个数if rsm1 then /if rsm 0)thenif(rc 0)thenCOMMIT USING SQLCA;COMMIT USING SQLCA;MessageBox(MessageBox(应答信息应答信息,存盘完毕，按存盘完毕，按 EnterEnter 键继续键继续)end ifend if班级设定、课程设定、排课的窗口班级设
36、定、课程设定、排课的窗口教师管理教师管理 w_edit_teacherw_edit_teacherw_edit_teacher-scriptw_edit_teacher-script/*/*Event:Open*Event:Open 打开事件打开事件 *Function:*Function:初始化窗口及其控件初始化窗口及其控件 *Author:J.R.Wang*Author:J.R.Wang *Create date:2002/12/12*Create date:2002/12/12 */*/说明变量说明变量longlongrsmrsmstring xq,hhstring xq,hh/初始化控
37、件和数据窗口初始化控件和数据窗口dw_1.ShareData(dw_2)/dw_1.ShareData(dw_2)/两个数据窗口控件共享两个数据窗口控件共享 DatawindowsDatawindowsdw_1.SetTransObject(sqlca)/dw_1.SetTransObject(sqlca)/为数据窗口为数据窗口dw_1dw_1指定事务对象指定事务对象SQLCASQLCAdw_2.SetTransObject(sqlca)/dw_2.SetTransObject(sqlca)/为数据窗口为数据窗口dw_2dw_2指定事务对象指定事务对象SQLCASQLCArsm=dw_1.re
38、trieve()/rsm=dw_1.retrieve()/检索数据，将符合条件的记录数赋予检索数据，将符合条件的记录数赋予rsmrsmif rsm=0 then /if rsm=0 then /如果没有检索出数据如果没有检索出数据cb_2.Enabled=FALSE /cb_2.Enabled=FALSE /置“删除”按钮使不能置“删除”按钮使不能else /else /如果检索出数据如果检索出数据cb_2.Enabled=TRUE /cb_2.Enabled=TRUE /置“删除”按钮使能置“删除”按钮使能end ifend ifCOMMIT USING SQLCA;/COMMIT USIN
39、G SQLCA;/建立数据库连接建立数据库连接dw_1.SetRowFocusIndicator(Hand!)/dw_1.SetRowFocusIndicator(Hand!)/将将 dw_1dw_1 的行光标设置成手形的行光标设置成手形dw_1.SetFocus()dw_1.SetFocus()dw_1-scriptdw_1-script/*/*Event:RowFousChanged*Event:RowFousChanged 行光标改变事件行光标改变事件 *Function:*Function:从数据窗口滚动到当前行从数据窗口滚动到当前行 *Author:J.R.Wang*Author:J
40、.R.Wang *Create date:2002/12/12*Create date:2002/12/12 */*/如果从数据窗口的当前行与主数据窗口的当前行不同如果从数据窗口的当前行与主数据窗口的当前行不同/置从数据窗口的当前行为主数据窗口的当前行置从数据窗口的当前行为主数据窗口的当前行if dw_2.getrow()currentrow thenif dw_2.getrow()currentrow thendw_2.scrolltorow(currentrow)dw_2.scrolltorow(currentrow)end ifend if/*/*Event:Scrollvertical
41、*Event:Scrollvertical 垂直滚条改变事件垂直滚条改变事件 *Function:*Function:从数据窗口滚动到主数据窗口从数据窗口滚动到主数据窗口 *当前页的第一行当前页的第一行 *Author:J.R.Wang*Author:J.R.Wang *Create date:2002/12/12*Create date:2002/12/12 */*/dw_2.scrolltorow(long(dw_1.object.datawindow.firstrowonpage)dw_2.scrolltorow(long(dw_1.object.datawindow.firstrowo
42、npage)cb_1-scriptcb_1-script/*/*Event:Clicked*Event:Clicked 事件事件*Function:*Function:增加课程增加课程*Author:J.R.Wang*Author:J.R.Wang*Create date:2002/12/12*Create date:2002/12/12*/*/longlongrow,rsmrow,rsm/dw_1.ShareData(dw_2)/dw_1.ShareData(dw_2)/两两 个个 数数 据据 窗窗 口口 控控 件件 共共 享享DatawindowsDatawindowsrow=dw_2.I
43、nsertRow(0)/row=dw_2.InsertRow(0)/在数据窗口中插入一条记录在数据窗口中插入一条记录if row=-1 then /if row=-1 then /插入无效报错插入无效报错messagebox(messagebox(插入错误插入错误,无法增加无法增加,请重新插入请重新插入,Exclamation!),Exclamation!)elseelsedw_1.ScrollToRow(row)/dw_1.ScrollToRow(row)/滚动到滚动到 rowrow 行行dw_2.ScrollToRow(row)/dw_2.ScrollToRow(row)/滚动到滚动到 r
44、owrow 行行dw_1.SetRow(row)/dw_1.SetRow(row)/置置 rowrow 为当前行为当前行dw_2.SetRow(row)/dw_2.SetRow(row)/置置 rowrow 为当前行为当前行dw_2.Object.snamerow=dw_2.Object.snamerow=无无 /在姓名字段填入“无”在姓名字段填入“无”dw_2.Object.sexrow=dw_2.Object.sexrow=男男 /在性别字段填入“男”在性别字段填入“男”cb_2.Enabled=TRUE /cb_2.Enabled=TRUE /使命删除令按钮使命删除令按钮 cb_2cb_
45、2 为使能为使能end ifend ifreturnreturncb_2-scriptcb_2-script/*/*Event:Clicked*Event:Clicked 事件事件*Function:*Function:修改新的数据修改新的数据 *Author:J.R.Wang*Author:J.R.Wang*Create date:2002/12/12*Create date:2002/12/12*/*/integerintegerrcrclonglongrsmrsmrsm=dw_2.RowCount()/rsm=dw_2.RowCount()/计算数据窗口中的记录个数计算数据窗口中的记录个
46、数if rsm1 then /if rsm 0)thenif(rc 0)thenCOMMIT USING SQLCA;COMMIT USING SQLCA;MessageBox(MessageBox(应答信息应答信息,存盘完毕，按存盘完毕，按 EnterEnter 键继续键继续)end ifend if工资管理工资管理 w_salaryw_salaryw_salary-scriptw_salary-script/*/*Event:Clicked*Event:Clicked 事件事件 *Function:*Function:教师编码输入处理教师编码输入处理*Author:J.R.Wang*Aut
47、hor:J.R.Wang *Create date:2002/12/12 *Create date:2002/12/12 */*/sle_1.setfocus()sle_1.setfocus()jsbh=integer(sle_1.text)jsbh=integer(sle_1.text)SELECT tname INTO:jsxm SELECT tname INTO:jsxm FROM teacher WHERE tid=:jsbh;FROM teacher WHERE tid=:jsbh;st_2.text=st_2.text=您好您好+jsxm+!+jsxm+!st_2.TextColo
48、r=rgb(255,0,0)st_2.TextColor=rgb(255,0,0)select workrate into:gzdj from teacher where tid=:jsbh;select workrate into:gzdj from teacher where tid=:jsbh;select cid,hours into:kchbh,:ksh from report2 where tid=:jsbh;select cid,hours into:kchbh,:ksh from report2 where tid=:jsbh;select onemoney into:kchd
49、j from course where cid=:kchbh;select onemoney into:kchdj from course where cid=:kchbh;ms=(ksh*kchdj+gzdj*1000)/12 ms=(ksh*kchdj+gzdj*1000)/12st_3.text=st_3.text=您的月薪为您的月薪为+string(ms)+string(ms)st_3.TextColor=rgb(255,0,255)st_3.TextColor=rgb(255,0,255)sle_1.text=sle_1.text=统计比例统计比例 w_graphics_total_
50、studentsw_graphics_total_studentsw_graphics_total_students-scriptw_graphics_total_students-script/*/*Event:Open*Event:Open 打开事件打开事件 *Function:*Function:初始化窗口及其控件初始化窗口及其控件 *Author:J.R.Wang*Author:J.R.Wang *Create date:2002/12/12*Create date:2002/12/12 */*/初始化控件和数据窗口初始化控件和数据窗口dw_1.SetTransObject(sqlca