Access應用小技巧

　　摘 要： 我們利用Access編寫出題系統，可以讓計算機安全保存所有試題，進行快速提取，實現試卷制作的系統化、規范化，它屬于典型的信息管理系統（MIS）。整個出題程序由Access數據庫配合Visual Basic即可完成，代碼量小，后期大量的工作，可以用在豐富試題數量上，操作簡單，易于使用。
　　關鍵詞： AccessVisual Basic 出題系統 應用技巧
　　
　　該出題系統可以運行于Windows平臺，利用Access配合Visual Basic語言開發，結構簡單、代碼量小。
　　整個出題系統存儲文件單一，一個Access數據庫就是一個.mdb文件，包含一系列數據表、查詢、窗體、模塊和宏等。
　　1.系統結構
　　本試題提取系統包括錄入系統、提取系統等，提供題庫制作和試題的隨機提取等功能。
　?。?）錄入系統
　　該窗體的功能在試卷提取之前使用，屬于系統維護階段重要的窗體，它可以對總題庫中的試題進行增加、刪除、修改和查找等操作，主要在以后的教學中用來更新試題。
　?。?）提取系統
　　該窗體的功能是根據教師的需要，設置需要提取的試題數目、難度、范圍和科目等，并產生成套的試題，實現與Word等軟件的連接，打印試卷等。
　　2.部分程序代碼：
　?。?）移動記錄指針
　　Private Sub TopRec_Click（ ）
　　 On Error GoTo Err_TopRec_Click
　　 DoCmd.GoToRecord， ， acFirst
　　 N = 0
　　 For I = 1 To Len（Me.TiMu.Value）
　　 If Mid＄（Me.TiMu.Value， I， 2） = vbCrLf Then
　　N = N + 1
　　 End If
　　 Next
　　 Me.Text34.Caption = Str（N - 1）
　　 Call Star（Me.Name）
　　 Exit_TopRec_Click:
　　 Exit Sub
　　Err_TopRec_Click:
　　 MsgBox Err.Description
　　 Resume Exit_TopRec_Click
　　End Sub
　　（2）產生試題
　　Randomize ?謖隨機抽取試題
　　?謖 填空
　　For I = 0 To a1 - 1
　　 A（I） = Int（Rnd（） * 394 + 1）
　　Next
　　For I = 0 To a1 - 2 ?謖禁止出現相同題
　　 Forj = I + 1 To a1 - 1
　　 If A（I） = A（j） Then
　　A（j） = Int（Rnd（） * 394 + 1）
　　 I = 0
　　 j = I + 1
　　End If
　　Next
　　Next
　　MsgBox CStr（a）
　　Dim aa As Object
　　dbs.Close
　　For I = 0 To a1 - 1 ?謖向題庫中添加數據——填空題
　　 dbs.Execute （"Insert into Temp select TianKong.* from TianKong Where ID=" & A（I））
　　Next
　?。?）產生報表
　　If Val（Forms!［shijuantiqu］.［Text81］.Value） = 0 Or Val（Forms!［shijuantiqu］.［Text83］.Value） = 0 Or Val（Forms!［shijuantiqu］.［Text84］.Value） = 0 Or Val（Forms!［shijuantiqu］.［Text85］.Value） = 0 Or Val（Forms!［shijuantiqu］.［Text86］.Value） = 0 Then
　　M = MsgBox（"題型及題數設置有錯，試卷不能正確提?。?， vbCritical + vbOKOnly， "錯誤提示..."）
　　Forms!［shijuantiqu］.［Text81］.SetFocus
　　Else
　　DoCmd.RunMacro "OutPutInt"
　　End If
　　經過這樣的初步設計，試卷提取系統基本能滿足日常教學的需要，可以完成試題的錄入、存儲、查詢、報表的打印等。這個小系統的完成，很大程度上減輕了自己的工作強度，在系統制作過程中，也讓我學到了不少東西。例如數據庫的發展歷史和現狀，同時也讓我深刻體會到軟件的開發不是一件容易的事情，需要設計者具備全面的知識，縝密的思維，嚴謹的工作態度和較強的分析能力。
　　由于時間短暫，該系統有很多不完美的地方，比如沒有聯機幫助文檔，界面友好度不夠，查詢功能較弱等。這些都有待完善，希望在以后的教學中能逐步修補改善。
　　 注：“本文中所涉及到的圖表、公式、注解等請以PDF格式閱讀”