學(xué)籍管理系統(tǒng)課程設(shè)計(jì)報(bào)告

上傳人：奔*** IP屬地：河北更新時(shí)間：2024-03-01 格式：docx 頁數(shù)：29 大?。?85.56KB 人氣指數(shù)：12 舉報(bào) 版權(quán)申訴

已閱讀1頁，還剩28頁未讀，繼續(xù)免費(fèi)閱讀

版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)

文檔簡(jiǎn)介

1、　　數(shù)據(jù)庫課程設(shè)計(jì)課程設(shè)計(jì)報(bào)告——　　《學(xué)生學(xué)籍管理系統(tǒng)》　　目錄　　前言……………………………………………………………1　　摘要……………………………………………………………1<p&g

2、t;　　一、緒論………………………………………………………2　　二、系統(tǒng)需求分析……………………………………………2　　2．1開發(fā)軟件…………………………………………………2　　2．2設(shè)計(jì)方法…………………………………………………2　　2．3數(shù)據(jù)字典……………………………

3、……………………2　　2．4數(shù)據(jù)流圖…………………………………………………3　　三、關(guān)系數(shù)據(jù)模型的設(shè)計(jì)…………………………………… 6　　3.1系統(tǒng)概念模型………………………………………………7　　3.2 E-R圖………………………………………………………7</p&

4、gt;　　3.3 SQL表關(guān)系圖…………………………………………… 8　　3.4數(shù)據(jù)庫物理結(jié)構(gòu)設(shè)計(jì)………………………………………8　　四、系統(tǒng)實(shí)現(xiàn)………………………………………………… 9　　4.1數(shù)據(jù)庫的建立………………………………………………9

5、　4.2Delphi應(yīng)用程序開發(fā)………………………………………10　　4.3各功能模塊的設(shè)計(jì)…………………………………………11　　4.4窗體設(shè)計(jì)……………………………………………………14　　附錄 ……………………………………………………………17

6、前言：　　目前社會(huì)上信息管理系統(tǒng)發(fā)展飛快,各個(gè)企事業(yè)單位都引入了信息管理軟件來管理自己日益增長的各種信息, 隨著學(xué)校向全國及至世界范圍的持續(xù)擴(kuò)張，學(xué)生人數(shù)的增加，對(duì)于學(xué)生的信息管理也越來越復(fù)雜，要求也越來越高，因此需要一個(gè)全面、詳細(xì)的信息管理系統(tǒng)，以便完成對(duì)學(xué)生信息的管理。　　學(xué)生信息管理系統(tǒng)，可以用集中的數(shù)據(jù)庫將與人力資源管理相關(guān)的

7、信息全面、有機(jī)地聯(lián)系起來，有效地減少了信息更新和查找中的重復(fù)勞動(dòng)，保證了信息的相容性，從而大大地提高了工作效率，還能使原來不可能提供的分析報(bào)告成了可能。在采用和實(shí)施學(xué)生信息管理系統(tǒng)之后，就會(huì)將依賴于人的過程改為依賴于計(jì)算機(jī)系統(tǒng)的過程。學(xué)校管理人員只要獲取了相應(yīng)的權(quán)限，就可以隨時(shí)進(jìn)入系統(tǒng)，直接查閱相應(yīng)的信息。　　采用和實(shí)施學(xué)生信息管理系統(tǒng)不僅僅是為了提高工作效率。應(yīng)該看到，在實(shí)施學(xué)生信息管理系統(tǒng)后

8、，經(jīng)過整合的、較為全面、準(zhǔn)確、一致和相容的信息不僅可以讓學(xué)校領(lǐng)導(dǎo)對(duì)本學(xué)校學(xué)生資源的現(xiàn)狀有一個(gè)比較全面和準(zhǔn)確的認(rèn)識(shí)，同時(shí)也可以生成綜合的分析報(bào)表供學(xué)校領(lǐng)導(dǎo)人在決策時(shí)參考。　　摘要：　　本次課程設(shè)計(jì)采用SQL數(shù)據(jù)庫與Delphi結(jié)合的方式，通過用SQL建立起基本表，然后分析各表之間的聯(lián)系，以及要實(shí)現(xiàn)的功能，然后通過Del

9、phi來設(shè)計(jì)用戶操作界面，從而完成學(xué)生管理系統(tǒng)的設(shè)計(jì)。　　一、緒論　　SQL是一種介于關(guān)系代數(shù)與關(guān)系演算之間的語言，其功能包括數(shù)據(jù)查詢（query）、數(shù)據(jù)操作（data manipulation）、數(shù)據(jù)定義（data definition）和數(shù)據(jù)控制（data control）四個(gè)方面，是一個(gè)通用的，功能極強(qiáng)的關(guān)系數(shù)

10、據(jù)庫語言。目前SQL語言已經(jīng)成為關(guān)系數(shù)據(jù)庫的標(biāo)準(zhǔn)語言。SQL具有高度統(tǒng)一、高度非過程化、采用面向集合操作方式、支持三級(jí)模式結(jié)構(gòu)、具有一種語法、兩種使用方式、結(jié)構(gòu)簡(jiǎn)潔、易學(xué)易用的特點(diǎn)，所以為廣大用戶和業(yè)界所接受，成為國際標(biāo)準(zhǔn)。　　做學(xué)生管理系統(tǒng)是由于現(xiàn)在學(xué)校學(xué)生數(shù)量很多，而學(xué)生信息的管理及其課程管理與選課過程都是一個(gè)大量的重復(fù)的工作，且信息散亂，本系統(tǒng)的作用就是使這些散亂的信息具體化、直觀化。&l

11、t;/p>　　二、系統(tǒng)需求分析　　2、1開發(fā)軟件　　采用Delphi可視化編譯環(huán)境，開發(fā)windows應(yīng)用程序；采用SQL Sever數(shù)據(jù)庫作為支撐，構(gòu)建一套規(guī)范且符合教學(xué)管理需求的教學(xué)管理系統(tǒng)。<b&g

12、t;　　2、2設(shè)計(jì)方法　　采用規(guī)范式設(shè)計(jì)法，分為四個(gè)階段：需求分析、概念設(shè)計(jì)、邏輯設(shè)計(jì)、物理設(shè)計(jì)。數(shù)據(jù)庫采用基于E-R模型以及基于3NF的設(shè)計(jì)方法。　　2、4數(shù)據(jù)字典　　數(shù)據(jù)項(xiàng)

13、　　學(xué)生表（XS） 　　課程表（XS_KC）　　性別表（XBM）　　數(shù)據(jù)約束　?。?）實(shí)體完整性約束：基本關(guān)系的所有主鍵的屬性都不能取空值且主鍵作為唯一性標(biāo)

14、識(shí)。需要滿足該約束的主鍵：學(xué)生表（XS）.學(xué)號(hào)(xh)、課程表（KCB）.課程編號(hào)(kch).　?。?）參照完整性約束：外鍵的值只能取空值或等于關(guān)聯(lián)主鍵的值。需要滿足該約束的外鍵：學(xué)生表（XS）.學(xué)號(hào)與課程表（KCB）　　課程號(hào)外鍵關(guān)聯(lián).　　（3）用戶定義完整性約束：針對(duì)某一

15、具體關(guān)系數(shù)據(jù)庫的約束條件，反映某一具體應(yīng)用所涉及的數(shù)據(jù)必須滿足的語義要求。需要滿足該約束的屬性：學(xué)生表（XS）.學(xué)號(hào)，課程表（KCB）.課程編號(hào)，.都不能為空，學(xué)生表（XS）.性別只能為男或女。　　數(shù)據(jù)流圖　　數(shù)據(jù)存儲(chǔ)信息　　XS表：Xh

16、（主鍵）、Xb、Xb、Cssj、Zy、Zxf、Bz、Kch（外鍵）。　　KC表：Kch（主鍵）、kCM、Cj。　　XBM表：Xb、Xbm。　　三、關(guān)系數(shù)據(jù)庫的模型建立　　3、1系統(tǒng)概念模型 　　學(xué)生信息管理E-R圖</p&g

17、t;　　3、2 SQL表關(guān)系圖　　3、3數(shù)據(jù)庫的物理結(jié)構(gòu)設(shè)計(jì)　　數(shù)據(jù)庫物理模型可以從概念模型轉(zhuǎn)化形成，物理模型設(shè)計(jì)產(chǎn)生數(shù)據(jù)庫數(shù)據(jù)庫的物理結(jié)構(gòu)，即將數(shù)據(jù)庫設(shè)計(jì)映射到一個(gè)具體的類型的物理數(shù)據(jù)庫上。邏輯結(jié)構(gòu)中的實(shí)體會(huì)形成物理結(jié)構(gòu)中的數(shù)據(jù)表。　　將該數(shù)據(jù)庫設(shè)計(jì)映射到SQL數(shù)據(jù)庫上，生成學(xué)生管理系統(tǒng)

18、的數(shù)據(jù)庫表XS、KCB、XBM，如下為這三個(gè)表的結(jié)構(gòu)：　　四、系統(tǒng)實(shí)現(xiàn)　　4、1數(shù)據(jù)庫建立　　使用SQL語言在SQL Server 2000的查詢分析器中建基本表。具體處理流程如下：<b&g

19、t;　　創(chuàng)建XS表：　　創(chuàng)建XS_KC表：　　創(chuàng)建XBM表：　　我們還可以在企業(yè)管理器中創(chuàng)建表，操作比較簡(jiǎn)單，在這里不做過多解釋。　　4、2 Delphi應(yīng)用程序開發(fā)</

20、p>　　使用Delphi7作為開發(fā)工具，完成與SQL Server數(shù)據(jù)庫的連接，以及用戶界面的設(shè)計(jì)。　　4、2、1 系統(tǒng)功能模塊圖　　系統(tǒng)各功能模塊圖　　功能的實(shí)現(xiàn)

21、添加功能：使用ADOQuery組件的Append方法或SQL語句添加數(shù)據(jù)。　　修改功能：使用ADOQuery組件的Edit方法或SQL語句修改數(shù)據(jù)。　　刪除功能：使用ADOQuery組件的Delete方法或SQL語句刪除數(shù)據(jù)。　　查詢功能：通過編輯ADOQuery組件的SQL語句進(jìn)行查詢。

22、　　信息的顯示：對(duì)于批量數(shù)據(jù)使用DBGrid組件顯示，對(duì)于單個(gè)數(shù)據(jù)使用 Edit、DBEdit、Combobox以及DataTimepicker等組件顯示。　　數(shù)據(jù)的輸入：使用Edit、DBEdit、Combobox以及DataTimepicker等組件進(jìn)行數(shù)據(jù)的輸入。　　連接數(shù)據(jù)庫</p&g

23、t;　　采用ADO方式連接和訪問數(shù)據(jù)庫。　　使用ADOConnection組件連接SQL Server數(shù)據(jù)庫：　　連接數(shù)據(jù)庫　　屬性設(shè)計(jì)：　　4、4窗體設(shè)計(jì)

24、　　主界面：　　查詢界面：　　修改界面：　　插入界面:&l

25、t;b>　　刪除界面：　　附錄　　Delphi應(yīng)用程序源代碼　　工程代碼　　數(shù)據(jù)庫鏈接： <p&g

26、t;　　unit Unit1;　　interface　　uses　　SysUtils, Classes, DB, ADODB;　　type

27、　　TXSCJDM = class(TDataModule)　　XSCJADOConnection: TADOConnection;　　XSCJADOCommand: TADOCommand;　　XSCJADODataSet: TADODataSet;

28、;　　ADOStoredProc1: TADOStoredProc;　　XSCJDataSource: TDataSource;　　private　　{ Private declarations }　　public&

29、lt;/b>　　{ Public declarations }　　end;　　var　　XSCJDM: TXSCJDM;　　implementati

30、on　　{$R *.dfm}　　end.　　主界面　　unit Unit6;　　interface

31、;　　uses　　Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,　　Dialogs, Menus, ExtCtrls, jpeg;

32、type　　TXSCJGL = class(TForm)　　Panel1: TPanel;　　MainMenu1: TMainMenu;　　MainMenu2: TMainMenu;　　N1: TMenuIte

33、m;　　N3: TMenuItem;　　Select_Button: TMenuItem;　　Update_Button: TMenuItem;　　Delete_Button: TMenuItem;　　N6: TMenuItem;

34、　　Insert_Button1: TMenuItem;　　Insert_Button2: TMenuItem;　　Image1: TImage;　　Image2: TImage;　　procedure Select_Button

35、Click(Sender: TObject);　　procedure Insert_Button1Click(Sender: TObject);　　procedure Update_ButtonClick(Sender: TObject);　　procedure Delete_ButtonClick(Sender

36、: TObject);　　private　　{ Private declarations }　　public　　{ Public declarations }<p&g

37、t;　　end;　　var　　XSCJGL: TXSCJGL;　　implementation　　uses Unit7, Unit8, Unit9, Unit3;<p

38、>　　{$R *.dfm}　　procedure TXSCJGL.Select_ButtonClick(Sender: TObject);　　begin　　XSCJGL.Visible:=false;　　CX.

39、Show;　　end;　　procedure TXSCJGL.Insert_Button1Click(Sender: TObject);　　begin　　XSCJGL.Visi

40、ble:=false;　　CR1.Show;　　end;　　procedure TXSCJGL.Update_ButtonClick(Sender: TObject);　　beg

41、in　　XSCJGL.Visible:=false;　　XG.Show;　　end;　　procedure TXSCJGL.Delete_ButtonClick(Sender:

42、 TObject);　　begin　　XSCJGL.Visible:=false;　　SC.Show;　　end;&

43、lt;b>　　end.　　查詢：　　unit Unit7;　　interface　　uses

44、;　　Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,　　Dialogs, Grids, StdCtrls, ExtCtrls, DBGrids, jpeg;　　type　　T

45、CX = class(TForm)　　Panel2: TPanel;　　Label1: TLabel;　　Edit1: TEdit;　　Button1: TButton;　　Button2: TButton;

46、　　Panel3: TPanel;　　DBGrid1: TDBGrid;　　Label2: TLabel;　　Image1: TImage;　　procedure Button1Click(Sender: TObject);&l

47、t;p>　　procedure Button2Click(Sender: TObject);　　private　　{ Private declarations }　　public　　{ Pu

48、blic declarations }　　end;　　var　　CX: TCX;　　implementation

49、uses Unit6, Unit1;　　{$R *.dfm}　　procedure TCX.Button1Click(Sender: TObject);　　Var　　Xh,Sql:String;

50、;　　begin　　Xh:=Edit1.Text;　　Sql:='select XH,XM,XBM,CSSJ,ZY,ZXF,BZ from XS,XBM where XH='+''''+XH+''' and XBM.XB=XS.XB';&

51、lt;/p>　　XSCJDM.XSCJADODataSet.Active:=false;　　XSCJDM.XSCJADODataSet.CommandText:=Sql;　　XSCJDM.XSCJADODataSet.Active:=true;　　if ( XSCJDM.XSCJAD

52、ODataSet.FieldValues['XH']=NULL)then　　showmessage('要查詢的學(xué)生數(shù)據(jù)不存在!');　　end;　　procedure TCX.Button2Click(Sender: TObject);<

53、/p>　　begin　　XSCJGL.Visible:=true;　　CX.Visible:=false;　　end;　　end&

54、lt;/p>　　插入成績(jī)　　unit Unit2;　　interface　　uses　　Windows, Messages, Sy

55、sUtils, Variants, Classes, Graphics, Controls, Forms,　　Dialogs, StdCtrls, jpeg, ExtCtrls;　　type　　TForm1 = class(TForm)

56、;　　Panel2: TPanel;　　Label1: TLabel;　　Label2: TLabel;　　Label3: TLabel;　　Edit1: TEdit;　　Edit2: TEdit;<

57、p>　　Edit3: TEdit;　　Button1: TButton;　　Button2: TButton;　　Label4: TLabel;　　Image1: TImage;　　procedure Button1Clic

58、k(Sender: TObject);　　procedure Button2Click(Sender: TObject);　　private　　{ Private declarations }　　public<

59、/b>　　{ Public declarations }　　end;　　var　　Form1: TForm1;　　implementation<

60、;/p>　　{$R *.dfm}　　procedure TForm1.Button1Click(Sender: TObject);　　Var　　Xh,Kch,Cj,Xf,Sql1,Sql2,Sql3,Temp1,Temp2:string;</

61、p>　　begin　　Xh:=Edit1.Text;　　Kch:=Edit2.Text;　　Cj:=Edit3.Text;　　Sql1:='select XH from XS where XH =&

62、#39;+''''+Xh+'''';　　XSCJDM.XSCJADODataSet.Active:=false;　　XSCJDM.XSCJADODataSet.CommandText:=Sql1;　　XSCJDM.XSCJADODataSet.Act

63、ive:=true;　　Temp1:=XSCJDM.XSCJADODataSet.FieldValues['XH'];　　if (Temp1:<>NULL)then　　begin　　Sql2:='

64、;select KCH,XF From KC where KCH ='+''''+Kch+'''';　　XSCJDM.XSCJADODataSet.Active:=false;　　XSCJDM.XSCJADODataSet.CommandText:=Sql2;

65、　　XSCJDM.XSCJADODataSet.Active:=true;　　Temp2:=XSCJDM.XSCJADODataSet.FieldValues['KCH'];　　Xf:=XSCJDM.XSCJADODataSet.FieldValues['XF'];

