奖学金评分系统(系统分析与设计版与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数据字典

  1. 数据项的定义 数据项编号 数据项名称 数据类型 简述 允许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
  2. 数据存储的描述 数据存储编号 数据存储名称 简述 数据存储组成 S1 登录文件 记录用户登录 用户名+密码 S2 权限文件 记录用户权限 用户名+密码+权限编码 S3 基本项文件 记录学生基本项信息 基本信息+排名 S4 综合能力文件 记录学生综合能力信息 基本项排名+综合能力排名 S5 身心素质文件 记录学生身心素质信息 身体素质+心理素质评议+成绩分数+名次 S6 专业素质文件 记录学生专业素质信息 成绩分数+名次 S7 品德素质文件 记录学生品德素质信息 学生自评+学生代表评议+辅导员评议+记实+评议基本分+总分+名次 S8 加分项目 记录学生加分项目信息 加分项目名称+分数+类型 S9 选课表 记录学生选课信息 学生+学号+课程名称 S10 获奖情况文件 记录学生获奖情况 学生+学号+获奖情况 S11 评比方法文件 记录评比方法 评比对象+评比方法内容
  3. 数据流的描述 数据流编号 数据流名称 简述 数据流来源 数据流去向 数据流组成 数据流量 高峰流量 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次/月
  4. 处理的描述 处理逻辑编号 处理逻辑名称 输入的数据流 处理的逻辑描述 输出的数据流 处理的频率 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。

  1. 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. interface
  3. uses
  4.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  5.   Dialogs, DB, ADODB, StdCtrls, Buttons, Menus, bsSkinData, BusinessSkinForm,
  6.   bsSkinCtrls, Mask, bsSkinBoxCtrls;
  7. type
  8.   TLogin = class(TForm)
  9.     Label1: TLabel;
  10.     Label2: TLabel;
  11.     Label3: TLabel;
  12.     ADOQuery1: TADOQuery;
  13.     RadioButton1: TRadioButton;
  14.     ComboBox1: TComboBox;
  15.     RadioButton2: TRadioButton;
  16.     bsBusinessSkinForm1: TbsBusinessSkinForm;
  17.     bsSkinData1: TbsSkinData;
  18.     bsCompressedStoredSkin1: TbsCompressedStoredSkin;
  19.     BitBtn1: TbsSkinButton;
  20.     BitBtn2: TbsSkinButton;
  21.     ADOQuery2: TADOQuery;
  22.     Edit1: TbsSkinPasswordEdit;
  23.     procedure BitBtn2Click(Sender: TObject);
  24.     procedure FormCreate(Sender: TObject);
  25.     procedure BitBtn1Click(Sender: TObject);
  26.     procedure TBitBtn2Click(Sender: TObject);
  27. private
  28.     { Private declarations }
  29. public
  30.     { Public declarations }
  31.   end;
  32. var
  33.   Login: TLogin;
  34.   var
  35. i: Integer;
  36.  num:integer;
  37. username:String;
  38.  Quanxian:String;
  39. implementation
  40. uses Unit2, Unit8, Unit10;
  41. {$R *.dfm}
  42. procedure TLogin.TBitBtn2Click(Sender: TObject);
  43. begin
  44. self.Close;
  45. end;
  46. procedure TLogin.BitBtn2Click(Sender: TObject);
  47. begin
  48. Login.Close;
  49. end;
  50. procedure TLogin.BitBtn1Click(Sender: TObject);
  51. var
  52.   Password:String;
  53.   str:string;
  54.   n:integer;
  55.   temp:String;
  56.   have:integer;
  57. begin
  58.       {检查 用户是否存在于Login}
  59.       have:=0;
  60. for n := 4 downto 1 do
  61.      begin
  62.        ADOQuery1.Close;
  63.        ADOQuery1.SQL.Clear;
  64.        str:=floattostr(n);
  65.        ADOQuery1.SQL.Text:='select * from Login where Number='+str+'';
  66.        ADOQuery1.Open;
  67.        ADOQuery1.Next;
  68.        temp:=ADOQuery1.fieldbyname('UserNum').AsString;
  69. if Combobox1.Text=temp then
  70.        have:=1;
  71.      end;
  72.      {如果不存在 则保存 用户名称}
  73. if have=0 then
  74.       begin
  75. for n := 4 downto 1 do
  76.      begin
  77.       ADOQuery1.Close;
  78.     ADOQuery1.SQL.Clear;
  79.     str:=floattostr(n);
  80.     ADOQuery1.SQL.Text:='select * from Login where Number='+str+'';
  81.     ADOQuery1.Open;
  82.     ADOQuery1.Next;
  83.     temp:=ADOQuery1.fieldbyname('UserNum').AsString;
  84.     str:=floattostr(n+1) ;
  85.      with ADOQuery1 do
  86.     begin
  87.       Close;
  88.       SQL.Clear;
  89.       SQL.Add('update Login set UserNum = :strMarry where Number = :strName ');
  90.       parameters.ParamByName('strMarry').Value := temp;
  91.       parameters.ParamByName('strName').Value := str;
  92.       execsql;
  93.     end;
  94.      end;
  95.      with ADOQuery1 do
  96.     begin
  97.       Close;
  98.       SQL.Clear;
  99.       SQL.Add('update Login set UserNum = :strMarry where Number = :strName ');
  100.       parameters.ParamByName('strMarry').Value := ComboBox1.Text;
  101.       parameters.ParamByName('strName').Value := str;
  102.       execsql;
  103.     end;
  104.      end;
  105.     {登入程序}
  106. try
  107.     with adoquery1 do
  108.     begin
  109.       close;
  110.       sql.clear;
  111.       sql.add('select * from Student where Number =:a and Password=:b and Type=:c');
  112.       parameters.ParamByName('a').Value:=trim(combobox1.Text);
  113.       parameters.ParamByName('b').Value:=trim(edit1.Text);
  114. if combobox1.Text ='' then
  115.         begin
  116.           application.MessageBox('请输入用户名','提示信息',64);
  117.           combobox1.SetFocus;
  118.           exit;
  119.         end;
  120. if edit1.Text ='' then
  121.         begin
  122.           application.MessageBox('请输入密码','提示信息',64);
  123.           edit1.SetFocus;
  124.           exit;
  125.         end;
  126. if radiobutton1.Checked=true then
  127.         begin
  128.           Quanxian:='0';
  129.         end;
  130. if radiobutton2.Checked=true then
  131.         begin
  132.           Quanxian:='1';
  133.         end;
  134.       parameters.ParamByName('c').Value:=trim(quanxian);
  135.       open;
  136.       end;
  137. if (adoquery1.RecordCount<>0) and (Quanxian='1') then
  138.         begin
  139.           Username:=combobox1.Text;
  140.           Password:=edit1.Text;
  141.           application.MessageBox('登陆成功','提示信息',64);
  142.           self.hide;
  143.           form8.show;
  144.         end
  145. else if (adoquery1.RecordCount<>0) and (Quanxian='0') then
  146.         begin
  147.           Username:=combobox1.Text;
  148.           Password:=edit1.Text;
  149.           application.MessageBox('登陆成功','提示信息',64);
  150.           self.hide;
  151.           form8.show;
  152.         end
  153. else
  154.         begin
  155. if num=0 then
  156.               Login.Close;
  157.           num:=num-1;
  158.           application.MessageBox('输入的用户名或密码错误','提示信息',64);
  159.         end;
  160.   except
  161.   begin
  162. if num=0 then
  163.               Login.Close;
  164.        num:=num-1;
  165.      application.MessageBox('输入的用户名或密码错误','提示信息',64);
  166.   end;
  167.   end;
  168. end;
  169. procedure TLogin.FormCreate(Sender: TObject);
  170. var n:integer;
  171.     str:String;
  172. begin
  173.    num:= 3;
  174. for n := 1 to 4 do
  175.    begin
  176.     ADOQuery1.Close;
  177.     ADOQuery1.SQL.Clear;
  178.     str:=floattostr(n);
  179.     ADOQuery1.SQL.Text:='select * from Login where Number='+str+'';
  180.     ADOQuery1.Open;
  181.     ADOQuery1.Next;
  182.     str:=ADOQuery1.fieldbyname('UserNum').AsString;
  183. if str<>'no' then
  184.    combobox1.Items.Add(str);
  185.    end;
  186. end;
  187. End.

2.

  1. unit Unit8;
  2. interface
  3. uses
  4.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  5.   Dialogs, bsSkinData, BusinessSkinForm, bsSkinCtrls, MPlayer, ExtCtrls,
  6.   OleCtrls, ShockwaveFlashObjects_TLB, StdCtrls, SkyGuage;
  7. type
  8.   TForm8 = class(TForm)
  9.     bsBusinessSkinForm1: TbsBusinessSkinForm;
  10.     bsSkinData1: TbsSkinData;
  11.     bsCompressedStoredSkin1: TbsCompressedStoredSkin;
  12.     SkyGuage1: TSkyGuage;
  13.     Timer1: TTimer;
  14.     Image1: TImage;
  15.     Label1: TLabel;
  16.     procedure Timer1Timer(Sender: TObject);
  17.     procedure FormShow(Sender: TObject);
  18. private
  19.     { Private declarations }
  20. public
  21.     { Public declarations }
  22.   end;
  23. var
  24.   Form8: TForm8;
  25. implementation
  26. uses Unit2, Unit1, Unit4;
  27. {$R *.dfm}
  28. procedure TForm8.FormShow(Sender: TObject);
  29. begin
  30. Image1.Picture.LoadFromFile('E:\微云\delphi\my奖学金评比系统\媒体文件\Login.bmp');
  31.         Timer1.Enabled:=true;
  32. timer1.Interval:=300;
  33. SkyGuage1.Progress:=0;
  34. end;
  35. procedure TForm8.Timer1Timer(Sender: TObject);
  36. begin
  37. if label1.Caption='加载中……' then
  38.    label1.Caption:='加载中…'
  39. else
  40.      label1.Caption:='加载中……' ;
  41. SkyGuage1.Progress:=SkyGuage1.Progress+10;
  42. if SkyGuage1.Progress=100 then
  43.  begin
  44.  timer1.Interval:=0;
  45.  self.Close;
  46.  MonitorForm.Show
  47.  end;
  48. end;
  49. End.
  1. 用户
  1. unit Unit2;
  2. interface
  3. uses
  4.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  5.   Dialogs, bsSkinData, BusinessSkinForm, bsSkinCtrls;
  6. type
  7.   TMonitorForm = class(TForm)
  8.     bsBusinessSkinForm1: TbsBusinessSkinForm;
  9.     bsSkinData1: TbsSkinData;
  10.     bsCompressedStoredSkin1: TbsCompressedStoredSkin;
  11.     bsSkinButton1: TbsSkinButton;
  12.     bsSkinButton2: TbsSkinButton;
  13.     bsSkinButton4: TbsSkinButton;
  14.     bsSkinButton3: TbsSkinButton;
  15.     procedure bsSkinButton1Click(Sender: TObject);
  16.     procedure bsSkinButton2Click(Sender: TObject);
  17.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  18.     procedure bsSkinButton4Click(Sender: TObject);
  19.     procedure bsSkinButton3Click(Sender: TObject);
  20.     procedure FormShow(Sender: TObject);
  21. private
  22.     { Private declarations }
  23. public
  24.     { Public declarations }
  25.   end;
  26. var
  27.   MonitorForm: TMonitorForm;
  28.   bo:integer;
  29. implementation
  30. uses Unit4, Unit6, Unit1, Unit12, Unit13;
  31. {$R *.dfm}
  32.   procedure TMonitorForm.bsSkinButton1Click(Sender: TObject);
  33. begin
  34. bo:=0;
  35. MyText.show;
  36.  self.hide;
  37. end;
  38. procedure TMonitorForm.bsSkinButton2Click(Sender: TObject);
  39. begin
  40. bo:=1;
  41. self.Hide;
  42. form6.Show;
  43. end;
  44. procedure TMonitorForm.bsSkinButton3Click(Sender: TObject);
  45. begin
  46. form13.show;
  47. end;
  48. procedure TMonitorForm.bsSkinButton4Click(Sender: TObject);
  49. begin
  50.  self.Hide;
  51.  Login.show;
  52. end;
  53. procedure TMonitorForm.FormClose(Sender: TObject; var Action: TCloseAction);
  54. begin
  55.   Login.close;
  56. end;
  57. procedure TMonitorForm.FormShow(Sender: TObject);
  58. begin
  59. if quanxian='0' then
  60.      bsskinbutton3.Enabled:=false;
  61. end;
  62. End.
  1. 我的测评
  1. unit Unit4;
  2. interface
  3. uses
  4.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  5.   Dialogs, ComCtrls, ExtCtrls, StdCtrls, bsSkinData, BusinessSkinForm,
  6.   bsSkinCtrls, bsPngImageList, DB, ADODB, Menus,ShellApi,WordXP,Comobj;
  7. type
  8.   TMyText = class(TForm)
  9.     Image1: TImage;
  10.     GroupBox1: TGroupBox;
  11.     Label1: TLabel;
  12.     Label2: TLabel;
  13.     Label3: TLabel;
  14.     bsBusinessSkinForm1: TbsBusinessSkinForm;
  15.     bsSkinData1: TbsSkinData;
  16.     bsCompressedStoredSkin1: TbsCompressedStoredSkin;
  17.     GroupBox2: TGroupBox;
  18.     Label4: TLabel;
  19.     Label5: TLabel;
  20.     Button1: TButton;
  21.     Button2: TButton;
  22.     Label6: TLabel;
  23.     ADOQuery1: TADOQuery;
  24.     Label7: TLabel;
  25.     Label8: TLabel;
  26.     Label9: TLabel;
  27.     Label10: TLabel;
  28.     bsSkinMainMenu1: TbsSkinMainMenu;
  29.     N1: TMenuItem;
  30.     N2: TMenuItem;
  31.     N3: TMenuItem;
  32.     N4: TMenuItem;
  33.     N5: TMenuItem;
  34.     N6: TMenuItem;
  35.     N7: TMenuItem;
  36.     bsSkinMainMenuBar1: TbsSkinMainMenuBar;
  37.     N8: TMenuItem;
  38.     N9: TMenuItem;
  39.     N11: TMenuItem;
  40.     Label11: TLabel;
  41.     Label12: TLabel;
  42.     N12: TMenuItem;
  43.     N13: TMenuItem;
  44.     OpenDialog1: TOpenDialog;
  45.     N10: TMenuItem;
  46.     N14: TMenuItem;
  47.     N15: TMenuItem;
  48.     N16: TMenuItem;
  49.     N17: TMenuItem;
  50.     procedure bsSkinButton1Click(Sender: TObject);
  51.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  52.     procedure Button1Click(Sender: TObject);
  53.     procedure bsSkinButton4Click(Sender: TObject);
  54.     procedure FormShow(Sender: TObject);
  55.     procedure N7Click(Sender: TObject);
  56.     procedure N9Click(Sender: TObject);
  57.     procedure N4Click(Sender: TObject);
  58.     procedure Button2Click(Sender: TObject);
  59.     procedure N10Click(Sender: TObject);
  60.     procedure N12Click(Sender: TObject);
  61.     procedure N11Click(Sender: TObject);
  62.     procedure N13Click(Sender: TObject);
  63.     procedure N14Click(Sender: TObject);
  64. private
  65.     { Private declarations }
  66. public
  67.     { Public declarations }
  68.   end;
  69. var
  70.   MyText: TMyText;
  71. implementation
  72. uses Unit6,Unit5, Unit9, Unit1, Unit2, Unit7, Unit11;
  73. {$R *.dfm}
  74. procedure TMyText.bsSkinButton1Click(Sender: TObject);
  75. var str:string;
  76. begin
  77. if bo=0 then
  78.    str:=username
  79. else
  80.     str:=str6;
  81. Image1.Picture.LoadFromFile('E:\微云\delphi\my奖学金评比系统\信息1103 班级照片\'+str+'.bmp');
  82.   Label7.Caption:=str;
  83.   ADOQuery1.Close;
  84. ADOQuery1.SQL.Clear;
  85. ADOQuery1.SQL.Text:='select * from Student where Number='+str+'';
  86. ADOQuery1.Open;
  87. ADOQuery1.Next;
  88. Label6.Caption:=ADOQuery1.fieldbyname('Name').AsString;
  89. Label8.Caption:=ADOQuery1.fieldbyname('Sex').AsString;
  90.  ADOQuery1.Close;
  91. ADOQuery1.SQL.Clear;
  92. ADOQuery1.SQL.Text:='select * from Basic where Number='+str+'';
  93. ADOQuery1.Open;
  94. ADOQuery1.Next;
  95. Label9.Caption:=ADOQuery1.fieldbyname('Ranking').AsString;
  96. ADOQuery1.Close;
  97. ADOQuery1.SQL.Clear;
  98. ADOQuery1.SQL.Text:='select * from Comprehensive where Number='+str+'';
  99. ADOQuery1.Open;
  100. ADOQuery1.Next;
  101. Label10.Caption:=ADOQuery1.fieldbyname('Ranking').AsString;
  102. end;
  103. procedure TMyText.bsSkinButton4Click(Sender: TObject);
  104. begin
  105. self.hide;
  106. form6.Show;
  107. end;
  108. procedure TMyText.Button1Click(Sender: TObject);
  109. begin
  110. form5.show;
  111. end;
  112. procedure TMyText.Button2Click(Sender: TObject);
  113. begin
  114. form9.show;
  115. end;
  116. procedure TMyText.FormClose(Sender: TObject; var Action: TCloseAction);
  117. begin
  118. Login.Close
  119. end;
  120. procedure TMyText.FormShow(Sender: TObject);
  121. var
  122. str:string;
  123. begin
  124. if (bo=0)or (bo=2) then
  125.    str:=username
  126. else
  127.     str:=str6;
  128. Image1.Picture.LoadFromFile('E:\微云\delphi\my奖学金评比系统\信息1103 班级照片\'+str+'.bmp');
  129.   Label7.Caption:=str;
  130.   ADOQuery1.Close;
  131. ADOQuery1.SQL.Clear;
  132. ADOQuery1.SQL.Text:='select * from Student where Number='+str+'';
  133. ADOQuery1.Open;
  134. ADOQuery1.Next;
  135. Label6.Caption:=ADOQuery1.fieldbyname('Name').AsString;
  136. Label8.Caption:=ADOQuery1.fieldbyname('Sex').AsString;
  137.  ADOQuery1.Close;
  138. ADOQuery1.SQL.Clear;
  139. ADOQuery1.SQL.Text:='select * from Basic where Number='+str+'';
  140. ADOQuery1.Open;
  141. ADOQuery1.Next;
  142. Label9.Caption:=ADOQuery1.fieldbyname('Ranking').AsString;
  143. Label11.Caption:=ADOQuery1.fieldbyname('Points').AsString;
  144. ADOQuery1.Close;
  145. ADOQuery1.SQL.Clear;
  146. ADOQuery1.SQL.Text:='select * from Comprehensive where Number='+str+'';
  147. ADOQuery1.Open;
  148. ADOQuery1.Next;
  149. Label10.Caption:=ADOQuery1.fieldbyname('Ranking').AsString;
  150. Label12.Caption:=ADOQuery1.fieldbyname('Points').AsString;
  151. end;
  152. procedure TMyText.N10Click(Sender: TObject);
  153. begin
  154. docname:='e';
  155. form7.Caption:='素质评价方法';
  156. form7.show;
  157. end;
  158. procedure TMyText.N11Click(Sender: TObject);
  159. begin
  160. docname:='b';
  161. form7.Caption:='素质评价方法';
  162. form7.show;
  163. end;
  164. procedure TMyText.N12Click(Sender: TObject);
  165. var
  166.     fnm: String;
  167.     WordApp,WordDoc: Variant;
  168.     sContext: String;
  169. begin
  170. end;
  171. procedure TMyText.N13Click(Sender: TObject);
  172. begin
  173. docname:='d';
  174. form7.Caption:='素质评价方法';
  175. form7.show;
  176. end;
  177. procedure TMyText.N14Click(Sender: TObject);
  178. begin
  179. form11.show;
  180. end;
  181. procedure TMyText.N4Click(Sender: TObject);
  182. begin
  183. ShellExecute(Handle, 'open', PChar('C:\Windows\System32\calc.exe'), nil, nil, SW_SHOW);
  184. end;
  185. procedure TMyText.N7Click(Sender: TObject);
  186. begin
  187. self.hide;
  188. if bo=0 then
  189. MonitorForm.show
  190. else if bo=1 then
  191. form6.Show;
  192. end;
  193. procedure TMyText.N9Click(Sender: TObject);
  194. begin
  195. docname:='a';
  196. form7.Caption:='素质评价方法';
  197. form7.show;
  198. end;
  199. End.
  1. 基本项
  1. unit Unit5;
  2. interface
  3. uses
  4.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  5.   Dialogs, StdCtrls, bsSkinData, BusinessSkinForm, bsSkinCtrls, Mask,
  6.   bsSkinBoxCtrls, DB, ADODB, Menus;
  7. type
  8.   TForm5 = class(TForm)
  9.     GroupBox2: TGroupBox;
  10.     Label4: TLabel;
  11.     Label5: TLabel;
  12.     Label6: TLabel;
  13.     Label7: TLabel;
  14.     Label8: TLabel;
  15.     Label9: TLabel;
  16.     Label10: TLabel;
  17.     GroupBox3: TGroupBox;
  18.     Label14: TLabel;
  19.     Label17: TLabel;
  20.     Button1: TButton;
  21.     GroupBox1: TGroupBox;
  22.     Label1: TLabel;
  23.     Label2: TLabel;
  24.     Label3: TLabel;
  25.     Label11: TLabel;
  26.     bsBusinessSkinForm1: TbsBusinessSkinForm;
  27.     bsSkinData1: TbsSkinData;
  28.     bsCompressedStoredSkin1: TbsCompressedStoredSkin;
  29.     Label20: TLabel;
  30.     Label23: TLabel;
  31.     Label24: TLabel;
  32.     Label25: TLabel;
  33.     Label26: TLabel;
  34.     ADOQuery1: TADOQuery;
  35.     bsSkinMainMenu1: TbsSkinMainMenu;
  36.     N1: TMenuItem;
  37.     N2: TMenuItem;
  38.     N3: TMenuItem;
  39.     N4: TMenuItem;
  40.     N5: TMenuItem;
  41.     N7: TMenuItem;
  42.     bsSkinMainMenuBar1: TbsSkinMainMenuBar;
  43.     bsSkinButton1: TbsSkinButton;
  44.     Edit1: TEdit;
  45.     Edit2: TEdit;
  46.     Edit3: TEdit;
  47.     Button2: TButton;
  48.     Label12: TLabel;
  49.     Edit6: TEdit;
  50.     Edit7: TEdit;
  51.     bsSkinButton2: TbsSkinButton;
  52.     Label13: TLabel;
  53.     Label15: TLabel;
  54.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  55.     procedure bsSkinButton2Click(Sender: TObject);
  56.     procedure FormShow(Sender: TObject);
  57.     procedure Button1Click(Sender: TObject);
  58.     procedure N7Click(Sender: TObject);
  59.     procedure bsSkinButton1Click(Sender: TObject);
  60. private
  61.     { Private declarations }
  62. public
  63.     { Public declarations }
  64.   end;
  65. var
  66.   Form5: TForm5;
  67. implementation
  68. uses Unit4, Unit1, Unit6, Unit10, Unit9, Unit2;
  69. {$R *.dfm}
  70. procedure TForm5.bsSkinButton1Click(Sender: TObject);
  71. begin
  72. application.MessageBox('基本测评分=品德素质×25%+专业素质×60%+身心素质'+
  73. '×15%'+#13+'品德素质分=评议成绩×70%+记实成绩×30%'+#13+
  74. '评议成绩=学生自评成绩×5%+学生代表评议成绩×70%+辅导员评议成绩×25%'+#13+
  75. '身心素质分=身体素质评价×70%+心理素质评价×30%','基本项评比方法',64);
  76. end;
  77. procedure TForm5.bsSkinButton2Click(Sender: TObject);
  78. var m1,m2,m3,m4,Bm:real;
  79.     temp,str:string;
  80.     i,n:integer;
  81. begin
  82. if bo=0 then
  83.     str:=username
  84. else
  85.     str:=str6;
  86.    {品德素质更新}
  87.     {Morality表}
  88.     with adoquery1 do
  89.     begin
  90.       close;
  91.       sql.clear;
  92.       sql.add('UPDATE Morality SET Self = :a, Student = :b,Instructor=:c,Points '+
  93.       '= :d WHERE Number = '+str);
  94.       parameters.ParamByName('a').Value:=trim(edit1.Text);
  95.       parameters.ParamByName('b').Value:=trim(edit2.Text);
  96.       parameters.ParamByName('c').Value:=trim(edit3.Text);
  97.       temp:=floattostr(strtoint(edit1.Text)*0.05+strtoint(edit2.Text)*0.7+strtoint(edit3.Text)*0.25);
  98.       parameters.ParamByName('d').Value:=trim(temp);
  99.        ExecSQL;
  100.       end;
  101.    {读取人数}
  102. ADOQuery1.Close;
  103. ADOQuery1.SQL.Clear;
  104. ADOQuery1.SQL.Text:='select count(Number) as n from Student';
  105. ADOQuery1.Open;
  106. ADOQuery1.Next;
  107. n:=ADOQuery1.fieldbyname('n').AsInteger;
  108. for I := 0 to n-1 do
  109.     begin
  110.     {读取第i+1行号的人的学号}
  111.      ADOQuery1.Close;
  112. ADOQuery1.SQL.Clear;
  113. ADOQuery1.SQL.Text:='select top 1 Number from Morality where Number not in ( select'+
  114. ' top '+inttostr(i)+' Number from Morality)';
  115. ADOQuery1.Open;
  116. ADOQuery1.Next;
  117. temp:=ADOQuery1.fieldbyname('Number').AsString;
  118.       ADOQuery1.Close;
  119.     ADOQuery1.SQL.Clear;
  120.     ADOQuery1.SQL.Text:='UPDATE Morality SET Ranking =(select COUNT(Number) from'+
  121.       ' Morality where Points>=(select Points from Morality where'+
  122.       ' Number= '''+temp+'''))+1 where Number='+temp+'';
  123.     ADOQuery1.ExecSQL;
  124.     end;
  125.     {身心素质更新}
  126.     {MindandBoy}
  127.       with adoquery1 do
  128.     begin
  129.       close;
  130.       sql.clear;
  131.       sql.add('UPDATE MindAndBody SET Body = :a, Mind = :b,Points=:c '+
  132.       ' WHERE Number = '+str);
  133.       parameters.ParamByName('a').Value:=trim(edit6.Text);
  134.       parameters.ParamByName('b').Value:=trim(edit7.Text);
  135.       temp:=floattostr(strtofloat(edit6.Text)*0.7+strtofloat(edit7.Text)*0.3);
  136.       parameters.ParamByName('c').Value:=trim(temp);
  137.        ExecSQL;
  138.       end;
  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 MindAndBody where Number not in ( select'+
  145. ' top '+inttostr(i)+' Number from MindAndBody)';
  146. ADOQuery1.Open;
  147. ADOQuery1.Next;
  148. temp:=ADOQuery1.fieldbyname('Number').AsString;
  149.       ADOQuery1.Close;
  150.     ADOQuery1.SQL.Clear;
  151.     ADOQuery1.SQL.Text:='UPDATE MindAndBody SET Ranking =(select COUNT(Number) from'+
  152.       ' MindAndBody where Points>=(select Points from MindAndBody where'+
  153.       ' Number= '''+temp+'''))+1 where Number='+temp+'';
  154.     ADOQuery1.ExecSQL;
  155.     end;
  156.     application.MessageBox('更新成功!','提示信息',1);
  157. end;
  158. procedure TForm5.Button1Click(Sender: TObject);
  159. begin
  160. form9.show;
  161. form9.bsskinComboBox1.ItemIndex:=1;
  162. end;
  163. procedure TForm5.FormClose(Sender: TObject; var Action: TCloseAction);
  164. begin
  165. Login.close;
  166. end;
  167. procedure TForm5.FormShow(Sender: TObject);
  168. var m1,m2,m3,m4,Bm:real;
  169.     temp,str,Bstr:string;
  170. begin
  171. if Quanxian='0' then
  172. begin
  173. bsskinbutton2.Enabled:=false;
  174. edit1.Enabled:= false;
  175. edit2.Enabled:= false;
  176. edit3.Enabled:= false;
  177. edit6.Enabled:= false;
  178. edit7.Enabled:= false;
  179. end;
  180. if (bo=0) or (bo=2) then
  181.     str:=username
  182. else
  183.     str:=str6;
  184.  {品德素质}
  185.   ADOQuery1.Close;
  186. ADOQuery1.SQL.Clear;
  187. ADOQuery1.SQL.Text:='select * from Morality where Number = '+str+'';
  188. ADOQuery1.Open;
  189. ADOQuery1.Next;
  190. Edit1.Text:=ADOQuery1.fieldbyname('Self').AsString;
  191. Edit2.Text:=ADOQuery1.fieldbyname('Student').AsString;
  192. Edit3.Text:=ADOQuery1.fieldbyname('Instructor').AsString;
  193. Label13.Caption:=ADOQuery1.fieldbyname('Record').AsString;
  194.  m1:=strtofloat(Edit1.Text) ;
  195.  m2:=strtofloat(Edit2.Text) ;
  196.  m3:=strtofloat(Edit3.Text) ;
  197.  m4:=strtofloat(Label13.Caption) ;
  198.  Bm:=m1*0.05+m2*0.7+m3*0.25;
  199.  Bstr:=floattostr(Bm);
  200.  Bstr:=copy(Bstr,0,4);
  201. label15.Caption:=Bstr ;
  202. temp:=ADOQuery1.fieldbyname('Points').AsString;
  203. temp:=copy(temp,0,4);
  204. Label12.Caption:=temp;
  205. Label20.Caption:=ADOQuery1.fieldbyname('Ranking').AsString;
  206. {身心}
  207.  ADOQuery1.Close;
  208. ADOQuery1.SQL.Clear;
  209. ADOQuery1.SQL.Text:='select * from MindAndBody where Number='+str+'';
  210. ADOQuery1.Open;
  211. ADOQuery1.Next;
  212. edit6.Text:=ADOQuery1.fieldbyname('Body').AsString;
  213. edit7.Text:=ADOQuery1.fieldbyname('Mind').AsString;
  214. temp:=ADOQuery1.fieldbyname('Points').AsString;
  215. temp:=copy(temp,0,4);
  216. Label23.Caption:=temp;
  217. Label24.Caption:=ADOQuery1.fieldbyname('Ranking').AsString;
  218.    {专业}
  219. ADOQuery1.Close;
  220. ADOQuery1.SQL.Clear;
  221. ADOQuery1.SQL.Text:='select * from Specialty where Number='+str+'';
  222. ADOQuery1.Open;
  223. ADOQuery1.Next;
  224. temp:=ADOQuery1.fieldbyname('Points').AsString;
  225. temp:=copy(temp,0,4);
  226. Label25.Caption:=temp;
  227. Label26.Caption:=ADOQuery1.fieldbyname('Ranking').AsString;
  228. end;
  229. procedure TForm5.N7Click(Sender: TObject);
  230. begin
  231. self.Hide;
  232.    MyText.show
  233. end;
  234. End.

6.专业素质

  1. unit Unit10;
  2. interface
  3. uses
  4.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  5.   Dialogs, BusinessSkinForm, bsSkinData, bsSkinCtrls, Menus, bsdbctrls,
  6.   bsSkinGrids, bsDBGrids, DB, ADODB, StdCtrls, bsSkinBoxCtrls;
  7. type
  8.   TForm10 = class(TForm)
  9.     bsCompressedStoredSkin1: TbsCompressedStoredSkin;
  10.     bsSkinData1: TbsSkinData;
  11.     bsBusinessSkinForm1: TbsBusinessSkinForm;
  12.     bsSkinMainMenu1: TbsSkinMainMenu;
  13.     N1: TMenuItem;
  14.     N2: TMenuItem;
  15.     N3: TMenuItem;
  16.     N4: TMenuItem;
  17.     N5: TMenuItem;
  18.     N6: TMenuItem;
  19.     N8: TMenuItem;
  20.     N9: TMenuItem;
  21.     N10: TMenuItem;
  22.     N11: TMenuItem;
  23.     N7: TMenuItem;
  24.     bsSkinMainMenuBar1: TbsSkinMainMenuBar;
  25.     bsSkinDBNavigator1: TbsSkinDBNavigator;
  26.     ADOQuery1: TADOQuery;
  27.     ADOConnection1: TADOConnection;
  28.     DataSource1: TDataSource;
  29.     bsSkinDBGrid1: TbsSkinDBGrid;
  30.     Label1: TLabel;
  31.     Label2: TLabel;
  32.     Label3: TLabel;
  33.     bsSkinComboBox1: TbsSkinComboBox;
  34.     Edit1: TEdit;
  35.     Edit2: TEdit;
  36.     bsSkinButton1: TbsSkinButton;
  37.     bsSkinButton2: TbsSkinButton;
  38.     bsSkinButton3: TbsSkinButton;
  39.     procedure FormShow(Sender: TObject);
  40.     procedure N7Click(Sender: TObject);
  41.     procedure FormCreate(Sender: TObject);
  42. private
  43.     { Private declarations }
  44. public
  45.     { Public declarations }
  46.   end;
  47. var
  48.   Form10: TForm10;
  49. implementation
  50. uses Unit1, Unit5;
  51. {$R *.dfm}
  52. procedure TForm10.FormCreate(Sender: TObject);
  53. begin
  54. bsSkinCombobox1.Items.Add('全部') ;
  55. bsSkinCombobox1.Items.Add('必修课') ;
  56. bsSkinCombobox1.Items.Add('专业选修课') ;
  57. bsskinComboBox1.ItemIndex:=0;
  58. end;
  59. procedure TForm10.FormShow(Sender: TObject);
  60. var
  61. S : string;
  62. begin
  63. S := 'select * from SC,Course where SC.Course=Course.CNumber and Number='+username;
  64. with ADOQuery1 do
  65.     begin
  66.         Close;
  67.         SQL.Clear;
  68.         SQL.Add(S);
  69.         Open;
  70.     end;
  71. end;
  72. procedure TForm10.N7Click(Sender: TObject);
  73. begin
  74. self.Hide;
  75. form5.show;
  76. end;
  77. End.
  1. 个人加分项
  1. unit Unit9;
  2. interface
  3. uses
  4.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  5.   Dialogs, BusinessSkinForm, bsSkinData, bsSkinCtrls, Menus, bsdbctrls,
  6.   bsSkinGrids, bsDBGrids, DB, ADODB, StdCtrls, bsSkinBoxCtrls, Grids, DBGrids;
  7. type
  8.   TForm9 = class(TForm)
  9.     bsBusinessSkinForm1: TbsBusinessSkinForm;
  10.     bsCompressedStoredSkin1: TbsCompressedStoredSkin;
  11.     bsSkinData1: TbsSkinData;
  12.     bsSkinDBNavigator1: TbsSkinDBNavigator;
  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.     bsSkinMainMenuBar1: TbsSkinMainMenuBar;
  22.     ADOConnection1: TADOConnection;
  23.     ADOPerson: TADOQuery;
  24.     DataSource1: TDataSource;
  25.     bsskindbgrid1: TbsSkinDBGrid;
  26.     bsSkinComboBox1: TbsSkinComboBox;
  27.     Edit1: TEdit;
  28.     Edit2: TEdit;
  29.     Label1: TLabel;
  30.     Label2: TLabel;
  31.     Label3: TLabel;
  32.     Add: TbsSkinButton;
  33.     bsSkinButton3: TbsSkinButton;
  34.     bsSkinButton1: TbsSkinButton;
  35.     ADOQuery1: TADOQuery;
  36.     procedure FormShow(Sender: TObject);
  37.     procedure N7Click(Sender: TObject);
  38.     procedure AddClick(Sender: TObject);
  39.     procedure FormCreate(Sender: TObject);
  40.     procedure bsskindbgrid1CellClick(Column: TbsColumn);
  41.     procedure bsSkinComboBox1Click(Sender: TObject);
  42.     procedure bsSkinButton3Click(Sender: TObject);
  43.     procedure bsSkinButton1Click(Sender: TObject);
  44. private
  45.     { Private declarations }
  46. public
  47.     { Public declarations }
  48.   end;
  49. var
  50.   Form9: TForm9;
  51.   S : string;
  52.   str:string;
  53. implementation
  54. uses Unit1, Unit4, Unit3, Unit6, Unit2;
  55. {$R *.dfm}
  56. procedure TForm9.AddClick(Sender: TObject);
  57. begin
  58. form3.show
  59. end;
  60. procedure TForm9.bsSkinButton1Click(Sender: TObject);
  61. var Szuan,Syan,Szu,Sshe,Swen,n,i:integer;
  62.     sum:real;
  63.     temp:string;
  64. begin
  65. if bo=0 then
  66.     str:=username
  67. else
  68.     str:=str6;
  69.     ADOQuery1.Close;
  70. ADOQuery1.SQL.Clear;
  71. ADOQuery1.SQL.Text:='select sum(EGrade) as n from SE,Extra where SE.EName=Extra.EName and Number= '+str+' and EType =''专业技能'' ';
  72. ADOQuery1.Open;
  73. ADOQuery1.Next;
  74. Szuan:=ADOQuery1.fieldbyname('n').AsInteger;
  75.     ADOQuery1.Close;
  76. ADOQuery1.SQL.Clear;
  77. ADOQuery1.SQL.Text:='select sum(EGrade) as n from SE,Extra where SE.EName=Extra.EName and Number= '+str+' and EType = ''研究创新'' ';
  78. ADOQuery1.Open;
  79. ADOQuery1.Next;
  80. Syan:=ADOQuery1.fieldbyname('n').AsInteger;
  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. Szu:=ADOQuery1.fieldbyname('n').AsInteger;
  87.     ADOQuery1.Close;
  88. ADOQuery1.SQL.Clear;
  89. ADOQuery1.SQL.Text:='select sum(EGrade) as n from SE,Extra where SE.EName=Extra.EName and Number= '+str+' and EType = ''社会实践'' ';
  90. ADOQuery1.Open;
  91. ADOQuery1.Next;
  92. Sshe:=ADOQuery1.fieldbyname('n').AsInteger;
  93.  ADOQuery1.Close;
  94. ADOQuery1.SQL.Clear;
  95. ADOQuery1.SQL.Text:='select sum(EGrade) as n from SE,Extra where SE.EName=Extra.EName and Number= '+str+' and EType = ''文体特长'' ';
  96. ADOQuery1.Open;
  97. ADOQuery1.Next;
  98. Swen:=ADOQuery1.fieldbyname('n').AsInteger;
  99. sum:=75+Syan*0.3+Szuan*0.25+Szu*0.15+Sshe*0.15+Swen*0.15;
  100.   {更新 综合能力表的Point}
  101.    with adoquery1 do
  102.     begin
  103.       close;
  104.       sql.clear;
  105.       sql.add('UPDATE Comprehensive SET Points = '+floattostr(sum)+' WHERE Number = '+str);
  106.        ExecSQL;
  107.       end;
  108.      {读取人数}
  109. ADOQuery1.Close;
  110. ADOQuery1.SQL.Clear;
  111. ADOQuery1.SQL.Text:='select count(Number) as n from Student';
  112. ADOQuery1.Open;
  113. ADOQuery1.Next;
  114. n:=ADOQuery1.fieldbyname('n').AsInteger;
  115. {更新 综合能力表的Ranking}
  116. for I := 0 to n-1 do
  117.     begin
  118.     {读取第i+1行号的人的学号}
  119.      ADOQuery1.Close;
  120. ADOQuery1.SQL.Clear;
  121. ADOQuery1.SQL.Text:='select top 1 Number from Comprehensive where Number not in ( select'+
  122. ' top '+inttostr(i)+' Number from Comprehensive)';
  123. ADOQuery1.Open;
  124. ADOQuery1.Next;
  125. temp:=ADOQuery1.fieldbyname('Number').AsString;
  126.       ADOQuery1.Close;
  127.     ADOQuery1.SQL.Clear;
  128.     ADOQuery1.SQL.Text:='UPDATE Comprehensive SET Ranking =(select COUNT(Number) from'+
  129.       ' Comprehensive where Points>=(select Points from Comprehensive where'+
  130.       ' Number= '''+temp+'''))+1 where Number='+temp+'';
  131.     ADOQuery1.ExecSQL;
  132.     end;
  133. application.MessageBox('更新成功!','提示信息',1);
  134. end;
  135. procedure TForm9.bsSkinButton3Click(Sender: TObject);
  136. var n:integer;
  137. begin
  138. with adoperson do
  139.     begin
  140.       close;
  141.       sql.clear;
  142.       sql.add('DELETE FROM SE WHERE EName=:a and Number = '+str);
  143.       parameters.ParamByName('a').Value:=trim(edit1.Text);
  144.       ExecSQL;
  145.       end;
  146. if bsskincombobox1.Text='实记' then n:=1
  147. else if bsskincombobox1.Text='专业技能' then n:=2
  148. else if bsskincombobox1.Text='研究创新' then n:=3
  149. else if bsskincombobox1.Text='组织领导' then n:=4
  150. else if bsskincombobox1.Text='社会实践' then n:=5
  151. else if bsskincombobox1.Text='文体特长' then n:=6;
  152.   bsskinComboBox1.ItemIndex:=n;
  153. end;
  154. procedure TForm9.bsSkinComboBox1Click(Sender: TObject);
  155. begin
  156. if bsskincombobox1.Text='全部' then
  157. s:= 'select * from SE,Extra where SE.EName=Extra.EName and Number= '+str
  158. else
  159.  S := 'select * from SE,Extra where SE.EName=Extra.EName and Number= '+str+' and EType = '''+bsSkinCombobox1.Text+''' ';
  160.   with ADOPerson do
  161.     begin
  162.         Close;
  163.         SQL.Clear;
  164.         SQL.Add(S);
  165.         Open;
  166.     end;
  167. end;
  168. procedure TForm9.bsskindbgrid1CellClick(Column: TbsColumn);
  169. var
  170. temp:string;
  171. n:integer;
  172. begin
  173. edit1.text:=ADOPerson.fieldbyname('EName').asstring;
  174. edit2.text:=ADOPerson.fieldbyname('EGrade').asstring;
  175. temp:= ADOPerson.fieldbyname('EType').asstring;
  176. if temp='实记' then n:=1
  177. else if temp='专业技能' then n:=2
  178. else if temp='研究创新' then n:=3
  179. else if temp='组织领导' then n:=4
  180. else if temp='社会实践' then n:=5
  181. else if temp='文体特长' then n:=6;
  182.   bsskinComboBox1.ItemIndex:=n;
  183. end;
  184. procedure TForm9.FormCreate(Sender: TObject);
  185. begin
  186. bsSkinCombobox1.Items.Add('全部') ;
  187. bsSkinCombobox1.Items.Add('实记') ;
  188. bsSkinCombobox1.Items.Add('专业技能') ;
  189. bsSkinCombobox1.Items.Add('研究创新') ;
  190. bsSkinCombobox1.Items.Add('组织领导') ;
  191. bsSkinCombobox1.Items.Add('社会实践') ;
  192. bsSkinCombobox1.Items.Add('文体特长') ;
  193. bsskinComboBox1.ItemIndex:=0;
  194. end;
  195. procedure TForm9.FormShow(Sender: TObject);
  196. begin
  197. if (bo=0)or (bo=2) then
  198.    str:=username
  199. else
  200.     str:=str6;
  201. if quanxian='0' then
  202.     begin
  203.       add.Enabled:=false;
  204.       bsskinbutton3.Enabled:=false;
  205.     end;
  206. S := 'select * from SE,Extra where SE.EName=Extra.EName and Number='+str;
  207. with ADOPerson do
  208.     begin
  209.         Close;
  210.         SQL.Clear;
  211.         SQL.Add(S);
  212.         Open;
  213.     end;
  214. end;
  215. procedure TForm9.N7Click(Sender: TObject);
  216. begin
  217. self.Hide;
  218. MyText.show
  219. end;
  220. End.
  1. 加分项总汇
  1. unit Unit3;
  2. interface
  3. uses
  4.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  5.   Dialogs, bsSkinCtrls, StdCtrls, bsSkinBoxCtrls, bsSkinData, BusinessSkinForm,
  6.   bsSkinGrids, bsDBGrids, bsdbctrls, Menus, DB, ADODB;
  7. type
  8.   TForm3 = class(TForm)
  9.     bsSkinMainMenuBar1: TbsSkinMainMenuBar;
  10.     bsSkinMainMenu1: TbsSkinMainMenu;
  11.     N1: TMenuItem;
  12.     N2: TMenuItem;
  13.     N3: TMenuItem;
  14.     N4: TMenuItem;
  15.     N5: TMenuItem;
  16.     N6: TMenuItem;
  17.     N7: TMenuItem;
  18.     bsSkinDBNavigator1: TbsSkinDBNavigator;
  19.     bsSkinDBGrid1: TbsSkinDBGrid;
  20.     bsBusinessSkinForm1: TbsBusinessSkinForm;
  21.     bsSkinData1: TbsSkinData;
  22.     bsCompressedStoredSkin1: TbsCompressedStoredSkin;
  23.     Label1: TLabel;
  24.     Label2: TLabel;
  25.     Label3: TLabel;
  26.     bsSkinComboBox1: TbsSkinComboBox;
  27.     Edit1: TEdit;
  28.     Edit2: TEdit;
  29.     bsSkinButton1: TbsSkinButton;
  30.     bsSkinButton2: TbsSkinButton;
  31.     bsSkinButton3: TbsSkinButton;
  32.     ADOQuery1: TADOQuery;
  33.     DataAll: TDataSource;
  34.     bsSkinButton4: TbsSkinButton;
  35.     procedure FormCreate(Sender: TObject);
  36.     procedure FormShow(Sender: TObject);
  37.     procedure bsSkinComboBox1Change(Sender: TObject);
  38.     procedure bsSkinDBGrid1CellClick(Column: TbsColumn);
  39.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  40.     procedure bsSkinButton1Click(Sender: TObject);
  41.     procedure bsSkinComboBox1Click(Sender: TObject);
  42.     procedure bsSkinButton3Click(Sender: TObject);
  43.     procedure bsSkinButton2Click(Sender: TObject);
  44. private
  45.     { Private declarations }
  46. public
  47.     { Public declarations }
  48.   end;
  49. var
  50.   Form3: TForm3;
  51.   str:string;
  52. implementation
  53. uses Unit1, Unit2, Unit6, Unit9;
  54. {$R *.dfm}
  55. procedure TForm3.bsSkinButton1Click(Sender: TObject);
  56. begin
  57.  with form9.ADOPerson do
  58.     begin
  59.       close;
  60.       sql.clear;
  61.       sql.add('INSERT INTO SE VALUES (:a,:b)');
  62.       parameters.ParamByName('a').Value:=trim(str);
  63.        parameters.ParamByName('b').Value:=trim(edit1.Text);
  64.       ExecSQL;
  65.       end;
  66.  form9.bsskinComboBox1.ItemIndex:=0;
  67. end;
  68. procedure TForm3.bsSkinButton2Click(Sender: TObject);
  69. begin
  70. with ADOQuery1 do
  71.     begin
  72.       close;
  73.       sql.clear;
  74.       sql.add('DELETE FROM Extra WHERE EName=:a');
  75.       parameters.ParamByName('a').Value:=trim(edit1.Text);
  76.       ExecSQL;
  77.       end;
  78. bsskinComboBox1.ItemIndex:=0;
  79. end;
  80. procedure TForm3.bsSkinButton3Click(Sender: TObject);
  81. var n:integer;
  82. begin
  83. with ADOQuery1 do
  84.     begin
  85.       close;
  86.       sql.clear;
  87.       sql.add('DELETE FROM Extra WHERE EName=:a');
  88.       parameters.ParamByName('a').Value:=trim(edit1.Text);
  89.       ExecSQL;
  90.       end;
  91. if bsskincombobox1.Text='实记' then n:=1
  92. else if bsskincombobox1.Text='专业技能' then n:=2
  93. else if bsskincombobox1.Text='研究创新' then n:=3
  94. else if bsskincombobox1.Text='组织领导' then n:=4
  95. else if bsskincombobox1.Text='社会实践' then n:=5
  96. else if bsskincombobox1.Text='文体特长' then n:=6;
  97.   bsskinComboBox1.ItemIndex:=n;
  98. end;
  99. procedure TForm3.bsSkinComboBox1Change(Sender: TObject);
  100. var s:string;
  101. begin
  102. end;
  103. procedure TForm3.bsSkinComboBox1Click(Sender: TObject);
  104. begin
  105. if bsskincombobox1.Text='全部' then
  106. s:= 'select * from Extra'
  107. else
  108. S := 'select * from Extra where EType = '''+bsSkinCombobox1.Text+''' ';
  109.   with ADOQuery1 do
  110.     begin
  111.         Close;
  112.         SQL.Clear;
  113.         SQL.Add(S);
  114.         Open;
  115.     end;
  116. end;
  117. procedure TForm3.bsSkinDBGrid1CellClick(Column: TbsColumn);
  118. var
  119. temp:string;
  120. n:integer;
  121. begin
  122. edit1.text:=adoquery1.fieldbyname('EName').asstring;
  123. edit2.text:=adoquery1.fieldbyname('EGrade').asstring;
  124. temp:= adoquery1.fieldbyname('EType').asstring;
  125. if temp='实记' then n:=1
  126. else if temp='专业技能' then n:=2
  127. else if temp='研究创新' then n:=3
  128. else if temp='组织领导' then n:=4
  129. else if temp='社会实践' then n:=5
  130. else if temp='文体特长' then n:=6;
  131.   bsskinComboBox1.ItemIndex:=n;
  132. end;
  133. procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
  134. begin
  135. form9.add.enabled:=true;
  136. end;
  137. procedure TForm3.FormCreate(Sender: TObject);
  138. begin
  139.  bsSkinCombobox1.Items.Add('全部') ;
  140. bsSkinCombobox1.Items.Add('实记') ;
  141. bsSkinCombobox1.Items.Add('专业技能') ;
  142. bsSkinCombobox1.Items.Add('研究创新') ;
  143. bsSkinCombobox1.Items.Add('组织领导') ;
  144. bsSkinCombobox1.Items.Add('社会实践') ;
  145. bsSkinCombobox1.Items.Add('文体特长') ;
  146. bsskinComboBox1.ItemIndex:=0;
  147. end;
  148. procedure TForm3.FormShow(Sender: TObject);
  149. var
  150. s:string;
  151. begin
  152. form9.add.enabled:=false;
  153. if (bo=0)or (bo=2) then
  154.    str:=username
  155. else
  156.     str:=str6;
  157. S := 'select * from Extra';
  158. with ADOQuery1 do
  159.     begin
  160.         Close;
  161.         SQL.Clear;
  162.         SQL.Add(S);
  163.         Open;
  164.     end;
  165. end;
  166. end.
  1. 评比方法
  1. unit Unit7;
  2. interface
  3. uses
  4.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  5.   Dialogs, bsSkinData, BusinessSkinForm, StdCtrls, bsSkinBoxCtrls, Word2000,
  6.   OleServer,Comobj, OleCtnrs, Menus, ExtCtrls;
  7. type
  8.   TForm7 = class(TForm)
  9.     bsBusinessSkinForm1: TbsBusinessSkinForm;
  10.     bsSkinData1: TbsSkinData;
  11.     bsCompressedStoredSkin1: TbsCompressedStoredSkin;
  12.     MainMenu1: TMainMenu;
  13.     MainMenu2: TMainMenu;
  14.     OleContainer1: TOleContainer;
  15.     procedure FormShow(Sender: TObject);
  16. private
  17.     { Private declarations }
  18. public
  19.     { Public declarations }
  20.   end;
  21. var
  22.   Form7: TForm7;
  23.   docname:string;
  24. implementation
  25. {$R *.dfm}
  26. procedure TForm7.FormShow(Sender: TObject);
  27. begin
  28. oleContainer1.CreateObjectFromFile('E:\微云\delphi\my奖学金评比系统\data\'+docname+'.doc',False);
  29.   oleContainer1.DoVerb(ovShow);
  30. end;
  31. End.
  1. 公共查询
  1. unit Unit6;
  2. interface
  3. uses
  4.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  5.   Dialogs, bsSkinData, BusinessSkinForm, bsSkinCtrls, StdCtrls, Mask,
  6.   bsSkinBoxCtrls, Menus;
  7. type
  8.   TForm6 = class(TForm)
  9.     bsBusinessSkinForm1: TbsBusinessSkinForm;
  10.     bsSkinData1: TbsSkinData;
  11.     bsCompressedStoredSkin1: TbsCompressedStoredSkin;
  12.     Label1: TLabel;
  13.     bsSkinEdit1: TbsSkinEdit;
  14.     bsSkinButton1: TbsSkinButton;
  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.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  29.     procedure bsSkinButton1Click(Sender: TObject);
  30.     procedure N7Click(Sender: TObject);
  31. private
  32.     { Private declarations }
  33. public
  34.     { Public declarations }
  35.   end;
  36. var
  37.   Form6: TForm6;
  38.   str6:string;
  39. implementation
  40. uses Unit1, Unit4, Unit2;
  41. {$R *.dfm}
  42. procedure TForm6.bsSkinButton1Click(Sender: TObject);
  43. begin
  44. str6:=bsSkinEdit1.Text;
  45. self.Hide;
  46.  MyText.show;
  47. end;
  48. procedure TForm6.FormClose(Sender: TObject; var Action: TCloseAction);
  49. begin
  50. Login.Close;
  51. end;
  52. procedure TForm6.N7Click(Sender: TObject);
  53. begin
  54. self.hide;
  55. MonitorForm.show;
  56. end;
  57. End.
  1. 评奖评优
  1. unit Unit13;
  2. interface
  3. uses
  4.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  5.   Dialogs, bsSkinCtrls, bsSkinData, BusinessSkinForm;
  6. type
  7.   TForm13 = class(TForm)
  8.     bsBusinessSkinForm1: TbsBusinessSkinForm;
  9.     bsSkinData1: TbsSkinData;
  10.     bsCompressedStoredSkin1: TbsCompressedStoredSkin;
  11.     bsSkinButton1: TbsSkinButton;
  12.     bsSkinButton2: TbsSkinButton;
  13.     bsSkinButton3: TbsSkinButton;
  14.     bsSkinButton4: TbsSkinButton;
  15.     procedure bsSkinButton1Click(Sender: TObject);
  16. private
  17.     { Private declarations }
  18. public
  19.     { Public declarations }
  20.   end;
  21. var
  22.   Form13: TForm13;
  23. implementation
  24. uses Unit12;
  25. {$R *.dfm}
  26. procedure TForm13.bsSkinButton1Click(Sender: TObject);
  27. begin
  28. form12.show;
  29. end;
  30. End.
  1. unit Unit12;
  2. interface
  3. uses
  4.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  5.   Dialogs, StdCtrls, Buttons, bsSkinCtrls, bsSkinBoxCtrls, DB, ADODB,
  6.   bsSkinData, BusinessSkinForm, bsSkinGrids, bsDBGrids;
  7. type
  8.   TForm12 = class(TForm)
  9.     bsSkinDBGrid1: TbsSkinDBGrid;
  10.     bsBusinessSkinForm1: TbsBusinessSkinForm;
  11.     bsSkinData1: TbsSkinData;
  12.     bsCompressedStoredSkin1: TbsCompressedStoredSkin;
  13.     ADOQuery1: TADOQuery;
  14.     DataSource1: TDataSource;
  15.     GroupBox1: TGroupBox;
  16.     GroupBox2: TGroupBox;
  17.     GroupBox3: TGroupBox;
  18.     Label1: TLabel;
  19.     Label2: TLabel;
  20.     Label3: TLabel;
  21.     Label4: TLabel;
  22.     Label5: TLabel;
  23.     Label6: TLabel;
  24.     Label7: TLabel;
  25.     Label8: TLabel;
  26.     Label9: TLabel;
  27.     Label10: TLabel;
  28.     Label11: TLabel;
  29.     Label12: TLabel;
  30.     Label13: TLabel;
  31.     Label14: TLabel;
  32.     Edit1: TEdit;
  33.     Edit2: TEdit;
  34.     Edit3: TEdit;
  35.     Edit4: TEdit;
  36.     bsSkinComboBox1: TbsSkinComboBox;
  37.     BitBtn1: TBitBtn;
  38.     BitBtn2: TBitBtn;
  39.     Label15: TLabel;
  40.     Label16: TLabel;
  41.     Label17: TLabel;
  42.     Label18: TLabel;
  43.     Label19: TLabel;
  44.     ADOQuery2: TADOQuery;
  45.     RadioButton1: TRadioButton;
  46.     RadioButton2: TRadioButton;
  47.     RadioButton3: TRadioButton;
  48.     procedure bsSkinDBGrid1CellClick(Column: TbsColumn);
  49.     procedure FormCreate(Sender: TObject);
  50.     procedure BitBtn1Click(Sender: TObject);
  51.     procedure BitBtn2Click(Sender: TObject);
  52. private
  53.     { Private declarations }
  54. public
  55.     { Public declarations }
  56.   end;
  57. var
  58.   Form12: TForm12;
  59. implementation
  60. uses Unit11;
  61. {$R *.dfm}
  62. procedure TForm12.BitBtn1Click(Sender: TObject);
  63. begin
  64.  with adoquery2 do
  65.     begin
  66.       close;
  67.       sql.clear;
  68.       sql.add('select * from Prize where C1=1');
  69.        open;
  70.     end;
  71. if adoquery2.RecordCount<>0 then
  72.   application.MessageBox('已有一等奖名额','提示信息',64)
  73. else
  74.  begin
  75.     label1.Caption:=edit1.Text;
  76.     label2.Caption:=edit2.Text;
  77.     form11.Label5.Caption:=edit2.Text;
  78.     form11.Image2.Picture.LoadFromFile('E:\微云\delphi\my奖学金评比系统\信息1103 班级照片\'+edit1.Text+'.bmp');
  79.      with adoquery2 do
  80.     begin
  81.       close;
  82.       sql.clear;
  83.       sql.add('UPDATE Prize SET C1=1 WHERE Number =:a ');
  84.       parameters.ParamByName('a').Value:=trim(edit1.Text);
  85.       ExecSQL;
  86.       end;
  87.  end;
  88. end;
  89. procedure TForm12.BitBtn2Click(Sender: TObject);
  90. begin
  91. if RadioButton1.Checked then
  92.      begin
  93.        with adoquery2 do
  94.         begin
  95.         close;
  96.         sql.clear;
  97.          sql.add('UPDATE Prize SET C1=0 WHERE Number =:a ');
  98.         parameters.ParamByName('a').Value:=trim(label1.Caption);
  99.          ExecSQL;
  100.         end ;
  101.        label1.Caption:='';
  102.        label2.Caption:='';
  103.      end;
  104. end;
  105. procedure TForm12.bsSkinDBGrid1CellClick(Column: TbsColumn);
  106. begin
  107. edit1.text:=ADOquery1.fieldbyname('Number').asstring;
  108. edit2.text:=ADOquery1.fieldbyname('Name').asstring;
  109. edit3.text:=ADOquery1.fieldbyname('Ranking').asstring;
  110. edit4.text:=ADOquery1.fieldbyname('Ranking_1').asstring;
  111. end;
  112. procedure TForm12.FormCreate(Sender: TObject);
  113. begin
  114. bsSkinCombobox1.Items.Add('一等奖') ;
  115. bsSkinCombobox1.Items.Add('二等奖') ;
  116. bsSkinCombobox1.Items.Add('三等奖') ;
  117. end;
  118. End.

获奖情况

unit Unit11;

  1. interface
  2. uses
  3.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  4.   Dialogs, ExtCtrls, bsSkinData, BusinessSkinForm, bsSkinCtrls, StdCtrls;
  5. type
  6.   TForm11 = class(TForm)
  7.     Image1: TImage;
  8.     bsBusinessSkinForm1: TbsBusinessSkinForm;
  9.     bsSkinData1: TbsSkinData;
  10.     bsCompressedStoredSkin1: TbsCompressedStoredSkin;
  11.     GroupBox1: TGroupBox;
  12.     Image2: TImage;
  13.     bsSkinGroupBox1: TbsSkinGroupBox;
  14.     Image3: TImage;
  15.     Image4: TImage;
  16.     Image5: TImage;
  17.     Image6: TImage;
  18.     Label1: TLabel;
  19.     Label2: TLabel;
  20.     Label3: TLabel;
  21.     Label4: TLabel;
  22.     Label5: TLabel;
  23.     GroupBox2: TGroupBox;
  24.     Image7: TImage;
  25.     Image8: TImage;
  26.     Label7: TLabel;
  27.     Label6: TLabel;
  28.     procedure FormShow(Sender: TObject);
  29. private
  30.     { Private declarations }
  31. public
  32.     { Public declarations }
  33.   end;
  34. var
  35.   Form11: TForm11;
  36. implementation
  37. {$R *.dfm}
  38. procedure TForm11.FormShow(Sender: TObject);
  39. begin
  40. Image1.Picture.LoadFromFile('E:\微云\delphi\my奖学金评比系统\媒体文件\g.bmp');
  41. end;
  42. end.

本文参与腾讯云自媒体分享计划,欢迎正在阅读的你也加入,一起分享。

发表于

我来说两句

0 条评论
登录 后参与评论

扫码关注云+社区

领取腾讯云代金券