【正文】 TION 的execute 方法 ,結(jié)果很類似。其功能基本符合用戶需求，能夠完成教師課程的存儲和排課的查詢以及各類相關(guān)報(bào)表的打印。對于數(shù)據(jù)的一致性的問題也通過程序進(jìn)行了有效的解決。這些都有待進(jìn)一步改善。朱老師的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的 理論水平都使我非常的感動。 參考文獻(xiàn) ： 正在輸入（網(wǎng) laoshutou）為您傾心整理（下載后雙擊刪除） 如有需求請發(fā)站內(nèi)信（下載后雙擊刪除） 軟件系統(tǒng)開發(fā)技術(shù) 潘錦平 西安電子科技大學(xué)出版社 《軟件工程導(dǎo)論》 清華大學(xué)出版社 《 Visual Basic 數(shù)據(jù)庫實(shí)用程序設(shè)計(jì) 100 例》 段興 人民郵電出版社 《 Visual Basic 編程方法詳解》 李鴻吉 科學(xué)教育出版社 《數(shù)據(jù)庫系統(tǒng)概論》 薩師煊 高等教育出版社 《 Visual Basic 程序設(shè)計(jì)教程》 劉炳文 清華大學(xué)出版社 源代碼 : 進(jìn)入界面 Option Explicit Dim strRun As String Dim iTp As Integer Private Sub Command1_Click() = 11 = True strRun = LTrim$(RTrim$()) Select Case strRun Case (0): Case (1): Case (2): Case (3): Case (4): Case (5): Case Else: MsgBox 請選擇一正確的操作 項(xiàng) , vbInformation + vbOKOnly, 操作 End Select End Sub 正在輸入（網(wǎng) laoshutou）為您傾心整理（下載后雙擊刪除） 如有需求請發(fā)站內(nèi)信（下載后雙擊刪除） Private Sub Command2_Click() End Sub Private Sub Form_Load() 教職員入庫信息 排課管理 教職員帶課查詢 本學(xué)期課程設(shè)置 打印課程表 打印教師代課表 End Sub Private Sub Form_Unload(Cancel As Integer) iTp = MsgBox(你確定要退出本系統(tǒng) , vbYesNo + vbQuestion, 退出 ) If iTp = vbNo Then Cancel = 1 End If If Cancel = 0 Then End End If End Sub Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single) End Sub Private Sub Timer1_Timer() = False = 0 End Sub 進(jìn)啟動界面 Option Explicit Private Sub Form_Load() = 11 Dim X, Y As Integer = LoadPicture( + \) 正在輸入（網(wǎng) laoshutou）為您傾心整理（下載后雙擊刪除） 如有需求請發(fā)站內(nèi)信（下載后雙擊刪除） = = X = ( ) / 2 Y = ( ) / 2 = X = Y = True 39。 End Sub Private Sub ImgBg_Click() End Sub Private Sub Timer1_Timer() Unload Me Beep End Sub 教員入庫 Dim con As Dim rs As Dim qrs As Dim slSql As String Dim i, j As Integer Dim strBak(2) As String Dim sqlStr As String Private Sub Command1_Click(Index As Integer) On Error GoTo Err: Dim As Integer For = 0 To 2 Text1().Text = Next 正在輸入（網(wǎng) laoshutou）為您傾心整理（下載后雙擊刪除） 如有需求請發(fā)站內(nèi)信（下載后雙擊刪除） If 0 Then Select Case Index Case 0: Case 1: Command1(2).Enabled = True Command1(3).Enabled = True Case 2: Command1(0).Enabled = True Command1(1).Enabled = True Case 3: End Select displayInfo End If GoTo ok: Err: Call dataOver ok: End Sub Private Sub dataOver() If Then Command1(0).Enabled = False Command1(1).Enabled = False Command1(2).Enabled = True Command1(3).Enabled = True Else If Then Command1(0).Enabled = True Command1(1).Enabled = True Command1(2).Enabled = False Command1(3).Enabled = False 正在輸入（網(wǎng) laoshutou）為您傾心整理（下載后雙擊刪除） 如有需求請發(fā)站內(nèi)信（下載后雙擊刪除） Else MsgBox Database Error, vbExclamation + vbOKOnly, Error unknown End If End If End Sub Private Sub Command2_Click(Index As Integer) On Error GoTo errDeal If Index = 0 Or Index = 2 Then CanSave (True) Else CanSave (False) End If Select Case Index Case 0: Call toNull Case 1: j = MsgBox(你確定要刪除本記錄嗎？ , vbYesNo + vbQuestion, 刪除 ) If j = vbYes Then Call toNull End If Case 2: Case 3: If Len(LTrim$(RTrim$(Text1(0).Text))) 0 Then 39。okEnd: End Sub Private Sub CanSave(ok As Boolean) = Not ok = ok For i = 0 To 4 If i 3 Then Command2(i).Enabled = Not ok Else Command2(i).Enabled = ok End If Next i End Sub Private Sub Form_Load() Dim t As Integer Set con = New Set rs = New Set qrs = New 39。Persist Security Info=False。 data source= amp。 \ select * from teacher, con, adOpenStatic, adLockOptimistic If 0 Then 正在輸入（網(wǎng) laoshutou）為您傾心整理（下載后雙擊刪除） 如有需求請發(fā)站內(nèi)信（下載后雙擊刪除） displayInfo CanSave (False) Else 39。Text1(i).Text = If Len((i)) 0 Then Text1(i).Text = (i) strBak(i) = Text1(i).Text End If Next i End Sub Private Sub toNull() For i = 0 To 2 Text1(i).Text = strBak(i) = Next i End Sub Private Sub Form_Unload(Cancel As Integer) On Error GoTo KK Set rs = Nothing Set qrs = noting Set con = Nothing 正在輸入（網(wǎng) laoshutou）為您傾心整理（下載后雙擊刪除） 如有需求請發(fā)站內(nèi)信（下載后雙擊刪除） KK: End Sub Private Sub queryComm_Click() slSql = select * from Teacher where cTrname = 39。 slSql, con, adOpenStatic If Not Then i = j = 0 For i = 0 To 2 39。對于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫。經(jīng)過分析 ,我們使用 MICROSOFT公司的 VISUAL BASIC開發(fā)工具 ,利用其提供的各種面向?qū)ο蟮拈_發(fā)工具 ,尤其是數(shù)據(jù)窗口這一能方便而簡潔操縱數(shù)據(jù)庫的智能化對象 ,首先在短時(shí)間內(nèi)建立系統(tǒng)應(yīng)用原型 ,然后 ,對初始原型系統(tǒng)進(jìn)行需求迭代 ,不斷修正和改進(jìn) ,直到形成用戶滿意的可行系統(tǒng)。 ABSTRACT The system of managing student file is a typical application of managing information system （ know as MIS） ,which mainly includes building up database of backend and developing the application interface of frontend. The former required consistency and integrality and security of data. The later should make the application powerful and easily looking up lots of datum, we selected Visual Basic presented by Microsoft because of its objective tools in Win32. VB offered a series of ActiveX operating a database. It can give you a shortcut to build up a prototype of system application. The prototype could be modified and developed till users are satisfied with : ActiveX , Form , Field . 正在輸入（網(wǎng) laoshutou）為您