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 “供货商