奖学金评分系统（系统分析与设计版与Delphi实现代码）

2022-08-20 08:02:38

一、系统规划

1.1 项目背景介绍

在奖学金评比过程中，学生综合测评是学校普遍采用的评比手段。对学生实施综合素质测评的目的在于正确评价学生的综合素质，为评奖学金提供依据，实现学生教育管理工作的标准化、制度化和科学化，引导和促进学生德、智、体、美全面发展。

1.2 现存问题及系统目标

目前我国普遍高校学生奖学金评比还停留在纸质的阶段，许多工作需要传统的手工操作，这不仅浪费了大量的人力物力资源，而且由于人工管理存在着许多不可控因素，导致学生奖学金评比操作不规范，测评结果不全面，不能客观准确地反应学生的综合素质。因此，建立一套基于计算机环境的技术先进、高效稳定、安全可靠的奖学金测评系统是完全有必要的。

奖学金评比系统的目的是自动分析、计算、统计、管理学生综合测评数据,减少人工干预,降低计算失误,提高工作效率,将辅导员、班主任、班委从繁重的综合测评及日常管理中解放出来,使学校的综合测评工作系统化、规范化、自动化。

与传统的纸质评比相比，计算机管理不但能发挥计算机方便、快捷的功能，而且可以节省大量的资源费用等，更方便灵活操作，而且方便管理，增加奖学金评比的公平性、透明性，有效防止奖学金评比的弊端，使学生奖学金评比更加合理、更趋于成熟。这些都能够极大地提高工作效率，特别是校园网应用发展迅速的今天，利用网络进行信息的查询、修改和发布已成为学校现代化管理的象征之一，也是学校科学化和正规化管理的重要条件。因此开发一套比较成熟的学生奖学金评比系统很有必要。

1.3 可行性分析

1技术性分析

使用delphi，支持数据库，操作简单方便。

2 经济性分析

花费费用小，节省人力物力。

3 系统运行可行性分析

可实现登记、查询、修改，比较等功能，切实可行。

1.4进度安排

二、系统分析

2.1功能需求分析

本系统主要进行学生的奖学金评比综合成绩考核和班委对学生情况的管理记相关的活动。主要包含如下功能模块：

学生系统管理模块

该模块提供学生进行学生信息查询。实现学生的个人信息管理。方便了学生管理以及成绩考核查询，奖学金评比。更能实现效率。
班委系统管理模块

该模块提供学生班委进行学生信息更改。实现班委的班级信息管理。方便了班委管理和成绩考核查询，奖学金评比更改。更能实现效率。

2.2非功能需求分析
技术需求

系统的学生、班委和教师组件要求运行在用windows操作系统的笔记本或台式机上。服务器组件要求必须使用C语言编写，并且相互之间使用组件交互标准CORBA（公用对象请求代理结构）或SOAP（缉拿的那对象访问协议）进行通信。
性能需求

系统的学生、班委和教师部分要求在所有的屏幕上都是半秒的响应时间，而服务器组件可能需要在同样的响应时间内支持上千个并发的学生教师操作。

3、可用性需求

基于web的界面符合整个组织范围内的图形设计准则，像菜单布局和格式、色彩设计、组织标志的使用规范化。

4、可靠性需求

当服务出现损耗或出现不正当处理、以及错误检测和恢复将会自动根据程序要求来进行自我修复和改进。
安全需求

对该系统输出的访问会受限于学生和教师，一些来自不属于学校的外人的访问需要得到授权，而其他的一些访问只是来自该机构的本地网络。该校可能需要喜爱通过Internet传送数据的时候要使用到加密技术，并且通过用户名和密码机制来控制对数据库服务器的访问。

2.3 ER图

2.4数据流程图

顶层DFD

第一层DFD

第二层DPD

2.5数据字典

数据项的定义

数据项编号	数据项名称	数据类型	简述	允许Null值
I1	number	Nvarch（50）	学生用户的学号	false
I2	points	float	学生的分数	true
I3	ranking	float	学生的优秀等级	true
I4	name	Nvarchar（255）	学生用户姓名	true
I5	credit	float	学生的学分	true
I6	type	Nvarchar（50）	学生选课类型	false
I7	Grade	float	学生年级	true
I8	Usernum	Nvarchar（50）	用户账号	true
I9	body	float	学生身体素质	true
I10	mind	float	学生心理素质	true
I11	self	float	学生道德素质	true
I12	record	float	学生违反道德记录	true
I13	course	float	学生所选课程名称	false
I14	sex	Nvarchar（225）	学生性别	true
I15	password	Nvarchar（225）	学生用户密码	true

数据存储的描述

数据存储编号	数据存储名称	简述	数据存储组成
S1	登录文件	记录用户登录	用户名+密码
S2	权限文件	记录用户权限	用户名+密码+权限编码
S3	基本项文件	记录学生基本项信息	基本信息+排名
S4	综合能力文件	记录学生综合能力信息	基本项排名+综合能力排名
S5	身心素质文件	记录学生身心素质信息	身体素质+心理素质评议+成绩分数+名次
S6	专业素质文件	记录学生专业素质信息	成绩分数+名次
S7	品德素质文件	记录学生品德素质信息	学生自评+学生代表评议+辅导员评议+记实+评议基本分+总分+名次
S8	加分项目	记录学生加分项目信息	加分项目名称+分数+类型

S9	选课表	记录学生选课信息	学生+学号+课程名称
S10	获奖情况文件	记录学生获奖情况	学生+学号+获奖情况
S11	评比方法文件	记录评比方法	评比对象+评比方法内容

数据流的描述

数据流编号	数据流名称	简述	数据流来源	数据流去向	数据流组成	数据流量	高峰流量
D1	用户学号	登陆成功用户的学号	P3	P3.1	用户学号+姓名	11次/月	40次/月
D2	所查学号	用户想要查询的学号	P3	P3.1	所查学号+姓名	22次/月	35次/月
D3	学号	查询对象的相关内容	当前进行的操作	对应下一级指向操作	学生学号	15次/月	30次/月
D4	登陆信息	用户账号密码	P1，P2	P2，I2，I3	账号+密码	15次/月	30次/月
D5	出错信息	非法的用户账号或者密码提示	P1	用户	出错内容的形式提示	10次/月	20次/月
D6	评比方法	奖学金评比相关内容	S10	P3.8	评比规则+评比项目	11次/月	23次/月
D7	更新后的文件信息	更新过基本信息后的待返回总测评更新的信息	P4.8	P4.1	专业素质成绩+品德素质成绩+身心素质成绩	5次/月	15次/月

处理的描述

处理逻辑编号	处理逻辑名称	输入的数据流	处理的逻辑描述	输出的数据流	处理的频率
P1	判断登陆是否正确	D4	系统根据输入账号密码判断合法性	D4，D5	20次/月
P2	判断权限	D4	系统根据账号密码判断用户使用权限	D4	20次/月
P3.1	总测评查询	D1	学生进行测评查询	D3	20次/月
P3.2	基本项查询处理	D2	学生进行基本项查询	D3	20次/月
P3.3	综合能力查询处理	D3	学生进行综合能力查询	D3	20次/月
P3.4	品德素质查询	D3	学生进行品德素质查询	D3	20次/月
P3.5	专业素质查询	D3	学生进行专业素质查询	D3	20次/月
P3.6	身心素质查询	D3	学生进行身心素质查询	D3	20次/月
P3.7	获奖情况查询	D3	学生进行获奖情况查询	D3	20次/月
P3.8	评比方法查询	D3	学生可以查询获奖评比方法	D3	20次/月
P4.1	总测评更新	D3	班委进行总测评处理	D3	20次/月
P4.2	总基本项更新	D3	班委进行总基本项更新	D3	20次/月
P4.3	加分项更新	D3	班委更新加分项	D3	20次/月
P4.4	品德素质更新	D3	班委更新学生品德素质信息	D3	20次/月
P4.5	专业素质更新	D3	班委更新学生专业素质信息	D3	20次/月
P4.6	身心素质更新	D3	班委更新学生身心素质信息	D3	20次/月
P4.7	获奖情况更新	D3	班委更新获奖情况信息	D3	20次/月
P4.8	整合文件信息	D3	班委整合更新过的素质信息准备返回给总测评信息	D3	20次/月

2.6用例图

奖学金评分系统（系统分析与设计版与Delphi实现代码）

2.7 CRUD分析

用例	数据实体
用例	加分项	奖项	综合能力	身心素质	品德素质	专业素质	基本项信息	选课信息	学生
加分项查询	R	R							R
专业素质查询		R				R			R
基本项查询				R	R	R	R		R
选课查询								R	R
综合能力查询		R	R						R
获奖情况查询		R							R
评比方法查询	R		R	R	R	R	R	R	R
品德素质查询					R		R		R
专业素质更新						RUD	RUD		RUD
测评更新	RUD			RUD	RUD	RUD	RUD		RUD
基本项更新				RUD	RUD	RUD	RUD		RUD
综合能力更新			RUD						RUD
品德素质更新					RUD		RUD		RUD
加分项更新	RUD	RUD							RUD
选课更新								RUD	RUD
获奖情况更新		RUD							RUD

三、系统分析

3.1 数据库的设计

奖学金评分系统（系统分析与设计版与Delphi实现代码）

3.2 应用程序架构设计

