（物流业务系统）.ppt

设计系统的菜单前先设计宏，设计调用各功能的宏，我们把全部宏设计为一组，以宏名“菜单”保存，见图8-39。 仓储管理系统系统启动后显示菜单如下图8-40所示。 图8-39 宏 图8-40 仓储管理系统系统启动菜单 8.6 系统的调试与安装 8.6.1 升迁到SQL SERSERVER 打开Access升迁向导完成升迁工作，如图8-41所示。 图8-41 升迁向导 8.6.2 调试运行 8.6.3 打包、制做安装程序 8.6.4 使用说明、发布软件 Private Sub Form_Current() 如果照片存在，显示当前记录雇员的照片． 如果照片文件不存在,或文件名为空，在错误信息 标签上显示适当的信息． Dim res As Boolean Dim fName As String path = CurrentProject.path On Error Resume Next 错误信息.Visible = False If Not IsNull(Me!照片) Then res = IsRelative(Me!照片) fName = Me![照片路径] If (res = True) Then fName = path \ fName End If Me![照片图像].Picture = fName showImageFrame Me.PaintPalette = Me![照片图像].ObjectPalette If (Me![照片图像].Picture fName) Then hideImageFrame 错误信息.Caption = 照片未找到。 错误信息.Visible = True End If Else hideImageFrame 错误信息.Caption = 单击“添加/删除”按钮，添加照片。 错误信息.Visible = True End If End Sub Private Sub Form_RecordExit(Cancel As Integer) 在不同的记录间切换时，隐藏错误信息标签，以减少闪烁． 错误信息.Visible = False End Sub Private Sub 删除照片_Click() 清雇员记录的照片文件名，并显示错误信息标签． Me![照片路径] = hideImageFrame Me![照片图像].Picture = 错误信息.Visible = True End Sub Private Sub 添加照片_Click() 使用 Office 文件打开对话框，获取一个雇员照片的文件名 getFileName End Sub Private Sub 照片路径_AfterUpdate() 在选择了一个雇员照片后，显示照片． On Error Resume Next showErrorMessage showImageFrame If (IsRelative(Me!照片路径) = True) Then Me![照片图像].Picture = path Me![照片路径] Else Me![照片图像].Picture = Me![照片路径] End If End Sub 8.4.2 输出设计——报表设计 1)客户标签 客户标签用于打印信件，把客户标签打印到不干胶纸上，然后贴到信封上。客户标签报表见图8-36。 图8-35客户标签报表 2)库存台账报表 库存台账报表见图8-37。 图8-37 库存台账报表设计视图 8.5 查询设计、程序模块设计与菜单设计 8.5.1 查询设计 对于使用频率高的固定方式查询，如按客户查询库存数据见图8-38，为了节省用户的时间，可以设计单独的查询程序。 图8-38 按客户查询库存窗体 ‘查询代码 Private Sub Comb