合并新建窗体与编辑窗体

时　间:2013-04-06 14:41:30
作　者:Aaron   ID：20267  城市：闵行
摘　要:在平台中点击新建按钮打开新建窗体，点击编辑按钮打开编辑窗体。
正　文:

在平台中点击新建按钮打开新建窗体，点击编辑按钮打开编辑窗体。

很多时候，新建窗体与编辑窗体的结构一模一样。但是平台中必须建立_Edit与_Add的两个窗体。

不仅增加了软件的体积，也降低了效率。现将平台按钮的功能改造一下，将两个窗体合并。

（1）在模块中添加如下代码

'//合并新建按钮与编辑按钮
Public Enum OperationMode
    usysAddForm = 1
    usysEditForm = 2
    usysSearchForm = 3
End Enum
Public gOperationMode As OperationMode

（2）修改usysmain窗体

////////////////////////////////////////////////////////////////////////
'///////////
'//函数名：通用添加按钮
'//编写者：修改自系统
'//参考资料：
'//功能：打开新建窗体
'//输入参数：
'//输出参数：
'//备注：
'///////////
'////////////////////////////////////////////////////////////////////////
Private Sub cmd1_Click()
'//如果新建立窗体与编辑窗体一样，就直接调用编辑窗体，这样可以大大减小系统的体积
    On Error GoTo cmd1_Err
    Dim strForm As String
    Dim frmCommon As Object
    Dim blnHaveNew As Boolean
    strForm = Me.frmChild.Form.Name
    For Each frmCommon In CurrentProject.AllForms
        '//存在单独的新建窗体
        If UCase(strForm & "_add") = (UCase(frmCommon.Name)) Then
            blnHaveNew = True
            gOperationMode = usysAddForm
            Call Acchelp_cmdClick(1)
            GoTo NewButtonEnd
        End If
    Next
    '//如果没有单独的新建窗体，就打开编辑窗体
    '//然后在编辑窗体中进行决断是新建打开的，还是编辑打开的
    If blnHaveNew = False Then
        gOperationMode = usysEditForm
        Call Acchelp_cmdClick(2)
    End If
NewButtonEnd:
    Exit Sub
cmd1_Err:
    MsgBox Err.Number & Err.Description, vbCritical, "[usysMain_AddButton]"
End Sub