main.frm

一个动态调度的软件

VERSION 5.00
Begin VB.MDIForm Main 
   BackColor       =   &H8000000C&
   Caption         =   "MDIForm1"
   ClientHeight    =   3150
   ClientLeft      =   165
   ClientTop       =   1395
   ClientWidth     =   4680
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  'Windows Default
   Begin VB.Menu s_main 
      Caption         =   "系统维护"
      Begin VB.Menu s_set 
         Caption         =   "系统设置"
      End
      Begin VB.Menu s_people 
         Caption         =   "用户管理 "
      End
   End
   Begin VB.Menu checking 
      Caption         =   "托运登记"
   End
   Begin VB.Menu scheduling 
      Caption         =   "调度方案制定"
   End
   Begin VB.Menu online 
      Caption         =   "在线调度调整"
   End
   Begin VB.Menu cargotrack 
      Caption         =   "货物跟踪"
   End
   Begin VB.Menu accident 
      Caption         =   "事故登记"
   End
   Begin VB.Menu baseinfo 
      Caption         =   "基本信息维护"
      Begin VB.Menu b_business 
         Caption         =   "企业信息"
      End
      Begin VB.Menu b_veh 
         Caption         =   "车辆信息"
      End
      Begin VB.Menu b_cargo 
         Caption         =   "货物信息"
      End
      Begin VB.Menu b_customer 
         Caption         =   "客户信息 "
      End
      Begin VB.Menu b_vcost 
         Caption         =   "车辆调配成本"
      End
      Begin VB.Menu b_falcost 
         Caption         =   "任务损失成本"
      End
      Begin VB.Menu b_netmain 
         Caption         =   "网络图维护"
      End
   End
   Begin VB.Menu v_maincost 
      Caption         =   "车辆养护费用维护"
      Begin VB.Menu v_mix 
         Caption         =   "车辆维修费用"
      End
      Begin VB.Menu v_maintain 
         Caption         =   "车辆保养费用"
      End
      Begin VB.Menu v_insure 
         Caption         =   "车辆保险"
      End
      Begin VB.Menu v_route 
         Caption         =   "车辆养路费"
      End
      Begin VB.Menu v_months 
         Caption         =   "车辆季审"
      End
      Begin VB.Menu v_year 
         Caption         =   "车辆年审"
      End
   End
   Begin VB.Menu queryinfo 
      Caption         =   "查询"
      Begin VB.Menu q_carveh 
         Caption         =   "出车记录"
      End
      Begin VB.Menu q_cargo 
         Caption         =   "任务情况"
         Begin VB.Menu q_car_com 
            Caption         =   "任务完成情况"
         End
         Begin VB.Menu q_car_fal 
            Caption         =   "任务失败情况"
         End
      End
      Begin VB.Menu q_veh 
         Caption         =   "车辆情况"
      End
      Begin VB.Menu q_cost 
         Caption         =   "运营成本"
      End
      Begin VB.Menu q_accident 
         Caption         =   "事故情况"
      End
   End
   Begin VB.Menu datamain 
      Caption         =   "数据维护"
      Begin VB.Menu d_backup 
         Caption         =   "备份数据库"
      End
      Begin VB.Menu d_resume 
         Caption         =   "还原数据库"
      End
      Begin VB.Menu d_compress 
         Caption         =   "压缩数据库"
      End
   End
   Begin VB.Menu windows 
      Caption         =   "窗口"
      Begin VB.Menu w_h 
         Caption         =   "水平排列"
      End
      Begin VB.Menu w_v 
         Caption         =   "垂直排列"
      End
      Begin VB.Menu v_allmin 
         Caption         =   "全部最小化"
      End
   End
   Begin VB.Menu help 
      Caption         =   "帮助"
      Begin VB.Menu h_about 
         Caption         =   "关于"
      End
      Begin VB.Menu h_text 
         Caption         =   "帮助文件"
      End
   End
End
Attribute VB_Name = "Main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub b_netmain_Click()
  net.Show
End Sub

Private Sub checking_Click()
  mission.Show
End Sub

Private Sub MDIForm_Load()
  Call connect_db           '打开数据库
End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
  Call close_db
End Sub