oracle學(xué)生成績(jī)管理系統(tǒng)設(shè)計(jì)(編輯修改稿)
2024-10-24 05:14 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 T NULL PRIMARY KEY, NOT NULL, DEFAULT 39。139。 NOT NULL, CSSJ date NOT NULL, NULL, NULL，NULL ZY char(12)ZXF number(2)BZ varchar2(200))。課程表（KCB）CREATE TABLE KCB（NOT NULL PRIMARY KEY, NOT NULL，NULL, NULL, NOT NULL KCH char(3)KCM char(16)KKXQ XSXF)。number(1)number(2)number(1)成績(jī)表（CJB）CREATE TABLE CJB（XH char(6)NOT NULL, KCH char(3)NOT NULL, CJ number(2)NULL, PRIMARY KEY(XH, KCH))。學(xué)生照片表（XSZP）CREATE TABLE XSZP(XH char(6)NOT NULL PRIMARY KEY, ZP blob NULL)。 插入樣本數(shù)據(jù)數(shù)據(jù)為課本后學(xué)生信息數(shù)據(jù)。 創(chuàng)建視圖XS_KC_CJ CREATE VIEW XS_KC_CJ AS SELECT , , , FROM XSB CROSS JOIN KCB LEFT OUTER JOIN CJB ON = AND =。 創(chuàng)建觸發(fā)器CREATE OR REPLACE TRIGGER xs_delete AFTER DELETE ON XSB FOR EACH ROW DECLARE PRAGMA AUTONOMOUS_TRANSACTION。BEGIN DELETE FROM CJB WHERE XH=:。DELETE FROM XSZP WHERE XH=:。COMMIT。END。/*聲明自治事務(wù)*/ 創(chuàng)建存儲(chǔ)過(guò)程CJ_Data CREATE OR REPLACE PROCEDURE CJ_Data(in_xh IN char, in_kch IN char, in_cj IN number)AS in_count number。in_xf number:=0。in_cjb_cj number:=0。BEGIN SELECT XF INTO in_xf FROM KCB WHERE KCH=in_kch。SELECT COUNT(*)INTO in_count FROM CJB WHERE XH=in_xh AND KCH=in_kch。IF in_count0 THENSELECT CJ INTO in_cjb_cj FROM CJB WHERE XH=in_xh AND KCH=in_kch。DELETE FROM CJB WHERE XH=in_xh AND KCH=in_kch。IF in_cjb_cj=60 THEN UPDATE XSB SET ZXF=ZXFin_xf WHERE XH=in_xh。END IF。END IF。IF in_cj1 THENINSERT INTO CJB VALUES(in_xh, in_kch, in_cj)。IF in_cj=60 THEN UPDATE XSB SET ZXF=ZXF + in_xf WHERE XH=in_xh。END IF。END IF。COMMIT。END。 創(chuàng)建完整性約束ALTER TABLE CJB ADD CONSTRAINT FK_KC FOREIGN KEY(KCH)REFERENCES KCB(KCH)ON DELETE CASCADE。 前臺(tái)功能實(shí)現(xiàn) 主窗體實(shí)現(xiàn)代碼：Private Sub search_Click() 0 End Sub Private Sub manage_Click() 0 End Sub Private Sub insert_Click() 0 End Sub 頁(yè)面設(shè)計(jì)：功能：主窗體包含其他三個(gè)功能窗體，可以切換學(xué)生信息查詢、學(xué)生信息管理、學(xué)生成績(jī)錄入功能子窗體 學(xué)生信息查詢窗體頁(yè)面設(shè)計(jì)：功能展示：可以滿足簡(jiǎn)單查詢的需要，什么條件都不輸入則顯示所有記錄?？梢暂斎霔l件進(jìn)行簡(jiǎn)單的模糊查詢，各個(gè)條件之間為與的關(guān)系。在查詢的結(jié)果中，鼠標(biāo)單擊一行記錄時(shí)，可以查看此學(xué)生的備注和照片。當(dāng)查詢學(xué)號(hào)為101101的學(xué)生時(shí)，展示該學(xué)生的各種信息。 學(xué)生信息管理窗體頁(yè)面設(shè)計(jì)：功能展示：通過(guò)輸入學(xué)生學(xué)號(hào)后單機(jī)“查詢”按鈕可以在窗口中的各個(gè)控件中顯示當(dāng)前學(xué)生的具體信息。單擊“更新”按鈕可以對(duì)學(xué)生信息進(jìn)行添加和修改。單擊“刪除”按鈕可以刪除相應(yīng)的學(xué)生記錄。當(dāng)刪除一條學(xué)生記錄時(shí)，觸發(fā)器XS_DELETE會(huì)自動(dòng)到CJB中刪除此學(xué)生的成績(jī)記錄，并到XSZP表中刪除此學(xué)生的照片記錄，以保證數(shù)據(jù)的參照性完整。先查詢到學(xué)號(hào)為101101的學(xué)生信息，然后載入圖片，點(diǎn)擊更新后數(shù)據(jù)庫(kù)的信息就隨之更新了。 學(xué)生成績(jī)錄入窗體頁(yè)面設(shè)計(jì)：功能展示： 用戶選擇課程名和專業(yè)后，單擊“查詢”按鈕，下方的表格中會(huì)從視圖XS_KC_CJ中列出與課程名和專業(yè)都對(duì)應(yīng)的學(xué)生的學(xué)號(hào)、姓名、課程號(hào)和所選課程的成績(jī)。如果未選該課程則成績(jī)?yōu)榭?。?dāng)移動(dòng)表格中的記錄集時(shí)，學(xué)號(hào)、姓名和成績(jī)文本框中將列出對(duì)應(yīng)的數(shù)據(jù)。在成績(jī)文本框中輸入新成績(jī)或修改舊成績(jī)，單擊“更新”按鈕則調(diào)用存儲(chǔ)過(guò)程CJ_Data向CJB表中插入一行新成績(jī)或修改原來(lái)的成績(jī)。單擊“刪除”按鈕則調(diào)用儲(chǔ)存過(guò)程CJ_Data刪除CJB表對(duì)應(yīng)的一行成績(jī)記錄。查詢到學(xué)號(hào)為10110課程名為離散數(shù)學(xué)的學(xué)生成績(jī)，在成績(jī)文本框更改成績(jī)，點(diǎn)擊更新后數(shù)據(jù)庫(kù)里的成績(jī)就隨之更改了，相應(yīng)的總學(xué)分也會(huì)通過(guò)儲(chǔ)存過(guò)程更改。五、小結(jié)與體會(huì)這次實(shí)習(xí)讓我收獲非常大。在oracle數(shù)據(jù)庫(kù)方面，我又復(fù)習(xí)鞏固了數(shù)據(jù)庫(kù)創(chuàng)建、表格創(chuàng)建、視圖、觸發(fā)器、儲(chǔ)存過(guò)程、完整性約束等方面知識(shí)。而且更加深刻認(rèn)識(shí)到這些知識(shí)在實(shí)際應(yīng)用中的作用。在前臺(tái)方面，第一次使用VB ，雖然具體設(shè)計(jì)和代碼大多都是參考書上的講解，但是，我還是學(xué)會(huì)了很多東西，特別是前臺(tái)設(shè)計(jì)的思路。在實(shí)習(xí)過(guò)程中我也遇到過(guò)很多問(wèn)題。比如，在剛開始使用VB ，我一直無(wú)法實(shí)現(xiàn)和數(shù)據(jù)庫(kù)關(guān)聯(lián)。我明明是按照書上的代碼來(lái)操作的，但是還是實(shí)現(xiàn)不了相應(yīng)的功能。后來(lái)我通過(guò)上網(wǎng)查資料、和同學(xué)探討等方式，終于明白原來(lái)是機(jī)房的
化學(xué)相關(guān)推薦
鄂ICP備17016276號(hào)-1