数据配置.pag

星级酒店管理系统（附带系统自写控件源码）

VERSION 5.00
Begin VB.PropertyPage 数据配置 
   Caption         =   "数据配置"
   ClientHeight    =   3225
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   6030
   LockControls    =   -1  'True
   PaletteMode     =   0  'Halftone
   ScaleHeight     =   3225
   ScaleWidth      =   6030
   Begin VB.TextBox txtsDatabasePassword 
      Height          =   330
      Left            =   780
      TabIndex        =   5
      Top             =   2550
      Width           =   2700
   End
   Begin VB.TextBox txtsTableName 
      Height          =   330
      Left            =   780
      TabIndex        =   3
      Top             =   1905
      Width           =   2700
   End
   Begin VB.TextBox txtsDatabaseFile 
      Height          =   330
      Left            =   780
      TabIndex        =   1
      Top             =   1260
      Width           =   2700
   End
   Begin VB.Line Line1 
      BorderColor     =   &H00FFFFFF&
      Index           =   2
      X1              =   825
      X2              =   5820
      Y1              =   675
      Y2              =   675
   End
   Begin VB.Line Line1 
      Index           =   0
      X1              =   810
      X2              =   5805
      Y1              =   660
      Y2              =   660
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "[ VB中国 ]  http://www.vb-code.net"
      ForeColor       =   &H00000000&
      Height          =   180
      Index           =   0
      Left            =   855
      TabIndex        =   6
      Top             =   360
      Width           =   3060
   End
   Begin VB.Image Image1 
      Height          =   480
      Left            =   255
      Picture         =   "数据配置.pgx":0000
      Top             =   270
      Width           =   480
   End
   Begin VB.Label lblsDatabasePassword 
      Caption         =   "用户名与口令："
      Height          =   240
      Left            =   780
      TabIndex        =   4
      Top             =   2310
      Width           =   2700
   End
   Begin VB.Label lblsTableName 
      Caption         =   "表名："
      Height          =   240
      Left            =   780
      TabIndex        =   2
      Top             =   1635
      Width           =   2700
   End
   Begin VB.Label lblsDatabaseFile 
      Caption         =   "数据库文件："
      Height          =   240
      Left            =   780
      TabIndex        =   0
      Top             =   1005
      Width           =   2700
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "[ VB中国 ]  http://www.vb-code.net"
      ForeColor       =   &H00FFFFFF&
      Height          =   420
      Index           =   2
      Left            =   840
      TabIndex        =   7
      Top             =   375
      Width           =   3165
   End
End
Attribute VB_Name = "数据配置"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Private Sub chkIsGuest_Click()
    Changed = True
End Sub


Private Sub txtsDatabasePassword_Change()
    Changed = True
End Sub


Private Sub txtsTableName_Change()
    Changed = True
End Sub


Private Sub txtsDatabaseFile_Change()
    Changed = True
End Sub


Private Sub PropertyPage_ApplyChanges()
    SelectedControls(0).sDatabasePassword = txtsDatabasePassword.Text
    SelectedControls(0).sTableName = txtsTableName.Text
    SelectedControls(0).sDatabaseFile = txtsDatabaseFile.Text
End Sub

Private Sub PropertyPage_SelectionChanged()
    txtsDatabasePassword.Text = SelectedControls(0).sDatabasePassword
    txtsTableName.Text = SelectedControls(0).sTableName
    txtsDatabaseFile.Text = SelectedControls(0).sDatabaseFile
End Sub