📄 lvdiandengji.frm
字号:
End
Begin VB.Label Label3
Caption = "籍贯:"
Height = 255
Left = 360
TabIndex = 12
Top = 960
Width = 495
End
Begin VB.Label Label2
Caption = "性别:"
Height = 255
Left = 360
TabIndex = 10
Top = 1680
Width = 495
End
Begin VB.Label Label1
Caption = "姓名:"
Height = 255
Left = 360
TabIndex = 8
Top = 360
Width = 495
End
End
Begin VB.Frame Frame1
Height = 1095
Index = 2
Left = 0
TabIndex = 0
Top = 4680
Width = 7575
Begin VB.CommandButton Command5
Caption = "返回"
Height = 500
Left = 6120
TabIndex = 5
Top = 360
Width = 1000
End
Begin VB.CommandButton Command4
Caption = "预定查询"
Height = 500
Left = 4680
TabIndex = 4
Top = 360
Width = 1000
End
Begin VB.CommandButton Command3
Caption = "退房"
Height = 500
Left = 3240
TabIndex = 3
Top = 360
Width = 1000
End
Begin VB.CommandButton Command2
Caption = "旅客查询"
Height = 500
Left = 1800
TabIndex = 2
Top = 360
Width = 1000
End
Begin VB.CommandButton Command1
Caption = "添加"
Height = 500
Left = 360
TabIndex = 1
Top = 360
Width = 1000
End
End
End
Attribute VB_Name = "lvdiandengji"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rs As Recordset
Dim db As Database
Dim a As String
Dim b As String
Dim c As Integer
Dim d As Integer
Dim q As String
Private Sub Combo6_Click(Index As Integer) 'ok
Set db = OpenDatabase(App.Path & "\客房情况.mdb")
Set rs = db.OpenRecordset("客房情况")
Set rs = db.OpenRecordset("select 客房号码 from 客房情况 where 客房类型 ='" & Trim(Combo6(0)) & "'")
Dim i As String '初始化房间号码
Dim t As Integer
If Index = 0 Then
Combo6(1).Clear
If Not rs.EOF Then
With Combo6(1)
Do While Not rs.EOF
.AddItem Trim(rs!客房号码)
rs.MoveNext
Loop
ListIndex = 0
End With
Command1.Enabled = True
Else
MsgBox "房间信息建档不正确 !", vbOKOnly + vbExclamation, "jinggao"
Command1.Enabled = False
Exit Sub
End If
ElseIf Index = 1 Then
rs.MoveFirst
rs.Move Combo6(1).ListIndex
End If
End Sub
Private Sub Command1_Click()
On Error Resume Next
Set db = OpenDatabase(App.Path & "\客房情况.mdb")
Set rs = db.OpenRecordset("客房情况")
Set rs = db.OpenRecordset("SELECT COUNT(房间号码) AS Expr1 FROM 旅店登记 WHERE 房间号码 ='" & Trim(Combo6(1).Text) & "'")
a = rs.Fields("expr1").Value
Set rs = db.OpenRecordset("select 床位数 from 客房查看 where 房间号码='" & Combo6(1) & "'")
c = rs.Fields(3).Value
rs.Close
Set db = OpenDatabase(App.Path & "\旅店登记.mdb")
Set rs = db.OpenRecordset("旅店登记")
If Text1.Text = "" Then
MsgBox "姓名没有填!"
Exit Sub
End If
If Text3.Text = "" Then
MsgBox "证件号码不能为空!"
Exit Sub
End If
If DTPicker2 = "" Then
MsgBox "出生日期不能为空!"
Text5.SetFocus
Exit Sub
End If
rs.AddNew
rs.Fields(0) = Text1.Text
rs.Fields(1) = Combo2.Text
rs.Fields(2) = Combo1.Text
rs.Fields(3) = DTPicker2
rs.Fields(4) = Text2.Text
rs.Fields(5) = DTPicker1
rs.Fields(6) = Combo6(0).Text
rs.Fields(7) = Combo6(1).Text
rs.Fields(8) = Text7.Text
rs.Fields(9) = Combo7.Text
rs.Fields(10) = Text3.Text
rs.Fields(11) = Text8(0).Text
rs.Fields(12) = Text8(2).Text
rs.Fields(13) = Text8(3).Text
rs.Fields(14) = Combo3.Text
rs.Fields(15) = Combo4.Text
rs.Fields(16) = Combo5.Text
rs.Update
rs.Close
MsgBox "添加成功!"
Text1 = ""
Combo5 = ""
Combo3 = ""
Combo4 = ""
Combo2 = ""
Combo1 = ""
Text5 = ""
Text2 = ""
Text6 = ""
Combo6(0) = ""
Combo6(1) = ""
Text7 = ""
Text4 = ""
Text3 = ""
Text8(0) = ""
Text8(1) = ""
Text8(2) = ""
Text8(3) = ""
End Sub
Private Sub Command2_Click()
'lvdiandengji.Hide
fangkechaxun.Show
End Sub
Private Sub Command3_Click()
lvketuifang.Show
End Sub
Private Sub Command4_Click()
yudingfangjian.Show
End Sub
Private Sub Command5_Click()
lvdiandengji.Hide
caidan.Show
End Sub
Private Sub Command6_Click()
Set db = OpenDatabase(App.Path & "\客房情况.mdb")
Set rs = db.OpenRecordset("客房情况")
a = "select 单价 from 客房情况 where 客房类型='" & Combo6(0).Text & "' and 客房号码='" & Combo6(1).Text & "'"
If rs.EOF = True And rs.BOF = True Then
MsgBox "客房信息错误!"
Exit Sub
Else
Text8(1) = rs.Fields(10)
End If
End Sub
Private Sub Form_Load()
Dim c As String
Set db = OpenDatabase(App.Path & "\客房情况.mdb")
Set rs = db.OpenRecordset("客房情况")
Set rs = db.OpenRecordset("select distinct 客房类型 from 客房情况")
If Not rs.EOF Then
Do While Not rs.EOF
Combo6(0).AddItem Trim(rs!客房类型)
rs.MoveNext
Loop
Combo6(0).ListIndex = 0
Else
MsgBox "请检查客房信息档案！", vbOKOnly + vbExclamation, "警告"
Command1.Enabled = False
Exit Sub
End If
rs.Close
Combo1.AddItem "北京"
Combo1.AddItem "天津"
Combo1.AddItem "上海"
Combo1.AddItem "重庆"
Combo1.AddItem "河北"
Combo1.AddItem "山西"
Combo1.AddItem "内蒙古"
Combo1.AddItem "黑龙江"
Combo1.AddItem "吉林"
Combo1.AddItem "辽宁"
Combo1.AddItem "山东"
Combo1.AddItem "江苏"
Combo1.AddItem "安徽"
Combo1.AddItem "浙江"
Combo1.AddItem "江西"
Combo1.AddItem "福建"
Combo1.AddItem "台湾"
Combo1.AddItem "河南"
Combo1.AddItem "湖北"
Combo1.AddItem "湖南"
Combo1.AddItem "广东"
Combo1.AddItem "广西"
Combo1.AddItem "陕西"
Combo1.AddItem "宁夏"
Combo1.AddItem "甘肃"
Combo1.AddItem "青海"
Combo1.AddItem "新疆"
Combo1.AddItem "四川"
Combo1.AddItem "贵州"
Combo1.AddItem "云南"
Combo1.AddItem "西藏"
Combo2.AddItem "女"
Combo2.AddItem "男"
Combo3.AddItem "一月"
Combo3.AddItem "二月"
Combo3.AddItem "三月"
Combo3.AddItem "四月"
Combo3.AddItem "五月"
Combo3.AddItem "六月"
Combo3.AddItem "七月"
Combo3.AddItem "八月"
Combo3.AddItem "九月"
Combo3.AddItem "十月"
Combo3.AddItem "十一月"
Combo3.AddItem "十二月"
Combo4.AddItem "一季度"
Combo4.AddItem "二季度"
Combo4.AddItem "三季度"
Combo4.AddItem "四季度"
Combo5.AddItem "2003"
Combo5.AddItem "2004"
Combo5.AddItem "2005"
Combo5.AddItem "2006"
Combo5.AddItem "2007"
Combo5.AddItem "2008"
End Sub
Private Sub Text4_Change()
End Sub
Private Sub Text8_Change(Index As Integer)
Dim intcount As Integer
Dim p As Double
Dim r As Double
Dim z As Double
Dim Y As Boolean 'boolean为逻辑型
'Dim x As String
Y = True
If (Index = 0 Or Index = 1 Or Index = 2) Then
z = 0
If Trim(Text8(0)) <> "" Then
z = z + CDbl(Text8(0))
End If
If Trim(Text8(1)) <> "" Then
z = z * CDbl(Text8(1))
End If
If Trim(Text8(2)) <> "" Then
z = z * CDbl(Text8(2))
End If
Text8(3) = Format(z, "#0.00")
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -