|
1.3开发环境介绍 1.3.1开发平台 本教师管理系统的开发平台为微软windows xp visual basic 6.0 以及微软的Access作为操作数据库. 内容来自论文无忧网 www.paper51.com 1.3.2 数据库设计工具——ACCESS数据库管理系统 内容来自www.paper51.com
Microsoft Access介绍: copyright paper51.com
使用 Microsoft Access，可以在单一的数据库文件中管理所有的信息。在这个文件中，用户可以将自己的数据分别保存在各自独立的存储空间中，这些空间称作表；可以使用联机窗体来查看、添加及更新表中的数据；使用查询来查找并检索所要的数据；也可以使用报表以特定的版面布置来分析及打印数据。 如果要保存数据，请为每一种类型的信息创建一个表。如果要从查询、窗体或报表中的多个表中将数据合并在一起，就要定义各个表之间的关系。 如果要搜索并检索符合指定条件的数据，包括来自多个表中的数据，就要创建查询。查询的同时也可以更新或删除多条记录，并对数据执行内嵌或自定义的计算。 如果要简单地直接在某个表中查看、输入及更改数据，请创建一个窗体。在打开一个窗体时，Microsoft Access 将从一个或多个表中检索数据，并使用用户在“窗体向导”选择的版面布局或所创建的版面布局，将窗体显示在屏幕上。 如果要分析数据或将数据以特定的方式打印出来，请创建一个报表。例如，可以打印一份将数据分组并计算数据总和的报表，也可以打印另一份带有各种数据格式的打印邮件标签的报表。 paper51.com 第二章 系统设计 copyright paper51.com 2.1系统分析 内容来自论文无忧网 www.paper51.com
本教学辅助系统采用计算机专业的VB课程为内容主要由以下几大模块构成. 内容来自论文无忧网 www.paper51.com
一.vb基础(vb概述,窗口控件和菜单,工程的管理,开发应用程序) http://www.paper51.com 二. 语言参考(关键字,函数,数据类型,伪指令,运算符) paper51.com 三. API函数 内容来自www.paper51.com
四. 经典事例 paper51.com 2.2系统流程和操作方式设计 http://www.paper51.com
内容来自论文无忧网 www.paper51.com 第三章 系统界面设计 http://www.paper51.com
3.1系统界面设计 内容来自论文无忧网 www.paper51.com 主界面设计 copyright paper51.com
copyright paper51.com
代码设计: 内容来自论文无忧网 www.paper51.com
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 内容来自www.paper51.com Private BigStyleAs String http://www.paper51.com Private SmallStyleAs String copyright paper51.com Private RTB1_BackCorlor As Integer copyright paper51.com
Private AddCodeAs Boolean http://www.paper51.com Private EditCodeAs Boolean copyright paper51.com Dim TemptitleAs String copyright paper51.com Private Sub Cmdcancel_Click() http://www.paper51.com RTB1.BackColor = GetSetting(App.EXEName, "Corlor","BackCorlor", RTB1.BackColor) 内容来自www.paper51.com Frame5.Visible = False:Frame6.Visible = False: TreeView1.Visible = True copyright paper51.com RTB1.Locked = True 内容来自www.paper51.com EditCode= False http://www.paper51.com AddCode= False 内容来自论文无忧网 www.paper51.com Toolbar1.Buttons(7).Image= 5: Toolbar1.Buttons(8).Image = 6 copyright paper51.com
Toolbar1.Buttons(7).Caption= "全选": Toolbar1.Buttons(8).Caption = "复制" paper51.com
Toolbar1.Buttons(7).Tag= "Tool_SelAll": Toolbar1.Buttons(8).Tag ="Tool_Copy" copyright paper51.com Menu_Plaste.Enabled= False: Menu_Clear.Enabled = False paper51.com
End Sub 内容来自论文无忧网 www.paper51.com Private Sub Cmdfix_Click() http://www.paper51.com Frame5.Visible = False:Frame6.Visible = False: TreeView1.Visible = True paper51.com Dim adoprimaryrsAs New ADODB.Recordset http://www.paper51.com If Cbostyle.Text= "" Then 内容来自www.paper51.com MsgBox "类别不能为空", vbCritical+ vbApplicationModal, "错误" 内容来自论文无忧网 www.paper51.com
ExitSub 内容来自www.paper51.com End If copyright paper51.com If TxTTitle.Text= "" Then http://www.paper51.com
MsgBox "标题不能为空", vbCritical+ vbApplicationModal, "错误" paper51.com ExitSub http://www.paper51.com End If http://www.paper51.com If RTB1.Text = ""Then 内容来自www.paper51.com MsgBox "内容不能为空", vbCritical+ vbApplicationModal, "错误" copyright paper51.com
ExitSub copyright paper51.com
End If copyright paper51.com
内容来自论文无忧网 www.paper51.com Select Case True copyright paper51.com CaseAddCode 内容来自论文无忧网 www.paper51.com i = ExistRecord("code","标题", Trim(TxTTitle.Text)) copyright paper51.com If i Then 内容来自论文无忧网 www.paper51.com MsgBox "该代码标题已存在，请重新修改代码标题", vbCritical + vbApplicationModal,"错误" copyright paper51.com TxTTitle.SelStart = 0 copyright paper51.com TxTTitle.SelLength = Len(Trim(TxTTitle.Text)) 内容来自www.paper51.com
Exit Sub copyright paper51.com End If copyright paper51.com CaseEditCode paper51.com Dim adoprimarycmd As New ADODB.Command paper51.com adoprimarycmd.ActiveConnection = StrConnect copyright paper51.com
adoprimarycmd.CommandText = "delete *from code where 标题='" & Trim(Temptitle)& "'" copyright paper51.com
adoprimarycmd.Execute 内容来自论文无忧网 www.paper51.com Set adoprimarycmd = Nothing copyright paper51.com End Select http://www.paper51.com
adoprimaryrs.CursorLocation= adUseClient copyright paper51.com adoprimaryrs.Open"select * from code", StrConnect, adOpenKeyset, adLockOptimistic, adCmdText copyright paper51.com adoprimaryrs.MoveLast http://www.paper51.com adoprimaryrs.AddNew paper51.com adoprimaryrs.Fields("大类别") =Trim(BigStyle) 内容来自www.paper51.com adoprimaryrs.Fields("小类别") =Trim(Cbostyle) paper51.com adoprimaryrs.Fields("标题") = Trim(TxTTitle) paper51.com
adoprimaryrs.Fields("内容") =RTB1.Text 内容来自论文无忧网 www.paper51.com adoprimaryrs.Update copyright paper51.com Set adoprimaryrs= Nothing 内容来自论文无忧网 www.paper51.com
RTB1.BackColor = GetSetting(App.EXEName, "Corlor","BackCorlor", RTB1.BackColor) copyright paper51.com
Call ShowTree(BigStyle) paper51.com RTB1.Locked = True copyright paper51.com EditCode= False 内容来自www.paper51.com AddCode= False 内容来自论文无忧网 www.paper51.com
Toolbar1.Buttons(7).Image= 5: Toolbar1.Buttons(8).Image = 6 内容来自www.paper51.com Toolbar1.Buttons(7).Caption= "全选": Toolbar1.Buttons(8).Caption = "复制" http://www.paper51.com Toolbar1.Buttons(7).Tag= "Tool_SelAll": Toolbar1.Buttons(8).Tag ="Tool_Copy" copyright paper51.com Menu_Plaste.Enabled= False: Menu_Clear.Enabled = False 内容来自论文无忧网 www.paper51.com RTB1.Font.Size = GetSetting(App.EXEName, "Font", "FontSize",RTB1.Font.Size) 内容来自www.paper51.com
http://www.paper51.com |