mainfrm.frm

本系统以VB为开发工具

VERSION 5.00
Begin VB.Form mainfrm 
   Caption         =   "欢迎使用"
   ClientHeight    =   8670
   ClientLeft      =   165
   ClientTop       =   870
   ClientWidth     =   13740
   LinkTopic       =   "Form2"
   Picture         =   "mainfrm.frx":0000
   ScaleHeight     =   8670
   ScaleWidth      =   13740
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin VB.Timer Timer1 
      Interval        =   1000
      Left            =   4800
      Top             =   8160
   End
   Begin VB.Label Label4 
      BackStyle       =   0  'Transparent
      Caption         =   "青岛理工大学"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   21.75
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   615
      Left            =   5880
      TabIndex        =   3
      Top             =   5520
      Width           =   3255
   End
   Begin VB.Label Label3 
      BackStyle       =   0  'Transparent
      Caption         =   "当前时间："
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   255
      Left            =   5400
      TabIndex        =   2
      Top             =   8280
      Width           =   1575
   End
   Begin VB.Label Label1 
      BackColor       =   &H80000001&
      BackStyle       =   0  'Transparent
      Caption         =   "欢迎使用旅行社管理系统"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   42
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   975
      Left            =   2640
      TabIndex        =   1
      Top             =   3000
      Width           =   9615
   End
   Begin VB.Image Image1 
      Height          =   11520
      Left            =   0
      Top             =   -600
      Width           =   15360
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   255
      Left            =   7080
      TabIndex        =   0
      Top             =   8280
      Width           =   8175
   End
   Begin VB.Menu qiantai 
      Caption         =   "前台接待"
      Begin VB.Menu zixun 
         Caption         =   "游客咨询登记"
      End
      Begin VB.Menu baoming 
         Caption         =   "游客报名"
      End
      Begin VB.Menu xianluchaxun 
         Caption         =   "旅游线路查询"
      End
      Begin VB.Menu tdchaxun 
         Caption         =   "团队查询"
      End
      Begin VB.Menu youkechaxun 
         Caption         =   "游客查询"
      End
      Begin VB.Menu chengshi 
         Caption         =   "旅游城市查询"
      End
      Begin VB.Menu zhiban 
         Caption         =   "值班记录"
      End
   End
   Begin VB.Menu xianlu 
      Caption         =   "线路管理"
      Begin VB.Menu 新建线路 
         Caption         =   "新建线路"
      End
      Begin VB.Menu chaxunxianlu 
         Caption         =   "查询线路"
      End
      Begin VB.Menu xianluxiugai 
         Caption         =   "线路修改"
      End
      Begin VB.Menu zutuanqingkuang 
         Caption         =   "组团情况"
      End
   End
   Begin VB.Menu tuandui 
      Caption         =   "团队管理"
      Begin VB.Menu zixunchaxun 
         Caption         =   "游客咨询查询"
      End
      Begin VB.Menu xinjiantuandui 
         Caption         =   "新建团队"
      End
      Begin VB.Menu tuanduichaxun 
         Caption         =   "团队查询"
      End
      Begin VB.Menu tuanduixiugai 
         Caption         =   "团队修改"
      End
      Begin VB.Menu tuanduijidiao 
         Caption         =   "团队计调"
      End
   End
   Begin VB.Menu kehu 
      Caption         =   "客户管理"
      Begin VB.Menu jiamengkehu 
         Caption         =   "加盟客户"
      End
      Begin VB.Menu kehuchaxun 
         Caption         =   "客户查询"
      End
      Begin VB.Menu hezuolvxingshe 
         Caption         =   "合作旅行社资料"
      End
   End
   Begin VB.Menu ziliao 
      Caption         =   "行业资料"
      Begin VB.Menu jiaotongshike 
         Caption         =   "交通时刻表"
         Begin VB.Menu huoche 
            Caption         =   "火车"
         End
         Begin VB.Menu qiche 
            Caption         =   "汽车"
         End
         Begin VB.Menu lunchuan 
            Caption         =   "轮船"
         End
         Begin VB.Menu feiji 
            Caption         =   "飞机"
         End
      End
      Begin VB.Menu lvyouchengshi 
         Caption         =   "旅游城市资料"
         Begin VB.Menu lvyoujingdian 
            Caption         =   "旅游景点"
         End
         Begin VB.Menu jiudian 
            Caption         =   "酒店资料"
         End
         Begin VB.Menu tesecanyin 
            Caption         =   "特色餐饮"
         End
         Begin VB.Menu gouwuchangsuo 
            Caption         =   "购物场所"
         End
      End
      Begin VB.Menu yewubumen 
         Caption         =   "相关业务部门资料"
         Begin VB.Menu qianzheng 
            Caption         =   "签证公司"
         End
         Begin VB.Menu daoyou 
            Caption         =   "导游公司"
         End
      End
   End
   Begin VB.Menu 统计 
      Caption         =   "营销统计"
      Begin VB.Menu kehulaiyuan 
         Caption         =   "客户来源统计"
      End
      Begin VB.Menu youkeleixing 
         Caption         =   "游客类型统计"
      End
      Begin VB.Menu xianluquyu 
         Caption         =   "线路区域统计"
      End
      Begin VB.Menu tuanduidengji 
         Caption         =   "团队等级统计"
      End
      Begin VB.Menu tuanduishouru 
         Caption         =   "团队收入统计"
      End
   End
   Begin VB.Menu kefu 
      Caption         =   "客户服务"
      Begin VB.Menu kehushengri 
         Caption         =   "客户生日提醒"
      End
      Begin VB.Menu yuangongshengri 
         Caption         =   "员工生日提醒"
      End
      Begin VB.Menu jierihuodong 
         Caption         =   "节日活动安排"
      End
      Begin VB.Menu kehutousu 
         Caption         =   "客户投诉"
      End
   End
   Begin VB.Menu caiwu 
      Caption         =   "财务管理"
      Begin VB.Menu tuanduibaozhang 
         Caption         =   "团队报账"
      End
      Begin VB.Menu caiwushouzhi 
         Caption         =   "财务收支"
      End
      Begin VB.Menu zhangmuchaxun 
         Caption         =   "账目查询"
      End
   End
   Begin VB.Menu xitong 
      Caption         =   "系统设置"
      Begin VB.Menu beifen 
         Caption         =   "数据库备份"
      End
      Begin VB.Menu bendanwei 
         Caption         =   "本单位员工资料"
      End
      Begin VB.Menu tuichu 
         Caption         =   "退出系统"
      End
   End
   Begin VB.Menu help 
      Caption         =   "帮助"
      Begin VB.Menu shiyongshouce 
         Caption         =   "使用手册"
      End
      Begin VB.Menu xitongshuoming 
         Caption         =   "系统说明"
      End
   End
End
Attribute VB_Name = "mainfrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub baoming_Click()
youkebaoming1.Show
End Sub

Private Sub beifen_Click()
shujukubeifen.Show
End Sub

Private Sub bendanwei_Click()
bendanweiyuangong1.Show
End Sub

Private Sub caiwushouzhi_Click()
caiwushouzhi1.Show
End Sub

Private Sub chaxunxianlu_Click()
xianluchaxun1.Show
End Sub

Private Sub chengshi_Click()
chengshichaxun.Show
End Sub

Private Sub daoyou_Click()
daoyougongsi1.Show
End Sub

Private Sub feiji_Click()
frmhangban.Show
End Sub

Private Sub Form_Load()
'Label2.Caption = Now
End Sub

Private Sub gouwuchangsuo_Click()
gouwuchangsuo1.Show
End Sub

Private Sub hezuolvxingshe_Click()
hezuolvxingshe1.Show
End Sub

Private Sub huoche_Click()
frmhuoche.Show
End Sub

Private Sub jiamengkehu_Click()
jiamengkehuziliao1.Show
End Sub

Private Sub jierihuodong_Click()
jierihuodonganpai1.Show
End Sub

Private Sub jiudian_Click()
jiudianziliao1.Show
End Sub

Private Sub kehuchaxun_Click()
kehuchaxun1.Show
End Sub

Private Sub kehulaiyuan_Click()
kehulaiyuantongji1.Show
End Sub

Private Sub kehushengri_Click()
kehushengritixing1.Show
End Sub

Private Sub kehutousu_Click()
youketousu1.Show
End Sub


Private Sub lunchuan_Click()
frmlunchuan.Show
End Sub

Private Sub lvyoujingdian_Click()
jingdianziliao1.Show
End Sub

Private Sub qianzheng_Click()
qianzhenggongsi1.Show
End Sub

Private Sub qiche_Click()
frmqiche.Show
End Sub
Private Sub tdchaxun_Click()
tuanduichaxun1.Show
End Sub

Private Sub tesecanyin_Click()
tesecanyin1.Show
End Sub

Private Sub Timer1_Timer()
Label2.Caption = Now
End Sub

Private Sub tuanduibaozhang_Click()
tuanduibaozhang1.Show
End Sub

Private Sub tuanduichaxun_Click()
tuanduichaxun1.Show
End Sub

Private Sub tuanduidengji_Click()
zutuandengjitongji1.Show
End Sub

Private Sub tuanduijidiao_Click()
tuanduijidiao1.Show
End Sub

Private Sub tuanduishouru_Click()
tuanduishourutongji1.Show
End Sub

Private Sub tuanduixiugai_Click()
tuanduixiugai1.Show
End Sub

Private Sub tuichu_Click()
MsgBox "确定要退出吗？", vbYesNo
Unload Me
End Sub

Private Sub xianluchaxun_Click()
xianluchaxun1.Show
End Sub

Private Sub xianluquyu_Click()
 xianluquyutongji1.Show
End Sub

Private Sub xianluxiugai_Click()
xianluxiugai1.Show
End Sub

Private Sub xinjiantuandui_Click()
xinjiantuandui1.Show
End Sub


Private Sub youkechaxun_Click()
youkechaxun1.Show
End Sub

Private Sub youkeleixing_Click()
youkeleixing1.Show
End Sub

Private Sub yuangongshengri_Click()
yuangongshengritixing1.Show
End Sub

Private Sub zhangmuchaxun_Click()
zhangmuchaxun1.Show
End Sub

Private Sub zhiban_Click()
zhibanjilu1.Show
End Sub
Private Sub zixun_Click()
youkezixun1.Show
End Sub

Private Sub zixunchaxun_Click()
zixunchaxun1.Show
End Sub

Private Sub zutuanqingkuang_Click()
zutuanqingkuang1.Show
End Sub

Private Sub 新建线路_Click()
xinjianxianlu1.Show
End Sub