📄 thldcx.frm
字号:
Key = "ZD"
Object.ToolTipText = "查询消费帐单"
ImageIndex = 7
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "J"
Style = 3
EndProperty
BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "计算器"
Key = "K"
Object.ToolTipText = "计算器"
ImageIndex = 8
EndProperty
BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "L"
Style = 3
EndProperty
BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "帮助"
Key = "M"
Object.ToolTipText = "帮助"
ImageIndex = 9
EndProperty
BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出"
Key = "N"
Object.ToolTipText = "退出"
ImageIndex = 10
EndProperty
EndProperty
End
End
Begin MSComctlLib.ImageList ImageList2
Left = 0
Top = 0
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 26
ImageHeight = 23
MaskColor = 16777215
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 10
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "THLDCX.frx":0480
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "THLDCX.frx":0604
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "THLDCX.frx":0ACC
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "THLDCX.frx":0FD0
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "THLDCX.frx":1154
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "THLDCX.frx":161C
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "THLDCX.frx":17A0
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "THLDCX.frx":1CB4
Key = ""
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "THLDCX.frx":2140
Key = ""
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "THLDCX.frx":2594
Key = ""
EndProperty
EndProperty
End
Begin MSComDlg.CommonDialog CDLTEST
Left = 0
Top = 0
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.Menu MNU1
Caption = "文件(&F)"
Begin VB.Menu MNU11
Caption = "打印设置"
Visible = 0 'False
End
Begin VB.Menu MNU12
Caption = "打印预览"
Visible = 0 'False
End
Begin VB.Menu MNU13
Caption = "打印 "
Shortcut = ^P
Visible = 0 'False
End
Begin VB.Menu MNU15
Caption = "-"
Visible = 0 'False
End
Begin VB.Menu MNU16
Caption = "退出(&E)"
End
End
Begin VB.Menu MNU2
Caption = "编辑(&E)"
Visible = 0 'False
Begin VB.Menu MNU21
Caption = "增加 "
Shortcut = ^A
End
Begin VB.Menu MNU26
Caption = "-"
End
Begin VB.Menu MNU23
Caption = "取消"
Shortcut = ^U
End
Begin VB.Menu MNU24
Caption = "-"
End
Begin VB.Menu MNU22
Caption = "删除 "
Shortcut = ^D
End
Begin VB.Menu MNU25
Caption = "-"
End
Begin VB.Menu MNU27
Caption = "预订团会入住"
Shortcut = {F3}
End
End
Begin VB.Menu MNU3
Caption = "查看(&V)"
Begin VB.Menu MNU3_1
Caption = "查找"
Shortcut = ^F
End
Begin VB.Menu MNU3_2
Caption = "消费帐单"
End
End
Begin VB.Menu MNU4
Caption = "计算器(&J)"
End
Begin VB.Menu MNU5
Caption = "帮助(&H)"
Begin VB.Menu MNU51
Caption = "帮助主题"
Shortcut = {F1}
End
Begin VB.Menu MNU52
Caption = "索引"
Enabled = 0 'False
End
Begin VB.Menu MNU53
Caption = "-"
End
Begin VB.Menu MNU54
Caption = "关于红日软件..."
End
End
Begin VB.Menu POP1
Caption = "mouse"
Visible = 0 'False
Begin VB.Menu POP11
Caption = "增加 "
End
Begin VB.Menu POP13
Caption = "-"
End
Begin VB.Menu POP12
Caption = "删除"
End
End
End
Attribute VB_Name = "THLDCX"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim DATJDGL As Database
Dim RECHJZT As Recordset
Private Sub Data1_Reposition()
If IsNumeric(Text5.Text) Then Text5.Text = FormatNumber(Text5.Text, 2, vbTrue, , vbFalse)
If IsNumeric(Text5.Text) Then
If CDbl(Text5.Text) <> 0 Then
Label2(7).Caption = "<大写>人民币" + SUMDM(CDbl(Text5.Text))
Else
Label2(7).Caption = "<大写>"
End If
End If
Text7.Text = Format(Text7.Text, "LONG DATE")
Text8.Text = Format(Text8.Text, "LONG DATE")
End Sub
Private Sub Data3_Reposition()
Text9(0).Text = Format(Text9(0).Text, "LONG DATE")
If IsNumeric(Text9(4).Text) Then Text9(4).Text = FormatCurrency(Text9(4).Text, , vbTrue, , vbFalse)
If IsNumeric(Text9(4).Text) Then
If CDbl(Text9(4).Text) <> 0 Then
Label2(8).Caption = "<大写>人民币" + SUMDM(CDbl(Text9(4).Text))
Else
Label2(8).Caption = "<大写>"
End If
End If
End Sub
Private Sub Form_Activate()
If IsNumeric(Text5.Text) Then Text5.Text = FormatNumber(Text5.Text, 2, vbTrue, , vbFalse)
If IsNumeric(Text5.Text) Then
If CDbl(Text5.Text) <> 0 Then
Label2(7).Caption = "<大写>人民币" + SUMDM(CDbl(Text5.Text))
Else
Label2(7).Caption = "<大写>"
End If
End If
Text7.Text = Format(Text7.Text, "LONG DATE")
Text8.Text = Format(Text8.Text, "LONG DATE")
Text9(0).Text = Format(Text9(0).Text, "LONG DATE")
If IsNumeric(Text9(4).Text) Then Text9(4).Text = FormatCurrency(Text9(4).Text, , vbTrue, , vbFalse)
If IsNumeric(Text9(4).Text) Then
If CDbl(Text9(4).Text) <> 0 Then
Label2(8).Caption = "<大写>人民币" + SUMDM(CDbl(Text9(4).Text))
Else
Label2(8).Caption = "<大写>"
End If
End If
End Sub
Private Sub Form_Load()
Set DATJDGL = OpenDatabase(App.Path & "\DATA\JDGL.MDB")
Set RECHJZT = DATJDGL.OpenRecordset("房间状态", dbOpenDynaset)
Data1.DatabaseName = App.Path & "\data\jdgl.mdb"
Data1.Refresh
Data3.DatabaseName = App.Path & "\data\jdgl.mdb"
Data3.Refresh
End Sub
Private Sub Form_Unload(Cancel As Integer)
DATJDGL.Close
End Sub
Private Sub MNU11_Click() '打印机设置
CDLTEST.flags = cdlPDDisablePrintToFile
CDLTEST.Copies = 3
CDLTEST.PrinterDefault = True
CDLTEST.ShowPrinter
End Sub
Private Sub MNU16_Click() ' 退出模块
DATJDGL.Close
Unload Me
End Sub
Private Sub MNU3_1_Click()
If SSTab1.Tab = 0 Then
If Data1.Recordset.RecordCount = 0 Then
MsgBox "无可查信息!", vbCritical, "提示信息"
Exit Sub
End If
Else
If Data3.Recordset.RecordCount = 0 Then
MsgBox "无可查信息!", vbCritical, "提示信息"
Exit Sub
End If
End If
Load SKRZCXWIN
If SSTab1.Tab = 0 Then
SKRZCXWIN.Caption = "住房团会结帐"
Else
SKRZCXWIN.Caption = "非住房团会结帐"
End If
SKRZCXWIN.Show vbModal
If SSTab1.Tab = 0 Then
If SKRZCXWIN.STRKRID <> "" Then Data1.Recordset.FindFirst ("团会ID='" & SKRZCXWIN.STRKRID & "'")
Else
If SKRZCXWIN.STRKRID <> "" Then Data3.Recordset.FindFirst ("团会ID='" & SKRZCXWIN.STRKRID & "'")
End If
End Sub
Private Sub MNU3_2_Click()
If SSTab1.Tab = 0 Then
If Data1.Recordset.RecordCount = 0 Then
MsgBox "无可查信息!", vbCritical, "提示信息"
Exit Sub
End If
Else
If Data3.Recordset.RecordCount = 0 Then
MsgBox "无可查信息!", vbCritical, "提示信息"
Exit Sub
End If
End If
Load KRCXZD
STRTJ = "SELECT DISTINCTROW 团会结帐.团会ID, 团会结帐.预付款, Sum(结帐帐单.保证金) AS 保证金, IIf([预付款]<>0,[预付款],0)+IIf([保证金]<>0,[保证金],0) AS 保证金合计, Sum(结帐帐单.房费) AS 房费, Sum(结帐帐单.商品) AS 商品, Sum(结帐帐单.加床费) AS 加床费, Sum(结帐帐单.停车) AS 停车, Sum(结帐帐单.电话) AS 电话, Sum(结帐帐单.餐费) AS 餐费, Sum(结帐帐单.酒水) AS 酒水, Sum(结帐帐单.商务) AS 商务, Sum(结帐帐单.会议) AS 会议, Sum(结帐帐单.酒吧) AS 酒吧, Sum(结帐帐单.舞厅) AS 舞厅, Sum(结帐帐单.旅游) AS 旅游, Sum(结帐帐单.损失赔偿) AS 损失赔偿, Sum(结帐帐单.其他) AS 其他, IIf([房费]<>0,[房费],0)+IIf([商品]<>0,[商品],0)+IIf([加床费]<>0,[加床费],0)+IIf([停车]<>0,[停车],0)+IIf([电话]<>0,[电话],0)+IIf([餐费]<>0,[餐费],0)+IIf([酒水]<>0,[酒水],0)+IIf([商务]<>0,[商务],0)+IIf([会议]<>0,[会议],0)+IIf([酒吧]<>0,[酒吧],0)+IIf([舞厅]<>0,[舞厅],0)+IIf([旅游]<>0,[旅游],0)+IIf([损失赔偿]<>0,[损失赔偿],0)+IIf([其他]<>0,[其他],0) AS 消费合计, [保证金合计]-[消费合计] AS 余额, 团会结帐.班次"
STRTJ = STRTJ + " " + "FROM 团会结帐 LEFT JOIN 结帐帐单 ON 团会结帐.团会ID = 结帐帐单.团会ID GROUP BY 团会结帐.团会ID, 团会结帐.预付款, 团会结帐.班次"
KRCXZD.Data3(1).DatabaseName = App.Path & "\DATA\JDGL.MDB"
KRCXZD.Data3(1).RecordSource = STRTJ
KRCXZD.Data3(1).Refresh
If SSTab1.Tab = 0 Then
KRCXZD.Data3(1).Recordset.FindFirst ("团会ID='" & Text6.Text & "'")
seleid1 = "SELECT 结帐帐单.团会ID,结帐帐单.日期, 结帐帐单.保证金,结帐帐单.房费,结帐帐单.商品, 结帐帐单.加床费, 结帐帐单.停车, 结帐帐单.电话, 结帐帐单.餐费, 结帐帐单.酒水, 结帐帐单.商务, 结帐帐单.会议, 结帐帐单.酒吧, 结帐帐单.舞厅, 结帐帐单.旅游, 结帐帐单.损失赔偿, 结帐帐单.其他, 结帐帐单.操作员,结帐帐单.班次 From 结帐帐单 WHERE (((结帐帐单.团会ID)='" & Text6.Text & "')) AND 结帐帐单.保证金=0"
KRCXZD.Caption = KRCXZD.Caption + "─" + Text6.Text + " " + Text2.Text
Else
KRCXZD.Data3(1).Recordset.FindFirst ("团会ID='" & Label4.Caption & "'")
seleid1 = "SELECT 结帐帐单.团会ID,结帐帐单.日期, 结帐帐单.保证金,结帐帐单.房费,结帐帐单.商品, 结帐帐单.加床费, 结帐帐单.停车, 结帐帐单.电话, 结帐帐单.餐费, 结帐帐单.酒水, 结帐帐单.商务, 结帐帐单.会议, 结帐帐单.酒吧, 结帐帐单.舞厅, 结帐帐单.旅游, 结帐帐单.损失赔偿, 结帐帐单.其他, 结帐帐单.操作员,结帐帐单.班次 From 结帐帐单 WHERE (((结帐帐单.团会ID)='" & Label4.Caption & "')) AND 结帐帐单.保证金=0"
KRCXZD.Caption = KRCXZD.Caption + "─" + Label4.Caption + " " + Text9(1).Text
End If
KRCXZD.Data3(0).DatabaseName = App.Path & "\DATA\JDGL.MDB"
KRCXZD.Data3(0).RecordSource = seleid1
KRCXZD.Show vbModal
End Sub
Private Sub MNU4_Click() ' 计算器
Dim jsq As Double
jsq = Shell("calc", vbNormalNoFocus)
End Sub
Private Sub MNU51_Click()
Shell App.Path & "\hh.exe " & App.Path & "\help.chm", vbNormalFocus
End Sub
Private Sub MNU54_Click() ' 关于对话
Load frmAbout
frmAbout.Show vbModal
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text3.SetFocus
End If
End Sub
Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text4.SetFocus
End If
End Sub
Private Sub Text4_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text7.SetFocus
End If
End Sub
Private Sub TEXT7_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text8.SetFocus
End If
End Sub
Private Sub Text8_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text5.SetFocus
End If
End Sub
Private Sub Text5_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case UCase(Button.Key)
Case "A" ' 打印机设置
MNU11_Click
Case "B" ' 打印预览
Case "I" ' 查看
MNU3_1_Click
Case "ZD" ' 消费帐单
MNU3_2_Click
Case "K" ' 计算器
MNU4_Click
Case "M" ' 帮助
MNU51_Click
Case "N" ' 退出
Unload Me
End Select
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -