📄 frm-
字号:
VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{0BA686C6-F7D3-101A-993E-0000C0EF6F5E}#2.0#0"; "THREED20.OCX"
Object = "{8D650141-6025-11D1-BC40-0000C042AEC0}#3.0#0"; "ssdw3b32.ocx"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form frm连锁店库存查询
BorderStyle = 3 'Fixed Dialog
Caption = "连锁店库存查询"
ClientHeight = 6165
ClientLeft = 30
ClientTop = 330
ClientWidth = 8940
Icon = "frm连锁店库存查询.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 6165
ScaleWidth = 8940
ShowInTaskbar = 0 'False
Begin TabDlg.SSTab tabQuery
Height = 5445
Left = 45
TabIndex = 24
Top = 660
Width = 8850
_ExtentX = 15610
_ExtentY = 9604
_Version = 393216
Tabs = 4
TabsPerRow = 4
TabHeight = 520
TabCaption(0) = "综合查询"
TabPicture(0) = "frm连锁店库存查询.frx":000C
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "grdDET"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "Frame1"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "Frame8"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).ControlCount= 3
TabCaption(1) = "按单品查询"
TabPicture(1) = "frm连锁店库存查询.frx":0028
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "grdSingle"
Tab(1).Control(0).Enabled= 0 'False
Tab(1).Control(1)= "Frame2"
Tab(1).Control(1).Enabled= 0 'False
Tab(1).Control(2)= "Frame5"
Tab(1).Control(2).Enabled= 0 'False
Tab(1).ControlCount= 3
TabCaption(2) = "按分类查询"
TabPicture(2) = "frm连锁店库存查询.frx":0044
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "grdType"
Tab(2).Control(0).Enabled= 0 'False
Tab(2).Control(1)= "Frame3"
Tab(2).Control(1).Enabled= 0 'False
Tab(2).Control(2)= "Frame6"
Tab(2).Control(2).Enabled= 0 'False
Tab(2).ControlCount= 3
TabCaption(3) = "按连锁店查询"
TabPicture(3) = "frm连锁店库存查询.frx":0060
Tab(3).ControlEnabled= 0 'False
Tab(3).Control(0)= "grdGrpDET"
Tab(3).Control(0).Enabled= 0 'False
Tab(3).Control(1)= "Frame4"
Tab(3).Control(1).Enabled= 0 'False
Tab(3).Control(2)= "Frame7"
Tab(3).Control(2).Enabled= 0 'False
Tab(3).ControlCount= 3
Begin VB.Frame Frame5
Height = 615
Left = -74820
TabIndex = 67
Top = 4635
Width = 8355
Begin VB.TextBox txtSingleSumRamt
Alignment = 1 'Right Justify
BackColor = &H00FFFF80&
Height = 285
Left = 7170
Locked = -1 'True
TabIndex = 69
Top = 210
Width = 1110
End
Begin VB.TextBox txtSingleSumIamt
Alignment = 1 'Right Justify
BackColor = &H00FFFF80&
Height = 285
Left = 4185
Locked = -1 'True
TabIndex = 68
Top = 225
Width = 1110
End
Begin VB.Label Label24
AutoSize = -1 'True
Caption = "含税进价金额合计"
Height = 180
Left = 5565
TabIndex = 71
Top = 270
Width = 1440
End
Begin VB.Label Label23
AutoSize = -1 'True
Caption = "不含税进价金额合计"
Height = 180
Left = 2385
TabIndex = 70
Top = 255
Width = 1620
End
End
Begin VB.Frame Frame2
Caption = "查询条件"
Height = 1185
Left = -74865
TabIndex = 60
Top = 510
Width = 8355
Begin VB.TextBox txtSingleRamt
Height = 270
Left = 7185
TabIndex = 12
Top = 750
Width = 1080
End
Begin VB.TextBox txtSingleIamt
Height = 270
Left = 4365
TabIndex = 11
Top = 750
Width = 1080
End
Begin VB.TextBox txtSingleQty
Height = 270
Left = 1170
TabIndex = 10
Top = 750
Width = 1080
End
Begin VB.TextBox txtSingleSname
Height = 270
Left = 7185
TabIndex = 9
Top = 225
Width = 1080
End
Begin VB.TextBox txtSingleIncode
Height = 270
Left = 4365
TabIndex = 8
Top = 255
Width = 1080
End
Begin SSDataWidgets_B.SSDBCombo cmbSingleSaleStyle
Height = 270
Left = 1185
TabIndex = 7
Top = 345
Width = 1065
DataFieldList = "Column 0"
AllowInput = 0 'False
_Version = 196614
DataMode = 2
RowHeight = 397
Columns(0).Width= 2942
Columns(0).Caption= "销售类型"
Columns(0).Name = "销售类型"
Columns(0).CaptionAlignment= 2
Columns(0).DataField= "Column 0"
Columns(0).DataType= 8
Columns(0).FieldLen= 256
_ExtentX = 1884
_ExtentY = 487
_StockProps = 93
BackColor = -2147483643
End
Begin VB.Label Label14
AutoSize = -1 'True
Caption = "售价金额"
Height = 180
Left = 5955
TabIndex = 66
Top = 795
Width = 720
End
Begin VB.Label Label13
AutoSize = -1 'True
Caption = "进价金额"
Height = 180
Left = 3195
TabIndex = 65
Top = 795
Width = 720
End
Begin VB.Label Label12
AutoSize = -1 'True
Caption = "数量"
Height = 180
Left = 510
TabIndex = 64
Top = 810
Width = 360
End
Begin VB.Label Label11
AutoSize = -1 'True
Caption = "销售方式"
Height = 180
Left = 285
TabIndex = 63
Top = 360
Width = 720
End
Begin VB.Label Label10
AutoSize = -1 'True
Caption = "品 名"
Height = 180
Left = 6000
TabIndex = 62
Top = 285
Width = 540
End
Begin VB.Label Label9
AutoSize = -1 'True
Caption = "商品编码"
Height = 180
Left = 3165
TabIndex = 61
Top = 300
Width = 720
End
End
Begin VB.Frame Frame6
Height = 615
Left = -74955
TabIndex = 55
Top = 4530
Width = 8355
Begin VB.TextBox txtIamt2
Alignment = 1 'Right Justify
BackColor = &H00FFFF80&
Height = 285
Left = 4305
Locked = -1 'True
TabIndex = 57
Top = 210
Width = 1110
End
Begin VB.TextBox txtRamt2
Alignment = 1 'Right Justify
BackColor = &H00FFFF80&
Height = 285
Left = 7170
Locked = -1 'True
TabIndex = 56
Top = 210
Width = 1110
End
Begin VB.Label Label21
AutoSize = -1 'True
Caption = "不含税进价金额合计"
Height = 180
Left = 2565
TabIndex = 59
Top = 255
Width = 1620
End
Begin VB.Label Label17
AutoSize = -1 'True
Caption = "不含税进价金额合计"
Height = 180
Left = 5490
TabIndex = 58
Top = 255
Width = 1620
End
End
Begin VB.Frame Frame3
Caption = "商品分类"
Height = 660
Left = -74760
TabIndex = 50
Top = 420
Width = 8175
Begin SSDataWidgets_B.SSDBCombo cmbBigType
Height = 300
Left = 3420
TabIndex = 14
Top = 240
Width = 1800
DataFieldList = "Column 0"
_Version = 196614
DataMode = 2
RowHeight = 423
Columns.Count = 2
Columns(0).Width= 2196
Columns(0).Caption= "分类编码"
Columns(0).Name = "分类编码"
Columns(0).CaptionAlignment= 2
Columns(0).DataField= "Column 0"
Columns(0).DataType= 8
Columns(0).FieldLen= 256
Columns(1).Width= 2328
Columns(1).Caption= "分类名称"
Columns(1).Name = "分类名称"
Columns(1).CaptionAlignment= 2
Columns(1).DataField= "Column 1"
Columns(1).DataType= 8
Columns(1).FieldLen= 256
_ExtentX = 3175
_ExtentY = 529
_StockProps = 93
BackColor = -2147483643
DataFieldToDisplay= "Column 1"
End
Begin SSDataWidgets_B.SSDBCombo cmbMidType
Height = 285
Left = 6090
TabIndex = 15
Top = 240
Width = 1695
DataFieldList = "Column 0"
_Version = 196614
DataMode = 2
RowHeight = 423
Columns.Count = 2
Columns(0).Width= 2064
Columns(0).Caption= "分类编码"
Columns(0).Name = "分类编码"
Columns(0).CaptionAlignment= 2
Columns(0).DataField= "Column 0"
Columns(0).DataType= 8
Columns(0).FieldLen= 256
Columns(1).Width= 2566
Columns(1).Caption= "分类名称"
Columns(1).Name = "分类名称"
Columns(1).CaptionAlignment= 2
Columns(1).DataField= "Column 1"
Columns(1).DataType= 8
Columns(1).FieldLen= 256
_ExtentX = 2990
_ExtentY = 503
_StockProps = 93
BackColor = -2147483643
DataFieldToDisplay= "Column 1"
End
Begin SSDataWidgets_B.SSDBCombo cmbSaleStyle2
Height = 270
Left = 1260
TabIndex = 13
Top = 255
Width = 1065
DataFieldList = "Column 0"
AllowInput = 0 'False
_Version = 196614
DataMode = 2
RowHeight = 397
Columns(0).Width= 2942
Columns(0).Caption= "销售类型"
Columns(0).Name = "销售类型"
Columns(0).CaptionAlignment= 2
Columns(0).DataField= "Column 0"
Columns(0).DataType= 8
Columns(0).FieldLen= 256
_ExtentX = 1884
_ExtentY = 487
_StockProps = 93
BackColor = -2147483643
End
Begin VB.Label lblMidType
AutoSize = -1 'True
Caption = "中分类"
Height = 180
Left = 5340
TabIndex = 53
Top = 285
Width = 540
End
Begin VB.Label Label16
AutoSize = -1 'True
Caption = "大分类"
Height = 180
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -