- 相關(guān)推薦
VB+教學(xué)輔助系統(一)
摘 要
20世紀以來(lái)，社會(huì )生產(chǎn)力迅速發(fā)展，科學(xué)技術(shù)突飛猛進(jìn)，人們進(jìn)行信息交流的深度與廣度不斷增加，信息量急劇增長(cháng)，傳統的信息處理與決策的手段已不能適應社會(huì )的需要，信息的重要性和信息處理問(wèn)題的緊迫性空前提高了，面對著(zhù)日益復雜和不斷發(fā)展，變化的社會(huì )環(huán)境，特別是企業(yè)間日趨劇烈的競爭形勢，一個(gè)人、一個(gè)企業(yè)要在現代社會(huì )中求生存，求發(fā)展，必須具備足夠的信息和強有力的信息收集與處理手段。
對于學(xué)校教師來(lái)來(lái)說(shuō)，大量教師教學(xué)課程若可以利用計算機技術(shù)將平時(shí)教學(xué)的內容結合信息技術(shù)的方便快捷性,將大大提高工作效率提高學(xué)生學(xué)習積極性.同樣教學(xué)水平的信息話(huà)也是衡量一個(gè)社會(huì )進(jìn)步也否的重要指標.這就迫切需要利用計算機技術(shù)來(lái)幫助學(xué)校管理者來(lái)處理教師日常教學(xué)信息的信息化管理.教學(xué)輔助系統是管理信息系統的一個(gè)典型用例.
管理信息系統是一個(gè)集信息技術(shù)、經(jīng)濟管理理論、統計學(xué)與運籌學(xué)、數據庫技術(shù)為一體的綜合性系統，是一個(gè)資金技術(shù)密集型、勞動(dòng)密集型、智力密集型的項目。我國擁有廣闊的市場(chǎng)和豐富的人才資源，有幾十年的技術(shù)積累和經(jīng)驗積累，有一定的后發(fā)優(yōu)勢。管理信息系統的創(chuàng )新工作既不能妄自菲薄，更不能夜郎自大。要抓住當前網(wǎng)絡(luò )經(jīng)濟興起的有利時(shí)機，以實(shí)現我國信息技術(shù)和信息產(chǎn)業(yè)的跨越式發(fā)展，更好地發(fā)揮信息產(chǎn)業(yè)對國民經(jīng)濟增長(cháng)的拉動(dòng)作用。
開(kāi)發(fā)學(xué)校教師管理系統的過(guò)程就是要實(shí)現數據處理方式由人工管理向計算機管理的轉變，它在計算機技術(shù)和教師管理實(shí)踐活動(dòng)兩者之間架設橋梁。
關(guān)鍵字:教學(xué)輔助系統,管理信息系統,數據庫,計算機管理
引言
對于學(xué)校教師來(lái)來(lái)說(shuō)，大量教師教學(xué)課程若可以利用計算機技術(shù)將平時(shí)教學(xué)的內容結合信息技術(shù)的方便快捷性,將大大提高工作效率提高學(xué)生學(xué)習積極性.
1.1背景
1.1.1教學(xué)輔助系統
如今隨著(zhù)教育事業(yè)的發(fā)展,教師教學(xué)內容的增多,如何才能讓教師減少壓力,同時(shí)又增加學(xué)生的學(xué)習積極性,我們想到了教學(xué)輔助系統,采用本系統,教師可以將講課內容輸入系統,采用計算機處理的方式,讓學(xué)生自主的學(xué)習.
1.2 開(kāi)發(fā)教學(xué)輔助系統的目的與原則
本教學(xué)輔助系統的主要目的是服務(wù)與中小學(xué),各高校的教師,方便其講課,其原則是做到,界面友好人性,操作簡(jiǎn)單,可靠.
1.3開(kāi)發(fā)環(huán)境介紹
1.3.1開(kāi)發(fā)平臺
本教師管理系統的開(kāi)發(fā)平臺為微軟windows xp visual basic 6.0 以及微軟的Access作為操作數據庫.
數據庫設計工具——ACCESS數據庫管理系統
Microsoft Access介紹:
使用 Microsoft Access，可以在單一的數據庫文件中管理所有的信息。在這個(gè)文件中，用戶(hù)可以將自己的數據分別保存在各自獨立的存儲空間中，這些空間稱(chēng)作表；可以使用聯(lián)機窗體來(lái)查看、添加及更新表中的數據；使用查詢(xún)來(lái)查找并檢索所要的數據；也可以使用報表以特定的版面布置來(lái)分析及打印數據。 如果要保存數據，請為每一種類(lèi)型的信息創(chuàng )建一個(gè)表。如果要從查詢(xún)、窗體或報表中的多個(gè)表中將數據合并在一起，就要定義各個(gè)表之間的關(guān)系。 如果要搜索并檢索符合指定條件的數據，包括來(lái)自多個(gè)表中的數據，就要創(chuàng )建查詢(xún)。查詢(xún)的同時(shí)也可以更新或刪除多條記錄，并對數據執行內嵌或自定義的計算。 如果要簡(jiǎn)單地直接在某個(gè)表中查看、輸入及更改數據，請創(chuàng )建一個(gè)窗體。在打開(kāi)一個(gè)窗體時(shí)，Microsoft Access 將從一個(gè)或多個(gè)表中檢索數據，并使用用戶(hù)在“窗體向導”選擇的版面布局或所創(chuàng )建的版面布局，將窗體顯示在屏幕上。 如果要分析數據或將數據以特定的方式打印出來(lái)，請創(chuàng )建一個(gè)報表。例如，可以打印一份將數據分組并計算數據總和的報表，也可以打印另一份帶有各種數據格式的打印郵件標簽的報表。
系統設計
2.1 系統分析
本教學(xué)輔助系統采用計算機專(zhuān)業(yè)的VB課程為內容主要由以下幾大模塊構成.
vb基礎(vb概述,窗口控件和菜單,工程的管理,開(kāi)發(fā)應用程序)
語(yǔ)言參考(關(guān)鍵字,函數,數據類(lèi)型,偽指令,運算符)
API函數
經(jīng)典事例
2.2 系統流程和操作方式設計
系統界面設計
3.1系統界面設計
主界面設計
代碼設計:
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private BigStyle As String
Private SmallStyle As String
Private RTB1_BackCorlor As Integer
Private AddCode As Boolean
Private EditCode As Boolean
Dim Temptitle As String
Private Sub Cmdcancel_Click()
RTB1.BackColor = GetSetting(App.EXEName, "Corlor", "BackCorlor", RTB1.BackColor)
Frame5.Visible = False: Frame6.Visible = False: TreeView1.Visible = True
RTB1.Locked = True
EditCode = False
AddCode = False
Toolbar1.Buttons(7).Image = 5: Toolbar1.Buttons(8).Image = 6
Toolbar1.Buttons(7).Caption = "全選": Toolbar1.Buttons(8).Caption = "復制"
Toolbar1.Buttons(7).Tag = "Tool_SelAll": Toolbar1.Buttons(8).Tag = "Tool_Copy"
Menu_Plaste.Enabled = False: Menu_Clear.Enabled = False
End Sub
Private Sub Cmdfix_Click()
Frame5.Visible = False: Frame6.Visible = False: TreeView1.Visible = True
Dim adoprimaryrs As New ADODB.Recordset
If Cbostyle.Text = "" Then
MsgBox "類(lèi)別不能為空", vbCritical + vbApplicationModal, "錯誤"
Exit Sub
End If
If TxTTitle.Text = "" Then
MsgBox "標題不能為空", vbCritical + vbApplicationModal, "錯誤"
Exit Sub
End If
If RTB1.Text = "" Then
MsgBox "內容不能為空", vbCritical + vbApplicationModal, "錯誤"
Exit Sub
End If
Select Case True
Case AddCode
i = ExistRecord("code", "標題", Trim(TxTTitle.Text))
If i Then
MsgBox "該代碼標題已存在，請重新修改代碼標題", vbCritical + vbApplicationModal, "錯誤"
TxTTitle.SelStart = 0
TxTTitle.SelLength = Len(Trim(TxTTitle.Text))
Exit Sub
End If
Case EditCode
Dim adoprimarycmd As New ADODB.Command
adoprimarycmd.ActiveConnection = StrConnect
adoprimarycmd.CommandText = "delete * from code where 標題='" & Trim(Temptitle) & "'"
adoprimarycmd.Execute
Set adoprimarycmd = Nothing
End Select
adoprimaryrs.CursorLocation = adUseClient
adoprimaryrs.Open "select * from code", StrConnect, adOpenKeyset, adLockOptimistic, adCmdText
adoprimaryrs.MoveLast
adoprimaryrs.AddNew
adoprimaryrs.Fields("大類(lèi)別") = Trim(BigStyle)
adoprimaryrs.Fields("小類(lèi)別") = Trim(Cbostyle)
adoprimaryrs.Fields("標題") = Trim(TxTTitle)
adoprimaryrs.Fields("內容") = RTB1.Text
adoprimaryrs.Update
Set adoprimaryrs = Nothing
RTB1.BackColor = GetSetting(App.EXEName, "Corlor", "BackCorlor", RTB1.BackColor)
Call ShowTree(BigStyle)
RTB1.Locked = True
EditCode = False
AddCode = False
Toolbar1.Buttons(7).Image = 5: Toolbar1.Buttons(8).Image = 6
Toolbar1.Buttons(7).Caption = "全選": Toolbar1.Buttons(8).Caption = "復制"
Toolbar1.Buttons(7).Tag = "Tool_SelAll": Toolbar1.Buttons(8).Tag = "Tool_Copy"
Menu_Plaste.Enabled = False: Menu_Clear.Enabled = False
RTB1.Font.Size = GetSetting(App.EXEName, "Font", "FontSize", RTB1.Font.Size)
RTB1.BackColor = GetSetting(App.EXEName, "Corlor", "BackCorlor", RTB1.BackColor)
End Sub
'Private Sub Command1_Click()
'Dim str As String: Dim rst1 As New ADODB.Recordset: Dim rst2 As New ADODB.Recordset
'str = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data\WinApi.mdb;"
'rst1.Open "select * from winfun", str, adOpenKeyset, adLockOptimistic
'rst2.Open "select * from funclass", str, adOpenKeyset, adLockOptimistic
'rst1.MoveFirst
'For i = 1 To rst1.RecordCount
' rst1.Fields("聲明") = GetFthFld2("funclass", "name", rst1.Fields("函數"), "fullname")
' rst2.Update
' rst1.MoveNext
'Next
'End Sub
Private Sub Form_Load()
Me.Top = 0: Me.Left = 0
Frame5.Visible = False: Frame6.Visible = False: TreeView1.Visible = True
StatusBar1.Panels(1).Text = " " & Format(Date, "long date") & " " & Time & " "
RTB1.FileName = App.Path & "\data\about.dat"
RTB1.Font.Size = GetSetting(App.EXEName, "Font", "FontSize", RTB1.Font.Size)
RTB1.BackColor = GetSetting(App.EXEName, "Corlor", "BackCorlor", RTB1.BackColor)
StrConnect = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data\VB.mdb;"
StrTempConnect = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data\winapi.mdb;"
BigStyle = "VB基礎"
Call ShowTree(BigStyle)
End Sub
Private Sub ShowTree(ByVal TempBigStyle As String)
Dim nodex As Node
Dim nodey As Node
Dim adoprimaryrs1 As New ADODB.Recordset
Dim adoprimaryrs2 As New ADODB.Recordset
a = "aa"
b = "bb"
c = "cc"
If TempBigStyle = "API函數" Then
'*************************************************
adoprimaryrs1.CursorLocation = adUseClient
adoprimaryrs1.Open "select 函數 from winfun order by 函數", StrTempConnect, adOpenForwardOnly, adLockReadOnly, adCmdText
'*************************************************
TreeView1.LineStyle = tvwRootLines
TreeView1.Nodes.Clear
Set nodex = TreeView1.Nodes.Add(, , a, TempBigStyle, 2, 1)
If adoprimaryrs1.RecordCount <> 0 Then
adoprimaryrs1.MoveFirst
Else
Exit Sub
End If
Do Until adoprimaryrs1.EOF
TempSmallStyle = adoprimaryrs1.Fields("函數").Value
Set nodey = TreeView1.Nodes.Add(a, tvwChild, b, TempSmallStyle, 3, 3)
b = b + "1"
adoprimaryrs1.MoveNext
Loop
adoprimaryrs1.Close
Set adoprimaryrs1 = Nothing
Else
'*************************************************
adoprimaryrs1.CursorLocation = adUseClient
adoprimaryrs2.CursorLocation = adUseClient
adoprimaryrs1.Open "select distinct 小類(lèi)別 from Code where 大類(lèi)別='" & TempBigStyle & "'", StrConnect, adOpenForwardOnly, adLockReadOnly, adCmdText
'*************************************************
TreeView1.LineStyle = tvwRootLines
TreeView1.Nodes.Clear
Set nodex = TreeView1.Nodes.Add(, , a, TempBigStyle, 2, 1)
If adoprimaryrs1.RecordCount <> 0 Then
adoprimaryrs1.MoveFirst
Else
Exit Sub
End If
Do Until adoprimaryrs1.EOF
TempSmallStyle = adoprimaryrs1.Fields("小類(lèi)別").Value
Set nodey = TreeView1.Nodes.Add(a, tvwChild, b, TempSmallStyle, 3, 3)
If adoprimaryrs2.State = 1 Then
adoprimaryrs2.Close
End If
adoprimaryrs2.Open "select 標題 from Code where 大類(lèi)別='" & TempBigStyle & "' and 小類(lèi)別='" & TempSmallStyle & "'", StrConnect, adOpenForwardOnly, adLockReadOnly, adCmdText
If adoprimaryrs2.RecordCount <> 0 Then
adoprimaryrs2.MoveFirst
End If
Do Until adoprimaryrs2.EOF
Set nodey = TreeView1.Nodes.Add(b, tvwChild, c, adoprimaryrs2.Fields("標題"), 4, 4)
c = c + "1"
adoprimaryrs2.MoveNext
Loop
b = b + "1"
adoprimaryrs1.MoveNext
Loop
adoprimaryrs1.Close
adoprimaryrs2.Close
Set adoprimaryrs1 = Nothing
Set adoprimaryrs2 = Nothing
End If
TreeView1.Nodes(1).Expanded = True
End Sub
Private Sub Form_Resize()
If Me.WindowState = maximized Then
Me.Width = 12000
Me.Height = 9000
End If
End Sub
Private Sub Menu_BackCorlor_Click()
CommonDialogCorlor.ShowColor
RTB1.BackColor = CommonDialogCorlor.Color
SaveSetting App.EXEName, "Corlor", "BackCorlor", RTB1.BackColor
End Sub
Private Sub Menu_Clear_Click()
SendKeys "{del}"
End Sub
Private Sub Menu_Plaste_Click()
SendKeys "^V"
End Sub
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
Temptitle = TreeView1.Nodes.Item(TreeView1.SelectedItem.Index)
If BigStyle = "API函數" Then
RTB1.Text = "別名：" & GetFthFld22("winfun", "函數", Trim(Temptitle), "別名") & Chr(10) & Chr(13)
RTB1.Text = RTB1.Text & "庫名：" & GetFthFld22("winfun", "函數", Trim(Temptitle), "庫名") & Chr(10) & Chr(13)
RTB1.Text = RTB1.Text & "聲明：" & GetFthFld22("winfun", "函數", Trim(Temptitle), "聲明") & Chr(10) & Chr(13)
RTB1.Text = RTB1.Text & "參數表：" & GetFthFld22("winfun", "函數", Trim(Temptitle), "參數表") & Chr(10) & Chr(13)
Else
RTB1.Text = GetFthFld2("code", "標題", Trim(Temptitle), "內容")
RTB1.SelStart = 0
End If
End Sub
Private Sub Menu_About_Click()
StrMsg = "本軟件是作者的畢業(yè)設計,為免費軟件歡迎大家使用." & Chr(13) & _
"" & Chr(13) & _
"" & Chr(13) & _
"" & Chr(13) & _
"" & Chr(13) & _
""
MsgBox StrMsg, vbOKOnly + vbInformation
End Sub
Private Sub Menu_Add_Click()
Frame5.Visible = True: Frame6.Visible = True: TreeView1.Visible = False
Call SelFldtoCbo("code", "小類(lèi)別", BigStyle, Cbostyle)
Label4.Caption = "（添加）"
TxTTitle.Text = ""
RTB1.Text = ""
On Error GoTo ERR:
If ExistRecord("code", "標題", TreeView1.Nodes.Item(TreeView1.SelectedItem.Index)) = True Then
Cbostyle.Text = TreeView1.Nodes.Item(TreeView1.SelectedItem.Parent.Index)
Else
If ExistRecord("code", "小類(lèi)別", TreeView1.Nodes.Item(TreeView1.SelectedItem.Index)) = True Then
Cbostyle.Text = TreeView1.Nodes.Item(TreeView1.SelectedItem.Index)
End If
End If
ERR:
RTB1.Locked = False
RTB1.BackColor = RGB(255, 255, 255)
AddCode = True
Toolbar1.Buttons(7).Image = 16: Toolbar1.Buttons(8).Image = 17
Toolbar1.Buttons(7).Caption = "粘貼": Toolbar1.Buttons(8).Caption = "清除"
Toolbar1.Buttons(7).Tag = "Tool_Plaste": Toolbar1.Buttons(8).Tag = "Tool_Clear"
Menu_Plaste.Enabled = True: Menu_Clear.Enabled = True
End Sub
Private Sub Menu_API_Click()
Label1.Caption = "API函數"
BigStyle = "API函數"
For i = 1 To Toolbar1.Buttons.Count
Toolbar1.Buttons(i).MixedState = False
Next i
Toolbar1.Buttons(4).MixedState = True
Call ShowTree(BigStyle)
End Sub
Private Sub Menu_Author_Click()
ShellExecute Me.hwnd, "open", "", App.Path, 1, 0
End Sub
Private Sub Menu_Basic_Click()
Label1.Caption = "VB基礎"
BigStyle = "VB基礎"
For i = 1 To Toolbar1.Buttons.Count
Toolbar1.Buttons(i).MixedState = False
Next i
Toolbar1.Buttons(2).MixedState = True
Call ShowTree(BigStyle)
End Sub
Private Sub Menu_Big_Click()
RTB1.Font.Size = RTB1.Font.Size + 1
SaveSetting App.EXEName, "Font", "FontSize", RTB1.Font.Size
End Sub
Private Sub Menu_Consult_Click()
Label1.Caption = "語(yǔ)言參考"
BigStyle = "語(yǔ)言參考"
For i = 1 To Toolbar1.Buttons.Count
Toolbar1.Buttons(i).MixedState = False
Next i
Toolbar1.Buttons(3).MixedState = True
Call ShowTree(BigStyle)
End Sub
Private Sub Menu_Copy_Click()
SendKeys "^C"
End Sub
Private Sub Menu_Del_Click()
On Error GoTo ERR:
If ExistRecord("code", "標題", Temptitle) = True Then
If MsgBox("你真的要刪除此記錄嗎？", vbYesNo + vbExclamation, "警告") = vbYes Then
Dim adoprimarycmd As New ADODB.Command
adoprimarycmd.ActiveConnection = StrConnect
adoprimarycmd.CommandText = "delete * from code where 標題='" & Trim(Temptitle) & "'"
adoprimarycmd.Execute
Set adoprimarycmd = Nothing
RTB1.Text = ""
Call Form_Load
End If
Else
MsgBox "你必須先選擇要刪除的標題", vbOKOnly + vbCritical, "刪除錯誤"
End If
Exit Sub
ERR:
MsgBox "你必須先選擇要刪除的標題", vbOKOnly + vbCritical, "刪除錯誤"
End Sub
Private Sub Menu_Edit_Click()
On Error GoTo ERR:
If ExistRecord("code", "標題", TreeView1.Nodes.Item(TreeView1.SelectedItem.Index)) = False Then
MsgBox "你必須先選擇要修改的標題", vbOKOnly + vbCritical, "錯誤"
Exit Sub
End If
Frame5.Visible = True: Frame6.Visible = True: TreeView1.Visible = False
Label4.Caption = "（修改）"
Call SelFldtoCbo("code", "小類(lèi)別", BigStyle, Cbostyle)
RTB1.Locked = False
RTB1.BackColor = RGB(255, 255, 255)
Cbostyle.Text = TreeView1.Nodes.Item(TreeView1.SelectedItem.Parent.Index)
TxTTitle.Text = Temptitle
EditCode = True
Toolbar1.Buttons(7).Image = 16: Toolbar1.Buttons(8).Image = 17
Toolbar1.Buttons(7).Caption = "粘貼": Toolbar1.Buttons(8).Caption = "清除"
Toolbar1.Buttons(7).Tag = "Tool_Plaste": Toolbar1.Buttons(8).Tag = "Tool_Clear"
Menu_Plaste.Enabled = True: Menu_Clear.Enabled = True
Exit Sub
ERR:
MsgBox "你必須先選擇要修改的標題", vbOKOnly + vbCritical, "錯誤"
End Sub
Private Sub Menu_Example_Click()
Label1.Caption = "經(jīng)典事例"
BigStyle = "經(jīng)典事例"
For i = 1 To Toolbar1.Buttons.Count
Toolbar1.Buttons(i).MixedState = False
Next i
Toolbar1.Buttons(5).MixedState = True
Call ShowTreck
End Select
End Sub
數據庫的設計
4.1數據庫設計
1.code信息表:
v
2.winfun表設計:
4.2 數據庫概念和發(fā)展
關(guān)系數據庫是目前各類(lèi)數據庫中最重要、最流行的數據庫，他應用數學(xué)方法來(lái)處理數據庫數據，是目前使用最廣泛的數據庫系統。20世紀70年代以后開(kāi)發(fā)的數據庫管理系統產(chǎn)品幾乎都是基于關(guān)系的。在數據庫發(fā)展的歷史上，最重要的成就就是關(guān)系模型。 關(guān)系數據庫系統與非關(guān)系數據庫系統的區別是：關(guān)系系統只有“表“這一種數據結構；而非關(guān)系數據庫系統還有其他數據結構，對這些數據結構有其他的操作。
結構化查詢(xún)語(yǔ)言SQL（Structured Query Language）是一種介于關(guān)系代數與關(guān)系演算之間的語(yǔ)言，其功能包括查詢(xún)、操縱、定義和控制四個(gè)方面，是一個(gè)通用的、功能極強的關(guān)系數據庫語(yǔ)言。目前已成為關(guān)系數據庫的標準語(yǔ)言
4.3系統測試與評價(jià)
測試在軟件開(kāi)發(fā)過(guò)程中一直都是備受關(guān)注的，即使在傳統的軟件工程中，也有一個(gè)明確、獨立的測試階段。隨著(zhù)軟件危機的頻頻出現以及人們對于軟件本質(zhì)的進(jìn)一步認識，測試的地位得到了前所未有的提高。測試已經(jīng)不僅僅局限于軟件開(kāi)發(fā)中的一個(gè)階段，它已經(jīng)開(kāi)始貫穿于整個(gè)軟件開(kāi)發(fā)過(guò)程，人們已經(jīng)開(kāi)始認識到：測試開(kāi)始的時(shí)間越早，測試執行的越頻繁，所帶來(lái)的整個(gè)軟件開(kāi)發(fā)成本的下降就會(huì )越多。Extreme Programming更是把測試推到了極限的位置，一切軟件開(kāi)發(fā)活動(dòng)都要從首先編寫(xiě)測試代碼開(kāi)始。
總 結
教學(xué)輔助系統是一個(gè)典型的信息管理系統，其主要通過(guò)軟件工程方面的選擇課題、需求分析、總體設計、選用工具、程序模塊、系統測試等幾個(gè)步驟來(lái)實(shí)現。開(kāi)發(fā)本系統的過(guò)程中，首先要對教師日常教學(xué),授課進(jìn)行系統調研，熟悉學(xué)校教師的講課內容,順序的流程、步驟；其次在系統需求分析過(guò)程中，要透過(guò)現象看本質(zhì)，敏銳觀(guān)察到學(xué)校教師管理中存在的各種問(wèn)題，并在總體設計把握好對問(wèn)題的分析、理解，進(jìn)而解決問(wèn)題；選用開(kāi)發(fā)工具要選用自己最熟悉、應用較多的開(kāi)發(fā)工具，本系統開(kāi)發(fā)選用MS Visual Basic 6.0，其具有語(yǔ)言簡(jiǎn)單、功能強大、組件眾多的優(yōu)點(diǎn)。程序模塊的編制中，重點(diǎn)把握系統內部完整性、功能性、實(shí)用性、便捷性，使其能夠協(xié)調統一、運行無(wú)誤。運行結果證明，本教學(xué)復制系統極大提高了工作效率，節省了人力和物力，最終滿(mǎn)足學(xué)校管理、學(xué)校員工工作的需要，同時(shí)也成為現代化學(xué)校管理的標志
參考文獻
1陳明 . 軟件工程學(xué)教程 .科技出版社，2002
2 薩師煊，王珊 . 數據庫系統概論 . 第三版 . 高等教育出版社，2000
3 飛思科技產(chǎn)品研發(fā)中心 . visual basic 6.0數據庫應用開(kāi)發(fā) .電子工業(yè)出版社，2003
4 飛思科技產(chǎn)品研發(fā)中心 . visual basic 6.0開(kāi)發(fā)者手冊 . 電子工業(yè)出版社, 2002
5 申旻 . visual basic 6.0高手突破 . 清華大學(xué)出版社，2002，302
6 Steve Teixeira，Xaviver Pacheco著(zhù)，龍勁松，王瑜，謝尚書(shū)譯 . visual basic 6.0開(kāi)發(fā)人員指南 . 機械工業(yè)出版社 .2003
7 喬林 .參透Delphi／Kylix . 中國鐵道出版社 .2003
8 李維 .Inside 深入核心 VCL 架構剖析 . 電子工業(yè)出版社 .2004
9 張立科編寫(xiě)組 .Windows API 函數參考手冊 .人民郵電出版社 .2002
嚴蔚敏，吳偉民 .數據結構 .第二版 .清華大學(xué)出版社 .2001
10 王珍玲 。實(shí)用軟件工程教程 高等教育出版社 2004
11 （英）Ian Sommerville 機械工業(yè)出版社 2003
12 美Cantu,U. 王輝等譯visual basic 6.0 從入門(mén)到精通 電子工業(yè)出版社 2003
13 李維 面向對象開(kāi)發(fā)實(shí)踐之路（visual basic 6.0版）(BORLAND資深顧問(wèn)著(zhù)名visual basic 6.0專(zhuān)家李維最新力作) 電子工業(yè)出版社 2005.4
14 秦斌 等 visual basic 6.0數據庫系統開(kāi)發(fā)與應用 中國水利水電出版社 2006 .1
15 劉藝 visual basic 6.0面向對象編程思想 機械工業(yè)出版社 2003
16.visual basic 程序設計第二版 譚浩強 清華大學(xué)出版社 2003
17. visual basic6.0 程序設計教程. 胡同森 趙劍鋒等. 浙江科學(xué)技術(shù)出版社,2002.1
18.軟件工程學(xué)教程 (第二版) 周蘇 王文 著(zhù) 科學(xué)出版社 2003
19.Visual Basic 6.0 程序設計與開(kāi)發(fā)技術(shù) 求是科技 人民郵電出版社 2004.9
【VB+教學(xué)輔助系統(一)】相關(guān)文章：
汽車(chē)換檔智能輔助決策系統的設計03-18
鐵路客運營(yíng)銷(xiāo)輔助決策系統的應用03-10
故障工單全程管控輔助系統的探索11-22
談鐵路客運營(yíng)銷(xiāo)輔助決策系統的應用03-21
探析鐵路客運營(yíng)銷(xiāo)輔助決策系統的應用03-19
淺析鐵路客運營(yíng)銷(xiāo)輔助決策系統的應用03-20
短信輔助辦公系統的設計與實(shí)現JSP+SQL11-23
淺析多媒體輔助翻譯教學(xué)03-19