B/S结构（Browser/Server结构）结构即浏览器和服务器结构。它是随着Internet技术的兴起，对C/S结构的一种变化或者改进的结构。在这种结构下，用户工作界面是通过WWW浏览器来实现，极少部分事务逻辑在前端（Browser）实现，但是主要事务逻辑在服务器端（Server）实现，形成所谓三层3-tier结构。这样就大大简化了客户端电脑载荷，减轻了系统维护与升级的成本和工作量，降低了用户的总体成本（TCO）。以目前的技术看，局域网建立B/S结构的网络应用，并通过Internet/Intranet模式下数据库应用，相对易于把握、成本也是较低的。它是一次性到位的开发，能实现不同的人员，从不同的地点，以不同的接入方式（比如LAN, WAN, Internet/Intranet等）访问和操作共同的数据库；它能有效地保护数据平台和管理访问权限，服务器数据库也很安全。特别是在JAVA这样的跨平台语言出现之后，B/S架构管理软件更是方便、速度快、效果优。

B/S模式最大特点是：用户可以通过WWW浏览器去访问Internet上的文本、数据、图像、动画、视频点播和声音信息，这些信息都是由许许多多的Web服务器产生的，而每一个Web服务器又可以通过各种方式与数据库服务器连接，大量的数据实际存放在数据库服务器中。客户端除了WWW浏览器，一般无须任何用户程序，只需从Web服务器上下载程序到本地来执行，在下载过程中若遇到与数据库有关的指令，由Web服务器交给数据库服务器来解释执行，并返回给Web服务器，Web服务器又返回给用户。在这种结构中，将许许多多的网连接到一块，形成一个巨大的网，即全球网。而各个企业可以在此结构的基础上建立自己的Intranet。

B/S模式的优点和缺点

B/S结构的优点

（1）、具有分布性特点，可以随时随地进行查询、浏览等业务处理。

（2）、业务扩展简单方便，通过增加网页即可增加服务器功能。

（3）、维护简单方便，只需要改变网页，即可实现所有用户的同步更新。

（4）、开发简单，共享性强

B/S 模式的缺点

（1）、个性化特点明显降低，无法实现具有个性化的功能要求。（个性化的要求取决以软件框架，而非架构，分享B/S软件就蛮灵活）

（2）、操作是以鼠标为最基本的操作方式，无法满足快速操作的要求。（如果辅助于插件，照样可以用键盘快速操作）

（3）、页面动态刷新，响应速度明显降低。（分享软件用分页保证响应速度稳定）

（4）、功能弱化，难以实现传统模式下的特殊功能要求。（技术问题，用微软C#或java怎么会不能解决任何要求呢）

二、C/S模式的优点和缺点

C/S 模式的优点

1.由于客户端实现与服务器的直接相连，没有中间环节，因此响应速度快。（当数据少时，速度与B/S软件一般；当数据超过十万时，C/S软件变慢，B/S软件能维持稳定速度）

2.操作界面漂亮、形式多样，可以充分满足客户自身的个性化要求。（似乎可以随意排列界面，但遇到第二客户要求时又要从头做起，比较灵活）

3.C/S结构的管理信息系统具有较强的事务处理能力，能实现复杂的业务流程。

C/S 模式的缺点

1.需要专门的客户端安装程序，分布功能弱，针对点多面广且不具备网络条件的用户群体，不能够实现快速部署安装和配置。

2.兼容性差，对于不同的开发工具，具有较大的局限性。若采用不同工具，需要重新改写程序。

3.开发成本较高，需要具有一定专业水准的技术人员才能完成。（就开发企业管理软件而言，C/S开发人员比B/S开发人员的成本低了许多）

综上所述，根据实际情况，我们组决定选择CS架构设计，因为在运行速度、数据安全、人机交互等方面，B/S远不如C/S。对于交互复杂的ERP等企业级应用，B/S则很难胜任，从全球范围看，成熟的ERP产品大多采用二层或三层C/S架构，B/S的ERP产品并不多见。在C/S中，客户端有一套完整的应用程序，在出错提示、在线帮助等方面都有强大的功能，并且可以在子程序间*切换。B/S虽然提供了一定的交互能力，但与C/S的一整套客户应用相比还是太有限了。

C/S提供了更安全的存取模式。由于C/S是配对的点对点的结构模式，采用使用于局域网、安全性比较好的网络协议，安全性可以得到比较好的保证。而B/S采用点对多点，多点对多点这种开放的结构模式，并TCP/IP这一类运用于Interner的开放性协议，其安全性只能靠数据库服务器上管理密码的数据库来保证。

C/S逻辑上只有两层结构，而B/S采用了三层结构，所以C/S处理大量信息的能力是B/S所无法比拟的。并且C/S对于相同的任务，C/S完成的速度总比B/S快，使得C/S更有利于处理大量数据。

3.3 界面设计与功能实现代码

1.用户登录

界面：

代码：
1. unit Unit1;
3. interface
5. uses
6. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7. Dialogs, DB, ADODB, StdCtrls, Buttons, Menus, bsSkinData, BusinessSkinForm,
8. bsSkinCtrls, Mask, bsSkinBoxCtrls;
10. type
11. TLogin = class(TForm)
12. Label1: TLabel;
13. Label2: TLabel;
14. Label3: TLabel;
15. ADOQuery1: TADOQuery;
16. RadioButton1: TRadioButton;
17. ComboBox1: TComboBox;
18. RadioButton2: TRadioButton;
19. bsBusinessSkinForm1: TbsBusinessSkinForm;
20. bsSkinData1: TbsSkinData;
21. bsCompressedStoredSkin1: TbsCompressedStoredSkin;
22. BitBtn1: TbsSkinButton;
23. BitBtn2: TbsSkinButton;
24. ADOQuery2: TADOQuery;
25. Edit1: TbsSkinPasswordEdit;
26. procedure BitBtn2Click(Sender: TObject);
27. procedure FormCreate(Sender: TObject);
28. procedure BitBtn1Click(Sender: TObject);
29. procedure TBitBtn2Click(Sender: TObject);
32. private
33. { Private declarations }
35. public
36. { Public declarations }
38. end;
40. var
41. Login: TLogin;
43. var
44. i: Integer;
45. num:integer;
46. username:String;
47. Quanxian:String;
48. implementation
50. uses Unit2, Unit8, Unit10;
54. {$R *.dfm}
63. procedure TLogin.TBitBtn2Click(Sender: TObject);
64. begin
65. self.Close;
66. end;
68. procedure TLogin.BitBtn2Click(Sender: TObject);
69. begin
70. Login.Close;
71. end;
73. procedure TLogin.BitBtn1Click(Sender: TObject);
74. var
78. Password:String;
79. str:string;
80. n:integer;
81. temp:String;
82. have:integer;
83. begin
85. {检查用户是否存在于Login}
86. have:=0;
87. for n := 4 downto 1 do
88. begin
89. ADOQuery1.Close;
90. ADOQuery1.SQL.Clear;
91. str:=floattostr(n);
92. ADOQuery1.SQL.Text:=‘select * from Login where Number=‘+str+‘‘;
93. ADOQuery1.Open;
94. ADOQuery1.Next;
95. temp:=ADOQuery1.fieldbyname(‘UserNum‘).AsString;
97. if Combobox1.Text=temp then
98. have:=1;
99. end;
105. {如果不存在则保存用户名称}
106. if have=0 then
108. begin
111. for n := 4 downto 1 do
112. begin
114. ADOQuery1.Close;
115. ADOQuery1.SQL.Clear;
116. str:=floattostr(n);
117. ADOQuery1.SQL.Text:=‘select * from Login where Number=‘+str+‘‘;
118. ADOQuery1.Open;
119. ADOQuery1.Next;
120. temp:=ADOQuery1.fieldbyname(‘UserNum‘).AsString;
122. str:=floattostr(n+1) ;
126. with ADOQuery1 do
127. begin
128. Close;
129. SQL.Clear;
130. SQL.Add(‘update Login set UserNum = :strMarry where Number = :strName ‘);
131. parameters.ParamByName(‘strMarry‘).Value := temp;
132. parameters.ParamByName(‘strName‘).Value := str;
133. execsql;
134. end;
136. end;
139. with ADOQuery1 do
140. begin
141. Close;
142. SQL.Clear;
143. SQL.Add(‘update Login set UserNum = :strMarry where Number = :strName ‘);
144. parameters.ParamByName(‘strMarry‘).Value := ComboBox1.Text;
145. parameters.ParamByName(‘strName‘).Value := str;
146. execsql;
147. end;
150. end;
157. {登入程序}
158. try
159. with adoquery1 do
160. begin
161. close;
162. sql.clear;
163. sql.add(‘select * from Student where Number =:a and Password=:b and Type=:c‘);
164. parameters.ParamByName(‘a‘).Value:=trim(combobox1.Text);
165. parameters.ParamByName(‘b‘).Value:=trim(edit1.Text);
166. if combobox1.Text =‘‘ then
167. begin
168. application.MessageBox(‘请输入用户名‘,‘提示信息‘,64);
169. combobox1.SetFocus;
170. exit;
171. end;
172. if edit1.Text =‘‘ then
173. begin
174. application.MessageBox(‘请输入密码‘,‘提示信息‘,64);
175. edit1.SetFocus;
176. exit;
177. end;
178. if radiobutton1.Checked=true then
179. begin
180. Quanxian:=‘0‘;
181. end;
182. if radiobutton2.Checked=true then
183. begin
184. Quanxian:=‘1‘;
185. end;
186. parameters.ParamByName(‘c‘).Value:=trim(quanxian);
187. open;
188. end;
189. if (adoquery1.RecordCount<>0) and (Quanxian=‘1‘) then
190. begin
191. Username:=combobox1.Text;
192. Password:=edit1.Text;
193. application.MessageBox(‘登陆成功‘,‘提示信息‘,64);
194. self.hide;
195. form8.show;
198. end
200. else if (adoquery1.RecordCount<>0) and (Quanxian=‘0‘) then
201. begin
202. Username:=combobox1.Text;
203. Password:=edit1.Text;
204. application.MessageBox(‘登陆成功‘,‘提示信息‘,64);
205. self.hide;
206. form8.show;
209. end
211. else
212. begin
213. if num=0 then
214. Login.Close;
215. num:=num-1;
216. application.MessageBox(‘输入的用户名或密码错误‘,‘提示信息‘,64);
217. end;
219. except
221. begin
222. if num=0 then
223. Login.Close;
224. num:=num-1;
225. application.MessageBox(‘输入的用户名或密码错误‘,‘提示信息‘,64);
227. end;
229. end;
231. end;
233. procedure TLogin.FormCreate(Sender: TObject);
234. var n:integer;
235. str:String;
236. begin
246. num:= 3;
251. for n := 1 to 4 do
252. begin
253. ADOQuery1.Close;
254. ADOQuery1.SQL.Clear;
255. str:=floattostr(n);
256. ADOQuery1.SQL.Text:=‘select * from Login where Number=‘+str+‘‘;
257. ADOQuery1.Open;
258. ADOQuery1.Next;
259. str:=ADOQuery1.fieldbyname(‘UserNum‘).AsString;
260. if str<>‘no‘ then
261. combobox1.Items.Add(str);
264. end;
265. end;
267. End.
2.
1. unit Unit8;
3. interface
5. uses
6. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7. Dialogs, bsSkinData, BusinessSkinForm, bsSkinCtrls, MPlayer, ExtCtrls,
8. OleCtrls, ShockwaveFlashObjects_TLB, StdCtrls, SkyGuage;
10. type
11. TForm8 = class(TForm)
12. bsBusinessSkinForm1: TbsBusinessSkinForm;
13. bsSkinData1: TbsSkinData;
14. bsCompressedStoredSkin1: TbsCompressedStoredSkin;
15. SkyGuage1: TSkyGuage;
16. Timer1: TTimer;
17. Image1: TImage;
18. Label1: TLabel;
19. procedure Timer1Timer(Sender: TObject);
20. procedure FormShow(Sender: TObject);
21. private
22. { Private declarations }
23. public
24. { Public declarations }
25. end;
27. var
28. Form8: TForm8;
30. implementation
32. uses Unit2, Unit1, Unit4;
34. {$R *.dfm}
38. procedure TForm8.FormShow(Sender: TObject);
39. begin
40. Image1.Picture.LoadFromFile(‘E:\微云\delphi\my奖学金评比系统\媒体文件\Login.bmp‘);
41. Timer1.Enabled:=true;
42. timer1.Interval:=300;
43. SkyGuage1.Progress:=0;
44. end;
46. procedure TForm8.Timer1Timer(Sender: TObject);
47. begin
48. if label1.Caption=‘加载中……‘ then
49. label1.Caption:=‘加载中…‘
50. else
51. label1.Caption:=‘加载中……‘ ;
54. SkyGuage1.Progress:=SkyGuage1.Progress+10;
55. if SkyGuage1.Progress=100 then
56. begin
57. timer1.Interval:=0;
58. self.Close;
59. MonitorForm.Show
60. end;
61. end;
63. End.
用户
1. unit Unit2;
3. interface
5. uses
6. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7. Dialogs, bsSkinData, BusinessSkinForm, bsSkinCtrls;
9. type
10. TMonitorForm = class(TForm)
11. bsBusinessSkinForm1: TbsBusinessSkinForm;
12. bsSkinData1: TbsSkinData;
13. bsCompressedStoredSkin1: TbsCompressedStoredSkin;
14. bsSkinButton1: TbsSkinButton;
15. bsSkinButton2: TbsSkinButton;
16. bsSkinButton4: TbsSkinButton;
17. bsSkinButton3: TbsSkinButton;
18. procedure bsSkinButton1Click(Sender: TObject);
19. procedure bsSkinButton2Click(Sender: TObject);
20. procedure FormClose(Sender: TObject; var Action: TCloseAction);
21. procedure bsSkinButton4Click(Sender: TObject);
22. procedure bsSkinButton3Click(Sender: TObject);
23. procedure FormShow(Sender: TObject);
24. private
25. { Private declarations }
26. public
27. { Public declarations }
28. end;
30. var
31. MonitorForm: TMonitorForm;
32. bo:integer;
33. implementation
35. uses Unit4, Unit6, Unit1, Unit12, Unit13;
37. {$R *.dfm}
39. procedure TMonitorForm.bsSkinButton1Click(Sender: TObject);
40. begin
41. bo:=0;
42. MyText.show;
43. self.hide;
44. end;
46. procedure TMonitorForm.bsSkinButton2Click(Sender: TObject);
47. begin
48. bo:=1;
49. self.Hide;
50. form6.Show;
51. end;
55. procedure TMonitorForm.bsSkinButton3Click(Sender: TObject);
56. begin
57. form13.show;
58. end;
60. procedure TMonitorForm.bsSkinButton4Click(Sender: TObject);
61. begin
62. self.Hide;
63. Login.show;
64. end;
66. procedure TMonitorForm.FormClose(Sender: TObject; var Action: TCloseAction);
67. begin
68. Login.close;
69. end;
71. procedure TMonitorForm.FormShow(Sender: TObject);
72. begin
73. if quanxian=‘0‘ then
74. bsskinbutton3.Enabled:=false;
75. end;
77. End.
我的测评
1. unit Unit4;
3. interface
5. uses
6. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7. Dialogs, ComCtrls, ExtCtrls, StdCtrls, bsSkinData, BusinessSkinForm,
8. bsSkinCtrls, bsPngImageList, DB, ADODB, Menus,ShellApi,WordXP,Comobj;
10. type
11. TMyText = class(TForm)
12. Image1: TImage;
13. GroupBox1: TGroupBox;
14. Label1: TLabel;
15. Label2: TLabel;
16. Label3: TLabel;
17. bsBusinessSkinForm1: TbsBusinessSkinForm;
18. bsSkinData1: TbsSkinData;
19. bsCompressedStoredSkin1: TbsCompressedStoredSkin;
20. GroupBox2: TGroupBox;
21. Label4: TLabel;
22. Label5: TLabel;
23. Button1: TButton;
24. Button2: TButton;
25. Label6: TLabel;
26. ADOQuery1: TADOQuery;
27. Label7: TLabel;
28. Label8: TLabel;
29. Label9: TLabel;
30. Label10: TLabel;
31. bsSkinMainMenu1: TbsSkinMainMenu;
32. N1: TMenuItem;
33. N2: TMenuItem;
34. N3: TMenuItem;
35. N4: TMenuItem;
36. N5: TMenuItem;
37. N6: TMenuItem;
38. N7: TMenuItem;
39. bsSkinMainMenuBar1: TbsSkinMainMenuBar;
40. N8: TMenuItem;
41. N9: TMenuItem;
42. N11: TMenuItem;
43. Label11: TLabel;
44. Label12: TLabel;
45. N12: TMenuItem;
46. N13: TMenuItem;
47. OpenDialog1: TOpenDialog;
48. N10: TMenuItem;
49. N14: TMenuItem;
50. N15: TMenuItem;
51. N16: TMenuItem;
52. N17: TMenuItem;
53. procedure bsSkinButton1Click(Sender: TObject);
54. procedure FormClose(Sender: TObject; var Action: TCloseAction);
55. procedure Button1Click(Sender: TObject);
56. procedure bsSkinButton4Click(Sender: TObject);
57. procedure FormShow(Sender: TObject);
58. procedure N7Click(Sender: TObject);
59. procedure N9Click(Sender: TObject);
60. procedure N4Click(Sender: TObject);
61. procedure Button2Click(Sender: TObject);
62. procedure N10Click(Sender: TObject);
63. procedure N12Click(Sender: TObject);
64. procedure N11Click(Sender: TObject);
65. procedure N13Click(Sender: TObject);
66. procedure N14Click(Sender: TObject);
69. private
70. { Private declarations }
71. public
72. { Public declarations }
73. end;
75. var
76. MyText: TMyText;
78. implementation
80. uses Unit6,Unit5, Unit9, Unit1, Unit2, Unit7, Unit11;
84. {$R *.dfm}
86. procedure TMyText.bsSkinButton1Click(Sender: TObject);
88. var str:string;
89. begin
92. if bo=0 then
94. str:=username
96. else
97. str:=str6;
100. Image1.Picture.LoadFromFile(‘E:\微云\delphi\my奖学金评比系统\信息1103 班级照片\‘+str+‘.bmp‘);
101. Label7.Caption:=str;
103. ADOQuery1.Close;
104. ADOQuery1.SQL.Clear;
105. ADOQuery1.SQL.Text:=‘select * from Student where Number=‘+str+‘‘;
106. ADOQuery1.Open;
107. ADOQuery1.Next;
108. Label6.Caption:=ADOQuery1.fieldbyname(‘Name‘).AsString;
109. Label8.Caption:=ADOQuery1.fieldbyname(‘Sex‘).AsString;
112. ADOQuery1.Close;
113. ADOQuery1.SQL.Clear;
114. ADOQuery1.SQL.Text:=‘select * from Basic where Number=‘+str+‘‘;
115. ADOQuery1.Open;
116. ADOQuery1.Next;
117. Label9.Caption:=ADOQuery1.fieldbyname(‘Ranking‘).AsString;
120. ADOQuery1.Close;
121. ADOQuery1.SQL.Clear;
122. ADOQuery1.SQL.Text:=‘select * from Comprehensive where Number=‘+str+‘‘;
123. ADOQuery1.Open;
124. ADOQuery1.Next;
125. Label10.Caption:=ADOQuery1.fieldbyname(‘Ranking‘).AsString;
128. end;
134. procedure TMyText.bsSkinButton4Click(Sender: TObject);
135. begin
138. self.hide;
139. form6.Show;
142. end;
144. procedure TMyText.Button1Click(Sender: TObject);
145. begin
147. form5.show;
148. end;
150. procedure TMyText.Button2Click(Sender: TObject);
151. begin
153. form9.show;
154. end;
156. procedure TMyText.FormClose(Sender: TObject; var Action: TCloseAction);
157. begin
158. Login.Close
159. end;
163. procedure TMyText.FormShow(Sender: TObject);
164. var
165. str:string;
166. begin
169. if (bo=0)or (bo=2) then
171. str:=username
173. else
174. str:=str6;
177. Image1.Picture.LoadFromFile(‘E:\微云\delphi\my奖学金评比系统\信息1103 班级照片\‘+str+‘.bmp‘);
178. Label7.Caption:=str;
180. ADOQuery1.Close;
181. ADOQuery1.SQL.Clear;
182. ADOQuery1.SQL.Text:=‘select * from Student where Number=‘+str+‘‘;
183. ADOQuery1.Open;
184. ADOQuery1.Next;
185. Label6.Caption:=ADOQuery1.fieldbyname(‘Name‘).AsString;
186. Label8.Caption:=ADOQuery1.fieldbyname(‘Sex‘).AsString;
189. ADOQuery1.Close;
190. ADOQuery1.SQL.Clear;
191. ADOQuery1.SQL.Text:=‘select * from Basic where Number=‘+str+‘‘;
192. ADOQuery1.Open;
193. ADOQuery1.Next;
194. Label9.Caption:=ADOQuery1.fieldbyname(‘Ranking‘).AsString;
195. Label11.Caption:=ADOQuery1.fieldbyname(‘Points‘).AsString;
197. ADOQuery1.Close;
198. ADOQuery1.SQL.Clear;
199. ADOQuery1.SQL.Text:=‘select * from Comprehensive where Number=‘+str+‘‘;
200. ADOQuery1.Open;
201. ADOQuery1.Next;
202. Label10.Caption:=ADOQuery1.fieldbyname(‘Ranking‘).AsString;
203. Label12.Caption:=ADOQuery1.fieldbyname(‘Points‘).AsString;
205. end;
207. procedure TMyText.N10Click(Sender: TObject);
208. begin
209. docname:=‘e‘;
210. form7.Caption:=‘素质评价方法‘;
211. form7.show;
212. end;
214. procedure TMyText.N11Click(Sender: TObject);
215. begin
216. docname:=‘b‘;
217. form7.Caption:=‘素质评价方法‘;
218. form7.show;
219. end;
221. procedure TMyText.N12Click(Sender: TObject);
222. var
223. fnm: String;
224. WordApp,WordDoc: Variant;
225. sContext: String;
226. begin
228. end;
230. procedure TMyText.N13Click(Sender: TObject);
231. begin
232. docname:=‘d‘;
233. form7.Caption:=‘素质评价方法‘;
234. form7.show;
235. end;
237. procedure TMyText.N14Click(Sender: TObject);
238. begin
239. form11.show;
240. end;
242. procedure TMyText.N4Click(Sender: TObject);
243. begin
244. ShellExecute(Handle, ‘open‘, PChar(‘C:\Windows\System32\calc.exe‘), nil, nil, SW_SHOW);
245. end;
247. procedure TMyText.N7Click(Sender: TObject);
248. begin
251. self.hide;
252. if bo=0 then
253. MonitorForm.show
254. else if bo=1 then
255. form6.Show;
257. end;
259. procedure TMyText.N9Click(Sender: TObject);
260. begin
261. docname:=‘a‘;
262. form7.Caption:=‘素质评价方法‘;
263. form7.show;
264. end;
266. End.
基本项
1. unit Unit5;
3. interface
5. uses
6. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7. Dialogs, StdCtrls, bsSkinData, BusinessSkinForm, bsSkinCtrls, Mask,
8. bsSkinBoxCtrls, DB, ADODB, Menus;
10. type
11. TForm5 = class(TForm)
12. GroupBox2: TGroupBox;
13. Label4: TLabel;
14. Label5: TLabel;
15. Label6: TLabel;
16. Label7: TLabel;
17. Label8: TLabel;
18. Label9: TLabel;
19. Label10: TLabel;
20. GroupBox3: TGroupBox;
21. Label14: TLabel;
22. Label17: TLabel;
23. Button1: TButton;
24. GroupBox1: TGroupBox;
25. Label1: TLabel;
26. Label2: TLabel;
27. Label3: TLabel;
28. Label11: TLabel;
29. bsBusinessSkinForm1: TbsBusinessSkinForm;
30. bsSkinData1: TbsSkinData;
31. bsCompressedStoredSkin1: TbsCompressedStoredSkin;
32. Label20: TLabel;
33. Label23: TLabel;
34. Label24: TLabel;
35. Label25: TLabel;
36. Label26: TLabel;
37. ADOQuery1: TADOQuery;
38. bsSkinMainMenu1: TbsSkinMainMenu;
39. N1: TMenuItem;
40. N2: TMenuItem;
41. N3: TMenuItem;
42. N4: TMenuItem;
43. N5: TMenuItem;
44. N7: TMenuItem;
45. bsSkinMainMenuBar1: TbsSkinMainMenuBar;
46. bsSkinButton1: TbsSkinButton;
47. Edit1: TEdit;
48. Edit2: TEdit;
49. Edit3: TEdit;
50. Button2: TButton;
51. Label12: TLabel;
52. Edit6: TEdit;
53. Edit7: TEdit;
54. bsSkinButton2: TbsSkinButton;
55. Label13: TLabel;
56. Label15: TLabel;
57. procedure FormClose(Sender: TObject; var Action: TCloseAction);
58. procedure bsSkinButton2Click(Sender: TObject);
59. procedure FormShow(Sender: TObject);
60. procedure Button1Click(Sender: TObject);
61. procedure N7Click(Sender: TObject);
62. procedure bsSkinButton1Click(Sender: TObject);
63. private
64. { Private declarations }
65. public
66. { Public declarations }
67. end;
69. var
70. Form5: TForm5;
72. implementation
74. uses Unit4, Unit1, Unit6, Unit10, Unit9, Unit2;
76. {$R *.dfm}
78. procedure TForm5.bsSkinButton1Click(Sender: TObject);
79. begin
81. application.MessageBox(‘基本测评分=品德素质×25%+专业素质×60%+身心素质‘+
82. ‘×15%‘+#13+‘品德素质分=评议成绩×70%+记实成绩×30%‘+#13+
83. ‘评议成绩=学生自评成绩×5%+学生代表评议成绩×70%+辅导员评议成绩×25%‘+#13+
84. ‘身心素质分=身体素质评价×70%+心理素质评价×30%‘,‘基本项评比方法‘,64);
85. end;
87. procedure TForm5.bsSkinButton2Click(Sender: TObject);
88. var m1,m2,m3,m4,Bm:real;
89. temp,str:string;
90. i,n:integer;
91. begin
92. if bo=0 then
94. str:=username
96. else
97. str:=str6;
100. {品德素质更新}
102. {Morality表}
103. with adoquery1 do
104. begin
105. close;
106. sql.clear;
107. sql.add(‘UPDATE Morality SET Self = :a, Student = :b,Instructor=:c,Points ‘+
108. ‘= :d WHERE Number = ‘+str);
109. parameters.ParamByName(‘a‘).Value:=trim(edit1.Text);
110. parameters.ParamByName(‘b‘).Value:=trim(edit2.Text);
111. parameters.ParamByName(‘c‘).Value:=trim(edit3.Text);
112. temp:=floattostr(strtoint(edit1.Text)*0.05+strtoint(edit2.Text)*0.7+strtoint(edit3.Text)*0.25);
113. parameters.ParamByName(‘d‘).Value:=trim(temp);
114. ExecSQL;
115. end;
117. {读取人数}
118. ADOQuery1.Close;
119. ADOQuery1.SQL.Clear;
120. ADOQuery1.SQL.Text:=‘select count(Number) as n from Student‘;
121. ADOQuery1.Open;
122. ADOQuery1.Next;
123. n:=ADOQuery1.fieldbyname(‘n‘).AsInteger;
127. for I := 0 to n-1 do
128. begin
129. {读取第i+1行号的人的学号}
130. ADOQuery1.Close;
131. ADOQuery1.SQL.Clear;
132. ADOQuery1.SQL.Text:=‘select top 1 Number from Morality where Number not in ( select‘+
133. ‘ top ‘+inttostr(i)+‘ Number from Morality)‘;
134. ADOQuery1.Open;
135. ADOQuery1.Next;
136. temp:=ADOQuery1.fieldbyname(‘Number‘).AsString;
141. ADOQuery1.Close;
142. ADOQuery1.SQL.Clear;
143. ADOQuery1.SQL.Text:=‘UPDATE Morality SET Ranking =(select COUNT(Number) from‘+
144. ‘ Morality where Points>=(select Points from Morality where‘+
145. ‘ Number= ‘‘‘+temp+‘‘‘))+1 where Number=‘+temp+‘‘;
146. ADOQuery1.ExecSQL;
148. end;
163. {身心素质更新}
164. {MindandBoy}
165. with adoquery1 do
166. begin
167. close;
168. sql.clear;
169. sql.add(‘UPDATE MindAndBody SET Body = :a, Mind = :b,Points=:c ‘+
170. ‘ WHERE Number = ‘+str);
171. parameters.ParamByName(‘a‘).Value:=trim(edit6.Text);
172. parameters.ParamByName(‘b‘).Value:=trim(edit7.Text);
173. temp:=floattostr(strtofloat(edit6.Text)*0.7+strtofloat(edit7.Text)*0.3);
174. parameters.ParamByName(‘c‘).Value:=trim(temp);
175. ExecSQL;
176. end;
180. for I := 0 to n-1 do
181. begin
182. {读取第i+1行号的人的学号}
183. ADOQuery1.Close;
184. ADOQuery1.SQL.Clear;
185. ADOQuery1.SQL.Text:=‘select top 1 Number from MindAndBody where Number not in ( select‘+
186. ‘ top ‘+inttostr(i)+‘ Number from MindAndBody)‘;
187. ADOQuery1.Open;
188. ADOQuery1.Next;
189. temp:=ADOQuery1.fieldbyname(‘Number‘).AsString;
193. ADOQuery1.Close;
194. ADOQuery1.SQL.Clear;
195. ADOQuery1.SQL.Text:=‘UPDATE MindAndBody SET Ranking =(select COUNT(Number) from‘+
196. ‘ MindAndBody where Points>=(select Points from MindAndBody where‘+
197. ‘ Number= ‘‘‘+temp+‘‘‘))+1 where Number=‘+temp+‘‘;
198. ADOQuery1.ExecSQL;
200. end;
206. application.MessageBox(‘更新成功！‘,‘提示信息‘,1);
210. end;
212. procedure TForm5.Button1Click(Sender: TObject);
213. begin
214. form9.show;
215. form9.bsskinComboBox1.ItemIndex:=1;
216. end;
218. procedure TForm5.FormClose(Sender: TObject; var Action: TCloseAction);
219. begin
220. Login.close;
221. end;
223. procedure TForm5.FormShow(Sender: TObject);
224. var m1,m2,m3,m4,Bm:real;
225. temp,str,Bstr:string;
226. begin
228. if Quanxian=‘0‘ then
229. begin
230. bsskinbutton2.Enabled:=false;
231. edit1.Enabled:= false;
232. edit2.Enabled:= false;
233. edit3.Enabled:= false;
234. edit6.Enabled:= false;
235. edit7.Enabled:= false;
236. end;
242. if (bo=0) or (bo=2) then
244. str:=username
246. else
247. str:=str6;
250. {品德素质}
251. ADOQuery1.Close;
252. ADOQuery1.SQL.Clear;
253. ADOQuery1.SQL.Text:=‘select * from Morality where Number = ‘+str+‘‘;
254. ADOQuery1.Open;
255. ADOQuery1.Next;
258. Edit1.Text:=ADOQuery1.fieldbyname(‘Self‘).AsString;
259. Edit2.Text:=ADOQuery1.fieldbyname(‘Student‘).AsString;
260. Edit3.Text:=ADOQuery1.fieldbyname(‘Instructor‘).AsString;
261. Label13.Caption:=ADOQuery1.fieldbyname(‘Record‘).AsString;
262. m1:=strtofloat(Edit1.Text) ;
263. m2:=strtofloat(Edit2.Text) ;
264. m3:=strtofloat(Edit3.Text) ;
265. m4:=strtofloat(Label13.Caption) ;
266. Bm:=m1*0.05+m2*0.7+m3*0.25;
267. Bstr:=floattostr(Bm);
268. Bstr:=copy(Bstr,0,4);
269. label15.Caption:=Bstr ;
271. temp:=ADOQuery1.fieldbyname(‘Points‘).AsString;
272. temp:=copy(temp,0,4);
273. Label12.Caption:=temp;
275. Label20.Caption:=ADOQuery1.fieldbyname(‘Ranking‘).AsString;
278. {身心}
279. ADOQuery1.Close;
280. ADOQuery1.SQL.Clear;
281. ADOQuery1.SQL.Text:=‘select * from MindAndBody where Number=‘+str+‘‘;
282. ADOQuery1.Open;
283. ADOQuery1.Next;
285. edit6.Text:=ADOQuery1.fieldbyname(‘Body‘).AsString;
286. edit7.Text:=ADOQuery1.fieldbyname(‘Mind‘).AsString;
288. temp:=ADOQuery1.fieldbyname(‘Points‘).AsString;
289. temp:=copy(temp,0,4);
290. Label23.Caption:=temp;
292. Label24.Caption:=ADOQuery1.fieldbyname(‘Ranking‘).AsString;
296. {专业}
297. ADOQuery1.Close;
298. ADOQuery1.SQL.Clear;
299. ADOQuery1.SQL.Text:=‘select * from Specialty where Number=‘+str+‘‘;
300. ADOQuery1.Open;
301. ADOQuery1.Next;
303. temp:=ADOQuery1.fieldbyname(‘Points‘).AsString;
304. temp:=copy(temp,0,4);
305. Label25.Caption:=temp;
307. Label26.Caption:=ADOQuery1.fieldbyname(‘Ranking‘).AsString;
308. end;
310. procedure TForm5.N7Click(Sender: TObject);
311. begin
312. self.Hide;
313. MyText.show
315. end;
317. End.
6.专业素质
1. unit Unit10;
3. interface
5. uses
6. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7. Dialogs, BusinessSkinForm, bsSkinData, bsSkinCtrls, Menus, bsdbctrls,
8. bsSkinGrids, bsDBGrids, DB, ADODB, StdCtrls, bsSkinBoxCtrls;
10. type
11. TForm10 = class(TForm)
12. bsCompressedStoredSkin1: TbsCompressedStoredSkin;
13. bsSkinData1: TbsSkinData;
14. bsBusinessSkinForm1: TbsBusinessSkinForm;
15. bsSkinMainMenu1: TbsSkinMainMenu;
16. N1: TMenuItem;
17. N2: TMenuItem;
18. N3: TMenuItem;
19. N4: TMenuItem;
20. N5: TMenuItem;
21. N6: TMenuItem;
22. N8: TMenuItem;
23. N9: TMenuItem;
24. N10: TMenuItem;
25. N11: TMenuItem;
26. N7: TMenuItem;
27. bsSkinMainMenuBar1: TbsSkinMainMenuBar;
28. bsSkinDBNavigator1: TbsSkinDBNavigator;
29. ADOQuery1: TADOQuery;
30. ADOConnection1: TADOConnection;
31. DataSource1: TDataSource;
32. bsSkinDBGrid1: TbsSkinDBGrid;
33. Label1: TLabel;
34. Label2: TLabel;
35. Label3: TLabel;
36. bsSkinComboBox1: TbsSkinComboBox;
37. Edit1: TEdit;
38. Edit2: TEdit;
39. bsSkinButton1: TbsSkinButton;
40. bsSkinButton2: TbsSkinButton;
41. bsSkinButton3: TbsSkinButton;
42. procedure FormShow(Sender: TObject);
43. procedure N7Click(Sender: TObject);
44. procedure FormCreate(Sender: TObject);
45. private
46. { Private declarations }
47. public
48. { Public declarations }
49. end;
51. var
52. Form10: TForm10;
54. implementation
56. uses Unit1, Unit5;
58. {$R *.dfm}
60. procedure TForm10.FormCreate(Sender: TObject);
61. begin
62. bsSkinCombobox1.Items.Add(‘全部‘) ;
63. bsSkinCombobox1.Items.Add(‘必修课‘) ;
64. bsSkinCombobox1.Items.Add(‘专业选修课‘) ;
65. bsskinComboBox1.ItemIndex:=0;
66. end;
68. procedure TForm10.FormShow(Sender: TObject);
69. var
70. S : string;
72. begin
73. S := ‘select * from SC,Course where SC.Course=Course.CNumber and Number=‘+username;
74. with ADOQuery1 do
75. begin
76. Close;
77. SQL.Clear;
78. SQL.Add(S);
79. Open;
80. end;
81. end;
83. procedure TForm10.N7Click(Sender: TObject);
84. begin
85. self.Hide;
86. form5.show;
87. end;
89. End.
个人加分项
1. unit Unit9;
3. interface
5. uses
6. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7. Dialogs, BusinessSkinForm, bsSkinData, bsSkinCtrls, Menus, bsdbctrls,
8. bsSkinGrids, bsDBGrids, DB, ADODB, StdCtrls, bsSkinBoxCtrls, Grids, DBGrids;
10. type
11. TForm9 = class(TForm)
12. bsBusinessSkinForm1: TbsBusinessSkinForm;
13. bsCompressedStoredSkin1: TbsCompressedStoredSkin;
14. bsSkinData1: TbsSkinData;
15. bsSkinDBNavigator1: TbsSkinDBNavigator;
16. bsSkinMainMenu1: TbsSkinMainMenu;
17. N1: TMenuItem;
18. N2: TMenuItem;
19. N3: TMenuItem;
20. N4: TMenuItem;
21. N5: TMenuItem;
22. N6: TMenuItem;
23. N7: TMenuItem;
24. bsSkinMainMenuBar1: TbsSkinMainMenuBar;
25. ADOConnection1: TADOConnection;
26. ADOPerson: TADOQuery;
27. DataSource1: TDataSource;
28. bsskindbgrid1: TbsSkinDBGrid;
29. bsSkinComboBox1: TbsSkinComboBox;
30. Edit1: TEdit;
31. Edit2: TEdit;
32. Label1: TLabel;
33. Label2: TLabel;
34. Label3: TLabel;
35. Add: TbsSkinButton;
36. bsSkinButton3: TbsSkinButton;
37. bsSkinButton1: TbsSkinButton;
38. ADOQuery1: TADOQuery;
39. procedure FormShow(Sender: TObject);
40. procedure N7Click(Sender: TObject);
41. procedure AddClick(Sender: TObject);
42. procedure FormCreate(Sender: TObject);
43. procedure bsskindbgrid1CellClick(Column: TbsColumn);
44. procedure bsSkinComboBox1Click(Sender: TObject);
45. procedure bsSkinButton3Click(Sender: TObject);
46. procedure bsSkinButton1Click(Sender: TObject);
47. private
48. { Private declarations }
49. public
50. { Public declarations }
51. end;
53. var
54. Form9: TForm9;
55. S : string;
56. str:string;
57. implementation
59. uses Unit1, Unit4, Unit3, Unit6, Unit2;
61. {$R *.dfm}
63. procedure TForm9.AddClick(Sender: TObject);
64. begin
65. form3.show
66. end;
69. procedure TForm9.bsSkinButton1Click(Sender: TObject);
70. var Szuan,Syan,Szu,Sshe,Swen,n,i:integer;
71. sum:real;
72. temp:string;
73. begin
74. if bo=0 then
76. str:=username
78. else
79. str:=str6;
81. ADOQuery1.Close;
82. ADOQuery1.SQL.Clear;
83. ADOQuery1.SQL.Text:=‘select sum(EGrade) as n from SE,Extra where SE.EName=Extra.EName and Number= ‘+str+‘ and EType =‘‘专业技能‘‘ ‘;
84. ADOQuery1.Open;
85. ADOQuery1.Next;
86. Szuan:=ADOQuery1.fieldbyname(‘n‘).AsInteger;
88. ADOQuery1.Close;
89. ADOQuery1.SQL.Clear;
90. ADOQuery1.SQL.Text:=‘select sum(EGrade) as n from SE,Extra where SE.EName=Extra.EName and Number= ‘+str+‘ and EType = ‘‘研究创新‘‘ ‘;
91. ADOQuery1.Open;
92. ADOQuery1.Next;
93. Syan:=ADOQuery1.fieldbyname(‘n‘).AsInteger;
97. ADOQuery1.Close;
98. ADOQuery1.SQL.Clear;
99. ADOQuery1.SQL.Text:=‘select sum(EGrade) as n from SE,Extra where SE.EName=Extra.EName and Number= ‘+str+‘ and EType = ‘‘组织领导‘‘ ‘;
100. ADOQuery1.Open;
101. ADOQuery1.Next;
102. Szu:=ADOQuery1.fieldbyname(‘n‘).AsInteger;
104. ADOQuery1.Close;
105. ADOQuery1.SQL.Clear;
106. ADOQuery1.SQL.Text:=‘select sum(EGrade) as n from SE,Extra where SE.EName=Extra.EName and Number= ‘+str+‘ and EType = ‘‘社会实践‘‘ ‘;
107. ADOQuery1.Open;
108. ADOQuery1.Next;
109. Sshe:=ADOQuery1.fieldbyname(‘n‘).AsInteger;
111. ADOQuery1.Close;
112. ADOQuery1.SQL.Clear;
113. ADOQuery1.SQL.Text:=‘select sum(EGrade) as n from SE,Extra where SE.EName=Extra.EName and Number= ‘+str+‘ and EType = ‘‘文体特长‘‘ ‘;
114. ADOQuery1.Open;
115. ADOQuery1.Next;
116. Swen:=ADOQuery1.fieldbyname(‘n‘).AsInteger;
118. sum:=75+Syan*0.3+Szuan*0.25+Szu*0.15+Sshe*0.15+Swen*0.15;
119. {更新综合能力表的Point}
120. with adoquery1 do
121. begin
122. close;
123. sql.clear;
124. sql.add(‘UPDATE Comprehensive SET Points = ‘+floattostr(sum)+‘ WHERE Number = ‘+str);
125. ExecSQL;
126. end;
128. {读取人数}
129. ADOQuery1.Close;
130. ADOQuery1.SQL.Clear;
131. ADOQuery1.SQL.Text:=‘select count(Number) as n from Student‘;
132. ADOQuery1.Open;
133. ADOQuery1.Next;
134. n:=ADOQuery1.fieldbyname(‘n‘).AsInteger;
138. {更新综合能力表的Ranking}
139. for I := 0 to n-1 do
140. begin
141. {读取第i+1行号的人的学号}
142. ADOQuery1.Close;
143. ADOQuery1.SQL.Clear;
144. ADOQuery1.SQL.Text:=‘select top 1 Number from Comprehensive where Number not in ( select‘+
145. ‘ top ‘+inttostr(i)+‘ Number from Comprehensive)‘;
146. ADOQuery1.Open;
147. ADOQuery1.Next;
148. temp:=ADOQuery1.fieldbyname(‘Number‘).AsString;
153. ADOQuery1.Close;
154. ADOQuery1.SQL.Clear;
155. ADOQuery1.SQL.Text:=‘UPDATE Comprehensive SET Ranking =(select COUNT(Number) from‘+
156. ‘ Comprehensive where Points>=(select Points from Comprehensive where‘+
157. ‘ Number= ‘‘‘+temp+‘‘‘))+1 where Number=‘+temp+‘‘;
158. ADOQuery1.ExecSQL;
160. end;
162. application.MessageBox(‘更新成功！‘,‘提示信息‘,1);
166. end;
168. procedure TForm9.bsSkinButton3Click(Sender: TObject);
169. var n:integer;
170. begin
172. with adoperson do
173. begin
174. close;
175. sql.clear;
176. sql.add(‘DELETE FROM SE WHERE EName=:a and Number = ‘+str);
177. parameters.ParamByName(‘a‘).Value:=trim(edit1.Text);
178. ExecSQL;
179. end;
183. if bsskincombobox1.Text=‘实记‘ then n:=1
184. else if bsskincombobox1.Text=‘专业技能‘ then n:=2
185. else if bsskincombobox1.Text=‘研究创新‘ then n:=3
186. else if bsskincombobox1.Text=‘组织领导‘ then n:=4
187. else if bsskincombobox1.Text=‘社会实践‘ then n:=5
188. else if bsskincombobox1.Text=‘文体特长‘ then n:=6;
189. bsskinComboBox1.ItemIndex:=n;
191. end;
193. procedure TForm9.bsSkinComboBox1Click(Sender: TObject);
194. begin
196. if bsskincombobox1.Text=‘全部‘ then
197. s:= ‘select * from SE,Extra where SE.EName=Extra.EName and Number= ‘+str
198. else
199. S := ‘select * from SE,Extra where SE.EName=Extra.EName and Number= ‘+str+‘ and EType = ‘‘‘+bsSkinCombobox1.Text+‘‘‘ ‘;
200. with ADOPerson do
201. begin
202. Close;
203. SQL.Clear;
204. SQL.Add(S);
205. Open;
206. end;
207. end;
209. procedure TForm9.bsskindbgrid1CellClick(Column: TbsColumn);
210. var
211. temp:string;
212. n:integer;
213. begin
214. edit1.text:=ADOPerson.fieldbyname(‘EName‘).asstring;
215. edit2.text:=ADOPerson.fieldbyname(‘EGrade‘).asstring;
216. temp:= ADOPerson.fieldbyname(‘EType‘).asstring;
219. if temp=‘实记‘ then n:=1
220. else if temp=‘专业技能‘ then n:=2
221. else if temp=‘研究创新‘ then n:=3
222. else if temp=‘组织领导‘ then n:=4
223. else if temp=‘社会实践‘ then n:=5
224. else if temp=‘文体特长‘ then n:=6;
225. bsskinComboBox1.ItemIndex:=n;
226. end;
228. procedure TForm9.FormCreate(Sender: TObject);
229. begin
230. bsSkinCombobox1.Items.Add(‘全部‘) ;
231. bsSkinCombobox1.Items.Add(‘实记‘) ;
232. bsSkinCombobox1.Items.Add(‘专业技能‘) ;
233. bsSkinCombobox1.Items.Add(‘研究创新‘) ;
234. bsSkinCombobox1.Items.Add(‘组织领导‘) ;
235. bsSkinCombobox1.Items.Add(‘社会实践‘) ;
236. bsSkinCombobox1.Items.Add(‘文体特长‘) ;
237. bsskinComboBox1.ItemIndex:=0;
238. end;
240. procedure TForm9.FormShow(Sender: TObject);
243. begin
246. if (bo=0)or (bo=2) then
248. str:=username
250. else
251. str:=str6;
254. if quanxian=‘0‘ then
255. begin
256. add.Enabled:=false;
257. bsskinbutton3.Enabled:=false;
258. end;
263. S := ‘select * from SE,Extra where SE.EName=Extra.EName and Number=‘+str;
264. with ADOPerson do
265. begin
266. Close;
267. SQL.Clear;
268. SQL.Add(S);
269. Open;
270. end;
271. end;
274. procedure TForm9.N7Click(Sender: TObject);
275. begin
276. self.Hide;
277. MyText.show
278. end;
280. End.
加分项总汇
1. unit Unit3;
3. interface
5. uses
6. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7. Dialogs, bsSkinCtrls, StdCtrls, bsSkinBoxCtrls, bsSkinData, BusinessSkinForm,
8. bsSkinGrids, bsDBGrids, bsdbctrls, Menus, DB, ADODB;
10. type
11. TForm3 = class(TForm)
12. bsSkinMainMenuBar1: TbsSkinMainMenuBar;
13. bsSkinMainMenu1: TbsSkinMainMenu;
14. N1: TMenuItem;
15. N2: TMenuItem;
16. N3: TMenuItem;
17. N4: TMenuItem;
18. N5: TMenuItem;
19. N6: TMenuItem;
20. N7: TMenuItem;
21. bsSkinDBNavigator1: TbsSkinDBNavigator;
22. bsSkinDBGrid1: TbsSkinDBGrid;
23. bsBusinessSkinForm1: TbsBusinessSkinForm;
24. bsSkinData1: TbsSkinData;
25. bsCompressedStoredSkin1: TbsCompressedStoredSkin;
26. Label1: TLabel;
27. Label2: TLabel;
28. Label3: TLabel;
29. bsSkinComboBox1: TbsSkinComboBox;
30. Edit1: TEdit;
31. Edit2: TEdit;
32. bsSkinButton1: TbsSkinButton;
33. bsSkinButton2: TbsSkinButton;
34. bsSkinButton3: TbsSkinButton;
35. ADOQuery1: TADOQuery;
36. DataAll: TDataSource;
37. bsSkinButton4: TbsSkinButton;
38. procedure FormCreate(Sender: TObject);
39. procedure FormShow(Sender: TObject);
40. procedure bsSkinComboBox1Change(Sender: TObject);
41. procedure bsSkinDBGrid1CellClick(Column: TbsColumn);
42. procedure FormClose(Sender: TObject; var Action: TCloseAction);
43. procedure bsSkinButton1Click(Sender: TObject);
44. procedure bsSkinComboBox1Click(Sender: TObject);
45. procedure bsSkinButton3Click(Sender: TObject);
46. procedure bsSkinButton2Click(Sender: TObject);
47. private
48. { Private declarations }
49. public
50. { Public declarations }
51. end;
53. var
54. Form3: TForm3;
55. str:string;
56. implementation
58. uses Unit1, Unit2, Unit6, Unit9;
60. {$R *.dfm}
62. procedure TForm3.bsSkinButton1Click(Sender: TObject);
64. begin
65. with form9.ADOPerson do
66. begin
67. close;
68. sql.clear;
69. sql.add(‘INSERT INTO SE VALUES (:a,:b)‘);
70. parameters.ParamByName(‘a‘).Value:=trim(str);
71. parameters.ParamByName(‘b‘).Value:=trim(edit1.Text);
72. ExecSQL;
73. end;
75. form9.bsskinComboBox1.ItemIndex:=0;
76. end;
78. procedure TForm3.bsSkinButton2Click(Sender: TObject);
79. begin
80. with ADOQuery1 do
81. begin
82. close;
83. sql.clear;
84. sql.add(‘DELETE FROM Extra WHERE EName=:a‘);
85. parameters.ParamByName(‘a‘).Value:=trim(edit1.Text);
86. ExecSQL;
87. end;
88. bsskinComboBox1.ItemIndex:=0;
89. end;
91. procedure TForm3.bsSkinButton3Click(Sender: TObject);
92. var n:integer;
93. begin
94. with ADOQuery1 do
95. begin
96. close;
97. sql.clear;
98. sql.add(‘DELETE FROM Extra WHERE EName=:a‘);
99. parameters.ParamByName(‘a‘).Value:=trim(edit1.Text);
100. ExecSQL;
101. end;
103. if bsskincombobox1.Text=‘实记‘ then n:=1
104. else if bsskincombobox1.Text=‘专业技能‘ then n:=2
105. else if bsskincombobox1.Text=‘研究创新‘ then n:=3
106. else if bsskincombobox1.Text=‘组织领导‘ then n:=4
107. else if bsskincombobox1.Text=‘社会实践‘ then n:=5
108. else if bsskincombobox1.Text=‘文体特长‘ then n:=6;
109. bsskinComboBox1.ItemIndex:=n;
111. end;
113. procedure TForm3.bsSkinComboBox1Change(Sender: TObject);
114. var s:string;
115. begin
117. end;
119. procedure TForm3.bsSkinComboBox1Click(Sender: TObject);
120. begin
122. if bsskincombobox1.Text=‘全部‘ then
123. s:= ‘select * from Extra‘
124. else
125. S := ‘select * from Extra where EType = ‘‘‘+bsSkinCombobox1.Text+‘‘‘ ‘;
130. with ADOQuery1 do
131. begin
132. Close;
133. SQL.Clear;
134. SQL.Add(S);
135. Open;
136. end;
137. end;
139. procedure TForm3.bsSkinDBGrid1CellClick(Column: TbsColumn);
140. var
141. temp:string;
142. n:integer;
143. begin
144. edit1.text:=adoquery1.fieldbyname(‘EName‘).asstring;
145. edit2.text:=adoquery1.fieldbyname(‘EGrade‘).asstring;
146. temp:= adoquery1.fieldbyname(‘EType‘).asstring;
148. if temp=‘实记‘ then n:=1
149. else if temp=‘专业技能‘ then n:=2
150. else if temp=‘研究创新‘ then n:=3
151. else if temp=‘组织领导‘ then n:=4
152. else if temp=‘社会实践‘ then n:=5
153. else if temp=‘文体特长‘ then n:=6;
154. bsskinComboBox1.ItemIndex:=n;
155. end;
157. procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
158. begin
159. form9.add.enabled:=true;
160. end;
162. procedure TForm3.FormCreate(Sender: TObject);
163. begin
164. bsSkinCombobox1.Items.Add(‘全部‘) ;
165. bsSkinCombobox1.Items.Add(‘实记‘) ;
166. bsSkinCombobox1.Items.Add(‘专业技能‘) ;
167. bsSkinCombobox1.Items.Add(‘研究创新‘) ;
168. bsSkinCombobox1.Items.Add(‘组织领导‘) ;
169. bsSkinCombobox1.Items.Add(‘社会实践‘) ;
170. bsSkinCombobox1.Items.Add(‘文体特长‘) ;
171. bsskinComboBox1.ItemIndex:=0;
172. end;
174. procedure TForm3.FormShow(Sender: TObject);
175. var
176. s:string;
177. begin
178. form9.add.enabled:=false;
180. if (bo=0)or (bo=2) then
182. str:=username
184. else
185. str:=str6;
187. S := ‘select * from Extra‘;
188. with ADOQuery1 do
189. begin
190. Close;
191. SQL.Clear;
192. SQL.Add(S);
193. Open;
194. end;
195. end;
197. end.
评比方法
1. unit Unit7;
3. interface
5. uses
6. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7. Dialogs, bsSkinData, BusinessSkinForm, StdCtrls, bsSkinBoxCtrls, Word2000,
8. OleServer,Comobj, OleCtnrs, Menus, ExtCtrls;
10. type
11. TForm7 = class(TForm)
12. bsBusinessSkinForm1: TbsBusinessSkinForm;
13. bsSkinData1: TbsSkinData;
14. bsCompressedStoredSkin1: TbsCompressedStoredSkin;
15. MainMenu1: TMainMenu;
16. MainMenu2: TMainMenu;
17. OleContainer1: TOleContainer;
18. procedure FormShow(Sender: TObject);
22. private
23. { Private declarations }
24. public
25. { Public declarations }
26. end;
28. var
29. Form7: TForm7;
30. docname:string;
31. implementation
33. {$R *.dfm}
37. procedure TForm7.FormShow(Sender: TObject);
38. begin
40. oleContainer1.CreateObjectFromFile(‘E:\微云\delphi\my奖学金评比系统\data\‘+docname+‘.doc‘,False);
41. oleContainer1.DoVerb(ovShow);
43. end;
45. End.
公共查询
1. unit Unit6;
3. interface
5. uses
6. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7. Dialogs, bsSkinData, BusinessSkinForm, bsSkinCtrls, StdCtrls, Mask,
8. bsSkinBoxCtrls, Menus;
10. type
11. TForm6 = class(TForm)
12. bsBusinessSkinForm1: TbsBusinessSkinForm;
13. bsSkinData1: TbsSkinData;
14. bsCompressedStoredSkin1: TbsCompressedStoredSkin;
15. Label1: TLabel;
16. bsSkinEdit1: TbsSkinEdit;
17. bsSkinButton1: TbsSkinButton;
18. bsSkinMainMenu1: TbsSkinMainMenu;
19. N1: TMenuItem;
20. N2: TMenuItem;
21. N3: TMenuItem;
22. N4: TMenuItem;
23. N5: TMenuItem;
24. N6: TMenuItem;
25. N8: TMenuItem;
26. N9: TMenuItem;
27. N10: TMenuItem;
28. N11: TMenuItem;
29. N7: TMenuItem;
30. bsSkinMainMenuBar1: TbsSkinMainMenuBar;
31. procedure FormClose(Sender: TObject; var Action: TCloseAction);
32. procedure bsSkinButton1Click(Sender: TObject);
33. procedure N7Click(Sender: TObject);
34. private
35. { Private declarations }
36. public
37. { Public declarations }
38. end;
40. var
41. Form6: TForm6;
42. str6:string;
43. implementation
45. uses Unit1, Unit4, Unit2;
47. {$R *.dfm}
49. procedure TForm6.bsSkinButton1Click(Sender: TObject);
50. begin
51. str6:=bsSkinEdit1.Text;
52. self.Hide;
53. MyText.show;
54. end;
56. procedure TForm6.FormClose(Sender: TObject; var Action: TCloseAction);
57. begin
58. Login.Close;
59. end;
61. procedure TForm6.N7Click(Sender: TObject);
62. begin
64. self.hide;
65. MonitorForm.show;
69. end;
71. End.
评奖评优
1. unit Unit13;
3. interface
5. uses
6. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7. Dialogs, bsSkinCtrls, bsSkinData, BusinessSkinForm;
9. type
10. TForm13 = class(TForm)
11. bsBusinessSkinForm1: TbsBusinessSkinForm;
12. bsSkinData1: TbsSkinData;
13. bsCompressedStoredSkin1: TbsCompressedStoredSkin;
14. bsSkinButton1: TbsSkinButton;
15. bsSkinButton2: TbsSkinButton;
16. bsSkinButton3: TbsSkinButton;
17. bsSkinButton4: TbsSkinButton;
18. procedure bsSkinButton1Click(Sender: TObject);
19. private
20. { Private declarations }
21. public
22. { Public declarations }
23. end;
25. var
26. Form13: TForm13;
28. implementation
30. uses Unit12;
32. {$R *.dfm}
34. procedure TForm13.bsSkinButton1Click(Sender: TObject);
35. begin
36. form12.show;
37. end;
39. End.
1. unit Unit12;
3. interface
5. uses
6. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7. Dialogs, StdCtrls, Buttons, bsSkinCtrls, bsSkinBoxCtrls, DB, ADODB,
8. bsSkinData, BusinessSkinForm, bsSkinGrids, bsDBGrids;
10. type
11. TForm12 = class(TForm)
12. bsSkinDBGrid1: TbsSkinDBGrid;
13. bsBusinessSkinForm1: TbsBusinessSkinForm;
14. bsSkinData1: TbsSkinData;
15. bsCompressedStoredSkin1: TbsCompressedStoredSkin;
16. ADOQuery1: TADOQuery;
17. DataSource1: TDataSource;
18. GroupBox1: TGroupBox;
19. GroupBox2: TGroupBox;
20. GroupBox3: TGroupBox;
21. Label1: TLabel;
22. Label2: TLabel;
23. Label3: TLabel;
24. Label4: TLabel;
25. Label5: TLabel;
26. Label6: TLabel;
27. Label7: TLabel;
28. Label8: TLabel;
29. Label9: TLabel;
30. Label10: TLabel;
31. Label11: TLabel;
32. Label12: TLabel;
33. Label13: TLabel;
34. Label14: TLabel;
35. Edit1: TEdit;
36. Edit2: TEdit;
37. Edit3: TEdit;
38. Edit4: TEdit;
39. bsSkinComboBox1: TbsSkinComboBox;
40. BitBtn1: TBitBtn;
41. BitBtn2: TBitBtn;
42. Label15: TLabel;
43. Label16: TLabel;
44. Label17: TLabel;
45. Label18: TLabel;
46. Label19: TLabel;
47. ADOQuery2: TADOQuery;
48. RadioButton1: TRadioButton;
49. RadioButton2: TRadioButton;
50. RadioButton3: TRadioButton;
51. procedure bsSkinDBGrid1CellClick(Column: TbsColumn);
52. procedure FormCreate(Sender: TObject);
53. procedure BitBtn1Click(Sender: TObject);
54. procedure BitBtn2Click(Sender: TObject);
55. private
56. { Private declarations }
57. public
58. { Public declarations }
59. end;
61. var
62. Form12: TForm12;
64. implementation
66. uses Unit11;
68. {$R *.dfm}
70. procedure TForm12.BitBtn1Click(Sender: TObject);
71. begin
72. with adoquery2 do
73. begin
74. close;
75. sql.clear;
76. sql.add(‘select * from Prize where C1=1‘);
77. open;
78. end;
79. if adoquery2.RecordCount<>0 then
80. application.MessageBox(‘已有一等奖名额‘,‘提示信息‘,64)
81. else
82. begin
83. label1.Caption:=edit1.Text;
84. label2.Caption:=edit2.Text;
85. form11.Label5.Caption:=edit2.Text;
86. form11.Image2.Picture.LoadFromFile(‘E:\微云\delphi\my奖学金评比系统\信息1103 班级照片\‘+edit1.Text+‘.bmp‘);
87. with adoquery2 do
88. begin
89. close;
90. sql.clear;
91. sql.add(‘UPDATE Prize SET C1=1 WHERE Number =:a ‘);
92. parameters.ParamByName(‘a‘).Value:=trim(edit1.Text);
93. ExecSQL;
94. end;
95. end;
100. end;
102. procedure TForm12.BitBtn2Click(Sender: TObject);
104. begin
105. if RadioButton1.Checked then
106. begin
108. with adoquery2 do
109. begin
110. close;
111. sql.clear;
112. sql.add(‘UPDATE Prize SET C1=0 WHERE Number =:a ‘);
113. parameters.ParamByName(‘a‘).Value:=trim(label1.Caption);
114. ExecSQL;
115. end ;
116. label1.Caption:=‘‘;
117. label2.Caption:=‘‘;
118. end;
120. end;
122. procedure TForm12.bsSkinDBGrid1CellClick(Column: TbsColumn);
123. begin
124. edit1.text:=ADOquery1.fieldbyname(‘Number‘).asstring;
125. edit2.text:=ADOquery1.fieldbyname(‘Name‘).asstring;
126. edit3.text:=ADOquery1.fieldbyname(‘Ranking‘).asstring;
127. edit4.text:=ADOquery1.fieldbyname(‘Ranking_1‘).asstring;
128. end;
130. procedure TForm12.FormCreate(Sender: TObject);
131. begin
133. bsSkinCombobox1.Items.Add(‘一等奖‘) ;
134. bsSkinCombobox1.Items.Add(‘二等奖‘) ;
135. bsSkinCombobox1.Items.Add(‘三等奖‘) ;
137. end;
139. End.
获奖情况
1. unit Unit11;
3. interface
5. uses
6. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7. Dialogs, ExtCtrls, bsSkinData, BusinessSkinForm, bsSkinCtrls, StdCtrls;
9. type
10. TForm11 = class(TForm)
11. Image1: TImage;
12. bsBusinessSkinForm1: TbsBusinessSkinForm;
13. bsSkinData1: TbsSkinData;
14. bsCompressedStoredSkin1: TbsCompressedStoredSkin;
15. GroupBox1: TGroupBox;
16. Image2: TImage;
17. bsSkinGroupBox1: TbsSkinGroupBox;
18. Image3: TImage;
19. Image4: TImage;
20. Image5: TImage;
21. Image6: TImage;
22. Label1: TLabel;
23. Label2: TLabel;
24. Label3: TLabel;
25. Label4: TLabel;
26. Label5: TLabel;
27. GroupBox2: TGroupBox;
28. Image7: TImage;
29. Image8: TImage;
30. Label7: TLabel;
31. Label6: TLabel;
32. procedure FormShow(Sender: TObject);
33. private
34. { Private declarations }
35. public
36. { Public declarations }
37. end;
39. var
40. Form11: TForm11;
42. implementation
44. {$R *.dfm}
46. procedure TForm11.FormShow(Sender: TObject);
47. begin
48. Image1.Picture.LoadFromFile(‘E:\微云\delphi\my奖学金评比系统\媒体文件\g.bmp‘);
50. end;
52. end.

奖学金评分系统（系统分析与设计版与Delphi实现代码）

码农公寓

一、系统规划

1.1 项目背景介绍

1.2 现存问题及系统目标

1.3 可行性分析

1.4进度安排

二、系统分析

2.1功能需求分析

2.2非功能需求分析

技术需求

性能需求

3、可用性需求

4、可靠性需求

安全需求

2.3 ER图

2.4数据流程图

顶层DFD

第一层DFD

第二层DPD

2.5数据字典

数据项的定义

数据项编号

数据项名称

数据类型

简述

允许Null值

I1

number

学生用户的学号

false

I2

points

学生的分数

true

I3

ranking

学生的优秀等级

true

I4

name

学生用户姓名

true

I5

credit

学生的学分

true

I6

type

学生选课类型

false

I7

Grade

学生年级

true

I8

Usernum

用户账号

true

I9

body

学生身体素质

true

I10

mind

学生心理素质

true

I11

self

学生道德素质

true

I12

record

学生违反道德记录

true

I13

course

学生所选课程名称

false

I14

sex