main.frm

采用VisualBasic和SQL Server 2000开发 功能比较全面的旅游资源管理系

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form Main 
   BackColor       =   &H00004000&
   BorderStyle     =   0  'None
   Caption         =   "旅游资源管理系统"
   ClientHeight    =   8445
   ClientLeft      =   45
   ClientTop       =   615
   ClientWidth     =   10590
   FillColor       =   &H00800000&
   FontTransparent =   0   'False
   ForeColor       =   &H8000000D&
   Icon            =   "Main.frx":0000
   LinkTopic       =   "Form1"
   MouseIcon       =   "Main.frx":27A2
   Picture         =   "Main.frx":2AAC
   ScaleHeight     =   8445
   ScaleWidth      =   10590
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   WindowState     =   2  'Maximized
   Begin MSComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   375
      Left            =   0
      TabIndex        =   0
      Top             =   8070
      Width           =   10590
      _ExtentX        =   18680
      _ExtentY        =   661
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   3
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   6
            Alignment       =   1
            TextSave        =   "2004-4-3"
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   5
            Alignment       =   1
            TextSave        =   "22:32"
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   25400
            MinWidth        =   25400
            Text            =   "旅游资源管理系统"
            TextSave        =   "旅游资源管理系统"
         EndProperty
      EndProperty
   End
   Begin VB.Image Image1 
      Height          =   8055
      Left            =   0
      Stretch         =   -1  'True
      Top             =   0
      Width           =   10575
   End
   Begin VB.Menu file 
      Caption         =   "文件"
      Begin VB.Menu user 
         Caption         =   "用户管理"
      End
      Begin VB.Menu quit 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu item 
      Caption         =   "项目管理"
      Begin VB.Menu lyd 
         Caption         =   "旅游地资源管理"
      End
      Begin VB.Menu jd 
         Caption         =   "景点资源管理"
      End
      Begin VB.Menu bg 
         Caption         =   "酒店资源管理"
      End
      Begin VB.Menu ct 
         Caption         =   "餐厅资源管理"
      End
      Begin VB.Menu yl 
         Caption         =   "娱乐资源管理"
      End
      Begin VB.Menu hc 
         Caption         =   "火车资源管理"
      End
      Begin VB.Menu fj 
         Caption         =   "飞机资源管理"
      End
      Begin VB.Menu ly 
         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 bg_Click()
  HotelMan.Show 1
End Sub

Private Sub ct_Click()
  ResMan.Show 1
End Sub

Private Sub fj_Click()
  PlaneMan.Show 1
End Sub

Private Sub Form_Load()
  Login.Show 1
  Image1.Width = Screen.Width
  Image1.Height = Screen.Height
  Image1.Picture = LoadPicture(App.Path & "\back.jpg")
End Sub
Private Sub Form_Resize()
  Image1.Width = Me.Width
  Image1.Height = Me.Height
  End Sub
Private Sub hc_Click()
  TrainMan.Show 1
End Sub

Private Sub jd_Click()
  PlaceMan.Show 1
End Sub

Private Sub lblLine_Click()

End Sub

Private Sub ly_Click()
  LineMan.Show 1
End Sub

Private Sub lyd_Click()
  AreaMan.Show 1
End Sub

Private Sub quit_Click()
  DBapi_Disconnect
  End
End Sub

Private Sub user_Click()
  If Format(CurUser.UserName, "<") = "admin" Then
    UserMan.Show 1
  Else
    With UserEdit
    .OriUser = CurUser.UserName
    .txtUserName = CurUser.UserName
    .txtPass = CurUser.Pwd
    .txtPass2 = CurUser.Pwd
    .txtEname = CurUser.EmpName
    .txtEname.Enabled = False
    .Modify = True
    .Show 1
    End With
  End If
End Sub

Private Sub yl_Click()
  AmuseMan.Show 1
End Sub