payforroom.cls

酒店管理系统 基于VB和SQL的一个很好的程序 可以实现酒店的日常管理工作

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "PayforRoom"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1 RegId int  登记编号
'2 Amount  int  结款金额（如果结款金额为负，则表示退款）
'3 UserName  varchar(40)  收款人
'4 OptTime Varchar 20 收款日期时间

Public RegId As Integer
Public Amount As Single
Public UserName As String
Public OptTime As String

Public Sub Init()
  RegId = 0
  Amount = 0
  UserName = ""
  OptTime = ""
End Sub

'删除
Public Sub Delete(ByVal TmpId As String)
  SqlStmt = "DELETE FROM PayforRoom WHERE RegId=" + Trim(TmpId)
  SQLExt (SqlStmt)
End Sub

'插入结款记录
Public Sub Insert()
  SqlStmt = "INSERT INTO PayforRoom VALUES(" + Trim(RegId) + "," _
          + Trim(Amount) + ",'" + Trim(UserName) + "','" + Trim(OptTime) _
          + "')"
  SQLExt (SqlStmt)
End Sub