📄 yinyetj.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form yinyetj
BackColor = &H8000000B&
BorderStyle = 3 'Fixed Dialog
Caption = "当天营业额统计"
ClientHeight = 7455
ClientLeft = 45
ClientTop = 330
ClientWidth = 10470
Icon = "yinyetj.frx":0000
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 7455
ScaleWidth = 10470
ShowInTaskbar = 0 'False
StartUpPosition = 3 '窗口缺省
Begin 工程1.isButton isButton3
Height = 735
Left = 3080
TabIndex = 3
Top = 0
Width = 1455
_ExtentX = 2566
_ExtentY = 1296
Icon = "yinyetj.frx":058A
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 = 2
Top = 0
Width = 1455
_ExtentX = 2566
_ExtentY = 1296
Icon = "yinyetj.frx":0924
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 isButton1
Height = 735
Left = 120
TabIndex = 1
Top = 0
Width = 1455
_ExtentX = 2566
_ExtentY = 1296
Icon = "yinyetj.frx":0CBE
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.XPContainer XPContainer1
Height = 6735
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 = 12
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 Text3
Height = 270
Left = 2880
TabIndex = 10
Top = 6720
Visible = 0 'False
Width = 1695
End
Begin VB.TextBox Text2
Height = 270
Left = 1320
TabIndex = 9
Text = "收银日期"
Top = 6720
Visible = 0 'False
Width = 1455
End
Begin VB.TextBox Text1
Height = 270
Left = 0
TabIndex = 8
Text = "收取费用"
Top = 6720
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 = 0
TabIndex = 11
Top = 6360
Width = 9015
End
End
Begin 工程1.isButton isButton4
Height = 735
Left = 4560
TabIndex = 4
Top = 0
Width = 1455
_ExtentX = 2566
_ExtentY = 1296
Icon = "yinyetj.frx":1058
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 = 5
Top = 0
Width = 1455
_ExtentX = 2566
_ExtentY = 1296
Icon = "yinyetj.frx":15F2
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 = 6
Top = 0
Width = 1455
_ExtentX = 2566
_ExtentY = 1296
Icon = "yinyetj.frx":198C
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 = 7
Top = 0
Width = 1455
_ExtentX = 2566
_ExtentY = 1296
Icon = "yinyetj.frx":1D26
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 = "yinyetj"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub DataGrid1_Click()
End Sub
Private Sub Form_Load()
Text3.Text = Date
st1
Me.Caption = Date & "当天营业额"
End Sub
Sub st1()
Dim sim As Long
Dim ssql As String
Dim cnn As New ADODB.Connection
Dim ret As New ADODB.Recordset
Dim objLI As ListItem
Dim si As ListSubItem
Dim li As ListItem
'连接数据库1
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path & "\data\kq.mdb" + ";Persist Security Info=False;"
ret.Open "select * from 收银 where 收银.收银日期 =#" & Date & "#", 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 , , "流水序号"
For j = 1 To ret.RecordCount
Do While Not ret.EOF
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
Loop
Next j
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 + -