-【優(yōu)秀文檔】oracle設(shè)計(jì)報(bào)告

1、貴州師范大學(xué)職業(yè)技術(shù)學(xué)院oracle數(shù)據(jù)庫(kù)設(shè)計(jì)報(bào)告題b：_y.b/塑學(xué)生成績(jī)管理系統(tǒng)姓名：楊茂科班級(jí)：08計(jì)應(yīng)指導(dǎo)老師：趙進(jìn)宏老師兵習(xí)地點(diǎn)：實(shí)驗(yàn)樓一機(jī)房實(shí)習(xí)時(shí)間：2010年12月20日2010年12月31日oracle是冃前最流行的關(guān)系型數(shù)據(jù)庫(kù)管理系統(tǒng)，廣泛應(yīng)用于竹理信息系統(tǒng)、企業(yè)數(shù)據(jù)處 理 internet電子商務(wù)網(wǎng)站等領(lǐng)域。此前流行的版本為oracle 9i。oracle公司在oracle的 基礎(chǔ)上，推出了代表數(shù)據(jù)庫(kù)最新技術(shù)的數(shù)據(jù)庫(kù)系統(tǒng)oracle 10gc本次oracle數(shù)據(jù)庫(kù)設(shè)計(jì)報(bào)告分為四章：第一章：主要內(nèi)容包括我們做vb/oracle學(xué)主成績(jī)管理系統(tǒng)的主要功能介紹，在vb 運(yùn)行情況下

2、各個(gè)功能界面的介紹。笫二章：主要內(nèi)容冇vb/oracle學(xué)生成績(jī)管理系統(tǒng)中數(shù)據(jù)庫(kù)的設(shè)計(jì)。該數(shù)據(jù)庫(kù)主要 是用dbca向?qū)?lái)完成創(chuàng)建，該部分包括各個(gè)創(chuàng)建界而的截圖，方而讀者進(jìn)行閱讀；該數(shù) 據(jù)庫(kù)中關(guān)系表的建立主要是通過(guò)登錄sql plus,運(yùn)用創(chuàng)建農(nóng)的代碼進(jìn)行數(shù)據(jù)庫(kù)屮關(guān)聯(lián)三張 表的創(chuàng)建，該部分在報(bào)告屮有詳細(xì)的代碼與注釋?zhuān)籿b/oracle學(xué)牛成績(jī)管理系統(tǒng)中最主要 的部分為數(shù)據(jù)源的創(chuàng)建也在該章進(jìn)行詳細(xì)的說(shuō)明。笫三章：主要內(nèi)容是vb/oracle學(xué)生成績(jī)管理系統(tǒng)的主要代碼。包括系統(tǒng)各個(gè)功能 界而的運(yùn)行代碼，保證系統(tǒng)的完整性。第四章：內(nèi)容為在完成這次vb/oracle學(xué)生成績(jī)管理系統(tǒng)設(shè)計(jì)中的總結(jié)。我相信通

3、過(guò)這次的vb/oracle學(xué)牛成績(jī)管理系統(tǒng)設(shè)計(jì)報(bào)告是書(shū)寫(xiě)，讓沒(méi)有學(xué)過(guò)oracle 的讀者也能很好的理解這當(dāng)中的關(guān)系，讓學(xué)過(guò)的讀者就能夠很好并月很容易的讀懂該報(bào)告?？勺x性與完整性是設(shè)計(jì)報(bào)告的關(guān)鍵，希望這篇報(bào)告能夠讓讀者可讀。第一章系統(tǒng)簡(jiǎn)介1一功能簡(jiǎn)介1二功能界曲11、主界面：12、學(xué)生信息查詢(xún)界而13、學(xué)生信息修改24、學(xué)生成績(jī)錄入2第二章數(shù)據(jù)庫(kù)設(shè)計(jì)3一創(chuàng)建數(shù)據(jù)庫(kù)3二創(chuàng)建表51、學(xué)生表的創(chuàng)建52、課程表創(chuàng)建53、選課關(guān)系表創(chuàng)建6三數(shù)據(jù)源創(chuàng)建6笫三章vb設(shè)計(jì)7一、建立連接字符串7二、模板代碼7三、主界面功能代碼8四、學(xué)生信息查詢(xún)功能代碼10五、學(xué)生選課信息界而代碼11六、學(xué)生創(chuàng)建錄入功能代碼11第

4、四章總結(jié)16附錄17第一章系統(tǒng)簡(jiǎn)介一功能簡(jiǎn)介用vb實(shí)現(xiàn)簡(jiǎn)單的學(xué)生成績(jī)管理系統(tǒng)，使用對(duì)視化adodc控件和adodb對(duì)彖訪問(wèn)后臺(tái) oracle數(shù)據(jù)庫(kù)服務(wù)器。系統(tǒng)包含學(xué)綸信息的查詢(xún)；學(xué)牛信息的錄入、修改、刪除；學(xué)生成績(jī) 的錄入、修改、刪除等功能。功能界面1、主界面:系統(tǒng)功能的導(dǎo)航作用，單擊個(gè)功能按鈕進(jìn)入相應(yīng)的操作界而。如圖1-1所示:學(xué)生成績(jī)管理系統(tǒng)軟績(jī)圖1-1主界面2、學(xué)生信息查詢(xún)界可以滿(mǎn)足簡(jiǎn)單條件的查詢(xún)，在查詢(xún)的結(jié)果中選擇一行，雙擊可以查看該學(xué)生的具體選課信息 如圖2、13所示:f學(xué)生信息查詢(xún)i o丨凹 i學(xué)生信息查詢(xún)輸入查詢(xún)條件學(xué)號(hào)i姓名專(zhuān)業(yè)所有專(zhuān)業(yè)查詢(xún)圖1-2學(xué)&信息查詢(xún)界而學(xué)分在

5、登機(jī)基礎(chǔ)j805楊茂科程序設(shè)計(jì)語(yǔ)言|564野學(xué)生選課信息lol 回 fl圖1-3學(xué)生選課成績(jī)情況界ifli3.學(xué)生信息修改添加修改刪除學(xué)生信息完成學(xué)生信息的增加.刪除、修改等操作如圖14所示:添加修改刪除學(xué)生信息學(xué)生信息0hj*為必埴字段）學(xué)號(hào)*082113010053岀生日期*1989-1-2姓名*楊茂科業(yè)計(jì)算機(jī)應(yīng)用技術(shù)性別* 男總學(xué)分54三好學(xué)生備注職消學(xué)生成績(jī)錄入專(zhuān)業(yè)計(jì)算機(jī)應(yīng)用技術(shù)姓名楊茂科學(xué)生成績(jī)錄入學(xué)號(hào) 082113010053成績(jī)80匚更新課程名計(jì)算機(jī)基礎(chǔ)學(xué)分3刪除取消學(xué)號(hào)082113010053082113010053082113010054082113010054楊茂科機(jī)應(yīng)用技

6、術(shù) 計(jì)算機(jī)應(yīng)用技術(shù) jssfor通信*02課程號(hào)成績(jī)1學(xué)分02檯常喪計(jì)語(yǔ)舌|. | l了1 n£r trr au 7i u566計(jì)算機(jī)基礎(chǔ) 程序設(shè)計(jì)語(yǔ)言>7>84:3|學(xué)號(hào)岀生日期n082113010053楊衣科|勇1989-1-2計(jì)算機(jī)應(yīng)用技術(shù)54|三好學(xué)生082113010054| 萬(wàn)彼男1989-2-5通信|54二好學(xué)生圖1-4學(xué)生信息修改界面4、學(xué)生成績(jī)錄入完成各專(zhuān)業(yè)同學(xué)成績(jī)的錄入如圖15所示:學(xué)生信息錄入圖1-5學(xué)&成績(jī)錄入界而第二章數(shù)據(jù)庫(kù)設(shè)計(jì)一創(chuàng)建數(shù)據(jù)庫(kù)利用oracle的數(shù)據(jù)庫(kù)管理助手(dbca)向?qū)?lái)完成名為yangmaoke數(shù)據(jù)廓的創(chuàng)建 如圖2-1

7、所示：驚 database configuration assixtant,易| 3嚴(yán) 12 步)：數(shù) 18庫(kù)標(biāo)識(shí)l口 凹圖2j數(shù)據(jù)庫(kù)標(biāo)識(shí)利用omcle的數(shù)據(jù)庫(kù)管理助手(dbca)向?qū)?lái)完成密碼為123的數(shù)據(jù)庫(kù)身份驗(yàn)證 如圖2-2所示：國(guó)conficuration acwtaiu,步玻 5決 12 步)：黔脣庫(kù)身份證明為了安全也見(jiàn)，侮必復(fù)為新數(shù)霜庫(kù)中的以下用pp捋定口令.所有帳戶(hù)使用同一口令令： 尸確認(rèn)口令：門(mén)r使用不同的口令職甬 丿肋d上一步但)i下一步廻)圖2-2數(shù)據(jù)庫(kù)身份驗(yàn)證數(shù)據(jù)庫(kù)完成狀態(tài)如圖23. 24所示:弱 iiabase configuration assistant/正在復(fù)制數(shù)

8、據(jù)庫(kù)文件/正在創(chuàng)淫并啟動(dòng)oracle實(shí)例i正在旌行數(shù)協(xié)庫(kù)包懷創(chuàng)逹克隆數(shù)據(jù)庫(kù)正在進(jìn)行74%當(dāng)前操作的日志文件位于：f:oracleproducft10.2.0db_1cfgtoollogsdbcayangmaoke停止圖2-3數(shù)據(jù)庫(kù)創(chuàng)建完成狀態(tài)ijg database configuration assistant數(shù)據(jù)庫(kù)創(chuàng)連完成-有關(guān)詳細(xì)信息，諳檢查f:oracleproductt10.2.0db_1 cfgtoollogsdbcayangmaoke 上的日志文件。數(shù)據(jù)庫(kù)信息：全局?jǐn)?shù)據(jù)庫(kù)名：yangmaoke系統(tǒng)標(biāo)識(shí)符（sid）: yangmaoke服務(wù)器參數(shù)文件名:f:oracleproduc

9、tm 0.2.oldb_1 /dbs/spfileyangmaoke.oradatabase control url 為 http:/pc-201004212237:5501/em注:所有數(shù)據(jù)庫(kù)帳戶(hù)（sys, system. dbsnmp和sysman除外）都已鎖定。單擊“口令管理”按鈕 可以查看鎖定帳戶(hù)的完整列表或管理數(shù)據(jù)庫(kù)帳戶(hù)（dbsnmp和sysman除外）。從“口令管理” s 口中，僅解鎖要使用的帳戶(hù)。oracle corporation強(qiáng)烈淫議您在解鎖帳戶(hù)后立即更改默認(rèn)口令?？诹罟芾?jcu）圖2-4數(shù)據(jù)庫(kù)創(chuàng)建完成二創(chuàng)建表通過(guò)以system的身份登錄oracle的數(shù)據(jù)庫(kù)的sql pl

10、us進(jìn)彳亍數(shù)據(jù)庫(kù)實(shí)例yangmaoke中表的創(chuàng) 建如圖2-5所示：圖2-5登錄數(shù)據(jù)庫(kù)實(shí)例yangmaoke1、學(xué)生表的創(chuàng)建在sql plus中執(zhí)行以下代碼完成學(xué)生表的創(chuàng)建：create table s(xh varchar2( 12) primary key,-學(xué)號(hào)xm char(8) not null,-姓名xb char(2) null,-性別csrq date null,-出生日期zym varchar2(20) null,-專(zhuān)業(yè)名zxf char(3) null,總學(xué)分bz varchar2(200) null-備注)；在學(xué)生表中插入兩條記錄代碼如下：insert into s(xh,

11、 xm, xb, csrq, zym, zxf, bz)values ('082113010053j楊茂科男 to_date(* 1989-01-02； 'yyyymmdd"計(jì)算機(jī)應(yīng)用技術(shù):'54 ；，三好學(xué)生匕insert into s(xh, xm, xb, csrq, zym, zxf, bz)values ('082113010054；'萬(wàn)波男*, to_date(*1989-02-05； 'yyyy-mm-dd*),'通信'54 ；'三好學(xué)生 ')；2、課程表創(chuàng)建在sql plus中執(zhí)行以下代碼

12、完成課程表的創(chuàng)建: create table c(kch char(3) primary key,課程號(hào)kcm char(16) not null,-課程名 kkxq number(l) not null,-開(kāi)課學(xué)期 xs number(2) default 1 not null,時(shí) xf number(l) null學(xué)分)；在課程表中插入兩條記錄代碼如下： insert into c(kch, kcm, kkxq, xs, xf) values cop,'計(jì)算機(jī)基礎(chǔ)'，1, 80, 5);insert into c(kch, kcm, kkxq, xs, xf) values

13、 ('02；'程序設(shè)計(jì)語(yǔ)言；2, 68, 4);3、選課關(guān)系表創(chuàng)建在sql plus中執(zhí)行以下代碼完成選課關(guān)系表的創(chuàng)建: create tabic s_c(xh varchar2(12) not null,-學(xué)號(hào)kch char(3) not null,-課程號(hào)cj number(2) null,成績(jī)xf number(l) null學(xué)分)；在選課關(guān)系表中插入兩條記錄代碼如下：insert into s_c(xh, kch, cj, xf)values f082113010053； '01', 8(), 3);insert into s_c(xh, kch, c

14、j, xf)values c082113010054； '02； 78, 3);三數(shù)據(jù)源創(chuàng)建在電腦的開(kāi)始控制而板管理工具一一數(shù)據(jù)源系統(tǒng)dsn為數(shù)據(jù)庫(kù)實(shí)例添加一個(gè) 名為ymk的數(shù)據(jù)源如圖26所示:or ecl e odbc dr icoxufi eit i ortsomfceymkdescriptiontns service nomovangmaokucer idsystemapplication oraclesqlw or rm* ox&xtdseruebl cxo*icxar sookconcelhelpt est connectionert<bx eaxxt.ocom

15、m i 1 modnumer i c 111 rt<*圖2-6建立數(shù)據(jù)源第三章vb設(shè)計(jì)一、建立連接字符串如圖3-1所示:圖31數(shù)據(jù)鏈接屬性設(shè)宜二、模板代碼public conn as new adodb.connectionpublic reco as new adodb.recordsetpublic rs as new adodb.recordsetpublic str as stringpublic sub main()frm_main.showend subpublic sub opcndb()if conn.state = 1 thenconn.closeend if conn

16、.opennprovider=msdaora.l;password=123;userid=system;data sourcc=yangmaok;pcrsist security info=trucmend subpublic sub close_reco()if reco.state = 1 thenreco.closeend ifend sub三、主界面功能代碼dim sqlstr as stringpublic sub makesqlstr()sqlstr =,h,if trim(txt_xh.text) o "” thensqlstr = ”xh like + trim(tx

17、t_xh.text) +&end ififtrim(txt_xm.text) <> ” and sqlstr <> ” thensqlstr = sqlstr + ” and xm like %” + trim(txt_xm.text) + ” &elseif trim(txt_xm.text) <> "" thensqlstr = sqlstr + ”xm like + trim(txt_xm.text) +&end if: end ififtrim(combo_zy.text) o ”所有專(zhuān)業(yè)“ and sql

18、str <> ,n, thensqlstr = sqlstr + ” and zym like + trim(combo_zy.text) + ” &elseif trim(combo_zy.text) o "所冇專(zhuān)業(yè)"thensqlstr = sqlstr + ”zym like %” + trim(combo_zy.text) + “” &end if: end ifend subprivate sub cmd_search_click()on error resume nextmakesqlstrif sqlstr <> ,h

19、thenadodc 1 .recordsource = select * from s where m & sqlstrend ifadodc 1.refreshend subprivate sub combo_zy_click()makesqlstradodc 1 .recordsource = "select * from s where " & sqlstr & ” and zym='" + trim(combo_zy.text) 4- ,"hadodcl. refreshend subprivate sub dat

20、agrid 1 _dblclick()xkgx. adodc 1 .recordsource = "select * from s,c,s_c where s.xh=s_c.xh and c.kch=s_c.kch and s.xh=m, + adodc lrecordset(mxhh) + ”'xkgx.adodc 1 .refreshmc.hidcxkgx.showend subprivate sub form_load()opendbreco.open hselect distinct zym from conn, 1, 3 do while not reco.eofc

21、ombo_zy.additem (reco("zym") rcco.movcncxtloopend subprivate sub form_unload(canccl as integer) mainjm.showend subdim sqlstr as stringpublic sub makesqlstr()sqlstr = ”“iftrim(txt_xh.text) <> mu thensqlstr = ”xh like + trim(txt_xh.text) +& ,hend ififtrim(txt_xm.text) <> ” an

22、d sqlstr <> ” thensqlstr = sqlstr + ” and xm like '%” + trim(txt_xm.text) +&elseif trim(txt_xm.text) <> "" thensqlstr = sqlstr + ”xm like %” + trim(txt_xm.text) + ” &end if: end ififtrim(combo_zy.text) <> ”所有專(zhuān)業(yè)“ and sqlstr <> “ thensqlstr = sqlstr + ” an

23、d zym like + trim(combo_zy.text) +&elseiftrim(combo_zy.text) o ”所有專(zhuān)業(yè)“ thensqlstr = sqlstr + ”zym like '%” + trim(combo_zy.text) + "%" &end if: end ifend subprivate sub cmd_search_click()on error resume nextmakesqlstrif sqlstr <> ,n, thenadodc 1 .recordsource = "selec

24、t * from s where " & sqlstrend ifadodc 1. refreshend subprivate sub combo_zy_click()makesqlstradodc 1 .recordsource = "select * from s where ” & sqlstr & ” and zym='n +trim(combo_zy.text) +adodc 1 .refreshend subprivate sub datagridl_dblclick()xkgx. adodc 1 .rccordsourcc =

25、"select * from s,c,s_c where s.xh=s_c xh andc.kch=s_c.kch and s.xh=h, + adodcl.recordset(,xhh) +xkgx.adodc 1 .refreshme.hidexkgx.showend subprivate sub form_load()opcndbreco.open hselect distinct zym from corm, 1, 3 do while not reco.eofcombo_zy.additem (reco("zymh) reco.movenextloopend su

26、bprivate sub form_unload(cancel as integer) mainjm.showend sub五、學(xué)生選課信息界面代碼private sub form_unload(cancel as integer)chaxun.showend sub六、學(xué)生創(chuàng)建錄入功能代碼private sqlcmd as new adodb .commanddim aaaprivate sub combokcm_click()dim stxh, stkcmdim nkchdim countcount = 0close_recorcco.opcn "select kch from

27、c where kcm=,h + trim(combokcm.tcxt) + conn, 1, 3 nkch = reco(”kch“)aaa = nkchclose_recorcco.opcn "select count(*) as sum from s_c where xh='" + trim(comboxh.tcxt) + "* andkch=h, + nkch +, conn, 1, 3count = reco("sum")if count = 0 thenclose_recorcco.opcn "select xh,

28、xm from s where xh=+ trim(comboxh.tcxt) 4-conn, 1,3elseclose_recoreco.open "select s.xh,s.xm,s_c.cj,s_c.xf from s,c,s_c where s.xh=n, +trim(comboxh.tcxt) + and c.kch=,h + nkch + ”' and s.xh=s_c.xh and c.kch=s_c.kch", conn, 1, 3end ifcomboxh.tcxt = rcco(uxhu)while not reco.eofif reco.fi

29、elds.count = 2 the ntxtxm.text = reco(nxmm)txtcj.text = ,h,txtxf.tcxt ="”elsetxtxm.text = reco(nxmm)txtcj.text = reco(ncjh)txtxf.text = cstr(reco(hxfh) & ”)end ifreco.movenextwendend subprivate sub comboxh_click()dim stxh, stkcmdim nkchdim countcount = 0sqlcmd.commandtext = "select kch

30、 from c where kcm="' + trim(combokcm.text) + innset reco = sqlcmd.executenkch = reco(hkchu)sqlcmd.commandtext = "select count(*) as sum from s_c where xh=h, + trim(comboxh.text) + ”' and kch=,m + nkch + ,nset rcco = sqlcmd.executecount = reco("summ)if count = 0 thensqlcmd.comm

31、andtext = ''select xh,xm from s where xh= " + trim(comboxh.text) + ntnelsesqlcmd.commandtext = "select s.xh,s.xm,cj,s_c.xf from s,c,s_c where s.xh=m, +trim(comboxh.text) + ,u and c.kch=,h + nkch + and s.xh=s_c.xh and c.kch=s_c.kch”end ifset reco = sqlcmd.executewhile not rcco.eofif

32、 reco.fields.count = 2 thentxtxm.text = reco(mxmm)txtcj.text=,h'txtxf.text 二“”elsetxtxm.text = reco(”xm”)txtcj.text = reco(',cjh)txtxf.text = cstr(reco(mxfh & ”)end ifrcco.movcncxtwendend subprivate sub combozy_click()comboxh.clearclose_recoreco.open "select * from s where zym= &quo

33、t; + trim(combozy.text) + conn, 1, 3comboxh.text = reco(uxhn)while not reco.eofcomboxh.addltcm (trim(rcco(”xh“) reco.movenextwendcomboxh_clickend subprivcite sub command l_click()dim stxh, stkcm, stcj, stxfiftrim(txtcj.text) = nn or trim(txtxf.text) = thenmsgbox “輸入完整的信息!提示：”exit subend ifconn.execu

34、te "insert into s_c values(n, + trim(comboxh.text) + aaa +trim(txtcj.text) + trim(txtxf.text) + ”adodc 1 .rccordsourcc = "select s.xh,xm,zym,c.kch,kcm,cj,s_c.xf as xf from s,c,s_c where s.xh=s_c.xh and c.kch=s_c.kch order by xh"adodc 1 .refreshend subprivate sub command2_click()ret =

35、msgbox(h 是否要?jiǎng)h除” + comboxh.text + ”學(xué)號(hào)的” + trim(combokcm.text) + ”課 的成績(jī)記錄？ ”, vbyesno, “提示：“)if ret = vbyes thenconn.exccutc "delete from s_c where xh=h + comboxh.text + m, and kch=h, + aaa +muadodc 1.recordsource = “select s.xh,xm,zym,c.kch,kcm,cj,s_c.xf as xf from s,c,s_c where s.xh=s_c.xh and

36、c.kch=s_c.kch order by xh"adodc 1 .refreshmsgbox “刪除成功！提示：”end ifend subprivate sub command3_click()unload meend subprivate sub datagrid 1 _rowcolchange(lastrow as variant, byvai lastcol as integer)on enor resume nextcombozy.tcxt = adodc 1 .rccordsct.ficlds(uzymh)comboxh.text = adodc 1 .records

37、et.fields("xhn)combokcm.text = adodc 1 .recordset.fields("kcmu)txtxm.text = adodc 1.recordset.fields(uxmn)txtcj.tcxt = adodc 1 .rccordsct.ficlds("cj")txtxf.text = adodc 1.recordset.fields("xf") aaa = adodc 1.recordset.fields("kch")end subprivate sub form_load()opendbsqlcmd. activeconnection = connsqlcmd.commandtcxt = "select * from cu sqlcmd.comm