教程进销存管理系统中的主页面的6种单据打开的方法-Victor Duane
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access开发平台


教程进销存管理系统中的主页面的6种单据打开的方法

发表时间:2017/6/13 19:56:40 评论(0) 浏览(1860)  评论 | 加入收藏 | 复制
   
摘 要:该功能可在主页打开指定的单据类型,并使只有在退出窗体frm出入库管理时,单据类型才会退出主页指定打开的单据类型
正 文:

进销存管理系统中的frm主页窗体的代码修改如下:

Function DoMenuCmd(MenuText As String, Optional strArgs As String = "")

    On Error GoTo ErrorHandler
    Dim strMenuID As String
    '用来激活相应的窗口
    strMenuID = Nz(DLookup("ID", "SysLocalNavigationMenus", "MenuText=" & SQLText(MenuText)))
    With Me.Parent!ocxTreeMenu
        Set .SelectedItem = .Nodes("K" & strMenuID)
        Set .DropHighlight = .SelectedItem
        RunMenuCommand Nz(.SelectedItem.Tag), Me.Parent!sfrChild, Me.Parent!lblNodePath
        Forms!sysfrmmain!lblNodePath.Caption = Forms!sysfrmmain!ocxTreeMenu.SelectedItem.FullPath
    End With
    If strArgs <> "" Then
        p_strType = strArgs
        DoCmd.OpenForm "frm出入库管理_Edit"
'        DoCmd.OpenForm "frm出入库管理_单据类型", , , , , , p_strtype
    Else
        p_strType = ""
    End If
ExitHere:
    Exit Function
    
ErrorHandler:
    MsgBoxEx Err.Description, vbCritical
    Resume ExitHere

End Function


在frm出入库管理_单据类型  窗体中的代码如下:

Private Sub btnCancel_Click()
    DoCmd.Close acForm, Me.Name
End Sub


Private Sub btnOK_Click()
    p_strType = Me.lst单据类型
    DoCmd.OpenForm "frm出入库管理_Edit"
    DoCmd.Close acForm, "frm出入库管理_单据类型"
End Sub
          
Private Sub Form_Load()


    If p_strType <> "" Then
        Me.lst单据类型.Value = p_strType
        Me.lst单据类型.Locked = True
    Else
        Me.lst单据类型.Locked = False
    End If
End Sub


Private Sub lst单据类型_DblClick(Cancel As Integer)
    btnOK_Click '即运行确定按钮的单击事件
End Sub


在frm出入库管理  窗体中添加代码如下:

Private Sub Form_Unload(Cancel As Integer)
    p_strType = ""
End Sub

该功能可在主页打开指定的单据类型,该功能可使只有在退出窗体frm出入库管理时,单据类型才会退出主页指定打开的单据类型


Access软件网交流QQ群(群号:198465573)
 
 相关文章
[示例]进销存管理系统  【UMVsoft整理  2009/6/9】
《access数据库开发经典案例解析》:进销存管理系统、人力资源管...  【网行者  2011/4/20】
《仓库进销存ERP管理系统》与《车间ERP管理系统》access学...  【邢金玲  2012/4/19】
【快速开发平台源码作品】--进销存及财务管理系统  【耿云  2015/3/25】
进销存教程--《销售订单管理》部分讲解  【杨雪  2016/1/16】
对进销存主页优化  【MDZZ  2017/3/7】
 
 访客评论
总记录:0篇  页次:0/0 9 1 :
 
 发表评论
评论内容 (必填)

常见问答
技术分类
相关资源
文章搜索
关于作者

Victor Duane

文章分类

文章存档

友情链接