📄 frm_rbbtj.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form frm_rbbtj
BackColor = &H0080C0FF&
BorderStyle = 3 'Fixed Dialog
Caption = "日工作量统计"
ClientHeight = 5724
ClientLeft = 2760
ClientTop = 3756
ClientWidth = 4056
Icon = "frm_rbbtj.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 5724
ScaleWidth = 4056
ShowInTaskbar = 0 'False
Begin VB.CommandButton Command1
BackColor = &H00C0E0FF&
Cancel = -1 'True
Height = 450
Index = 3
Left = 2685
MaskColor = &H00FFFFFF&
Picture = "frm_rbbtj.frx":000C
Style = 1 'Graphical
TabIndex = 5
Top = 5220
UseMaskColor = -1 'True
Width = 1236
End
Begin VB.CommandButton Command1
BackColor = &H00C0E0FF&
Enabled = 0 'False
Height = 450
Index = 1
Left = 1417
MaskColor = &H00FFFFFF&
Picture = "frm_rbbtj.frx":0FC6
Style = 1 'Graphical
TabIndex = 4
Top = 5220
UseMaskColor = -1 'True
Width = 1236
End
Begin VB.CommandButton Command1
BackColor = &H00C0E0FF&
Default = -1 'True
Height = 450
Index = 0
Left = 2679
MaskColor = &H00FFFFFF&
Picture = "frm_rbbtj.frx":3BFC
Style = 1 'Graphical
TabIndex = 1
Top = 555
UseMaskColor = -1 'True
Width = 1236
End
Begin VB.CommandButton Command1
BackColor = &H00C0E0FF&
Caption = "|||统计图"
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 450
Index = 4
Left = 150
MaskColor = &H00FFFFFF&
Style = 1 'Graphical
TabIndex = 3
Top = 5220
UseMaskColor = -1 'True
Width = 1236
End
Begin MSComctlLib.ListView ListView1
Height = 4065
Left = 135
TabIndex = 2
Top = 1080
Width = 3780
_ExtentX = 6668
_ExtentY = 7176
View = 3
LabelEdit = 1
LabelWrap = -1 'True
HideSelection = -1 'True
AllowReorder = -1 'True
FullRowSelect = -1 'True
GridLines = -1 'True
HotTracking = -1 'True
HoverSelection = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 2
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = "项目"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 1
Text = "金额(￥)"
Object.Width = 2822
EndProperty
End
Begin MSComCtl2.DTPicker DTPicker1
Height = 315
Left = 150
TabIndex = 0
Top = 630
Width = 1770
_ExtentX = 3112
_ExtentY = 550
_Version = 393216
Format = 24576000
CurrentDate = 36822
End
Begin VB.Line Line1
BorderColor = &H00FFFFFF&
Index = 1
X1 = 285
X2 = 3750
Y1 = 450
Y2 = 450
End
Begin VB.Line Line1
BorderColor = &H00C0C0C0&
Index = 0
X1 = 285
X2 = 3750
Y1 = 420
Y2 = 420
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "科 室 工 作 量 日 报 表"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 645
TabIndex = 6
Top = 150
Width = 2760
End
End
Attribute VB_Name = "frm_rbbtj"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rec As Recordset
Dim itmx As ListItem
Private Sub OKButton_Click()
End Sub
Private Sub Command1_Click(Index As Integer)
On Error GoTo jgqerr
Select Case Index
Case 0 '查询
ListView1.ListItems.Clear
'统计包月卡
sqlstr = "select sum(金额) from 包月卡 where 日期=#" & Format(DTPicker1.Value, "yyyy-mm-dd") & "# and 类型='包月卡' and 收款员='" + Pczy + "'"
Set rec = db.OpenRecordset(sqlstr)
If rec.BOF And rec.EOF Then
Else
Set itmx = ListView1.ListItems.Add(, , "包月卡")
itmx.SubItems(1) = IIf(IsNull(rec.Fields(0)), "0", rec.Fields(0))
End If
sqlstr = "select sum(金额) from 包月卡 where 日期=#" & Format(DTPicker1.Value, "yyyy-mm-dd") & "# and 类型='疗程卡' and 收款员='" + Pczy + "'"
Set rec = db.OpenRecordset(sqlstr)
If rec.BOF And rec.EOF Then
Else
Set itmx = ListView1.ListItems.Add(, , "疗程卡")
itmx.SubItems(1) = IIf(IsNull(rec.Fields(0)), "0", rec.Fields(0))
End If
sqlstr = "select sum(金额) from 包月卡 where 日期=#" & Format(DTPicker1.Value, "yyyy-mm-dd") & "# and 类型='美发包月卡' and 收款员='" + Pczy + "'"
Set rec = db.OpenRecordset(sqlstr)
If rec.BOF And rec.EOF Then
Else
Set itmx = ListView1.ListItems.Add(, , "美发包月卡")
itmx.SubItems(1) = IIf(IsNull(rec.Fields(0)), "0", rec.Fields(0))
End If
'统计单次处置
sqlstr = "select sum(收入) from 单次处置表 where 日期=#" & Format(DTPicker1.Value, "yyyy-mm-dd") & "# and 类别='单次现金' and 收款员='" + Pczy + "'"
Set rec = db.OpenRecordset(sqlstr)
If rec.BOF And rec.EOF Then
Else
Set itmx = ListView1.ListItems.Add(, , "单次现金")
itmx.SubItems(1) = IIf(IsNull(rec.Fields(0)), "0", rec.Fields(0))
End If
sqlstr = "select sum(收入) from 单次处置表 where 日期=#" & Format(DTPicker1.Value, "yyyy-mm-dd") & "# and 类别='单次收据' and 收款员='" + Pczy + "'"
Set rec = db.OpenRecordset(sqlstr)
If rec.BOF And rec.EOF Then
Else
Set itmx = ListView1.ListItems.Add(, , "单次收据")
itmx.SubItems(1) = IIf(IsNull(rec.Fields(0)), "0", rec.Fields(0))
End If
sqlstr = "select sum(收入) from 单次处置表 where 日期=#" & Format(DTPicker1.Value, "yyyy-mm-dd") & "# and 类别='化妆品现金' and 收款员='" + Pczy + "'"
Set rec = db.OpenRecordset(sqlstr)
If rec.BOF And rec.EOF Then
Else
Set itmx = ListView1.ListItems.Add(, , "化妆品现金")
itmx.SubItems(1) = IIf(IsNull(rec.Fields(0)), "0", rec.Fields(0))
End If
sqlstr = "select sum(收入) from 单次处置表 where 日期=#" & Format(DTPicker1.Value, "yyyy-mm-dd") & "# and 类别='化妆品收据' and 收款员='" + Pczy + "'"
Set rec = db.OpenRecordset(sqlstr)
If rec.BOF And rec.EOF Then
Else
Set itmx = ListView1.ListItems.Add(, , "化妆品收据")
itmx.SubItems(1) = IIf(IsNull(rec.Fields(0)), "0", rec.Fields(0))
End If
sqlstr = "select sum(收入) from 单次处置表 where 日期=#" & Format(DTPicker1.Value, "yyyy-mm-dd") & "# and 类别='绿药膏现金' and 收款员='" + Pczy + "'"
Set rec = db.OpenRecordset(sqlstr)
If rec.BOF And rec.EOF Then
Else
Set itmx = ListView1.ListItems.Add(, , "绿药膏现金")
itmx.SubItems(1) = IIf(IsNull(rec.Fields(0)), "0", rec.Fields(0))
End If
sqlstr = "select sum(收入) from 单次处置表 where 日期=#" & Format(DTPicker1.Value, "yyyy-mm-dd") & "# and 类别='美发现金' and 收款员='" + Pczy + "'"
Set rec = db.OpenRecordset(sqlstr)
If rec.BOF And rec.EOF Then
Else
Set itmx = ListView1.ListItems.Add(, , "美发现金")
itmx.SubItems(1) = IIf(IsNull(rec.Fields(0)), "0", rec.Fields(0))
End If
sqlstr = "select sum(收入) from 单次处置表 where 日期=#" & Format(DTPicker1.Value, "yyyy-mm-dd") & "# and 类别='美发收据' and 收款员='" + Pczy + "'"
Set rec = db.OpenRecordset(sqlstr)
If rec.BOF And rec.EOF Then
Else
Set itmx = ListView1.ListItems.Add(, , "美发收据")
itmx.SubItems(1) = IIf(IsNull(rec.Fields(0)), "0", rec.Fields(0))
End If
je = 0
For i = 1 To ListView1.ListItems.Count
je = je + Val(ListView1.ListItems(i).SubItems(1))
Next i
Set itmx = ListView1.ListItems.Add(, , "合计")
itmx.SubItems(1) = je
If ListView1.ListItems(ListView1.ListItems.Count).SubItems(1) = "0" Then
Command1(1).Enabled = False
Command1(4).Enabled = False
Else
Command1(1).Enabled = True
Command1(4).Enabled = True
End If
Case 1 '打印
SaveSetting "奇迹公司", "页眉/页尾", "时间", "0"
SaveSetting "奇迹公司", "页眉/页尾", "日期", "1"
SaveSetting "奇迹公司", "GRID", "表格竖线间距", "30"
SaveSetting "奇迹公司", "GRID", "正文打印行数", "11"
dytr_main Me, 1, Me.Caption, "(" + Format(DTPicker1.Value, "yyyy-mm-dd") + ")工作量日报表"
Case 2
Case 3 '退出
Unload Me
Case 4 '统计图
If ListView1.ListItems.Count <> 0 Then
With frm_graph
.mschart1.ColumnCount = ListView1.ListItems.Count - 1
.mschart1.RowCount = 1
.mschart1.Row = 1
.mschart1.RowLabel = Format(DTPicker1.Value, "yyyy年-mm月-dd日")
.mschart1.TitleText = Me.Caption
For i = 1 To ListView1.ListItems.Count - 1
.mschart1.Column = i
.mschart1.ColumnLabel = ListView1.ListItems(i).Text
.mschart1.Data = Val(ListView1.ListItems(i).SubItems(1))
Next i
.Show
End With
Else
MsgBox "在此查询方式下不能查看统计图", vbOKOnly + vbInformation, "提示"
End If
End Select
Exit Sub
jgqerr:
MsgBox Err.Description, vbOKOnly + vbCritical, "错误"
End Sub
Private Sub Form_Load()
frmcen Me
frm_main.rgzl.Enabled = False
DTPicker1.Value = Date
Command1_Click 0
End Sub
Private Sub Form_Unload(Cancel As Integer)
frm_main.rgzl.Enabled = True
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -