绍
1.3.1开发平台
本教师管理系统的开发平台为微软windowsxpvisualbasic6.0以及微软的Access作为操作数据库.
1.3.2数据库设计工具--ACCESS数据库管理系统
MicrosoftAccess介绍:
使用MicrosoftAccess,可以在单一的数据库文件中管理所有的信息。在这个文件中,用户可以将自己的数据分别保存在各自独立的存储空间中,这些空间称作表;可以使用联机窗体来查看、添加及更新表中的数据;使用查询来查找并检索所要的数据;也可以使用报表以特定的版面布置来分析及打印数据。
如果要保存数据,请为每一种类型的信息创建一个表。如果要从查询、窗体或报表中的多个表中将数据合并在一起,就要定义各个表之间的关系。
如果要搜索并检索符合指定条件的数据,包括来自多个表中的数据,就要创建查询。查询的同时也可以更新或删除多条记录,并对数据执行内嵌或自定义的计算。
如果要简单地直接在某个表中查看、输入及更改数据,请创建一个窗体。在打开一个窗体时,MicrosoftAccess将从一个或多个表中检索数据,并使用用户在"窗体向导"选择的版面布局或所创建的版面布局,将窗体显示在屏幕上。
如果要分析数据或将数据以特定的方式打印出来,请创建一个报表。例如,可以打印一份将数据分组并计算数据总和的报表,也可以打印另一份带有各种数据格式的打印邮件标签的报表。
第二章系统设计
2.1系统分析
本教学辅助系统采用计算机专业的VB课程为内容主要由以下几大模块构成.
一.VB基础(VB概述,窗口控件和菜单,工程的管理,开发应用程序)
二.语言参考(关键字,函数,数据类型,伪指令,运算符)
三.API函数
四.经典事例
2.2系统流程和操作方式设计
第三章系统界面设计
3.1系统界面设计
主界面设计
代码设计:
PrivateDeclareFunctionShellExecuteLib"shell32.dll"Alias"ShellExecuteA"(ByValhwndAsLong,ByVallpOperationAsString,ByVallpFileAsString,ByVallpParametersAsString,ByVallpDirectoryAsString,ByValnShowCmdAsLong)AsLong
PrivateBigStyleAsString
PrivateSmallStyleAsString
PrivateRTB1_BackCorlorAsInteger
PrivateAddCodeAsBoolean
PrivateEditCodeAsBoolean
DimTemptitleAsString
PrivateSubCmdcancel_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
EndSub
PrivateSubCmdfix_Click()
Frame5.Visible=False:Frame6.Visible=False:TreeView1.Visible=True
DimadoprimaryrsAsNewADODB.Recordset
IfCbostyle.Text=""Then
MsgBox"类别不能为空",vbCritical+vbApplicationModal,"错误"
ExitSub
EndIf
IfTxTTitle.Text=""Then
MsgBox"标题不能为空",vbCritical+vbApplicationModal,"错误"
ExitSub
EndIf
IfRTB1.Text=""Then
MsgBox"内容不能为空",vbCritical+vbApplicationModal,"错误"
ExitSub
EndIf
SelectCaseTrue
CaseAddCode
i=ExistRecord("code","标题",Trim(TxTTitle.Text))
IfiThen
MsgBox"该代码标题已存在,请重新修改代码标题",vbCritical+vbApplicationModal,"错误"
TxTTitle.SelStart=0
TxTTitle.SelLength=Len(Trim(TxTTitle.Text))
ExitSub
EndIf
CaseEditCode
DimadoprimarycmdAsNewADODB.Command
adoprimarycmd.ActiveConnection=StrConnect
adoprimarycmd.CommandText="delete*fromcodewhere标题='"&Trim(Temptitle)&"'"
adoprimarycmd.Execute
Setadoprimarycmd=Nothing
EndSelect
adoprimaryrs.CursorLocation=adUseClient
adoprimaryrs.Open"select*fromcode",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
Setadoprimaryrs=Nothing
RTB1.BackColor=GetSetting(App.EXEName,"Corlor","BackCorlor",RTB1.BackColor)
CallShowTree(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)
EndSub
'PrivateSubCommand1_Click()
'DimstrAsString:Dimrst1AsNewADODB.Recordset:Dimrst2AsNewADODB.Recordset
'str="PROVIDER=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\data\WinApi.mdb;"
'rst1.Open"select*fromwinfun",str,adOpenKeyset,adLockOptimistic
'rst2.Open"select*fromfunclass",str,adOpenKeyset,adLockOptimistic
'rst1.MoveFirst
'Fori=1Torst1.RecordCount
'rst1.Fields("声明")=GetFthFld2("funclass","name",rst1.Fields("函数"),"fullname")
'rst2.Update
'rst1.MoveNext
'Next
'EndSub
PrivateSubForm_Load()
Me.Top=0:Me.Left=0
Frame5.Visible=False:Frame6.Visible=False:TreeView1.Visible=True
StatusBar1.Panels(1).Text=""&Format(Date,"longdate")&""&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;DataSource="&App.Path&"\data\VB.mdb;"
StrTempConnect="PROVIDER=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\data\winapi.mdb;"
BigStyle="VB基础"
CallShowTree(BigStyle)
EndSub
PrivateSubShowTree(ByValTempBigStyleAsString)
DimnodexAsNode
DimnodeyAsNode
Dimadoprimaryrs1AsNewADODB.Recordset
Dimadoprimaryrs2AsNewADODB.Recordset
a="aa"
b="bb"
c="cc"
IfTempBigStyle="API函数"Then
'*************************************************
adoprimaryrs1.CursorLocation=adUseClient
adoprimaryrs1.Open"select函数fromwinfunorderby函数",StrTempConnect,adOpenForwardOnly,adLockReadOnly,adCmdText
'*************************************************
TreeView1.LineStyle=tvwRootLines
TreeView1.Nodes.Clear
Setnodex=TreeView1.Nodes.Add(,,a,TempBigStyle,2,1)
Ifadoprimaryrs1.RecordCount<>0Then
adoprimaryrs1.MoveFirst
Else
ExitSub
EndIf
DoUntilado
上一篇:
VB教务管理系统vb+access源代码+论文+开题报告+外文翻译+答辩ppt(论文和程序)
下一篇:
白色姜花,略微开了