数控加工技术教学素材资源库的构建论文.docx
《数控加工技术教学素材资源库的构建论文.docx》由会员分享，可在线阅读，更多相关《数控加工技术教学素材资源库的构建论文.docx（20页珍藏版）》请在冰豆网上搜索。
数控加工技术教学素材资源库的构建论文
摘要
20世纪以来，社会生产力迅速发展，科学技术突飞猛进，人们进行信息交流的深度与广度不断增加，信息量急剧增长，传统的信息处理与决策的手段已不能适应社会的需要，信息的重要性和信息处理问题的紧迫性空前提高了，面对着日益复杂和不断发展，变化的社会环境，特别是企业间日趋剧烈的竞争形势，一个人、一个企业要在现代社会中求生存，求发展，必须具备足够的信息和强有力的信息收集与处理手段。
对于学校数控加工技术来来说，大量数控加工技术若可以利用计算机技术将平时教学的内容结合信息技术的方便快捷性,将大大提高工作效率提高学生学习积极性.同样教学水平的信息话也是衡量一个社会进步也否的重要指标.这就迫切需要利用计算机技术来帮助学校管理者来处理数控加工技术日常教学信息的信息化管理.vb数控加工技术教学素材资源库是vb数控加工技术教学素材资源库的一个典型用例.
vb数控加工技术教学素材资源库是一个集信息技术、经济管理理论、统计学与运筹学、数据库技术为一体的综合性系统，是一个资金技术密集型、劳动密集型、智力密集型的项目。
我国拥有广阔的市场和丰富的人才资源，有几十年的技术积累和经验积累，有一定的后发优势。
vb数控加工技术教学素材资源库的创新工作既不能妄自菲薄，更不能夜郎自大。
要抓住当前网络经济兴起的有利时机，以实现我国信息技术和信息产业的跨越式发展，更好地发挥信息产业对国民经济增长的拉动作用。
开发学校vb数控加工技术教学素材资源库系统的过程就是要实现数据处理方式由人工管理向计算机管理的转变，它在计算机技术和vb数控加工技术教学素材资源库实践活动两者之间架设桥梁。
关键字:
vb数控加工技术教学素材资源库,vb数控加工技术教学素材资源库,数据库,计算机管理
Abstract：
Sincethe20thcentury,therapiddevelopmentofsocialproductiveforces,scienceandtechnology,exchangeofinformationisthedepthandscopeofincreasingthevolumeofinformationrapidgrowth,thetraditionalinformationprocessinganddecision-makingtoolshavenottheneedsofthecommunity,theimportanceofinformationandinformationprocessingproblemsurgencyunprecedentedincrease,inthefaceofincreasinglycomplexandevolving.changesinthesocialenvironment,inparticulartheincreasinglykeencompetitionamongenterprisessituation,apersonoranenterprisetosurviveinmodernsociety,anddevelopment,wemusthavesufficientinformationandpowerfulinformationgatheringandprocessingtools.
Forteacherstoschools,alargenumberofteachersteachingcoursesiftheycanusecomputertechnologytotheteachingcontentoftheconvenientnatureofit,willgreatlyincreasetheefficiencyoflearningenthusiasm.Teachingisthesamelevelofinformation,whetherthemeasureisoneimportantindicatorofsocialprogress.Thisurgentneedforusingcomputertechnologytohelpschoolmanagerstodealwithday-to-dayteachingteachersofinformationtechnologymanagementinformation.teachingaidssystemisatypicalmanagementinformationsystemusedcases.
ManagementInformationSystemisacollectionofinformationtechnology,economicmanagementtheory,statisticsandresearch,databaseintegrationtechnologyfortheintegratedsystemisacapital-andtechnology-intensiveandlabor-intensive,intellectual-intensiveprojects.Chinahasavastmarketandabundanthumanresources,technicalaccumulationanddecadesofaccumulatedexperience,acertainadvantages.Misinnovationcannotsell,notself-assertive.Weshouldseizethecurrentfavorableopportunitytonetworkeconomy,China'sinformationtechnologyandtoachievealeapforwardoftheinformationindustry,givebetterplaytotheinformationindustrytostimulateeconomicgrowth.
Developmentofschoolteachersinthemanagementprocessistoachievedatasystemsapproachtothemanagementoftheartificialcomputermanagementchangesincomputertechnologyandmanagementpracticesbetweenteachersbuildbridges.
keyword:
teachingaidssystem,managementinformationsystems,databases,computermanagement
目录
摘要i
Abstractii
第一章引言1
1.1背景1
1.1.1vb数控加工技术教学素材资源库系统1
1.2开发vb数控加工技术教学素材资源库系统的目的和原则3
1.3开发环境介绍3
1.3.1开发平台4
1.3.2数据库设计工具——ACCESS数据库管理系统7
第二章系统设计9
2.1系统分析9
2.2系统流程和操作方式设计11
第三章系统界面设计12
3.1系统界面设计以及代码分析12
第四章数据库的设计30
4.1数据库设计30
4.2数据库概念和发展30
4.3系统测试与评价38
总结39
致谢40
参考文献41
第一章
引言
对于学校数控加工技术来来说，大量数控加工技术若可以利用计算机技术将平时教学的内容结合信息技术的方便快捷性,将大大提高工作效率提高学生学习积极性.
1.1背景
1.1.1vb数控加工技术教学素材资源库
如今随着教育事业的发展,数控加工技术教学内容的增多,如何才能让数控加工技术减少压力,同时又增加学生的学习积极性,我们想到了vb数控加工技术教学素材资源库,采用本系统,数控加工技术可以将讲课内容输入系统,采用计算机处理的方式,让学生自主的学习.
1.2开发vb数控加工技术教学素材资源库的目的与原则
本vb数控加工技术教学素材资源库的主要目的是服务与中小学,各高校的数控加工技术,方便其讲课,其原则是做到,界面友好人性,操作简单,可靠.
1.3开发环境介绍
1.3.1开发平台
本vb数控加工技术教学素材资源库系统的开发平台为微软windowsxpvisualbasic6.0以及微软的Access作为操作数据库.
1.3.2数据库设计工具——ACCESS数据库管理系统
MicrosoftAccess介绍:
使用 Microsoft Access，可以在单一的数据库文件中管理所有的信息。
在这个文件中，用户可以将自己的数据分别保存在各自独立的存储空间中，这些空间称作表；可以使用联机窗体来查看、添加及更新表中的数据；使用查询来查找并检索所要的数据；也可以使用报表以特定的版面布置来分析及打印数据。
如果要保存数据，请为每一种类型的信息创建一个表。
如果要从查询、窗体或报表中的多个表中将数据合并在一起，就要定义各个表之间的关系。
如果要搜索并检索符合指定条件的数据，包括来自多个表中的数据，就要创建查询。
查询的同时也可以更新或删除多条记录，并对数据执行内嵌或自定义的计算。
如果要简单地直接在某个表中查看、输入及更改数据，请创建一个窗体。
在打开一个窗体时，Microsoft Access 将从一个或多个表中检索数据，并使用用户在“窗体向导”选择的版面布局或所创建的版面布局，将窗体显示在屏幕上。
如果要分析数据或将数据以特定的方式打印出来，请创建一个报表。
例如，可以打印一份将数据分组并计算数据总和的报表，也可以打印另一份带有各种数据格式的打印邮件标签的报表。
第二章系统设计
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="概念和基本原理"
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
DoUntiladoprimaryrs1.EOF
TempSmallStyle=adoprimaryrs1.Fields（"函数"）.Value
Setnodey=TreeView1.Nodes.Add（a,tvwChild,b,TempSmallStyle,3,3）
b=b+"1"
adoprimaryrs1.MoveNext
Loop
adoprimaryrs1.Close
Setadoprimaryrs1=Nothing
Else
'*************************************************
adoprimaryrs1.CursorLocation=adUseClient
adoprimaryrs2.CursorLocation=adUseClient
adoprimaryrs1.Open"selectdistinct小类别fromCodewhere大类别='"&TempBigSt
升级会员 