盟威软件快速开发平台 教程(十七)

时　间:2013-01-05 15:57:48
作　者:竹笛   ID：8  城市：上海  QQ：2851379730
摘　要:盟威软件快速开发平台(Access版)教程-报销软件案例
 
正　文:

     在代码光标处输入以下代码： DoCmd.Close ，如下图7-46所示：
    
                                           图7-46 设计切换窗体(17)

     输入之后保存，并关闭代码输入页面，关闭【取消】的控件属性窗口。
     打开【确定】按钮的属性，将“其它”选项卡的名称修改为 cmdOK ，如下图所示： 
    
                                               图7-47 设计切换窗体(18)

    之后切换到“事件”选项卡，在“单击”项选择：[事件过程]，单击“单击”事件右边的“…”按钮，进入单击事件的代码编辑页面，如下图7-48所示：
   
                                                图7-48 设计切换窗体(19)

     在cmdOK单击事件中输入以下代码：

Select Case Me.sRpt
    Case 1
        '预览报表 - 按报销类别
        DoCmd.OpenReport "rptBxmx", acViewPreview, , g_strWhere
    Case 2
        '预览报表 - 按员工姓名
        DoCmd.OpenReport "rptBxmxYg", acViewPreview, , g_strWhere
    End Select
DoCmd.Close acForm, "frmRptSelect"

     代码输入后如下图7-49所示：
    
                                      图7-49 设计切换窗体(20)

     保存输入，之后关闭代码输入界面，并关闭属性对话框，之后按之前所学的方法，调整窗体运行时的实际显示大小，如下图7-50所示：
    
                      图7-50 设计切换窗体(21)

      注意：图7-50看似调整好了，运行时未必一定如此大小，所以需要在调整好外观尺寸后，移动一下某个控件，再保存一下窗体，就会调整成功。
      从图7-49可以看出，在代码的最右边有一个g_strWhere变量条件，这个变量条件是用来根据操作员查询条件显示相应的统计结果，那么该变量条件值从哪里来呢？请接着往下进行学习。
      首先双击模块Module1，在该模块声明一个全局变量g_strWhere，代码如下：
           Public g_strWhere As String
      声明后代码区如下图7-51所示：
     
                                              图7-51 设计切换窗体(22)

       再进入frmBxmx的窗体模块，修改btnPrintPreview事件和btnPrint事件的VBA代码如下：

Public Sub btnPrintPreview_Click()
    On Error GoTo ErrorHandler
'    If ObjectExists(acReport, "rptBxmx") = True Then
'    DoCmd.OpenReport "rptBxmx", acViewPreview, , mclsQuery.WhereSQL
'    End If
    g_strWhere = mclsQuery.WhereSQL
    DoCmd.OpenForm "frmRptSelect"
ExitHere:
    Exit Sub
   
ErrorHandler:
    Select Case Err.Number
    Case errOpenActionWasCanceled, errOperationCanceledByUser
    Case Else
        MsgBoxEx Err.Description, vbCritical
    End Select
    Resume ExitHere
End Sub

Public Sub btnPrint_Click()
    On Error GoTo ErrorHandler

    '    DoCmd.OpenReport "rptBxmx", , mclsQuery.WhereSQL
    g_strWhere = mclsQuery.WhereSQL
    DoCmd.OpenForm "frmRptSelect"
ExitHere:
    Exit Sub

ErrorHandler:
    Select Case Err.Number
    Case errOpenActionWasCanceled, errOperationCanceledByUser
    Case Else
        MsgBoxEx Err.Description, vbCritical
    End Select
    Resume ExitHere
End Sub

     代码修改后如下图7-52所示：
    
                                                         图7-52 设计切换窗体(23)

     执行保存，然后关闭VBA代码界面和所有窗体。
     运行SysFrmLogin，以张晓华的账号（用户名：zxh 密码：123456）登录系统，双击导航菜单中的“报销明细”，如下图7-53所示：
    
                                                                 图7-53 设计切换窗体(24)

     单击图7-53中的“打印预览”按钮，就可以看到不同报表的切换效果了，这里不作详述。