【正文】 End IfIf xingbie Then 。 xingming amp。 AND xingming = 39。５）代碼及實(shí)現(xiàn)方式。當(dāng)進(jìn)入主頁面后，單擊“學(xué)生信息查詢”便會(huì)出現(xiàn)上面的界面。本頁面使用了 數(shù)據(jù)庫中的 xinxi 數(shù)據(jù)表。當(dāng)點(diǎn)擊［確定］按鈕后將滿足條件的數(shù)據(jù)查出來并顯示。輸出：無。處理：①以輸入的信息為條件②如果記錄不存在，則將信息從數(shù)據(jù)庫的 xinxi 表中刪除。, vbOKOnly = = = = = = = = = = End IfExit SubEnd 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 SubElse SQLStr = UPDATE xinxi SET xingming=39。, 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。 39。 amp。End IfIf gongling Then where = where amp。 zhiwu amp。 AND zhiwu = 39。 39。 amp。End IfIf bumen Then where = where amp。 zhuanye amp。 AND zhuanye = 39。 39。 amp。End IfIf xueli Then where = where amp。 shengri amp。 AND shengri = 39。 39。 amp。End IfIf jiguan Then where = where amp。 xingbie amp。 AND xingbie = 39。 39。 amp。在［修改］按鈕的 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。 ［取消］按鈕的作用是回到主頁面。４）操作。３）本模塊所使用的數(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 LoopEnd IfExit SubEnd Sub這段代碼是將查詢出來的滿足條件的數(shù)據(jù)顯示在界面相對(duì)應(yīng)的位置上，如圖６－４所示。定義列標(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(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 SubEnd If這段代碼是將查詢出來的滿足條件的數(shù)據(jù)顯示在界面相對(duì)應(yīng)的位置上，如圖６－４所示。定義列標(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(line, 5) = zhuanye .TextMatrix(line, 6) = bumen .TextMatrix(line, 7) = zhiwu .TextMatrix(line, 8) = gongling 39。 With MSHFlexGrid1 39。End IfSet Glb_MyWkSp = Workspaces(0)Set Glb_MyDB = (Con_DBpath)Dim lineIf 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 IfIf zhiwu Then where = where amp。 bumen amp。 AND bumen = 39。 39。 amp。End IfIf zhuanye Then where = where amp。 xueli amp。 AND xueli = 39。 39。 amp。End IfIf shengri Then where = where amp。 jiguan amp。 AND jiguan = 39。 39。 amp。End IfIf xingbie Then where = where amp。 xingming amp。 AND xingming = 39。５）代碼及實(shí)現(xiàn)方式。當(dāng)進(jìn)入主頁面后，單擊“學(xué)生信息查詢”便會(huì)出現(xiàn)上面的界面。本頁面使用了 數(shù)據(jù)庫中的信息數(shù)據(jù)表。２）本模塊截面如圖所示當(dāng)輸入了查詢條件，點(diǎn)擊［查詢］按鈕后進(jìn)入圖６－４所示頁面。處理：①把輸入的項(xiàng)目作為 where 條件，沒有輸入的項(xiàng)目不作為 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)SQLStr = INSERT INTO xinxi VALUES (39。將 的值賦給變量 gongling。將 的值賦給變量 bumen。將 的值賦給變量 xueli。將 的值賦給 jiguan。 ”，并跳出本函數(shù)，不執(zhí)行下面的代碼。If = False And =