數(shù)據(jù)庫原理課程設(shè)計學(xué)分管理系統(tǒng)

1、 目錄1題目要求32程序截圖43程序代碼104課程設(shè)計心得26題目要求：設(shè)計一個學(xué)分管理系統(tǒng)。假設(shè)每位學(xué)生必須完成基礎(chǔ)課50學(xué)分，專業(yè)課50學(xué)分，選修課24學(xué)分，人文類課程8學(xué)分和實(shí)驗(yàn)性課程20學(xué)分才能畢業(yè)。實(shí)現(xiàn)下列功能：1 錄入某位學(xué)生的學(xué)分信息2 給定學(xué)號，顯示某位學(xué)生的學(xué)分完成情況；3 給定班號，顯示該班所有學(xué)生的學(xué)分完成情況；4 給定學(xué)號，修改該學(xué)生的學(xué)分信息；5 按照某類課程的學(xué)分高低進(jìn)行排序；給定學(xué)號，對該學(xué)生能否畢業(yè)進(jìn)行確定。登陸界面如下：主界面如下：進(jìn)行插入操作：按班號顯示操作：查詢結(jié)果界面如下：進(jìn)行按學(xué)號進(jìn)行查詢的界面：查詢結(jié)果如下：排序界面：查詢學(xué)生是否能夠畢業(yè)：刪除操作：

2、代碼如下：module1：public cn as new adodb.connectionpublic rs as new adodb.recordsetform1：public rs as adodb.recordsetsub disp() set datagrid1.datasource = rsfor i = 0 to rs.fields.count - 1 text1(i).text = rs.fields(i).valuenextend subsub renew() rs.close cn.close set rs = new adodb.recordset set datagri

3、d1.datasource = rs cn.open dsn=123;uid=sa;pwd= rs.open select * from credit, cn, adopenstatic, adlockoptimistic dispend subprivate sub frame1_dragdrop(source as control, x as single, y as single)end subprivate sub command1_click()for i = 0 to 7 text1(i).text = next text1(0).setfocustext1(1).enabled

4、= truetext1(2).enabled = truecommand11.enabled = trueend subprivate sub command10_click()rs.movepreviousif rs.bof then msg = msgbox(已達(dá)到第一條, 48 + 0, 提示)rs.movefirst end ifdisp end subprivate sub command11_click()text1(1).enabled = truetext1(2).enabled = trueinsert_str = insert into credit values( & t

5、ext1(0).text & , & text1(1).text & , & text1(2).text & , & text1(3).text & , & text1(4).text & , & text1(5).text & , & text1(6).text & , & text1(7).text & )if text1(0).text rs.fields(0) thencn.execute (insert_str) msgbox 插入成功elsemsgbox 重復(fù)輸入數(shù)據(jù)end ifdisprenewend subprivate sub command12_click()renewen

6、d subprivate sub command13_click()update_str = update credit set basic= & text1(3).text & ,major= & text1(4).text & ,soption= & text1(5).text & ,speople= & text1(6).text & ,sexperiment= & text1(7).text & where sno= & text1(0).text & if text1(0).text rs.fields(0) thencn.execute (update_str)elsemsgbox

7、 無此內(nèi)容end ifrenewend subprivate sub command14_click()sno1 = inputbox(請輸入要刪除學(xué)生的學(xué)號：, 查詢, 200, 100)delete_str = delete from credit where sno= & sno1if sno1 thenif rs.recordcount = 0 thenmsgbox 輸入學(xué)號不正確elsecn.execute (delete_str)disprenewend ifelsemsgbox errorend ifend subprivate sub command15_click()frml

8、ogin.showend subprivate sub command2_click()form2.showend subprivate sub command3_click()form3.showend subprivate sub command4_click()text1(0).setfocusfor i = 0 to 7 text1(i).text = nexttext1(1).enabled = falsetext1(2).enabled = falsedispend subprivate sub command5_click()form4.showend subprivate su

