【正文】 Public rst_grade As Public rst_operator As Public rst_class As Public rst_teacher As Public rst_sdept As Public rst_type As Public i As IntegerPublic Sub Main() = adUseClient = adUseClientconn_str1 = Provider=。修改教師信息End SubPrivate Sub teacherquery_Click() 39。學(xué)生信息查詢End Sub Private Sub teacheradd_Click() 39。錄入學(xué)生信息End SubPrivate Sub studentmodify_Click() 39。通過課程查詢成績End Sub Private Sub querybystudent_Click() 39。重新登錄End SubPrivate Sub passwordmodify_Click() 39。退出Unload MeEnd SubPrivate Sub gradeadd_Click() 39。課程查詢End SubPrivate Sub Coursetype_Click() 39。班級管理End SubPrivate Sub coursemanage_Click() 39。這一過程使用 select case …… end select 語句，比使用 if …… end if語句，程序簡化很多。然后再Visiual Basic ： 因?yàn)槌绦蛟谶\(yùn)行的時(shí)候我才能抓取到當(dāng)前窗體，程序運(yùn)行的時(shí)候Imagelist 控件隱藏了，所以我們只能看到ToolBar控件。本數(shù)據(jù)庫采用SQL Server2000來構(gòu)造，數(shù)據(jù)庫名稱為School，共使用了8個(gè)表，它們分別是用戶信息表（Operator）、學(xué)生信息表（Student）、學(xué)生成績表（SC）、教師信息表（Teacher）、課程信息表（Course）、課程類型表（Type）、部門信息表（Sdept）、班級信息表（Class）。通過這樣的系統(tǒng)可以做到信息的規(guī)范管理、快速查詢、修改、增加、刪除等，從而減少管理方面的工作量。中國礦業(yè)大學(xué)環(huán)境與測繪學(xué)院數(shù)據(jù)庫技術(shù)與應(yīng)用課程實(shí)踐目錄第一章 系統(tǒng)分析與設(shè)計(jì)………………………………………………………………… 3 ……………………………………………………………………. 3……………………………………………………………………….. 3第二章 系統(tǒng)實(shí)施……………………………………………………………………………. 5 主界面設(shè)置…………………………………………………………………….. 6 全局變量設(shè)置…………………………………………………………………. 9 用戶登錄窗口………………………………………………………………… 11 密碼修改窗口………………………………………………………………… 12 用戶注冊窗口………………………………………………………………… 16第三章 信息維護(hù)…………………………………………………………………………… 16 添加學(xué)生記錄………………………………………………………………… 16 查詢學(xué)生記錄………………………………………………………………… 20 生成報(bào)表窗口………………………………………………………………… 28 關(guān)于系統(tǒng)窗口………………………………………………………………… 29第四章 實(shí)驗(yàn)總結(jié)…………………………………………………………………………. 31 實(shí)驗(yàn)過程………………………………………………………………………… 31 問題解決…………………………………………………………………………. 31 經(jīng)驗(yàn)總結(jié)…………………………………………………………………………. 33第五章 參考資料………………………………………………………………………….. 33第一章 系統(tǒng)分析與設(shè)計(jì)隨著學(xué)校的規(guī)模不斷擴(kuò)大，學(xué)生數(shù)量急劇增加，有關(guān)學(xué)生的各種信息量也成倍增長。面對龐大的信息量就需要有一個(gè)學(xué)生信息管理系統(tǒng)來提高學(xué)生管理工作的效率。設(shè)計(jì)內(nèi)容為管理員登錄該系統(tǒng)進(jìn)行七個(gè)模塊操作：1）、學(xué)生基本情況維護(hù)：增加、修改、刪除、報(bào)表、查詢（按學(xué)號、姓名、性別、班級、家庭住址、生日）2）、教師基本情況維護(hù)：增加、修改、刪除、報(bào)表、查詢（按教師編號、教師姓名、部門編號、學(xué)歷、職稱、家庭住址、性別）3）、學(xué)生成績維護(hù)：增加、修改、刪除、報(bào)表、查詢（按學(xué)號、專業(yè)）4）、部門信息維護(hù)：增加、修改、刪除、報(bào)表、查詢（按部門編號、部門名稱）5）、課程信息維護(hù)：增加、修改、刪除、報(bào)表、查詢（按課程編號、課程名稱、學(xué)時(shí)、類型）6）、課程類型維護(hù)：增加、修改、刪除、報(bào)表、查詢（按編號、名稱）7）、用戶信息維護(hù)：重新登錄、修改密碼、用戶注冊 數(shù)據(jù)庫設(shè)計(jì)在系統(tǒng)設(shè)計(jì)過程中，首先要建立的就是數(shù)據(jù)庫。1）、用戶信息表（Operator）：表結(jié)構(gòu)如下表所示：名稱字段名稱類型長度允許空否用戶名operator_namechar10否密碼passwordtext16否2）學(xué)生信息表（Student）：表結(jié)構(gòu)如下表所示：名稱字段名稱類型長度允許空否學(xué)號Snochar10否姓名Snametext16否性別Ssexchar2否出生日期Sbirthchar10班級編號Sclasschar10家庭住址Saddresschar50聯(lián)系電話Sphonechar16簡歷Sresumechar1003）學(xué)生成績表（SC）：表結(jié)構(gòu)如下表所示：名稱字段名稱類型長度允許空否學(xué)號Snochar10否課程號Cnochar10否成績Gradeint4否4）教師信息表（Teacher）：表結(jié)構(gòu)如下表所示：名稱字段名稱類型長度允許空否教師編號Tnochar10否教師姓名Tnamechar8否部門編號Tsdeptnochar10學(xué)歷Tbackgroundchar10職稱Tlevelchar10生日Tbirthtext16性別Tsexchar2否家庭住址Taddresschar50聯(lián)系電話Tphonechar16簡歷Tresumechar1005) 課程信息表（Course）: 表結(jié)構(gòu)如下表所示：名稱字段名稱類型長度允許空否課程編號Cnochar10否課程名稱Cnamechar20否學(xué)時(shí)Creditint 4課程類型Ctypechar106）課程類型表（Type）：表結(jié)構(gòu)如下表所示：名稱字段名稱類型長度允許空否課程類型編號Typenochar10否課程類型名稱Typenametext16否7）部門信息表（Sdept）：表結(jié)構(gòu)如下表所示：名稱字段名稱類型長度允許空否部門編號Typenochar10否部門名稱Typenamechar16否8）班級信息表（Class）：表結(jié)構(gòu)如下表所示：名稱字段名稱類型長度允許空否班級編號Classnochar10否班級名稱Classnametext16否所屬部門編號Classsdeptchar10否第二章 系統(tǒng)實(shí)施2．1 主界面設(shè)置在SQL Server2000 中新建一個(gè)名為School的數(shù)據(jù)庫，并在該數(shù)據(jù)庫中按照上面的設(shè)置建立八個(gè)基本表。使用ToolBar 程序的美觀性和直觀性都有了一些提高，下面是ToolBar控件的代碼。下面試這一部分的代碼:Option ExplicitPrivate Sub Classmanagement_Click() 39。課程設(shè)置End SubPrivate Sub coursequery_Click() 39。課程類型End SubPrivate Sub exit_Click() 39。錄入成績信息End SubPrivate Sub gradequery_Click() ‘成績查詢End SubPrivate Sub help_Click() ‘幫助文檔End SubPrivate Sub loginagain_Click() 39。密碼修改End SubPrivate Sub querybycourse_Click() 39。通過學(xué)生查詢成績End SubPrivate Sub readme_Click() ‘使用須知End SubPrivate Sub register_Click() ‘用戶注冊End SubPrivate Sub sdeptset_Click() ‘部門管理End SubPrivate Sub studentadd_Click() 39。學(xué)生信息修改End SubPrivate Sub studentquery