预览加载中,请您耐心等待几秒...
1/10
2/10
3/10
4/10
5/10
6/10
7/10
8/10
9/10
10/10

亲,该文档总共35页,到这已经超出免费预览范围,如果喜欢就直接下载吧~

如果您无法下载资料,请参考说明:

1、部分资料下载需要金币,请确保您的账户上有足够的金币

2、已购买过的文档,再次下载不重复扣费

3、资料包下载后请先用软件解压,在使用对应软件打开

5.4、在窗体设计视图中设计窗体5.4、在窗体设计视图中设计窗体5.4.1、完成“商品进货数据录入”窗体的设计图5-33、“商品上柜数据录入”窗体设计视图对照图5-33所示的形式,首先须修改子窗体的数据显示内容,使其增加一个显示字段“柜存金额”。其操作方法是,打开“柜存数据子窗体”的窗体设计视图,依照5.4.1节介绍的为“商品进货数据录入”窗体增加“库存金额”字段的第二种办法完成所需操作。即,“柜存数据子窗体”记录源属性行为一条SQL语句: SELECTDISTINCTROW柜存数据记录.货号,柜存数据记录.货名,柜存数据记录.规格, 柜存数据记录.计量单位,柜存数据记录.销售单价,柜存数据记录.柜存数量, [柜存数据记录]![销售单价]*[柜存数据记录]![柜存数量]AS柜存金额, 柜存数据记录.上柜日期,柜存数据记录.上柜人,柜存数据记录.营业员 FROM柜存数据记录;完成“柜存数据子窗体”的数据显示内容后,保存它。然后打开“商品上柜数据录入”窗体设计视图,调整窗体上已经设置了的各个控件位置与尺寸,最后还需在窗体上添加一些控件。 1.添加一个标签控件作为窗体标题 该控件位于窗体页眉上部正中,标题属性值为“商品上柜数据录入操作”,前景颜色属性值为红色,字体大小属性值为14。 2.添加两个文本框控件放在窗体页脚中 各自的放置位置以及伴随标签的“标题”属性值见图5-33,均为非结合型文本框(图中显示为未绑定)。3.添加三个命令按钮控件(“退出”、“查阅商品库存数据记录”和“保存数据”按钮) 各自的放置位置见图中。其中,“退出”命令按钮控件的单击事件属性为一段VBA程序代码。这段代码由命令按钮向导生成,并已在5.3.4小节中介绍过了。 “查阅商品库存数据记录”命令按钮控件的单击事件属性也是一段VBA程序代码,也可以由命令按钮向导生成,与“退出”命令按钮控件的单击事件不同之处在于:这一段VBA程序代码为打开一个名为“商品库存数据查询”的窗体。请读者根据5.3.4节所介绍的方法,自行确定如何利用命令按钮向导生成如下这一段程序。PrivateSub命令63_Click() OnErrorGoToErr_命令63_Click DimstDocNameAsString DimstLinkCriteriaAsString stDocName="商品库存数据查询" DoCmd.OpenFormstDocName,,,stLinkCriteria Exit_命令63_Click: ExitSub Err_命令63_Click: MsgBoxErr.Description ResumeExit_命令63_Click EndSub“保存数据”命令按钮控件的单击事件属性也是一段VBA程序代码,但是这段代码不能由命令按钮向导生成,应该在命令按钮向导对话框出现时,单击“取消”按钮。然后,在其“单击”事件属性行右端单击“代码生成器”按钮“”,进入VBA代码编辑窗口,输入下列程序代码。这段程序将使用从键盘输入的上柜数据修改原有库存数据中与之相关的记录。PrivateSubCommand35_Click() OnErrorGoToErr_Command35_Click Me![柜存数据记录子窗体].SetFocus DoCmd.FindRecordMe![Text19],,True,,True IfMe![柜存数据记录子窗体]![货号]<>Me![Text19]Then DoCmd.GoToRecord,,acNewRec Me![柜存数据记录子窗体]![柜存数量]=0 EndIfMe![柜存数据记录子窗体]![货号]=Me![Text19] Me![柜存数据记录子窗体]![货名]=Me![Text21] Me![柜存数据记录子窗体]![规格]=Me![规格] Me![柜存数据记录子窗体]![计量单位]=Me![计量单位] Me![柜存数据记录子窗体]![销售单价]=Me![Text25] Me![柜存数据记录子窗体]![柜存数量]=Me![Text27]+Me![柜存数据记录子窗体]![柜存数量] Me![柜存数据记录子窗体]![上柜日期]=Me![Text29] Me![柜存数据记录子窗体]![营业员]=Me![Combo45] Me![柜存数据记录子窗体]![上柜人]=Me![Combo58] Me![Text52]=Me![Text52]+Me![Text27] Me![Text54]=Me![Text54]+Me![Text27]*Me![Text25] Me![库存数量]=Me![库存数量]-Me![Text27] DoCmd.DoMenuItemacFormBar,acRecordsMenu,acSaveRecord,,acMenuVer70 Me