程序设计基础——Visual Basic教程 第2版 教学课件 作者 周黎 钱瑛 周阳花 第11章 数据库编程.pptVIP

第11章 数据库编程技术 Private Sub Cmdadd_Click() If Cmdadd.Caption = 添加记录 Then Call textenabled(True) : Call cmdenabled(False) Cmdmod.Enabled = False : Cmdadd.Caption = 确定 If Data1.Recordset.RecordCount 0 Then Data1.Recordset.MoveLast Data1.Recordset.AddNew : Txtno.SetFocus Else If Txtno.Text Then Call cmdenabled(True) : Cmdmod.Enabled = True Cmdadd.Caption = 添加记录 : Data1.Recordset.Update Data1.Recordset.MoveLast : Call textenabled(False) Else MsgBox 火车车次不能为空！ End If End If End Sub “添加记录”命令按钮的实现 Private Sub Cmddel_Click() If Data1.Recordset.RecordCount = 0 Then MsgBox 没有记录！ : Exit Sub Else Data1.Recordset.Delete : Data1.Refresh End If End Sub “删除记录”命令按钮的实现 Private Sub Cmdmod_Click() If Cmdmod.Caption = 修改记录 Then Call textenabled(True) : Call cmdenabled(False) Cmdadd.Enabled = False : Cmdmod.Caption = 确定 Else Call textenabled(False) : Call cmdenabled(True) Cmdadd.Enabled = True : Cmdmod.Caption = 修改记录 End If End Sub “修改记录”命令按钮的实现 Private Sub Cmdfind_Click() Dim no As String no = Trim(Text1.Text) If no = Then MsgBox 请在左侧文本框中输入要查询的火车车次！: Exit Sub End If Data1.Recordset.FindFirst 火车车次= + no + If Data1.Recordset.NoMatch Then MsgBox 该车次不存在！ End Sub “条件查找”命令按钮的实现 江南大学计算机基础课程组制作 2011版 程序设计基础 ——Visual Basic教程 第11章 数据库编程技术 1 数据库的基本知识 2 SQL语言 3 可视化数据管理器 4 Data控件 5 应 用 举 例 12.1 数据库的基本知识 一 、 数据库的发展历史 网状和层次数据库系统 关系数据库系统 面向对象数据库系统 关系模型使用最广泛。 1．数据（Data） 二、 数据库的基本概念 2．数据库（简称DB） 3．数据库管理系统（简称DBMS） 4．数据库系统（简称DBS） 例如，（王华，男，1987，计算机专业，江苏）， 这个学生记录就是数据。 三、 关系数据库 关系数据库是目前各类数据库中最重要、最流行的数据库，它用数学方法来处理数据库中的数据。 SQL语言由命令、子句、运算和函数等组成。 一、 SQL语言的组成 分 类 命 令 功 能 说 明 DDL CREATE 建立新的基本表、视图、索引 ALERT 修改数据结构 DROP 删除数据结构 常用SQL命令 12.2 SQL语言 分 类 命 令 功 能 说 明 DML INSERT 添加记录 UPDATE 修改记录 DELETE 删除记录 SELECT 查