【正文】 本頁面使用了 數(shù)據(jù)庫中的 xinxi。當點擊［確定］按鈕后將滿足條件的數(shù)據(jù)查出來并顯示。 輸出：無。 處理： ①以輸入的信息為條件 ②如果記錄不存在，則將信息從數(shù)據(jù)庫的 xinxi 表中刪除。 , vbOKOnly = = = = = = = = = = End If Exit Sub End Sub （４）信息刪除模塊 １）學(xué)生信息刪除的 IPO 圖。 WHERE amp。 gongling1 amp。 ,gongling=39。 zhiwu1 amp。 , zhiwu=39。 bumen1 amp。, bumen=39。 zhuanye1 amp。 ,zhuanye=39。 xueli1 amp。 , xueli=39。 shengri1 amp。 , shengri=39。 jiguan1 amp。 , jiguan=39。 xingbie1 amp。 , xingbie=39。 xingming1 amp。 , vbOKOnly Exit Sub Else SQLStr = UPDATE xinxi SET xingming=39。 , 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。 39。 amp。 End If If gongling Then where = where amp。 zhiwu amp。 AND zhiwu = 39。 39。 amp。 End If If bumen Then where = where amp。 zhuanye amp。 AND zhuanye = 39。 39。 amp。 End If If xueli Then where = where amp。 shengri amp。 AND shengri = 39。 39。 amp。 End If If jiguan Then where = where amp。 xingbie amp。 AND xingbie = 39。 39。 amp。在［修改］按鈕的 Click 時間中輸入如下代碼 ： 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。［取消］按鈕的作用是回到主頁面。 ４）操作。 ３）本模塊所使用的數(shù)據(jù)表。 輸出：更新后的學(xué)生信息。 ②如果記錄存在，則以現(xiàn)在的學(xué)生信息，將 xinxi 表中的學(xué)生信息更新。 輸入：原來學(xué)生信息（姓名、性別、籍貫、出生年月、學(xué)歷、專業(yè)、部門、職務(wù)、工齡和備注）和現(xiàn)在學(xué)生信息（姓名、性別、籍貫、出 生年月、學(xué)歷、專業(yè)、部門、職務(wù)、工齡和備注）。設(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)的位置上，如圖６－４所示。定 義列標題 .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(line, 5) = zhuanye .TextMatrix(line, 6) = bumen .TextMatrix(line, 7) = zhiwu .TextMatrix(line, 8) = gongling 39。 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。 ” Else = True SQLStr = SELECT * FROM xinxi WHERE amp。 If (0) = 0 Then MsgBox 沒有滿足條件的記錄。 SQLStr = SELECT COUNT(*) FROM xinxi WHERE amp。設(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)的位置上，如圖６－４所示。定義列標題 .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(line, 5) = zhuanye .TextMatrix(line, 6) = bumen .TextMatrix(line, 7) = zhiwu .TextMatrix(line, 8) = gongling 39。 With MSHFlexGrid1 39。 End If Set Glb_MyWkSp = Workspaces(0) Set Glb_MyDB = (Con_DBpath) Dim line If where = Then SQLStr = SELECT COUNT(*) FROM xinxi Set db_set = (SQLStr) If (0) = 0 Then MsgBox 目前數(shù)據(jù)庫中記錄數(shù)為 0。 gongling amp。 AND gongling = 39。 39。 amp。 End If If zhiwu Then where = where amp。 bumen amp。 AND bumen = 39。 39。 amp。 End If If zhuanye Then where = where amp。 xueli amp。 AND xueli = 39。 39。 amp。 End If If shengri Then where = where amp。 jiguan amp。 AND jiguan = 39。 39。 amp。 End If If xingbie Then where = where amp。 xingming amp。 AND xingming = 39。 ５）代碼及實現(xiàn)方式。當進入主頁面后，單擊“學(xué)生信息查詢”便會出現(xiàn)上面的界面。本頁面使用了 數(shù)據(jù)庫中的信息數(shù)據(jù)表。 ２）本模 塊截面如圖所示 當輸入了查詢條件，點擊［查詢］按鈕后進入圖６－４所示頁面。 處理： ①把輸入的項目作為 where 條件，沒有輸入的項目不作為 where 條件。 （２）學(xué)生信息查詢模塊 １） 學(xué)生信息查詢模塊的 IPO 圖。) SQLStr 這段代碼是將頁面上輸入的信息插入到數(shù)據(jù)庫 xinxi表中。 beizhu amp。,39。 gongling amp。,39。 zhiwu amp。,39。 bumen amp。,39。 zhuanye amp。,39。 xueli amp。,39。 shengri amp。,39。 jiguan amp。,39。 xingbie amp。,39。 xingming amp。 Set Glb_MyWkSp = Workspaces(0) Set Glb_MyDB = (Con_DBpath) S