📄 main_kfdj.frm
字号:
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 420
Left = 3690
TabIndex = 38
Top = 90
Width = 1455
End
Begin VB.Label Lab5
BackStyle = 0 'Transparent
Caption = "住宿日期 住宿时间 住宿天数"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 180
TabIndex = 29
Top = 2760
Width = 7545
End
Begin VB.Label Lab3
BackStyle = 0 'Transparent
Caption = "住宿事由"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 180
TabIndex = 26
Top = 1800
Width = 1080
End
Begin VB.Label Lab8
BackStyle = 0 'Transparent
Caption = "提醒日期 提醒时间 退宿日期 退宿时间"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 180
TabIndex = 24
Top = 3735
Width = 8220
End
Begin VB.Label Lab7
BackStyle = 0 'Transparent
Caption = "%"
BeginProperty Font
Name = "宋体"
Size = 18
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 315
Left = 4320
TabIndex = 20
Top = 3180
Width = 240
End
Begin VB.Label Lab10
BackStyle = 0 'Transparent
Caption = "操作员："
Height = 300
Left = 195
TabIndex = 17
Top = 4695
Width = 750
End
Begin VB.Label Lab0
BackStyle = 0 'Transparent
Caption = "NO."
Height = 225
Left = 6690
TabIndex = 15
Top = 435
Width = 675
End
Begin VB.Label Lab4
BackStyle = 0 'Transparent
Caption = "房间号码 客房标准 客房价格"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 180
TabIndex = 11
Top = 2310
Width = 7425
End
Begin VB.Label Lab9
BackStyle = 0 'Transparent
Caption = "备 注"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 180
TabIndex = 7
Top = 4185
Width = 1110
End
Begin VB.Label Lab2
BackStyle = 0 'Transparent
Caption = "联系地址"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 180
TabIndex = 4
Top = 1290
Width = 1080
End
Begin VB.Label Lab1
BackStyle = 0 'Transparent
Caption = "姓 名"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 180
TabIndex = 3
Top = 780
Width = 1110
End
Begin VB.Label Lab6
BackStyle = 0 'Transparent
Caption = "折前宿费 实际宿费 预收押金"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 180
TabIndex = 28
Top = 3255
Width = 8295
End
End
Attribute VB_Name = "main_kfdj"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'定义数据库连接对象
Dim DBcnn As New ADODB.Connection
'定义数据库中对应于住宿登记(djb)表的数据集对象
Dim DBrs1 As New ADODB.Recordset
'定义数据库中对应于酒店客房(kf)表的数据集对象
Dim DBrs2 As New ADODB.Recordset
'定义数据库中对应于酒店客房(kf)表的数据集对象
Dim DBrs3 As New ADODB.Recordset
'定义数据库中对应于住宿费用预收(djys)表的数据集对象
Dim DBrs4 As New ADODB.Recordset
'定义存储sql语句的字符串变量
Dim sqlstr As String
'定义一个整型变量
Dim i As Integer
Private Sub Form_Activate()
If DBcnn.State = 0 Then
Dim connectstr As String
connectstr = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & _
App.Path & "\KFGL.mdb;Persist Security Info=False"
DBcnn.CursorLocation = adUseClient
DBcnn.Open connectstr
End If
If DBrs1.State = 1 Then
DBrs1.Close
End If
If DBrs2.State = 1 Then
DBrs2.Close
End If
If DBrs3.State = 1 Then
DBrs3.Close
End If
'初始化住宿日期和时间
DTP1.Value = Date
tim1.Value = Time
'初始化宿费提醒日期和时间
tim2.Value = #12:00:00 PM#
DTP2.Value = Date
DTP3.Value = Date
'czy.Text = main.StatusBar1.Panels(4).Text '赋值给czy
'初始化与操作员名称对应的控件的显示值
czy.Text = main.loginname
'使Comdj按钮获得焦点
Comdj.SetFocus
End Sub
Private Sub Form_Unload(Cancel As Integer)
main.Enabled = True '设置主窗体有效
End Sub
Private Sub Combo2_Click()
If Trim(Combo2.Text) = "折扣" Then
'设置ZSDJ(8)有效
ZSDJ(8).Enabled = True
'ZSDJ(8)获得焦点
ZSDJ(8).SetFocus
End If
If Trim(Combo2.Text) = "招待" Then
'设置ZSDJ(8)有效
ZSDJ(8).Enabled = True
'赋值给ZSDJ(8)
ZSDJ(8).Text = 0
End If
End Sub
Private Sub ZSDJ_Change(Index As Integer)
Select Case Index
Case 6
'计算折前宿费
ZSDJ(7).Text = Format(Val(ZSDJ(6).Text) * Val(ZSDJ(5).Text), "0.00")
'赋值给ZSDJ(9)
ZSDJ(9).Text = ZSDJ(7).Text
ZSDJ(8).Text = 100
'计算退宿日期
DTP3.Value = DTP1.Value + Val(ZSDJ(6).Text)
Case 8
'计算实际宿费
ZSDJ(9).Text = Format(Val(ZSDJ(7).Text) * Val(ZSDJ(8).Text) / 100, "0.00")
Case 10
If ZSDJ(10).Text <> "" Then
'用val函数将字符串转换为数字
ZSDJ(10).Text = Val(ZSDJ(10).Text)
'计算提醒日期
DTP2.Value = DTP1.Value + Int(Val(ZSDJ(10).Text) / Val(ZSDJ(5).Text))
If (Val(ZSDJ(10).Text) - Int(Val(ZSDJ(10).Text) / Val(ZSDJ(5).Text))) > 0.5 * Val(ZSDJ(5).Text) Then
tim2.Value = #6:00:00 PM#
Else
tim2.Value = #12:00:00 AM#
End If
End If
End Select
End Sub
Private Sub ZSDJ_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
Select Case Index
Case 0
'按回车键Combo1获得焦点
If KeyCode = vbKeyReturn Then Combo1.SetFocus
Case 1
'按回车键ZSDJ(2)获得焦点
If KeyCode = vbKeyReturn Then ZSDJ(2).SetFocus
Case 2
'按回车键ZSDJ(3)获得焦点
If KeyCode = vbKeyReturn Then ZSDJ(3).SetFocus
Case 3
'按回车键ZSDJ(2)获得焦点
If KeyCode = vbKeyReturn Then Dcomfjhm.SetFocus
Case 4
'按回车键ZSDJ(5)获得焦点
If KeyCode = vbKeyReturn Then ZSDJ(5).SetFocus
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -