addrow.frm
来自「一个关于电脑管理汽车的软件」· FRM 代码 · 共 598 行 · 第 1/2 页
FRM
598 行
Top = 4320
Width = 1215
End
Begin VB.Label Label1
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 = 240
TabIndex = 7
Top = 3840
Width = 1215
End
Begin VB.Label Label1
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 = 240
TabIndex = 6
Top = 2880
Width = 1215
End
Begin VB.Label Label1
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 = 240
TabIndex = 5
Top = 2400
Width = 1215
End
Begin VB.Label Label1
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 = 240
TabIndex = 4
Top = 1920
Width = 1215
End
Begin VB.Label Label1
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 = 240
TabIndex = 3
Top = 1440
Width = 1215
End
Begin VB.Label Label1
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 = 1
Left = 240
TabIndex = 2
Top = 960
Width = 1215
End
Begin VB.Label Label1
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 = 0
Left = 240
TabIndex = 1
Top = 480
Width = 1215
End
End
Begin BSE_Engine.BSE BSE1
Left = 1440
Top = 6720
_ExtentX = 6588
_ExtentY = 1085
End
End
Attribute VB_Name = "AddRow"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub cmdFind_Click()
VarInitData.SearGoodsBS = 2
SearchGoods2.Show 1
End Sub
Private Sub cmdFind2_Click()
VarInitData.SearchSimpleCodeBS = 3
SimpleCodeFind.Show 1
End Sub
Public Sub ClearAllContxt()
Dim i As Integer
For i = 0 To 8
TexGoods(i) = ""
Next i
For i = 0 To 3
Combo1(i) = ""
Next i
End Sub
Private Sub cmdOk_Click()
Dim MyItems As ListItems
Dim TempStr As String
Dim TempSQL As String
Dim TempMoney As Double
Dim TempCount As Long
Dim TempItemCount As Long
Dim TemplstCount As Long
Dim TempIndex As Long
Dim i As Long
If StockTable.ModifyBS = True Then
TempIndex = StockTable.lstBillDocuIndex
Else
StockTable.lstBillDocu.ListItems.Add , , ""
TempIndex = StockTable.lstBillDocu.ListItems.Count
End If
TempStr = "0.00"
With StockTable.lstBillDocu.ListItems(TempIndex)
.Text = AddRow.TexGoods(0)
.SubItems(1) = AddRow.TexGoods(1)
.SubItems(2) = AddRow.TexGoods(2)
.SubItems(3) = TexGoods(4)
.SubItems(4) = Combo1(3)
.SubItems(5) = Format(TexGoods(5), TempStr)
TempMoney = Val(TexGoods(4)) * Val(TexGoods(5))
.SubItems(6) = Format(TempMoney, "0.00")
.SubItems(7) = TexGoods(8)
.SubItems(8) = Format(TexGoods(6), TempStr)
.SubItems(9) = Format(TexGoods(7), TempStr)
.SubItems(10) = AddRow.Combo1(1)
.SubItems(11) = AddRow.Combo1(0)
.SubItems(12) = AddRow.Combo1(2)
.SubItems(14) = Format(TexGoods(3), TempStr)
End With
With StockTable
TemplstCount = .lstBillDocu.ListItems.Count
.lblGItemCount = TemplstCount
TempCount = 0
TempMoney = 0
For i = 1 To TemplstCount
TempCount = TempCount + Val(.lstBillDocu.ListItems(i).SubItems(3))
TempMoney = TempMoney + Val(.lstBillDocu.ListItems(i).SubItems(6))
Next i
.lblGCount = TempCount
.lblGMoney = VarFunction.DefFormat(TempMoney)
End With
StockTable.ModifyBS = False
Unload Me
End Sub
Private Sub Combo1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
Combo1(Index) = ""
End Sub
Private Sub Combo1_KeyUp(Index As Integer, KeyCode As Integer, Shift As Integer)
Combo1(Index) = ""
End Sub
Private Sub Form_Load()
Dim i As Integer
Dim TempSQL As String
VarInitData.InitBSE BSE1, 0
ClearAllContxt
LockText
For i = 2 To 5
TempSQL = VarInitData.DisplayDynSQLVal(VarInitData.SureNameFrIndex(i))
VarInitData.LoadData Combo1(i - 2), TempSQL, 1
Next i
If StockTable.ModifyBS = True Then
With StockTable.lstBillDocu.ListItems(StockTable.lstBillDocuIndex)
AddRow.TexGoods(0) = .Text
AddRow.TexGoods(1) = .SubItems(1)
AddRow.TexGoods(2) = .SubItems(2)
TexGoods(4) = .SubItems(3)
Combo1(3) = .SubItems(4)
TexGoods(5) = .SubItems(5)
TexGoods(8) = .SubItems(7)
TexGoods(6) = .SubItems(8)
TexGoods(7) = .SubItems(9)
AddRow.Combo1(1) = .SubItems(10)
AddRow.Combo1(0) = .SubItems(11)
AddRow.Combo1(2) = .SubItems(12)
TexGoods(3) = .SubItems(14)
End With
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
If BSE1.EngineStarted Then BSE1.EndSubClassing
StockTable.ModifyBS = False
End Sub
Private Sub TexGoods_Change(Index As Integer)
Dim TempVar As Double
If Index = 5 Then
TempVar = Val(TexGoods(Index).Text)
If TempVar >= 0 Then
TempVar = TempVar * GPriceRef(1)
TexGoods(7).Text = Format$(TempVar, "0.00")
End If
End If
End Sub
Private Sub TexGoods_LostFocus(Index As Integer)
Select Case Index
Case 3, 5, 6, 7
TexGoods(Index).Text = Format$(TexGoods(Index).Text, "0.00")
End Select
End Sub
Private Sub LockText()
Dim i As Integer
For i = 0 To 2
TexGoods(i).Locked = True
Next i
cmdFind2.Visible = False
End Sub
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?