vb∕oracle學(xué)生成績(jī)管理系統(tǒng)--oracle數(shù)據(jù)庫(kù)設(shè)計(jì)報(bào)告(編輯修改稿)
2025-02-11 18:00 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 t null,開課學(xué)期 XS Number(2) default 1 not null,學(xué)時(shí) XF Number(1) null學(xué)分 )。 在 課程 表中插入兩條記錄 代碼如下 ： insert into c(KCH, KCM, KKXQ, XS, XF) values (39。0139。, 39。計(jì)算機(jī)基礎(chǔ) 39。, 1, 80, 5)。 insert into c(KCH, KCM, KKXQ, XS, XF) values (39。0239。, 39。程序設(shè)計(jì)語(yǔ)言 39。, 2, 68, 4)。 選課關(guān)系表創(chuàng)建 在 SQL plus中執(zhí)行以下代碼完成 選課關(guān)系 表的創(chuàng)建： create table s_c( XH varchar2(12) not null,學(xué)號(hào) KCH char(3) not null,課程號(hào) CJ Number(2) null,成績(jī) XF Number(1) null學(xué)分 )。 在 選課關(guān)系 表中插入兩條記錄 代碼如下 ： insert into s_c(XH, KCH, CJ, XF) values (39。08211301005339。, 39。0139。, 80, 3)。 insert into s_c(XH, KCH, CJ, XF) values (39。08211301005439。, 39。0239。, 78, 3)。 三 數(shù)據(jù)源創(chuàng)建 在電腦的開始 —— 控制面板 —— 管理工具 —— 數(shù)據(jù)源 —— 系統(tǒng) DSN 為數(shù)據(jù)庫(kù)實(shí)例添加一個(gè)名為 ymk的數(shù)據(jù)源 如圖 26所示： 圖 26 建立數(shù)據(jù)源VB/ORACLE學(xué)生成績(jī)管理系統(tǒng) VB設(shè)計(jì) 第 7 頁(yè) 共 17 頁(yè) 第三章 VB設(shè)計(jì) 一、建立連接字符串 如圖 31所示： 圖 31 數(shù)據(jù)鏈接屬性設(shè)置 二、模板代碼 Public conn As New Public reco As New Public Rs As New Public str As String Public Sub Main() End Sub VB/ORACLE學(xué)生成績(jī)管理系統(tǒng) VB設(shè)計(jì) 第 8 頁(yè) 共 17 頁(yè) Public Sub OpenDB() If = 1 Then End If Provider=。Password=123。UserID=system。 Data Source=yangmaok。Persist Security Info=True End Sub Public Sub Close_Reco() If = 1 Then End If End Sub 三、主界面功能代碼 Dim SqlStr As String Public Sub MakeSqlStr() SqlStr = If Trim() Then SqlStr = XH like 39。% + Trim() + % amp。 39。 End If If Trim() And SqlStr Then SqlStr = SqlStr + and XM like 39。% + Trim() + % amp。 39。 Else If Trim() Then SqlStr = SqlStr + XM like 39。% + Trim() + % amp。 39。 End If: End If If Trim() 所有專業(yè) And SqlStr Then SqlStr = SqlStr + and ZYM like 39。% + Trim() + % amp。 39。 Else If Trim() 所有專業(yè) Then SqlStr = SqlStr + ZYM like 39。% + Trim() + % amp。 39。 End If: End If End Sub VB/ORACLE學(xué)生成績(jī)管理系統(tǒng) VB設(shè)計(jì) 第 9 頁(yè) 共 17 頁(yè) Private Sub Cmd_search_Click() On Error Resume Next MakeSqlStr If SqlStr Then = select * from s where amp。 SqlStr End If End Sub Private Sub Combo_zy_Click() MakeSqlStr = select * from s where amp。 SqlStr amp。 and ZYM=39。 + Trim() + 39。 End Sub Private Sub DataGrid1_DblClick() = select * from s,c,s_c where = and = and =39。 + (XH) + 39。 End Sub Private Sub Form_Load() OpenDB select distinct ZYM from s, conn, 1, 3 Do While Not (reco(ZYM)) Loop End Sub Private Sub Form_Unload(Cancel As Integer) End Sub VB/ORACLE學(xué)生成績(jī)管理系統(tǒng) VB設(shè)計(jì) 第 10 頁(yè) 共 17 頁(yè) 四、學(xué)生信息查詢功能代碼 Dim SqlStr As String Public Sub MakeSqlStr() SqlStr = If Trim() Then SqlStr = XH like 39。% + Trim() + % amp。 39。 End If If Trim() And SqlStr Then SqlStr = SqlStr + and XM like 39。% + Trim() + % amp。 39
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1