獎學金評分系統（系統分析與設計版與Delphi實現代碼）

1、系統規劃

1.1 項目背景介紹

在獎學金評比過程當中，學生綜合測評是學校廣泛採用的評比手段。對學生實施綜合素質測評的目的在於正確評價學生的綜合素質，爲評獎學金提供依據，實現學生教育管理工做的標準化、制度化和科學化，引導和促進學生德、智、體、美全面發展。

 

1.2 現存問題及系統目標

目前我國廣泛高校學生獎學金評比還停留在紙質的階段，許多工做須要傳統的手工操做，這不只浪費了大量的人力物力資源，並且因爲人工管理存在着許多不可控因素，致使學生獎學金評比操做不規範，測評結果不全面，不能客觀準確地反應學生的綜合素質。所以，創建一套基於計算機環境的技術先進、高效穩定、安全可靠的獎學金測評系統是徹底有必要的。

獎學金評比系統的目的是自動分析、計算、統計、管理學生綜合測評數據,減小人工干預,下降計算失誤,提升工做效率,將輔導員、班主任、班委從繁重的綜合測評及平常管理中解放出來,使學校的綜合測評工做系統化、規範化、自動化。

與傳統的紙質評比相比，計算機管理不但能發揮計算機方便、快捷的功能，並且能夠節省大量的資源費用等，更方便靈活操做，並且方便管理，增長獎學金評比的公平性、透明性，有效防止獎學金評比的弊端，使學生獎學金評比更加合理、更趨於成熟。這些都可以極大地提升工做效率，特別是校園網應用發展迅速的今天，利用網絡進行信息的查詢、修改和發佈已成爲學校現代化管理的象徵之一，也是學校科學化和正規化管理的重要條件。所以開發一套比較成熟的學生獎學金評比系統頗有必要。

 

1.3 可行性分析

1技術性分析

使用delphi，支持數據庫，操做簡單方便。

2 經濟性分析

花費費用小，節省人力物力。

3 系統運行可行性分析

可實現登記、查詢、修改，比較等功能，切實可行。

 

 

1.4進度安排

 

2、系統分析

2.1功能需求分析

 

本系統主要進行學生的獎學金評比綜合成績考覈和班委對學生狀況的管理記相關的活動。主要包含以下功能模塊：

1. 學生系統管理模塊

   該模塊提供學生進行學生信息查詢。實現學生的我的信息管理。方便了學生管理以及成績考覈查詢，獎學金評比。更能實現效率。

2. 班委系統管理模塊

   該模塊提供學生班委進行學生信息更改。實現班委的班級信息管理。方便了班委管理和成績考覈查詢，獎學金評比更改。更能實現效率。

   2.2非功能需求分析

3. 技術需求

   系統的學生、班委和教師組件要求運行在用windows操做系統的筆記本或臺式機上。服務器組件要求必須使用C語言編寫，而且相互之間使用組件交互標準CORBA（公用對象請求代理結構）或SOAP（緝拿的那對象訪問協議）進行通訊。

4. 性能需求

   系統的學生、班委和教師部分要求在全部的屏幕上都是半秒的響應時間，而服務器組件可能須要在一樣的響應時間內支持上千個併發的學生教師操做。

   三、可用性需求

   基於web的界面符合整個組織範圍內的圖形設計準則，像菜單佈局和格式、色彩設計、組織標誌的使用規範化。

    

   四、可靠性需求

   當服務出現損耗或出現不正當處理、以及錯誤檢測和恢復將會自動根據程序要求來進行自我修復和改進。

    

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、系統分析

   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怎麼會不能解決任何要求呢）

    2、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.