【正文】 (txtSQL, MsgText) If = False Then MsgBox 同次同人同科只能添加一次 , vbOKOnly, 警告 Text1(2) = Combo1(0).SetFocus Exit Sub End If txtSQL = select * from score_Form Set mrc = ExecuteSQL(txtSQL, MsgText) (0) = Trim(Text1(0)) (1) = Trim(Text1(1)) (2) = Trim(Combo1(0).Text) (3) = Trim(Combo1(1).Text) (4) = Trim(Combo1(2).Text) (5) = Trim(Text1(2)) MsgBox 考試信息添加成功 !, vbOKOnly, 提示 With MSFlexGrid1 .Rows = .Rows + 1 .TextMatrix(.Rows 1, 0) = Trim(Text1(0)) .TextMatrix(.Rows 1, 1) = Trim(Text1(1)) .TextMatrix(.Rows 1, 2) = Trim(Combo1(0).Text) .TextMatrix(.Rows 1, 3) = Trim(Combo1(1).Text) .TextMatrix(.Rows 1, 4) = Trim(Combo1(2).Text) .TextMatrix(.Rows 1, 5) = Trim(Text1(2)) End With Text1(2) = Combo1(0).Clear txtSQL = select * from class_Form Set mrc = ExecuteSQL(txtSQL, MsgText) If = False Then With Combo1(0) .Clear Do While Not .AddItem Trim(mrc!class_NO) Loop End With End If Combo1(1).Clear 大學(xué)本科課程設(shè)計(jì)（論文） 24 Combo1(2).Clear Text1(0) = GetRkno = 1 End Sub Private Sub Command3_Click() Dim j As Long Dim txtSQL As String Dim txSQL As String txtSQL = select * from score_Form If Text2(1) Then txtSQL = txtSQL amp。 Trim(Combo2(0).Text) amp。 where score_Stu=39。 39。 amp。 Label2(i).Caption amp。 Trim(Text1(0)) amp。 and student_Name=39。 39。yyyymmdd39。 amp。 Trim(Text1(5)) amp。 End If End If Set mrc = ExecuteSQL(txtSQL, MsgText) j = 1 Do While Not j = j + 1 Loop = True = CInt(0) = CInt(j) Set mrc = ExecuteSQL(txtSQL, MsgText) = True With MSFlexGrid1 .Visible = False .Rows = 1 = .Rows Do While Not .Rows = .Rows + 1 For i = 0 To 1 Select Case (i).Type Case adDBDate .TextMatrix(.Rows 1, i) = Format((i) amp。 Trim(Text1(6)) amp。) =39。yyyymmdd39。 End If End If If Text1(5) Label2(5).Caption And Text1(6) Label2(6).Caption Then If txtSQL = select * from student_Form Then txtSQL = txtSQL amp。 amp。 39。 where student_NO=39。 Label2(i).Caption amp。 Else txtSQL = txtSQL amp。 amp。 39。 where score_Cla=39。 Trim(Combo1(2).Text) amp。 Trim(Combo1(0).Text) amp。 Trim() amp。 Trim() amp。 Trim() amp。作為信管專業(yè)的大學(xué)生，現(xiàn)在我能做的就是吸取知識(shí)，提高自身的綜合素質(zhì)，提高自己的創(chuàng)新能力和合作能力等，自己有了能力，到時(shí)候才會(huì)是“車到山前必有路”。然后創(chuàng)建 系統(tǒng) 。一個(gè)專題網(wǎng)站的建立，必定是一個(gè)復(fù)雜龐大的事，在解決這件事情的過程里，越發(fā)體現(xiàn)了團(tuán)隊(duì)的重要性。 ◆錄制日常訪問量比較大的業(yè)務(wù)模塊的代碼，對(duì)測(cè)試機(jī)器進(jìn)行壓力測(cè)試。 （ 1） 測(cè)試環(huán)境結(jié)構(gòu)圖 集 線 器數(shù) 據(jù) 庫(kù) 服 務(wù) 器 應(yīng) 用 服 務(wù) 器負(fù) 載 生 成 器 / 性 能 監(jiān) 視 器 圖 51 測(cè)試環(huán)境結(jié)構(gòu)圖 （ 2） 服務(wù)器端 ◆硬件環(huán)境 表 52 服務(wù)器端硬件環(huán)境配置一覽表 機(jī)器型號(hào) 配置信息 數(shù)量 備注 IBM AS/400 5200903 服務(wù)器 ? 520 Processor； ? 2GB 內(nèi)存 *1； ? 70GB硬盤 *3 ? RAID卡 *1 ? 網(wǎng)卡： 100M 1 臺(tái) 用于數(shù)據(jù)庫(kù)服務(wù)器 聯(lián)合創(chuàng)新機(jī)器 ? 奔騰 ? 1GB RAM ? 80GB 硬盤 ? 網(wǎng)卡： 100M 1 臺(tái) WEB 應(yīng)用服務(wù)器 ◆軟件環(huán)境 表 53 服務(wù)器端軟件環(huán)境配置一覽表 數(shù)據(jù)庫(kù)服務(wù)器 操作系統(tǒng)： IBM AS/400 UNIX 數(shù)據(jù)庫(kù)： Db2 for 400 大學(xué)本科課程設(shè)計(jì)（論文） 16 應(yīng)用服務(wù)器 操作系統(tǒng)： Windows xp professional 應(yīng)用服務(wù)器： Webshpere Apllicaiton 瀏覽器： Inter JDK 備注： （ 3） 客戶端 ◆硬件環(huán)境 表 54 客戶端硬件環(huán)境配置一覽表 機(jī)器型號(hào) 配置信息 數(shù)量 備注 紫光筆記本 ? 賽揚(yáng) cpu； ? 256M RAM； ? 40GB DISK； ? 100M網(wǎng)卡； 1 臺(tái) 負(fù)載生成 /性能監(jiān)控 ◆軟件環(huán)境 表 55 客戶端軟件環(huán)境配置一覽表 操作系統(tǒng)： Windows xp sp2 瀏覽器： 壓力測(cè)試工具： MI Loadrunner 備注： （ 4） 測(cè)試流程 ◆搭建模擬用戶真實(shí)運(yùn)行環(huán)境。其窗體如圖 3— 5所示： 圖 45 成績(jī)添加界面 大學(xué)本科課程設(shè)計(jì)（論文） 13 4 學(xué)籍管理模塊 功能：本模塊的主要功能是對(duì)學(xué)生的學(xué)籍信息進(jìn)行查詢、修改能操作。 成績(jī)管理模塊： （ 1） 可以錄入學(xué)生成績(jī)。簡(jiǎn)單清晰地展現(xiàn)出用戶所需要查詢的信息。 (3)易操作原則：要求設(shè)計(jì)的系統(tǒng)功能齊全，界面友好，操作方便，必要的地方進(jìn)行提示。主要包括修改密碼以及添加人員等。能進(jìn)行學(xué)生信息的查詢，包括學(xué)生基本信息和選課信息以及對(duì)應(yīng)的成績(jī)信息查詢。 Access 是一種關(guān)系型數(shù)據(jù)庫(kù)管理系統(tǒng)，不但能存儲(chǔ)和管理數(shù)據(jù)，還能編寫數(shù)據(jù)庫(kù)管理軟件，用戶可以通過 Access 提供的開發(fā)環(huán)境及工具方便地構(gòu)建數(shù)據(jù)庫(kù)應(yīng)用程序，大部分是直觀的可視化的操作，無(wú)需編寫程序代碼，是一種使用方便、功能較強(qiáng)的數(shù)據(jù)庫(kù)開發(fā)工具。大學(xué)本科課程設(shè)計(jì)（論文） 2 二 、需求分析 （ 一 ） 系統(tǒng)技術(shù)需求分析 1． 技術(shù)目標(biāo) 系統(tǒng)采用了 Access 數(shù)據(jù)庫(kù)， Visual Basic 程序設(shè)計(jì)技術(shù)。 學(xué)生 信息 管理系統(tǒng)是面向?qū)W生的管理系統(tǒng)，其目的是提高大學(xué)對(duì)大 學(xué)生的科學(xué)化管理。該學(xué)生信息管理系統(tǒng)重點(diǎn)考慮學(xué)生基本信息、成績(jī)信息和選課信息的建立與維護(hù)及相應(yīng)的檢索設(shè)計(jì)。 4．要求：課設(shè)結(jié)束后，上交軟件系統(tǒng)和課程設(shè)計(jì)說明書。 2．掌握數(shù)據(jù)庫(kù)技術(shù)和應(yīng)用。面對(duì)不同種類的信息，需要合理的數(shù)據(jù)庫(kù)結(jié)構(gòu)來保存數(shù)據(jù)信息，需要有效的程序結(jié)構(gòu)支持各種數(shù)據(jù)操作的執(zhí)行。而對(duì)于后者則要求程序界面友好，功能完備等特點(diǎn)。 基于我校實(shí)際情況，結(jié)合這學(xué)期我們對(duì)管理 信息 系統(tǒng) 及數(shù)據(jù)庫(kù)原理 的學(xué)習(xí)，以及自己在經(jīng) 管 學(xué) 院學(xué)生會(huì)多年的工作經(jīng)驗(yàn)，發(fā)現(xiàn)老師和同學(xué)對(duì)學(xué)生的考核用傳統(tǒng)的筆頭方法具有一定的復(fù)雜性而且需要花費(fèi)很長(zhǎng)的時(shí)間，基 于以上情況綜合考慮，所以我設(shè)計(jì)了這個(gè) 經(jīng) 管 學(xué) 院學(xué)生 信息 管理系統(tǒng)，可以讓老師輕松掌握 學(xué)生的 工作情況、學(xué)習(xí)成績(jī)。 2． Visual Basic 程序設(shè)計(jì)工具 介紹 Visual Basic 程序設(shè)計(jì)工具具有以下特點(diǎn)： （ 1） 面向?qū)ο蠛涂梢暬某绦蛟O(shè)計(jì) . Visual Basic 實(shí)現(xiàn)了對(duì)象的封裝 ,是程序 員只需把注意力集中到對(duì)象的設(shè)計(jì) .特別是對(duì)程序界面的設(shè)計(jì) . （ 2） 事件驅(qū)動(dòng)的運(yùn)行機(jī)制 . Visual Basic 程序是在 Windwos 環(huán)境下開發(fā)的，因此其運(yùn)行機(jī)制是事件驅(qū)動(dòng)的。 ? 內(nèi)存： 64M 內(nèi)存。 權(quán)限設(shè)置 ：不同的登陸者具有不同的系統(tǒng)權(quán)限，具有不同 權(quán)限者訪問不同的系統(tǒng)資源，主要是為了限制越權(quán)操作。 (2)分層的模塊化程序設(shè)計(jì)思想，整個(gè)系統(tǒng)采用模塊化結(jié)構(gòu)設(shè)計(jì)。 (6)安全性原則：可以為該系統(tǒng)的用戶設(shè)置用戶權(quán)限。 大學(xué)本科課程設(shè)計(jì)（論文） 7 （ 四 ） 系統(tǒng)數(shù)據(jù)流分析 圖 32 頂層數(shù)據(jù)流程圖 F1：管理要求 F2：基本數(shù)據(jù) F3: 入學(xué)登記表 F4：成績(jī)單 F5：查詢 F6：畢結(jié)業(yè)文件 F7：用戶信息 F8: 招生數(shù)據(jù) F9：學(xué)生信息 F10：成績(jī)信息 F11：存檔信息 F12：操作員信息 圖 33 第一層數(shù)據(jù)流程圖 大學(xué)本科課程設(shè)計(jì)（論文） 8 （ 五 ） 數(shù)據(jù)字典 1． 數(shù)據(jù)流條目 （ 1） 學(xué)生基本信息 =學(xué)號(hào) +姓名 +性別 +出生年月 +年齡 +入學(xué)時(shí)間 +政治面貌 +院系代碼 +專業(yè)代碼 +個(gè)人簡(jiǎn)介 +籍貫 +住址 +郵編 （ 2）