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