jxcstat.frm
来自「一个关于电脑管理汽车的软件」· FRM 代码 · 共 1,141 行 · 第 1/3 页
FRM
1,141 行
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"
Object = "{40D97E01-4259-4398-B597-183C348B488F}#1.0#0"; "BSE.ocx"
Begin VB.Form JXCStat
Caption = "进销存分析"
ClientHeight = 8895
ClientLeft = 60
ClientTop = 450
ClientWidth = 11910
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 8895
ScaleWidth = 11910
Begin VB.Frame frameInfo
Height = 855
Index = 0
Left = 0
TabIndex = 14
Top = 0
Width = 11775
Begin VB.CommandButton Command1
Height = 495
Index = 4
Left = 6240
Picture = "JXCStat.frx":0000
Style = 1 'Graphical
TabIndex = 16
ToolTipText = "刷新"
Top = 240
Width = 495
End
Begin VB.CommandButton Command1
Height = 495
Index = 5
Left = 6840
Picture = "JXCStat.frx":014A
Style = 1 'Graphical
TabIndex = 15
ToolTipText = "打印"
Top = 240
Width = 495
End
Begin VB.Label Label10
Caption = "进销存分析"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 375
Index = 0
Left = 120
TabIndex = 17
Top = 360
Width = 1935
End
End
Begin VB.Frame frameInfo
Height = 1215
Index = 1
Left = 0
TabIndex = 0
Top = 7680
Width = 11775
Begin MSComCtl2.DTPicker DTPicker1
Height = 375
Index = 1
Left = 3720
TabIndex = 1
Top = 240
Width = 1575
_ExtentX = 2778
_ExtentY = 661
_Version = 393216
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Format = 66912257
CurrentDate = 38281
End
Begin MSComCtl2.DTPicker DTPicker1
Height = 375
Index = 0
Left = 1440
TabIndex = 2
Top = 240
Width = 1575
_ExtentX = 2778
_ExtentY = 661
_Version = 393216
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Format = 66912257
CurrentDate = 38281
End
Begin VB.Label Label1
Height = 255
Index = 3
Left = 9720
TabIndex = 3
Top = 360
Width = 1695
End
Begin VB.Label Label1
Height = 255
Index = 4
Left = 9720
TabIndex = 19
Top = 840
Width = 1695
End
Begin VB.Label Label1
Height = 255
Index = 2
Left = 6720
TabIndex = 4
Top = 840
Width = 1695
End
Begin VB.Label Label1
Height = 255
Index = 1
Left = 3840
TabIndex = 13
Top = 840
Width = 1695
End
Begin VB.Label Label1
Height = 255
Index = 0
Left = 960
TabIndex = 12
Top = 840
Width = 1695
End
Begin VB.Label Label10
Caption = "上期结余："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Index = 6
Left = 8640
TabIndex = 20
Top = 840
Width = 1215
End
Begin VB.Label Label10
Caption = "本期盈亏："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Index = 3
Left = 5640
TabIndex = 11
Top = 840
Width = 1215
End
Begin VB.Label Label10
Caption = "本期进："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Index = 2
Left = 120
TabIndex = 10
Top = 840
Width = 975
End
Begin VB.Label Label2
Caption = "自"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 3
Left = 1200
TabIndex = 9
Top = 360
Width = 375
End
Begin VB.Label Label2
Caption = "到"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 2
Left = 3480
TabIndex = 8
Top = 360
Width = 375
End
Begin VB.Label Label10
Caption = "统计时段："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 375
Index = 1
Left = 120
TabIndex = 7
Top = 360
Width = 1335
End
Begin VB.Label Label10
Caption = "本期销："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Index = 4
Left = 3000
TabIndex = 6
Top = 840
Width = 975
End
Begin VB.Label Label10
Caption = "上期结存："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Index = 5
Left = 8640
TabIndex = 5
Top = 360
Width = 1215
End
End
Begin BSE_Engine.BSE BSE1
Left = 6960
Top = 6360
_ExtentX = 6588
_ExtentY = 1085
End
Begin MSComctlLib.ListView lstBillDocu
Height = 4695
Left = 0
TabIndex = 18
Top = 840
Width = 8175
_ExtentX = 14420
_ExtentY = 8281
View = 3
LabelEdit = 1
LabelWrap = -1 'True
HideSelection = 0 'False
FullRowSelect = -1 'True
GridLines = -1 'True
_Version = 393217
ForeColor = 8388608
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
NumItems = 4
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = "Name"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 1
Text = "Address"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 2
Text = "City, State, Zip"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 3
Text = "Notes"
Object.Width = 2540
EndProperty
End
End
Attribute VB_Name = "JXCStat"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Type JXCType
SellCount As Long
SellMoney As Double
StockCount As Long
StockMoney As Double
ProfitLossCount As Long
ProfitLossMoney As Double
GoodsPriceMoney As Double
End Type
Private SearchGoodsKey As String
Private VarJXC() As JXCType
Private PreDateSQL As String
Private CurrentDateSQL As String
Private StockGoodsPrice() As Double
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?