66、;　　if (Temp2:<>NULL)then　　begin　　Sql3:='Insert XS_KC values('''+Xh+''','''+Kch+''','+Cj+',&

67、#39;Xf+')';　　XSCJDM.XSCJADOCommand.CommandText:=Sql3;　　XSCJDM.XSCJADOCommand.Execute;　　showmessage('插入成功!')　　en

68、d;　　end;　　end;　　end;　　procedure TForm1.Button2Click(Sender: TObject);

69、　　begin　　XSCJGL.Visible:=true;　　CR2.Visible:=false;　　end;　　end.</

70、b>　　插入學(xué)生信息　　unit Unit3;　　interface　　uses　　Windows, Mess

71、ages, SysUtils, Variants, Classes, Graphics, Controls, Forms,　　Dialogs, Menus, ExtCtrls, StdCtrls, jpeg;　　type　　TCR1 = class(TForm)</p&

72、gt;　　Panel2: TPanel;　　Label1: TLabel;　　Label2: TLabel;　　Label3: TLabel;　　Label4: TLabel;　　Label5: TLabel

73、;　　Label6: TLabel;　　Edit1: TEdit;　　Edit2: TEdit;　　Edit3: TEdit;　　Edit4: TEdit;　　Edit5: TEdit;&

74、lt;/p>　　Label7: TLabel;　　RadioButton1: TRadioButton;　　RadioButton2: TRadioButton;　　Label8: TLabel;　　Label9: TLabel;</p&

75、gt;　　Memo1: TMemo;　　Button1: TButton;　　Button2: TButton;　　Label10: TLabel;　　Image1: TImage;　　procedure B

76、utton1Click(Sender: TObject);　　procedure Button2Click(Sender: TObject);　　private　　{ Private declarations }

77、public　　{ Public declarations }　　end;　　var　　CR1: TCR1;　　implementat

78、ion　　uses Unit1, Unit6;　　{$R *.dfm}　　procedure TCR1.Button1Click(Sender: TObject);　　Var　　Xh,Xm,X

79、b,Cssj,Zy,Zxf,Bz,Sql1,Sql2:string;　　begin　　Xh:=Edit1.Text;　　Xm:=Edit2.Text;　　if RadioButton1.Checked=true then<

80、/p>　　Xb:='1'　　else　　Xb:='0';　　Zy:=Edit4.Text;　　Cs

81、sj:=Edit3.Text;　　Zxf:=Edit5.Text;　　Bz:=Memo1.Text;　　Sql1:='select XH from XS where XH ='+''''+Xh+'''';<

82、;p>　　XSCJDM.XSCJADODataSet.Active:=false;　　XSCJDM.XSCJADODataSet.CommandText:=Sql1;　　XSCJDM.XSCJADODataSet.Active:=true;　　if (XSCJDM.XSCJADODataSet.FieldV

83、alues['XH']<>NULL)then　　showmessage('該學(xué)生數(shù)據(jù)存在！')　　else　　begin　　sql2:='Ins

84、ert XS values('''+Xh+''','''+Xm+''','+Xb+','''+Cssj+''','''+Zy+''','+Zxf+','''+Bz+'''

85、;)';　　XSCJDM.XSCJADOCommand.CommandText:=Sql2;　　XSCJDM.XSCJADOCommand.Execute;　　showmessage('插入數(shù)據(jù)成功!')　　end;</b&

86、gt;　　end;　　procedure TCR1.Button2Click(Sender: TObject);　　begin　　XSCJGL.Visible:=true;

87、　　CR1.Close;　　end;　　end.　　unit Unit8;　　interface&

88、lt;b>　　uses　　Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,　　Dialogs, StdCtrls, ExtCtrls, jpeg;　　type</b

89、>　　TXG = class(TForm)　　Panel2: TPanel;　　Label1: TLabel;　　Edit1: TEdit;　　Label2: TLabel;　　Ed

90、it2: TEdit;　　Label3: TLabel;　　Edit3: TEdit;　　Label4: TLabel;　　Edit4: TEdit;　　Label5: TLabel;

91、RadioButton1: TRadioButton;　　Label6: TLabel;　　RadioButton2: TRadioButton;　　Label7: TLabel;　　Label8: TLabel;　　Edit5:

92、 TEdit;　　Edit6: TEdit;　　Label10: TLabel;　　Button1: TButton;　　Button2: TButton;　　Button3: TButton;<p&

93、gt;　　Memo1: TMemo;　　Label9: TLabel;　　Label11: TLabel;　　Image1: TImage;　　procedure Button2Click(Sender: TObject);　　p

94、rocedure Button3Click(Sender: TObject);　　procedure Button1Click(Sender: TObject);　　private　　{ Private declarations }&

95、lt;b>　　public　　{ Public declarations }　　end;　　var　　XG: TXG;</p&

96、gt;　　implementation　　uses Unit1, Unit6;　　{$R *.dfm}　　procedure TXG.Button1Click(Sender: TObject);　　Var<

97、/p>　　Xh,Sql:String;　　begin　　Xh:=Edit1.Text;　　Sql:='select*from XS where XH='+''''+Xh+'''

98、';　　XSCJDM.XSCJADODataSet.Active:=false;　　XSCJDM.XSCJADODataSet.CommandText:=Sql;　　XSCJDM.XSCJADODataSet.Active:=true;　　if (XSCJDM.

99、XSCJADODataSet.FieldValues['XH']<>NULL)then　　begin　　Edit2.Text:=XSCJDM.XSCJADODataSet.FieldValues['XH'];　　Edit3.Text

100、:=XSCJDM.XSCJADODataSet.FieldValues['XM'];　　Edit4.Text:=XSCJDM.XSCJADODataSet.FieldValues['CSSJ'];　　Edit5.Text:=XSCJDM.XSCJADODataSet.FieldValues['ZY'];&l

101、t;/p>　　Edit6.Text:=XSCJDM.XSCJADODataSet.FieldValues['ZXF'];　　Memo1.Text:=XSCJDM.XSCJADODataSet.FieldValues['BZ'];　　if(XSCJDM.XSCJADODataSet.FieldVa

102、lues['XB']<>0)then　　RadioButton1.Checked:=true　　else　　RadioButton2.Checked:=true　　end

103、;　　else　　showmessage('要修改的記錄不存在')　　end;　　procedure TXG.Button2Click(Sender: TObject);</

104、p>　　Var　　Xh,Xm,Xb,Cssj,Zy,Zxf,Bz,Sql1:string;　　begin　　Xh:=Edit2.Text;　　Xm:=Edit3.Tex

105、t;　　if RadioButton1.Checked=true then　　Xb:='1'　　else　　Xb:='0';

106、;　　Zy:=Edit5.Text;　　Cssj:=Edit4.Text;　　Zxf:=Edit6.Text;　　Bz:=Memo1.Text;　　Sql1:='update XS set XM='+'&#

107、39;''+Xm+''',XB='+''+Xb+',cssj='+''''+cssj+''' where XH='+''''+Xh+'''';　　XSCJDM.XSCJADOCommand.

108、CommandText:=Sql1;　　XSCJDM.XSCJADOCommand.Execute;　　showmessage('修改成功！')　　end;　　procedure TXG.Button3Click(Se

109、nder: TObject);　　begin　　XSCJGL.Visible:=true;　　XG.Close ;　　end;　　刪除&

110、lt;/b>　　unit Unit9;　　interface　　uses　　Windows, Messages, SysUtils, Variants, Classes, Graphics,

111、 Controls, Forms,　　Dialogs, StdCtrls, ExtCtrls, jpeg;　　type　　TSC = class(TForm)　　Panel2: TPanel;

112、　　Label1: TLabel;　　Edit1: TEdit;　　Button1: TButton;　　Button2: TButton;　　Label2: TLabel;　　Image1: TImage;

113、　　procedure Button1Click(Sender: TObject);　　procedure Button2Click(Sender: TObject);　　private　　{ Private declarations }

114、;　　public　　{ Public declarations }　　end;　　var　　SC: TSC;<

115、/b>　　implementation　　uses Unit1, Unit6, Unit7;　　{$R *.dfm}　　procedure TSC.Button1Click(Sender: TObject);

116、;　　Var　　Xh,Sql1,Sql2:String;　　begin　　Xh:=Edit1.Text;　　Sql1:='select XH from XS where XH='+''

117、;''+Xh+'''';　　XSCJDM.XSCJADODataSet.Active:=false;　　XSCJDM.XSCJADODataSet.CommandText:=Sql1;　　XSCJDM.XSCJADODataSet.Active:=true;<

118、/p>　　if (XSCJDM.XSCJADODataSet.FieldValues['XH']<>NULL)then　　begin　　Sql2:='delete from XS where XH='+''''+

119、Xh+'''';　　XSCJDM.XSCJADOCommand.CommandText:=Sql2;　　XSCJDM.XSCJADOCommand.Execute;　　showmessage('刪除成功！')

120、;　　end　　else　　begin　　showmessage('要?jiǎng)h除的學(xué)生記錄不存在!');　　Edit1.Text:='';</p

121、>　　end;　　end;　　procedure TSC.Button2Click(Sender: TObject);　　begin

眾賞文庫> 全部分類> 畢業(yè)設(shè)計(jì)

溫馨提示

1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會(huì)有圖紙預(yù)覽，若沒有圖紙預(yù)覽就沒有圖紙。
4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
5. 眾賞文庫僅提供信息存儲(chǔ)空間，僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理，對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請(qǐng)與我們聯(lián)系，我們立即糾正。
7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。

學(xué)籍管理系統(tǒng)課程設(shè)計(jì)報(bào)告

文檔簡(jiǎn)介

溫馨提示

最新文檔

評(píng)論

學(xué)籍管理系統(tǒng)課程設(shè)計(jì)報(bào)告

文檔簡(jiǎn)介

溫馨提示

最新文檔

評(píng)論

免費(fèi)下載