📄 frmitemdisclistcard.frm
字号:
Begin VB.CommandButton cmdOK
Caption = "全部选择(&A)"
Height = 350
Index = 6
Left = -67980
TabIndex = 23
Top = 1950
Width = 1215
End
Begin VB.CommandButton cmdOK
Caption = "清除商品(&U)"
Height = 350
Index = 5
Left = -67980
TabIndex = 22
Top = 1560
Width = 1215
End
Begin VB.CommandButton cmdOK
Caption = "选择商品(&F)"
Height = 350
Index = 4
Left = -67980
TabIndex = 21
Top = 1200
Width = 1215
End
Begin MSFlexGridLib.MSFlexGrid msgGrid2
Bindings = "frmItemDiscListCard.frx":0166
Height = 2925
Left = -74850
TabIndex = 18
Top = 1200
Width = 6795
_ExtentX = 11986
_ExtentY = 5159
_Version = 393216
Cols = 7
FixedCols = 0
RowHeightMin = 300
BackColorBkg = 16777215
GridLines = 0
AllowUserResizing= 1
FormatString = "||选择 |商品编码 |商品名称 |规格型号 |扣率% "
End
Begin AtlEdit.TEdit txtDisc
Height = 285
Index = 0
Left = -69660
TabIndex = 12
Top = 465
Width = 1575
_ExtentX = 2778
_ExtentY = 503
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Text = "100"
Alignment = 1
End
Begin VB.Frame Frame1
Caption = "调整扣率"
Height = 1065
Index = 0
Left = -74850
TabIndex = 26
Top = 4230
Width = 6795
Begin VB.CommandButton cmdOK
Caption = "计算(&P)"
Height = 315
Index = 9
Left = 5700
TabIndex = 19
Top = 600
Width = 975
End
Begin AtlEdit.TEdit txtDisc
Height = 315
Index = 1
Left = 5700
TabIndex = 20
Top = 240
Width = 975
_ExtentX = 1720
_ExtentY = 556
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Text = ""
End
Begin VB.Label lblDisc
AutoSize = -1 'True
Caption = "-10表示:扣率=缺省扣率-10"
Height = 180
Index = 8
Left = 570
TabIndex = 29
Top = 810
Width = 2160
End
Begin VB.Label lblDisc
AutoSize = -1 'True
Caption = "注:-10%表示:扣率=缺省扣率-缺省扣率*10%"
Height = 180
Index = 7
Left = 300
TabIndex = 28
Top = 555
Width = 3420
End
Begin VB.Label lblDisc
AutoSize = -1 'True
Caption = "调整有选择标志的促销商品的扣率(增减一定扣率或促销扣率的百分比)"
Height = 180
Index = 6
Left = 120
TabIndex = 27
Top = 300
Width = 5580
End
End
Begin VB.CommandButton cmdOK
Caption = "清除商品(&C)"
Height = 350
Index = 3
Left = 7050
TabIndex = 8
Top = 3510
Width = 1215
End
Begin VB.CommandButton cmdOK
Caption = "选择商品(&A)"
Height = 350
Index = 2
Left = 7050
TabIndex = 7
Top = 3150
Width = 1215
End
Begin VB.CommandButton cmdOK
Caption = "删除(&D)"
Height = 350
Index = 1
Left = 7050
TabIndex = 6
Top = 1140
Width = 1215
End
Begin VB.CommandButton cmdOK
Caption = "新增(&N)"
Height = 350
Index = 0
Left = 7050
TabIndex = 5
Top = 780
Width = 1215
End
Begin MSFlexGridLib.MSFlexGrid msgGrid1
Bindings = "frmItemDiscListCard.frx":017A
Height = 2205
Left = 150
TabIndex = 4
Top = 3150
Width = 6795
_ExtentX = 11986
_ExtentY = 3889
_Version = 393216
Cols = 5
FixedCols = 0
RowHeightMin = 300
BackColorBkg = 16777215
GridLines = 0
AllowUserResizing= 1
FormatString = "|商品编码 |商品名称 |规格型号 |常用计量单位"
End
Begin MSFlexGridLib.MSFlexGrid msgGrid0
Bindings = "frmItemDiscListCard.frx":018E
Height = 1965
Left = 150
TabIndex = 2
Top = 780
Width = 6795
_ExtentX = 11986
_ExtentY = 3466
_Version = 393216
Cols = 5
FixedCols = 0
RowHeightMin = 300
BackColorBkg = 16777215
GridLines = 0
AllowUserResizing= 1
FormatString = "||启用日期 |结束日期 |贴息扣率% "
End
Begin ListRefer.ListText lstDisc
Height = 285
Index = 0
Left = 1560
TabIndex = 1
Top = 480
Width = 5355
_ExtentX = 9446
_ExtentY = 503
CodeSort = -1 'True
AutoPop = 0 'False
BackColor = -2147483643
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin ListRefer.ListText lstDisc
Height = 285
Index = 1
Left = -73455
TabIndex = 10
Top = 465
Width = 1575
_ExtentX = 2778
_ExtentY = 503
CodeSort = -1 'True
AutoPop = 0 'False
BackColor = -2147483643
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin GACALENDARLibCtl.Calendar dteDisc
Height = 285
Index = 1
Left = -69660
OleObjectBlob = "frmItemDiscListCard.frx":01A2
TabIndex = 16
Top = 840
Width = 1575
End
Begin VB.Label lblDisc
AutoSize = -1 'True
Caption = "促销结束日期(&E)"
Height = 180
Index = 5
Left = -71100
TabIndex = 15
Top = 885
Width = 1350
End
Begin VB.Label lblDisc
AutoSize = -1 'True
Caption = "促销起始日期(&S)"
Height = 180
Index = 4
Left = -74850
TabIndex = 13
Top = 892
Width = 1350
End
Begin VB.Label lblDisc
AutoSize = -1 'True
Caption = "促销扣率%(&D)"
Height = 180
Index = 3
Left = -71100
TabIndex = 11
Top = 510
Width = 1080
End
Begin VB.Label lblDisc
AutoSize = -1 'True
Caption = "促销折扣名称(&N)"
Height = 180
Index = 2
Left = -74850
TabIndex = 9
Top = 510
Width = 1350
End
Begin VB.Label lblDisc
AutoSize = -1 'True
Caption = "适用本组贴息折扣率的商品:"
Height = 180
Index = 1
Left = 180
TabIndex = 3
Top = 2850
Width = 2250
End
Begin VB.Label lblDisc
AutoSize = -1 'True
Caption = "贴息折扣名称(&M)"
Height = 180
Index = 0
Left = 180
TabIndex = 0
Top = 510
Width = 1350
End
End
End
Attribute VB_Name = "frmItemDiscListCard"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'-------------------------------------------------
'商品折扣窗体:frmItemDiscListCard
'作 者:苏涛
'日 期:1999-01-28
'功 能:设置商品的贴息折扣率和促销折扣率
'-------------------------------------------------
Option Explicit
Option Compare Text
Private Const mintPayViewID = 1110
Private Const mintSaleViewID = 1111
Private Const mintConViewID = 1112
Private mblnIsRefer As Boolean
Private mblnCancel As Boolean
Private mblnPayIsChanged As Boolean
Private mblnSaleIsChanged As Boolean
Private mblnOrderIsChanged As Boolean
Private mblnIsExist As Boolean
Private mblnIsInit As Boolean
Private mblnNoFind As Boolean
Private mlngLstID(1) As Long
Private mclsGrid0 As Grid
Private mclsGrid1 As Grid
Private WithEvents mclsGrid2 As Grid
Attribute mclsGrid2.VB_VarHelpID = -1
Private mlngPayRow As Long
Private mlngPayCol As Long
Private mlngOrderRow As Long
Private mlngAccrossRow As Long
Private mstrDiscName(1) As String
Private Sub AllSelect(ByVal blnIsSel As Boolean)
Dim i As Long
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -