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

一、系统规划

1.1 项目背景介绍

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

1.2 现存问题及系统目标

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

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

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

1.3 可行性分析

1技术性分析

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

2 经济性分析

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

3 系统运行可行性分析

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

1.4进度安排

二、系统分析

2.1功能需求分析

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

1. 学生系统管理模块

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

2. 班委系统管理模块

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

   2.2非功能需求分析

3. 技术需求

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

4. 性能需求

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

   3、可用性需求

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

   4、可靠性需求

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

5. 安全需求

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

   

   2.3 ER图

   2.4数据流程图

   

   顶层DFD

   

   第一层DFD

   

   

   第二层DPD

   2.5数据字典

6. 数据项的定义

   数据项编号	数据项名称	数据类型	简述	允许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

7. 数据存储的描述

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

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

8. 数据流的描述

   数据流编号	数据流名称	简述	数据流来源	数据流去向	数据流组成	数据流量	高峰流量
   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次/月

9. 处理的描述

   处理逻辑编号	处理逻辑名称	输入的数据流	处理的逻辑描述	输出的数据流	处理的频率
   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用例图

   

   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 数据库的设计

   

   

   

   

   

   

   

   

   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。

10. 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;
    2.  
    3. interface
    4.  
    5. uses
    6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    7.   Dialogs, DB, ADODB, StdCtrls, Buttons, Menus, bsSkinData, BusinessSkinForm,
    8.   bsSkinCtrls, Mask, bsSkinBoxCtrls;
    9.  
    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);
    30.  
    31.  
    32.   private
    33.     { Private declarations }
    34.  
    35.   public
    36.     { Public declarations }
    37.  
    38.   end;
    39.  
    40. var
    41.   Login: TLogin;
    42.  
    43.   var
    44. i: Integer;
    45.  num:integer;
    46. username:String;
    47.  Quanxian:String;
    48. implementation
    49.  
    50. uses Unit2, Unit8, Unit10;
    51.  
    52.  
    53.  
    54. {$R *.dfm}
    55.  
    56.  
    57.  
    58.  
    59.  
    60.  
    61.  
    62.  
    63. procedure TLogin.TBitBtn2Click(Sender: TObject);
    64. begin
    65. self.Close;
    66. end;
    67.  
    68. procedure TLogin.BitBtn2Click(Sender: TObject);
    69. begin
    70. Login.Close;
    71. end;
    72.  
    73. procedure TLogin.BitBtn1Click(Sender: TObject);
    74. var
    75.  
    76.  
    77.  
    78.   Password:String;
    79.   str:string;
    80.   n:integer;
    81.   temp:String;
    82.   have:integer;
    83. begin
    84.  
    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;
    96.  
    97.        if Combobox1.Text=temp then
    98.        have:=1;
    99.      end;
    100.  
    101.  
    102.  
    103.  
    104.  
    105.      {如果不存在 则保存 用户名称}
    106.       if have=0 then
    107.  
    108.       begin
    109.  
    110.  
    111.      for n := 4 downto 1 do
    112.      begin
    113.  
    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;
    121.  
    122.     str:=floattostr(n+1) ;
    123.  
    124.  
    125.  
    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;
    135.  
    136.      end;
    137.  
    138.  
    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;
    148.  
    149.  
    150.      end;
    151.  
    152.  
    153.  
    154.  
    155.  
    156.  
    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;
    196.  
    197.  
    198.         end
    199.  
    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;
    207.  
    208.  
    209.         end
    210.  
    211.       else
    212.         begin
    213.           if num=0 then
    214.               Login.Close;
    215.           num:=num-1;
    216.           application.MessageBox('输入的用户名或密码错误','提示信息',64);
    217.         end;
    218.  
    219.   except
    220.  
    221.   begin
    222.        if num=0 then
    223.               Login.Close;
    224.        num:=num-1;
    225.      application.MessageBox('输入的用户名或密码错误','提示信息',64);
    226.  
    227.   end;
    228.  
    229.   end;
    230.  
    231. end;
    232.  
    233. procedure TLogin.FormCreate(Sender: TObject);
    234. var n:integer;
    235.     str:String;
    236. begin
    237.  
    238.  
    239.  
    240.  
    241.  
    242.  
    243.  
    244.  
    245.  
    246.    num:= 3;
    247.  
    248.  
    249.  
    250.  
    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);
    262.  
    263.  
    264.    end;
    265. end;
    266.  
    267. End.

    2.

    

    1. unit Unit8;
    2.  
    3. interface
    4.  
    5. uses
    6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    7.   Dialogs, bsSkinData, BusinessSkinForm, bsSkinCtrls, MPlayer, ExtCtrls,
    8.   OleCtrls, ShockwaveFlashObjects_TLB, StdCtrls, SkyGuage;
    9.  
    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;
    26.  
    27. var
    28.   Form8: TForm8;
    29.  
    30. implementation
    31.  
    32. uses Unit2, Unit1, Unit4;
    33.  
    34. {$R *.dfm}
    35.  
    36.  
    37.  
    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;
    45.  
    46. procedure TForm8.Timer1Timer(Sender: TObject);
    47. begin
    48.   if label1.Caption='加载中……' then
    49.    label1.Caption:='加载中…'
    50.    else
    51.      label1.Caption:='加载中……' ;
    52.  
    53.  
    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;
    62.  
    63. End.
11. 用户

    

    1. unit Unit2;
    2.  
    3. interface
    4.  
    5. uses
    6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    7.   Dialogs, bsSkinData, BusinessSkinForm, bsSkinCtrls;
    8.  
    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;
    29.  
    30. var
    31.   MonitorForm: TMonitorForm;
    32.   bo:integer;
    33. implementation
    34.  
    35. uses Unit4, Unit6, Unit1, Unit12, Unit13;
    36.  
    37. {$R *.dfm}
    38.  
    39.   procedure TMonitorForm.bsSkinButton1Click(Sender: TObject);
    40. begin
    41. bo:=0;
    42. MyText.show;
    43.  self.hide;
    44. end;
    45.  
    46. procedure TMonitorForm.bsSkinButton2Click(Sender: TObject);
    47. begin
    48. bo:=1;
    49. self.Hide;
    50. form6.Show;
    51. end;
    52.  
    53.  
    54.  
    55. procedure TMonitorForm.bsSkinButton3Click(Sender: TObject);
    56. begin
    57. form13.show;
    58. end;
    59.  
    60. procedure TMonitorForm.bsSkinButton4Click(Sender: TObject);
    61. begin
    62.  self.Hide;
    63.  Login.show;
    64. end;
    65.  
    66. procedure TMonitorForm.FormClose(Sender: TObject; var Action: TCloseAction);
    67. begin
    68.   Login.close;
    69. end;
    70.  
    71. procedure TMonitorForm.FormShow(Sender: TObject);
    72. begin
    73. if quanxian='0' then
    74.      bsskinbutton3.Enabled:=false;
    75. end;
    76.  
    77. End.
12. 我的测评

    

    1. unit Unit4;
    2.  
    3. interface
    4.  
    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;
    9.  
    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);
    67.  
    68.  
    69.   private
    70.     { Private declarations }
    71.   public
    72.     { Public declarations }
    73.   end;
    74.  
    75. var
    76.   MyText: TMyText;
    77.  
    78. implementation
    79.  
    80. uses Unit6,Unit5, Unit9, Unit1, Unit2, Unit7, Unit11;
    81.  
    82.  
    83.  
    84. {$R *.dfm}
    85.  
    86. procedure TMyText.bsSkinButton1Click(Sender: TObject);
    87.  
    88. var str:string;
    89. begin
    90.  
    91.  
    92. if bo=0 then
    93.  
    94.    str:=username
    95.  
    96. else
    97.     str:=str6;
    98.  
    99.  
    100. Image1.Picture.LoadFromFile('E:\微云\delphi\my奖学金评比系统\信息1103 班级照片\'+str+'.bmp');
    101.   Label7.Caption:=str;
    102.  
    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;
    110.  
    111.  
    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;
    118.  
    119.  
    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;
    126.  
    127.  
    128. end;
    129.  
    130.  
    131.  
    132.  
    133.  
    134. procedure TMyText.bsSkinButton4Click(Sender: TObject);
    135. begin
    136.  
    137.  
    138. self.hide;
    139. form6.Show;
    140.  
    141.  
    142. end;
    143.  
    144. procedure TMyText.Button1Click(Sender: TObject);
    145. begin
    146.  
    147. form5.show;
    148. end;
    149.  
    150. procedure TMyText.Button2Click(Sender: TObject);
    151. begin
    152.  
    153. form9.show;
    154. end;
    155.  
    156. procedure TMyText.FormClose(Sender: TObject; var Action: TCloseAction);
    157. begin
    158. Login.Close
    159. end;
    160.  
    161.  
    162.  
    163. procedure TMyText.FormShow(Sender: TObject);
    164. var
    165. str:string;
    166. begin
    167.  
    168.  
    169. if (bo=0)or (bo=2) then
    170.  
    171.    str:=username
    172.  
    173. else
    174.     str:=str6;
    175.  
    176.  
    177. Image1.Picture.LoadFromFile('E:\微云\delphi\my奖学金评比系统\信息1103 班级照片\'+str+'.bmp');
    178.   Label7.Caption:=str;
    179.  
    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;
    187.  
    188.  
    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;
    196.  
    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;
    204.  
    205. end;
    206.  
    207. procedure TMyText.N10Click(Sender: TObject);
    208. begin
    209. docname:='e';
    210. form7.Caption:='素质评价方法';
    211. form7.show;
    212. end;
    213.  
    214. procedure TMyText.N11Click(Sender: TObject);
    215. begin
    216. docname:='b';
    217. form7.Caption:='素质评价方法';
    218. form7.show;
    219. end;
    220.  
    221. procedure TMyText.N12Click(Sender: TObject);
    222. var
    223.     fnm: String;
    224.     WordApp,WordDoc: Variant;
    225.     sContext: String;
    226. begin
    227.  
    228. end;
    229.  
    230. procedure TMyText.N13Click(Sender: TObject);
    231. begin
    232. docname:='d';
    233. form7.Caption:='素质评价方法';
    234. form7.show;
    235. end;
    236.  
    237. procedure TMyText.N14Click(Sender: TObject);
    238. begin
    239. form11.show;
    240. end;
    241.  
    242. procedure TMyText.N4Click(Sender: TObject);
    243. begin
    244. ShellExecute(Handle, 'open', PChar('C:\Windows\System32\calc.exe'), nil, nil, SW_SHOW);
    245. end;
    246.  
    247. procedure TMyText.N7Click(Sender: TObject);
    248. begin
    249.  
    250.  
    251. self.hide;
    252. if bo=0 then
    253. MonitorForm.show
    254. else if bo=1 then
    255. form6.Show;
    256.  
    257. end;
    258.  
    259. procedure TMyText.N9Click(Sender: TObject);
    260. begin
    261. docname:='a';
    262. form7.Caption:='素质评价方法';
    263. form7.show;
    264. end;
    265.  
    266. End.
13. 基本项

    

    1. unit Unit5;
    2.  
    3. interface
    4.  
    5. uses
    6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    7.   Dialogs, StdCtrls, bsSkinData, BusinessSkinForm, bsSkinCtrls, Mask,
    8.   bsSkinBoxCtrls, DB, ADODB, Menus;
    9.  
    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;
    68.  
    69. var
    70.   Form5: TForm5;
    71.  
    72. implementation
    73.  
    74. uses Unit4, Unit1, Unit6, Unit10, Unit9, Unit2;
    75.  
    76. {$R *.dfm}
    77.  
    78. procedure TForm5.bsSkinButton1Click(Sender: TObject);
    79. begin
    80.  
    81. application.MessageBox('基本测评分=品德素质×25%+专业素质×60%+身心素质'+
    82. '×15%'+#13+'品德素质分=评议成绩×70%+记实成绩×30%'+#13+
    83. '评议成绩=学生自评成绩×5%+学生代表评议成绩×70%+辅导员评议成绩×25%'+#13+
    84. '身心素质分=身体素质评价×70%+心理素质评价×30%','基本项评比方法',64);
    85. end;
    86.  
    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
    93.  
    94.     str:=username
    95.  
    96. else
    97.     str:=str6;
    98.  
    99.  
    100.    {品德素质更新}
    101.  
    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;
    116.  
    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;
    124.  
    125.  
    126.  
    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;
    137.  
    138.  
    139.  
    140.  
    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;
    147.  
    148.     end;
    149.  
    150.  
    151.  
    152.  
    153.  
    154.  
    155.  
    156.  
    157.  
    158.  
    159.  
    160.  
    161.  
    162.  
    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;
    177.  
    178.  
    179.  
    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;
    190.  
    191.  
    192.  
    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;
    199.  
    200.     end;
    201.  
    202.  
    203.  
    204.  
    205.  
    206.     application.MessageBox('更新成功！','提示信息',1);
    207.  
    208.  
    209.  
    210. end;
    211.  
    212. procedure TForm5.Button1Click(Sender: TObject);
    213. begin
    214. form9.show;
    215. form9.bsskinComboBox1.ItemIndex:=1;
    216. end;
    217.  
    218. procedure TForm5.FormClose(Sender: TObject; var Action: TCloseAction);
    219. begin
    220. Login.close;
    221. end;
    222.  
    223. procedure TForm5.FormShow(Sender: TObject);
    224. var m1,m2,m3,m4,Bm:real;
    225.     temp,str,Bstr:string;
    226. begin
    227.  
    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;
    237.  
    238.  
    239.  
    240.  
    241.  
    242. if (bo=0) or (bo=2) then
    243.  
    244.     str:=username
    245.  
    246. else
    247.     str:=str6;
    248.  
    249.  
    250.  {品德素质}
    251.   ADOQuery1.Close;
    252. ADOQuery1.SQL.Clear;
    253. ADOQuery1.SQL.Text:='select * from Morality where Number = '+str+'';
    254. ADOQuery1.Open;
    255. ADOQuery1.Next;
    256.  
    257.  
    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 ;
    270.  
    271. temp:=ADOQuery1.fieldbyname('Points').AsString;
    272. temp:=copy(temp,0,4);
    273. Label12.Caption:=temp;
    274.  
    275. Label20.Caption:=ADOQuery1.fieldbyname('Ranking').AsString;
    276.  
    277.  
    278. {身心}
    279.  ADOQuery1.Close;
    280. ADOQuery1.SQL.Clear;
    281. ADOQuery1.SQL.Text:='select * from MindAndBody where Number='+str+'';
    282. ADOQuery1.Open;
    283. ADOQuery1.Next;
    284.  
    285. edit6.Text:=ADOQuery1.fieldbyname('Body').AsString;
    286. edit7.Text:=ADOQuery1.fieldbyname('Mind').AsString;
    287.  
    288. temp:=ADOQuery1.fieldbyname('Points').AsString;
    289. temp:=copy(temp,0,4);
    290. Label23.Caption:=temp;
    291.  
    292. Label24.Caption:=ADOQuery1.fieldbyname('Ranking').AsString;
    293.  
    294.  
    295.  
    296.    {专业}
    297. ADOQuery1.Close;
    298. ADOQuery1.SQL.Clear;
    299. ADOQuery1.SQL.Text:='select * from Specialty where Number='+str+'';
    300. ADOQuery1.Open;
    301. ADOQuery1.Next;
    302.  
    303. temp:=ADOQuery1.fieldbyname('Points').AsString;
    304. temp:=copy(temp,0,4);
    305. Label25.Caption:=temp;
    306.  
    307. Label26.Caption:=ADOQuery1.fieldbyname('Ranking').AsString;
    308. end;
    309.  
    310. procedure TForm5.N7Click(Sender: TObject);
    311. begin
    312. self.Hide;
    313.    MyText.show
    314.  
    315. end;
    316.  
    317. End.

    6.专业素质

    

    1. unit Unit10;
    2.  
    3. interface
    4.  
    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;
    9.  
    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;
    50.  
    51. var
    52.   Form10: TForm10;
    53.  
    54. implementation
    55.  
    56. uses Unit1, Unit5;
    57.  
    58. {$R *.dfm}
    59.  
    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;
    67.  
    68. procedure TForm10.FormShow(Sender: TObject);
    69. var
    70. S : string;
    71.  
    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;
    82.  
    83. procedure TForm10.N7Click(Sender: TObject);
    84. begin
    85. self.Hide;
    86. form5.show;
    87. end;
    88.  
    89. End.
14. 个人加分项

    

    1. unit Unit9;
    2.  
    3. interface
    4.  
    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;
    9.  
    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;
    52.  
    53. var
    54.   Form9: TForm9;
    55.   S : string;
    56.   str:string;
    57. implementation
    58.  
    59. uses Unit1, Unit4, Unit3, Unit6, Unit2;
    60.  
    61. {$R *.dfm}
    62.  
    63. procedure TForm9.AddClick(Sender: TObject);
    64. begin
    65. form3.show
    66. end;
    67.  
    68.  
    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
    75.  
    76.     str:=username
    77.  
    78. else
    79.     str:=str6;
    80.  
    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;
    87.  
    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;
    94.  
    95.  
    96.  
    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;
    103.  
    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;
    110.  
    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;
    117.  
    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;
    127.  
    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;
    135.  
    136.  
    137.  
    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;
    149.  
    150.  
    151.  
    152.  
    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;
    159.  
    160.     end;
    161.  
    162. application.MessageBox('更新成功！','提示信息',1);
    163.  
    164.  
    165.  
    166. end;
    167.  
    168. procedure TForm9.bsSkinButton3Click(Sender: TObject);
    169. var n:integer;
    170. begin
    171.  
    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;
    180.  
    181.  
    182.  
    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;
    190.  
    191. end;
    192.  
    193. procedure TForm9.bsSkinComboBox1Click(Sender: TObject);
    194. begin
    195.  
    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;
    208.  
    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;
    217.  
    218.  
    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;
    227.  
    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;
    239.  
    240. procedure TForm9.FormShow(Sender: TObject);
    241.  
    242.  
    243. begin
    244.  
    245.  
    246. if (bo=0)or (bo=2) then
    247.  
    248.    str:=username
    249.  
    250. else
    251.     str:=str6;
    252.  
    253.  
    254.     if quanxian='0' then
    255.     begin
    256.       add.Enabled:=false;
    257.       bsskinbutton3.Enabled:=false;
    258.     end;
    259.  
    260.  
    261.  
    262.  
    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;
    272.  
    273.  
    274. procedure TForm9.N7Click(Sender: TObject);
    275. begin
    276. self.Hide;
    277. MyText.show
    278. end;
    279.  
    280. End.
15. 加分项总汇

    

    1. unit Unit3;
    2.  
    3. interface
    4.  
    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;
    9.  
    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;
    52.  
    53. var
    54.   Form3: TForm3;
    55.   str:string;
    56. implementation
    57.  
    58. uses Unit1, Unit2, Unit6, Unit9;
    59.  
    60. {$R *.dfm}
    61.  
    62. procedure TForm3.bsSkinButton1Click(Sender: TObject);
    63.  
    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;
    74.  
    75.  form9.bsskinComboBox1.ItemIndex:=0;
    76. end;
    77.  
    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;
    90.  
    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;
    102.  
    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;
    110.  
    111. end;
    112.  
    113. procedure TForm3.bsSkinComboBox1Change(Sender: TObject);
    114. var s:string;
    115. begin
    116.  
    117. end;
    118.  
    119. procedure TForm3.bsSkinComboBox1Click(Sender: TObject);
    120. begin
    121.  
    122. if bsskincombobox1.Text='全部' then
    123. s:= 'select * from Extra'
    124. else
    125. S := 'select * from Extra where EType = '''+bsSkinCombobox1.Text+''' ';
    126.  
    127.  
    128.  
    129.  
    130.   with ADOQuery1 do
    131.     begin
    132.         Close;
    133.         SQL.Clear;
    134.         SQL.Add(S);
    135.         Open;
    136.     end;
    137. end;
    138.  
    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;
    147.  
    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;
    156.  
    157. procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
    158. begin
    159. form9.add.enabled:=true;
    160. end;
    161.  
    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;
    173.  
    174. procedure TForm3.FormShow(Sender: TObject);
    175. var
    176. s:string;
    177. begin
    178. form9.add.enabled:=false;
    179.  
    180. if (bo=0)or (bo=2) then
    181.  
    182.    str:=username
    183.  
    184. else
    185.     str:=str6;
    186.  
    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;
    196.  
    197. end.
16. 评比方法

    

    1. unit Unit7;
    2.  
    3. interface
    4.  
    5. uses
    6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    7.   Dialogs, bsSkinData, BusinessSkinForm, StdCtrls, bsSkinBoxCtrls, Word2000,
    8.   OleServer,Comobj, OleCtnrs, Menus, ExtCtrls;
    9.  
    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);
    19.  
    20.  
    21.  
    22.   private
    23.     { Private declarations }
    24.   public
    25.     { Public declarations }
    26.   end;
    27.  
    28. var
    29.   Form7: TForm7;
    30.   docname:string;
    31. implementation
    32.  
    33. {$R *.dfm}
    34.  
    35.  
    36.  
    37. procedure TForm7.FormShow(Sender: TObject);
    38. begin
    39.  
    40. oleContainer1.CreateObjectFromFile('E:\微云\delphi\my奖学金评比系统\data\'+docname+'.doc',False);
    41.   oleContainer1.DoVerb(ovShow);
    42.  
    43. end;
    44.  
    45. End.
17. 公共查询

    

    1. unit Unit6;
    2.  
    3. interface
    4.  
    5. uses
    6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    7.   Dialogs, bsSkinData, BusinessSkinForm, bsSkinCtrls, StdCtrls, Mask,
    8.   bsSkinBoxCtrls, Menus;
    9.  
    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;
    39.  
    40. var
    41.   Form6: TForm6;
    42.   str6:string;
    43. implementation
    44.  
    45. uses Unit1, Unit4, Unit2;
    46.  
    47. {$R *.dfm}
    48.  
    49. procedure TForm6.bsSkinButton1Click(Sender: TObject);
    50. begin
    51. str6:=bsSkinEdit1.Text;
    52. self.Hide;
    53.  MyText.show;
    54. end;
    55.  
    56. procedure TForm6.FormClose(Sender: TObject; var Action: TCloseAction);
    57. begin
    58. Login.Close;
    59. end;
    60.  
    61. procedure TForm6.N7Click(Sender: TObject);
    62. begin
    63.  
    64. self.hide;
    65. MonitorForm.show;
    66.  
    67.  
    68.  
    69. end;
    70.  
    71. End.
18. 评奖评优

    

    1. unit Unit13;
    2.  
    3. interface
    4.  
    5. uses
    6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    7.   Dialogs, bsSkinCtrls, bsSkinData, BusinessSkinForm;
    8.  
    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;
    24.  
    25. var
    26.   Form13: TForm13;
    27.  
    28. implementation
    29.  
    30. uses Unit12;
    31.  
    32. {$R *.dfm}
    33.  
    34. procedure TForm13.bsSkinButton1Click(Sender: TObject);
    35. begin
    36. form12.show;
    37. end;
    38.  
    39. End.

    

    1. unit Unit12;
    2.  
    3. interface
    4.  
    5. uses
    6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    7.   Dialogs, StdCtrls, Buttons, bsSkinCtrls, bsSkinBoxCtrls, DB, ADODB,
    8.   bsSkinData, BusinessSkinForm, bsSkinGrids, bsDBGrids;
    9.  
    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;
    60.  
    61. var
    62.   Form12: TForm12;
    63.  
    64. implementation
    65.  
    66. uses Unit11;
    67.  
    68. {$R *.dfm}
    69.  
    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;
    96.  
    97.  
    98.  
    99.  
    100. end;
    101.  
    102. procedure TForm12.BitBtn2Click(Sender: TObject);
    103.  
    104. begin
    105. if RadioButton1.Checked then
    106.      begin
    107.  
    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;
    119.  
    120. end;
    121.  
    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;
    129.  
    130. procedure TForm12.FormCreate(Sender: TObject);
    131. begin
    132.  
    133. bsSkinCombobox1.Items.Add('一等奖') ;
    134. bsSkinCombobox1.Items.Add('二等奖') ;
    135. bsSkinCombobox1.Items.Add('三等奖') ;
    136.  
    137. end;
    138.  
    139. End.

    获奖情况

    1. unit Unit11;
    2.  
    3. interface
    4.  
    5. uses
    6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    7.   Dialogs, ExtCtrls, bsSkinData, BusinessSkinForm, bsSkinCtrls, StdCtrls;
    8.  
    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;
    38.  
    39. var
    40.   Form11: TForm11;
    41.  
    42. implementation
    43.  
    44. {$R *.dfm}
    45.  
    46. procedure TForm11.FormShow(Sender: TObject);
    47. begin
    48. Image1.Picture.LoadFromFile('E:\微云\delphi\my奖学金评比系统\媒体文件\g.bmp');
    49.  
    50. end;
    51.  
    52. end.