【導(dǎo)讀】＜軟件工程——大作業(yè)＞。“成績管理系統(tǒng)”

　　

【正文】 nder: TObject。 var Action: TCloseAction)。 procedure Button3Click(Sender: TObject)。 private { Private declarations } public { Public declarations } end。 var Form4: TForm4。 implementation uses unit1,unit2,unit3,unit5。 {$R *.dfm} procedure (Sender: TObject)。 begin 。 。 end。 procedure (Sender: TObject)。 begin 。 。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject。 var Action: TCloseAction)。 begin 。 end。 procedure (Sender: TObject)。 begin 。 。 end。 end. unit Unit3。 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids, jpeg, ExtCtrls。 type TForm3 = class(TForm) DBGrid1: TDBGrid。 DataSource1: TDataSource。 ADOQuery1: TADOQuery。 Label1: TLabel。 Edit1: TEdit。 Label2: TLabel。 Edit2: TEdit。 Label3: TLabel。 Edit3: TEdit。 Label4: TLabel。 Edit4: TEdit。 Label5: TLabel。 Edit5: TEdit。 Label6: TLabel。 Edit6: TEdit。 Label7: TLabel。 Edit7: TEdit。 Button1: TButton。 Button2: TButton。 Button3: TButton。 DataSource2: TDataSource。 ADOTable1: TADOTable。 Image1: TImage。 procedure Button1Click(Sender: TObject)。 procedure Button2Click(Sender: TObject)。 procedure Button3Click(Sender: TObject)。 private { Private declarations } public { Public declarations } end。 var Form3: TForm3。 implementation uses unit1,unit4。 {$R *.dfm} procedure (Sender: TObject)。 begin with ADOQuery1 do begin if Active then Close。 。 (39。select * from 學(xué)生表 where 學(xué)號(hào) = 39。39。39。+ +39。39。39。39。)。 execsql。 open。 :=fieldvalues[39。姓名 39。]。 :=fieldvalues[39。年齡 39。]。 :=fieldvalues[39。性別 39。]。 :=fieldvalues[39。入學(xué)年份 39。]。 :=fieldvalues[39。所在班級(jí) 39。]。 :=fieldvalues[39。籍貫 39。]。 end。 end。 procedure (Sender: TObject)。 begin with ADOQuery1 do begin if Active then Close。 。 (39。update 學(xué)生表 set 姓名 =39。39。39。++39。39。39。 where 學(xué)號(hào) = 39。39。39。+ +39。39。39。39。)。 showmessage(39。修改成功 39。)。 ExecSQL。 end。 With ADOTable1 do begin Active := False。 Open。 Locate(39。學(xué)號(hào) 39。, , [])。 end。 end。 procedure (Sender: TObject)。 begin 。 。 end。 end. unit Unit2。 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, StdCtrls, Grids, DBGrids, ExtCtrls, jpeg。 type TForm2 = class(TForm) DataSource1: TDataSource。 DBGrid1: TDBGrid。 Label1: TLabel。 Label2: TLabel。 Label3: TLabel。 Label4: TLabel。 Edit1: TEdit。 Edit2: TEdit。 Edit3: TEdit。 Edit4: TEdit。 Button1: TButton。 Button2: TButton。 Button3: TButton。 Button4: TButton。 ADOQuery1: TADOQuery。 ADOTable1: TADOTable。 DataSource2: TDataSource。 DataSource3: TDataSource。 ADOStoredProc1: TADOStoredProc。 DBGrid2: TDBGrid。 Button5: TButton。 Button6: TButton。 Button7: TButton。 ADOTable1DSDesigner: TWideStringField。 ADOTable1DSDesigner2: TWideStringField。 ADOTable1DSDesigner3: TWideStringField。 ADOTable1DSDesigner4: TFloatField。 Image1: TImage。 procedure Button1Click(Sender: TObject)。 procedure Button3Click(Sender: TObject)。 procedure Edit4KeyPress(Sender: TObject。 var Key: Char)。 procedure Button2Click(Sender: TObject)。 procedure Button4Click(Sender: TObject)。 procedure Button5Click(Sender: TObject)。 procedure Button6Click(Sender: TObject)。 procedure Button7Click(Sender: TObject)。 private { Private declarations } public { Public declarations } end。 var Form2: TForm2。 implementation uses unit1,Unit4。 {$R *.dfm} procedure (Sender: TObject)。 begin with ADOQuery1 do begin if Active then Close。 。 (39。select 課名 , 成績 from 選課表 where 學(xué)號(hào) = 39。39。39。+ +39。39。39。 or 課號(hào)=39。39。39。++39。39。39。39。)。 open。 end。 end。 procedure (Sender: TObject)。 begin [1].Value:=。 [2].Value:=。 [3].Value:=。 [4].Value:=。 if MessageDlg(39。確定添加么 ?39。, mtConfirmation, [mbYes, mbNo], 0) = mrYes then 。 。 。 。 。 。 。 // :=false。 end。 procedure (Sender: TObject。 var Key: Char)。 begin If not (key in [48..57,8]) then //8 是退格鍵 ,也可以加上 13 回車鍵 begin showmessage(39。只能輸入數(shù)字 39。)。 key:= 0。 end。 end。 procedure (Sender: TObject)。 begin with ADOQuery1 do begin if Active then Close。 。 (39。update 選課表 set 成績 =39。39。39。++39。39。39。where 學(xué) 號(hào) = 39。39。39。+ +39。39。39。 and 課號(hào)=39。39。39。++39。39。39。39。)。 showmessage(39。修改成功 39。)。 ExecSQL。 //執(zhí)行語句 end。 With ADOTable1 do begin Active := False。 Open。 Locate(39。學(xué)號(hào) 39。, , [])。 end。 end。 procedure (Sender: TObject)。 begin with ADOQuery1 do begin if active then close。 。 (39。delete from 選課表 where 學(xué)號(hào) = 39。39。39。+ +39。39。39。 and 課號(hào) =39。39。39。++39。39。39。39。)。 if MessageDlg(39。確定刪除么 ?39。, mtConfirmation, [mbYes, mbNo], 0) = mrYes then 。 showmessage(39。刪除成功 39。)。 end。 With ADOTable1 do begin Active := False。 Open。 Locate(39。學(xué)號(hào) 39。, , [])。 end。 end。 procedure (Sender: TObject)。 begin 。 。 end。 procedure (Sender: TObject)。 begin with ADOQuery1 do begin if Active then Close。 。 (39。select sum(成績 ) as 總分 from 選課表 where 學(xué)號(hào) = 39。39。39。+ +39。39。39。 or 課號(hào)=39。39。39。++39。39。39。39。)。 open。 end。 end。 procedure (Sender: TObject)。 begin with ADOQuery1 do begin if Active then Close。 。 (39。select avg(成績 ) as 平均分 from 選課表 where 學(xué)號(hào) = 39。39。39。+ +39。39。39。 or 課號(hào)=39。39。39。++39。39。39。39。)。 open。 end。 end。 end.