在平台中点击新建按钮打开新建窗体,点击编辑按钮打开编辑窗体。
很多时候,新建窗体与编辑窗体的结构一模一样。但是平台中必须建立_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