📄 main_tfdj.frm
字号:
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin MSAdodcLib.Adodc Adodc1
Height = 375
Left = 360
Top = 4200
Width = 2295
_ExtentX = 4048
_ExtentY = 661
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 1
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\程序修改\宾馆客房管理系统\宾馆客房管理系统\DB_KFGL.mdb;Persist Security Info=False"
OLEDBString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\程序修改\宾馆客房管理系统\宾馆客房管理系统\DB_KFGL.mdb;Persist Security Info=False"
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = "selec * from tb_djb"
Caption = "Adodc1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin VB.TextBox czy
BackColor = &H8000000B&
BorderStyle = 0 'None
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 390
Left = 750
TabIndex = 6
Top = 345
Width = 1215
End
Begin VB.TextBox bh
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 5055
Locked = -1 'True
TabIndex = 4
Top = 480
Width = 1935
End
Begin VB.CommandButton Comend
Caption = "退出"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 5805
Style = 1 'Graphical
TabIndex = 2
Top = 3390
Width = 1155
End
Begin VB.CommandButton Comcancel
Caption = "取消"
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 4500
Style = 1 'Graphical
TabIndex = 1
Top = 3390
Width = 1155
End
Begin VB.CommandButton Comok
Caption = "确定"
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 3195
Style = 1 'Graphical
TabIndex = 0
Top = 3390
Width = 1155
End
Begin VB.Label Lab0
BackColor = &H8000000B&
Caption = " 调房登记"
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00008000&
Height = 390
Left = 1980
TabIndex = 8
Top = 60
Width = 2280
End
Begin VB.Label Lab7
BackStyle = 0 'Transparent
Caption = "操作员"
ForeColor = &H000000C0&
Height = 240
Left = 75
TabIndex = 7
Top = 390
Width = 795
End
Begin VB.Label Lab1
BackStyle = 0 'Transparent
Caption = "NO."
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Left = 4800
TabIndex = 5
Top = 510
Width = 675
End
End
Attribute VB_Name = "main_tfdj"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
'自动识别数据库路径
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DB_KFGL.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from tb_djb"
Adodc1.Refresh
Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DB_KFGL.mdb;Persist Security Info=False"
Adodc2.RecordSource = "select * from tb_kf"
Adodc2.Refresh
Adodc3.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DB_KFGL.mdb;Persist Security Info=False"
Adodc3.RecordSource = "select * from tb_djys"
Adodc3.Refresh
End Sub
Private Sub Form_Activate()
czy.text = Main.StatusBar1.Panels(4).text '赋值给czy.text
'查询住宿登记信息
Adodc1.RecordSource = "select * from tb_djb where 标志='1'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
For i = 1 To Adodc1.Recordset.RecordCount
Combo3.AddItem Adodc1.Recordset.Fields("房间号").Value
Adodc1.Recordset.MoveNext
Next i
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
Main.Enabled = True '设置主窗体有效
End Sub
Private Sub Combo2_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then Texbz.SetFocus 'texbz获得焦点
End Sub
Private Sub Combo3_Click()
Combo2.Clear '清空Combo2中的内容
If Combo3.text <> "" Then '如果Combo3不为空
Adodc1.RecordSource = "select * from tb_djb where 房间号='" + Combo3.text + "'and 标志='1'" '查询数据表
Adodc1.Refresh '刷新记录
If Adodc1.Recordset.RecordCount <= 0 Then '如果记录数小于等于0
MsgBox "请核准住宿房间和住宿人！", , "系统提示" '提示信息
Else
If Adodc1.Recordset.Fields("客房类型") <> "" Then '如果字段客房类型不为空
Adodc2.RecordSource = "select * from tb_kf where 房间类型='" + Adodc1.Recordset.Fields("客房类型") + "' and 房态='空房'" '查询数据表
Adodc2.Refresh '刷新数据
If Adodc2.Recordset.RecordCount > 0 Then '如果记录数大于0
For i = 1 To Adodc2.Recordset.RecordCount '循环从1到记录数
Combo2.AddItem Adodc2.Recordset.Fields("房间号").Value '为Combo2增加项
Adodc2.Recordset.MoveNext '记录下移
Next i
End If
'赋值给bh.text等
With Adodc1.Recordset 'with快
If .Fields("凭证号码") <> "" Then bh.text = .Fields("凭证号码") '为“凭证号码”字段赋值
If .Fields("姓名") <> "" Then Texxmb.text = .Fields("姓名") '为“姓名”字段赋值
If .Fields("证件名称") <> "" Then Combo1.text = .Fields("证件名称") '为“证件名称”字段赋值
If .Fields("证件号码") <> "" Then Texsfz.text = .Fields("证件号码") '为“证件号码”事件赋值
If .Fields("客房价格") <> "" Then Texjg.text = .Fields("客房价格") '为“客房价格”字段赋值
End With '结束with快
End If
End If
Combo2.Enabled = True 'Combo2可用
Texbz.Enabled = True 'Texbz可用
End If
End Sub
Private Sub Combo3_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then Combo2.SetFocus '按回车键Combo2获得焦点
End Sub
Private Sub texbz_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then Comok.SetFocus '按回车键comok获得焦点
End Sub
Private Sub comdj_Click() '登记
Frame1.Enabled = True: Frame2.Enabled = True: Combo3.Enabled = True
Combo2.Enabled = True: Texjg.Enabled = True: Comok.Enabled = True
Comcancel.Enabled = True: Comok.Enabled = True: Comdj.Enabled = False
Combo3.SetFocus 'Combo3获得焦点
End Sub
Private Sub comok_Click() '确定调房
Dim bh As String '定义一个字符串类型的变量
'查询空闲房间信息
Adodc2.RecordSource = "select * from tb_kf where 房间号='" & Combo2.text & "'and 房态='空房'"
Adodc2.Refresh '刷新记录
If Adodc2.Recordset.RecordCount > 0 Then '如果记录数大于0
'查询所有住宿登记信息
If Texbz = "" Then '如果备注信息为空则提示输入
MsgBox "请输入备注信息", , "系统提示" '消息提示
Texbz.SetFocus '文本框Texbz获得焦点
Else
Adodc1.RecordSource = "select * from tb_djb where 房间号='" + Combo3.text + "' and 标志='1'" '查询数据表
Adodc1.Refresh
bh = Adodc1.Recordset.Fields("凭证号码") '凭证号码赋给bh
adocon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DB_KFGL.mdb;Persist Security Info=False" '打开数据库
Set adoRs = adocon.Execute("update tb_djb set 房间号='" + Combo2.text + "',备注='" + Texbz.text + "',标志='1',摘要= '由源房' & '" + Combo3.text + "' & '调到目标房' &'" + Combo2.text + "' where 凭证号码='" + Adodc1.Recordset.Fields("凭证号码") + "'") '执行查询
Text1.text = Adodc1.Recordset.Fields("凭证号码") '为文本框赋值
adocon.Close '关闭数据库
Adodc3.RecordSource = "select * from tb_djys where 凭证号码='" + Adodc1.Recordset.Fields("凭证号码") + "'" '查询数据表
Adodc3.Refresh '刷新数据
If Adodc3.Recordset.EOF = False Then Adodc3.Recordset.MoveLast '如果不是尾记录的下一条，移到最后一条记录
If Adodc3.Recordset.BOF = False Then Adodc3.Recordset.MoveFirst '如果不是首记录前一条，移到第一条记录
If Adodc3.Recordset.RecordCount > 0 Then '如果记录数大于0
adocon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DB_KFGL.mdb;Persist Security Info=False" '打开数据库
Set adoRs = adocon.Execute("update tb_djys set 房间号='" + Combo2.text + "',备注='" + Texbz.text + "',标志='1',摘要= '由源房' & '" + Combo3.text + "' & '调到目标房' & '" + Combo2.text + "' where 凭证号码='" + Text1.text + "' ") '查询数据表
adocon.Close '关闭数据库
End If
'编辑客房状态
Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DB_KFGL.mdb;Persist Security Info=False" '打开数据库
Adodc2.RecordSource = "select * from tb_kf where 房间号= '" & Combo2.text & "'" '查询数据表
Adodc2.Refresh '刷新记录
Adodc2.Recordset.Fields("房态") = "入住" '为“房态”字段赋值
Adodc2.Recordset.Update '更新记录
Adodc2.RecordSource = "select * from tb_kf where 房间号= '" & Combo3.text & "'" '查询数据表
Adodc2.Refresh '刷新记录
Adodc2.Recordset.Fields("房态") = "空房" '为“房态”字段赋值
Adodc2.Recordset.Update '更新记录
'查询空闲房间信息
Adodc3.RecordSource = "select * from tb_kf where 房态='空房'" '查询房态为空房的记录
Adodc3.Refresh '刷新记录
'设置控件有效或无效
Texxmb.Enabled = False: Texsfz.Enabled = False: Combo2.Enabled = False
Combo3.Enabled = False: Texbz.Enabled = False: Comok.Enabled = False
Comcancel.Enabled = False: Comdj.Enabled = True
'清空数据
Combo2.text = "": Combo3.text = "": Texxmb.text = ""
Texsfz.text = "": Texbz.text = "": Texjg.text = ""
Comdj.SetFocus 'Comdj获得焦点
End If
Else
MsgBox "请选择正确房间号,再保存!!!", , "系统提示" '提示信息
End If
End Sub
Private Sub comcancel_Click() '取消操作
Combo3.Enabled = True: Combo2.Enabled = True: Comdj.Enabled = True
Comok.Enabled = False: Texbz.Enabled = True
Combo2.text = "": Combo3.text = "": Texxmb.text = ""
Texsfz.text = "": Texbz.text = "": Texjg.text = ""
End Sub
Private Sub comend_Click()
Unload Me
Main.Enabled = True '设置主窗体有效
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -