mainform.frm

物流管理系统

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