📄 frmlist.frm
字号:
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "批发单价"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 19
Left = 9720
TabIndex = 37
Top = 810
Visible = 0 'False
Width = 840
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "货品折扣"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 20
Left = 9720
TabIndex = 36
Top = 2310
Visible = 0 'False
Width = 840
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "最低售价"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 21
Left = 9900
TabIndex = 35
Top = 1350
Visible = 0 'False
Width = 840
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "最高进价"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 22
Left = 9750
TabIndex = 34
Top = 1830
Visible = 0 'False
Width = 840
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "最后进价"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 23
Left = 9870
TabIndex = 33
Top = 2850
Visible = 0 'False
Width = 840
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "单 位"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 24
Left = 330
TabIndex = 32
Top = 3840
Width = 840
End
End
Begin MSComctlLib.ImageList ImageList1
Left = 4530
Top = 4590
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 1
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmList.frx":0E42
Key = ""
EndProperty
EndProperty
End
Begin MSFlexGridLib.MSFlexGrid Grid
Height = 5835
Left = 3000
TabIndex = 1
Top = 60
Width = 6705
_ExtentX = 11827
_ExtentY = 10292
_Version = 393216
Cols = 6
FixedCols = 0
BackColorBkg = 14737632
SelectionMode = 1
AllowUserResizing= 1
Appearance = 0
FormatString = " 商品编码|^ 商品名称 |^ 类 别 |^ 规 格 |^ 厂 家 |^ 产 地"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin MSComctlLib.TreeView tvw
Height = 5835
Left = 60
TabIndex = 0
Top = 60
Width = 2895
_ExtentX = 5106
_ExtentY = 10292
_Version = 393217
HideSelection = 0 'False
Indentation = 353
LabelEdit = 1
LineStyle = 1
Style = 7
ImageList = "ImageList1"
BorderStyle = 1
Appearance = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin Manage.xpcmdbutton cmdAdd
Height = 465
Left = 2700
TabIndex = 2
Top = 6060
Width = 1215
_ExtentX = 2143
_ExtentY = 820
Caption = "添 加"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin Manage.xpcmdbutton cmdDel
Height = 465
Left = 5955
TabIndex = 3
Top = 6060
Width = 1215
_ExtentX = 2143
_ExtentY = 820
Caption = "删 除"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin Manage.xpcmdbutton cmdExit
Height = 465
Left = 7590
TabIndex = 4
Top = 6060
Width = 1215
_ExtentX = 2143
_ExtentY = 820
Caption = "关 闭"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin Manage.xpcmdbutton cmdAlter
Height = 465
Left = 4335
TabIndex = 69
Top = 6060
Width = 1215
_ExtentX = 2143
_ExtentY = 820
Caption = "修 改"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
End
Attribute VB_Name = "frmList"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub cmdAAdd_Click()
If txtAU(0) = "" Or txtAU(1) = "" Or txtAU(2) = "" Then Exit Sub
If IsNumeric(txtAU(1).Text) = False Or IsNumeric(txtAU(2).Text) = False Then _
MsgBox "价格或转换率无效！", 64: Exit Sub
If Val(txtAU(1).Text) = 1 Then MsgBox "与基本单位的转换率不能为“1”！", 64: Exit Sub
Dim I As Integer
Dim J As Integer
J = GridAU.Rows - 1
For I = 1 To J
If txtAU(0).Text = GridAU.TextMatrix(I, 0) Then MsgBox "单位重复，不能添加！": Exit Sub
Next
GridAU.Rows = GridAU.Rows + 1
GridAU.TextMatrix(GridAU.Rows - 1, 0) = txtAU(0).Text
GridAU.TextMatrix(GridAU.Rows - 1, 1) = txtAU(1).Text
GridAU.TextMatrix(GridAU.Rows - 1, 2) = txtAU(2).Text
For I = 0 To 2
txtAU(I).Text = ""
Next
End Sub
Private Sub cmdACancel_Click()
Dim I As Integer
For I = 0 To 14
txtAlter(I).Text = ""
Next
For I = 0 To 2
txtAU(I).Text = ""
Next
With GridUnit
.Clear
.Rows = 1
.FormatString = " 辅助单位|^ 转换率|^ 辅助价格"
.ColWidth(0) = 1100
.ColWidth(1) = 1050
.ColWidth(2) = 1100
End With
picAlter.Visible = False
End Sub
Private Sub cmdAdd_Click()
Dim Rst As ADODB.Recordset
Dim SQL As String
Dim AddID As String
Dim I As Integer
If tvw.SelectedItem.Children > 0 Then MsgBox "请在子类中添加！", 64: Exit Sub
For I = 1 To 17
txt(I).Text = ""
Next
For I = 0 To txtPrice.Count - 1
txtPrice(I).Text = ""
Next
TxtUnit.Text = ""
For I = 0 To 2
txtU(I).Text = ""
Next
With GridUnit
.Clear
.Rows = 1
.FormatString = " 辅助单位|^ 转换率|^ 辅助价格"
.ColWidth(0) = 1100
.ColWidth(1) = 1050
.ColWidth(2) = 1100
End With
Set Rst = New ADODB.Recordset
Rst.CursorLocation = adUseClient
AddID = Mid(tvw.SelectedItem.Key, 2)
If Left(tvw.SelectedItem.Key, 1) = "n" Then AddID = AddID & "00"
SQL = "select max(id) from yaopin_list where id like '" & AddID & "%'"
Rst.Open SQL, Conn, adOpenDynamic, adLockReadOnly, adCmdText
If IsNull(Rst.Fields(0)) Then
AddID = Format(AddID & "0001", "00000000")
Else
AddID = Format(Val(Rst.Fields(0).Value) + 1, "00000000")
End If
Rst.Close
Set Rst = Nothing
txt(0).Text = AddID
txt(0).Locked = True
txt(2).Text = tvw.SelectedItem.Text
txt(2).Locked = True
picAdd.Visible = True
End Sub
Private Sub cmdAddUnit_Click()
If txtU(0) = "" Or txtU(1) = "" Or txtU(2) = "" Then Exit Sub
If IsNumeric(txtU(1).Text) = False Or IsNumeric(txtU(2).Text) = False Then _
MsgBox "价格或转换率无效！", 64: Exit Sub
If Val(txtU(1).Text) = 1 Then MsgBox "与基本单位的转换率不能为“1”！", 64: Exit Sub
Dim I As Integer
Dim J As Integer
J = GridUnit.Rows - 1
For I = 1 To J
If txtU(0).Text = GridUnit.TextMatrix(I, 0) Then MsgBox "单位重复，不能添加！": Exit Sub
Next
GridUnit.Rows =⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -