📄 addmoney.frm
字号:
VERSION 5.00
Begin VB.Form addmoney
BorderStyle = 3 'Fixed Dialog
Caption = "Form1"
ClientHeight = 4455
ClientLeft = 45
ClientTop = 330
ClientWidth = 6705
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 4455
ScaleWidth = 6705
ShowInTaskbar = 0 'False
Begin VB.TextBox Text1
Height = 375
Index = 6
Left = 4440
TabIndex = 16
Top = 2400
Width = 1455
End
Begin VB.TextBox Text1
Height = 375
Index = 5
Left = 4440
Locked = -1 'True
TabIndex = 15
Top = 1680
Width = 1455
End
Begin VB.TextBox Text1
Height = 375
Index = 4
Left = 4440
Locked = -1 'True
TabIndex = 14
Top = 960
Width = 1455
End
Begin VB.TextBox Text1
Height = 375
Index = 3
Left = 4440
Locked = -1 'True
TabIndex = 13
Top = 360
Width = 1455
End
Begin VB.TextBox Text1
Height = 375
Index = 2
Left = 1320
Locked = -1 'True
TabIndex = 12
Top = 1080
Width = 1455
End
Begin VB.TextBox Text1
Height = 375
Index = 1
Left = 1320
Locked = -1 'True
TabIndex = 11
Top = 2400
Width = 1455
End
Begin VB.TextBox Text1
Height = 375
Index = 0
Left = 1320
Locked = -1 'True
TabIndex = 10
Top = 1680
Width = 1455
End
Begin VB.ComboBox Combo1
Height = 300
Left = 1320
TabIndex = 9
Top = 360
Width = 1455
End
Begin VB.CommandButton Command2
Caption = "返回"
Height = 495
Left = 3840
TabIndex = 1
Top = 3480
Width = 1215
End
Begin VB.CommandButton Command1
Caption = "确认"
Height = 495
Left = 1800
TabIndex = 0
Top = 3480
Width = 1215
End
Begin VB.Label Label1
Caption = "续押金"
Height = 255
Index = 7
Left = 3720
TabIndex = 17
Top = 2520
Width = 615
End
Begin VB.Label Label1
Caption = "客房编号"
Height = 255
Index = 6
Left = 480
TabIndex = 8
Top = 360
Width = 735
End
Begin VB.Label Label1
Caption = "客房标准"
Height = 255
Index = 5
Left = 480
TabIndex = 7
Top = 1800
Width = 855
End
Begin VB.Label Label1
Caption = "费用"
Height = 255
Index = 4
Left = 3840
TabIndex = 6
Top = 1080
Width = 495
End
Begin VB.Label Label1
Caption = "余额"
Height = 375
Index = 3
Left = 3840
TabIndex = 5
Top = 1800
Width = 375
End
Begin VB.Label Label1
Caption = "当前押金"
Height = 255
Index = 2
Left = 3600
TabIndex = 4
Top = 360
Width = 735
End
Begin VB.Label Label1
Caption = "客房单价"
Height = 255
Index = 1
Left = 480
TabIndex = 3
Top = 2520
Width = 735
End
Begin VB.Label Label1
Caption = "顾客姓名"
Height = 255
Index = 0
Left = 480
TabIndex = 2
Top = 1080
Width = 855
End
End
Attribute VB_Name = "addmoney"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim mydb As Database
Dim mydb1 As Database
Dim myrs As Recordset
Dim myrs1 As Recordset
Dim sql As String
Private Sub Combo1_Change()
Combo1_Click
End Sub
Private Sub Combo1_Click()
Dim a(0 To 3) As Integer
Set mydb1 = Workspaces(0).OpenDatabase(App.Path & "\data\data.mdb")
Set myrs1 = mydb1.OpenRecordset("客房表", dbOpenDynaset)
myrs1.FindFirst "客房编号 = " + Chr(34) + Combo1.Text + Chr(34) + ""
Text1(0).Text = myrs1.Fields(1)
myrs1.Close
Set myrs1 = mydb1.OpenRecordset("客房标准", dbOpenDynaset)
myrs1.FindFirst "客房标准 = " + Chr(34) + Text1(0).Text + Chr(34) + ""
Text1(1).Text = myrs1.Fields(3)
myrs1.Close
Set myrs1 = mydb1.OpenRecordset("住房表", dbOpenDynaset)
myrs1.FindFirst "客房编号 = " + Chr(34) + Combo1.Text + Chr(34) + ""
Text1(2).Text = myrs1.Fields(1)
Text1(3).Text = myrs1.Fields(4)
a(0) = DatePart("yyyy", myrs1.Fields("入住日期"))
a(1) = DatePart("yyyy", Now)
a(2) = DatePart("y", myrs1.Fields("入住日期"))
a(3) = DatePart("y", Now)
If a(0) = a(1) Then
b = a(3) - a(2)
Else
b = (a(1) - a(0)) * 365 + (365 - a(2)) + a(3)
End If
b = b * Val(Text1(1).Text) * Val(myrs1.Fields("折扣"))
Text1(4).Text = str(b)
Text1(5).Text = str(Val(Text1(3).Text) - Val(Text1(4).Text)) '余额
myrs1.Close
mydb1.Close
End Sub
Private Sub Command1_Click()
Set mydb = Workspaces(0).OpenDatabase(App.Path & "\data\data.mdb")
Set myrs = mydb.OpenRecordset("住房表", dbOpenDynaset)
myrs.FindFirst "客房编号 = " + Chr(34) + Combo1.Text + Chr(34) + ""
If Not myrs.NoMatch Then
If Text1(6).Text <> "" Then
If IsNumeric(Text1(6).Text) Then
myrs.Edit
myrs.Fields("押金") = str(Val(Text1(3).Text) + Val(Text1(6).Text))
myrs.Update
MsgBox ("续押金成功！")
myrs.Close
mydb.Close
切换 (9)
Else
MsgBox ("押金不为数字！")
Text1(6).SetFocus
End If
Else
MsgBox ("押金为空！")
Text1(6).SetFocus
End If
Else
MsgBox ("没有此客房编号！")
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
left = 100
Top = 100
Combo1.Clear
Set mydb = Workspaces(0).OpenDatabase(App.Path & "\data\data.mdb") '设置数据库
sql = "select 客房编号 from 住房表"
Set myrs = mydb.OpenRecordset(sql)
If myrs.EOF = False Then myrs.MoveLast
If myrs.BOF = False Then myrs.MoveFirst
For i = 0 To myrs.RecordCount - 1
If myrs.Fields(0) <> "" Then Combo1.AddItem (myrs.Fields(0)) '添加到列表框
myrs.MoveNext
Next i
If Combo1.ListCount > 0 Then Combo1.ListIndex = 0
myrs.Close
mydb.Close
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -