-【优秀文档】oracle设计报告（整理版）

1、贵州师范大学职业技术学院oracle数据库设计报告题b：_y.b/塑学生成绩管理系统姓名：杨茂科班级：08计应指导老师：赵进宏老师兵习地点：实验楼一机房实习时间：2010年12月20日2010年12月31日oracle是冃前最流行的关系型数据库管理系统，广泛应用于竹理信息系统、企业数据处 理 internet电子商务网站等领域。此前流行的版本为oracle 9i。oracle公司在oracle的 基础上，推出了代表数据库最新技术的数据库系统oracle 10gc本次oracle数据库设计报告分为四章：第一章：主要内容包括我们做vb/oracle学主成绩管理系统的主要功能介绍，在vb 运行情况下

2、各个功能界面的介绍。笫二章：主要内容冇vb/oracle学生成绩管理系统中数据库的设计。该数据库主要 是用dbca向导来完成创建，该部分包括各个创建界而的截图，方而读者进行阅读；该数 据库中关系表的建立主要是通过登录sql plus,运用创建农的代码进行数据库屮关联三张 表的创建，该部分在报告屮有详细的代码与注释；vb/oracle学牛成绩管理系统中最主要 的部分为数据源的创建也在该章进行详细的说明。笫三章：主要内容是vb/oracle学生成绩管理系统的主要代码。包括系统各个功能 界而的运行代码，保证系统的完整性。第四章：内容为在完成这次vb/oracle学生成绩管理系统设计中的总结。我相信通

3、过这次的vb/oracle学牛成绩管理系统设计报告是书写，让没有学过oracle 的读者也能很好的理解这当中的关系，让学过的读者就能够很好并月很容易的读懂该报告。可读性与完整性是设计报告的关键，希望这篇报告能够让读者可读。第一章系统简介1一功能简介1二功能界曲11、主界面：12、学生信息查询界而13、学生信息修改24、学生成绩录入2第二章数据库设计3一创建数据库3二创建表51、学生表的创建52、课程表创建53、选课关系表创建6三数据源创建6笫三章vb设计7一、建立连接字符串7二、模板代码7三、主界面功能代码8四、学生信息查询功能代码10五、学生选课信息界而代码11六、学生创建录入功能代码11第

4、四章总结16附录17第一章系统简介一功能简介用vb实现简单的学生成绩管理系统，使用对视化adodc控件和adodb对彖访问后台 oracle数据库服务器。系统包含学纶信息的查询；学牛信息的录入、修改、删除；学生成绩 的录入、修改、删除等功能。功能界面1、主界面:系统功能的导航作用，单击个功能按钮进入相应的操作界而。如图1-1所示:学生成绩管理系统软绩图1-1主界面2、学生信息查询界可以满足简单条件的查询，在查询的结果中选择一行，双击可以查看该学生的具体选课信息 如图2、13所示:f学生信息查询i o丨凹 i学生信息查询输入查询条件学号i姓名专业所有专业查询图1-2学&信息查询界而学生选

5、课信息学分在登机基础|805杨茂科程序设计语言|564图1-3学生选课成绩情况界ifli3.学生信息修改完成学生信息的增加.删除、修改等操作如图14所示:添加修改删除学生信息添加修改删除学生信息学号* 082113010053姓名*杨茂科性别*男 女岀生日期* 1989-1-2专 业计算机应用技术总学分54备注三好学生重置职消学生成绩录入专业计算机应用技术姓名杨茂科学生成绩录入学号 082113010053成绩80匚更新课程名计算机基础学分3删除取消学号082113010053082113010053082113010054082113010054杨茂科机应用技术 计算机应用技术 jssfor

6、通信*02课程号成绩1学分02檯常丧计语舌|. | l了1 n£r trr au 7i u566计算机基础 程序设计语言>7>84:3岀生日期n082113010053杨衣科|勇1989-1-2计算机应用技术54|三好学生082113010054| 万彼男1989-2-5通信|54二好学生图1-4学生信息修改界面4、学生成绩录入完成各专业同学成绩的录入如图15所示:学生信息录入图1-5学&成绩录入界而第二章数据库设计一创建数据库利用oracle的数据库管理助手(dbca)向导来完成名为yangmaoke数据廓的创建 如图2-1所示：驚 database confi

7、guration assixtant,易| 3嚴 12 步)：数 18库标识l口 凹图2j数据库标识利用omcle的数据库管理助手(dbca)向导来完成密码为123的数据库身份验证 如图2-2所示：国conficuration acwtaiu,步玻 5决 12 步)：黔脣库身份证明为了安全也见，侮必復为新数霜库中的以下用pp捋定口令.所有帐户使用同一口令令： 尸确认口令：門r使用不同的口令职甬 丿肋d上一步但)i下一步廻)图2-2数据库身份验证数据库完成状态如图23. 24所示:弱 igtabase configuration assistant/正在复制数据库文件/正在创淫并启动oracle

8、实例i正在旌行数協库包懷创逹克隆数据库正在进行74%当前操作的日志文件位于：f:oracleproducft10.2.0db_1cfgtoollogsdbcayangmaoke停止图2-3数据库创建完成状态ijg database configuration assistant数据库创連完成-有关详细信息，谙检查f:oracleproductt10.2.0db_1 cfgtoollogsdbcayangmaoke 上的日志文件。数据库信息：全局数据库名：yangmaoke系统标识符（sid）: yangmaoke服务器参数文件名:f:oracleproductm 0.2.oldb_1 /dbs

9、/spfileyangmaoke.oradatabase control url 为 http:/pc-201004212237:5501/em注:所有数据库帐户（sys, system. dbsnmp和sysman除外）都已锁定。单击“口令管理”按钮 可以查看锁定帐户的完整列表或管理数据库帐户（dbsnmp和sysman除外）。从“口令管理” s 口中，仅解锁要使用的帐户。oracle corporation强烈淫议您在解锁帐户后立即更改默认口令。口令管理.jcu）图2-4数据库创建完成二创建表通过以system的身份登录oracle的数据库的sql plus进彳亍数据库实例yangmaok

10、e中表的创 建如图2-5所示：登录用户名（uj：令（0:主机字符串凹:取消图2-5登录数据库实例yangmaoke1、学生表的创建在sql plus中执行以下代码完成学生表的创建：create table s(xh varchar2( 12) primary key,-学号xm char(8) not null,-姓名xb char(2) null,-性别csrq date null,-出生日期zym varchar2(20) null,-专业名zxf char(3) null,总学分bz varchar2(200) null-备注)；在学生表中插入两条记录代码如下：insert into s

11、(xh, xm, xb, csrq, zym, zxf, bz)values ('082113010053j杨茂科男 to_date(* 1989-01-02； 'yyyymmdd"计算机应用技术:'54 ；，三好学生匕insert into s(xh, xm, xb, csrq, zym, zxf, bz)values ('082113010054；'万波男*, to_date(*1989-02-05； 'yyyy-mm-dd*),'通信'54 ；'三好学生 ')；2、课程表创建在sql plus中执行

12、以下代码完成课程表的创建: create table c(kch char(3) primary key,课程号kcm char(16) not null,-课程名 kkxq number(l) not null,-开课学期 xs number(2) default 1 not null,时 xf number(l) null学分)；在课程表中插入两条记录代码如下： insert into c(kch, kcm, kkxq, xs, xf) values cop,'计算机基础'，1, 80, 5);insert into c(kch, kcm, kkxq, xs, xf) va

13、lues ('02；'程序设计语言；2, 68, 4);3、选课关系表创建在sql plus中执行以下代码完成选课关系表的创建: create tabic s_c(xh varchar2(12) not null,-学号kch char(3) not null,-课程号cj number(2) null,成绩xf number(l) null学分)；在选课关系表中插入两条记录代码如下：insert into s_c(xh, kch, cj, xf)values f082113010053； '01', 8(), 3);insert into s_c(xh, kc

14、h, cj, xf)values c082113010054； '02； 78, 3);三数据源创建在电脑的开始控制而板管理工具一一数据源系统dsn为数据库实例添加一个 名为ymk的数据源如图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.

15、ocomm i 1 modnumer i c 111 rt<*图2-6建立数据源第三章vb设计一、建立连接字符串如图3-1所示:图31数据链接属性设宜二、模板代码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

16、conn.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 + tri

17、m(txt_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 ”所有专业“ and

18、 sqlstr <> ,n, thensqlstr = sqlstr + ” and zym like + trim(combo_zy.text) + ” &elseif trim(combo_zy.text) o "所冇专业"thensqlstr = sqlstr + ”zym like %” + trim(combo_zy.text) + “” &end if: end ifend subprivate sub cmd_search_click()on error resume nextmakesqlstrif sqlstr <>

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

20、e sub datagrid 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 mselect distinct zym from conn, 1,3do while not re

21、co.eofcombo_zy.additem (reco("zymh)rcco.movcncxtloopend subprivate sub form_unioad(cancc 1 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) <> ” a

22、nd 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) <> ”所有专业“ and sqlstr <> “ thensqlstr = sqlstr + ” a

23、nd zym like + trim(combo_zy.text) +&elseiftrim(combo_zy.text) o ”所有专业“ 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 = "sele

24、ct * 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 s

26、ubprivate sub form_unload(cancel as integer) mainjm.showend sub五、学生选课信息界面代码private sub form_unload(cancel as integer) chaxun.showend sub六、学生创建录入功能代码private sqlcmd as new adodb .command dim aaaprivate sub combokcm_click()dim stxh, stkcmdim nkchdim countcount = 0close_recorcco.opcn mselect kch from c

27、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,xm

28、 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(“xh“)while not reco.eofif reco.fie

29、lds.count = 2 the ntxtxm.text = reco(nxmm)txtcj.text = ,h,txtxf.tcxt ="”elsetxtxm.text = reco(mxmm)txtcj.text = reco(hcjh)txtxf.text = cs(r(rcco(”xf”)& ”)end ifreco.movenextwendend subprivate sub comboxh_click()dim stxh, stkcmdim nkchdim countcount = 0sqlcmd.commandtext = "select kch f

30、rom 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.comman

31、dtext = ''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 r

32、eco.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 mselect * from s where zym= " + tr

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

34、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 = msgbox(h

35、是否要删除” + comboxh.text + ”学号的” + trim(combokcm.text) + ”课 的成绩记录？ ”, vbyesno, “提示：“)if ret = vbyes thenconn.exccutc "delete from s_c where xh=h, + comboxh.text + m, and kch=h, + aaa + 1hiiadodc 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 c.kch

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

37、lds( "xh")combokcm .text = adodc i .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