frmmain.frm

采用VB+SQL编写的房屋销售管理系统,

VERSION 5.00
Begin VB.MDIForm frmmain 
   BackColor       =   &H80000004&
   Caption         =   "旅行社业务管理系统"
   ClientHeight    =   3195
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   4680
   LinkTopic       =   "MDIForm1"
   Picture         =   "frmmain.frx":0000
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin VB.PictureBox Picture1 
      Align           =   1  'Align Top
      Height          =   10695
      Left            =   0
      ScaleHeight     =   10635
      ScaleWidth      =   4620
      TabIndex        =   0
      Top             =   0
      Width           =   4680
   End
   Begin VB.Menu systems 
      Caption         =   "系统管理"
      Begin VB.Menu exit 
         Caption         =   "退出系统"
      End
   End
   Begin VB.Menu info 
      Caption         =   "信息交流"
      Begin VB.Menu dx 
         Caption         =   "短信收发"
         Begin VB.Menu fd 
            Caption         =   "发短信"
         End
         Begin VB.Menu semail 
            Caption         =   "收邮件"
         End
      End
      Begin VB.Menu gg 
         Caption         =   "公告栏"
      End
   End
   Begin VB.Menu system 
      Caption         =   "系统设置"
      Begin VB.Menu bjlx 
         Caption         =   "设置报价类型"
      End
      Begin VB.Menu bm1 
         Caption         =   "设置部门"
      End
      Begin VB.Menu sxbx 
         Caption         =   "设置保险"
      End
      Begin VB.Menu cb 
         Caption         =   "设置成本"
      End
      Begin VB.Menu carr 
         Caption         =   "设置车辆类型"
      End
      Begin VB.Menu dytype 
         Caption         =   "设置导游类别"
      End
      Begin VB.Menu gj 
         Caption         =   "设置国籍"
      End
      Begin VB.Menu jddj 
         Caption         =   "设置接待等级"
      End
      Begin VB.Menu jdname 
         Caption         =   "设置景点名称"
      End
      Begin VB.Menu rd 
         Caption         =   "设置人等"
      End
      Begin VB.Menu td 
         Caption         =   "设置团队等级"
      End
      Begin VB.Menu jta 
         Caption         =   "设置往返交通"
      End
      Begin VB.Menu xl 
         Caption         =   "设置学历"
      End
      Begin VB.Menu xltype 
         Caption         =   "设置线路类型"
      End
      Begin VB.Menu yc 
         Caption         =   "设置用餐标准"
      End
      Begin VB.Menu yz 
         Caption         =   "设置语种"
      End
      Begin VB.Menu zffs 
         Caption         =   "设置去付方式"
      End
      Begin VB.Menu zsbz 
         Caption         =   "设置住宿标准"
      End
      Begin VB.Menu jsxm 
         Caption         =   "设置结算项目"
      End
      Begin VB.Menu aa 
         Caption         =   "-"
      End
      Begin VB.Menu qx 
         Caption         =   "权限设置"
      End
   End
   Begin VB.Menu bmgl 
      Caption         =   "部门管理"
   End
End
Attribute VB_Name = "frmmain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub bjdgl_Click()
frmbjd.Show

End Sub

Private Sub bjlx_Click()
frmbjtype.Show

End Sub

Private Sub bld_Click()
frmbjd.Show
End Sub

Private Sub bm_Click()
frmbm.Show

End Sub

Private Sub bmgl_Click()
frmbm.Show
End Sub

Private Sub carr_Click()
frmcar.Show

End Sub

Private Sub cb_Click()
frmcb.Show

End Sub

Private Sub dytype_Click()
frmdy.Show

End Sub

Private Sub exit_Click()
End

End Sub

Private Sub fd_Click()
frmmaif.Show

End Sub

Private Sub gg_Click()
frmgg.Show

End Sub

Private Sub gj_Click()
frmgj.Show

End Sub

Private Sub hxtjs_Click()
frmhxz.Show

End Sub

Private Sub jddj_Click()
frmjd.Show

End Sub

Private Sub jdname_Click()
frmjdmb.Show

End Sub

Private Sub jsxm_Click()
frmjsxm.Show

End Sub

Private Sub jta_Click()
frmjt.Show

End Sub

Private Sub qx_Click()
frmcfgpopedom.Show

End Sub

Private Sub rd_Click()
frmrd.Show

End Sub

Private Sub semail_Click()
frmsmail.Show

End Sub

Private Sub sxbx_Click()
frmbx.Show

End Sub

Private Sub td_Click()
frmtd.Show

End Sub

Private Sub xl_Click()
frmxl.Show

End Sub

Private Sub xlgl_Click()
frmxlgl.Show

End Sub

Private Sub xltype_Click()
frmxltype.Show

End Sub

Private Sub yc_Click()
frmyc.Show

End Sub

Private Sub yz_Click()
frmyz.Show

End Sub

Private Sub zffs_Click()
frmzf.Show

End Sub

Private Sub zlt_Click()
frmgroup.Show

End Sub

Private Sub zltjs_Click()
frmzltjs.Show

End Sub

Private Sub zsbz_Click()
frmzs.Show

End Sub