[小学作文]VB教案4-4.pptVIP

Visual Basic 程序设计 （4-4） 【教学主要内容】 SQL语言实现数据库表的查询 SQL语言实现数据库表的统计 多文档界面的实现 【教学要求】 理解：SQL语言 掌握：SQL实现数据库表的查询 SQL实现数据库表的统计 多文档界面 第四节 结构化查询语言 一、SQL基础 二、SQL数据查询语言 三、多文档界面 四、应用实例 一、SQL基础 二、SQL数据查询语言 SELECT 字段表 FROM 表名 WHERE 查询条件 GROUP BY 分组字段 二、SQL数据查询语言 ORDER BY 字段 集合函数：MIN，MAX，SUM，AVG，COUNT 三、多文档界面 MDI概述 建立MDI的过程 与MDI相关的属性、事件 MDI概述 MDI是指在一个应用程序中打开多个相互独立的文档子窗口。 VB中的3类窗体： MDI父窗体 MDI子窗体 标准窗体（可与MDI子窗体互相转换） 建立MDI的过程 (1)添加MDI窗体作为主窗体 工程菜单-添加MDI窗体 (2)将MDI窗体设为启动 工程菜单-工程属性-启动对象- MDI窗体注意:一个工程只能有一个MDI窗体 (3)MDI子窗体 MDI的子窗体就是标准窗体。 只要将标准窗体MDIChild=true即可 MDI子窗体的载入(设form2是MDI子窗体) DIM NewFrm As New form2 NewFrm.Show ‘载入并显示一个子窗体 ‘可以反复载入多个独立的子窗体 与MDI相关的属性、事件 MDIChild属性：是否为MDI子窗体。 注意：不能在运行时修改！ Arrange方法：子窗体的排列。 Arrange 0 - 层叠 Arrange 1 - 水平平铺 Arrange 2 - 垂直平铺 Arrange 3 - 最小化时，重新排列图标 与MDI相关的属性、事件 MDI的菜单只出现在父窗体上； 子窗体的菜单替代在父窗体上菜单； 在顶行菜单中选中WindowList,可以自动在菜单中显示MDI子窗体 四、应用实例 1.使用SELECT实现数据库表查询 2.使用SQL实现数据库表统计 3.使用多文档窗体 1.使用SELECT实现数据库表查询 Private Sub Cmdfind_Click() ‘查找 Dim strmajor As String strmajor = InputBox(请输入专业, 输入窗) Data.RecordSource = SELECT * FROM 基本情况 WHERE 专业 like (* strmajor *) Data.Refresh If Data.Recordset.EOF Then MsgBox 无此专业！ Data.RecordSource = 基本情况 Data.Refresh End If End Sub 2.使用SQL实现数据库表统计 统计专业 学号排序 统计专业 添加MSFlexGrid控件：“工程”菜单-部件-“Microsoft FlexGrid Control 6.0 ”-选择√ -“确定” Private Sub Form_Load() Dim mpath As String mpath = App.Path If Right(mpath, 1) \ Then mpath = mpath + \ Data1.DatabaseName = mpath student.mdb Data1.RecordSource = 基本情况 Data1.Refresh End Sub Private Sub CmdSMajor_Click() 统计专业 Data1.RecordSource = select 专业, count(*) as 人数 from 基本情况 Group by 专业” Data1.Refresh End Sub Private Sub CmdBack_Click() 返回 Data1.RecordSource = 基本情况 Data1.Refresh End Sub 成绩排序 添加MSFlexGrid控件：“工程”菜单-部件-“Microsoft FlexGrid Control 6.0 ”-选择√ -“确定” Private Sub Form_Load() Dim mpath As String mp