【正文】 在此，我們 全體設(shè)計成員對他 表示由衷的感謝！ 。他 無論在理論上還是在操作實踐中，都給予我們很大的幫助，使我們得到不少的提高。第五章系統(tǒng)管理與維護 38 致謝 在本次畢業(yè)設(shè)計中，我們從指導(dǎo)老師處學到了很多東西。進一步讓我們體會在團隊合作的過程中相互了解，相互信任，各施其責的重要性。但是在我們?nèi)M設(shè)計成員的齊心協(xié)力與指導(dǎo)老師的幫助下，我們克服了一個又一個的問題，保證了設(shè)計作業(yè)的順利進行。在我們的作品里，可以看到我們每一位設(shè)計者所做出的努力。 這次的課程設(shè)計過程中我們感到時間的緊張，人也很疲憊，但當我們完成我們作品的那一刻，所有的緊張，所有的疲憊都忘記了。 通過這次的“學校學生學籍管理信息系統(tǒng)”的系統(tǒng)設(shè)計，我們知道了做這樣 的一個設(shè)計的思路，應(yīng)該從什么地方著手。其功能基本符合用戶需求，能夠完成學生學籍的存儲和成績的查詢以及各類相關(guān)信息的使用。 整個系統(tǒng)從符合操作簡便、界面友好、靈活、實用、安全的要求出發(fā)。具有著手工管理所無法比擬的優(yōu)點，例如：檢查迅速，查找方便，可靠性大，存儲量大，保密性好，壽命長，成本低等。如果不為空，定位到選定的記錄 = (0).Value = (1).Value 39。 sql1, db, adOpenStatic, adLockReadOnly If = 0 Then MsgBox 表內(nèi)無記錄 39。 kl amp。Persist Security Info=False 35 sql = select * from 學生檔案表 sql, db, adOpenStatic, adLockReadOnly sql1 = select * from 學生檔案表 where 姓名 =39。 檔案查詢界面代碼 Private Sub Command1_Click() Dim kl As String Dim db As New Dim rs As New Dim sql As String Dim rs1 As New Dim sql1 As String kl = = Provider=。初始化 MSHFlexGrid1 With MSHFlexGrid1 .Cols = 7 .TextMatrix(0, 1) = 班級 .TextMatrix(0, 2) = 姓 名 .TextMatrix(0, 3) = 計算機組成原理 .TextMatrix(0, 4) = 計算機應(yīng)用 .TextMatrix(0, 5) = 管理信息系統(tǒng) .TextMatrix(0, 6) = 辦公軟件 .FixedRows = 1 Dim i As Integer For i = 1 To 6 .ColAlignment(i) = 0 Next i .FillStyle = flexFillSingle .Col = 0 .Row = 0 .RowSel = 1 .ColSel = .Cols 1 第四章 系統(tǒng)實現(xiàn) 34 .CellAlignment = 4 .Row = 1 End With End Sub Public Sub showdata(ByVal MSF As MSHFlexGrid, ByVal sql As String) 39。 .\39。 amp。 amp。 39。 amp。 39。 amp。對 MSHFlexGrid1 控件錄入數(shù)據(jù)信息 Dim i As Integer sql, n, , , adCmdText With MSF .Rows = 10 .Row = 1 Do While Not .Rows = .Rows + 1 For i = 1 To .TextMatrix(.Row, i) = (i 1) Next i 第四章 系統(tǒng)實現(xiàn) 32 .Row = .Row + 1 Loop .Refresh End With End Sub Private Sub Form_Unload(Cancel As Integer) Unload Me End Sub 普通用戶學生成績查詢窗口 普通用戶根據(jù)需要選擇所要查詢的對象，單擊“確定”按鈕查詢成功。 strn Set rs = New = adOpenKeyset = adLockOptimistic End Sub Public Sub showtitle() 39。 amp。 _ 31 Data Source=39。 End If str, n, , , adCmdText If = 0 Then MsgBox 該學生不存在，請重新輸入查詢條件！ , , 錯誤 = Else MSHFlexGrid1, str End If End Sub Private Sub Command2_Click() = False = End Sub Private Sub Command3_Click() Hide 信息管理 .Show End Sub Private Sub Form_Load() 學號 性別 = False Set n = New strn = Provider=。 x2 amp。 Else str = select * from 學生信息表 where 性別 =39。 x2 amp。 Option Explicit Dim i As Integer, j As Integer 第四章 系統(tǒng)實現(xiàn) 30 Private n As New Private rs As New Dim strn Dim x1 As String, x2 As String, str As String Private Sub Combo1_Click() = End Sub Private Sub Command1_Click() x1 = Trim() x2 = Trim() If StrComp(x1, 學號 ) = 0 Then str = select * from 學生信息表 where 學號 =39。普通用戶根據(jù)需要對所需的信息進行查詢。如果不為空，定位到選定的記錄 = (0).Value = (1).Value 39。 sql1, db, adOpenStatic, adLockReadOnly If = 0 Then MsgBox 表內(nèi)無記錄 39。 kl amp。Persist Security Info=False sql = select * from 學生檔案表 sql, db, adOpenStatic, adLockReadOnly sql1 = select * from 學生檔案表 where 學號 =39。 Private Sub Command1_Click() Dim kl As String Dim db As New Dim rs As New Dim sql As String Dim rs1 As New Dim sql1 As String kl = = Provider=。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 strn Set rs = New = adOpenKeyset = adLockOptimistic End Sub Private Sub Form_Unload(Cancel As Integer) 39。 amp。 _ Data Source=39。 x6 response = MsgBox(str1, vbYesNo, 數(shù)據(jù)校驗 ) If response = 6 Then inputBase End If = = = = = = End Sub Private Sub Command4_Click() 27 Hide 信息管理 .Show End Sub Private Sub Form_Load() Set n = New strn = Provider=。 x5 amp。 x4 amp。 x3 amp。 x2 amp。 x1 amp。對 MSHFlexGrid1 控件錄入數(shù)據(jù)信息 Dim i As Integer sql, n, , , adCmdText With MSF .Rows = 10 .Row = 1 Do While Not .Rows = .Rows + 1 For i = 1 To .TextMatrix(.Row, i) = (i 1) Next i .Row = .Row + 1 Loop .Refresh End With 第四章 系統(tǒng)實現(xiàn) 26 End Sub Private Sub Form_Unload(Cancel As Integer) Unload Me End Sub 添加學生成績窗口 管理員在空白欄中正確輸入所要添加的信息，單擊“添加”按鈕即可添加成功。 strn Set rs = New = adOpenKeyset = adLockOptimistic End Sub 25 Public Sub showtitle() 39。 amp。 _ Data Source=39。 End If str, n, , , adCmdText If = 0 Then MsgBox 該學生不存在，請重新輸入查詢條件！ , , 錯誤 = Else MSHFlexGrid1, str End If End Sub Private Sub Command2_Click() = End Sub Private Sub Command3_Click() Hide 信息管理 .Show End Sub Private Sub Form_Load() 班級 姓名 Set n = New strn = Provider=。 x2 amp。 Else str = select * from 學生成績表 where 姓名 =39。 x2 amp。 Option Explicit Dim i As Integer, j As Integer Private