mdipszx.frm

VB的关于物流编程的配送

         Left            =   6120
         Picture         =   "MDIPSZX.frx":1621F
         Top             =   960
         Width           =   1020
      End
      Begin VB.Image Image2 
         Height          =   1020
         Left            =   2520
         Picture         =   "MDIPSZX.frx":19A29
         Top             =   2040
         Width           =   1155
      End
      Begin VB.Image Image1 
         Height          =   6915
         Left            =   10080
         Picture         =   "MDIPSZX.frx":1D80B
         Top             =   4680
         Width           =   9225
      End
   End
   Begin VB.Menu MUNXT 
      Caption         =   "系  统"
      Begin VB.Menu TJYH 
         Caption         =   "添加用户"
      End
      Begin VB.Menu YHXTXG 
         Caption         =   "用户系统修改"
      End
      Begin VB.Menu TC 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu MUNJPXX 
      Caption         =   "基本信息确认"
      Begin VB.Menu PSHPXX 
         Caption         =   "配送货品信息"
      End
      Begin VB.Menu FHD 
         Caption         =   "发货单"
      End
   End
   Begin VB.Menu PSCB 
      Caption         =   "配送成本"
      Begin VB.Menu PSFSJCB 
         Caption         =   "配送方式及成本"
      End
   End
   Begin VB.Menu MUNPSGH 
      Caption         =   "配送规划"
      Begin VB.Menu PSQUHF 
         Caption         =   "配送区域划分"
      End
      Begin VB.Menu PSPCGH 
         Caption         =   "配送批次规划"
      End
      Begin VB.Menu PSPCDD 
         Caption         =   "批次配送调度"
      End
   End
   Begin VB.Menu MUNCXTJ 
      Caption         =   "查询统计"
      Begin VB.Menu DZCQ 
         Caption         =   "到站查询"
      End
      Begin VB.Menu DTXXCX 
         Caption         =   "地图信息查询"
      End
      Begin VB.Menu KHXXCX 
         Caption         =   "客户信息查询"
      End
      Begin VB.Menu SBXXCX 
         Caption         =   "设备信息查询"
      End
      Begin VB.Menu RLZYXXCX 
         Caption         =   "人力资源信息查询"
      End
   End
   Begin VB.Menu MUNXTWH 
      Caption         =   "系统维护"
      Begin VB.Menu DZXTWH 
         Caption         =   "到站系统维护"
      End
      Begin VB.Menu KHXTWH 
         Caption         =   "客户系统维护"
      End
      Begin VB.Menu SBXTWH 
         Caption         =   "设备系统维护"
      End
      Begin VB.Menu RLZYXTWH 
         Caption         =   "人力资源系统维护"
      End
   End
   Begin VB.Menu MUNCLFH 
      Caption         =   "车辆负荷"
      Begin VB.Menu CLXX 
         Caption         =   "车辆信息"
      End
   End
   Begin VB.Menu MUNBZ 
      Caption         =   "帮助"
      Begin VB.Menu RJSM 
         Caption         =   "软件说明"
      End
      Begin VB.Menu GY 
         Caption         =   "关于"
      End
   End
End
Attribute VB_Name = "MDIPSZX"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub MUNHPTZ_Click()

frmHPTZ.Show
End Sub


Private Sub CLQK_Click()

End Sub

Private Sub BZ_Click()
 
  m = ShellExecute(MDIPSZX.hwd, "", "", "", "", 1)
End Sub

Private Sub CLXX_Click()

frmCLXX.Show
End Sub

Private Sub Command1_Click()

End Sub

Private Sub DTXXCX_Click()

frmDTXXCX.Show
End Sub

Private Sub DZCQ_Click()

frmDZCX.Show
End Sub

Private Sub DZXTWH_Click()

frmDZXT.Show
End Sub

Private Sub FHD_Click()
frmFHD.Show
End Sub

Private Sub FlatBttn1_Click()

frmPSHPXX.Show
End Sub

Private Sub FlatBttn10_Click()
Dim x As String
Dim m As Integer
x = "D:\VB程序\Help\Help.chm"
m = ShellExecute(MDIPSZX.hwnd, "", x, "", "", 1)
End Sub

Private Sub FlatBttn2_Click()

frmPSFSJCB.Show
End Sub

Private Sub FlatBttn3_Click()
frmFHD.Show
End Sub

Private Sub FlatBttn4_Click()

frmCLXX.Show
End Sub

Private Sub FlatBttn5_Click()

frmPSPCGH.Show

End Sub

Private Sub FlatBttn6_Click()

frmPSQYHF.Show
End Sub

Private Sub FlatBttn7_Click()

frmPCPSDD.Show
End Sub

Private Sub FlatBttn8_Click()
Dim n
    n = MsgBox("系统在线，退出吗？", vbOKCancel, "提示")
     If n = 1 Then
       Unload Me
     End If
End Sub

Private Sub FlatBttn9_Click()

frmTJYH.Show
End Sub

Private Sub GYRJ_Click()

End Sub

Private Sub GY_Click()
frmGY.Show

End Sub

Private Sub KHXTWH_Click()

frmKHXTWH.Show
End Sub

Private Sub KHXXCX_Click()

frmKHXXCX.Show
End Sub

Private Sub PSFSJCB_Click()

frmPSFSJCB.Show
End Sub

Private Sub PSHPXX_Click()
frmPSHPXX.Show
End Sub

Private Sub PSPCDD_Click()

frmPCPSDD.Show
End Sub

Private Sub PSPCGH_Click()

frmPSPCGH.Show
End Sub

Private Sub PSQUHF_Click()

frmPSQYHF.Show
End Sub

Private Sub RJSM_Click()
Dim x As String
Dim m As Integer
x = "D:\VB程序\Help\Help.chm"
m = ShellExecute(MDIPSZX.hwnd, "", x, "", "", 1)
End Sub

Private Sub RLZYXTWH_Click()

frmRLZYXT.Show
End Sub

Private Sub RLZYXXCX_Click()

frmRLZYXXCX.Show
End Sub

Private Sub SBXTWH_Click()

frmSBXTWH.Show
End Sub

Private Sub SBXXCX_Click()

frmSBXXCX.Show
End Sub

Private Sub TC_Click()
Dim n
    n = MsgBox("系统在线，退出吗？", vbOKCancel, "提示")
     If n = 1 Then
       Unload Me
     End If

End Sub

Private Sub TJYH_Click()

frmTJYH.Show
End Sub

Private Sub YHXTXG_Click()

frmYHXTXG.Show
End Sub