武汉工业学院：《Access及其应用系统开发》第六章（6-4） 窗体对象程序模块代码设计

64窗体对象程序模块代码设计 学习了ⅤBE编程环境,掌握了VBA程序设 计基础,就应该通过实际的编程实践来完成 “零售商店管理信息系统”数据库中三个主 要窗体对象的功能实现了 06441“商品进货数据录入”窗 体程序模块设计 0642“商品上柜数据录入”窗 体程序模块设计 64.3“销售数据录入”窗体程 序模块设计 返回

6.4 窗体对象程序模块代码设计 6.4.1 “商品进货数据录入”窗 体程序模块设计 6.4.2 “商品上柜数据录入”窗 体程序模块设计 6.4.3 “销售数据录入”窗体程 序模块设计 学习了VBE编程环境，掌握了VBA程序设 计基础，就应该通过实际的编程实践来完成 “零售商店管理信息系统”数据库中三个主 要窗体对象的功能实现了。 返回

4.1“商品进货数据录入”窗体程序模块设 首先进入“商品进货数据录入”窗体设计 视图。根据我们在6.1节的分析,需要在 这个设计视图中,完成三段程序设计

6.4.1 “商品进货数据录入”窗体程序模块设 计 首先进入“商品进货数据录入”窗体设计 视图。根据我们在6.1节的分析，需要在 这个设计视图中，完成三段程序设计

标签为“进货货号”的文本框数据更新事件 处理 Q在“商品进货数据录入”窗体设计视图中, 选定标签为“进货货号”的文本框,假定 该文本框控件“名称”属性值为 “Text19。调出属性对话框,选定“事 件”卡,在“更新后”事件行右侧单击 “生成器”按钮“”。在随即出现的“选 择生成器”对话框中,选中“代码生成器” 选项,然后单击“确定”按钮,进入BE 编程环境,如图6-3所示。 然后,应该在代码窗口中输入如下程序代 码,编写完成后关闭VBE,返回窗体设计 视图

在“商品进货数据录入”窗体设计视图中， 选定标签为“进货货号”的文本框，假定 该文本框控件“名称”属性值为 “Text19”。调出属性对话框，选定“事 件”卡，在“更新后”事件行右侧单击 “生成器”按钮“”。在随即出现的“选 择生成器”对话框中，选中“代码生成器” 选项，然后单击“确定”按钮，进入VBE 编程环境，如图6-3所示。 然后，应该在代码窗口中输入如下程序代 码，编写完成后关闭VBE，返回窗体设计 视图。 1．标签为“进货货号”的文本框数据更新事件 处理

Private Sub Text19 After Update( Ne号] Setfocus DoCmd Find Record Me![Text191, True,,True e[货号]Mel![Text19]Then Isg Box("增加一种新商品?", vboK Cancel,"请确定!")= vboK Then DoCmd Go ToRecord,, acNewRec Me[货号]= Me![TextI9 M[库存数量]=0 Else Exit Sub End If End If Me!rext21]=Me!货名 Mel! Itext78]=Me![规格] Me![text80]=Me!计量单位] Me![Text25]=Me!进货单价] Me! [Text27=0 Me. Refresh End sub

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“商品进货数据录入”窗体中控件名称属性表 控件名称 伴随标签控件标题 Command35“保存记录 Text19 货号” Text78 “规格” Text21 进货货名” Text25 “进货单价” Text27 “进货数量” Text29 “进货日期” Combo 1 “收货人” Combo45 供货商

表6-12 “商品进货数据录入”窗体中控件名称属性表 控件名称 伴随标签控件标题 Command35 “保存记录” Text19 “货号” Text78 “规格” Text21 “进货货名” Text25 “进货单价” Text27 “进货数量” Text29 “进货日期” Combo41 “收货人” Combo45 “供货商

2.“保存记录”命令按钮单击事件处理 在“商品进货数据录入”窗体设计视图中 选定“保存记录”命令按钮,假定该命令 按钮控件“名称”属性值为 “ Command353。调出属性对话框,选定 “事件”卡,在“更新后”事件行右侧单 击“生成器”按钮“”。在随即出现的 “选择生成器”对话框中,选中“代码生 成器”选项,然后单击“确定”按钮“” 进入VBE编程环境。 ◆然后,在VBE代码窗口中输入如下程序代 码,编写完成后关闭ⅤBE,返回窗体设计 视图

 在“商品进货数据录入”窗体设计视图中， 选定“保存记录”命令按钮，假定该命令 按钮控件“名称”属性值为 “Command35”。调出属性对话框，选定 “事件”卡，在“更新后”事件行右侧单 击“生成器”按钮“”。在随即出现的 “选择生成器”对话框中，选中“代码生 成器”选项，然后单击“确定”按钮“”， 进入VBE编程环境。  然后，在VBE代码窗口中输入如下程序代 码，编写完成后关闭VBE，返回窗体设计 视图。 2．“保存记录”命令按钮单击事件处理

Private Sub Command35 Click( Me![货名]=Mel[Text21 Me![规格]=Me![text78] Me![计量单位]= Me!texts80] Me![库存数量]=Me库存数量]+ Me![Text271 Me![进货单价]= Me![Tex25 Me[收货人]=Me! Combo4 Me供货商]=Me![ Combo45] Me![进货日期]= Me![Text229 DoCmd. Domenultem ac Formal ac RecordsMenu. ac SaveRecord. acMenu Ver 70 Me. Refresh ◆ End sub

 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章创建该命令按钮控件时,我们在 Access2003向导的引领下完成了这个命令 按钮功能设定:关闭本窗体 然后,在VBE代码窗口中可以看到如下程 序代码,无须加以改动即可关闭VBE,返 回窗体设计视图

 在“商品进货数据录入”窗体设计视图中， 选定“退出”命令按钮，假定该命令按钮 控件“名称”属性值为“Command47”。调 出属性对话框，选定“事件”卡，在“更 新后”事件行右侧单击“生成器”按钮， 即可直接进入VBE编程环境。这是由于在 第5章创建该命令按钮控件时，我们在 Access 2003向导的引领下完成了这个命令 按钮功能设定：关闭本窗体。  然后，在VBE代码窗口中可以看到如下程 序代码，无须加以改动即可关闭VBE，返 回窗体设计视图。 3．“退出”命令按钮单击事件处理

Private Sub Command47 Click( ◆ On Error goto Err Command 4 7 Click DoCmd. Close t Exit Command 7 Click Exit sub ◆ Err Command47 Click: Msg Box Err. Description Resume exit command 7 Click ◆ End sub

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

642“商品上柜数据录入”窗体程序模块设 计 首先进入“商品上柜数据录入”窗体 设计视图。根据我们在6.1节的分析, 需要在这个设计视图中,完成四段 程序设计

首先进入“商品上柜数据录入”窗体 设计视图。根据我们在6.1节的分析， 需要在这个设计视图中，完成四段 程序设计。 6.4.2 “商品上柜数据录入”窗体程序模块设 计