<output id="os3gq"><ruby id="os3gq"></ruby></output>

    1. <mark id="os3gq"></mark>
    2. 教程進銷存管理系統中的主頁面的6種單據打開的方法-Victor Duane
      Access軟件網QQ交流學習群(群號碼198465573),歡迎您的加入!
      首頁 >技術文章> Access開發平臺


      教程進銷存管理系統中的主頁面的6種單據打開的方法

      發表時間:2017/6/13 19:56:40 評論(0) 瀏覽(3931)  評論 | 加入收藏 | 復制
         
      摘 要:該功能可在主頁打開指定的單據類型,并使只有在退出窗體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

      文章分類

      文章存檔

      友情鏈接
       
         
      湖北11选5