📄 frm-
字号:
Left = 2715
TabIndex = 52
Top = 270
Width = 540
End
Begin VB.Label Label15
AutoSize = -1 'True
Caption = "销售方式"
Height = 180
Left = 270
TabIndex = 51
Top = 285
Width = 720
End
End
Begin VB.Frame Frame8
Height = 615
Left = 240
TabIndex = 43
Top = 4590
Width = 8355
Begin VB.TextBox txtSumIamt
Alignment = 1 'Right Justify
BackColor = &H00FFFF80&
Height = 285
Left = 4140
Locked = -1 'True
TabIndex = 45
Top = 210
Width = 1110
End
Begin VB.TextBox txtSumRamt
Alignment = 1 'Right Justify
BackColor = &H00FFFF80&
Height = 285
Left = 7170
Locked = -1 'True
TabIndex = 44
Top = 210
Width = 1110
End
Begin VB.Label Label30
AutoSize = -1 'True
Caption = "不含税进价金额合计"
Height = 180
Left = 2415
TabIndex = 47
Top = 240
Width = 1620
End
Begin VB.Label Label29
AutoSize = -1 'True
Caption = "含税进价金额合计"
Height = 180
Left = 5445
TabIndex = 46
Top = 270
Width = 1440
End
End
Begin VB.Frame Frame7
Height = 615
Left = -74745
TabIndex = 38
Top = 4560
Width = 8355
Begin VB.TextBox txtGrpSumIamt
Alignment = 1 'Right Justify
BackColor = &H00FFFF80&
Height = 285
Left = 4050
Locked = -1 'True
TabIndex = 40
Top = 225
Width = 1110
End
Begin VB.TextBox txtGrpSumRamt
Alignment = 1 'Right Justify
BackColor = &H00FFFF80&
Height = 285
Left = 7170
Locked = -1 'True
TabIndex = 39
Top = 210
Width = 1110
End
Begin VB.Label Label28
AutoSize = -1 'True
Caption = "不含税进价金额合计"
Height = 180
Left = 2265
TabIndex = 42
Top = 270
Width = 1620
End
Begin VB.Label Label27
AutoSize = -1 'True
Caption = "含税进价金额合计"
Height = 180
Left = 5475
TabIndex = 41
Top = 270
Width = 1440
End
End
Begin VB.Frame Frame4
Caption = "查询条件"
Height = 795
Left = -74760
TabIndex = 34
Top = 510
Width = 8370
Begin VB.TextBox TxtGName
Appearance = 0 'Flat
DataField = "Formno"
DataMember = "SQLPrdhd"
DataSource = "EnvShop"
Height = 264
Left = 3300
MaxLength = 7
TabIndex = 74
Tag = "purcode"
Top = 330
Width = 1005
End
Begin VB.TextBox txtGrpIncode
Height = 288
Left = 5340
MaxLength = 8
TabIndex = 18
Top = 345
Width = 984
End
Begin VB.TextBox txtGrpSname
Height = 288
Left = 7260
TabIndex = 19
Top = 330
Width = 984
End
Begin SSDataWidgets_B.SSDBCombo cmbGrpSaleStyle
Height = 270
Left = 1020
TabIndex = 16
Top = 315
Width = 750
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 = 1323
_ExtentY = 476
_StockProps = 93
BackColor = -2147483643
End
Begin SSDataWidgets_B.SSDBCombo cmbGrpGrpno
Height = 270
Left = 2565
TabIndex = 17
Top = 315
Width = 705
DataFieldList = "Column 0"
_Version = 196614
DataMode = 2
RowHeight = 397
Columns.Count = 2
Columns(0).Width= 2011
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= 2582
Columns(1).Caption= "部门名称"
Columns(1).Name = "部门名称"
Columns(1).CaptionAlignment= 2
Columns(1).DataField= "Column 1"
Columns(1).DataType= 8
Columns(1).FieldLen= 256
_ExtentX = 1244
_ExtentY = 476
_StockProps = 93
BackColor = -2147483643
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "连锁店"
Height = 180
Left = 1950
TabIndex = 49
Top = 360
Width = 540
End
Begin VB.Label Label20
AutoSize = -1 'True
Caption = "商品编码"
Height = 180
Left = 4560
TabIndex = 37
Top = 390
Width = 720
End
Begin VB.Label Label19
AutoSize = -1 'True
Caption = "商品名称"
Height = 180
Left = 6450
TabIndex = 36
Top = 390
Width = 720
End
Begin VB.Label Label18
AutoSize = -1 'True
Caption = "销售方式"
Height = 180
Left = 240
TabIndex = 35
Top = 345
Width = 720
End
End
Begin VB.Frame Frame1
Caption = "查询条件"
Height = 1200
Left = 210
TabIndex = 26
Top = 525
Width = 8424
Begin VB.TextBox TxtName
Appearance = 0 'Flat
DataField = "Formno"
DataMember = "SQLPrdhd"
DataSource = "EnvShop"
Height = 264
Left = 4125
MaxLength = 7
TabIndex = 73
Tag = "purcode"
Top = 240
Width = 1125
End
Begin VB.TextBox txtRamt
Height = 288
Left = 5265
TabIndex = 6
Top = 750
Width = 984
End
Begin VB.TextBox txtIamt
Height = 288
Left = 3105
TabIndex = 5
Top = 765
Width = 1155
End
Begin VB.TextBox txtQty
BeginProperty DataFormat
Type = 0
Format = "0"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
Height = 288
Left = 1065
TabIndex = 4
Top = 720
Width = 1068
End
Begin VB.TextBox txtSname
Height = 288
Left = 7335
TabIndex = 3
Top = 735
Width = 984
End
Begin VB.TextBox txtIncode
Height = 288
Left = 7305
MaxLength = 8
TabIndex = 2
Top = 210
Width = 984
End
Begin SSDataWidgets_B.SSDBCombo cmbGroup
Height = 270
Left = 3105
TabIndex = 1
Top = 225
Width = 795
DataFieldList = "Column 0"
_Version = 196614
DataMode = 2
RowHeight = 397
Columns.Count = 2
Columns(0).Width= 2011
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= 2582
Columns(1).Caption= "部门名称"
Columns(1).Name = "部门名称"
Columns(1).CaptionAlignment= 2
Columns(1).DataField= "Column 1"
Columns(1).DataType= 8
Columns(1).FieldLen= 256
_ExtentX = 1402
_ExtentY = 476
_StockProps = 93
BackColor = -2147483643
End
Begin SSDataWidgets_B.SSDBCombo cmbSaleStyle
Height = 276
Left = 1044
TabIndex = 0
Top = 240
Width = 1068
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 Label1
AutoSize = -1 'True
Caption = "连锁店"
Height = 180
Left = 2430
TabIndex = 48
Top = 270
Width = 540
End
Begin VB.Label Label8
AutoSize = -1 'True
Caption = "销售方式"
Height = 180
Left = 252
TabIndex = 32
Top = 312
Width = 720
End
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "售价金额"
Height = 180
Left = 4485
TabIndex = 31
Top = 825
Width = 720
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "进价金额"
Height = 180
Left = 2280
TabIndex = 30
Top = 795
Width = 720
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "数 量"
Height = 180
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -