精品课件-Visual Basic程序设计项目化案例教程-第13章
合集下载
C语言程序设计项目式教程完整版课件全书电子教案教材课件完整
例如，有一函数
，编写程序，其功能是对已知 x 求 y
程序说明 ① if 和 else 后面的语句可以是复合语句。 ②注意 if 与 else 的配对原则，else 总是与前面离它最近的没成对的 if 成对。
简单的C语言程序结构
说明4——语句
C语言中以“;”作为语句结束的标志。函数体就是由若干语句组成的，同时语句也出现在 函数之间，示例代码如下所示：
简单的C语言程序结构
学习一种编程语言，最佳途径就是多阅读代码段，多编写程序代码，接下来通过最基本的 C语言程序的基本构成学习基本格式和书写规范，代码示例如下所示：
单一if结构
选择结构中最基本的分支结构是 if 语句，按形式分 if 语句可以分为单分支、双分支和多 分支等，单一 if 语句定义形式如下所示
当上述中“表达式”值为“逻辑真”时，执行“语句”中内容。例如计算整型变量 x 的 绝对值，示例代码如下所示：
If-else结构
if 语句的第二种形式为 if-else 结构的双分支。其定义形式如下所示 ： 当“表达式”值为“逻辑真”时，执行“语句 1”；当“表达式”值为“逻辑假”时，执 行“语句 2”。例如，判断整型变量 x 是 5，则输出“right”，否则输出“error”，示例代码如 下所示：
简单的C语言程序结构
说明2——预处理
include称为文件包含命令，其意义是把双引号""或尖括号<>内指定的文件包含到本程序来， 成为本程序的一部分。被包含的文件通常是由系统提供的，其扩展名为.h的头文件。C语言的 头文件中包括了各个标准库函数的函数原型。因此，凡是在程序中调用一个库函数时，都必 须包含该函数原型所在的头文，示例代码如下所示：
原型在头文件 “stdio.h”中。具体格式如下：
精品课件-Visual Basic程序设计项目化案例教程-第1章
第1章 认识Visual Basic 6.0 图1-18
第1章 认识Visual Basic 6.0
2．设置对象的属性 (1) 改变窗体标题。在窗体的“属性”窗口中将窗体的 Caption属性的值改为“第一个应用程序”，如图1-19所示。 (2) 设置命令按钮的属性。在命令按钮的“属性”窗口中， 将其Caption属性值改为“请点击我”，如图1-20所示。再在 命令按钮的“属性”窗口中，单击Font属性值右边的按钮，如 图1-21所示，出现“字体”对话框，如图1-22所示。在“字体” 对话框中的“大小”选项栏中选择“四号”，然后单击“确定” 按钮。
第1章 认识Visual Basic 6.0 图1-31
第1章 认识Visual Basic 6.0 图1-32
第1章 认识Visual Basic 6.0
2) 拓展部分——创意设计 在按下“请点击我”后，除了在窗体上显示“这是第一个 VB应用程序”外，窗体的标题也要发生变化，试试看。 2．知识准备 要完成自主设计内容，需掌握以下知识： (1) 标签的Caption属性的修改。 (2) 命令按钮的Caption属性的修改。 (3) 简单代码的编写。 3．效果评价标准 请对照表1-1完成自主设计的效果评价。
第1章 认识Visual Basic 6.0
5．保存文件 单击工具栏中的 图标或选择“文件”→“保存工程” 菜单命令，弹出“文件另存为”对话框，如图1-28所示。选择 所需要的文件夹，并输入窗体文件名，单击“保存”按钮，保 存窗体文件。然后又出现“工程另存为”对话框，如图1-29所 示，同样选择所需要的文件夹，并输入工程文件名，单击“保 存”按钮，保存工程文件。
第1章 认识Visual Basic 6.0 图1-2
VisualBasic程序设计入门PPT课件
vb程2序02设1/计7/简27明教程
本书目录
3
1.1引例和VB的特点
• “Visual”表示可视化，是一种图形用户界面的软件开 发平台，其特点是在设计阶段可见软件的外在界面。
• Basic=Beginners all-Purpose Symbolist Instruction Code(初 学者通用符号指令代码)
件）
vb程2序02设1/计7/简27明教程
本书目录
本章目录
5
vb程2序02设1/计7/简27明教程
本书目录
6
vb程2序02设1/计7/简27明教程
本书目录
7
小结1：VB的特点 P4
❖ 具有基于对象的可视化设计工具 ❖ 事件驱动的编程机制 ❖ 提供了易学易用的应用程序集成开发环境 ❖ 支持结构化程序设计语言 ❖ 强大的网络、数据库、多媒体功能 ❖ 完备的帮助功能
保存一个应用程序所 有属性以及组成这个应 用程序所有的文件。 工程文件的扩展名 为.VBP，工程文件名显 示在工程文件窗口的标 题框内。
已存盘
工具箱
工程窗口
窗体窗口
属性窗口
窗体布局
vb程2序0立2即 设1窗 口 /计7/简27明教程
未存盘
本书目录
本章目录
18
1. 工程的作用
工程概述
• 在VB中，使用工程来管理构成应用程序的所有不同的文件。当创建完成工程 的全部文件之后，可将此工程转换成可执行文件 (.exe)，直接在Windows下执 行。
图 形 框 (P ic tu re B o x )
由21个文 本 框被( T e 绘x t B o 制x ) 成按钮形式的图标构成， 利用命这令 按些钮 ( C工o m m具a n d ，B u t t o 用n ) 户可以在窗体上设计 各种单控选 按件钮 ( O。p t i o 其n B u t t中o n ) 20个控件称为标准控件
Visual Basic 程序设计案例教程第13讲
菜单
• 用菜单编辑器建立菜单
– 给菜单项指定访问键和快捷键
• “访问键”是指与Alt键同时按下的键，用于打开菜 单、执行命令、选择对象或移向对象。在菜单项的 标题中，在想要指定为访问键的字符前加一个&符号。 在菜单中，该字符会自动加上一条下划线。 • 按下“快捷键”时会立刻运行一个菜单项。为频繁 使用的菜单项指定一个快捷键，可以提高工作效率。 快捷键的赋值通过编辑器的快捷键选项完成。快捷 键出现在菜单中相应菜单项的右边。
– 显示菜单控件上的复选标志
• 使用菜单控件的 Checked 属性，或者使用菜单编辑 器中“复选”框，可以把一个复选标志置于菜单上， 表示该菜单项的打开/关闭条件的状态。如图9-3所示。
菜单
• 菜单项的控制
– 有效性的控制
• 【例9.1】图9-4所示菜单中有“新建”和“关闭”菜单 项。设计程序使在未新建文档时，“关闭”项无效， “新建”菜单项有效。在新建文档后，“关闭”项有效， 而“新建”菜单项变为无效。 • 单击“属性”窗口上方的对象列表框，从中选择菜单控 件MenClose属性列表中将Enabled属性的值设置为False。 打开“代码”窗口，将“新建”与“关闭”菜单项的 Click修改如下：
菜单
• 协调位置——决定是否及如何在容器窗口中显示菜单。该 列表有四个选项，作用如下： 0-None 菜单项不显示 1-Left 菜单项靠左显示 2-Middle 菜单项居中显示 3-Right 菜单项靠右显示 • 复选——允许在菜单项的左边设置复选标记。 • 有效——决定是否让菜单项对事件作出响应。 • 可见——将菜单项显示在菜单上。
• 用菜单编辑器建立菜单
– 执行菜单编辑器的方法有：从“工具”菜单上， 选取“菜单编辑器”；在“工具栏”上单击 “菜单编辑器”按钮。
《新编Visual Basic程序设计教程》课件 第13章
说明：
一、Open语句中的Open、For、Access、As和Len为关键字，参数“文件名” 是指要打开的文件，可包驱动器名及路径名。其他几个参数含义如下：
（1）“模式”用来说明文件打开的方式，即指定文件的输入输出方式，它 可以为以下几种操作之一：
Output（输出）：指定Open语句以顺序方式打开文件，并且将该文件当作 一个输出设备来使用，相当于由内存向硬盘写数据。
（3）记录（Record）：由一组相关的字段组成。例如在学籍档案中， 每个学生的姓名、性别、家庭地址、电话号码、邮政编码等构成一个记录， 如下表所示。在Visual Basic中，以记录为单位来处理数据。
姓名 张语真
性别 女
家庭地址 自由大道
电话号码 12345678
邮政编码 123456
记录
（4）文件（File）：文件由纪录构成，一个文件中含有一个以上的 记录。例如，在学籍档案中存有1000个学生的信息，每个人的信息是一 个记录，这1000个记录即构成了一个文件。
二、Open语句兼有打开和创建文件两种功能。如果我们为输入（Input， 特指把磁盘文件的数据向内存输入）打开的文件未找到，VB将会产生“文件 未找到”错误；如果为输出（Output）、追加（Append）或随机（Random） 模式打开的文件不存在，则建立相应的磁盘文件。
下面是一些用Open语句打开或建立文件的例子： Open "c:\abc.txt" For Output As #1
则可用以下语句来关闭该文件设备。
Close #1
顺序文件按存储单元进行存储，它通常是一个文本文件，数字和字符均以 ASCII码形式保存。下面讨论顺序文件的操作语句。
在对任何文件进行操作之前，必须打开文件，同时要通知操作系统对文件进行 读操作还是写操作，将数据存到什么地方。顺序文件也不例外，打开文件的方法已 经在上一节中做了详细的介绍这里就不再赘述。只是有一些细节问题需要注意。
一、Open语句中的Open、For、Access、As和Len为关键字，参数“文件名” 是指要打开的文件，可包驱动器名及路径名。其他几个参数含义如下：
（1）“模式”用来说明文件打开的方式，即指定文件的输入输出方式，它 可以为以下几种操作之一：
Output（输出）：指定Open语句以顺序方式打开文件，并且将该文件当作 一个输出设备来使用，相当于由内存向硬盘写数据。
（3）记录（Record）：由一组相关的字段组成。例如在学籍档案中， 每个学生的姓名、性别、家庭地址、电话号码、邮政编码等构成一个记录， 如下表所示。在Visual Basic中，以记录为单位来处理数据。
姓名 张语真
性别 女
家庭地址 自由大道
电话号码 12345678
邮政编码 123456
记录
（4）文件（File）：文件由纪录构成，一个文件中含有一个以上的 记录。例如，在学籍档案中存有1000个学生的信息，每个人的信息是一 个记录，这1000个记录即构成了一个文件。
二、Open语句兼有打开和创建文件两种功能。如果我们为输入（Input， 特指把磁盘文件的数据向内存输入）打开的文件未找到，VB将会产生“文件 未找到”错误；如果为输出（Output）、追加（Append）或随机（Random） 模式打开的文件不存在，则建立相应的磁盘文件。
下面是一些用Open语句打开或建立文件的例子： Open "c:\abc.txt" For Output As #1
则可用以下语句来关闭该文件设备。
Close #1
顺序文件按存储单元进行存储，它通常是一个文本文件，数字和字符均以 ASCII码形式保存。下面讨论顺序文件的操作语句。
在对任何文件进行操作之前，必须打开文件，同时要通知操作系统对文件进行 读操作还是写操作，将数据存到什么地方。顺序文件也不例外，打开文件的方法已 经在上一节中做了详细的介绍这里就不再赘述。只是有一些细节问题需要注意。
课件VisualBasic程序设计方案及应用
前缀btn lbl txt pic
注：如果要在按钮上加图片 必须首先设设Style 然后再设Picture,DownPicture
常见的属性
Name ForeColor, BackColor FontSize
FontName Top Left Width Height Caption/ Picture/ Text / Value Visiable Enabled
编译
编译
编译就是将源程序转成可执行程序的过程
怎样编译
文件生成xxxxx.exe文件
编程提示：
exe是交给最终用户的，编程者不需要它
一些典型应用
一些专题知识
自己设计一个屏幕保护程序； 自己设计一个多媒体播放器； 自己设计一个小游戏； 信息安全与密码问题； 软件工程，程序漏洞的原因； 信息管理系统； 网上信息交流，聊天，游戏的原理； 电子商务的基本构成方式； 计算机智能及其局限性； 分形图形与计算机艺术；
注：Me表示窗体
Me.BackColor=RGB( Rnd*255, Rnd*255, Rnd*255)
注：Rnd表示随机数（范围0到1之间，不包括1）
注意用等号
方法的书写
对象.方法
Command1.Move 1000,500 Me.Print "Hello"
注意：属性和方法都可以智能提示
示例： a *b = c
If条件语句
两种写法：
同一行：
If 条件 Then … Else …
多行：
If 条件 Then
…
Else
…
End If
示例
示例：小球移动，但不出边界
要点1：使用变量 要点2：使用If
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
第13章 综合项目二
【案例】 “好太太”家庭收支系统 【本章小结】
第13章 综合项目二
【案例】 “好太太”家庭收支系统
一、案例效果 本案例中有一个登录界面供用户登录使用；一个“收入管 理”界面可以用来添加收入、修改收入、查询收入、删除收入 记录；一个“添加用户”的界面可以供用户注册使用；一个 MDI窗体。其界面设计如图13-1～13-4所示。
第13章 综合项目二
表13-4 Form2窗体“修改与删除收入”选项卡的属性设置
对象 命令按钮
对象名称 Command1 Command2 Command3
属性 Caption Caption Caption
属性值 修改
确认修改 删除
第13章 综合项目二
表13-5 Form2窗体“查询收入”选项卡的属性设置
Caption
查询
Caption
打印查询
将该控件与 shouru 数据表相连接
对象 窗体 标签
文本框
命令按钮 数据库控件
第13章 综合项目二
表13-6 Form3窗体的属性设置
对象名称 Form3 Label1 Label2 Label3 Text1 Text2
Text3
Command1 Command2
对象 框架 标签
组合框 命令按钮 数据库控件
对象名称 Frame2 Label1 Label2 Label3 Combo1 Combo2 Command1 Command2 Adodc1
属性
属性值
Caption
设置查询条件
Caption
时间：
Caption
从
Caption
到
Text
(空值)
Text
(空值)
第13章 综合项目二
MsgBox "该用户不存在,请重新输入用户名!" Combo1.Text = "" Text1.Text = "" Combo1.SetFocus
Else Adodc1.RecordSource = "select * from yonghu where
密码='" & Trim(Text1.Text) – & "'" Adodc1.Refresh If Adodc1.Recordset.EOF Then
第13章 综合项目二
表13-1
菜单项 主菜单项 1 子菜单项 1-1 子菜单项 1-2 子菜单项 1-3 主菜单项 2 子菜单项 2-1 子菜单项 2-2 子菜单项 2-3 子菜单项 2-4 主菜单 3 子菜单 3-1 子菜单 3-2 子菜单 3-3 子菜单 3-4 主菜单 4
菜单的各项设置
标题
名称
第13章 综合项目二
4．Select语句 本案例中使用了SQL语言中的Select(查询)语句，Select 语句的语法格式如下： SELECT <字段名列表|*> FROM <表名> [WHERE 查询条件] 如：“select * from yonghu where 用户名=‘” & Trim(Combo1.Text) & “’” (1) SELECT子句。SELECT 子句用于指定要包含在查询记 录集中的字段，字段名与字段名之间用逗号隔开。而“*”表 示查询表中的所有字段。
第13章 综合项目二
3．属性设置 按表13-2～13-6所列设置各对象的属性。
第13章 综合项目二
对象 窗体 标签
文本框
命令按钮 数据库控件
表13-2 Form1窗体的属性设置
对象名称 Form1 Label1 Label2
Text1
Command1 Command2
Adodc1
属性
属性值
Caption
第13章 综合项目二
(2) FROM子句。FROM子句用于指定查询所要用到的数据 表。
(3) WHERE子句。WHERE子句用于指定查询条件，只有满 足查询条件的记录才会被返回。在WHERE子句中，查询条件表 达式可以使用以下关系运算符：=、>、<、>=、<=、<>、Like 等。
5．Trim()函数 Trim()函数用于去除掉参数中的空格。
第13章 综合项目二
页标头区：用来设计报表中显示的各个字段的名称。 细节区：用来显示各个字段中的数据。 报表对象的常用属性有DataSource和DataMember。 (1) DataSource。该属性用来确定报表对象的数据源。 (2) DataMember。该属性用来确定报表对象的数据成员。 报表对象的常用方法有Show和Hide。 (1) Show。该方法用来显示数据报表对象。 (2) Hide。该方法用来隐藏数据报表对象。
用户管理
hostmanage
注册用户
zhuce
注销用户
zhuxiao
退出
exit
收入管理
inmanage
添加收入
addin
修改收入
modifyin
删除收入
deletein
查询收入
quirein
支出管理
outmanage
添加支出
addout
修改支出
modifyout
删除支出
deleteout
查询支出
quireout
第13章 综合项目二
三、操作步骤 1．创建后台数据库 (1) 选择“开始”—“所有程序”—“Microsoft Access” 命令，启动Microsoft Access 2000应用程序。按照第11章中 介绍的创建数据库的方法，创建一个名为JTSR.mdb的数据库， 并在该数据库中创建两个表，表名分别为yonghu和shouru。 (2) 分别设计shouru表和yonghu表的字段及字段的数据类 型，如图13-7和图13-8所示。 (3) 分别为shouru表和yonghu表添加一些数据。
第13章 综合项目二 图13-6
第13章 综合项目二
标签控件( )：用于在报表上放置静态文本。 文本控件( )：用于在报表上连接并显示字段的数据。 图形控件( )：用于在报表上添加图片。 线条控件( )：用于在报表上绘制直线。 形状控件( )：用于在报表上绘制各种各样的图形外形。 函数控件( )：用于在报表上建立公式。 报表标头区：用来设计报表显示时的标头内容。 页标头区：用来设计报表中显示的各个字段的名称。 细节区：用来显示各个字段中的数据。
第13章 综合项目二 图13-1
第13章 综合项目二 图13-2
第13章 综合项目二 图13-3
第13章 综合项目二 图13-4
第13章 综合项目二
二、技术分析 1．SSTab控件 SSTab控件是Visual Basic为用户制作具有多个选项卡对 话框而提供的控件。在使用SSTab控件前，必须先通过“工 程”—“部件”菜单命令选择“Microsoft Tabbed Dialog Control 6.0”选项，将SSTab控件添加到常用工具箱中。 在SSTab控件上单击鼠标右键打开SSTab控件的属性页对话 框，如图13-5所示。
Adodc1
属性
属性值
Caption
添加用户
Caption
请输入用户名：
Caption
请输入密码：
Caption
再次输入密码：
Text
(空值)
Text
(空值)
PasswordChar
*
Text
(空值)
PasswordChar
*
Caption
确定
Caption
取消
将该控件与 yonghu 数据表相连接
帮助
help
第13章 综合项目二
(7) 利用MDI窗体的Picture属性为窗体添加一幅背景图片。 (8) 设计Form2窗体的界面。在Form2窗体上添加一个 SSTab控件，设置选项卡数为3，而后分别设置各选项卡的 Caption属性为添加收入、修改与删除收入、查询收入。 (9) 在“添加收入”选项卡中添加1个框架控件，在框架 控件中添加1个图片框控件、4个标签控件、4个文本框控件和2 个命令按钮控件。其界面设计如图13-4所示。 (10) 在“修改与删除收入”选项卡中添加3个命令按钮和 1个DataGrid控件。其界面设计如图13-9所示。
第13章 综合项目二
4．程序代码设计 (1) Form1窗体中“登录”按钮的代码如下： Private Sub Command1_Click() mandType = adCmdText Adodc1.RecordSource = "select * from yonghu where用 户名='"& Trim(Combo1.Text)- & "'" Adodc1.Refresh If Adodc1.Recordset.EOF Then
第13章 综合项目二 图13-10
第13章 综合项目二
(13) 执行“工程”—“添加Data Report”命令，生成一 个DataReport1对象。在“报表标头”区添加1个标签控件，将 标签的Caption属性设置为“家庭收入查询结果”；在“页标 题”区添加4个标签控件，分别设置这4个标签的Caption属性 为“金额”、“来源”、“时间”、“备注”；在细节区添加 4个文本框控件，分别设置这4个文本框的DataField属性为 “金额”、“来源”、“时间”、“备注”。
第13章 综合项目二
3．报表设计 在Visual Basic中制作数据报表可以运用系统中集成的数 据报表设计器Data Report Designer。执行“工程”—“添加 Data Report”命令，可以将报表设计器添加到当前工程中， 生成一个DataReport1对象，并在工具箱内产生一个“数据报 表”标签。其界面如图13-6所示。
【案例】 “好太太”家庭收支系统 【本章小结】
第13章 综合项目二
【案例】 “好太太”家庭收支系统
一、案例效果 本案例中有一个登录界面供用户登录使用；一个“收入管 理”界面可以用来添加收入、修改收入、查询收入、删除收入 记录；一个“添加用户”的界面可以供用户注册使用；一个 MDI窗体。其界面设计如图13-1～13-4所示。
第13章 综合项目二
表13-4 Form2窗体“修改与删除收入”选项卡的属性设置
对象 命令按钮
对象名称 Command1 Command2 Command3
属性 Caption Caption Caption
属性值 修改
确认修改 删除
第13章 综合项目二
表13-5 Form2窗体“查询收入”选项卡的属性设置
Caption
查询
Caption
打印查询
将该控件与 shouru 数据表相连接
对象 窗体 标签
文本框
命令按钮 数据库控件
第13章 综合项目二
表13-6 Form3窗体的属性设置
对象名称 Form3 Label1 Label2 Label3 Text1 Text2
Text3
Command1 Command2
对象 框架 标签
组合框 命令按钮 数据库控件
对象名称 Frame2 Label1 Label2 Label3 Combo1 Combo2 Command1 Command2 Adodc1
属性
属性值
Caption
设置查询条件
Caption
时间：
Caption
从
Caption
到
Text
(空值)
Text
(空值)
第13章 综合项目二
MsgBox "该用户不存在,请重新输入用户名!" Combo1.Text = "" Text1.Text = "" Combo1.SetFocus
Else Adodc1.RecordSource = "select * from yonghu where
密码='" & Trim(Text1.Text) – & "'" Adodc1.Refresh If Adodc1.Recordset.EOF Then
第13章 综合项目二
表13-1
菜单项 主菜单项 1 子菜单项 1-1 子菜单项 1-2 子菜单项 1-3 主菜单项 2 子菜单项 2-1 子菜单项 2-2 子菜单项 2-3 子菜单项 2-4 主菜单 3 子菜单 3-1 子菜单 3-2 子菜单 3-3 子菜单 3-4 主菜单 4
菜单的各项设置
标题
名称
第13章 综合项目二
4．Select语句 本案例中使用了SQL语言中的Select(查询)语句，Select 语句的语法格式如下： SELECT <字段名列表|*> FROM <表名> [WHERE 查询条件] 如：“select * from yonghu where 用户名=‘” & Trim(Combo1.Text) & “’” (1) SELECT子句。SELECT 子句用于指定要包含在查询记 录集中的字段，字段名与字段名之间用逗号隔开。而“*”表 示查询表中的所有字段。
第13章 综合项目二
3．属性设置 按表13-2～13-6所列设置各对象的属性。
第13章 综合项目二
对象 窗体 标签
文本框
命令按钮 数据库控件
表13-2 Form1窗体的属性设置
对象名称 Form1 Label1 Label2
Text1
Command1 Command2
Adodc1
属性
属性值
Caption
第13章 综合项目二
(2) FROM子句。FROM子句用于指定查询所要用到的数据 表。
(3) WHERE子句。WHERE子句用于指定查询条件，只有满 足查询条件的记录才会被返回。在WHERE子句中，查询条件表 达式可以使用以下关系运算符：=、>、<、>=、<=、<>、Like 等。
5．Trim()函数 Trim()函数用于去除掉参数中的空格。
第13章 综合项目二
页标头区：用来设计报表中显示的各个字段的名称。 细节区：用来显示各个字段中的数据。 报表对象的常用属性有DataSource和DataMember。 (1) DataSource。该属性用来确定报表对象的数据源。 (2) DataMember。该属性用来确定报表对象的数据成员。 报表对象的常用方法有Show和Hide。 (1) Show。该方法用来显示数据报表对象。 (2) Hide。该方法用来隐藏数据报表对象。
用户管理
hostmanage
注册用户
zhuce
注销用户
zhuxiao
退出
exit
收入管理
inmanage
添加收入
addin
修改收入
modifyin
删除收入
deletein
查询收入
quirein
支出管理
outmanage
添加支出
addout
修改支出
modifyout
删除支出
deleteout
查询支出
quireout
第13章 综合项目二
三、操作步骤 1．创建后台数据库 (1) 选择“开始”—“所有程序”—“Microsoft Access” 命令，启动Microsoft Access 2000应用程序。按照第11章中 介绍的创建数据库的方法，创建一个名为JTSR.mdb的数据库， 并在该数据库中创建两个表，表名分别为yonghu和shouru。 (2) 分别设计shouru表和yonghu表的字段及字段的数据类 型，如图13-7和图13-8所示。 (3) 分别为shouru表和yonghu表添加一些数据。
第13章 综合项目二 图13-6
第13章 综合项目二
标签控件( )：用于在报表上放置静态文本。 文本控件( )：用于在报表上连接并显示字段的数据。 图形控件( )：用于在报表上添加图片。 线条控件( )：用于在报表上绘制直线。 形状控件( )：用于在报表上绘制各种各样的图形外形。 函数控件( )：用于在报表上建立公式。 报表标头区：用来设计报表显示时的标头内容。 页标头区：用来设计报表中显示的各个字段的名称。 细节区：用来显示各个字段中的数据。
第13章 综合项目二 图13-1
第13章 综合项目二 图13-2
第13章 综合项目二 图13-3
第13章 综合项目二 图13-4
第13章 综合项目二
二、技术分析 1．SSTab控件 SSTab控件是Visual Basic为用户制作具有多个选项卡对 话框而提供的控件。在使用SSTab控件前，必须先通过“工 程”—“部件”菜单命令选择“Microsoft Tabbed Dialog Control 6.0”选项，将SSTab控件添加到常用工具箱中。 在SSTab控件上单击鼠标右键打开SSTab控件的属性页对话 框，如图13-5所示。
Adodc1
属性
属性值
Caption
添加用户
Caption
请输入用户名：
Caption
请输入密码：
Caption
再次输入密码：
Text
(空值)
Text
(空值)
PasswordChar
*
Text
(空值)
PasswordChar
*
Caption
确定
Caption
取消
将该控件与 yonghu 数据表相连接
帮助
help
第13章 综合项目二
(7) 利用MDI窗体的Picture属性为窗体添加一幅背景图片。 (8) 设计Form2窗体的界面。在Form2窗体上添加一个 SSTab控件，设置选项卡数为3，而后分别设置各选项卡的 Caption属性为添加收入、修改与删除收入、查询收入。 (9) 在“添加收入”选项卡中添加1个框架控件，在框架 控件中添加1个图片框控件、4个标签控件、4个文本框控件和2 个命令按钮控件。其界面设计如图13-4所示。 (10) 在“修改与删除收入”选项卡中添加3个命令按钮和 1个DataGrid控件。其界面设计如图13-9所示。
第13章 综合项目二
4．程序代码设计 (1) Form1窗体中“登录”按钮的代码如下： Private Sub Command1_Click() mandType = adCmdText Adodc1.RecordSource = "select * from yonghu where用 户名='"& Trim(Combo1.Text)- & "'" Adodc1.Refresh If Adodc1.Recordset.EOF Then
第13章 综合项目二 图13-10
第13章 综合项目二
(13) 执行“工程”—“添加Data Report”命令，生成一 个DataReport1对象。在“报表标头”区添加1个标签控件，将 标签的Caption属性设置为“家庭收入查询结果”；在“页标 题”区添加4个标签控件，分别设置这4个标签的Caption属性 为“金额”、“来源”、“时间”、“备注”；在细节区添加 4个文本框控件，分别设置这4个文本框的DataField属性为 “金额”、“来源”、“时间”、“备注”。
第13章 综合项目二
3．报表设计 在Visual Basic中制作数据报表可以运用系统中集成的数 据报表设计器Data Report Designer。执行“工程”—“添加 Data Report”命令，可以将报表设计器添加到当前工程中， 生成一个DataReport1对象，并在工具箱内产生一个“数据报 表”标签。其界面如图13-6所示。