王志強(qiáng)學(xué)生信息管理系統(tǒng)課案

1、數(shù)據(jù)庫實(shí)訓(xùn)報班級 :計(jì)網(wǎng) 1546姓名：王志強(qiáng) 學(xué)號 1518012511.系統(tǒng)需求分析 12.系統(tǒng)設(shè)計(jì) 12.1 客戶端系統(tǒng)總體設(shè)計(jì) 12.2 數(shù)據(jù)庫設(shè)計(jì) 22.2.1 數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計(jì) 22.2.2 數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計(jì) 23.創(chuàng)建數(shù)據(jù)庫和數(shù)據(jù)表 44.系統(tǒng)實(shí)現(xiàn) 44.1SQL Server2005服務(wù)器端數(shù)據(jù)處理 44.1.1 創(chuàng)建關(guān)系圖 44. 1 .2創(chuàng)建視圖 44.2SQL Server 2005設(shè)置 54.3Visual Basic 設(shè)置55.界面與代碼設(shè)置 65.1 登陸界面設(shè)置 65.2 主界面的設(shè)置 75.3 院系信息管理模塊設(shè)計(jì) 85.4 學(xué)生信息管理模塊設(shè)計(jì) 155.5

2、 課程信息管理模塊的設(shè)計(jì) 205.6 成績信息管理模塊設(shè)計(jì) 2321. 系統(tǒng)需求分析學(xué)生信息管理工作是學(xué)校管理工作的重要組成部分，現(xiàn)在仍有一部分學(xué)校 的學(xué)生管理工作沿用手工方式。隨著學(xué)校規(guī)模的擴(kuò)大、學(xué)生人數(shù)的增加，效率 低下、容易出錯的手工方式越來越不適應(yīng)實(shí)際管理工作的需要，按照軟件工程 原理和數(shù)據(jù)庫技術(shù)開發(fā)學(xué)生信息管理系統(tǒng)已成為學(xué)生管理部門的迫切需要。本 項(xiàng)目實(shí)現(xiàn)的學(xué)生信息系統(tǒng)主要包括以下基本功能：完成數(shù)據(jù)的錄入和修改，并提交數(shù)據(jù)庫保存。其中的數(shù)據(jù)包括專業(yè)信 息、班級信息、學(xué)生信息、選修課程信息和成績信息等，系統(tǒng)能夠自 動避免重復(fù)信息。實(shí)現(xiàn)信息查詢，主要包括學(xué)生信息查詢、課程信息查詢和成績信

3、息查 詢等實(shí)現(xiàn)數(shù)據(jù)的刪除功能：能對數(shù)據(jù)進(jìn)行刪除操作。系統(tǒng)能夠通過用戶給 出的條件查找出所要刪除的信息，并提示用戶確認(rèn)是否刪除。若確定, 則把相關(guān)信息從數(shù)據(jù)庫中刪除。報表功能：包括指定學(xué)生的選課情況和指定課程的選修情況2. 系統(tǒng)設(shè)計(jì)學(xué)生信息管理系統(tǒng)采用C/S體系結(jié)構(gòu)，按照客戶端設(shè)計(jì)和數(shù)據(jù)庫設(shè)計(jì)兩部 分進(jìn)行?？蛻舳素?fù)責(zé)提供表達(dá)邏輯、用戶界面信息、訪問數(shù)據(jù)庫服務(wù)器等，采 用Virsual Basic 6.0作為開發(fā)工具服務(wù)器端則用于提供數(shù)據(jù)服務(wù)，采用SQLServer 2005作為數(shù)據(jù)庫管理系統(tǒng)。數(shù)據(jù)庫設(shè)計(jì)實(shí)現(xiàn)服務(wù)器端的數(shù)據(jù)處理。2.1客戶端系統(tǒng)總體設(shè)計(jì)學(xué)生信息管理系統(tǒng)客戶端主要對學(xué)生信息、課程信息

4、、學(xué)生成績信息、專業(yè)班級信息進(jìn)行管理，該系統(tǒng)分 4個功能模塊，如下圖示1）專業(yè)班級管理：包括專業(yè)信息和班級信息的錄入、修改、刪除等操作2）學(xué)生信息管理：包括學(xué)生信息的錄入、修改、刪除、查詢和生成報表 等操作3）選修課程設(shè)置：實(shí)現(xiàn)課程信息的錄入、修改、刪除、查詢和生成報表 等操作4）成績信息管理：實(shí)現(xiàn)學(xué)生成績的錄入、修改、刪除、查詢等操作。錄 入學(xué)生的某門課程的成績時，由于學(xué)生信息和課程信息已在數(shù)據(jù)庫中, 可通過下拉列表框的形式來選擇學(xué)生和課程來錄入、修改、刪除和查 詢成績。2.2數(shù)據(jù)庫設(shè)計(jì)數(shù)據(jù)庫設(shè)計(jì)主要是在服務(wù)器端建立數(shù)據(jù)庫和數(shù)據(jù)表，并實(shí)現(xiàn)數(shù)據(jù)處理功能 在此對系統(tǒng)所需的數(shù)據(jù)結(jié)構(gòu)進(jìn)行分析并創(chuàng)建數(shù)

5、據(jù)庫2.2.1數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計(jì)根據(jù)系統(tǒng)需求分析和功能設(shè)計(jì)，可以將數(shù)據(jù)規(guī)則為以下實(shí)體：學(xué)生實(shí)體、2.2.2數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計(jì)現(xiàn)在需要將前面分析所得到的數(shù)據(jù)庫概念結(jié)構(gòu)轉(zhuǎn)化為SQL Server2005數(shù)據(jù)庫系統(tǒng)所支持的實(shí)際數(shù)據(jù)模型，也就是數(shù)據(jù)庫的邏輯結(jié)構(gòu)。在上面的實(shí)體以 及實(shí)體之間關(guān)系的基礎(chǔ)上，形成數(shù)據(jù)庫中的表以及各個表之間的關(guān)系。數(shù)據(jù)庫 教學(xué)數(shù)據(jù)庫包含以下五個表：表1:專業(yè)信息表（t zyb）列名數(shù)據(jù)類型長度是否允許為空說明專業(yè)編號Char2X專業(yè)編號為主 鍵專業(yè)名稱varchar20x專業(yè)名稱表2:班級信息表（t bjb）列名數(shù)據(jù)類型長度是否允許為空說明班級編號Char2X班級編號為主 鍵班

6、級名稱varchar20x班級名稱表3:課程信息表（t kcb）列名數(shù)據(jù)類型長度是否允許為空說明課程編號char3x主鍵課程名稱varchar20X學(xué)分tin yi nt1Y學(xué)時tin yi nt1Y考核類型char4Y開設(shè)學(xué)期tin yi nt1Y表4:學(xué)生信息表（t xsb）列名數(shù)據(jù)類型長度是否允許為空說明學(xué)號Char6X主鍵姓名Varchar8X性別Char2Y出生日期Datetime8Y院系Char20Y班級varchar20Y備注text16Y表5:學(xué)生成績表（t cjb）列名數(shù)據(jù)類型長度是否允許為空說明學(xué)號Char6X主鍵課程編號char3X主鍵成績tin yi nt1Y3. 創(chuàng)建

7、數(shù)據(jù)庫和數(shù)據(jù)表經(jīng)過前面的需求分析和概念結(jié)構(gòu)設(shè)計(jì)以后，得到學(xué)生信息管理系統(tǒng)的邏輯結(jié)構(gòu)?，F(xiàn)在SQL Server2005數(shù)據(jù)庫系統(tǒng)中實(shí)現(xiàn)該邏輯結(jié)構(gòu)，可以采用 SSMS或 查詢分析器窗口中進(jìn)行。4. 系統(tǒng)實(shí)現(xiàn)4.1SQL Server2005 服務(wù)器端數(shù)據(jù)處理通過對系統(tǒng)客戶端界面的分析，知道了每個界面要求實(shí)現(xiàn)的基本功能，就 可以開發(fā)服務(wù)器端數(shù)據(jù)處理程序了。4.1.1 創(chuàng)建關(guān)系圖使用SQL Server2005的SSMS建立3個關(guān)系表的關(guān)系圖，保證表中數(shù)據(jù)的 正確性。啟動SQL Server 2005SSMS,在樹形目錄中找到“教學(xué)數(shù)據(jù)庫”數(shù)據(jù) 庫并展開它，選擇數(shù)據(jù)庫對象“關(guān)系圖”右擊新建關(guān)系圖，根據(jù)

8、“創(chuàng)建數(shù)據(jù)庫 關(guān)系圖向?qū)А辈僮?，添加dbo.學(xué)生信息表,dbo.成績信息表,dbo.課程信息表三個 表，將dbo.課程信息表表中的“課程號”與 dbo.成績信息表表的課程號“創(chuàng)建 關(guān)系”，在“主鍵”和“外鍵”中都選擇“課程號”字段，并單擊“創(chuàng)建中檢查 現(xiàn)存數(shù)據(jù)”，“對復(fù)制強(qiáng)制關(guān)系”和“對INSERT和UPDATE強(qiáng)制關(guān)系”然后確 定。按上述方法，建立dbo.學(xué)生信息表表和dbo.成績信息表表在“學(xué)號”字段 上的關(guān)系，保存該關(guān)系圖為 st。4.1.2 創(chuàng)建視圖創(chuàng)建 view_cj 視圖，作為成績查詢的操作對象。語句如下：Use 教學(xué)數(shù)據(jù)庫goCreate view view_cjAsSelect

9、 dbo.學(xué)生信息表.學(xué)號,dbo學(xué)生信息表.姓名,dbo學(xué)生信息表.性 別,dbo.課程信息表.課程編號,dbo.成績信息表.成績From dbo.成績信息表,dbo.課程信息表,dbo.學(xué)生信息表Where dbo.成績信息表.課程編號=dbo.課程信息表.課程編號and dbo.成績 信息表。學(xué)號=dbo.學(xué)生信息表.學(xué)號4.2SQL Server 2005 設(shè)置為了確保以上程序代碼正確運(yùn)行，需要對 SQL Server 2005進(jìn)行相應(yīng)的設(shè) 置，打開SQL Server 2005的SSMS時，采用SQL Server身份驗(yàn)證模式。用戶 名為sa密碼為“ 123”。4.3Visual B

10、asic 設(shè)置由于程序得用ADO完成對數(shù)據(jù)的訪問和操作，需要添加 ADO庫。選擇 Visual Basic的“工程”菜單中的“引用“菜單”項(xiàng)，Visual Basic提供了 ADO 的多個版本，選擇其中的最高版本 Microsoft ActiveX Data Objicts2.8 Library。在本系統(tǒng)中還要用到 Adodc控件和DataGrid控件，這兩個控件不是 Visual Basic工具箱中的標(biāo)準(zhǔn)控件，需要選擇 Visual Basic的“工程”菜單中的“部件” 菜單項(xiàng)，如下圖，加選 Mirosoft ADO Data Contral(OLEDB)和 Microsoft DataGr

11、id Control 6.0,最后“確定” ，Visual Basic工具箱中就會增加 ADODC 控件和 DataGrid控件。前者用于連接數(shù)據(jù)庫，后者用于以表格的形式顯示數(shù)據(jù)庫表的 內(nèi)容。5. 界面與代碼設(shè)置5.1登陸界面設(shè)置該界面用于登陸系統(tǒng)界面，啟動Visual Basic6.0,新建一個標(biāo)準(zhǔn)工程，默認(rèn) 名為“工程1”，在該工程中會自動創(chuàng)建一個窗體，默認(rèn)名為“forml”主要代碼如下：Private Sub Comma nd1_Click()Dim n ame As Stri ngDim pass As Stri ngn ame = Text1.Textpass = Text2.Tex

12、tIf name = wzq And pass = 123456 The nUn load Mefrmmai n.ShowElseMsgBox 無效的密碼，請重試,登陸Text2.SetFocusEnd IfEnd SubPrivate Sub Comma nd2_Click()Un load MeEnd Sub啟動界面如下：此處插入啟動界面皂登JS- X5.2主界面的設(shè)置1.主界面名為frmmain ,在該窗體中使用VB提供的“菜單編輯器”設(shè)計(jì) 其主界面和菜單結(jié)構(gòu)如圖所示：此處插入主界面a學(xué)生信息管理報- x院諏維管理學(xué)生信息營理課程時息背理瞬信息管理逼出歡迎使用學(xué)生信息管理系統(tǒng)學(xué)號：151

13、80125姓名:王志強(qiáng)此處插入菜單編輯器界面2添加代碼各菜單的功能及代碼如下：“院系班級管理”包括2個二級菜單，系部信息管理與班級信息管理。1) “學(xué)生信息管理”子菜單，為它添加click事件，并添加調(diào)用相應(yīng)窗體代碼。2) “班級信息管理”子菜單，為它添加click事件，并添加調(diào)用相應(yīng)窗體代碼?！皩W(xué)生信息管理”菜單包括 2個二級菜單，學(xué)生信息管理與學(xué)生信息查詢。1) “學(xué)生信息管理”子菜單，為它添加 click事件，并添加調(diào)用相應(yīng)窗體代 碼。2) “學(xué)生信息查詢”子菜單，為它添加 click事件，并添加調(diào)用相應(yīng)窗體代 碼?！罢n程信息管理”菜單用于打開“課程信息管理”窗口，為它添加click 事

14、件，并添加調(diào)用相應(yīng)窗體代碼。“成績信息管理”菜單包括2個二級菜單，成績信息管理與成績信息 查詢。1) “成績信息管理”子菜單，為它添加 click事件，并添加如下代碼。2) “成績信息查詢”子菜單，為它添加 click事件，并添加如下代碼?！巴顺觥辈藛斡糜陉P(guān)閉主窗口，為它添加click事件，并添加如下代碼。各菜單標(biāo)題、名稱、及單擊所調(diào)用的窗體名稱如下表所示:標(biāo)題名稱調(diào)用的窗體名稱院系班級管理yxbjgl系部信息官理XbxxglFrmxbgl班級信息管理BjxxglFrmbjgl學(xué)生信息管理Xsxx學(xué)生信息管理XsxxglFrmxsgl學(xué)生信息查詢XsxxcxFrmxscx課程信息管理Kcxxg

15、lFrmkcgl成績信息管理Cjxx成績信息管理CjxxglFrmcjgl成績信息查詢cjxxcxfrmcjcx退出exit5.3院系信息管理模塊設(shè)計(jì)學(xué)生信息管理模塊主要實(shí)現(xiàn)學(xué)生信息的添加、修改、刪除與查詢等功能 1.系部信息管理frmxbxx窗口的設(shè)計(jì)(1)選擇“院系信息管理”主菜單下的“系部信息管理”菜單項(xiàng)，將 出現(xiàn)如下效果的窗體系部信息專業(yè)端號51修改刪除此處插入系部信息管理窗體保存iBsI專業(yè)名算I計(jì)算機(jī)網(wǎng)絡(luò)技術(shù)（2）在系部信息管理frmxbxx窗體上放置7個標(biāo)簽控件及如下控件并設(shè)置屬性控件名屬性設(shè)置adodcconnection stri ngProvider=SQLOLEDB.1;

16、l ntegrated Security=SSPI;PersistSecurityInfo=False;Initial Catalog=教學(xué)數(shù) 據(jù)庫;Data Source=localhostRecordsourcedbo系部信息表VisibleFalseDatagridlDatasourceAdodc1Text1(0)名稱Text1DatasourseAdodc1Datafield學(xué)號text（清空）Text1(1)名稱Text1DatasourseAdodc1Datafield姓名text（清空）Text1(2)名稱Text1DatasourseAdodc1Datafield性別text（

17、清空）Text1(3)名稱Text1DatasourseAdodc1Datafield出生日期text（清空）Text1(4)名稱Text1DatasourseAdodc1Datafield院系text（清空）Text1(5)名稱Text1DatasourseAdodc1Datafield班級text（清空）Text1(6)名稱Text1DatasourseAdodc1Datafield備注text（清空）Comma ndbutt on1（名稱）Cmdaddcapti on添加Comma ndbutt on2（名稱）Cmdmodifycapti on修改Comma ndbutt on3（名稱）

18、Cmddeletecapti on刪除Comma ndbutt on4（名稱）Cmdsavecapti on保存Comma ndbutt on5（名稱）Cmdexitcapti on退出（3）使用程序代碼來實(shí)現(xiàn)按鈕的功能，具體步驟如下。實(shí)現(xiàn)“添加”操作，當(dāng)用戶單擊【添加】按鈕時，可在界面中添加新記 錄，該操作與“保存”按鍵的功能結(jié)合使用。程序代碼如下：Private Sub Cmdadd_Click（）AdodcI.Recordset.AddNewFor i = 0 To 1Text1（i）.E nabled = TrueText1（i）.Text =Next iText1（0）.SetFoc

19、usCmdadd.E nabled = FalseCmddelete.E nabled = FalseCmdmodify.E nabled = False Cmdsave.E nabled = TrueEnd Sub實(shí)現(xiàn)“修改”操作，當(dāng)用戶單擊【修改】按鈕時，允許用戶修改當(dāng)前界 面上顯示的記錄信息。該操作與“保存”按鍵的功能結(jié)合使用。程序 代碼如下：Private Sub Cmdmodify_Click（）If Adodc1.Recordset.RecordCou nt 0 The nText1（0）.E nabled = FalseFor i = 0 To 1Text1(i).Enabled

20、 = TrueNext iCmdsave.Enabled = TrueCmdadd.Enabled = FalseCmdmodify.Enabled = FalseCmddelete.Enabled = FalseElseMsgBox 沒有要修改的數(shù)據(jù) End IfEnd Sub 實(shí)現(xiàn)“刪除”操作，當(dāng)用戶單擊【刪除】按鈕時，允許用戶刪除當(dāng)前 界面上顯示的記錄信息。該操作與“保存”按鍵的功能結(jié)合使用。程 序代碼如下：Private Sub Cmddelete_Click()Dim myval As Stringmyval = MsgBox( 是否要刪除該記錄 ?, vbYesNo)If myva

21、l = vbYes ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextEnd IfIf Adodc1.Recordset.EOF = True ThenAdodc1.Recordset.MoveLastFor i = 0 To 1Text1(i).Enabled = FalseNext iEnd IfEnd Sub 實(shí)現(xiàn)“保存”操作，當(dāng)用戶單擊【保存】按鈕時，允許用戶將之前的 操作(添加、修改和刪除)的結(jié)構(gòu)保存到 教學(xué)數(shù)據(jù)庫 數(shù)據(jù)庫的 t_xsb 表 中。程序代碼如下：Private Sub Cmdsave_Click()If Text1(

22、0).Text = ThenMsgBox 專業(yè)編號不允許為空 Exit SubEnd IfIf Text1(1).Text = ThenMsgBox 專業(yè)名稱不允許為空 Exit SubEnd IfAdodc1.Recordset.UpdateFor i = 0 To 1Text1(i).Enabled = FalseNext iCmdsave.Enabled = FalseCmdadd.E nabled = TrueCmdmodify.E nabled = TrueCmddelete.E nabled = TrueEnd Sub實(shí)現(xiàn)“退出”操作，當(dāng)用戶單擊【退出】按鈕時，關(guān)閉當(dāng)前界面，返 回

23、到上一層界面。程序代碼如下：Private Sub cmdexit_Click()Un load MeEnd Sub班級信息管理模塊主要實(shí)現(xiàn)學(xué)生信息的添加、修改、刪除與查詢等功能。2.學(xué)生信息管理frmbjxx窗口的設(shè)計(jì)(1)選擇“院系信息管理”主菜單下的“班級信息管理”菜單項(xiàng)，將出 現(xiàn)如下效果的窗體：0班級信息育理筍匚一 X班級信息班級鎬號班級名廠(1546添加哪級左稱011546021517S存退岀此處插入班級信息管理窗體(2)在班級信息管理frmbjxx窗體上放置7個標(biāo)簽控件及如下控件并設(shè)置 屬性?？丶麑傩栽O(shè)置adodcconnection stri ngProvider=SQLOLE

24、DB.1;l ntegrated Security=SSPI;PersistSecurityInfo=False;Initial Catalog=教學(xué)數(shù) 據(jù)庫;Data Source=localhostRecordsourceDbo.班級信息表VisibleFalseDatagrid1DatasourceAdodc1Text1(0)名稱Text1DatasourseAdodc1Datafield學(xué)號text(清空)Text1(1)名稱Text1DatasourseAdodc1Datafield姓名text（清空）Text1(2)名稱Text1DatasourseAdodc1Datafield性

25、別text（清空）Text1(3)名稱Text1DatasourseAdodc1Datafield出生日期text（清空）Text1(4)名稱Text1DatasourseAdodc1Datafield院系text（清空）Text1(5)名稱Text1DatasourseAdodc1Datafield班級text（清空）Text1(6)名稱Text1DatasourseAdodc1Datafield備注text（清空）Comma ndbutt on1（名稱）1Cmdaddcapti on添加Comma ndbutt on2（名稱）Cmdmodifycapti on修改Comma ndbutt

26、on3（名稱）Cmddeletecapti on刪除Comma ndbutt on4（名稱）Cmdsavecapti on保存Comma ndbutt on5（名稱）Cmdexitcapti on退出（3）使用程序代碼來實(shí)現(xiàn)按鈕的功能，具體步驟如下實(shí)現(xiàn)“添加”操作，當(dāng)用戶單擊【添加】按鈕時，可在界面中添加新 記錄，該操作與“保存”按鍵的功能結(jié)合使用。程序代碼如下：Private Sub Cmdadd_Click（）AdodcI.Recordset.AddNewFor i = 0 To 1Text1（i）.E nabled = TrueText1（i）.Text =Next iText1（0）.

27、SetFocusCmdadd.Enabled = FalseCmddelete.Enabled = FalseCmdmodify.Enabled = FalseCmdsave.Enabled = TrueEnd Sub 實(shí)現(xiàn)“修改”操作，當(dāng)用戶單擊【修改】按鈕時，允許用戶修改當(dāng)前界 面上顯示的記錄信息。該操作與“保存”按鍵的功能結(jié)合使用。程序代 碼如下：Private Sub Cmdmodify_Click()If Adodc1.Recordset.RecordCount 0 ThenText1(0).Enabled = FalseFor i = 0 To 1Text1(i).Enabled

28、= TrueNext iCmdsave.Enabled = TrueCmdadd.Enabled = FalseCmdmodify.Enabled = FalseCmddelete.Enabled = FalseElseMsgBox 沒有要修改的數(shù)據(jù) End IfEnd Sub 實(shí)現(xiàn)“刪除”操作，當(dāng)用戶單擊【刪除】按鈕時，允許用戶刪除當(dāng)前 界面上顯示的記錄信息。該操作與“保存”按鍵的功能結(jié)合使用。程 序代碼如下：Private Sub Cmddelete_Click()Dim myval As Stringmyval = MsgBox( 是否要刪除該記錄 ?, vbYesNo)If myval

29、 = vbYes ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextEnd IfIf Adodc1.Recordset.EOF = True ThenAdodc1.Recordset.MoveLastFor i = 0 To 1Text1(i).Enabled = FalseNext iEnd IfEnd Sub 實(shí)現(xiàn)“保存”操作，當(dāng)用戶單擊【保存】按鈕時，允許用戶將之前的 操作(添加、修改和刪除)的結(jié)構(gòu)保存到 教學(xué)數(shù)據(jù)庫 數(shù)據(jù)庫的 t_xsb 表 中。程序代碼如下：Private Sub Cmdsave_Click()If Text1(0

30、).Text = The nMsgBox 班級號不允許為空Exit SubEnd IfIf Text1(1).Text = The nMsgBox 班級名稱不允許為空Exit SubEnd IfAdodc1.Recordset.UpdateFor i = 0 To 1Text1(i).E nabled = FalseNext iCmdsave.E nabled = FalseCmdadd.E nabled = TrueCmdmodify.E nabled = TrueCmddelete.E nabled = TrueEnd Sub實(shí)現(xiàn)“退出”操作，當(dāng)用戶單擊【退出】按鈕時，關(guān)閉當(dāng)前界面，返 回

31、到上一層界面。程序代碼如下：Private Sub cmdexit_Click()Un load MeEnd Sub5.4學(xué)生信息管理模塊設(shè)計(jì)學(xué)生信息管理模塊主要實(shí)現(xiàn)學(xué)生信息的添加、修改、刪除與查詢等功能3.學(xué)生信息管理frmxsxx窗口的設(shè)計(jì)1）選擇“學(xué)生信息管理”主菜單下的“學(xué)生信息管理”菜單項(xiàng)，將出現(xiàn) 如下效果的窗體?？趯W(xué)生值息管理一 x)000001性窮IR脂管出生日期|2016-12-?3 00;學(xué)生基本館思此處插入學(xué)生信息管理窗體保存I退出I2）在學(xué)生信息管理frmxsxx窗體上放置7個標(biāo)簽控件及如下控件并設(shè)置屬 性?？丶麑傩栽O(shè)置adodcconnection stri ngPr

32、ovider=SQLOLEDB.1;l ntegrated Security=SSPI;PersistSecurityInfo=False;Initial Catalog=教學(xué)數(shù) 據(jù)庫;Data Source=localhostRecordsourcedb o.學(xué)生信息表VisibleFalseDatagridlDatasourceAdodc1Text1(0)名稱Text1DatasourseAdodc1Datafield學(xué)號text（清空）Text1(1)名稱Text1DatasourseAdodc1Datafield姓名text（清空）Text1(2)名稱Text1DatasourseAd

33、odc1Datafield性別text（清空）Text1(3)名稱Text1DatasourseAdodc1Datafield出生日期text（清空）Text1(4)名稱Text1DatasourseAdodc1Datafield院系text（清空）Text1(5)名稱Text1DatasourseAdodc1Datafield班級text（清空）Text1(6)名稱Text1DatasourseAdodc1Datafield備注text（清空）Comma ndbutt on1（名稱）Cmdaddcapti on添加Comma ndbutt on2（名稱）Cmdmodifycapti on修改

34、Comma ndbutt on3(名稱)Cmddeletecapti on刪除Comma ndbutt on4(名稱)Cmdsavecapti on保存Comma ndbutt on5(名稱)Cmdexitcapti on退出3) 使用程序代碼來實(shí)現(xiàn)按鈕的功能，具體步驟如下。實(shí)現(xiàn)“添加”操作，當(dāng)用戶單擊【添加】按鈕時，可在界面中添加新記 錄，該操作與“保存”按鍵的功能結(jié)合使用。程序代碼如下：Private Sub Cmdadd_Click()AdodcI.Recordset.AddNewFor i = 0 To 6Text1(i).E nabled = TrueText1(i).Text =N

35、ext iText1(0).SetFocusCmdadd.E nabled = FalseCmddelete.E nabled = FalseCmdmodify.E nabled = FalseCmdsave.E nabled = TrueEnd Sub實(shí)現(xiàn)“修改”操作，當(dāng)用戶單擊【修改】按鈕時，允許用戶修改當(dāng)前界 面上顯示的記錄信息。該操作與“保存”按鍵的功能結(jié)合使用。程序代 碼如下：Private Sub Cmdmodify_Click()If Adodc1.Recordset.RecordCou nt 0 The nText1(0).E nabled = FalseFor i = 0 T

36、o 6Text1(i).E nabled = TrueNext iCmdsave.E nabled = TrueCmdadd.E nabled = FalseCmdmodify.E nabled = FalseCmddelete.E nabled = FalseElseMsgBox 沒有要修改的數(shù)據(jù)End IfEnd Sub實(shí)現(xiàn)“刪除”操作，當(dāng)用戶單擊【刪除】按鈕時，允許用戶刪除當(dāng)前 界面上顯示的記錄信息。該操作與“保存”按鍵的功能結(jié)合使用。程 序代碼如下：Private Sub Cmddelete_Click()Dim myval As Stri ngmyval = MsgBox( 是否要刪

37、除該記錄 ?, vbYesNo)If myval = vbYes ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextEnd IfIf Adodc1.Recordset.EOF = True ThenAdodc1.Recordset.MoveLastFor i = 0 To 6Text1(i).Enabled = FalseNext iEnd IfEnd Sub 實(shí)現(xiàn)“保存”操作，當(dāng)用戶單擊【保存】按鈕時，允許用戶將之前的 操作(添加、修改和刪除)的結(jié)構(gòu)保存到 教學(xué)數(shù)據(jù)庫 數(shù)據(jù)庫的 t_xsb 表 中。程序代碼如下：Private Sub C

38、mdsave_Click()If Text1(0).Text = ThenMsgBox 學(xué)號不允許為空 Exit SubEnd IfIf Text1(1).Text = ThenMsgBox 姓名不允許為空 Exit SubEnd IfIf Text1(2).Text = ThenMsgBox 出生日期不允許為空 Exit SubEnd IfAdodc1.Recordset.UpdateFor i = 0 To 6Text1(i).Enabled = FalseNext iCmdsave.Enabled = FalseCmdadd.Enabled = TrueCmdmodify.Enabled

39、 = TrueCmddelete.Enabled = TrueEnd Sub 實(shí)現(xiàn)“退出”操作，當(dāng)用戶單擊【退出】按鈕時，關(guān)閉當(dāng)前界面，返 回到上一層界面。程序代碼如下：Private Sub cmdexit_Click()Unload MeEnd Sub4. 學(xué)生信息查詢 frmxscx 窗口的設(shè)計(jì)1) 選擇“學(xué)生信息管理”主菜單下的“學(xué)生信息查詢”菜單項(xiàng)，將出現(xiàn)如下效果的窗體。此處插入學(xué)生信息查詢窗體胃學(xué)生信懸輕育口學(xué)生信息査詢請輸入要查詢的芋號麗而退出000001張三1546000002李四W15451信管H鼻-2）在學(xué)生信息查詢frmxscx窗體上放置1個標(biāo)簽控件及如下控件并設(shè)置屬 性

40、?？丶麑傩栽O(shè)置Adodclconnection stri ngProvider=SQLOLEDB.1;l ntegrated Security=SSPI;PersistSecurityInfo=False;Initial Catalog=教學(xué)數(shù) 據(jù)庫;Data Source=localhostRecordsourceDbo.學(xué)生信息表visivlefalsedatagriddatasourceAdodclTextl（名稱）TextlText（清空）Comma ndbutt on1（名稱）Comma nd1capti on查詢Comma ndbutt on2（名稱）Comma nd2capti

41、 on退出3）使用程序代碼來實(shí)現(xiàn)按鈕的功能，具體步驟如下。實(shí)現(xiàn)“查詢”操作，當(dāng)用戶單擊【查詢】按鈕時，可在界面中顯示滿 足查詢備件的記錄。程序代碼如下：Private Sub Comma nd1_Click（）If Len（ Text1.Text） 6 The nMsgBox 學(xué)號長度錯誤ElseAdodc1.RecordSource = select * from dbo.學(xué)生信息表 where 學(xué)號=+ Chr（39） + Textl.Text + Chr（39） + Adodcl.RefreshEnd IfEnd Sub實(shí)現(xiàn)“退出”操作，當(dāng)用戶單擊【退出】按鈕時，可關(guān)閉當(dāng)前界面， 返回到

42、上一層界面。程序代碼如下：Private Sub Comma nd2_Click()Un load MeEnd Sub5.5課程信息管理模塊的設(shè)計(jì)課程信息管理模塊主要實(shí)現(xiàn)學(xué)生信息的添加、修改、刪除等功能1.課程信息管理frmkcgl窗口的設(shè)計(jì)1）選擇“課程信息管理”菜單，將出現(xiàn)如下效果的窗體。 呂課程信息琶遅竈口口 X課程號loci課程名1數(shù)據(jù)庫學(xué)時|2開設(shè)爭期2考核類型蒔桂輻息管理開謖學(xué)郎0011022至考002JAVA102卷此處插入課程信息管理窗體2）在課程信息管理frmkcgl窗體上放置4個標(biāo)簽控件及如下控件并設(shè)置屬 性?？丶麑傩栽O(shè)置Adodc1connection stri ngP

43、rovider=SQLOLEDB.1;l ntegrated Security=SSPI;PersistSecurityInfo=False;Initial Catalog=教學(xué)數(shù) 據(jù)庫;Data Source=localhostRecordsourceDbo.課程信息表VisibleFalseDatagrid1DatasourceAdodc1Text1(0)名稱Text1DatasourseAdodc1Datafield課程號text（清空）Text1(1)名稱Text1DatasourseAdodc1Datafield課程名text（清空）Text1(2)名稱Text1Datasourse

44、Adodc1Datafield開設(shè)學(xué)期text（清空）Text1(3)名稱Text1DatasourseAdodc1Datafield考核類型text（清空）Comma ndbutt on1（名稱）Cmdaddcapti on添加Comma ndbutt on2（名稱）Cmdmodifycapti on修改Comma ndbutt on3（名稱）Cmddeletecapti on刪除Comma ndbutt on4（名稱）Cmdsavecapti on保存Comma ndbutt on5（名稱）Cmdexitcapti on退出3) 使用程序代碼來實(shí)現(xiàn)按鈕的功能，具體步驟如下。實(shí)現(xiàn)“添加”操作

45、，當(dāng)用戶單擊【添加】按鈕時，可在界面中添加新 記錄，該操作與“保存”按鍵的功能結(jié)合使用。程序代碼如下： Private Sub Cmdadd_Click()AdodcI.Recordset.AddNewFor i = 0 To 5Text1(i).E nabled = TrueText1(i).Text =Next iText1(0).SetFocusCmdadd.E nabled = FalseCmddelete.E nabled = FalseCmdmodify.E nabled = FalseCmdsave.E nabled = TrueEnd Sub實(shí)現(xiàn)“修改”操作，當(dāng)用戶單擊【修改】

46、按鈕時，允許用戶修改當(dāng)前 界面上顯示的記錄信息。該操作與“保存”按鍵的功能結(jié)合使用。程 序代碼如下：Private Sub Cmdmodify_Click()If Adodc1.Recordset.RecordCou nt 0 The nText1(0).E nabled = FalseFor i = 0 To 5Text1(i).E nabled = TrueNext iCmdsave.E nabled = TrueCmdadd.Enabled = FalseCmdmodify.Enabled = FalseCmddelete.Enabled = FalseElseMsgBox 沒有要修改的

47、數(shù)據(jù) End IfEnd Sub 實(shí)現(xiàn)“刪除”操作，當(dāng)用戶單擊【刪除】按鈕時，允許用戶刪除當(dāng)前 界面上顯示的記錄信息。該操作與“保存”按鍵的功能結(jié)合使用。程 序代碼如下：Private Sub Cmddelete_Click()Dim myval As Stringmyval = MsgBox( 是否要刪除該記錄 ?, vbYesNo)If myval = vbYes ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextEnd IfIf Adodc1.Recordset.EOF = True ThenAdodc1.Recordset.Move

48、LastFor i = 0 To 5Text1(i).Enabled = FalseNext iEnd IfEnd Sub 實(shí)現(xiàn)“保存”操作，當(dāng)用戶單擊【保存】按鈕時，允許用戶將之前的 操作(添加、修改和刪除)的結(jié)構(gòu)保存到 教學(xué)數(shù)據(jù)庫 數(shù)據(jù)庫的 t_xsb 表 中。程序代碼如下：Private Sub Cmdsave_Click()If Text1(0).Text = ThenMsgBox 課程號不允許為空 Exit SubEnd IfIf Text1(1).Text = ThenMsgBox 課程名不允許為空 Exit SubEnd IfIf Text1(2).Text = ThenMsgB

49、ox 開設(shè)學(xué)期不允許為空 Exit SubEnd IfAdodc1.Recordset.UpdateFor i = 0 To 5Text1(i).Enabled = FalseNext iCmdsave.E nabled = FalseCmdadd.E nabled = TrueCmdmodify.E nabled = TrueCmddelete.E nabled = TrueEnd Sub實(shí)現(xiàn)“退出”操作，當(dāng)用戶單擊【退出】按鈕時，關(guān)閉當(dāng)前界面，返 回到上一層界面。程序代碼如下：Private Sub cmdexit_Click()Un load MeEnd Sub5.6成績信息管理模塊設(shè)計(jì)

50、學(xué)生成績管理模塊主要實(shí)現(xiàn)學(xué)生成績信息的添加、修改、刪除與查詢等功1.成績信息管理frmcjxx窗口的設(shè)計(jì)1）選擇“成績信息管理”主菜單下的“成績信息管理”菜單項(xiàng)，將出現(xiàn) 如下效果的窗體。已成績信慝琶理窗匚- X學(xué)號成績|OCOQQ1 號 |ooi|340013400000200243J Si 此處插入成績信息管理窗體2）在成績信息管理frmcjxx窗體上放置3個標(biāo)簽控件及如下控件并設(shè)置屬性?？丶麑傩栽O(shè)置Adodc1connection stri ngProvider=SQLOLEDB.1;l ntegrated Security=SSPI;PersistSecurityInfo=False;

51、Initial Catalog=教學(xué)數(shù) 據(jù)庫;Data Source=localhostRecordsourceDbo.成績信息表VisibleFalseDatagrid1DatasourceAdodc1Text1(0)名稱Text1DatasourseAdodc1Datafield學(xué)號text（清空）Text1(1)名稱Text1DatasourseAdodc1Datafield課程號text（清空）Text1(2)名稱Text1DatasourseAdodc1Datafield成績text（清空）Comma ndbutt on1（名稱）Cmdaddcapti on添加Comma ndbutt on2（名稱）Cmdmodifycapti on修改Comm