📄 main_zjyj.frm
字号:
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 270
TabIndex = 11
Top = 285
Width = 8025
End
Begin VB.Label Lab5
BackStyle = 0 'Transparent
Caption = "房间号码 房间类型 房间价格"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 210
TabIndex = 10
Top = 690
Width = 6585
End
End
Begin VB.Label Lab8
BackStyle = 0 'Transparent
Caption = "操作员："
Height = 240
Left = 195
TabIndex = 6
Top = 3705
Width = 735
End
Begin VB.Label Lab0
BackColor = &H00808000&
BackStyle = 0 'Transparent
Caption = " 追加押金"
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 390
Left = 3330
TabIndex = 4
Top = 165
Width = 2190
End
End
Attribute VB_Name = "main_zjyj"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'FIXIT: 使用 Option Explicit 可以避免隐式创建 Variant 类型的变量 FixIT90210ae-R383-H1984
Private Sub Combo1_Click()
Dim db As Database
Dim EF As Recordset
Set db = OpenDatabase(ConData, False, False, Constr)
Set EF = db.OpenRecordset("select * from djb where 房间号='" & Combo1.Text & "'and 标志='1'", dbOpenDynaset)
'列出记录
If Combo1.Text <> "" Then
Text2.Text = EF("姓名")
Text5.Text = EF("房间号")
Text6.Text = EF("客房类型")
Text7.Text = EF("客房价格")
DTP1 = EF("住宿日期")
Text4.Text = EF("住宿天数")
Text3.Text = EF("预收金额")
End If
'添加合计
EF.Close
db.Close
End Sub
Private Sub Command1_Click()
'Caozuo = "追加押金确定保存 '" & Combo1.Text & "'房间追加 '" & Text1.Text & "'元"
'lu_time = Now
'RiZhil
Dim db As Database
Dim EF As Recordset
Set db = OpenDatabase(ConData, False, False, Constr)
Set EF = db.OpenRecordset("select * from djb where 房间号='" & Combo1.Text & "'and 标志='1'", dbOpenDynaset)
'Set EF = db.OpenRecordset("select * from kf where 房态='售出' order by 房间号", dbOpenDynaset)
'列出记录
If Combo1.Text <> "" Then
EF.Edit
EF("预收金额") = Val(Text3.Text) + Val(Text1.Text)
EF.Update
End If
Command1.Enabled = False
'Command2.Enabled = False
EF.Close
db.Close
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Command4_Click() '打印追加押金单据
'Caozuo = "追加押金打印 '" & Combo1.Text & "'房间追加 '" & Text1.Text & "'元"
'lu_time = Now
'RiZhil
'FIXIT: 升级向导未将 Printer 对象和 Printers 集合升级到 Visual Basic .NET。 FixIT90210ae-R5481-H1984
'FIXIT: 升级向导未将 Printer 对象和 Printers 集合升级到 Visual Basic .NET。 FixIT90210ae-R5481-H1984
'FIXIT: 升级向导未将 Printer 对象和 Printers 集合升级到 Visual Basic .NET。 FixIT90210ae-R5481-H1984
'FIXIT: 升级向导未将 Printer 对象和 Printers 集合升级到 Visual Basic .NET。 FixIT90210ae-R5481-H1984
Printer.Height = 8000: Printer.Width = 8000
'FIXIT: 升级向导未将 Printer 对象和 Printers 集合升级到 Visual Basic .NET。 FixIT90210ae-R5481-H1984
'FIXIT: 升级向导未将 Printer 对象和 Printers 集合升级到 Visual Basic .NET。 FixIT90210ae-R5481-H1984
'FIXIT: 升级向导未将 Printer 对象和 Printers 集合升级到 Visual Basic .NET。 FixIT90210ae-R5481-H1984
'FIXIT: 升级向导未将 Printer 对象和 Printers 集合升级到 Visual Basic .NET。 FixIT90210ae-R5481-H1984
Printer.CurrentX = 1100: Printer.CurrentY = 300
'FIXIT: 升级向导未将 Printer 对象和 Printers 集合升级到 Visual Basic .NET。 FixIT90210ae-R5481-H1984
Printer.FontSize = 12
'FIXIT: 升级向导未将 Printer 对象和 Printers 集合升级到 Visual Basic .NET。 FixIT90210ae-R5481-H1984
Printer.Print "宾馆住宿 (押金) "
'FIXIT: 用早期绑定的数据类型声明 "a' and 'b' and 'C" FixIT90210ae-R1672-R1B8ZE
Dim a, b, C, D As Integer
a = 100: b = 500: C = 4800: D = 400
'FIXIT: 升级向导未将 Printer 对象和 Printers 集合升级到 Visual Basic .NET。 FixIT90210ae-R5481-H1984
Printer.FontSize = 10
'FIXIT: 升级向导未将 Printer 对象和 Printers 集合升级到 Visual Basic .NET。 FixIT90210ae-R5481-H1984
Printer.CurrentX = 100 + a
'FIXIT: 升级向导未将 Printer 对象和 Printers 集合升级到 Visual Basic .NET。 FixIT90210ae-R5481-H1984
Printer.CurrentY = b + 200
'FIXIT: 升级向导未将 Printer 对象和 Printers 集合升级到 Visual Basic .NET。 FixIT90210ae-R5481-H1984
Printer.Print Date & " " & Time
b = b + D
'FIXIT: 升级向导未将 Printer 对象和 Printers 集合升级到 Visual Basic .NET。 FixIT90210ae-R5481-H1984
Printer.Line (a, b + 100)-(C, b + 100)
'FIXIT: 升级向导未将 Printer 对象和 Printers 集合升级到 Visual Basic .NET。 FixIT90210ae-R5481-H1984
Printer.CurrentX = 100 + a
'FIXIT: 升级向导未将 Printer 对象和 Printers 集合升级到 Visual Basic .NET。 FixIT90210ae-R5481-H1984
Printer.CurrentY = b + 200
'FIXIT: 升级向导未将 Printer 对象和 Printers 集合升级到 Visual Basic .NET。 FixIT90210ae-R5481-H1984
Printer.Print "姓名：" & Text1.Text
'FIXIT: 升级向导未将 Printer 对象和 Printers 集合升级到 Visual Basic .NET。 FixIT90210ae-R5481-H1984
Printer.CurrentX = 100 + a
'FIXIT: 升级向导未将 Printer 对象和 Printers 集合升级到 Visual Basic .NET。 FixIT90210ae-R5481-H1984
Printer.CurrentY = b + 200
'FIXIT: 升级向导未将 Printer 对象和 Printers 集合升级到 Visual Basic .NET。 FixIT90210ae-R5481-H1984
Printer.Print "房间号:" & Text5.Text
b = b + D
'FIXIT: 升级向导未将 Printer 对象和 Printers 集合升级到 Visual Basic .NET。 FixIT90210ae-R5481-H1984
Printer.CurrentX = 100 + a
'FIXIT: 升级向导未将 Printer 对象和 Printers 集合升级到 Visual Basic .NET。 FixIT90210ae-R5481-H1984
Printer.CurrentY = b + 200
'FIXIT: 升级向导未将 Printer 对象和 Printers 集合升级到 Visual Basic .NET。 FixIT90210ae-R5481-H1984
Printer.Print "押金:" & Format(Text1.Text, "0.00")
b = b + D
'FIXIT: 升级向导未将 Printer 对象和 Printers 集合升级到 Visual Basic .NET。 FixIT90210ae-R5481-H1984
Printer.CurrentX = 100 + a
'FIXIT: 升级向导未将 Printer 对象和 Printers 集合升级到 Visual Basic .NET。 FixIT90210ae-R5481-H1984
Printer.CurrentY = b + 200
'FIXIT: 升级向导未将 Printer 对象和 Printers 集合升级到 Visual Basic .NET。 FixIT90210ae-R5481-H1984
Printer.Print "下次补交日期: "
b = b + D
'FIXIT: 升级向导未将 Printer 对象和 Printers 集合升级到 Visual Basic .NET。 FixIT90210ae-R5481-H1984
Printer.Line (a, b + 100)-(C, b + 100)
'FIXIT: 升级向导未将 Printer 对象和 Printers 集合升级到 Visual Basic .NET。 FixIT90210ae-R5481-H1984
Printer.CurrentX = 100 + a
'FIXIT: 升级向导未将 Printer 对象和 Printers 集合升级到 Visual Basic .NET。 FixIT90210ae-R5481-H1984
Printer.CurrentY = b + 200
'FIXIT: 升级向导未将 Printer 对象和 Printers 集合升级到 Visual Basic .NET。 FixIT90210ae-R5481-H1984
Printer.Print "操作员: " & czy.Text & " 欢迎光临"
'FIXIT: 升级向导未将 Printer 对象和 Printers 集合升级到 Visual Basic .NET。 FixIT90210ae-R5481-H1984
Printer.EndDoc
End Sub
Private Sub Command5_Click()
'Caozuo = "追加押金登记"
'lu_time = Now
'RiZhil
Dim db As Database
Dim EF As Recordset
Set db = OpenDatabase(ConData, False, False, Constr)
Set EF = db.OpenRecordset("select * from kf where 房态='售出' order by 房间号", dbOpenDynaset)
'列出记录
If Not (EF.BOF And EF.EOF) Then
Do While Not EF.EOF
Combo1.AddItem EF("房间号")
EF.MoveNext
Loop
End If
czy.Text = MDIForm1.StatusBar1.Panels(4).Text
Command1.Enabled = True
' Command2.Enabled = True
Command4.Enabled = True
EF.Close
db.Close
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -