把你们的MSN留下吧

女孩是purana

好,我贴出来:

Option Explicit

Private mvarG_ID As String
Private mvarG_Name As String
Private mvarG_Linkman As String
Private mvarG_Duty As String
Private mvarG_OfficePhone As String
Private mvarG_MobilePhone As String
Private mvarG_Fax As String
Private mvarG_Address As String
Private mvarG_Cooperate As String
Private mvarG_Demand As String
Private mvarG_Maintenance As Date
Private mvarG_Actualize As String
Private mvarG_Feedback As String
Private mvarG_Settle As String
Private mvarG_Importance As Integer
Private mvarG_Friendly As Integer
Private mvarG_Satisfaction As Integer
Private mvarG_Remark As String

Public Function DeleteGuestInfoRecord(ByVal strID As String) As Boolean
Dim strSQL As String
On Error Resume Next
strSQL = "delete from GuestInfo where G_ID=strID"
TransactSQL (strSQL)
DeleteGuestInfoRecord = (Err.Number = 0)
End Function

Public Function UpdateGuestInfoOldRecord() As Boolean
Dim strSQL As String
On Error Resume Next
strSQL = "update GuestInfo set G_ID='" & Trim() & "'"
TransactSQL (strSQL)

UpdateGuestInfoOldRecord = (Err.Number = 0)
End Function

Public Function AddGuestInfoNewRecord(Optional ByVal strID As String, _
Optional ByVal strName As String, _
Optional ByVal strSex As String, _
Optional ByVal dateBirthday As Date) As Boolean
Dim strSQL As String
On Error Resume Next
If strID = "" Then MsgBox "id isn't null"
strSQL = "insert into GuestInfo(G_ID,G_Name,," & vbCrLf
strSQL = strSQL & "G_Linkman,G_Duty,G_OfficePhone,," & vbCrLf
strSQL = strSQL & "G_MobilePhone,G_Fax,G_Address,," & vbCrLf
strSQL = strSQL & "G_Cooperate,G_Demand,G_Maintenance,," & vbCrLf
strSQL = strSQL & "G_G_Actualize,G_Feedback,G_Settle,," & vbCrLf
strSQL = strSQL & "G_Importance,G_Friendly,G_Satisfaction,," & vbCrLf
strSQL = strSQL & "G_Remark) values ('" & mvarG_ID
strSQL = strSQL & "','" & mvarG_Name
strSQL = strSQL & "','" & mvarG_Linkman
strSQL = strSQL & "','" & mvarG_Duty
strSQL = strSQL & "','" & mvarG_OfficePhone
strSQL = strSQL & "','" & mvarG_MobilePhone
strSQL = strSQL & "','" & mvarG_Fax
strSQL = strSQL & "','" & mvarG_Address
strSQL = strSQL & "','" & mvarG_Cooperate
strSQL = strSQL & "','" & mvarG_Demand
strSQL = strSQL & "','" & mvarG_Maintenance
strSQL = strSQL & "','" & mvarG_Actualize
strSQL = strSQL & "','" & mvarG_Feedback
strSQL = strSQL & "','" & mvarG_Settle
strSQL = strSQL & "','" & mvarG_Importance
strSQL = strSQL & "','" & mvarG_Friendly
strSQL = strSQL & "','" & mvarG_Satisfaction
strSQL = strSQL & "','" & mvarremark & "')"
TransactSQL (strSQL)
AddGuestInfoNewRecord = (Err.Number = 0)
End Function
Public Property Let G_Remark(ByVal vData As String)
mvarG_Remark = vData
End Property
Public Property Get G_Remark() As String
G_Remark = mvarG_Remark
End Property

Public Property Let G_Satisfaction(ByVal vData As Integer)
mvarG_Satisfaction = vData
End Property
Public Property Get G_Satisfaction() As Integer
G_Satisfaction = mvarG_Satisfaction
End Property
Public Property Let G_Friendly(ByVal vData As Integer)
mvarG_Friendly = vData
End Property
Public Property Get G_Friendly() As Integer
G_Friendly = mvarG_Friendly
End Property
Public Property Let G_Importance(ByVal vData As Integer)
mvarG_Importance = vData
End Property
Public Property Get G_Importance() As Integer
G_Importance = mvarG_Importance
End Property
Public Property Let G_Settle(ByVal vData As String)
mvarG_Settle = vData
End Property
Public Property Get G_Settle() As String
G_Settle = mvarG_Settle
End Property
Public Property Let G_Feedback(ByVal vData As String)
mvarG_Feedback = vData
End Property
Public Property Get G_Feedback() As String
G_Feedback = mvarG_Feedback
End Property
Public Property Let G_Actualize(ByVal vData As String)
mvarG_Actualize = vData
End Property
Public Property Get G_Actualize() As String
G_Actualize = mvarG_Actualize
End Property
Public Property Let G_Maintenance(ByVal vData As Date)
mvarG_Maintenance = vData
End Property
Public Property Get G_Maintenance() As Date
G_Maintenance = mvarG_Maintenance
End Property
Public Property Let G_Demand(ByVal vData As String)
mvarG_Demand = vData
End Property
Public Property Get G_Demand() As String
G_Demand = mvarG_Demand
End Property
Public Property Let G_Cooperate(ByVal vData As String)
mvarG_Cooperate = vData
End Property
Public Property Get G_Cooperate() As String
G_Cooperate = mvarG_Cooperate
End Property
Public Property Let G_Address(ByVal vData As String)
mvarG_Address = vData
End Property
Public Property Get G_Address() As String
G_Address = mvarG_Address
End Property
Public Property Let G_Fax(ByVal vData As String)
mvarG_Fax = vData
End Property
Public Property Get G_Fax() As String
G_Fax = mvarG_Fax
End Property
Public Property Let G_MobilePhone(ByVal vData As String)
mvarG_MobilePhone = vData
End Property
Public Property Get G_MobilePhone() As String
G_MobilePhone = mvarG_MobilePhone
End Property
Public Property Let G_OfficePhone(ByVal vData As String)
mvarG_OfficePhone = vData
End Property
Public Property Get G_OfficePhone() As String
G_OfficePhone = mvarG_OfficePhone
End Property
Public Property Let G_Duty(ByVal vData As String)
mvarG_Duty = vData
End Property
Public Property Get G_Duty() As String
G_Duty = mvarG_Duty
End Property
Public Property Let G_Linkman(ByVal vData As String)
mvarG_Linkman = vData
End Property
Public Property Get G_Linkman() As String
G_Linkman = mvarG_Linkman
End Property
Public Property Let G_Name(ByVal vData As String)
mvarG_Name = vData
End Property
Public Property Get G_Name() As String
G_Name = mvarG_Name
End PropertyPublic Property Let G_ID(ByVal vData As String)
mvarG_ID = vData
End PropertyPublic Property Get G_ID() As String
G_ID = mvarG_ID
End Property


我写了一个对数据库的GuestInfo表进行添加,修改,删除操作的类,在使用时老出错,咋整?