第四章 Access 2003：6.4、窗体对象程序模块代码设计.pptVIP

6.4 窗体对象程序模块代码设计 6.4.1 “商品进货数据录入”窗体程序模块设计 首先进入“商品进货数据录入”窗体设计视图。根据我们在6.1节的分析，需要在这个设计视图中，完成三段程序设计。 1．标签为“进货货号”的文本框数据更新事件处理 在“商品进货数据录入”窗体设计视图中，选定标签为“进货货号”的文本框，假定该文本框控件“名称”属性值为“Text19”。调出属性对话框，选定“事件”卡，在“更新后”事件行右侧单击“生成器”按钮“”。在随即出现的“选择生成器”对话框中，选中“代码生成器”选项，然后单击“确定”按钮，进入VBE编程环境，如图6-3所示。 然后，应该在代码窗口中输入如下程序代码，编写完成后关闭VBE，返回窗体设计视图。 Private Sub Text19_AfterUpdate() Me![货号].SetFocus DoCmd.FindRecord Me![Text19], , True, , True If Me![货号] Me![Text19] Then If MsgBox(增加一种新商品？, vbOKCancel, 请确定！) = vbOK Then DoCmd.GoToRecord , , acNewRec Me![货号] = Me![Text19] Me![库存数量] = 0 Else Exit Sub End If End If Me![Text21] = Me![货名] Me![text78] = Me![规格] Me![text80] = Me![计量单位] Me![Text25] = Me![进货单价] Me![Text27] = 0 Me.Refresh End Sub 表6-12 “商品进货数据录入”窗体中控件名称属性表 2．“保存记录”命令按钮单击事件处理 在“商品进货数据录入”窗体设计视图中，选定“保存记录”命令按钮，假定该命令按钮控件“名称”属性值为“Command35”。调出属性对话框，选定“事件”卡，在“更新后”事件行右侧单击“生成器”按钮“”。在随即出现的“选择生成器”对话框中，选中“代码生成器”选项，然后单击“确定”按钮“”，进入VBE编程环境。 然后，在VBE代码窗口中输入如下程序代码，编写完成后关闭VBE，返回窗体设计视图。 Private Sub Command35_Click() Me![货名] = Me![Text21] Me![规格] = Me![text78] Me![计量单位] = Me![text80] Me![库存数量] = Me![库存数量] + Me![Text27] Me![进货单价] = Me![Text25] Me![收货人] = Me![Combo41] Me![供货商] = Me![Combo45] Me![进货日期] = Me![Text29] DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 Me.Refresh End Sub 3．“退出”命令按钮单击事件处理 在“商品进货数据录入”窗体设计视图中，选定“退出”命令按钮，假定该命令按钮控件“名称”属性值为“Command47”。调出属性对话框，选定“事件”卡，在“更新后”事件行右侧单击“生成器”按钮，即可直接进入VBE编程环境。这是由于在第5章创建该命令按钮控件时，我们在Access 2003向导的引领下完成了这个命令按钮功能设定：关闭本窗体。 然后，在VBE代码窗口中可以看到如下程序代码，无须加以改动即可关闭VBE，返回窗体设计视图。 Private Sub Command47_Click() On Error GoTo Err_Command47_Click DoCmd.Close Exit_Command47_Click: Exit Sub Err_Command47_Click: MsgBox Err.Description Resume Exit_Command47_Click End Sub 6.4.2 “商品上柜数据录入”窗体程序模块设计 首先进入“商品上柜数据录入”窗体设计视图。根据我们在6.1节的分析，需要在这个设计视图中，完成四段程序设计。 1．标签为“商品货号”的文本框数据更新事件处理 Private Sub Text19_