- 相關推薦
VB+教學輔助系統(一)
摘 要
20世紀以來，社會生產力迅速發展，科學技術突飛猛進，人們進行信息交流的深度與廣度不斷增加，信息量急劇增長，傳統的信息處理與決策的手段已不能適應社會的需要，信息的重要性和信息處理問題的緊迫性空前提高了，面對著日益復雜和不斷發展，變化的社會環境，特別是企業間日趨劇烈的競爭形勢，一個人、一個企業要在現代社會中求生存，求發展，必須具備足夠的信息和強有力的信息收集與處理手段。
對于學校教師來來說，大量教師教學課程若可以利用計算機技術將平時教學的內容結合信息技術的方便快捷性,將大大提高工作效率提高學生學習積極性.同樣教學水平的信息話也是衡量一個社會進步也否的重要指標.這就迫切需要利用計算機技術來幫助學校管理者來處理教師日常教學信息的信息化管理.教學輔助系統是管理信息系統的一個典型用例.
管理信息系統是一個集信息技術、經濟管理理論、統計學與運籌學、數據庫技術為一體的綜合性系統，是一個資金技術密集型、勞動密集型、智力密集型的項目。我國擁有廣闊的市場和豐富的人才資源，有幾十年的技術積累和經驗積累，有一定的后發優勢。管理信息系統的創新工作既不能妄自菲薄，更不能夜郎自大。要抓住當前網絡經濟興起的有利時機，以實現我國信息技術和信息產業的跨越式發展，更好地發揮信息產業對國民經濟增長的拉動作用。
開發學校教師管理系統的過程就是要實現數據處理方式由人工管理向計算機管理的轉變，它在計算機技術和教師管理實踐活動兩者之間架設橋梁。
關鍵字:教學輔助系統,管理信息系統,數據庫,計算機管理
引言
對于學校教師來來說，大量教師教學課程若可以利用計算機技術將平時教學的內容結合信息技術的方便快捷性,將大大提高工作效率提高學生學習積極性.
1.1背景
1.1.1教學輔助系統
如今隨著教育事業的發展,教師教學內容的增多,如何才能讓教師減少壓力,同時又增加學生的學習積極性,我們想到了教學輔助系統,采用本系統,教師可以將講課內容輸入系統,采用計算機處理的方式,讓學生自主的學習.
1.2 開發教學輔助系統的目的與原則
本教學輔助系統的主要目的是服務與中小學,各高校的教師,方便其講課,其原則是做到,界面友好人性,操作簡單,可靠.
1.3開發環境介紹
1.3.1開發平臺
本教師管理系統的開發平臺為微軟windows xp visual basic 6.0 以及微軟的Access作為操作數據庫.
數據庫設計工具——ACCESS數據庫管理系統
Microsoft Access介紹:
使用 Microsoft Access，可以在單一的數據庫文件中管理所有的信息。在這個文件中，用戶可以將自己的數據分別保存在各自獨立的存儲空間中，這些空間稱作表；可以使用聯機窗體來查看、添加及更新表中的數據；使用查詢來查找并檢索所要的數據；也可以使用報表以特定的版面布置來分析及打印數據。 如果要保存數據，請為每一種類型的信息創建一個表。如果要從查詢、窗體或報表中的多個表中將數據合并在一起，就要定義各個表之間的關系。 如果要搜索并檢索符合指定條件的數據，包括來自多個表中的數據，就要創建查詢。查詢的同時也可以更新或刪除多條記錄，并對數據執行內嵌或自定義的計算。 如果要簡單地直接在某個表中查看、輸入及更改數據，請創建一個窗體。在打開一個窗體時，Microsoft Access 將從一個或多個表中檢索數據，并使用用戶在“窗體向導”選擇的版面布局或所創建的版面布局，將窗體顯示在屏幕上。 如果要分析數據或將數據以特定的方式打印出來，請創建一個報表。例如，可以打印一份將數據分組并計算數據總和的報表，也可以打印另一份帶有各種數據格式的打印郵件標簽的報表。
系統設計
2.1 系統分析
本教學輔助系統采用計算機專業的VB課程為內容主要由以下幾大模塊構成.
vb基礎(vb概述,窗口控件和菜單,工程的管理,開發應用程序)
語言參考(關鍵字,函數,數據類型,偽指令,運算符)
API函數
經典事例
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 "類別不能為空", 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("大類別") = Trim(BigStyle)
adoprimaryrs.Fields("小類別") = 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 小類別 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 標題 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("標題"), 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 = "本軟件是作者的畢業設計,為免費軟件歡迎大家使用." & 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", "標題", 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函數"
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 = "語言參考"
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", "標題", 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", "小類別", 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 = "經典事例"
BigStyle = "經典事例"
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 數據庫概念和發展
關系數據庫是目前各類數據庫中最重要、最流行的數據庫，他應用數學方法來處理數據庫數據，是目前使用最廣泛的數據庫系統。20世紀70年代以后開發的數據庫管理系統產品幾乎都是基于關系的。在數據庫發展的歷史上，最重要的成就就是關系模型。 關系數據庫系統與非關系數據庫系統的區別是：關系系統只有“表“這一種數據結構；而非關系數據庫系統還有其他數據結構，對這些數據結構有其他的操作。
結構化查詢語言SQL（Structured Query Language）是一種介于關系代數與關系演算之間的語言，其功能包括查詢、操縱、定義和控制四個方面，是一個通用的、功能極強的關系數據庫語言。目前已成為關系數據庫的標準語言
4.3系統測試與評價
測試在軟件開發過程中一直都是備受關注的，即使在傳統的軟件工程中，也有一個明確、獨立的測試階段。隨著軟件危機的頻頻出現以及人們對于軟件本質的進一步認識，測試的地位得到了前所未有的提高。測試已經不僅僅局限于軟件開發中的一個階段，它已經開始貫穿于整個軟件開發過程，人們已經開始認識到：測試開始的時間越早，測試執行的越頻繁，所帶來的整個軟件開發成本的下降就會越多。Extreme Programming更是把測試推到了極限的位置，一切軟件開發活動都要從首先編寫測試代碼開始。
總 結
教學輔助系統是一個典型的信息管理系統，其主要通過軟件工程方面的選擇課題、需求分析、總體設計、選用工具、程序模塊、系統測試等幾個步驟來實現。開發本系統的過程中，首先要對教師日常教學,授課進行系統調研，熟悉學校教師的講課內容,順序的流程、步驟；其次在系統需求分析過程中，要透過現象看本質，敏銳觀察到學校教師管理中存在的各種問題，并在總體設計把握好對問題的分析、理解，進而解決問題；選用開發工具要選用自己最熟悉、應用較多的開發工具，本系統開發選用MS Visual Basic 6.0，其具有語言簡單、功能強大、組件眾多的優點。程序模塊的編制中，重點把握系統內部完整性、功能性、實用性、便捷性，使其能夠協調統一、運行無誤。運行結果證明，本教學復制系統極大提高了工作效率，節省了人力和物力，最終滿足學校管理、學校員工工作的需要，同時也成為現代化學校管理的標志
參考文獻
1陳明 . 軟件工程學教程 .科技出版社，2002
2 薩師煊，王珊 . 數據庫系統概論 . 第三版 . 高等教育出版社，2000
3 飛思科技產品研發中心 . visual basic 6.0數據庫應用開發 .電子工業出版社，2003
4 飛思科技產品研發中心 . visual basic 6.0開發者手冊 . 電子工業出版社, 2002
5 申旻 . visual basic 6.0高手突破 . 清華大學出版社，2002，302
6 Steve Teixeira，Xaviver Pacheco著，龍勁松，王瑜，謝尚書譯 . visual basic 6.0開發人員指南 . 機械工業出版社 .2003
7 喬林 .參透Delphi／Kylix . 中國鐵道出版社 .2003
8 李維 .Inside 深入核心 VCL 架構剖析 . 電子工業出版社 .2004
9 張立科編寫組 .Windows API 函數參考手冊 .人民郵電出版社 .2002
嚴蔚敏，吳偉民 .數據結構 .第二版 .清華大學出版社 .2001
10 王珍玲 。實用軟件工程教程 高等教育出版社 2004
11 （英）Ian Sommerville 機械工業出版社 2003
12 美Cantu,U. 王輝等譯visual basic 6.0 從入門到精通 電子工業出版社 2003
13 李維 面向對象開發實踐之路（visual basic 6.0版）(BORLAND資深顧問著名visual basic 6.0專家李維最新力作) 電子工業出版社 2005.4
14 秦斌 等 visual basic 6.0數據庫系統開發與應用 中國水利水電出版社 2006 .1
15 劉藝 visual basic 6.0面向對象編程思想 機械工業出版社 2003
16.visual basic 程序設計第二版 譚浩強 清華大學出版社 2003
17. visual basic6.0 程序設計教程. 胡同森 趙劍鋒等. 浙江科學技術出版社,2002.1
18.軟件工程學教程 (第二版) 周蘇 王文 著 科學出版社 2003
19.Visual Basic 6.0 程序設計與開發技術 求是科技 人民郵電出版社 2004.9
【VB+教學輔助系統(一)】相關文章：
汽車換檔智能輔助決策系統的設計03-18
鐵路客運營銷輔助決策系統的應用03-10
故障工單全程管控輔助系統的探索11-22
談鐵路客運營銷輔助決策系統的應用03-21
探析鐵路客運營銷輔助決策系統的應用03-19
淺析鐵路客運營銷輔助決策系統的應用03-20
探析賬務處理系統中輔助核算功能的應用03-18
淺析多媒體輔助翻譯教學03-19