5.4、在窗体设计视图中设计窗体.pptVIP

5.4、在窗体设计视图中设计窗体 窗体上还有一些控件不与数据源相关联，或者以更复杂的方式联接于数据源中的记录。另外，有些控件还必须能够处理一些事件，即必须为这些控件的某些事件属性编程。所有这些需求都必须在窗体设计视图中进行相应的设计操作方能实现。 本节介绍窗体设计视图中的操作方法，并以前面使用向导创建的窗体为基础，介绍如何在窗体设计视图中完成“商品进货数据录入”窗体与“商品上柜数据录入”窗体的设计。 5.4、在窗体设计视图中设计窗体 5.4.1、完成“商品进货数据录入”窗体的设计 “商品上柜数据录入”窗体是一个源于多重数据集的窗体，在5.1.5节我们已经使用窗体向导创建了“商品上柜数据录入”窗体的基本形式，图5-17所示为该窗体创建操作完毕时的形式。那个形式并不是所需要的完整窗体，最终的“商品上柜数据录入”窗体形式应该如图5-33所示。 图5-33、“商品上柜数据录入”窗体设计视图 对照图5-33所示的形式，首先须修改子窗体的数据显示内容，使其增加一个显示字段“柜存金额”。其操作方法是，打开“柜存数据子窗体”的窗体设计视图，依照5.4.1节介绍的为“商品进货数据录入”窗体增加“库存金额”字段的第二种办法完成所需操作。即，“柜存数据子窗体”记录源属性行为一条SQL语句： SELECT DISTINCTROW 柜存数据记录.货号, 柜存数据记录.货名, 柜存数据记录.规格, 柜存数据记录.计量单位, 柜存数据记录.销售单价, 柜存数据记录.柜存数量, [柜存数据记录]![销售单价]*[柜存数据记录]![柜存数量] AS 柜存金额, 柜存数据记录.上柜日期, 柜存数据记录.上柜人, 柜存数据记录.营业员 FROM 柜存数据记录; 完成“柜存数据子窗体”的数据显示内容后，保存它。然后打开“商品上柜数据录入”窗体设计视图，调整窗体上已经设置了的各个控件位置与尺寸，最后还需在窗体上添加一些控件。 1．添加一个标签控件作为窗体标题 该控件位于窗体页眉上部正中，标题属性值为“商品上柜数据录入操作”，前景颜色属性值为红色，字体大小属性值为14。 2．添加两个文本框控件放在窗体页脚中 各自的放置位置以及伴随标签的“标题”属性值见图5-33，均为非结合型文本框（图中显示为未绑定）。 3．添加三个命令按钮控件（“退出”、“查阅商品库存数据记录”和“保存数据”按钮） 各自的放置位置见图中。其中，“退出”命令按钮控件的单击事件属性为一段VBA程序代码。这段代码由命令按钮向导生成，并已在5.3.4小节中介绍过了。 “查阅商品库存数据记录”命令按钮控件的单击事件属性也是一段VBA程序代码，也可以由命令按钮向导生成，与“退出”命令按钮控件的单击事件不同之处在于：这一段VBA程序代码为打开一个名为“商品库存数据查询”的窗体。请读者根据5.3.4节所介绍的方法，自行确定如何利用命令按钮向导生成如下这一段程序。 Private Sub 命令63_Click() On Error GoTo Err_命令63_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = 商品库存数据查询 DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_命令63_Click: Exit Sub Err_命令63_Click: MsgBox Err.Description Resume Exit_命令63_Click End Sub “保存数据”命令按钮控件的单击事件属性也是一段VBA程序代码，但是这段代码不能由命令按钮向导生成，应该在命令按钮向导对话框出现时，单击“取消”按钮。然后，在其“单击”事件属性行右端单击“代码生成器”按钮“”，进入VBA代码编辑窗口，输入下列程序代码。这段程序将使用从键盘输入的上柜数据修改原有库存数据中与之相关的记录。 Private Sub Command35_Click() On Error GoTo Err_Command35_Click Me![柜存数据记录子窗体].SetFocus DoCmd.FindRecord Me![Text19], , True, , True If Me![柜存数据记录子窗体]![货号] Me![Text19] Then DoCmd.GoToRecord , , acNewRec Me![柜存数据记录子窗体]![柜存数量] = 0 End If Me![柜存数据记