西南大学学生信息管理系统综合作业

西南大学学生信息管理系统综合作业

运算机信息处理综合作业

题目名称：西南大学学生信息治理系统

考生姓名：

完成日期：

名目

第一章应用项目概述

L1概^

(3)

1.2开发系统所需资源

(4)

].3期望的效益

(4)

第二章系统设计

2.1系统目标设计

⑷

2.2系统功能结硝一

(5)

2.3系统流程询一

(5)

24代码国

⑺

2.5输入设计

⑺

26输出询

(8)

2.7数据库结构丽一

⑻

2.8程序模块设汗画

⑼

第三章系统实施(1

3.1总控模玦

(12)

3.2菜单模玦

(12)

3.3输入模玦

(13)

3.4编辑模玦

(13)

3.5查询模快

(14)

3.6打印模玦

(15)

第四章操作进啰_____________________________________(1

5)

4.1系统使用布

(15)

4.2操作步骤

(15)

第五章要紧咨询题与改进意见

(19)

第六章要紧参考文献(1

9)

附录一程序清单___________________________________

(20)

附录二盘片使用讲明书

(46)

第1章应用项目概述

1.1概述

1.1.1西南大学的差不多情形

西南大学是云南省昆明市属重点大学,为面向21世纪国家重点的

一百所大学之一。

上世纪三十年代初创建的西南大学是一所具有光荣传统的学校，造就

了许多国内外知名学者和爱国志士。现在的西南大学继承和发扬三十年代

时的光荣传统和优良校风，始终以培养“有理想，有道德,有文化，有纪律”的

社会主义事业的建设者和接班人作为学校的全然任务。为社会主义现代化

建设事业培养出更多的优秀人才。改革开放以来，学校以“自强不息”为

校训，本着“面向社会、习惯市场、发扬优势、办出特色”的指导思想，

持续深化教育教学改革。如全面实行学分制、选课制、短学期制、导师制、

导生制等，学生在导师的指导下，能够自主选修课程、自主安排学习进程、

自主选择授课教师、自主选择专业方向，使学生尽可能地把社会的需求同

自己的能力、爱好、特长结合起来，实施了一系列改革措施，形成了颇具

特色的办学机制和教学模式。西南大学有一支高素养的教师队伍，并拥有

一批在某些领域有较高学术地位的专家、教授，是一所学科门类较为齐全、

应用学科和基础学科都比较强的综合性大学。

1.1.2系统中信息处理的概况及系统的资源情形

随着办学规模的扩大和学生人数的持续增加，学生信息治理的工作量

也随之增大。学生治理系统是一个学校不可缺少的部分，它的内容关于学校

治理者来讲是至关重要，因此学生治理系统应该能够为学校治理者提供充足

的信息和快捷的查询手段。

学生信息治理部组织机构图如图1.2所示

图1.1学生信息治理部组织机构图

有关业务人员的分工如下：

数据处理主任（1K全面负责有关数据处理的各项治理工作；

资料收集员（2XT负责学生信息的收集和整理工作；

操作员（5人厂负责学生信息的添加、修改、删除、报表编制等工

作。

档案保管员（2XT负责档案保管工作。

一直以来学校使用传统人工的方式治理学生档案，只是使用运算机编

制各种报表。这种治理方式存在着许多缺点，如:效率低、保密性差，另外时刻

长了，将产生大量的文件和数据，这关于查找、更新和爱护都带来了许多的困

难。

1.1.3系统各类人员对信息系统的态度

随着科学技术的持续提升，运算机科学日渐成熟,其强大的功能已为人

们深刻认识，它已进入人类社会的各个领域并发挥着越来越重要的作用。作

为运算机应用的一部分，使用运算机对学生信息进行治理，具有手工治理所

无法比拟的优点。例如：检索迅速、查找方便、可靠性高、储备量大、保

密性好、寿命长、成本低等。这些优点能够极大地提升的效率，也是学校科

学化、正规化治理的重要条件。学校领导对新系统的开发工作十分关怀和

重视，不管从人力、物力、财力各方面都给予了极大的支持和关心。其他

有关人员也十分支持新系统的开发，关于新系统的建立也给予了热情的关

心。因此，开发如此一套治理软件成为专门有必要的情况。为了开发这套

治理软件，学校决定聘请校内外专家以及专业人员，并结合国内外实际情

形，充分利用已有的条件，克服存在的困难，为走向成功之路打下了坚决

的基础。

1.1.4开发系统所具备的条件

为建立学生治理信息系统，学校差不多具备了以下条件：

.已建成数字通信网络

.拥有许多最新的硬件设备

.已建立起一批规范的专业数据库

.已培养起一批专门的设计与开发人员

.以有许多成功的例子

.显现了一批功能强大的开发工具

.得到了学校领导的确信以及宽敞师生的支持与关心

充分达到了经济上、技术上、以及治理上的可行性。

1.2开发所需资源

64MB内存

10GB硬盘

14”彩色显示器

打印机一台

软件资源：MicrosoftWindows98

MicrosoftFoxpro2.5b

1.3期望的效益

通过学生治理信息系统，进行学生信息的收集、传递、储备、加工、

爱护和使用。处理治理信息和治理事务，极大地提升的效率，节约时刻、降

低成本。实现学校科学化、信息化。

第2章系统设计

2.1系统目标设计

系统设计的目标是：完全取消目前的人工治理学生档案的方式，在前

述系统分析的基础上，按照学校的具体情形，科学合理地进行系统的总体

设计和具体物理设计，为下一时期系统实施提供必要的技术资料。具体应

做到以下几点：

(1)“快”。按照学校的具体情形，应尽快完成系统开发。开发时刻

过长，不仅没有时效性，还可能因时刻推移发生需求的变化而导致整个开

发的报废。

(2)“活”。开发的系统应具有灵活性，对环境的变化有专门强的习

惯性。数据库结构、算法处理、输入/输出格式，甚至系统结构本身随时都

能够更换。使用户在使用过程中，能够按照需要随时修改系统不完善的地

点。

(3)“稳”。系统作为一个整体而存在，整个系统的代码统一，设计

规范标准。

(4)“强”。系统操作方便、功能强大，同时具有良好的用户界面。

(5)“低”。开发和进行爱护系统的代价低。

总的来讲确实是：对用户要求最低、限制最少，时刻和经费最省而得

到的效益大而不冒失败的风险。

2.2系统功能结构图

通过对现行人工系统的全面调查和分析，考虑新系统目标的要求,

新系统的功能结构图如图2.1所示，新系统具有输入、编辑、查询、打印等

功能。

图2.1新系统功能结构图

2.3系统流程设计

2.3.1业务流程图

现行系统的业务流程图如图2.2所示:

查询申请总务处

教师

图2.2现行系统业务流程图

2.3.2数据流程图

现行系统数据流程图如图2.3所示。

务处|

图2.3现行系统数据流程图

2.3.3信息系统流程图

按设计新系统的目标要求，绘制出新系统的信息系统流程图如图2.4所

示

图2.4信息系统流程图

2.4代码设计

本系统为了便于数据的储备和检索，提升处理的效率和精度，因

此对学生的专业使用了顺序码。即：1代表运算机信息治理专业

2代表运算机网络专业

3代表运算机软件专业

4代表机关治理及办公自动化专业

5代表行政治理专业

6代表新闻学专业

在输入过程中，列表框中列出专业的中文，选择之后转换为相应的代

码储存。

2.5输入设计

本系统中使用的输入表单只有学生入学单，这种表单连续沿用现行系

统的学生入学单的格式，如表2.1所示：

表2.1学生入学单

学号姓名性别专业政治面貌出身日期入学成绩简历

2.6输出设计

本系统的输出的报表是学生档案表，其打印输出的格式设计如表2.2所

示:

表2.2学生档案表

学号姓名性别专业政治面貌出身日期入学成绩简历

0001成大龙男运算机信息治理党员85-01-30500

0002郝巍男运算机软件群众84-12-23478

0003余晶女行政治理党员83-09-12420

0004叶群男运算机信息治理团员85-03-04450

0005盛冰女新闻学团员84-02-27445

0006程小东男机关治理及办公自动化群众85-03-01450

0007杨铭男运算机网络团员84-12-12500

0008高琳女机关治理及办公自动化党员84-12-04449

0009李斌男运算机信息治理团员83-06-25487

0010胡霄女运算机网络团员83-12-28468

0011田志梁男新闻学群众84-02-15450

0012屠瞭亮男行政治理团员84-03-11425

0013董一飞男运算机网络团员85-01-25474

0014辛晓琪女运算机软件团员83-10-16498

0015尹丽女机关治理及办公自动化党员84-12-09449

0016丁宁女行政治理团员85-03-23439

0017程伟男运算机软件群众84-12-09470

0018侯彤女运算机信息治理团员85-01-19481

0019沈芳女机关治理及办公自动化团员83-07-22450

0020区颖女新闻学党员84-06-03471

0021郭顽男行政治理党员85-04-30436

2.7数据库文件结构设计

本系统建立了一个名为XSXX.DBF的数据库文件

表2.3学生信息治理文件(XSXX.DBF)结构

编号字段名字段类型宽度小数位

1学号C4

2姓名C8

3性别C2

4专业C1

5政治面貌C4

6出身日期D8

7入学成绩N3

8简历M10

其中，关键字为：学号

2.8程序模块设计讲明

2.8.1总控模块

程序名：XNDX.SPR

功能：该模快是系统的登陆界面。用来选择进入系统或退出系统。

结构图：总控模块结构图如图2.5所示。

主控模块

进入系统退出系统

图2.5主控模块结构图

282菜单模块

(1)程序名：CD.MPR

(2)功能：该模块是系统的主界面，用来定义本系统的输入记录、记录

编辑、记录查询、报表打印等菜单及各项功能，选取功能菜单中的操作项,

进入相应的操作。

结构图：菜单模块结构图如图2.6所示。

菜单模块

图2.6菜单模块结构图

2.8.3输入模块

程序名：SR.SPR

功能：该模块用于数据的输入以及储存等操作

结构图：输入模块结构图如图2.6所示。

输入模块

储存输入舍弃输入退出输入

输入记录

图2.7输入模块结构图

284编辑模块

程序名：BJ.SPR

功能：该模块要紧完成对各类记录的修改、删除等各项编辑操作

结构图：编辑模块结构图如图2.7所示

编辑模块

修

删

舍

储

退

改

除

弃

存

出

记

记

修

修

编

录

录

改

改

辑

图2.8编辑模块结构图

2.8.5查询模块

程序名：CX.SPR

(2)功能：该模块要紧功能是能够利用部分条件对系统中各类记录信

息进行过滤，找到需要的信息，从而便于对特定的信息进行编辑。

可分为全部查询和条件查询两种：

全部查询：即每条记录都可查询。

条件查询：可按学号、姓名、专业查询。

(3)结构图：查询模块结构图如图2.8所示

查询模块

全部查询执行查询条件查询退出查询

查

查

询

询

查

查

按

按

按

上

下

询

询

学

姓

专

首

一

一

末

号

名

业

记

记

条

条

查

查

查

录

录

询

询

询

记

记

录

录

图2.9查询模块结构图

286打印模块

(1)程序名：DY.FRX

(2)功能：利用该模块使用户能方便地打印出既符合需求又美观的

各类报表。

(3)结构图：报表打印模块的结构图如图2.10所示。

打印模块

打印学生档案

图2.10打印模块结构图

第三章系统实施

3.1总控模块

程序框图：系统总控模块程序框图如图3.1所示。

图3.1总控模块程序框图

(2)实施讲明：该模块使用屏幕生成器生成。第一打开屏幕设计窗

口，并设计屏幕。然后为ScreenLayout对话框、以及“进入系统”和“退

出系统”命令按钮设计代码，最后选择系统菜单Program的Generate项，

生成屏幕程序，并执行该屏幕程序。

3.2菜单模块

(1)程序框图：菜单模块程序框图如图3.3所示。

菜单模块

图3.2菜单模块程序框图

(2)实施讲明：该模块使用菜单生成器生成。第一打开菜单生成器,

并设计菜单。其中，一共有“信息输入”、“信息编辑”、“信息查询”、“信

息打印”、“退出系统”五个菜单项。分别为每个菜单项设计代码，最后，

生成相应的菜单程序。

3.3输入模块

(1)程序框图：输入模块程序框图如图3.3所示

输入模块

输

储

舍

退

弃

入

存

出

输

记

记

输

入

入

录

录

图3.3输入模块程序框图

(2)实施讲明：该模块使用屏幕生成器生成。打开数据库文件XSX

X.DBF后，第一打开屏幕设计窗口，利用Screen菜单中的QuickScreen项

快速生成屏幕，并调整。然后修改字段，为ScreenLayout对话框、以及字

段、命令按钮设计代码，最后选择系统菜单Program的Generate项，生成

屏幕程序，并执行该屏幕程序。

3.4编辑模块

(1)程序框图：编辑模块程序框图如图3.4所示

编辑模块

修

舍

删

储

退

改

弃

除

存

出

记

修

记

修

编

录

改

录

改

辑

图3.4编辑模块程序框图

(2)实施讲明：该模块使用屏幕生成器生成。打开数据库文件XSXX.

DBF后，第一打开屏幕设计窗口，利用Screen菜单中的QuickScreen项快

速生成屏幕，并调整。然后修改字段，为ScreenLayout对话框、以及字段、

命令按钮设计代码，最后选择系统菜单Program的Generate项，生成屏幕

程序，并执行该屏幕程序。

3.5查询模块

程序框图：查询模块程序框图如图3.5所示

图3.5查询模块程序框图

(2)实施讲明：该模块使用屏幕生成器生成。打开数据库文件XSXX.

DBF后，第一打开屏幕设计窗口，利用Screen菜单中的QuickScreen项快

速生成屏幕，并调整。然后修改字段，为ScreenLayout对话框、以及字段、

命令按钮设计代码，最后选择系统菜单Program的Generate项，生成屏幕

程序，并执行该屏幕程序。

3.6打印模块

(1)程序框图：打印模块程序框图如图3.9所示

打印模块

学生档案打印

图3.6打印模块程序框图

(2)实施讲明：该模块使用报表生成器生成。打开数据库文件XSXX.

DBF后，打开屏幕设计窗口，利用Report菜单中的QuickReport项快速生

成报表，并调整。

第四章操作讲明

4.1系统使用环境：

本系统需运行在中文Windows98和Foxpro2.5bforWindows数据

库系统环境中。

4.2操作步骤：

⑴第一启动Windows98,进入Foxpro2.5bforWindows系统，把本

系统盘插入软盘驱动器A中。在Command窗口中键入命令"DOA：\XN

DX.SPR”（命令不包括引号）进入本系统。

（2）主控模块窗口：在进入本系统时，会显现主控模块窗口，（如图

4.1所示）该窗口是系统的登陆界面，有“进入系统”和“退出系统”两个按

钮可供选择。如果选择“进入系统”按钮，系统会调用DOCD.MPR命令

进入主菜单。如果选择“退出系统”按钮，则会退出本系统，返回Foxpro。

现在要进入主菜单进行操作，因此选择“进入系统”按钮。

图4.1主控模块窗口

(3)菜单模块窗口：主菜单要紧由“信息输入”、“信息编辑”、“信

息查询”、“信息打印”和“退出系统”五个菜单项组成。(如图4.2所示)用

户能够通过选择菜单项进入各个功能界面。

[^MicrosoftFoxProHBH

信息输入信息编辑信息查询信息打印退出系统

图4.2主菜单窗口

(4)信息输入菜单：选择“信息输入”菜单，系统会调用DOSR.SPR命

令，进入学生信息输入窗口。(如图4.3所示)在窗口中有“输入记录”、“储

存输入”、“舍弃输入”和“退出输入”四个按钮。现在，只有“输入记录”

按钮和“退出输入”按钮被激活，“储存输入”和“舍弃输入”按钮被屏蔽,

临时不可选。第一选择“输入记录”按钮，在学号字段处会显现闪耀的光

标，现在，可输入学号，如果输入的学号与已存在的记录的学号相同，在

屏幕的右上角会显示“该学号所对应的记录已存在”。这时需从新输入学号,

只有在不重复输入学号的情形下才能进行其他信息的输入。在输入过程中，

“储存输入”按钮和“舍弃输入”按钮被激活，“输入记录”按钮和“退出

输入”按钮被屏蔽，临时不可选。输完一条记录之后，可按“储存输入”

按钮储存记录。如果不想储存，则按“舍弃输入”按钮，舍弃此次操作。

在对一条记录进行完操作之后，“输入记录”按钮和“退出输入”按钮重新

被激活，“储存输入”按钮和“舍弃储存”按钮重新被屏蔽。又回到了刚进

入本窗口时的初始状态，这时，可连续对第二条记录进行操作。输完所要

输入的所有记录之后，按“退出输入”按钮退至主菜单。

Record1/21Exdussve||Im[NunTT

图4.3信息输入窗口

(5)信息编辑菜单：选择“信息编辑”菜单，系统会调用DOBJ.SP

R命令，进入学生信息编辑窗口。(如图4.4所示)。

^MicrosoftFoxProI

£il«EditD#tcb'Rrcs£rogr«nRUQWindowH.lp

XsxxRecord1/21Exclusive]~jr»~Num~F

图4.4信息编辑窗口

在窗口中有“修改记录”、“删除记录”、“储存修改”和“舍弃修

改”和“退出编辑”五个按钮。现在，学号字段呈蓝色显示，第一输入学

号，如果该学号所对应的记录不存在，在屏幕的右上角会显示“该学号所

对应的记录不存在”只有在正确输入学号的情形下才能进行有关记录的操

作。正确输入学号后，只有“修改记录”、“删除记录”和“退出编辑”三

个按钮被激活，“储存修改”和“舍弃修改”按钮被屏蔽，不可选。按下“修

改记录”按钮后，可对该记录进行操作。在修改时，“储存修改”和“舍弃

修改”按钮被激活，“修改记录”、“删除记录”和“退出编辑”按钮以及学

号字段被屏蔽，不可操作。改完一条记录之后，可按“储存修改”按钮储

存该记录。如果想舍弃该记录的修改可按“舍弃修改”按钮。这时，学号

字段重新呈蓝色显示，又回到了刚进入本窗口时的初始状态。如果不需要

该记录，可按“删除记录”按钮删除该记录。编辑完毕之后按“退出编辑”

按钮退至主菜单。

(6)信息查询菜单：选择“信息查询”菜单，系统会调用DOCX.S

PR命令，进入学生信息查询窗口。(如图4.5所示)。

XsxxRecord1/21Exdusive|InsNum

图4.5信息查询窗口

在窗口中有“全部查询”、“条件查询”、“执行查询”、“退出查询”、

“首记录”、“末记录”、“上一条”、“下一条”八个按钮。现在，只有“执

行查询”被屏蔽，其余七个按钮都可选。查询方式有“全部查询”和“条

件查询”两种。系统默认的为“全部查询”，即查询的范畴为全部记录。选

择“首记录”、“末记录”“上一条”、“下一条”四个按钮，可进行全部记录

范畴内相应的查询工作。如果只想查询满足条件的记录，可选择“条件查

询”按钮，可按学号、姓名、专业来查询。现在“执行查询”按钮被激活,

在输入相应的查询条件，并选择“执行查询”按钮，这时屏幕上只显示满

足条件的记录。同样，选择“首记录”、“末记录”“上一条”、“下一条”四

个按钮，可进行满足条件范畴内相应的查询工作。查询工作终止后，按“退

出查询”按钮可退至主菜单。

(7)信息打印菜单：选择“信息打印”菜单，系统会调用相应命令，进

入学生信息打印窗口。(如图4.6所示)屏幕上会显现学生信息档案的报表,

以便打印预览。

〔PagePrevi,

-*,

学生信息打印窗口1।

性别入学成绩一

姓名专业政治面貌出生日期简历|£叼|

郝巍男计算机软件群众84-12-23478|乙oomIn|

|ZpoiOu*|

余晶女行政管理党员83-09-12420

叶群男计算机信息管理团员85-03-04450

盛冰女新闻学团员84-02-27445

程小东男机关管理及办公自动化群众85-03-01450

杨铭男计算机网络团员84-12-12500

高琳女机关管理及办公自动化党员84-12-04449

李斌男计算机信息管理团员83-06-25487

1▼

।।___d

图4.6信息打印窗口

(8)退出系统菜单：包括“退出至Foxpro”和“退出至Windows”

两个子菜单。

点选“退出至Foxpro”菜单，将退出本系统，返回到Foxpro系统主界

面

点选“退出至Windows”菜单，将退出本系统，同时退出Foxpro系统,

返回到Windows桌面。

第五章要紧咨询题与改进意见

本系统通过自己的努力，通过试用证明，系统差不多满足学生信

息的治理方面的需要，实现了学生的输入、编辑、查询、打印等工作。由

于编者水平有限，编写时刻仓促，系统中难免有不当之处：

目前采纳的是单机版，差不多不大习惯进展趋势，可能用不了多久又

得更新。

学生信息治理功能都不够强大，只能满足临时需要。

报表打印功能尚不够全面完善。

今后设想：连续完善此系统，把该有的功能尽量实现，使系统真正能

为学校服务

敬请指正不足之处，在此深表感谢。

第六章要紧参考文献

《运算机信息处理综合作业教程》经济科学出版社2000版

田孝文主编

《治理信息系统》经济科学出版社2000版

黄梯云主编

《运算机有用软件》经济科学出版社1997版

高阳主编

附录一：程序清单

XNDX.SPR（主控模块）

#REGION0

IFSET("TALK")="ON"

SETTALKOFF

m.talkstat="ON"

ELSE

m.talkstat="OFF"

ENDIF

SETCOMPATIBLEFOXPLUS

m.rborder=SET("READBORDER")

SETREADBORDERON

m.currarea=SELECTO

IFNOTWEXIST("al");

ORUPPER(WTITLE("A1"))=="Al.PJX";

ORUPPER(WTITLE("A1"))=="Al.SCX";

ORUPPER(WTITLE("A1"))=="Al.MNX";

ORUPPER(WTITLE("A1"))=="Al.PRG";

ORUPPER(WTITLE("A1"))=="Al.FRX";

ORUPPER(WTITLE("A1"))=="Al.QPR"

DEFINEWINDOWal;

AT0.000,0.000;

SIZE28.000,109.600;

TITLE"西南大学学生信息治理系统"；

FONT"MSSansSerif,8;

FLOAT;

NOCLOSE;

MINIMIZE;

SYSTEM;

COLORRGB(,,,0,255,255)

MOVEWINDOWalCENTER

ENDIF

#REGION1

settalkoff

setsafeoff

setescaoff

setdefatoa:\

publiccdl

cdl=.f.

keyboard[{ctrl+f4}]

#REGION1

IFWVISIBLE("al")

ACTIVATEWINDOWalSAME

ELSE

ACTIVATEWINDOWalNOSHOW

ENDIF

@3.308,19.000SAY"西南大学学生信息治理系统"；

FONT"楷体_GB2312”,22;

STYLE"BT";

COLORRGB(255,0,0„„)

@11.538,17.400SAY"姓名：准考证号:

FONT"宋体"，12;

STYLE"BT";

COLORRGB(0,0,128,,,,)

@18.308,33.600GETjrxt;

PICTURE"@*HN进入系统”；

SIZE1.353,8.667,0.444;

DEFAULT1;

FONT"宋体"，11;

STYLE"B";

VALID_Hi0e5nxl()

@18.154,60.000GETtext;

PICTURE"@*HT退出系统"；

SIZE1.353,8.667,0.444;

DEFAULT1;

FONT"宋体"，11;

STYLE"B"

@8.462,14.200TO22.616,96.400;

PEN2,8;

STYLE"16";

COLORRGB(0,0,128,,,,)

IFNOTWVISIBLE("al")

ACTIVATEWINDOWal

ENDIF

READCYCLE

RELEASEWINDOWal

SELECT(m.currarea)

#REGION0

SETREADBORDER&rborder

IFm.talkstat="ON"

SETTALKON

ENDIF

SETCOMPATIBLEON

ENDIF

FUNCTION_Hi0e5nxl&&jrxtVALID

#REGION1

keyboard[{ctrl+f4}]

docd.mpr

deacwindal

CD.MPR（主菜单）

SETSYSMENUTO

SETSYSMENUAUTOMATIC

DEFINEPAD_llhlbfjqnOF_MSYSMENUPROMPT"信息输入"

COLORSCHEME3;

SKIPFORcdl

DEFINEPAD_llhlbfjqoOF_MSYSMENUPROMPT"信息编辑"

COLORSCHEME3;

SKIPFORcdl

DEFINEPAD_llhlbQqpOF_MSYSMENUPROMPT"信息查询”

COLORSCHEME3;

SKIPFORcdl

DEFINEPAD_llhlbfjqqOF_MSYSMENUPROMPT"信息打印"

COLORSCHEME3;

SKIPFORcdl

DEFINEPAD_llhlbfjqrOF_MSYSMENUPROMPT"退出系统"C

OLORSCHEME3;

SKIPFORcdl

ONSELECTIONPAD_llhlbfjqnOF_MSYSMENU;

DO_llhlbfjqs;

INLOCFILE("CD","MPX;MPR|FXP;PRG","WhereisCD?")

ONSELECTIONPAD_llhlbfjqoOF_MSYSMENU;

DO_llhlbQqt;

INLOCFILE("CD","MPX;MPR|FXP;PRG","WhereisCD?")

ONSELECTIONPAD_llhlbfjqpOF_MSYSMENU;

DO_llhlbfjqu;

INLOCFILE("CD","MPX;MPR|FXP;PRG","WhereisCD?")

ONSELECTIONPAD_llhlbfjqqOF_MSYSMENU;

DO_llhlbfjqv;

INLOCFILE("CD","MPX;MPR|FXP;PRG","WhereisCD?")

ONPAD_llhlbfjqrOF_MSYSMENUACTIVATEPOPUP退出系

统

DEFINEPOPUP退出系统MARGINRELATIVESHADOWCOLOR

SCHEME4

DEFINEBAR1OF退出系统PROMPT"退至Foxpro"

DEFINEBAR2OF退出系统PROMPT"退至Windows"

ONSELECTIONBAR1OF退出系统；

DO_llhlbQqw;

INLOCFILE("CD","MPX;MPR|FXP;PRG","WhereisCD?")

ONSELECTIONBAR2OF退出系统；

DO_llhlbfjqx;

INLOCFILE("CD","MPX;MPR|FXP;PRG","WhereisCD?")

PROCEDURE_llhlbfjqs

dosr.spr

PROCEDURE_llhlbfjqt

dobj.spr

PROCEDURE_llhlbfjqu

docx.spr

PROCEDURE_llhlbfjqv

usexsxx

repoformdypreview

cdl=.f.

PROCEDURE_llhlbfjqw

settalkon

setescaon

setsafeon

clearall

setsysmenutodefa

keyboard[{ctrl+f2}]

retu

PROCEDURE_llhlbfjqx

quit

SR.SPR（输入模块）

#REGION0

IFSET("TALK")="ON"

SETTALKOFF

m.talkstat="ON"

ELSE

m.talkstat="OFF"

ENDIF

SETCOMPATIBLEFOXPLUS

m.rborder=SET("READBORDER")

SETREADBORDERON

m.currarea=SELECTO

IFNOTWEXIST("_lli0sqna9")

DEFINEWINDOW_Hi0sqna9;

AT0.000,0.000;

SIZE31.923,110.000;

TITLE"学生信息输入窗口"；

FONT"MSSansSerif,8;

FLOAT;

NOCLOSE;

MINIMIZE;

SYSTEM;

COLORRGB(,,,0,255,255)

MOVEWINDOW_Hi0sqna9CENTER

ENDIF

#REGION1

settalkoff

setsafeoff

usexsxx

indeon学号toabc

vxh=space(4)

vxm=space(8)

vzy=l

vxb=space(2)

vcsrq=ctod('//')

vrxcj=0

vzzmm=l

vjl=space(200)

al=.t.

a2=.f.

a3=.f.

cdl=.t.

showgets

#REGION1

IFWVISIBLE("_1li0sqna9")

ACTIVATEWINDOW_Hi0sqna9SAME

ELSE

ACTIVATEWINDOW_Hi0sqna9NOSHOW

ENDIF

@6.923,35.400SAY"姓名";

FONT"宋体"，11;

STYLE"BT";

COLORRGB(0,0,255,,,,)

@7.077,64.400SAY"性别"；

FONT"宋体"，11;

STYLE"BT";

COLORRGB(0,0,255,,,,)

@13.462,13.400SAY"出生日期"；

FONT"宋体"，11;

STYLE"BT";

COLORRGB(0,0,255,,,,)

@16,308,13.400SAY"简历"；

FONT"宋体"，11;

STYLE"BT";

COLORRGB(0,0,255,,,,)

@16.231,85.400TO16.308,85.400;

PEN1,8

@1.769,25.800SAY”学生信息输入窗口”；

FONT"楷体_GB2312”,18;

STYLE"BT";

COLORRGB(255,0,0„„)

@7.000,13.400SAY"学号"；

FONT"宋体"，11;

STYLE"BT";

COLORRGB(0,0,255,,,,)

@10.077,13.000SAY"专业";

FONT"宋体"，11;

STYLE"BT";

COLORRGB(0,0,255,,,,)

@10,154,58.000SAY"政治面貌"；

FONT"宋体"，11;

STYLE"BT";

COLORRGB(0,0,255,,,,)

@13.462,45.600SAY"入学成绩"；

FONT"宋体"，11;

STYLE"BT";

COLORRGB(0,0,255,,,,)

@5.154,9.600TO24.154,96.400;

PEN2,8;

STYLE"32";

COLORRGB(0,0,255,,,,)

@7.000,23.200GETvxh;

SIZE0.857,6.000;

DEFAULT"";

FONT"宋体"，9;

PICTURE"9999";

WHENa2;

VALID_Hi0sqnn4();

COLOR,RGB(,,,0,255,0)

@7.077,45.000GETvxm;

SIZE0.857,10.333;

DEFAULT"";

FONT"宋体"，9;

PICTURE"@K";

WHENa3;

COLOR,RGB(,,,0,255,0)

@7.000,73.400GETvxb;

PICTURE"@A男;女"；

SIZE1.500,6.667;

DEFAULT"女"；

FONT"宋体"，9;

WHENa3;

COLOR„„„„RGB(,„0,255,0),RGB(,,,0,255,0)

@9.923,23.000GETvzy;

PICTURE"@A运算机信息治理;运算机网络;运算机软件;机关治

理及办公自动化;行政治理;新闻学"；

SIZE1.500,22.167;

DEFAULT"运算机信息治理"；

FONT"宋体"，9;

WHENa3;

COLOR255,0),RGB(,,,0,255,0)

@9.923,74.400GETvzzmm;

PICTURE"@*RVN党员;团员;群众"；

SIZE1.214,7.500,0.286;

DEFAULT1;

FONT"宋体"，9;

STYLE"T";

WHENa3;

COLOR„„„„RGB(0,0,255,0,255,0),RGB(0,0,255,0,255,0)

@13,769,29.000GETvcsrq;

SIZE0.857,9.833;

DEFAULT{//};

FONT"宋体"，9;

PICTURE"@KD";

WHENa3;

COLOR,RGB(,,,0,255,0)

@13.615,60.400GETvrxcj;

SIZE0.857,6.167;

RANGE0;

DEFAULT0;

FONT"宋体"，9;

PICTURE"@K999";

WHENa3;

COLOR,RGB(,,,0,255,0)

@16.538,23.400EDITvjl;

SIZE6.000,55.000,0.000;

PICTURE"@K";

DEFAULT"";

FONT"宋体"，9;

SCROLL;

WHENa3;

COLOR,RGB(,,,0,255,0)

@26.154,14.000GETsrjl;

PICTURE"@*HN输入记录”;

SIZE1.353,8.667,0.444;

DEFAULT1;

FONT"宋体"，11;

STYLE"B";

WHENal;

VALID_lli0sqnnr()

@26.154,56.000GETfqsr;

PICTURE"@*HN舍弃输入”；

SIZE1.353,8.667,0.444;

DEFAULT1;

FONT"宋体"，11;

STYLE"B";

WHENa3;

VALID_lli0sqnny()

@26.154,77.000GETtcsr;

PICTURE"@*HT退出输入”;

SIZE1.353,8.667,0.444;

DEFAULT1;

FONT"宋体"，11;

STYLE"B";

WHENal;

VALID_lli0sqno6()

@26,154,35.000GETbcjl;

PICTURE"@*HN储存输入”；

SIZE1.353,8.667,0.444;

DEFAULT1;

FONT"宋体"，11;

STYLE"B";