📄 changeroom.frm
字号:
TabIndex = 6
Top = 2520
Width = 1455
End
Begin VB.TextBox Text1
Height = 495
Index = 2
Left = 1080
Locked = -1 'True
TabIndex = 5
Top = 1800
Width = 1455
End
Begin VB.TextBox Text1
Height = 495
Index = 1
Left = 1080
Locked = -1 'True
TabIndex = 4
Top = 960
Width = 1455
End
Begin VB.TextBox Text1
Height = 495
Index = 0
Left = 1080
Locked = -1 'True
TabIndex = 3
Top = 360
Width = 1455
End
Begin VB.Label Label11
Caption = "费用"
Height = 495
Left = 360
TabIndex = 13
Top = 3960
Width = 495
End
Begin VB.Label Label10
Caption = "押金"
Height = 495
Left = 360
TabIndex = 11
Top = 3360
Width = 495
End
Begin VB.Label Label9
Caption = "备注"
Height = 495
Left = 360
TabIndex = 9
Top = 4800
Width = 495
End
Begin VB.Label Label8
Caption = "调换时间"
Height = 495
Left = 240
TabIndex = 8
Top = 2640
Width = 1215
End
Begin VB.Label Label7
Caption = "入住时间"
Height = 495
Left = 240
TabIndex = 7
Top = 1920
Width = 735
End
Begin VB.Label Label1
Caption = "顾客姓名"
Height = 495
Index = 0
Left = 240
TabIndex = 2
Top = 480
Width = 735
End
Begin VB.Label Label1
Caption = "身份证号"
Height = 495
Index = 1
Left = 240
TabIndex = 1
Top = 1200
Width = 855
End
End
End
Attribute VB_Name = "changeroom"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim mydb As Database
Dim mydb1 As Database
Dim myrs As Recordset
Dim myrs1 As Recordset
Dim sql As String
Private Sub Combo1_Change()
Combo1_Click
End Sub
Private Sub Combo1_Click()
Dim a(0 To 3) As Integer
Dim b As Integer
Set mydb1 = Workspaces(0).OpenDatabase(App.Path & "\data\data.mdb")
Set myrs1 = mydb1.OpenRecordset("住房表", dbOpenDynaset)
myrs1.FindFirst "客房编号 = " + Chr(34) + Combo1.Text + Chr(34) + ""
For i = 0 To 2
Text1(i) = myrs1.Fields(i + 1)
Next
Text1(4).Text = myrs1.Fields(4)
Text1(5).Text = myrs1.Fields(6)
Text2(3).Text = myrs1.Fields(5)
Text1(6).Text = myrs1.Fields(7)
myrs1.Close
Set myrs1 = mydb1.OpenRecordset("客房表", dbOpenDynaset)
myrs1.FindFirst "客房编号 = " + Chr(34) + Combo1.Text + Chr(34) + ""
sql = myrs1.Fields(1)
Set myrs1 = mydb1.OpenRecordset("客房标准", dbOpenDynaset)
myrs1.FindFirst "客房标准 = " + Chr(34) + sql + Chr(34) + ""
Text2(0).Text = myrs1.Fields("客房标准")
myrs1.Close
Set myrs1 = mydb1.OpenRecordset("客房标准", dbOpenDynaset)
myrs1.FindFirst "客房标准 = " + Chr(34) + Text2(0).Text + Chr(34) + ""
Text2(1).Text = myrs1.Fields(3)
Text2(2).Text = myrs1.Fields(1)
a(0) = DatePart("yyyy", Text1(2).Text)
a(1) = DatePart("yyyy", Now)
a(2) = DatePart("y", Text1(2).Text)
a(3) = DatePart("y", Now)
If a(0) = a(1) Then
b = a(3) - a(2)
Else
b = (a(1) - a(0)) * 365 + (365 - a(2)) + a(3)
End If
b = b * Val(Text2(1).Text) * Val(Text2(3).Text)
Text1(5).Text = str(Val(b) + Val(Text1(5).Text))
myrs1.Close
mydb1.Close
End Sub
Private Sub Combo2_Change()
Combo2_Click
End Sub
Private Sub Combo2_Click()
Set mydb1 = Workspaces(0).OpenDatabase(App.Path & "\data\data.mdb")
Set myrs1 = mydb1.OpenRecordset("客房表", dbOpenDynaset)
myrs1.FindFirst "客房编号 = " + Chr(34) + Combo2.Text + Chr(34) + ""
sql = myrs1.Fields(1)
Set myrs1 = mydb1.OpenRecordset("客房标准", dbOpenDynaset)
myrs1.FindFirst "客房标准 = " + Chr(34) + sql + Chr(34) + ""
Text3(0).Text = myrs1.Fields(0)
Text3(1).Text = myrs1.Fields(3)
Text3(2).Text = myrs1.Fields(1)
myrs1.Close
mydb1.Close
End Sub
Private Sub Command1_Click()
If Text3(3).Text = "" Then
MsgBox ("新住房折扣为空！")
Text3(3).SetFocus
Else
If Not IsNumeric(Text3(3).Text) Then
MsgBox ("新住房折扣应该为数字！")
Text3(3).SetFocus
Else
Set mydb = Workspaces(0).OpenDatabase(App.Path & "\data\data.mdb")
Set myrs = mydb.OpenRecordset("客房表", dbOpenDynaset)
myrs.FindFirst "客房编号 = " + Chr(34) + Combo2.Text + Chr(34) + ""
If Not myrs.NoMatch Then
If myrs.Fields("状态") <> "已订" Then
If myrs.Fields("状态") <> "入住" Then
Set myrs1 = mydb.OpenRecordset("住房表", dbOpenDynaset)
myrs1.FindFirst "客房编号 = " + Chr(34) + Combo1.Text + Chr(34) + ""
myrs1.Delete
myrs1.MoveNext
myrs1.AddNew
myrs1.Fields(0) = Combo2.Text
myrs1.Fields(1) = Text1(0).Text
myrs1.Fields(2) = Text1(1).Text
myrs1.Fields(3) = Text1(3).Text
myrs1.Fields(4) = Text1(4).Text
myrs1.Fields(5) = Text3(3).Text
myrs1.Fields(6) = Text1(5).Text
myrs1.Fields(7) = Text1(6).Text & Text1(3).Text & " 调房 "
myrs1.Update
myrs1.Close
Set myrs1 = mydb.OpenRecordset("客房表", dbOpenDynaset)
myrs1.FindFirst "客房编号 = " + Chr(34) + Combo1.Text + Chr(34) + ""
myrs1.Edit
myrs1.Fields("状态") = "无"
myrs1.Update
myrs1.Close
myrs.Edit
myrs.Fields("状态") = "入住"
myrs.Update
MsgBox ("调房成功！")
切换 (4)
Else
MsgBox ("此客房已有人入注！")
End If
Else
MsgBox ("此客房已有人预定！")
End If
Else
MsgBox ("没有此客房！")
End If
End If
End If
End Sub
Private Sub Command2_Click()
For i = 0 To 6
If i < 4 Then
Text2(i).Text = ""
Text3(i).Text = ""
End If
Text1(i).Text = ""
Next
Text1(3).Text = Date$
Combo1.Text = ""
Combo2.Text = ""
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Command4_Click()
Load findroom
End Sub
Private Sub Form_Load()
left = 100
Top = 100
Text1(3).Text = Date$
Combo1.Clear
Combo2.Clear
Set mydb = Workspaces(0).OpenDatabase(App.Path & "\data\data.mdb") '设置数据库
sql = "select 客房编号 from 住房表"
Set myrs = mydb.OpenRecordset(sql)
If myrs.EOF = False Then myrs.MoveLast
If myrs.BOF = False Then myrs.MoveFirst
For i = 0 To myrs.RecordCount - 1
If myrs.Fields(0) <> "" Then Combo1.AddItem (myrs.Fields(0)) '添加到列表框
myrs.MoveNext
Next i
If Combo1.ListCount > 0 Then Combo1.ListIndex = 0
myrs.Close
Set mydb = Workspaces(0).OpenDatabase(App.Path & "\data\data.mdb") '设置数据库
sql = "select * from 客房表"
Set myrs = mydb.OpenRecordset(sql)
If myrs.EOF = False Then myrs.MoveLast
If myrs.BOF = False Then myrs.MoveFirst
For i = 0 To myrs.RecordCount - 1
If myrs.Fields(0) <> "" Then
If myrs.Fields("状态") = "无" Then
Combo2.AddItem (myrs.Fields(0)) '添加到列表框
End If
End If
myrs.MoveNext
Next i
If Combo2.ListCount > 0 Then Combo2.ListIndex = 0
myrs.Close
mydb.Close
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -