【正文】 .TextMatrix(0, 6) = 部門 .TextMatrix(0, 7) = 職務(wù) .TextMatrix(0, 8) = 工齡( 年) .TextMatrix(line, 0) = xingming .TextMatrix(line, 1) = xingbie .TextMatrix(line, 2) = jiguan .TextMatrix(line, 3) = shengri .TextMatrix(line, 4) = xueli .TextMatrix(line, 5) = zhuanye .TextMatrix(line, 6) = bumen .TextMatrix(line, 7) = zhiwu .TextMatrix(line, 8) = gongling 39。輸入：原來(lái)學(xué)生信息（姓名、性別、籍貫、出生年月、學(xué)歷、專業(yè)、部門、職務(wù)、工齡和備注）和現(xiàn)在學(xué)生信息（姓名、性別、籍貫、出生年月、學(xué)歷、專業(yè)、部門、職務(wù)、工齡和備注） 。輸出：更新后的學(xué)生信息。４）操作。在［修改］按鈕的 Click 時(shí)間中輸入如下代碼：Private Sub Command5_Click()Dim xingming1Dim xingbie1Dim jiguan1Dim shengri1Dim xueli1Dim zhuanye1Dim bumen1Dim zhiwu1Dim gongling1Dim wherewhere = xingming = xingbie = jiguan = shengri = xueli = zhuanye = bumen = zhiwu = gongling = xingming1 = xingbie1 = jiguan1 = shengri1 = xueli1 = zhuanye1 = bumen1 = zhiwu1 = gongling1 = If xingming Then where = where amp。 39。 xingbie amp。 amp。 AND shengri = 39。End IfIf xueli Then where = where amp。 39。 zhuanye amp。 amp。 AND zhiwu = 39。End IfIf gongling Then where = where amp。 39。, vbOKOnly Exit SubElse SQLStr = UPDATE xinxi SET xingming=39。 , xingbie=39。 , jiguan=39。 , shengri=39。 , xueli=39。 ,zhuanye=39。, bumen=39。 , zhiwu=39。 ,gongling=39。 WHERE amp。處理：①以輸入的信息為條件②如果記錄不存在，則將信息從數(shù)據(jù)庫(kù)的 xinxi 表中刪除。當(dāng)點(diǎn)擊［確定］按鈕后將滿足條件的數(shù)據(jù)查出來(lái)并顯示。當(dāng)進(jìn)入主頁(yè)面后，單擊“學(xué)生信息查詢”便會(huì)出現(xiàn)上面的界面。 AND xingming = 39。End IfIf xingbie Then 。 xingming amp。５）代碼及實(shí)現(xiàn)方式。本頁(yè)面使用了 數(shù)據(jù)庫(kù)中的 xinxi 數(shù)據(jù)表。輸出：無(wú)。, vbOKOnly = = = = = = = = = = End IfExit SubEnd Sub（４）信息刪除模塊１）學(xué)生信息刪除的 IPO 圖。 gongling1 amp。 zhiwu1 amp。 bumen1 amp。 zhuanye1 amp。 xueli1 amp。 shengri1 amp。 jiguan1 amp。 xingbie1 amp。 xingming1 amp。, vbOKOnly Exit SubEnd Ifwhere = Mid(where, 5, Len(where))Set Glb_MyWkSp = Workspaces(0)Set Glb_MyDB = (Con_DBpath)SQLStr = SELECT COUNT(*) FROM xinxi WHERE amp。 amp。 zhiwu amp。 39。End IfIf bumen Then where = where amp。 AND zhuanye = 39。 amp。 shengri amp。 39。End IfIf jiguan Then where = where amp。 AND xingbie = 39。 amp。 ［取消］按鈕的作用是回到主頁(yè)面。３）本模塊所使用的數(shù)據(jù)表。②如果記錄存在，則以現(xiàn)在的學(xué)生信息，將 xinxi 表中的學(xué)生信息更新。設(shè)置單元大小 .ColWidth(0) = 1000 .ColWidth(1) = 500 .ColWidth(2) = 1500 .ColWidth(3) = 1000 .ColWidth(4) = 1000 .ColWidth(5) = 1000 .ColWidth(6) = 1000 .ColWidth(7) = 1000 .ColWidth(8) = 800 End With LoopEnd IfExit SubEnd Sub這段代碼是將查詢出來(lái)的滿足條件的數(shù)據(jù)顯示在界面相對(duì)應(yīng)的位置上，如圖６－４所示。 line = 0 Do While = False line = line + 1 xingming = (0) xingbie = (1) jiguan = (2) shengri = (3) xueli = (4) zhuanye = (5) bumen = (6) zhiwu = (7) gongling = (8) With MSHFlexGrid1 39。If (0) = 0 Then MsgBox 沒(méi)有滿足條件的記錄。設(shè)置單元大小 .ColWidth(0) = 1000 .ColWidth(1) = 500 .ColWidth(2) = 1500 .ColWidth(3) = 1000 .ColWidth(4) = 1000 .ColWidth(5) = 1000 .ColWidth(6) = 1000 .ColWidth(7) = 1000 .ColWidth(8) = 800 End With Loop End If Exit SubEnd If這段代碼是將查詢出來(lái)的滿足條件的數(shù)據(jù)顯示在界面相對(duì)應(yīng)的位置上，如圖６－４所示。 With MSHFlexGrid1 39。 gongling amp。 39。End IfIf zhiwu Then where = where amp。 AND bumen = 39。 amp。 xueli amp。 39。End IfIf shengri Then where = where amp。 AND jiguan = 39。 amp。 xingming amp。５）代碼及實(shí)現(xiàn)方式。本頁(yè)面使用了 數(shù)據(jù)庫(kù)中的信息數(shù)據(jù)表。處理：①把輸入的項(xiàng)目作為 where 條件，沒(méi)有輸入的項(xiàng)目不作為 where 條件。) SQLStr這段代碼是將頁(yè)面上輸入的信息插入到數(shù)據(jù)庫(kù) xinxi 表中。,39。,39。,39。,39。,39。,39。,39。,39。,39。Set Glb_MyWkSp = Workspaces(0)Set Glb_MyDB = (Con_DBpath)SQLStr = INSERT INTO xinxi VALUES (39。將 的值賦給變量 bumen。將 的值賦給 jiguan。If = False And = False Then MsgBox 請(qǐng)選擇性別。, vbOKOnly Exit SubEnd IfIf = Then MsgBox 請(qǐng)輸入學(xué)生所在部門。, vbOKOnly Exit SubEnd IfIf = Then MsgBox 請(qǐng)輸入學(xué)生籍貫。本頁(yè)面使用了 數(shù)據(jù)庫(kù)中的信息數(shù)據(jù)表。處理：①檢查頁(yè)面的個(gè)項(xiàng)信息是否全部輸入，如果沒(méi)有全部輸入，則彈出 messagebox,顯示沒(méi)有輸入的項(xiàng)。 ., vbOKOnly, 成功)Exit SubEnd SubPrivate Sub Command2_Click() = = End SubPrivate Sub Command3_Click()End Sub在“用戶名” 標(biāo)簽后的文本框中輸入“admin ”,在“密碼”標(biāo)簽后的文本框中輸入“admin”，單擊 【確定】按鈕，便可進(jìn)入本系統(tǒng)的主界面。 amp。 amp。 amp。 amp。 amp。在標(biāo)準(zhǔn)模塊下編寫(xiě)如下代碼：Public Sub main() Load Fmain Unload Form1Set Form1 = Nothing End Sub當(dāng)閃屏消失后，就會(huì)出現(xiàn)第一個(gè)窗體，如圖所示圖６－３按用戶登陸按鈕遍可進(jìn)入登陸模塊。 初始化閃屏 如圖 61圖 61在啟動(dòng)窗體 中添加了如下代碼：Private Sub Form_Load() = 1 39。如表 52 所示，用戶數(shù)據(jù)表包括用戶名和密碼兩個(gè)字段。（2） 學(xué)生工資一覽模塊：可對(duì)學(xué)生的工資進(jìn)行一覽操作。（2） 學(xué)生信息查詢模塊：可對(duì)學(xué)生信息進(jìn)行查詢操作。第五章 總體設(shè)計(jì) 系 統(tǒng)層 次框圖工資查詢系統(tǒng)的系統(tǒng)模塊土如圖 31 所示。? 光驅(qū)：CDROM48X。已完成的應(yīng)用程序是使用 Visual Basic 虛擬機(jī)真正 .exe 文件，您可以自由發(fā)布。 數(shù)據(jù)訪問(wèn)特性允許對(duì)包括 Microsoft SQL Server 和其它學(xué)校數(shù)據(jù)庫(kù)在內(nèi)的大部分?jǐn)?shù)據(jù)庫(kù)格式建立數(shù)據(jù)庫(kù)和前端應(yīng)用程序，以及可調(diào)整的服務(wù)器端部件。Visual Basic 編程系統(tǒng)和 VBA 都使用這一語(yǔ)言?！癇asic”指的是 BASIC (Beginners AllPurpose Symbolit Instruction Code) 語(yǔ)言，一種在計(jì)算技術(shù)發(fā)展歷史上應(yīng)用得最為廣泛的語(yǔ)言。第三章 學(xué)生查詢系統(tǒng)開(kāi)發(fā)工具和環(huán)境本學(xué)生查詢系統(tǒng)是在 Visual Basic 環(huán)境下開(kāi)發(fā)的。D、由計(jì)算機(jī)軟件系統(tǒng)的模型再轉(zhuǎn)化成一個(gè)現(xiàn)實(shí)系統(tǒng)。面向?qū)ο蠓ㄗ钪饕奶攸c(diǎn)是對(duì)對(duì)象為基礎(chǔ)，對(duì)象是分析問(wèn)題和解決問(wèn)題的核心。(2)面向?qū)ο蟮拈_(kāi) 發(fā)方法面向?qū)ο螅∣bject Oriented）的技術(shù)于 20 世紀(jì) 80 年興起，隨后廣泛地應(yīng)用于計(jì)算機(jī)技術(shù)的幾乎所有領(lǐng)域。D、形成最終的查詢信息。其主要目的是為了描述開(kāi)發(fā)者所理解的用戶的基本需求。②原型法的開(kāi)發(fā)過(guò)程采用原型法開(kāi)發(fā)查詢信息系統(tǒng)可以分為如下幾個(gè)階段：A、確定用戶的基本需求。下面僅對(duì)原型法和面對(duì)對(duì)象的開(kāi)發(fā)方法進(jìn)行簡(jiǎn)單的描述。(5)輔助決策功能：通過(guò)對(duì)數(shù)據(jù)的加工處理，可以快速地獲取對(duì)決策有影響的信息，從而為合理的配置學(xué)校的各項(xiàng)資源，做出最佳的決策提供科學(xué)的依據(jù)。(1)數(shù)據(jù)處理功能：數(shù)據(jù)處理是查詢信息系統(tǒng)最基本的功能，它包括對(duì)各種類型數(shù)據(jù)的收集、加工處理、傳遞、存儲(chǔ)等工作。查詢信息系統(tǒng)運(yùn)用了數(shù)據(jù)庫(kù)的技術(shù)，對(duì)基礎(chǔ)數(shù)據(jù)進(jìn)行統(tǒng)一規(guī)劃、存儲(chǔ)，供各層查詢?nèi)藛T使用，從而實(shí)現(xiàn)了數(shù)據(jù)的一致和共享。 ”因此，我們可以看出，查詢系統(tǒng)系統(tǒng)具有幾個(gè)基本含義：（1）查詢信息系統(tǒng)不是一個(gè)單純的軟件系統(tǒng)，而是一個(gè)人－機(jī)系統(tǒng)，由人和機(jī)器協(xié)同工作。1985 年，查詢信息系統(tǒng)創(chuàng)始人，明尼蘇達(dá)大學(xué)卡爾森查詢學(xué)院的著名教授戴維斯（ ）給出了一個(gè)具有代表性的定義： “查詢信息系統(tǒng)是一個(gè)利用計(jì)算機(jī)硬件和軟件，手工作業(yè)、分析、計(jì)劃、控制和決策模型以及數(shù)據(jù)庫(kù)的用戶－機(jī)器系統(tǒng)。黑盒測(cè)試故意不考慮程序的控制結(jié)構(gòu)，而把注意力集中于信息域。? 性能上是否滿足要求。因此，