《《数据库管理系统》教案-第五章.ppt》由会员分享，可在线阅读，更多相关《《数据库管理系统》教案-第五章.ppt（61页珍藏版）》请在金锄头文库上搜索。
1、第第五五章章窗体设计窗体设计 Creating Forms Hour 4. Forms Introduced5.1 Understanding the functions and types of forms 窗体的作用及分类窗体的作用及分类 5.2 Using the AutoForm feature and Form Wizard to create new forms, Understanding controls and properties 窗体的创建方法、控件及属性窗体的创建方法、控件及属性5.3 Forms in Northwind 窗体实例分析：罗斯文商贸系统中的窗体对象窗体实
2、例分析：罗斯文商贸系统中的窗体对象Forms allow you to display data in an aesthetically pleasing way. They also provide an excellent mechanism for data entry. In this hour youll learn the following:What types of forms are availableHow to open / close a formHow to work with data from within a formHow to find and replac
3、e table data in a formHow to sort and filter form dataHow to view the design of a formHow to use the AutoForm feature and Form Wizard to create new formsHow to use conditional formatting to enhance forms5.1 Understanding the functions and types of forms Uses for FormsDevelopers often think that form
4、s exist solely for the purpose of data entry. To the contrary, forms serve many different purposes in Access 2003: Data entry They can be used for displaying and editing data. 显示和编辑数据显示和编辑数据 Application flow They can be used for navigating through an application. 应用程序流程控制应用程序流程控制 Custom dialog boxes
5、 They can be used to provide messages to users. 定制对话框定制对话框(信息显示、数据输入信息显示、数据输入) Printing information They can be used to provide hard copies of data-entry information. 数据打印数据打印For examples Data entry 显示和编辑数据：显示和编辑数据：“订单订单”窗体窗体For examples Application flow 应用程序流程控制：应用程序流程控制：“主切换面板主切换面板”For examples Cu
6、stom dialog boxes They can be used to provide messages to users。定制对话框。定制对话框(信息显示、数据输入信息显示、数据输入)：“各年销售额对各年销售额对话框话框”窗体窗体 For examples “销售额报表对话框销售额报表对话框”窗体窗体For examples Printing information数据打印：数据打印：“客户电话列表客户电话列表”窗体窗体For examples “客户电话列表客户电话列表”窗体的打印预览视图窗体的打印预览视图5.1 Understanding the functions and type
7、s of forms What are the basic types of forms?There are six basic types of forms: Columnar (also known as full-screen) forms 纵栏式纵栏式 Tabular forms 表格式表格式 Datasheets 数据表数据表 Main/subforms 主主/子窗体子窗体 Pivot table forms 数据透视表数据透视表 Graphs 图表图表 5.1 Understanding the functions and types of forms Columnar form：
8、“雇员雇员”窗体窗体Figure 5-1-1 “Employees” Form 雇员雇员 5.1 Understanding the functions and types of forms tabular form：“产品产品-表格式表格式”窗体窗体 Datasheet：”订单子窗体订单子窗体” Main/subform：“订单订单”窗体，内含窗体，内含“订单子窗体订单子窗体”订单子窗体订单子窗体 Main/subform：“季度订单季度订单”窗体，内含窗体，内含“季度订单子窗季度订单子窗体体”订单子窗体订单子窗体 Pivot table forms：“销售额分析销售额分析”窗体窗体 Gra
9、phs 图表：图表：“各月销售额各月销售额(图表式图表式)”Viewing the Design of a FormFigure 5-1 “Customers” Form in Design ViewFigure 5-2 “Customers” Form-Data Form View5.2 Using the AutoForm feature and Form Wizard to create new forms, Understanding controls and properties 窗体的创建方法、控件及属性窗体的创建方法、控件及属性Using the AutoForm Feature
10、Creating a form by using the AutoForm feature is amazingly easy. Heres how it works:1.Select the table or query on which you want to base the new form. Select the Customers table for this example.2.Select AutoForm from the New Object drop-down list box (see Figure 5-3). Access creates a form based o
11、n the selected table or query (see Figure 5-4).Figure 5-3 The New Object drop-down list box Figure 5-4 The Result_AutoFormUsing the Form Wizard to Build a FormUsing the Form Wizard gives you more flexibility than using the AutoForm feature to create forms. It also requires more knowledge on your par
12、t. Heres how you use it:1.Click Forms in the list of objects in the Database window.2.Double-click the Create Form by Using Wizard option.3.Select the table or query on which you want to base the form (see Figure 5-5).Figure 5-5 Selecting a table or query,and selecting fieldsUsing the Form Wizard to
13、 Build a Form4.Select the fields you want to include on the form.5.Click Next. Select a layout for the form. 6.Click Next. Select a style for the form.7.Click Next. Provide a title for the form. 8.Click Finish. (see Figure 5-6)Figure 5-6 “Customers-Wizard” FormHour 11. Creating Forms Creating a Form
14、 in Design ViewWorking with the Form Design WindowSelecting the Correct Control for the JobForm and Control Properties Creating a Form in Design ViewFigure 5-7 A New Form in Design View工具箱工具箱字段列表字段列表属性对话框属性对话框设计区设计区Creating a Form in Design View其中：其中：设计区：布局控件（设计区：布局控件（controls）字段列表：窗体的数据字段列表：窗体的数据工具
15、箱：选取控件工具箱：选取控件属性对话框：窗体及控件的属性属性对话框：窗体及控件的属性与窗体有关的工具如下图所示：与窗体有关的工具如下图所示：工具箱工具箱属性对话框属性对话框字段列表字段列表Creating a Form in Design View设计区的组成：每个窗体的设计区由主体节、窗体页眉设计区的组成：每个窗体的设计区由主体节、窗体页眉/页脚节页脚节 以及页面页眉以及页面页眉/页脚节组成。页脚节组成。主体节：显示窗体的数据主体节：显示窗体的数据窗体页眉窗体页眉/页脚：每个窗体的概要信息页脚：每个窗体的概要信息页面页眉页面页眉/页脚：打印窗体数据时每一页要显示的信息页脚：打印窗体数据时每一
16、页要显示的信息如下一页的如下一页的“客户电话列表客户电话列表”窗体所示窗体所示Figure 5-8 “客户电话列表客户电话列表”Form in Design ViewWorking with the Form Design Windowsee Hour 11Understanding and Working with the Form Design ToolsToggling the Tools to Get What You WantAdding Fields to a FormSelecting, Moving, Aligning, and Sizing Form ObjectsModif
17、ying Object Tab OrderSelecting the Correct Control for the Jobsee Hour 11LabelsText BoxesCombo BoxesList BoxesCheck BoxesOption and Toggle ButtonsOption GroupsForm and Control Propertiessee Hour 11Format 格式：外观形式格式：外观形式Data 数据：绑定的数据数据：绑定的数据Event 事件：利用事件属性执行特定操作事件：利用事件属性执行特定操作Other 其它：名称、其它：名称、Tab键索引等
18、键索引等5.3 Forms in Northwind 窗体实例分析：罗斯文商贸系统中的窗体对象窗体实例分析：罗斯文商贸系统中的窗体对象启动：信息提示启动：信息提示主切换面板主切换面板：系统功能选项：系统功能选项类别：主子窗体，子窗体类别：主子窗体，子窗体“产品列表产品列表”，显示，显示/ /编辑类别及产编辑类别及产品品 信息信息产品列表：连续窗体，显示产品列表：连续窗体，显示/ /编辑编辑相关产品信息相关产品信息产品：纵栏式单一窗体，显示产品：纵栏式单一窗体，显示/ /编辑编辑产品信息产品信息客户：纵栏式单一窗体，显示客户：纵栏式单一窗体，显示/ /编辑编辑客户信息客户信息订单：订单：主子窗体
19、，子窗体主子窗体，子窗体“订单子窗体订单子窗体”，显示，显示/ /编辑订单及编辑订单及订订 单明细信息单明细信息订单子窗体：数据表式，订单子窗体：数据表式，显示显示/ /编辑订单明细信息，编辑订单明细信息，用作订单用作订单 窗体的子窗体窗体的子窗体客户标签对话框客户标签对话框各年销售额对话框各年销售额对话框销售额报表对话框销售额报表对话框客户电话列表：连续窗体，包含页面页眉客户电话列表：连续窗体，包含页面页眉/页脚页脚客户订单：多层主子窗体，显示客户订单信息。子窗体为客户客户订单：多层主子窗体，显示客户订单信息。子窗体为客户 订单子窗体订单子窗体1和客户订单子窗体和客户订单子窗体2季度订单：季
20、度订单：主子窗体，主子窗体，显示客户显示客户1997年各季度订单金额。子窗年各季度订单金额。子窗 体为季度订单子窗体，其数据源来自交叉表查询体为季度订单子窗体，其数据源来自交叉表查询销售额分析：数据透视表。销售额分析：数据透视表。信息提示、参数输入信息提示、参数输入5.3 Forms in Northwind 窗体实例分析：罗斯文商贸系统中的窗体对象窗体实例分析：罗斯文商贸系统中的窗体对象例一例一 “ “类别类别”窗体窗体主子窗体，子窗体主子窗体，子窗体“产品列表产品列表”Figure 5-9 “类别类别”窗体窗体 连续窗体连续窗体例二例二 “ “产品产品”窗体窗体纵栏式，其中，按钮控件纵栏式
21、，其中，按钮控件“预览产品预览产品列表列表”使用了使用了“超级链接子地址超级链接子地址”属性，以打开相应报表。属性，以打开相应报表。Figure 5-10 “产品产品”窗体窗体例二例二 “ “产品产品”窗体中按钮控件窗体中按钮控件“预览产品列表预览产品列表”的格式属性：的格式属性：例三，例三，“订单订单”窗体窗体主子窗体。主子窗体。“订单子窗体订单子窗体”窗体窗体记录源：订单查询记录源：订单查询其中，主窗体记录源为其中，主窗体记录源为“订单查询订单查询”查询：订单查询：订单 + + 客户客户 ( (信息信息) ) 子窗体记录源是子窗体记录源是“扩展订单明细扩展订单明细”查询：订单明细查询：订单
22、明细 + + 产产品品重点关注：重点关注：1 1、“收单者收单者”：设计窗口如下，其中控件来源：设计窗口如下，其中控件来源“客户客户ID”(ID”(订订单单) )，该控件的数据被更新前和更新后分别执行相关代码。，该控件的数据被更新前和更新后分别执行相关代码。Private Sub 客户客户ID_BeforeUpdate(Cancel As Integer) 如果如果“客户客户ID”组合框为空显示消息。组合框为空显示消息。 Dim strMsg As String, strTitle As String Dim intStyle As Integer If IsNull(Me!客户客户ID) O
23、r Me!客户客户ID = Then strMsg = 您必须从您必须从收单者收单者列表框选择一项。列表框选择一项。 strTitle = 要求收单客户要求收单客户 intStyle = vbOKOnly MsgBox strMsg, intStyle, strTitle Cancel = True End IfEnd SubPrivate Sub 客户客户ID_AfterUpdate() 基于基于“客户客户ID”组合框选定的值更新组合框选定的值更新“货主货主”控件。控件。 Me!货主名称货主名称 = Me!客户客户ID.Column(1) Me!货主地址货主地址 = Me!地址地址 Me!货
24、主城市货主城市 = Me!城市城市 Me!货主地区货主地区 = Me!地区地区 Me!货主邮政编码货主邮政编码 = Me!邮政编码邮政编码 Me!货主国家货主国家 = Me!国家国家End Sub重点关注：重点关注：2 2、计算控件、计算控件“订单小计订单小计”：单独运行：单独运行“订单子窗体订单子窗体”时，该控时，该控件值为所有订单明细中的总价之和，当关联到件值为所有订单明细中的总价之和，当关联到“订单订单”窗体中窗体中时，该控件值仅为一张订单的总价之和了。时，该控件值仅为一张订单的总价之和了。 “ “订单订单”窗体中的窗体中的“小计小计”控件将引用该值。控件将引用该值。Figure 5-1
25、1 “订单子窗体订单子窗体”窗体窗体计算控件计算控件“订单小计订单小计”重点关注：重点关注：3 3、计算控件、计算控件“小计小计”：控件来源为：控件来源为 “ “订单子窗体订单子窗体”窗体中的窗体中的“订单小计订单小计”，既：，既： = =订单子窗体订单子窗体.Form!Form!订单小计订单小计 4 4、计算控件、计算控件“合计合计”：控件来源为：控件来源为 = =小计小计+运货费运货费 重点关注：重点关注：5 5、控件、控件“运货商运货商”：使用了：使用了“选项组选项组”，三种可能的值，三种可能的值1 1，2 2，3 3，分别对应三个运货商的，分别对应三个运货商的ID ID 。例四，例四，
26、“季度订单季度订单”窗体窗体主子窗体。主子窗体。( (see Figure 5see Figure 5-12 ) )Figure 5-12 “季度订单季度订单”窗体窗体思考：分析主窗体思考：分析主窗体中的中的“总计总计”控件控件其中，主窗体记录源为其中，主窗体记录源为“季度订单季度订单”查询：客户查询：客户(1995(1995年有订单年有订单的的) ) 该查询设计画面如下图所示。该查询设计画面如下图所示。Figure 5-13 数据来源：数据来源：“季度订单季度订单”查询查询其中，主窗体记录源为其中，主窗体记录源为“季度订单季度订单”查询：客户查询：客户(1995(1995年有订单年有订单的的
27、) )“季度订单子窗体季度订单子窗体”控件的记录源是控件的记录源是“各种产品的季度订单各种产品的季度订单”查询，如下图所示（交叉表查询，列标题固定）。查询，如下图所示（交叉表查询，列标题固定）。Figure 5-14 数据来源：数据来源：“各种产品的季度订单各种产品的季度订单”查询查询交叉表查询，列标题固定交叉表查询，列标题固定“季度订单子窗体季度订单子窗体”的设计画面如下图所示的设计画面如下图所示其中，窗体的默认视图为其中，窗体的默认视图为“连续视图连续视图”，这样作为子窗体使窗，这样作为子窗体使窗体页眉和页脚可以显示出来；体页眉和页脚可以显示出来；“合计合计”控件的可见性属性为控件的可见性
28、属性为“否否”，而主窗体的，而主窗体的“总计总计”控控件引用该控件的值。件引用该控件的值。“合计合计”控件控件例五，例五，“客户标签对话框客户标签对话框”窗体窗体参数窗体。参数窗体。( (see Figure 5see Figure 5-15) )目的：为预览或打印目的：为预览或打印“客户标签客户标签”报表提供参数。报表提供参数。Figure 5-15 “客户标签对话框客户标签对话框”窗体窗体其中，其中，“预览预览”按钮的按钮的“单击单击”事件将运行（击活）宏：客户事件将运行（击活）宏：客户标签对话框标签对话框. .预览预览( (see Figure 5see Figure 5-16) )。目
29、的：根据用户在目的：根据用户在“打印标签打印标签”控件上所做的选择以预览所有控件上所做的选择以预览所有客户标签或预览指定国家的客户标签。客户标签或预览指定国家的客户标签。Figure 5-16 “客户标签对话框客户标签对话框”宏对象宏对象例六，自定义的例六，自定义的“参数查询参数查询- -指定国家的客户指定国家的客户”窗体窗体参数窗体。参数窗体。( (see Figure 5see Figure 5-17) )目的：为运行目的：为运行“参数查询参数查询- -指定国家的客户指定国家的客户”查询提供参数。查询提供参数。Figure 5-17 自定义的自定义的“参数查询参数查询- -指定国家的客户指
30、定国家的客户”窗体窗体例七，改进自定义的例七，改进自定义的“参数查询参数查询- -指定国家的客户指定国家的客户”窗体。窗体。( (see Figure 5see Figure 5-18) )目的：使参数和结果在同一个窗体中。目的：使参数和结果在同一个窗体中。Figure 5-18 改进的改进的“参数查询参数查询- -指定国家的客户指定国家的客户”窗体窗体“指定国家的客户指定国家的客户”窗窗体作为子窗体体作为子窗体做法：做法：1 1、根据查询、根据查询“参数查询参数查询- -指定国家的客户指定国家的客户”建立一个窗建立一个窗体体“指定国家的客户指定国家的客户” (” (see Figure 5s
31、ee Figure 5-19) )Figure 5-19 “指定国家的客户指定国家的客户”窗体窗体数据表式数据表式做法：做法：2 2、在、在“参数查询参数查询- -指定国家的客户指定国家的客户”窗体中建立子窗体控件窗体中建立子窗体控件( (以以现有的现有的“指定国家的客户指定国家的客户”窗体来建立窗体来建立) )；3 3、利用参数文本框利用参数文本框“国家国家”的更新后事件属性，执行如下代码：的更新后事件属性，执行如下代码：Private Sub Private Sub 国家国家_ _AfterUpdateAfterUpdate()() Me! Me!指定国家的客户指定国家的客户.Requer
32、yRequeryEnd SubEnd Sub其目的是每当其目的是每当“国家国家”控件的值更新后，子窗体控件控件的值更新后，子窗体控件 指定国家指定国家的客户的客户 的数据来源刷新（的数据来源刷新（ RequeryRequery ：再查询），从而实现每：再查询），从而实现每选一个国家，子窗体中显示该国家的客户。选一个国家，子窗体中显示该国家的客户。作业：在作业：在“季度订单季度订单”窗体中增加窗体中增加“年度年度”参数控件，该控件参数控件，该控件的默认值为的默认值为19951995，行来源为，行来源为“订单订单”表中的所有年度。目的：表中的所有年度。目的：每当重新选择了每当重新选择了“年度年度”
33、值后，窗体中显示该年度相关的信息。值后，窗体中显示该年度相关的信息。例八，例八， “ “各年销售额对话框各年销售额对话框”窗体窗体受限的参数窗体。受限的参数窗体。( (see Figure 5see Figure 5-20) )目的：为目的：为“各年销售额各年销售额”报表提供参数，并且由该报表激活。报表提供参数，并且由该报表激活。Figure 5-20 “各年销售额对话框各年销售额对话框”窗体窗体“各年销售额对话框各年销售额对话框”窗体运行情况：窗体运行情况：1 1、若、若“各年销售额各年销售额”报表打开则可以正常工作，提供参数，并报表打开则可以正常工作，提供参数，并且由该报表激活；且由该报表
34、激活；2 2、若、若“各年销售额各年销售额”报表未打开报表未打开( (预览或打印预览或打印) )，按，按“确定确定”按按钮时会出现如下的提示信息：钮时会出现如下的提示信息：这是在这是在“确定确定”按钮的单击事件中设计了如下页所示的代码。按钮的单击事件中设计了如下页所示的代码。Private Sub Private Sub 确定确定_ _Click()Click()On Error On Error GoToGoTo Err_OK_Click Err_OK_Click Dim Dim strMsgstrMsg As String, As String, strTitlestrTitle As S
35、tring As String Dim Dim intStyleintStyle As Integer As Integer 如果如果“各年销售额各年销售额”报表未被打开用于预览或打印，导致产生一个错误。报表未被打开用于预览或打印，导致产生一个错误。 ( (仅当报表的仅当报表的 Open Open 事件被执行时，事件被执行时，blnOpeningblnOpening 变量的才为变量的才为 truetrue。 If Not Reports! If Not Reports!各年销售额各年销售额.blnOpeningblnOpening Then Err.Raise 0 Then Err.Raise
36、 0 Me.Visible = False Me.Visible = False 隐藏窗体。隐藏窗体。Exit_OK_Click:Exit_OK_Click: Exit Sub Exit SubErr_OK_Click:Err_OK_Click: strMsgstrMsg = “ = “要使用此窗体，您必须从数据库窗口或设计视图中预览或打印要使用此窗体，您必须从数据库窗口或设计视图中预览或打印” strMsgstrMsg = = strMsgstrMsg & & 各年销售额各年销售额报表。报表。 intStyleintStyle = = vbOKOnlyvbOKOnly strTitlestrTitle = = 从报表中打开从报表中打开 MsgBoxMsgBox strMsgstrMsg, , intStyleintStyle, , strTitlestrTitle Resume Exit_OK_Click Resume Exit_OK_ClickEnd SubEnd Sub
