?? main.frm

?? 用PB編寫的賓館客房管理系統(tǒng)源代碼非常好非常好真的非常好
?? FRM
字號:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form main 
   Caption         =   "客房管理系統(tǒng)"
   ClientHeight    =   5895
   ClientLeft      =   1665
   ClientTop       =   1335
   ClientWidth     =   11850
   BeginProperty Font 
      Name            =   "宋體"
      Size            =   12
      Charset         =   134
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   Icon            =   "main.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   5895
   ScaleWidth      =   11850
   StartUpPosition =   1  '所有者中心
   Begin VB.Data Data1 
      Caption         =   "Data1"
      Connect         =   "Access"
      DatabaseName    =   "D:\行業(yè)管理軟件之一\客房管理系統(tǒng)\Kfgl.mdb"
      DefaultCursorType=   0  '缺省游標
      DefaultType     =   2  '使用 ODBC
      Exclusive       =   0   'False
      Height          =   375
      Left            =   -495
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   "qxsz"
      Top             =   915
      Visible         =   0   'False
      Width           =   1095
   End
   Begin MSComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   345
      Left            =   0
      TabIndex        =   6
      Top             =   5550
      Width           =   11850
      _ExtentX        =   20902
      _ExtentY        =   609
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   4
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   6
            Alignment       =   1
            TextSave        =   "2003-04-24"
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   5
            Alignment       =   1
            TextSave        =   "08:32"
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            Object.Width           =   10583
            MinWidth        =   10583
            Text            =   "http://www.mingrisoft.com"
            TextSave        =   "http://www.mingrisoft.com"
         EndProperty
         BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            Object.Width           =   5292
            MinWidth        =   5292
         EndProperty
      EndProperty
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋體"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin VB.Label Label6 
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "宋體"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   690
      Left            =   5445
      TabIndex        =   5
      Top             =   90
      Width           =   750
   End
   Begin VB.Label Label5 
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "宋體"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   660
      Left            =   3900
      TabIndex        =   4
      Top             =   120
      Width           =   705
   End
   Begin VB.Label Label4 
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "宋體"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   660
      Left            =   2970
      TabIndex        =   3
      Top             =   120
      Width           =   705
   End
   Begin VB.Label Label3 
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "宋體"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   660
      Left            =   2010
      TabIndex        =   2
      Top             =   105
      Width           =   705
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "宋體"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   660
      Left            =   1155
      TabIndex        =   1
      Top             =   135
      Width           =   705
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "宋體"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   660
      Left            =   345
      TabIndex        =   0
      Top             =   120
      Width           =   705
   End
   Begin VB.Image Image2 
      Height          =   7515
      Left            =   -105
      Picture         =   "main.frx":000C
      Stretch         =   -1  'True
      Top             =   810
      Width           =   12000
   End
   Begin VB.Image Image1 
      Height          =   825
      Left            =   0
      Picture         =   "main.frx":128810
      Stretch         =   -1  'True
      Top             =   15
      Width           =   11910
   End
   Begin VB.Menu zsgl 
      Caption         =   "住宿管理"
      Begin VB.Menu zsdj 
         Caption         =   "住宿登記(&D)..."
         Shortcut        =   ^D
      End
      Begin VB.Menu line6 
         Caption         =   "-"
      End
      Begin VB.Menu zjyj 
         Caption         =   "追加押金(&Y)"
         Shortcut        =   ^Y
      End
      Begin VB.Menu line3 
         Caption         =   "-"
      End
      Begin VB.Menu tfdj 
         Caption         =   "調房登記(&T)"
         Shortcut        =   ^T
      End
      Begin VB.Menu line4 
         Caption         =   "-"
      End
      Begin VB.Menu tf 
         Caption         =   "退宿結帳(&J)"
         Shortcut        =   ^J
      End
   End
   Begin VB.Menu kfgl 
      Caption         =   "客房管理"
      Begin VB.Menu kfsz 
         Caption         =   "客房設置"
      End
      Begin VB.Menu kfcx 
         Caption         =   "客房查詢"
      End
      Begin VB.Menu ftck 
         Caption         =   "房態(tài)查看"
      End
   End
   Begin VB.Menu gzgl 
      Caption         =   "掛帳管理"
      Begin VB.Menu gzcx 
         Caption         =   "掛帳查詢"
      End
      Begin VB.Menu khjk 
         Caption         =   "客戶結款"
      End
   End
   Begin VB.Menu cxtj 
      Caption         =   "查詢統(tǒng)計"
      Begin VB.Menu zscx 
         Caption         =   "住宿查詢"
      End
      Begin VB.Menu tfcx 
         Caption         =   "退宿查詢"
      End
      Begin VB.Menu line1 
         Caption         =   "-"
      End
      Begin VB.Menu sftx 
         Caption         =   "宿費提醒"
      End
   End
   Begin VB.Menu rjz 
      Caption         =   "日結"
      Begin VB.Menu ysbb 
         Caption         =   "登記預收報表"
      End
      Begin VB.Menu xsbb 
         Caption         =   "客房銷售報表"
      End
      Begin VB.Menu xstj 
         Caption         =   "客房銷售統(tǒng)計"
      End
   End
   Begin VB.Menu xtsz 
      Caption         =   "系統(tǒng)設置"
      Begin VB.Menu czysz 
         Caption         =   "操作員設置"
      End
      Begin VB.Menu ma 
         Caption         =   "密碼設置"
      End
      Begin VB.Menu line2 
         Caption         =   "-"
      End
      Begin VB.Menu csh 
         Caption         =   "初始化"
      End
      Begin VB.Menu qxsz 
         Caption         =   "權限設置"
      End
   End
   Begin VB.Menu tc 
      Caption         =   "退出"
   End
End
Attribute VB_Name = "main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
 Data1.DatabaseName = App.Path & "\Kfgl.MDB"     '自動識別數(shù)據(jù)庫路徑
End Sub
Private Sub Form_Activate()     '設置操作員權限
 With Data1.Recordset
 If .BOF = False Then .MoveFirst
 .FindFirst "操作員 like " + Chr(34) + StatusBar1.Panels(4).Text + Chr(34) + ""
 If .NoMatch Then
 Else
  main.zjyj.Enabled = .Fields("追加押金")
  main.zsdj.Enabled = .Fields("住宿登記")
  main.Label1.Enabled = .Fields("住宿登記")
  main.tf.Enabled = .Fields("退宿登記")
  main.Label2.Enabled = .Fields("退宿登記")
  main.tfdj.Enabled = .Fields("調房登記")
  main.kfsz.Enabled = .Fields("客房管理")
  main.kfcx.Enabled = .Fields("客房查詢")
  main.ftck.Enabled = .Fields("房態(tài)查看")
  main.gzcx.Enabled = .Fields("掛帳查詢")
  main.khjk.Enabled = .Fields("客戶結款")
  main.zscx.Enabled = .Fields("住宿查詢")
  main.Label3.Enabled = .Fields("住宿查詢")
  main.tfcx.Enabled = .Fields("退宿查詢")
  main.sftx.Enabled = .Fields("宿費提醒")
  main.Label5.Enabled = .Fields("宿費提醒")
  main.ysbb.Enabled = .Fields("登記預收報表")
  main.xsbb.Enabled = .Fields("客房銷售報表")
  main.Label4.Enabled = .Fields("客房銷售報表")
  main.xstj.Enabled = .Fields("客房銷售統(tǒng)計報表")
  main.czysz.Enabled = .Fields("操作員設置")
  main.ma.Enabled = .Fields("密碼設置")
  main.csh.Enabled = .Fields("初始化")
  main.qxsz.Enabled = .Fields("權限設置")
 End If
 End With
End Sub
Private Sub label1_Click()     '調入住宿登記
 zsdj_Click
End Sub
Private Sub label2_Click()      '調入退宿結帳
 tf_Click
End Sub
Private Sub Label3_Click()      '調入住宿查詢
 zscx_Click
End Sub
Private Sub Label4_Click()      '調入客房銷售報表
 xsbb_Click
End Sub
Private Sub Label5_Click()      '調入宿費提醒
 sftx_Click
End Sub
Private Sub label6_Click()
 End
End Sub
Private Sub kfyd_Click()       '調入客房預定
 main_kfyd.Show
 main.Enabled = False
End Sub
Private Sub zsdj_Click()       '調入住宿登記
 main_kfdj.Show
 main.Enabled = False
End Sub
Private Sub zjyj_Click()       '調入追加押金
 Load main_zjyj
 main_zjyj.Show
 main.Enabled = False
End Sub
Private Sub tfdj_Click()      '調入調房登記
 main_tfdj.Show
 main.Enabled = False
End Sub
Private Sub tf_Click()        '調入退宿結帳
 main_tf.Show
 main.Enabled = False
End Sub
Private Sub kfsz_Click()      '調入客房管理
 main_kfgl.Show
 main.Enabled = False
End Sub
Private Sub kfcx_Click()      '調入客房查詢
 main_kfcx.Show
 main.Enabled = False
End Sub
Private Sub ftck_Click()      '調入房態(tài)查看
 main_ftcx.Show
 main.Enabled = False
End Sub
Private Sub gzcx_Click()      '調入掛帳查詢
 Load main_gzcx
 main_gzcx.Show
 main.Enabled = False
End Sub
Private Sub khjk_Click()      '調入客戶結款
 Load main_khjk
 main_khjk.Show
 main.Enabled = False
End Sub
Private Sub ydfcx_Click()      '調入預定房查詢
 main_kfydcx.Show
 main.Enabled = False
End Sub
Private Sub zscx_Click()       '調入住宿查詢
 Load main_zscx
 main_zscx.Show
 main.Enabled = False
End Sub
Private Sub tfcx_Click()       '調入退宿查詢
 Load main_tfcx
 main_tfcx.Show
 main.Enabled = False
End Sub
Private Sub sftx_Click()      '調入宿費提醒
 Load main_xftx
 main_xftx.Show
 main.Enabled = False
End Sub
Private Sub ysbb_Click()       '調入登記預收報表
 main_ysbb.Show
 main.Enabled = False
End Sub
Private Sub xsbb_Click()       '調入客房銷售報表
 main_xsbb.Show
 main.Enabled = False
End Sub
Private Sub xstj_Click()       '調入客房銷售統(tǒng)計
 main_xstj.Show
 main.Enabled = False
End Sub
Private Sub czysz_Click()      '調入操作員設置
 Load main_czysz
 main_czysz.Show
 main.Enabled = False
End Sub
Private Sub ma_Click()          '調入密碼設置
 main_mmsz.Show
 main.Enabled = False
End Sub
Private Sub csh_Click()         '調入初始化
 main_csh.Show
 main.Enabled = False
End Sub
Private Sub qxsz_Click()        '調入權限設置
 main_qxsz.Show
 main.Enabled = False
End Sub
Private Sub tc_Click()
 End
End Sub
?? 文件大小 1053 K
?? 上傳用戶 jackjinke
?? 所屬分類酒店行業(yè)
??? 相關標簽

#編寫 #管理系統(tǒng) #源代碼
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? main.frm

?? 快捷鍵說明