9、b command6_click()dim a(4) as integersno1 = inputbox(請輸入學(xué)生的學(xué)號：, 查詢, 200, 100)set rs = new adodb.recordsetrs.open select * from credit where sno= & sno1 & , cn, adopenstatic, adlockoptimisticif rs.recordcount = 0 thenmsgbox 輸入學(xué)號不正確elsei = 0for j = 3 to rs.fields.count - 1 a(i) = val(rs.fields(j).valu

10、e) i = i + 1nextif a(0) = 50 and a(1) = 50 and a(2) = 24 and a(3) = 8 and a(4) = 20 then msgbox 該學(xué)生已修滿學(xué)分，可以畢業(yè)else msgbox 該學(xué)生由于未修滿學(xué)分，不能畢業(yè)end ifend ifend subprivate sub command7_click()rs.movefirstdispend subprivate sub command8_click()rs.movelastdispend subprivate sub command9_click()rs.movenextif rs

11、.eof then msg = msgbox(已達(dá)到最后一條, 48 + 0, 提示) rs.movelastend ifdispend subprivate sub form_load()set rs = new adodb.recordsetset cn = new adodb.connectioncn.open dsn=123;uid=sa;pwd=rs.open select * from credit, cn, adopenstatic, adlockoptimisticdispcommand11.enabled = falseform1.visible = falseend sub

12、form2：private sub command1_click()form1.showform2.hideend subprivate sub form_load()classno = inputbox(請輸入學(xué)生的班號, 查詢, 200, 100) rs.close cn.closeset rs1 = new adodb.recordsetset cn = new adodb.connectionset rs = new adodb.recordsetcn.open dsn=123;uid=sa;pwd=rs.open select * from credit where sclass=

13、& classno & , cn, adopenstatic, adlockoptimisticif rs.recordcount 0 thenset datagrid2.datasource = rselsemsgbox 無此記錄！end ifend subform3：private sub command1_click()form1.showform3.hideend subprivate sub form_load()sno = inputbox(請輸入學(xué)生的學(xué)號, 查詢, 200, 100)set cn = new adodb.connectionset rs = new adodb.

14、recordsetcn.open dsn=123;uid=sa;pwd=rs.open select * from credit where sno= & sno & , cn, adopenstatic, adlockoptimisticif rs.recordcount 0 thenset datagrid3.datasource = rselsemsgbox 無此記錄！end ifend subform4：private sub command1_click()form1.showform4.hideend subprivate sub option1_click()subject =

15、inputbox(請輸入課程名：, 查詢, 200, 100)set cn = new adodb.connectionset rs = new adodb.recordsetcn.open dsn=123;uid=sa;pwd=if subject = basic or subject = major or subject = soption or subject = speople or subject = sexperiment thenrs.open select * from credit order by & subject, cn, adopenstatic, adlockopt

16、imisticset datagrid4.datasource = rselsemsg = msgbox(error, 48 + 0, 提示)end ifend subprivate sub option2_click()subject = inputbox(請輸入課程名：, 查詢, 200, 100)set cn = new adodb.connectionset rs = new adodb.recordsetcn.open dsn=123;uid=sa;pwd=if subject = basic or subject = major or subject = soption or su

17、bject = speople or subject = sexperiment thenrs.open select * from credit order by & subject & desc, cn, adopenstatic, adlockoptimisticset datagrid4.datasource = rselsemsg = msgbox(error, 48 + 0, 提示)end ifend subfrmlogin：dim rsuser as adodb.recordsetpublic cn1 as adodb.connectionpublic loginsucceede

18、d as booleanprivate sub cmdcancel_click() 設(shè)置全局變量為 false 不提示失敗的登錄 loginsucceeded = false endend subprivate sub cmdok_click() dim query_str as stringset rsuser = new adodb.recordsetuser_str = select * from userinfo where userid= & txtusername & and password= & txtpassword & rsuser.open user_str, cn1, adopenstatic, adlockoptimistic if rsuser.recordcount 0 then if rsuser.fields(power) = admin then form1.enabled = true else form1.enabled = false end if loginsucceeded = true unload frmlogin