guestmanager.ctl

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

Private Sub UserControl_Show()
    
    WriteGrid

End Sub

'将属性值写到存储器
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)

'    Call PropBag.WriteProperty("sDatabaseFile", m_sDatabaseFile, m_def_sDatabaseFile)
'    Call PropBag.WriteProperty("sTableName", m_sTableName, m_def_sTableName)
'    Call PropBag.WriteProperty("sDatabasePassword", m_sDatabasePassword, m_def_sDatabasePassword)
    Call PropBag.WriteProperty("IsGuest", m_IsGuest, m_def_IsGuest)
    Call PropBag.WriteProperty("sDatabaseFile", m_sDatabaseFile, m_def_sDatabaseFile)
    Call PropBag.WriteProperty("sTableName", m_sTableName, m_def_sTableName)
    Call PropBag.WriteProperty("sDatabasePassword", m_sDatabasePassword, m_def_sDatabasePassword)
    Call PropBag.WriteProperty("DelSQL1", m_DelSQL1, m_def_DelSQL1)
    Call PropBag.WriteProperty("DelSQL2", m_DelSQL2, m_def_DelSQL2)
    Call PropBag.WriteProperty("DelSQL3", m_DelSQL3, m_def_DelSQL3)
    Call PropBag.WriteProperty("DelSQL4", m_DelSQL4, m_def_DelSQL4)
    Call PropBag.WriteProperty("DelSQL5", m_DelSQL5, m_def_DelSQL5)
    Call PropBag.WriteProperty("UpdateSQL1", m_UpdateSQL1, m_def_UpdateSQL1)
    Call PropBag.WriteProperty("UpdateSQL2", m_UpdateSQL2, m_def_UpdateSQL2)
    Call PropBag.WriteProperty("UpdateSQL3", m_UpdateSQL3, m_def_UpdateSQL3)
    Call PropBag.WriteProperty("UpdateSQL4", m_UpdateSQL4, m_def_UpdateSQL4)
    Call PropBag.WriteProperty("UpdateSQL5", m_UpdateSQL5, m_def_UpdateSQL5)
    Call PropBag.WriteProperty("sTypeName", m_sTypeName, m_def_sTypeName)
    Call PropBag.WriteProperty("sFieldValue", m_sFieldValue, m_def_sFieldValue)
    Call PropBag.WriteProperty("sOldFieldValue", m_sOldFieldValue, m_def_sOldFieldValue)
    Call PropBag.WriteProperty("DelField1", m_DelField1, m_def_DelField1)
    Call PropBag.WriteProperty("DelField2", m_DelField2, m_def_DelField2)
    Call PropBag.WriteProperty("DelField3", m_DelField3, m_def_DelField3)
    Call PropBag.WriteProperty("DelField4", m_DelField4, m_def_DelField4)
    Call PropBag.WriteProperty("DelField5", m_DelField5, m_def_DelField5)
    Call PropBag.WriteProperty("UpdateField1", m_UpdateField1, m_def_UpdateField1)
    Call PropBag.WriteProperty("UpdateField2", m_UpdateField2, m_def_UpdateField2)
    Call PropBag.WriteProperty("UpdateField3", m_UpdateField3, m_def_UpdateField3)
    Call PropBag.WriteProperty("UpdateField4", m_UpdateField4, m_def_UpdateField4)
    Call PropBag.WriteProperty("UpdateField5", m_UpdateField5, m_def_UpdateField5)
End Sub

Private Sub WriteGrid()

On Error GoTo LoadErr

Picture2.Visible = False
'配置网格
Grid1.Visible = False
Grid1.Cols = 2
Grid1.FormatString = "^ NO |^ " & sTypeName & "Name "
Grid1.ColWidth(0) = 600
Grid1.ColWidth(1) = 3500
If m_sDatabaseFile <> "" Then
Dim DB As Database, EF As Recordset, HH As Integer
    Set DB = OpenDatabase(m_sDatabaseFile, 0, 0, m_sDatabasePassword)
    Set EF = DB.OpenRecordset(m_sTableName, dbOpenTable)
        Grid1.Rows = EF.RecordCount + 1
    Set EF = DB.OpenRecordset("Select * From " & m_sTableName, dbOpenDynaset)
        HH = 1
        If Not (EF.BOF And EF.EOF) Then
            Do While Not EF.EOF()
               Grid1.Row = HH
               Grid1.Col = 1
               Grid1.CellAlignment = 1
            If Not IsNull(EF.Fields(0).Value) Then
               Grid1.Text = EF.Fields(0).Value
            End If
              EF.MoveNext
              HH = HH + 1
            Loop
         Else
          Grid1.Rows = 15
          Grid1.Col = 1
          Grid1.Row = 1
          Grid1.Visible = True
          Exit Sub
        End If
        DB.Close
Else  '数据库文件为空时
   Grid1.Rows = 15
   Grid1.Col = 1
   Grid1.Row = 1
   Grid1.Visible = True
   Exit Sub
End If
For HH = 1 To Grid1.Rows - 1
    Grid1.Row = HH
    Grid1.Col = 0
    Grid1.Text = HH
    If Len(Grid1.Text) = 1 Then
     Grid1.Text = "0" + Grid1.Text
     End If
 Next
 Grid1.Col = 1
 Grid1.Row = 1
 Grid1.ColSel = 1
 Grid1.Visible = True
 
 AddStore.Caption = "&Addnew" & sTypeName
 StoreDelete.Caption = "&Delete" & sTypeName
 StoreModify.Caption = "&Modify" & sTypeName
    
 Exit Sub
LoadErr:
 MsgBox "Write to grid error：" & Err.Description, vbExclamation, "Power by Silong."
 Exit Sub
 
End Sub
'注意！不要删除或修改下列被注释的行！
'MemberInfo=13,0,0,
Public Property Get sDatabaseFile() As String
    sDatabaseFile = m_sDatabaseFile
End Property

Public Property Let sDatabaseFile(ByVal New_sDatabaseFile As String)
    m_sDatabaseFile = New_sDatabaseFile
    PropertyChanged "sDatabaseFile"
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=13,0,0,
Public Property Get sTableName() As String
    sTableName = m_sTableName
End Property

Public Property Let sTableName(ByVal New_sTableName As String)
    m_sTableName = New_sTableName
    PropertyChanged "sTableName"
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=13,0,0,
Public Property Get sDatabasePassword() As String
    sDatabasePassword = m_sDatabasePassword
End Property

Public Property Let sDatabasePassword(ByVal New_sDatabasePassword As String)
    m_sDatabasePassword = New_sDatabasePassword
    PropertyChanged "sDatabasePassword"
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=13,0,0,
Public Property Get DelSQL1() As String
    DelSQL1 = m_DelSQL1
End Property

Public Property Let DelSQL1(ByVal New_DelSQL1 As String)
    m_DelSQL1 = New_DelSQL1
    PropertyChanged "DelSQL1"
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=13,0,0,
Public Property Get DelSQL2() As String
    DelSQL2 = m_DelSQL2
End Property

Public Property Let DelSQL2(ByVal New_DelSQL2 As String)
    m_DelSQL2 = New_DelSQL2
    PropertyChanged "DelSQL2"
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=13,0,0,
Public Property Get DelSQL3() As String
    DelSQL3 = m_DelSQL3
End Property

Public Property Let DelSQL3(ByVal New_DelSQL3 As String)
    m_DelSQL3 = New_DelSQL3
    PropertyChanged "DelSQL3"
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=13,0,0,
Public Property Get DelSQL4() As String
    DelSQL4 = m_DelSQL4
End Property

Public Property Let DelSQL4(ByVal New_DelSQL4 As String)
    m_DelSQL4 = New_DelSQL4
    PropertyChanged "DelSQL4"
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=13,0,0,
Public Property Get DelSQL5() As String
    DelSQL5 = m_DelSQL5
End Property

Public Property Let DelSQL5(ByVal New_DelSQL5 As String)
    m_DelSQL5 = New_DelSQL5
    PropertyChanged "DelSQL5"
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=13,0,0,
Public Property Get UpdateSQL1() As String
    UpdateSQL1 = m_UpdateSQL1
End Property

Public Property Let UpdateSQL1(ByVal New_UpdateSQL1 As String)
    m_UpdateSQL1 = New_UpdateSQL1
    PropertyChanged "UpdateSQL1"
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=13,0,0,
Public Property Get UpdateSQL2() As String
    UpdateSQL2 = m_UpdateSQL2
End Property

Public Property Let UpdateSQL2(ByVal New_UpdateSQL2 As String)
    m_UpdateSQL2 = New_UpdateSQL2
    PropertyChanged "UpdateSQL2"
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=13,0,0,
Public Property Get UpdateSQL3() As String
    UpdateSQL3 = m_UpdateSQL3
End Property

Public Property Let UpdateSQL3(ByVal New_UpdateSQL3 As String)
    m_UpdateSQL3 = New_UpdateSQL3
    PropertyChanged "UpdateSQL3"
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=13,0,0,
Public Property Get UpdateSQL4() As String
    UpdateSQL4 = m_UpdateSQL4
End Property

Public Property Let UpdateSQL4(ByVal New_UpdateSQL4 As String)
    m_UpdateSQL4 = New_UpdateSQL4
    PropertyChanged "UpdateSQL4"
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=13,0,0,
Public Property Get UpdateSQL5() As String
    UpdateSQL5 = m_UpdateSQL5
End Property

Public Property Let UpdateSQL5(ByVal New_UpdateSQL5 As String)
    m_UpdateSQL5 = New_UpdateSQL5
    PropertyChanged "UpdateSQL5"
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=13,0,0,0
Public Property Get sTypeName() As String
    sTypeName = m_sTypeName
End Property

Public Property Let sTypeName(ByVal New_sTypeName As String)
    m_sTypeName = New_sTypeName
    PropertyChanged "sTypeName"
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=13,0,0,
Public Property Get sFieldValue() As String
    sFieldValue = m_sFieldValue
End Property

Public Property Let sFieldValue(ByVal New_sFieldValue As String)
    m_sFieldValue = New_sFieldValue
    PropertyChanged "sFieldValue"
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=13,0,0,
Public Property Get sOldFieldValue() As String
    sOldFieldValue = m_sOldFieldValue
End Property

Public Property Let sOldFieldValue(ByVal New_sOldFieldValue As String)
    m_sOldFieldValue = New_sOldFieldValue
    PropertyChanged "sOldFieldValue"
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=13,0,0,
Public Property Get DelField1() As String
    DelField1 = m_DelField1
End Property

Public Property Let DelField1(ByVal New_DelField1 As String)
    m_DelField1 = New_DelField1
    PropertyChanged "DelField1"
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=13,0,0,
Public Property Get DelField2() As String
    DelField2 = m_DelField2
End Property

Public Property Let DelField2(ByVal New_DelField2 As String)
    m_DelField2 = New_DelField2
    PropertyChanged "DelField2"
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=13,0,0,
Public Property Get DelField3() As String
    DelField3 = m_DelField3
End Property

Public Property Let DelField3(ByVal New_DelField3 As String)
    m_DelField3 = New_DelField3
    PropertyChanged "DelField3"
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=13,0,0,
Public Property Get DelField4() As String
    DelField4 = m_DelField4
End Property

Public Property Let DelField4(ByVal New_DelField4 As String)
    m_DelField4 = New_DelField4
    PropertyChanged "DelField4"
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=13,0,0,
Public Property Get DelField5() As String
    DelField5 = m_DelField5
End Property

Public Property Let DelField5(ByVal New_DelField5 As String)
    m_DelField5 = New_DelField5
    PropertyChanged "DelField5"
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=13,0,0,
Public Property Get UpdateField1() As String
    UpdateField1 = m_UpdateField1
End Property

Public Property Let UpdateField1(ByVal New_UpdateField1 As String)
    m_UpdateField1 = New_UpdateField1
    PropertyChanged "UpdateField1"
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=13,0,0,
Public Property Get UpdateField2() As String
    UpdateField2 = m_UpdateField2
End Property

Public Property Let UpdateField2(ByVal New_UpdateField2 As String)
    m_UpdateField2 = New_UpdateField2
    PropertyChanged "UpdateField2"
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=13,0,0,
Public Property Get UpdateField3() As String
    UpdateField3 = m_UpdateField3
End Property

Public Property Let UpdateField3(ByVal New_UpdateField3 As String)
    m_UpdateField3 = New_UpdateField3
    PropertyChanged "UpdateField3"
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=13,0,0,
Public Property Get UpdateField4() As String
    UpdateField4 = m_UpdateField4
End Property

Public Property Let UpdateField4(ByVal New_UpdateField4 As String)
    m_UpdateField4 = New_UpdateField4
    PropertyChanged "UpdateField4"
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=13,0,0,
Public Property Get UpdateField5() As String
    UpdateField5 = m_UpdateField5
End Property

Public Property Let UpdateField5(ByVal New_UpdateField5 As String)
    m_UpdateField5 = New_UpdateField5
    PropertyChanged "UpdateField5"
End Property