📄 skldcx.frm
字号:
End
Begin DevPowerTransImg.TransImg TransImg1
Height = 495
Left = 8880
TabIndex = 20
Top = 680
Width = 1095
_ExtentX = 1931
_ExtentY = 873
AutoSize = 0 'False
MaskColor = 16777215
Transparent = -1 'True
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 = "SKLDCX.frx":0500
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "SKLDCX.frx":0684
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "SKLDCX.frx":0B4C
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "SKLDCX.frx":1050
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "SKLDCX.frx":11D4
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "SKLDCX.frx":169C
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "SKLDCX.frx":1820
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "SKLDCX.frx":1CAC
Key = ""
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "SKLDCX.frx":2100
Key = ""
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "SKLDCX.frx":258C
Key = ""
EndProperty
EndProperty
End
Begin VB.Line Line4
BorderColor = &H80000009&
X1 = 120
X2 = 120
Y1 = 840
Y2 = 5775
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)"
Enabled = 0 'False
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 MNU53
Caption = "-"
End
Begin VB.Menu MNU54
Caption = "关于红日软件..."
End
End
End
Attribute VB_Name = "SKLDCX"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim DATJDGL As Database
Dim RECHJZT As Recordset
Dim RECZJLB As Recordset
Dim RECLKLB As Recordset
Dim RECYD 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
Text10.Text = Format(Text10.Text, "LONG DATE")
Text11.Text = Format(Text11.Text, "LONG DATE")
End Sub
Private Sub Data2_Reposition()
If IsNumeric(Text12(8).Text) Then Text12(8).Text = FormatCurrency(Text12(8).Text, , vbTrue, , vbFalse)
If IsNumeric(Text12(8).Text) Then
If CDbl(Text12(8).Text) <> 0 Then
Label2(18).Caption = "<大写>人民币" + SUMDM(CDbl(Text12(8).Text))
Else
Label2(18).Caption = "<大写>"
End If
End If
Text12(0).Text = Format(Text12(0).Text, "LONG DATE")
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
Text10.Text = Format(Text10.Text, "LONG DATE")
Text11.Text = Format(Text11.Text, "LONG DATE")
If IsNumeric(Text12(8).Text) Then Text12(8).Text = FormatCurrency(Text12(8).Text, , vbTrue, , vbFalse)
If IsNumeric(Text12(8).Text) Then
If CDbl(Text12(8).Text) <> 0 Then
Label2(18).Caption = "<大写>人民币" + SUMDM(CDbl(Text12(8).Text))
Else
Label2(18).Caption = "<大写>"
End If
End If
Text12(0).Text = Format(Text12(0).Text, "LONG DATE")
End Sub
Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\data\jdgl.mdb"
Data1.Refresh
Data2.DatabaseName = App.Path & "\data\jdgl.mdb"
Data2.Refresh
Set DATJDGL = OpenDatabase(App.Path & "\DATA\JDGL.MDB")
Set RECHJZT = DATJDGL.OpenRecordset("房间状态", dbOpenDynaset)
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() ' 退出模块
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 Data2.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 Data2.Recordset.FindFirst ("客人ID='" & SKRZCXWIN.STRKRID & "'")
End If
End Sub
Private Sub MNU3_2_Click()
Dim STRKRID As String
If SSTab1.Tab = 0 Then
If Data1.Recordset.RecordCount = 0 Then
MsgBox "无可查信息!", vbCritical, "提示信息"
Exit Sub
End If
Else
If Data2.Recordset.RecordCount = 0 Then
MsgBox "无可查信息!", vbCritical, "提示信息"
Exit Sub
End If
End If
Load KRCXZD
KRCXZD.Data3(1).DatabaseName = App.Path & "\data\jdgl.mdb"
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).RecordSource = STRTJ
KRCXZD.Data3(1).Refresh
If SSTab1.Tab = 0 Then
STRKRID = Text6.Text
KRCXZD.Caption = KRCXZD.Caption + "─" + STRKRID + " " + Text2.Text
Else
STRKRID = Label5.Caption
KRCXZD.Caption = KRCXZD.Caption + "─" + STRKRID + " " + Text12(1).Text
End If
KRCXZD.Data3(0).DatabaseName = App.Path & "\data\jdgl.mdb"
seleid1 = "SELECT 结帐帐单.客人ID,结帐帐单.日期, 结帐帐单.保证金,结帐帐单.房费,结帐帐单.商品, 结帐帐单.加床费, 结帐帐单.停车, 结帐帐单.电话, 结帐帐单.餐费, 结帐帐单.酒水, 结帐帐单.商务, 结帐帐单.会议, 结帐帐单.酒吧, 结帐帐单.舞厅, 结帐帐单.旅游, 结帐帐单.损失赔偿, 结帐帐单.其他, 结帐帐单.操作员,结帐帐单.班次 From 结帐帐单 WHERE (((结帐帐单.客人ID)='" & STRKRID & "')) AND 结帐帐单.保证金=0"
KRCXZD.Data3(0).RecordSource = seleid1
KRCXZD.Data3(0).Refresh
KRCXZD.Data3(1).Recordset.FindFirst ("客人ID='" & STRKRID & "'")
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 Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case UCase(Button.Key)
Case "A" ' 打印
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 + -