畢業(yè)論文--學生學籍管理系統(tǒng)的設計與實現(xiàn)畢業(yè)設計-在線瀏覽
2025-02-02 13:40本頁面
【正文】 orm2 主界面 Show End If End If End If End If End Sub Private Sub Command2_Click End End Sub Private Sub Form Load End Sub 關鍵介紹 通過 ADO 控件連接到數(shù)據(jù)庫中的用戶信息表通過 IF 語句實現(xiàn)用戶名與密碼的核對使得用戶權(quán)限得到了管理 主界面如圖 43 所示 本界面是系統(tǒng)的主界面在本界面上集成了本系統(tǒng)的所有功能共有 4 個功能菜單和 10 個子菜單功能模塊從而實現(xiàn)了本系統(tǒng)班級信息管理 課程信息管理學生信息管理等的具體功能同時在該模塊中可以對本系統(tǒng)中的所有學生信息班級信息課程信息進行瀏覽或者可以退出系統(tǒng) 圖 43 其代碼如下 Private Sub Command1_Click Set DataGrid1DataSource Adodc1 End Sub Private Sub Command2_Click Set DataGrid1DataSource Adodc2 End Sub Private Sub Command3_Click Set DataGrid1DataSource Adodc3 End Sub Private Sub cxbjxx_Click Form6Show End Sub Private Sub cxkcxx_Click Form9Show End Sub Private Sub cxxsxx_Click Form3Show End Sub Private Sub Form Load Form1Hide Form2Hide End Sub Private Sub Frame1_DragDrop Source As Control X As Single Y As Single End Sub Private Sub scbjxx_Click Form8Show End Sub Private Sub sckcxx_Click Form11Show End Sub Private Sub scxsxx_Click Form5Show End Sub Private Sub tc_Click End End Sub Private Sub xgbjxx_Click Form7Show End Sub Private Sub xgkcxx_Click Form10Show End Sub Private Sub xgxsxx_Click Form4Show End Sub 關鍵介紹 通過菜單編輯器創(chuàng)建了級聯(lián)菜單使得菜單欄簡潔直觀通過 ADO 與DATAGRID 控件實現(xiàn)了信息的瀏覽 學生信息查詢模塊如圖 44 所示 本界面是學生信息查詢界面實現(xiàn)了輸入姓名后可查詢該學生的基本信息情況或者返回 主界面的功能 圖 44 其代碼如下 Private Sub Command1_Click Adodc1ConnectionString Provider Micro Data Source App Path \學生學籍管理 mdb Adodc1CommandType adCmdText Dim strSQL As String strSQL select from 學生信息表 where 姓名 like Text1Text Adodc1RecordSource strSQL Adodc1Refresh Set DataGrid1DataSource Adodc1 DataGrid1Refresh End Sub Private Sub Command2_Click Unload Me End Sub Private Sub Form Load End Sub 關鍵介紹 通過 Select 語句實現(xiàn)了條件查詢通過 ADO 與 DATAGRID 控件連接數(shù)據(jù)庫將查詢得到的記錄顯示在 DATAGRID 控 件中 學生信息修改模塊如圖 45 所示 本界面是學生信息修改界面通過該模塊可以先查詢學生信息后再對學生的信息進行修改并保存到數(shù)據(jù)庫中或者返回主界面 圖 45 其代碼如下 Private Sub Command1_Click Adte MsgBox 修改成功 End Sub Private Sub Command2_Click Unload Me End Sub Private Sub Command3_Click Adodc1ConnectionString Provider Micro Data Source App Path \學生學籍管理 mdb Adodc1CommandType adCmdText Dim strSQL As String strSQL select from 學生信息表 where 學號 Text1Text Adodc1RecordSource strSQL Adodc1Refresh Text1Text Adds 學號 Text2Text Adds 姓名 Text3Text Adds 性別 Text4Text Adds 年齡 Text5Text Adds 班號 End Sub Private Sub Form Load Adodc1ConnectionString Provider Micro Data Source App Path \學生學籍管理 mdb Adodc1CommandType adCmdText Dim strSQL As String strSQL select from 學生信息表 Adodc1RecordSource strSQL Adodc1Refresh Text1Text Adds 學號 Text2Text Adds 姓名 Text3Text Adds 性別 Text4Text Adds 年齡 Text5Text Adds 班號 End Sub 關鍵介紹 通過 Select 語句實現(xiàn)了條件查詢通過 ADO 控件檢索 text 文本對其進 行了修改 學生信息刪除界面如圖 46 所示 本界面為學生信息刪除界面所有的學生信息都在下面的控件中顯示了出來可以進行選擇刪除或者返回主界面 圖 46 其代碼如下 Private Sub Command1_Click hxfyn MsgBox 是否真的刪除 36 If hxfyn vbYes Then If AdrdCount 0 Then Adte End If End Sub Private Sub Command2_Click Unload Me End Sub Private Sub Form Load End Sub 關鍵介紹 通過 Select語句實現(xiàn)了條件查詢通過 ADO與 DATAGRID控件連接數(shù)據(jù)庫將查詢得到的記錄顯示在 DATAGRID 控件中再使用 Delete 語句進行了刪除 班級信息查詢界面如圖 47 所示 本界面是班級信息查詢界面實現(xiàn)了輸入班號后可查詢班級基本信息情況或者返回主界面的功能 圖 47 其代碼如下 Private Sub Command1_Click Adodc1ConnectionString Provider Micro Data Source App Path \學生學籍管理 mdb Adodc1CommandType adCmdText Dim strSQL As String strSQL select from 班級信息表 where 班號 like Text1Text Adodc1RecordSource strSQL Adodc1Refresh Set DataGrid1DataSource Adodc1 DataGrid1Refresh End Sub Private Sub Command2_Click Unload Me End Sub Private Sub Form Load End Sub 關鍵介紹 通過 Select語句實現(xiàn)了條件查詢通過 ADO與 DATAGRID控件連接數(shù)據(jù)庫將查詢得到的記錄顯示在 DATAGRID 控件中 息修改模塊如圖 48 所示 本界面是班級信息修改界面通過該模塊可以先查詢班級信息后再對班級 的
公司管理相關推薦
鄂ICP備17016276號-1