VB525 数控加工技术教学素材资源库的构建VB+ACCESS

对于学校数控加工技术来来说，大量数控加工技术若可以利用计算机技术将平时教学的内容结合信息技术的方便快捷性,将大大提高工作效率提高学生学习积极性.同样教学水平的信息话也是衡量一个社会进步也否的重要指标.这就迫切需要利用计算机技术来帮助学校管理者来处理数控加工技术日常教学信息的信息化管理.vb数控加工技术教学素材资源库是vb数控加工技术教学素材资源库的一个典型用例.
vb数控加工技术教学素材资源库是一个集信息技术、经济管理理论、统计学与运筹学、数据库技术为一体的综合性系统，是一个资金技术密集型、劳动密集型、智力密集型的项目。我国拥有广阔的市场和丰富的人才资源，有几十年的技术积累和经验积累，有一定的后发优势。vb数控加工技术教学素材资源库的创新工作既不能妄自菲薄，更不能夜郎自大。要抓住当前网络经济兴起的有利时机，以实现我国信息技术和信息产业的跨越式发展，更好地发挥信息产业对国民经济增长的拉动作用。
开发学校vb数控加工技术教学素材资源库系统的过程就是要实现数据处理方式由人工管理向计算机管理的转变，它在计算机技术和vb数控加工技术教学素材资源库实践活动两者之间架设桥梁。 内容来自think58 [来源：http://think58.com]

使用 Microsoft Access，可以在单一的数据库文件中管理所有的信息。在这个文件中，用户可以将自己的数据分别保存在各自独立的存储空间中，这些空间称作表；可以使用联机窗体来查看、添加及更新表中的数据；使用查询来查找并检索所要的数据；也可以使用报表以特定的版面布置来分析及打印数据。
   如果要保存数据，请为每一种类型的信息创建一个表。如果要从查询、窗体或报表中的多个表中将数据合并在一起，就要定义各个表之间的关系。
   如果要搜索并检索符合指定条件的数据，包括来自多个表中的数据，就要创建查询。查询的同时也可以更新或删除多条记录，并对数据执行内嵌或自定义的计算。
   如果要简单地直接在某个表中查看、输入及更改数据，请创建一个窗体。在打开一个窗体时，Microsoft Access 将从一个或多个表中检索数据，并使用用户在“窗体向导”选择的版面布局或所创建的版面布局，将窗体显示在屏幕上。
   如果要分析数据或将数据以特定的方式打印出来，请创建一个报表。例如，可以打印一份将数据分组并计算数据总和的报表，也可以打印另一份带有各种数据格式的打印邮件标签的报表。 [资料来源：http://think58.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
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

本文来自think58

[资料来源：THINK58.com]

[来源：http://think58.com]

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 think58.com [来源：http://www.think58.com]

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

    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"

[资料来源：www.THINK58.com]

    Menu_Plaste.Enabled = True: Menu_Clear.Enabled = True
End Sub think58

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 [版权所有：http://think58.com]

Private Sub Menu_Author_Click()
    ShellExecute Me.hwnd, "open", "", App.Path, 1, 0
End Sub 本文来自think58

Private Sub Menu_Basic_Click()
    Label1.Caption = "概念和基本原理"
    BigStyle = "概念和基本原理"
    For i = 1 To Toolbar1.Buttons.Count
        Toolbar1.Buttons(i).MixedState = False
    Next i
    Toolbar1.Buttons(2).MixedState = True
    Call ShowTree(BigStyle)
End Sub 本文来自think58

Private Sub Menu_Big_Click()
    RTB1.Font.Size = RTB1.Font.Size + 1
    SaveSetting App.EXEName, "Font", "FontSize", RTB1.Font.Size
End Sub think58.com [资料来源：THINK58.com]

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

think58

[资料来源：www.THINK58.com]

[资料来源：http://THINK58.com]

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 [版权所有：http://think58.com]
    Else

think58.com

[来源：http://think58.com]

[来源：http://www.think58.com]

参考文献 copyright think58

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

内容来自think58 [资料来源：http://www.THINK58.com]

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 think58

[资料来源：THINK58.com]