📄 yyhz.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form yyhz
Caption = "营业额汇月总统计"
ClientHeight = 7335
ClientLeft = 60
ClientTop = 345
ClientWidth = 10455
Icon = "yyhz.frx":0000
LinkTopic = "Form2"
ScaleHeight = 7335
ScaleWidth = 10455
StartUpPosition = 3 '窗口缺省
Begin 美容美发管理系统V2007.XPContainer XPContainer1
Height = 6615
Left = 120
TabIndex = 0
Top = 1680
Width = 10455
_ExtentX = 18441
_ExtentY = 11668
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
FlatScrollBar = -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 = 4455
End
End
Begin 美容美发管理系统V2007.isButton isButton1
Height = 735
Left = 120
TabIndex = 2
Top = 0
Width = 1455
_ExtentX = 2566
_ExtentY = 1296
Caption = "isButton"
IconAlign = 1
Tooltiptitle = ""
ToolTipIcon = 0
ToolTipType = 1
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 美容美发管理系统V2007.isButton isButton2
Height = 735
Left = 1600
TabIndex = 3
Top = 0
Width = 1455
_ExtentX = 2566
_ExtentY = 1296
Caption = "isButton"
IconAlign = 1
Tooltiptitle = ""
ToolTipIcon = 0
ToolTipType = 1
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 美容美发管理系统V2007.isButton isButton3
Height = 735
Left = 3080
TabIndex = 4
Top = 0
Width = 1455
_ExtentX = 2566
_ExtentY = 1296
Caption = "isButton"
IconAlign = 1
Tooltiptitle = ""
ToolTipIcon = 0
ToolTipType = 1
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 美容美发管理系统V2007.isButton isButton4
Height = 735
Left = 4560
TabIndex = 5
Top = 0
Width = 1455
_ExtentX = 2566
_ExtentY = 1296
Caption = "isButton"
IconAlign = 1
Tooltiptitle = ""
ToolTipIcon = 0
ToolTipType = 1
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 美容美发管理系统V2007.isButton isButton5
Height = 735
Left = 6040
TabIndex = 6
Top = 0
Width = 1455
_ExtentX = 2566
_ExtentY = 1296
Caption = "isButton"
IconAlign = 1
Tooltiptitle = ""
ToolTipIcon = 0
ToolTipType = 1
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 美容美发管理系统V2007.isButton isButton6
Height = 735
Left = 7520
TabIndex = 7
Top = 0
Width = 1455
_ExtentX = 2566
_ExtentY = 1296
Caption = "isButton"
IconAlign = 1
Tooltiptitle = ""
ToolTipIcon = 0
ToolTipType = 1
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 美容美发管理系统V2007.isButton isButton7
Height = 735
Left = 9000
TabIndex = 8
Top = 0
Width = 1455
_ExtentX = 2566
_ExtentY = 1296
Caption = "isButton"
IconAlign = 1
Tooltiptitle = ""
ToolTipIcon = 0
ToolTipType = 1
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()
text1.Text = Year(Date) & "-" & Month(Date)
st1
End Sub
Sub st1()
Dim sim As Long
Dim ssql As String
Dim temp As String
Dim cnn As New adodb.Connection
Dim ret As New adodb.Recordset
'连接数据库1
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path & "\data\kq.mdb" + ";Persist Security Info=False;"
temp = "2005-10"
ssql = "select * from 收银 where format(月份,'yyyy-mm') ='" & temp & "'"
ret.Open ssql, cnn, 1, 3
Me.Caption = ret.Fields("序号")
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -