畢業(yè)設(shè)計-vb60學生公寓管理系統(tǒng)設(shè)計-資料下載頁

【導讀】信息學院業(yè)設(shè)計第1頁共43頁。濟南大學畢業(yè)設(shè)計用紙

　　

【正文】 按學院查詢 公寓信信息學院 業(yè) 設(shè)計 第 26 頁 共 43 頁 濟南大學畢業(yè)設(shè)計用紙 息； 公寓信息設(shè)置：完成對公寓信息的添加，刪除，更新工作 ；外來人員登記窗口 ，對外來人員的姓名，證件號碼，進入和離開公寓時間，事由等信息進行采集。 1． 公寓信息查詢 窗口 通過 ADODC 控件對數(shù)據(jù)庫的訪問，可以瀏覽公寓基本信息。 圖 46 公寓 信息 查詢 窗口 公寓信息查詢部分代碼： 確定按鈕 mand1 部分程序 Private Sub Command1_Click() Dim xb As String Dim conn As New Connection Dim rs As New Dim sql As String Dim strConnection As String strConnection = Provider=。Data Source= amp。 amp。 \ 信息學院 業(yè) 設(shè)計 第 27 頁 共 43 頁 濟南大學畢業(yè)設(shè)計用紙 If Option1 = True Then sql = select * from gyjb where 公寓號 =39。 amp。 amp。 39。 End If If Option3 = True Then xb = 女 End If If Option4 = True Then xb = 男 End If If Option2 = True Then sql = select * from gyjb where 學院 =39。 amp。 amp。 39。and 性別 =39。 amp。 xb amp。 39。 End If strConnection sql, conn, adOpenKeyset, adLockOptimistic 39。Set rs = TransactSQL(sql) = (0) = (1) = (2) = (3) = (4) End Sub 窗口 信息學院 業(yè) 設(shè)計 第 28 頁 共 43 頁 濟南大學畢業(yè)設(shè)計用紙 圖 47 公寓信息設(shè)置窗口 進入此窗口，通過設(shè)定的添加，刪除，更新按鈕，可以方便的完成對公寓信息信息的添加、刪除操作，而且通過 ADODC 控件對數(shù)據(jù)庫的訪問，可以瀏覽信息。 公寓信息設(shè)置窗口部分代碼： 添加按鈕 mand1 代碼 Private Sub Command1_Click() With (公寓號 ) = Trim() (學院 ) = Trim() (性別 ) = Trim() (宿舍類型 ) = Trim() (備注 ) = Trim() If Trim() Then sql = select * from gyjb where 公寓號 =39。 + Trim() + 39。 信息學院 業(yè) 設(shè)計 第 29 頁 共 43 頁 濟南大學畢業(yè)設(shè)計用紙 If recs 0 Then MsgBox 公寓信息已存在 , vbOKOnly, 信息提示 Else .Update .MoveLast MsgBox 該信息已經(jīng)添加成功！！ , vbOKOnly + vbExclamation, 信息添加提示 End If End If End With End Sub 刪除按鈕 mand2 代碼 Private Sub Command2_Click() Dim msg, style, title, response msg = 真的刪除？ style = vbYesNo title = 警告 response = MsgBox(msg, style, title) If response = vbYes Then MsgBox 該信息已經(jīng)成功刪除！！ , vbOKOnly + vbExclamation, 信息刪除提示 End If If Not Then Else End If End Sub 3． 外來人員登記 窗口 信息學院 業(yè) 設(shè)計 第 30 頁 共 43 頁 濟南大學畢業(yè)設(shè)計用紙 圖 48 外來人員登記 窗口 外來人員登記窗口 如圖 48 所示。進入此窗口，可以方便的完成對 外來人員信息的添加 操作，而且通過 ADODC 控件對數(shù)據(jù)庫的訪問，可以瀏覽信息。 4． 公寓物品管理窗口 進入此窗口，可以對出入庫物品的名稱，數(shù)量，日期等記錄進行錄入 、 查詢。 信息學院 業(yè) 設(shè)計 第 31 頁 共 43 頁 濟南大學畢業(yè)設(shè)計用紙 圖 49 公寓物品管理 宿舍信息管理菜單下的窗口設(shè)計 宿舍信息管理菜單下有宿舍信息查詢窗口：可以通過公寓號及宿舍號方便的查詢宿舍基 本信息；宿舍信息設(shè)置窗口：通過設(shè)置的按紐 和事件程序 ，可以實現(xiàn)對宿舍信息的添加 、刪除 、 更新操作。 宿舍信息查詢，宿舍信息設(shè)置部分的代碼與公寓信息查詢，設(shè)置部分類似，以下不再給出。 1．宿舍信息查詢窗口 信息學院 業(yè) 設(shè)計 第 32 頁 共 43 頁 濟南大學畢業(yè)設(shè)計用紙 圖 410 宿舍 信息查詢窗口 宿舍 信息 查詢 窗口的設(shè)計如圖 410 所示。進入此窗口，通過設(shè)定的按鈕，可以方便的完成對 宿舍 信息 查詢 操作。而且通過 ADODC 控件對數(shù)據(jù)庫的訪問，可以瀏覽 宿舍 信息。 2． 宿舍信息設(shè)置窗口 信息學院 業(yè) 設(shè)計 第 33 頁 共 43 頁 濟南大學畢業(yè)設(shè)計用紙 圖 411 宿舍信息設(shè)置 窗口 宿舍信息設(shè)置窗口的設(shè)計如圖 411 所示。點擊主界面的 菜單選項進入窗口，通過窗口給出的有關(guān)按紐，可以方便的實現(xiàn)宿舍信息的添加，刪除，更新操作。而且，通過 ADODC控件，還可實現(xiàn)對信息的瀏覽。 進入此窗口，可以實現(xiàn)對宿舍報修的信息進行錄入 、 查詢等功能。 信息學院 業(yè) 設(shè)計 第 34 頁 共 43 頁 濟南大學畢業(yè)設(shè)計用紙 圖 412 宿舍維修窗口 進入此窗口，可以實現(xiàn)宿舍衛(wèi)生成績的統(tǒng)計。 輸入桌椅，衛(wèi)生間，總體得分后，單擊確定按鈕，系統(tǒng)會統(tǒng)計出最后得分并加入相關(guān)欄。獲 此窗口的代碼設(shè)計 如下： 確定 按鈕部分代碼： With = CDec() + CDec() + CDec() (公寓號 ) = Trim() (宿舍號 ) = Trim() (桌椅床鋪 ) = Trim() (衛(wèi)生間陽臺 ) = Trim() (整體形象 ) = Trim() (最后得分 ) = Trim() 信息學院 業(yè) 設(shè)計 第 35 頁 共 43 頁 濟南大學畢業(yè)設(shè)計用紙 .Update .MoveLast MsgBox 該信息已經(jīng)添加成功 ！！ , vbOKOnly + vbExclamation, 信息添加提示 End With End Sub 圖 413 宿舍衛(wèi)生成績登記窗口 學生管理菜單下的窗口設(shè)計 學生管理菜單下包含學生信息查詢，學生信息設(shè)置 ，學生登記 窗口。 學生信息查詢有多種查詢 條件：按學號、按姓名、按年級、按專業(yè)，輸入相關(guān)信息可 查詢學生信息；設(shè)置窗口，通過 設(shè)定 的按紐，可方便的實現(xiàn)學生基本信息的添加 、 刪除 、 更新等操作。 1． 學生信息 查詢窗口 信息學院 業(yè) 設(shè)計 第 36 頁 共 43 頁 濟南大學畢業(yè)設(shè)計用紙 圖 414 學生信息 查詢窗口 學生信息 查詢部分的代碼： 確定 按鈕部分編碼： Private Sub Command1_Click() Call sql1(query) Call showxs(query) End Sub Public Sub sql1(query As String) If Option1 = True Then query = select * from 學生登記表 where 姓名 =39。 amp。 amp。 39。 信息學院 業(yè) 設(shè)計 第 37 頁 共 43 頁 濟南大學畢業(yè)設(shè)計用紙 End If If Option2 = True Then query = select * from 學生登記表 where 學號 =39。 amp。 amp。 39。 End If If Option3 = True Then query = select * from 學生登記表 where 年級 =39。 amp。 amp。 39。 End If If Option4 = True Then query = select * from 學生登記表 where 專業(yè) =39。 amp。 amp。 39。 End If End Sub Public Sub ListTopic() Dim i As Integer With Grid1 39。設(shè)置表頭 .TextMatrix(0, 0) = 姓名 .TextMatrix(0, 1) = 學號 .TextMatrix(0, 2) = 專業(yè) .TextMatrix(0, 3) = 年級 .TextMatrix(0, 4) = 班級 .TextMatrix(0, 5) = 公寓號 .TextMatrix(0, 6) = 宿舍號 For i = 0 To 6 39。設(shè)置對齊方式 .ColAlignment(i) = 6 Next i For i = 0 To 6 39。設(shè)置列寬 .ColWidth(i) = 1500 Next i End With End Sub Public Sub showxs(sql As String) Dim con As Dim rs As Dim strConnection As String 信息學院 業(yè) 設(shè)計 第 38 頁 共 43 頁 濟南大學畢業(yè)設(shè)計用紙 Dim strArray() As String Set con = New 39。創(chuàng)建連接 Set rs = New 39。創(chuàng)建記錄集 39。On Error GoTo TransactSQL_Error strConnection = Provider=。Data Source= amp。 amp。 \ strArray = Split(sql) strConnection Set rs = TransactSQL(sql) If = False Then With Grid1 39。顯示信息內(nèi)容 .Rows = 1 While Not .Rows = .Rows + 1 .TextMatrix(.Rows 1, 0) = rs(0) .TextMatrix(.Rows 1, 1) = rs(1) .TextMatrix(.Rows 1, 2) = rs(2) .TextMatrix(.Rows 1, 3) = rs(3) .TextMatrix(.Rows 1, 4) = rs(4) .TextMatrix(.Rows 1, 5) = rs(5) .TextMatrix(.Rows 1, 6) = rs(6) Wend End With End If End Sub 2．學生信息設(shè)置窗口 信息學院 業(yè) 設(shè)計 第 39 頁 共 43 頁 濟南大學畢業(yè)設(shè)計用紙 圖 415 學生信息設(shè)置窗口 學生基本信息設(shè)置窗口如圖 415 所示，通過所設(shè)的按紐可以方便的實現(xiàn)學生基本信息的添加 、 刪除 、 更新操作，而且，通過 ADODC 控件可實現(xiàn)對信息的瀏覽。 信息學院 業(yè) 設(shè)計 第 40 頁 共 43 頁 濟南大學畢業(yè)設(shè)計用紙 結(jié)果分析與未來展望 本設(shè)計實現(xiàn)了 學生公寓 管理系統(tǒng)。主要做了以下工作：