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