物流管理系统

				VERSION 5.00
				Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
				Begin VB.MDIForm MainForm 
				   BackColor       =   &H8000000C&
				   ClientHeight    =   6795
				   ClientLeft      =   165
				   ClientTop       =   855
				   ClientWidth     =   10995
				   Icon            =   "MainForm.frx":0000
				   LinkTopic       =   "MDIForm1"
				   StartUpPosition =   3  '窗口缺省
				   WindowState     =   2  'Maximized
				   Begin MSComctlLib.StatusBar StatusBar1 
				      Align           =   2  'Align Bottom
				      Height          =   375
				      Left            =   0
				      TabIndex        =   0
				      Top             =   6420
				      Width           =   10995
				      _ExtentX        =   19394
				      _ExtentY        =   661
				      _Version        =   393216
				      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
				         NumPanels       =   1
				         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
				         EndProperty
				      EndProperty
				   End
				   Begin VB.Menu TrafficMange 
				      Caption         =   "运单管理"
				      NegotiatePosition=   1  'Left
				      Begin VB.Menu TrafficAdd 
				         Caption         =   "新增运单"
				      End
				      Begin VB.Menu TrafficView 
				         Caption         =   "查看运单"
				      End
				   End
				   Begin VB.Menu ClientManage 
				      Caption         =   "客户管理"
				      Begin VB.Menu ClientAdd 
				         Caption         =   "新增客户"
				      End
				      Begin VB.Menu ClientQuery 
				         Caption         =   "查看客户"
				      End
				   End
				   Begin VB.Menu BalanceManage 
				      Caption         =   "结算管理"
				      Begin VB.Menu ParticularPrint 
				         Caption         =   "详单打印"
				      End
				      Begin VB.Menu ReportPrint 
				         Caption         =   "汇总结算"
				      End
				   End
				   Begin VB.Menu sysManage 
				      Caption         =   "系统管理"
				      Begin VB.Menu StationManage 
				         Caption         =   "车站管理"
				      End
				      Begin VB.Menu ProductManage 
				         Caption         =   "品名管理"
				      End
				      Begin VB.Menu ChangePassWord 
				         Caption         =   "更改密码"
				      End
				   End
				   Begin VB.Menu ExitSystem 
				      Caption         =   "退出系统"
				   End
				End
				Attribute VB_Name = "MainForm"
				Attribute VB_GlobalNameSpace = False
				Attribute VB_Creatable = False
				Attribute VB_PredeclaredId = True
				Attribute VB_Exposed = False
				Private Sub ChangePassWord_Click()
				
				    frmChangePassword.Show
				End Sub
				
				Private Sub ClientAdd_Click()
				
				    frmClientAdd.Show
				End Sub
				
				Private Sub ClientQuery_Click()
				
				    frmClient.Show
				End Sub
				
				Private Sub ExitSystem_Click()
				
				    Dim MyVar
				    MyVar = MsgBox("确认退出？", vbOKCancel, "信息提示")
				    If MyVar = vbOK Then
				        End
				    End If
				End Sub
				
				Private Sub MDIForm_Load()
				
				    MainForm.Caption = "欢迎使用物流管理系统"
				    MainForm.Left = Screen.Width * 0.1
				    MainForm.Top = Screen.Height * 0.1
				    MainForm.Width = Screen.Width * 0.8
				    MainForm.Height = Screen.Height * 0.8
				End Sub
				
				
				Private Sub MDIForm_Unload(Cancel As Integer)
				    
				    '关闭所有窗体
				    Unload frmBillManage
				    Unload frmChangePassword
				    Unload frmClient
				    Unload frmClientAdd
				    Unload frmClientUpdate
				    Unload frmLogin
				    Unload frmProduct
				    Unload frmQuery
				    Unload frmReport
				    Unload frmStation
				    Unload frmTraffic
				    Unload frmTrafficAdd
				    Unload frmTrafficUpdate
				End Sub
				
				Private Sub ParticularPrint_Click()
				    frmBillManage.Show
				End Sub
				
				Private Sub ProductManage_Click()
				
				    frmProduct.Show
				End Sub
				
				Private Sub ReportPrint_Click()
				    frmReport.Show
				End Sub
				
				Private Sub StationManage_Click()
				
				    frmStation.Show
				End Sub
				
				Private Sub TrafficAdd_Click()
				
				    frmTrafficAdd.Show
				End Sub
				
				
				Private Sub TrafficView_Click()
				
				    frmTraffic.Show
				End Sub