📄 main_kfgl.frm
字号:
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{00028C01-0000-0000-0000-000000000046}#1.0#0"; "DBGRID32.OCX"
Begin VB.Form main_kfgl
BackColor = &H00C0C0C0&
BorderStyle = 3 'Fixed Dialog
Caption = "客房设置"
ClientHeight = 4875
ClientLeft = 675
ClientTop = 1890
ClientWidth = 8505
Icon = "main_kfgl.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4875
ScaleWidth = 8505
ShowInTaskbar = 0 'False
StartUpPosition = 1 '所有者中心
Begin MSDBGrid.DBGrid DBGrid1
Bindings = "main_kfgl.frx":000C
Height = 1875
Left = 45
OleObjectBlob = "main_kfgl.frx":0020
TabIndex = 18
Top = 2505
Width = 8415
End
Begin VB.CommandButton Comdj
BackColor = &H00C0C0C0&
Caption = "登记"
Height = 345
Left = 3375
Style = 1 'Graphical
TabIndex = 17
Top = 4440
UseMaskColor = -1 'True
Width = 1185
End
Begin VB.Frame Frame1
Height = 2520
Left = 30
TabIndex = 3
Top = -45
Width = 8415
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access"
DatabaseName = "D:\VB数据库开发实例解析\程序\宾馆客房管理系统\Kfgl.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 375
Left = 7170
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "kf"
Top = 2070
Visible = 0 'False
Width = 1365
End
Begin VB.TextBox Texpz
Height = 375
Left = 1110
TabIndex = 11
Top = 1590
Width = 7185
End
Begin VB.TextBox Texbz
Height = 375
Left = 1110
TabIndex = 10
Top = 2025
Width = 7185
End
Begin VB.TextBox Texfjh
Height = 360
Left = 1110
TabIndex = 9
Top = 225
Width = 3030
End
Begin VB.TextBox Texjg
Height = 360
Left = 5565
TabIndex = 8
Top = 690
Width = 2685
End
Begin VB.TextBox Texsz
Height = 360
Left = 5565
TabIndex = 7
Top = 1140
Width = 2685
End
Begin VB.ComboBox Combo2
Height = 300
ItemData = "main_kfgl.frx":1566
Left = 1110
List = "main_kfgl.frx":1573
Style = 2 'Dropdown List
TabIndex = 5
Top = 690
Width = 3000
End
Begin VB.ComboBox Combo1
Height = 300
ItemData = "main_kfgl.frx":1589
Left = 5565
List = "main_kfgl.frx":1599
TabIndex = 4
Text = "普房"
Top = 210
Width = 2655
End
Begin MSComCtl2.DTPicker DTP1
Height = 345
Left = 1110
TabIndex = 6
Top = 1110
Width = 3030
_ExtentX = 5345
_ExtentY = 609
_Version = 393216
Format = 30015489
CurrentDate = 37142
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "房间号 房态 "
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 795
Left = 90
TabIndex = 16
Top = 255
Width = 975
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "房间类型 价格"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 780
Left = 4320
TabIndex = 15
Top = 255
Width = 1110
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = " 配置 备注: "
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 795
Left = 120
TabIndex = 14
Top = 1605
Width = 975
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "营业日期"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Left = 60
TabIndex = 13
Top = 1170
Width = 1080
End
Begin VB.Label Label6
BackStyle = 0 'Transparent
Caption = "使用设置"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Left = 4305
TabIndex = 12
Top = 1170
Width = 1080
End
End
Begin VB.CommandButton Comend
BackColor = &H00C0C0C0&
Caption = "退出"
Height = 345
Left = 7275
Style = 1 'Graphical
TabIndex = 2
Top = 4440
Width = 1155
End
Begin VB.CommandButton Comcancel
BackColor = &H00C0C0C0&
Caption = "取消"
Height = 330
Left = 5985
Style = 1 'Graphical
TabIndex = 1
Top = 4440
Width = 1155
End
Begin VB.CommandButton Comsave
BackColor = &H00C0C0C0&
Caption = "保存"
Enabled = 0 'False
Height = 345
Left = 4665
Style = 1 'Graphical
TabIndex = 0
Top = 4440
UseMaskColor = -1 'True
Width = 1185
End
End
Attribute VB_Name = "main_kfgl"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\KFGL.MDB" '自动识别数据库路径
End Sub
Private Sub Form_Unload(Cancel As Integer)
main.Enabled = True
End Sub
Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then Combo2.SetFocus
'查询客房信息
Data1.RecordSource = "select * from kf where 房间类型='" & Combo1.Text & "'"
Data1.Refresh
'赋值给texjg.text
If Data1.Recordset.RecordCount > 0 Then Texjg.Text = Data1.Recordset.Fields("价格")
End Sub
Private Sub texfjh_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then Combo1.SetFocus '按回车键Combo1获得焦点
End Sub
Private Sub Combo2_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then Texjg.SetFocus
End Sub
Private Sub texjg_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then DTP1.SetFocus
End Sub
Private Sub DTP1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then Texsz.SetFocus '按回车键Texsz获得焦点
End Sub
Private Sub texsz_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then Texpz.SetFocus
End Sub
Private Sub texpz_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then Texbz.SetFocus
End Sub
Private Sub texbz_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then Comsave.SetFocus
End Sub
Private Sub comdj_Click() '登记
Texfjh.Text = "": Texjg.Text = "": Texsz.Text = ""
Texpz.Text = "": Texbz.Text = ""
Comsave.Enabled = True: Comcancel.Enabled = True: Comdj.Enabled = False
Texfjh.SetFocus
End Sub
Private Sub comsave_Click()
'查找客房信息
Data1.Recordset.FindFirst "房间号 like" + Chr(34) + Texfjh.Text + Chr(34) + ""
If Data1.Recordset.NoMatch Then
'添加客房
Data1.Recordset.AddNew
If Texfjh.Text <> "" Then Data1.Recordset.Fields("房间号") = Texfjh.Text
If Combo1.Text <> "" Then Data1.Recordset.Fields("房间类型") = Combo1.Text
If Combo2.Text <> "" Then Data1.Recordset.Fields("房态") = Combo2.Text
If Texjg.Text <> "" Then Data1.Recordset.Fields("价格") = Texjg.Text
If DTP1.Value <> "" Then Data1.Recordset.Fields("营业日期") = DTP1.Value
If Texsz.Text <> "" Then Data1.Recordset.Fields("使用设置") = Texsz.Text
If Texpz.Text <> "" Then Data1.Recordset.Fields("配置") = Texpz.Text
If Texbz.Text <> "" Then Data1.Recordset.Fields("备注") = Texbz.Text
If Texfjh.Text <> "" Then Data1.Recordset.Fields("标志") = "0"
Data1.Recordset.Update '更新记录
Data1.Refresh
Else
'编辑客房信息
Data1.Recordset.Edit
If Texfjh.Text <> "" Then Data1.Recordset.Fields("房间号") = Texfjh.Text
If Combo2.Text <> "" Then Data1.Recordset.Fields("房态") = Combo2.Text
If Combo1.Text <> "" Then Data1.Recordset.Fields("房间类型") = Combo1.Text
If Texjg.Text <> "" Then Data1.Recordset.Fields("价格") = Texjg.Text
If DTP1.Value <> "" Then Data1.Recordset.Fields("营业日期") = DTP1.Value
If Texsz.Text <> "" Then Data1.Recordset.Fields("使用设置") = Texsz.Text
If Texpz.Text <> "" Then Data1.Recordset.Fields("配置") = Texpz.Text
If Texbz.Text <> "" Then Data1.Recordset.Fields("备注") = Texbz.Text
If Texfjh.Text <> "" Then Data1.Recordset.Fields("标志") = "0"
Data1.Recordset.Update '更新记录
Data1.Refresh
End If
'设置控件有效或无效
Comsave.Enabled = False: Comcancel.Enabled = False
Comend.Enabled = True: Comdj.Enabled = True
End Sub
Private Sub comcancel_Click() '取消操作
Texfjh.Text = "": Texjg.Text = "": Texsz.Text = ""
Texpz.Text = "": Texbz.Text = ""
Comsave.Enabled = False: Comcancel.Enabled = False: Comdj.Enabled = True
End Sub
Private Sub comend_Click()
main.Enabled = True
Unload Me
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -