【正文】 = delete from 學生成績表 str 學生成績表 backup, n, , , adCmdTable While Not 班級 = Trim(rs!班級 ) 姓名 = Trim(rs!姓名 ) 計算機 = rs(rs!計算機 ) 英語 = rs!英語 管理 = rs!管理 辦公軟件 = rs!辦公軟件話 str = insert into 學生成績表 values(39。 班級 amp。,39。 姓名 amp。,39。 計算機 amp。,39。 英語 amp。,39。 管理 amp。,39。 辦公軟件 amp。) str Wend End Sub Private Sub inputBase() str = select * from 學生成績表 where 班級 =39。 x1 amp。 str, n, , , adCmdText If = 0 Then 學生成績表 , n, , , adCmdTable If 0 Then End If 第四章 系統(tǒng)實現(xiàn) 28 rs!班級 = x1 rs!姓名 = x2 rs!計算機 = x3 rs!英語 = x4 rs!管理 = x5 rs!辦公軟件 = x6 MsgBox 該記錄成功錄入數(shù)據(jù)庫！ , , 成功 Else MsgBox 該人已有數(shù)據(jù)！回車后重輸 , , 錯誤 End If End Sub 管理員根據(jù)需要選擇所要查詢的對象，單擊“查詢”按鈕即可查詢成功。Data Source=E:\zlf\。 amp。 39。如果為空，彈出對話框 Else 39。顯示相應字段的內(nèi)容 = (2).Value = (3).Value = (4).Value = (5).Value 29 = (6).Value = (7).Value = (8).Value = (9).Value = (10).Value = (11).Value = (12).Value MsgBox (查詢成功 ) End If End Sub Private Sub Command2_Click() Unload Me End Sub 普通用戶學生學籍管理窗口 普通用戶學生學籍管理包括“學生學籍信息管理、學生學籍成績管理、學生學籍檔案管理”的查詢。 Private Sub Command1_Click() Hide 登錄界面 .Show End Sub Private Sub 學生成績查詢 _Click() Hide 查詢學生成績 End Sub Private Sub 學生檔案查詢 _Click() Hide 查詢學生檔案 End Sub Private Sub 學生信息查詢 _Click() Hide 查詢學生信息 End Sub 普通用戶學生信息查詢窗口 普通用戶根據(jù)需要選擇所要查詢的對象，單擊“確定”按鈕查詢成功。 amp。 39。 amp。 39。 amp。 amp。 .\39。初始化 MSHFlexGrid1 With MSHFlexGrid1 .Cols = 7 .TextMatrix(0, 1) = 學號 .TextMatrix(0, 2) = 姓 名 .TextMatrix(0, 3) = 性別 .TextMatrix(0, 4) = 出生年月 .TextMatrix(0, 5) = 家庭住址 .TextMatrix(0, 6) = 聯(lián)系電話 .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 .CellAlignment = 4 .Row = 1 End With End Sub Public Sub showdata(ByVal MSF As MSHFlexGrid, ByVal sql As String) 39。 Option Explicit Dim i As Integer, j As Integer 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。 x2 amp。 Else str = select * from 學生成績表 where 姓名 =39。 x2 amp。 End If str, n, , , adCmdText If = 0 Then MsgBox 該學生不存在，請重新輸入查詢條件！ , , 錯誤 = Else 33 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=。 _ Data Source=39。 amp。 strn Set rs = New = adOpenKeyset = adLockOptimistic End Sub Public Sub showtitle() 39。對 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 End Sub Private Sub Form_Unload(Cancel As Integer) Unload Me End Sub 通用戶學生檔案查詢窗口 普通用戶根據(jù)需要選擇所要查詢的對象，單擊“確定”按鈕查詢成功。Data Source=E:\zlf\。 amp。 39。如果為空，彈出對話框 Else 39。顯示相應字段的內(nèi)容 = (2).Value = (3).Value = (4).Value = (5).Value = (6).Value = (7).Value = (8).Value = (9).Value = (10).Value = (11).Value = (12).Value MsgBox (查詢成功 ) End If End Sub Private Sub Command2_Click() 普通用戶學生檔案查詢窗口 .Hide End Sub 4． 2 數(shù)據(jù)源（ Access） 表 41 學生信息表 學號 姓名 性別 出生年月 家庭住址 聯(lián)系電話 備注 0801 劉玲 女 87710 四川江油太白路 42號 3257423 0802 周麗芳 女 85330 云南省昆明市春熙路 08717947366 0803 曾楨 男 86520 四川江油太白西路 23號 3256897 0804 封曉麗 女 86823 四川江油人民路 15號 3652417 0805 劉軍成 男 84521 四川江油太白路 13號 3265418 0806 陳翠 女 85320 四川江油人民路 76號 3741562 第四章 系統(tǒng)實現(xiàn) 36 表 42 學生成績表 表 43 學生檔案表 班級 姓名 計算機 英語 管理 辦公軟 件 0422 劉玲 84 83 74 87 0422 周麗芳 86 74 82 81 0422 曾楨 76 73 80 86 0422 封曉麗 87 71 48 80 0422 劉軍成 85 85 74 68 0422 陳翠 76 76 86 86 班級 姓名 性別 籍貫 獎懲情況 備注 0422 劉玲 女 四川江油 優(yōu)秀學生 0422 周麗芳 女 云南省昆明 優(yōu)秀學生干部 0422 曾楨 男 四川江油 優(yōu)秀團員 0422 封曉麗 女 四 川江油 優(yōu)秀學生 0422 劉軍成 男 四川江油 無 0422 陳翠 女 四川江油 無 37 第五章 系統(tǒng)評價 系統(tǒng)的評價 作為計算機應用的一部分，使計算機對學生學籍信息進行管理，形成一個人機管理信息系統(tǒng)。這些優(yōu)點能夠極大的提高學生學籍管理信息系統(tǒng)的效率。 系統(tǒng)設(shè)計心得收獲與結(jié)論 經(jīng)過 1 周的設(shè)計和開發(fā)，學生學籍檔案信 息 管理 系統(tǒng)基本開發(fā)完畢。并提供部分系統(tǒng)維護功能，使用戶方便進行數(shù)據(jù)添加、數(shù)據(jù)查詢、對于數(shù)據(jù)的一致性的問題也通過程序進行了有效的解決。也讓我們鞏固了以前所學的知識。我想這就是所說的成就感吧！我們所做的設(shè)計 “學校學生學籍管理信息系統(tǒng)”是集聚了全組每一位設(shè)計成員的心思。在系統(tǒng)的設(shè)計過程中，我們也遇到了一些困難和迷惑。 這次我們不但收 獲了我們努力的成果 —— “學校學生學籍管理信息系統(tǒng)”，我們還從中充分感受到了團隊合作的高效性。這對于我們在以后的發(fā)展中具有深遠的影響 。老師 認真負責 的工作態(tài)度，嚴謹?shù)闹螌W精神和深厚的理論水平都使我們受益匪淺。這對于我們以后的工作和學習都是一種意義深遠的幫助，感謝他耐心的輔導，才使得我們的系統(tǒng)設(shè)計能夠順利