📄 frm预定入住.frm
字号:
Index = 5
Left = 840
MultiLine = -1 'True
TabIndex = 19
Top = 3480
Width = 2535
End
Begin VB.TextBox Text
Height = 270
Index = 4
Left = 1200
TabIndex = 13
Top = 3000
Width = 855
End
Begin VB.TextBox Text
Height = 270
Index = 3
Left = 1200
TabIndex = 12
Top = 2400
Width = 1335
End
Begin VB.TextBox Text
Height = 270
Index = 2
Left = 1560
TabIndex = 11
Top = 1680
Width = 1815
End
Begin VB.TextBox Text
Height = 270
Index = 1
Left = 1200
TabIndex = 10
Top = 960
Width = 1815
End
Begin VB.TextBox Text
Height = 270
Index = 0
Left = 1200
TabIndex = 9
Top = 360
Width = 1815
End
Begin VB.Label Label10
BackColor = &H80000013&
Caption = "%"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2160
TabIndex = 18
Top = 3000
Width = 615
End
Begin VB.Label Label9
BackColor = &H80000013&
Caption = "折扣："
Height = 255
Left = 240
TabIndex = 17
Top = 3120
Width = 855
End
Begin VB.Label Label6
BackColor = &H80000013&
Caption = "备注："
Height = 255
Left = 240
TabIndex = 8
Top = 4320
Width = 1215
End
Begin VB.Label Label5
BackColor = &H80000013&
Caption = "押金："
Height = 255
Left = 240
TabIndex = 7
Top = 2400
Width = 1335
End
Begin VB.Label Label4
BackColor = &H80000013&
Caption = "顾客证件号码："
Height = 255
Left = 240
TabIndex = 6
Top = 1800
Width = 1575
End
Begin VB.Label Label3
BackColor = &H80000013&
Caption = "顾客证件："
Height = 255
Left = 240
TabIndex = 5
Top = 1080
Width = 1455
End
Begin VB.Label Label2
BackColor = &H80000013&
Caption = "顾客姓名："
Height = 255
Left = 240
TabIndex = 4
Top = 480
Width = 1455
End
End
Begin VB.ComboBox Combo1
Height = 300
ItemData = "frm预定入住.frx":08E4
Left = 2160
List = "frm预定入住.frx":08E6
Style = 2 'Dropdown List
TabIndex = 2
Top = 120
Width = 1575
End
Begin VB.Label Label1
BackColor = &H80000013&
Caption = "预定房间编号："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 360
TabIndex = 1
Top = 240
Width = 2055
End
End
End
Attribute VB_Name = "frm预定入住"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Combo1_Click()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.Open frm登录.Adodc1.ConnectionString
rs.Open "select * from 订房信息表 where 客房编号 = '" & Combo1.Text & "'", cn, 1, 3
Text(0) = rs.Fields(5)
Text(1) = rs.Fields(6)
Text(2) = rs.Fields(7)
Text(3) = rs.Fields(9)
Text(4) = rs.Fields(10)
Text(5) = rs.Fields(11)
Text(6) = Combo1.Text
Text(7) = rs.Fields(1)
Text(8) = rs.Fields(3)
Text(9) = rs.Fields(10)
Text(10) = Val(Text(8)) * Val(Text(9)) * 0.01
End Sub
Private Sub Command1_Click()
Dim x As String
Dim y As Integer
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim rs1 As ADODB.Recordset
Dim rs2 As ADODB.Recordset
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
Set rs1 = New ADODB.Recordset
Set rs2 = New ADODB.Recordset
cn.Open frm登录.Adodc1.ConnectionString
If Combo1.Text = "" Then
MsgBox "请选择客房编号！！！"
Else
rs.Open "select * from 客房信息表 where 客房编号 = '" & Combo1.Text & "'", cn, 1, 3
x = rs.Fields(2)
y = rs.Fields(4)
rs.Close
If Text(0) = "" Then
MsgBox "请选择要登记的房间编号！！！"
Else
rs.Open "select * from 顾客登记表", cn, 1, 3
If Text(11) = "" Then
MsgBox "顾客姓名不能为空，请重新输入顾客姓名！！！"
Text(11).SetFocus
ElseIf Combo2.Text = "" Then
MsgBox "请选择顾客的证件类型！！！"
Combo2.SetFocus
ElseIf Text(12) = "" Then
MsgBox "证件号码不能为空，请重新输入证件号码！！！"
Text(12).SetFocus
ElseIf Text(14) = "" Then
MsgBox "登记房间要交押金！！！"
Text(14).SetFocus
Else
rs.AddNew
rs.Fields(0) = Text(6)
rs.Fields(1) = Text(7)
rs.Fields(2) = x
rs.Fields(3) = y
rs.Fields(4) = Text(8)
rs.Fields(5) = Text(5)
rs.Fields(6) = Text(11)
rs.Fields(7) = Combo2.Text
rs.Fields(8) = Text(12)
rs.Fields(9) = Text(13)
rs.Fields(10) = Text(14)
rs.Fields(11) = Text(9)
If Text(15) = "" Then
rs.Fields(12) = "无"
Else
rs.Fields(12) = Text(15)
End If
rs.Update
MsgBox "登记成功！！！"
Dim i As Integer
For i = 0 To 5
Text(i) = ""
Next i
For i = 7 To 15
Text(i) = ""
Next i
rs2.Open "select * from 客房信息表 where 客房编号 = '" & Text(6).Text & "'", cn, 1, 3
rs2.Fields(11) = "入住"
rs2.Update
rs1.Open "select * from 订房信息表 where 客房编号 = '" & Text(6).Text & "'", cn, 1, 3
rs1.Delete
rs1.Close
End If
End If
End If
End Sub
Private Sub Command2_Click()
Dim i As Integer
i = MsgBox("是否确认退出？", vbYesNo, "提示")
If i = vbYes Then
Unload Me
End If
End Sub
Private Sub Form_Load()
Dim i As Integer
For i = 0 To 10
Text(i).Enabled = False
Next i
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.Open frm登录.Adodc1.ConnectionString
rs.Open "select * from 订房信息表", cn, 1, 3
While Not rs.EOF
Combo1.AddItem (rs.Fields(0))
rs.MoveNext
Wend
rs.Close
End Sub
Private Sub Timer1_Timer()
Text(13) = Format(Now, "yyyy-m-dd hh:mm:ss AM/PM")
Text(13).Enabled = False
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -