物流业务系统.pptVIP

Me![照片图像].Picture=fNameshowImageFrameMe.PaintPalette=Me![照片图像].ObjectPaletteIf(Me![照片图像].PicturefName)ThenhideImageFrame错误信息.Caption=照片未找到。错误信息.Visible=TrueEndIfElsehideImageFrame错误信息.Caption=单击“添加/删除”按钮，添加照片。错误信息.Visible=TrueEndIfEndSub1)入库单查询单视图SELECT入库单.入库单编号,客户.公司名称,入库单.验收日期,入库单.提交申请日期,入库单.申请入库日期FROM客户INNERJOIN入库单ON客户.客户ID=入库单.客户;2)各类产品视图SELECT类别.类别名称,产品.产品名称,产品.包装单位,产品.中止FROM类别INNERJOIN产品ON类别.类别ID=产品.类别IDWHERE(((产品.中止)=No))ORDERBY类别.类别名称,产品.产品名称;各类产品视图运行的结果如下图8-27所示。图8-27各类产品视图运行的结果8.4输入设计——窗体设计与输出设计——报表设计8.4.1输入设计——窗体设计1)客户窗体客户窗体用于输入客户信息，其设计视图如下图8-28所示。图8-28客户窗体2）入库单窗体入库单窗体运行视图如图8-29，设计视图如图8-30所示。图8-29入库单窗体运行视图图8-30入库单窗体设计视图3)出库单窗体出库单窗体用于输入出库单，也用于修改出库单和出库单查询。出库单窗体运行视图见图8-31所示。图8-31出库单窗体运行视图4)调储单窗体调储单窗体用于输入调储单。调储单窗体运行视图见图8-32。图8-32调储单窗体运行视图5）仓库窗体仓库窗体用于输入仓库信息，也用于显示查询仓库的信息。仓库窗体运行视图见图8-33。图8-33仓库窗体窗体运行视图6）产品窗体产品窗体用于输入产品信息，也用于显示查询产品的信息。产品窗体窗体运行视图见图8-34。图8-34产品窗体运行视图7）系统用户窗体系统用户窗体用于输入本企业的雇员，也用于显示查询雇员的信息。系统用户窗体运行视图见图8-35。图8-35系统用户窗体运行视图系统用户窗体中的程序如下：OptionCompareDatabaseOptionExplicitDimpathAsStringSubgetFileName()显示一个Office打开文件对话框，为当前的雇员记录选择一个文件名．如果用户选择了一个文件，则将它显示到图片控件中DimfileNameAsStringDimresultAsIntegerWithApplication.FileDialog(msoFileDialogFilePicker).Title=选择雇员照片.Filters.Add所有文件,*.*.Filters.AddJPEGs,*.jpg.Filters.Add位图文件,*.bmp.FilterIndex=3.AllowMultiSelect=False.InitialFileName=CurrentProject.pathresult=.ShowIf(result0)ThenfileName=Trim(.SelectedI