學生信息查詢系統—免費畢業設計論文-資料下載頁

【導讀】習成績和平時的加分情況不是很了解。同時，在就業分配時，由于沒有很好的信。息傳播途徑，學生對用人單位的信息也了解得不是很透徹。這個系統查詢學生的信息，達到雙向交流的目的。數據結構及數據庫設計。測試的指導原則。

　　

【正文】 .TextMatrix(0, 7) = 職務 .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。固定表頭 .FixedRows = 1 39。設置單元大小 .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 這段代碼是將查詢出來的滿足條件的數據顯示在界面相對應的位置上，如圖６－４所示。 where = Mid(where, 5, Len(where)) 這段代碼是指由于 where 條件在積累時最前面有一個 ”AND”存在，這不符合 SQL 的書寫規則，因此使用“ Mid”函數將前面的“ And”去掉，保證 SQL 能正確執行。 SQLStr = SELECT COUNT(*) FROM xinxi WHERE amp。 where Set db_set = (SQLStr) 這段代碼是以積累的 where 條件查詢表 xinxi,看看有幾條滿足 where 條件的數據記錄。 If (0) = 0 Then MsgBox 沒有滿足條件的記錄。 , vbOKOnly Exit Sub 這段代碼的作用是，如果沒有滿足 where 條件的記錄，則顯示 messagebox”沒有滿足條件的記錄。 ” Else = True SQLStr = SELECT * FROM xinxi WHERE amp。 where Set db_set = (SQLStr) 這段代碼的作用是，如果沒有滿足 where 條件的記錄時，則查詢所有滿足 where 條件的記錄。 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。定義列數 .Cols = 9 39。定 義列標題 .TextMatrix(0, 0) = 姓名 .TextMatrix(0, 1) = 性別 .TextMatrix(0, 2) = 籍貫 .TextMatrix(0, 3) = 出生年月 .TextMatrix(0, 4) = 學歷 .TextMatrix(0, 5) = 專業 .TextMatrix(0, 6) = 部門 .TextMatrix(0, 7) = 職務 .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。固定表頭 .FixedRows = 1 39。設置單元大小 .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 這段代碼是將查詢出來的滿足條件的數據顯示在界面相對應的位置上，如圖６－４所示。 （３）學生信息修改模塊 １）學生信息修改模塊的 IPO 圖。 輸入：原來學生信息（姓名、性別、籍貫、出生年月、學歷、專業、部門、職務、工齡和備注）和現在學生信息（姓名、性別、籍貫、出 生年月、學歷、專業、部門、職務、工齡和備注）。 處理： ①以原來的學生信息為 where 條件查詢數據庫。 ②如果記錄存在，則以現在的學生信息，將 xinxi 表中的學生信息更新。 ③如果記錄不存在，則不更新數據庫。 輸出：更新后的學生信息。 ２）本模塊界面如圖所示。 ３）本模塊所使用的數據表。本頁面使用了 數據庫中的 xinxi 數據表。 ４）操作。當進入主頁面后，單擊“學生信息查詢”便會出現上面的界面。［取消］按鈕的作用是回到主頁面。 ５）代碼及實現方式。在［修改］按鈕的 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。 AND xingming = 39。 amp。 xingming amp。 39。 End If If xingbie Then where = where amp。 AND xingbie = 39。 amp。 xingbie amp。 39。 End If If jiguan Then where = where amp。 AND jiguan = 39。 amp。 jiguan amp。 39。 End If If shengri Then where = where amp。 AND shengri = 39。 amp。 shengri amp。 39。 End If If xueli Then where = where amp。 AND xueli = 39。 amp。 xueli amp。 39。 End If If zhuanye Then where = where amp。 AND zhuanye = 39。 amp。 zhuanye amp。 39。 End If If bumen Then where = where amp。 AND bumen = 39。 amp。 bumen amp。 39。 End If If zhiwu Then where = where amp。 AND zhiwu = 39。 amp。 zhiwu amp。 39。 End If If gongling Then where = where amp。 AND gongling = 39。 amp。 gongling amp。 39。 End If If where = Then MsgBox 請輸入原信息。 , 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。 where Set db_set = (SQLStr) If (0) = 0 Then MsgBox 沒有滿足條件的記錄。 , vbOKOnly Exit Sub Else SQLStr = UPDATE xinxi SET xingming=39。 amp。 xingming1 amp。 39。 , xingbie=39。 amp。 xingbie1 amp。 39。 , jiguan=39。 amp。 jiguan1 amp。 39。 , shengri=39。 amp。 shengri1 amp。 39。 , xueli=39。 amp。 xueli1 amp。 39。 ,zhuanye=39。 amp。 zhuanye1 amp。 39。, bumen=39。 amp。 bumen1 amp。 39。 , zhiwu=39。 amp。 zhiwu1 amp。 39。 ,gongling=39。 amp。 gongling1 amp。 39。 WHERE amp。 where SQLStr MsgBox 商品信息更新成功。 , vbOKOnly = = = = = = = = = = End If Exit Sub End Sub （４）信息刪除模塊 １）學生信息刪除的 IPO 圖。 輸入：姓名、性別、籍貫、出生年月、學歷、專業、部門、職務和工齡。 處理： ①以輸入的信息為條件 ②如果記錄不存在，則將信息從數據庫的 xinxi 表中刪除。 ③如果記錄不存在，則顯示 messagebox,提示無此記錄。 輸出：無。 ２）本模塊界面入圖所示。當點擊［確定］按鈕后將滿足條件的數據查出來并顯示。 ３）模塊所使用的數據表。本頁面使用了 數據庫中的 xinx