frmmain.frm

一套简易的MIS系统。带SQLServer数据库。供参考。

VERSION 5.00
Begin VB.MDIForm frmMain 
   BackColor       =   &H8000000C&
   Caption         =   "兰洋槽车批发信息管理系统"
   ClientHeight    =   1965
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   8955
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin VB.Menu mnuBaseInfo 
      Caption         =   "基础数据"
      Begin VB.Menu mnuBase_Sys 
         Caption         =   "系统设置"
      End
      Begin VB.Menu mnuBase_7 
         Caption         =   "-"
      End
      Begin VB.Menu mnuBase_LPG 
         Caption         =   "气站信息维护"
      End
      Begin VB.Menu mnuBase_1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuBase_Opr 
         Caption         =   "操作员信息维护"
      End
      Begin VB.Menu mnuBase_2 
         Caption         =   "-"
      End
      Begin VB.Menu mnuBase_Mat 
         Caption         =   "商品信息表"
      End
      Begin VB.Menu mnuBase_3 
         Caption         =   "-"
      End
      Begin VB.Menu mnuBase_Pay 
         Caption         =   "付款类型"
      End
      Begin VB.Menu mnuBase_4 
         Caption         =   "-"
      End
      Begin VB.Menu mnuBase_Shop 
         Caption         =   "供货商信息维护"
      End
      Begin VB.Menu mnuBase_5 
         Caption         =   "-"
      End
      Begin VB.Menu mnuBase_Car 
         Caption         =   "车辆信息维护"
      End
      Begin VB.Menu mnuBase_6 
         Caption         =   "-"
      End
      Begin VB.Menu mnuBase_Custom 
         Caption         =   "客户信息维护"
      End
   End
   Begin VB.Menu mnuQueryInfo 
      Caption         =   "业务信息查询"
      Begin VB.Menu mnuQuery_SLS 
         Caption         =   "业务查询"
      End
      Begin VB.Menu mnuQuery_1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuQuery_Count 
         Caption         =   "业务统计分析"
      End
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub mnuBase_Car_Click()
    
    '车辆信息维护
    frmCarInfo.Show
    
End Sub

Private Sub mnuBase_Custom_Click()
    
    '客户信息维护
    frmKHInfo.Show
    
End Sub

Private Sub mnuBase_LPG_Click()
    
    '气站信息
    frmBaseInfo.Show
    
End Sub

Private Sub mnuBase_Mat_Click()
    
    '商品类型维护
    frmMatType.Show
    
End Sub

Private Sub mnuBase_Opr_Click()
    
    '操作员维护
'    frmOprInfo.Show
    frmOprSys.Show
    
End Sub

Private Sub mnuBase_Pay_Click()
    
    '付款类型维护
    frmpayType.Show
    
End Sub

Private Sub mnuBase_Shop_Click()
    
    '供货商信息维护
    frmShopInfo.Show
    
End Sub

Private Sub mnuBase_Sys_Click()
    
    '系统设置
    frmSysOption.Show
    
End Sub

Private Sub mnuQuery_Count_Click()
    
    '统计分析
    frmCountAnalyze.Show
    
End Sub

Private Sub mnuQuery_SLS_Click()
    
    '数据查询
    frmCountQuery.Show
    
End Sub