📄 yyhz.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form yyhz
BorderStyle = 1 'Fixed Single
Caption = "营业额汇月总统计"
ClientHeight = 7335
ClientLeft = 45
ClientTop = 330
ClientWidth = 10470
Icon = "yyhz.frx":0000
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 7335
ScaleWidth = 10470
StartUpPosition = 3 '窗口缺省
Begin 工程1.XPContainer XPContainer1
Height = 6615
Left = 0
TabIndex = 0
Top = 720
Width = 10455
_ExtentX = 18441
_ExtentY = 11668
HeaderLightColor= 15526633
HeaderDarkColor = 8421504
BackLightColor = 16316407
BackDarkColor = 14737632
BorderColor = 8421504
TextColor = 4867908
Caption = ""
Theme = 10
Begin MSComctlLib.ListView ListView1
Height = 5895
Left = 0
TabIndex = 10
Top = 360
Width = 10455
_ExtentX = 18441
_ExtentY = 10398
View = 3
LabelWrap = -1 'True
HideSelection = -1 'True
FullRowSelect = -1 'True
GridLines = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 0
End
Begin VB.TextBox Text1
Height = 270
Left = 5040
TabIndex = 9
Top = 6600
Visible = 0 'False
Width = 1335
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "营业额统计:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 255
Left = 120
TabIndex = 1
Top = 6360
Width = 8895
End
End
Begin 工程1.isButton isButton1
Height = 735
Left = 120
TabIndex = 2
Top = 0
Width = 1455
_ExtentX = 2566
_ExtentY = 1296
Icon = "yyhz.frx":038A
Style = 8
Caption = "打印报表"
IconAlign = 1
iNonThemeStyle = 0
Tooltiptitle = ""
ToolTipIcon = 0
ToolTipType = 0
ttForeColor = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin 工程1.isButton isButton2
Height = 735
Left = 1600
TabIndex = 3
Top = 0
Width = 1455
_ExtentX = 2566
_ExtentY = 1296
Icon = "yyhz.frx":0724
Style = 8
Caption = "前台收银"
IconAlign = 1
iNonThemeStyle = 0
Tooltiptitle = ""
ToolTipIcon = 0
ToolTipType = 0
ttForeColor = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin 工程1.isButton isButton3
Height = 735
Left = 3080
TabIndex = 4
Top = 0
Width = 1455
_ExtentX = 2566
_ExtentY = 1296
Icon = "yyhz.frx":0ABE
Style = 8
Caption = "添加会员"
IconAlign = 1
iNonThemeStyle = 0
Tooltiptitle = ""
ToolTipIcon = 0
ToolTipType = 0
ttForeColor = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin 工程1.isButton isButton4
Height = 735
Left = 4560
TabIndex = 5
Top = 0
Width = 1455
_ExtentX = 2566
_ExtentY = 1296
Icon = "yyhz.frx":0E58
Style = 8
Caption = "营业额汇总"
IconAlign = 1
iNonThemeStyle = 0
Tooltiptitle = ""
ToolTipIcon = 0
ToolTipType = 0
ttForeColor = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin 工程1.isButton isButton5
Height = 735
Left = 6040
TabIndex = 6
Top = 0
Width = 1455
_ExtentX = 2566
_ExtentY = 1296
Icon = "yyhz.frx":13F2
Style = 8
Caption = "考勤"
IconAlign = 1
iNonThemeStyle = 0
Tooltiptitle = ""
ToolTipIcon = 0
ToolTipType = 0
ttForeColor = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin 工程1.isButton isButton6
Height = 735
Left = 7520
TabIndex = 7
Top = 0
Width = 1455
_ExtentX = 2566
_ExtentY = 1296
Icon = "yyhz.frx":178C
Style = 8
Caption = "工资统计"
IconAlign = 1
iNonThemeStyle = 0
Tooltiptitle = ""
ToolTipIcon = 0
ToolTipType = 0
ttForeColor = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin 工程1.isButton isButton7
Height = 735
Left = 9000
TabIndex = 8
Top = 0
Width = 1455
_ExtentX = 2566
_ExtentY = 1296
Icon = "yyhz.frx":1B26
Style = 8
Caption = "提成查看"
IconAlign = 1
iNonThemeStyle = 0
Tooltiptitle = ""
ToolTipIcon = 0
ToolTipType = 0
ttForeColor = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
End
Attribute VB_Name = "yyhz"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
st1
End Sub
Sub st1()
Dim sim As Long
Dim ssql As String
Dim cnn As New ADODB.Connection
Dim ret As New ADODB.Recordset
Const a = "'"
Temp = Year(Date)
temp1 = Month(Date)
temp2 = Temp & "-" & temp1
'连接数据库1
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path & "\data\kq.mdb" + ";Persist Security Info=False;"
ssql = "select * from 收银 where format(月份,'yyyy-mm') ='" & temp2 & "'"
ret.Open ssql, cnn, 1, 3
Dim j As Integer
Me.ListView1.ColumnHeaders.Add , , "收款"
Me.ListView1.ColumnHeaders.Add , , "会员名"
Me.ListView1.ColumnHeaders.Add , , "日期"
Me.ListView1.ColumnHeaders.Add , , "指派员工"
Me.ListView1.ColumnHeaders.Add , , "流水序号"
Do While Not ret.EOF
For j = 1 To ret.RecordCount
Dim objLI As ListItem
Dim si As ListSubItem
Dim li As ListItem
Set objLI = ListView1.ListItems.Add(Text:=ret.Fields("收取费用") & "元")
Set si = objLI.ListSubItems.Add(Text:="" & ret.Fields("会员名"))
Set si = objLI.ListSubItems.Add(Text:="" & ret.Fields("收银日期"))
Set si = objLI.ListSubItems.Add(Text:="" & ret.Fields("指派员工"))
Set si = objLI.ListSubItems.Add(Text:="" & ret.Fields("序号"))
sim = sim + Val(ret.Fields("收取费用"))
ret.MoveNext
Next j
Loop
Label1.Caption = "今日本店总收入（包括会员刷卡消费）共 :" & sim & "元"
ret.Close
cnn.Close
End Sub
Private Sub isButton2_Click()
sy.Show
Unload Me
End Sub
Private Sub isButton3_Click()
hygl.Show
Unload Me
End Sub
Private Sub isButton4_Click()
yyhz.Show
Unload Me
End Sub
Private Sub isButton5_Click()
kaoqin.Show
Unload Me
End Sub
Private Sub isButton6_Click()
gztj.Show
Unload Me
End Sub
Private Sub isButton7_Click()
tichengtongji.Show
Unload Me
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -