addrow2.frm
来自「一个关于电脑管理汽车的软件」· FRM 代码 · 共 619 行 · 第 1/2 页
FRM
619 行
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Index = 8
Left = 240
TabIndex = 22
Top = 4800
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 = 9
Left = 240
TabIndex = 21
Top = 5280
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 = 10
Left = 240
TabIndex = 20
Top = 5760
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 = 11
Left = 240
TabIndex = 19
Top = 6240
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 = 12
Left = 240
TabIndex = 18
Top = 3360
Width = 1215
End
End
Begin VB.CommandButton cmdOK
Caption = "确 定"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 840
TabIndex = 1
Top = 7080
Width = 1215
End
Begin VB.CommandButton cmdCancel
Caption = "取 消"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 2640
TabIndex = 0
Top = 7080
Width = 1215
End
Begin BSE_Engine.BSE BSE1
Left = 1440
Top = 6840
_ExtentX = 6588
_ExtentY = 1085
End
End
Attribute VB_Name = "AddRow2"
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 = 3
SearchGoods2.Show 1
End Sub
Private Sub cmdFind2_Click()
VarInitData.SearchSimpleCodeBS = 4
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 SendBackGoods.ModifyBS = True Then
TempIndex = SendBackGoods.lstBillDocuIndex
Else
SendBackGoods.lstBillDocu.ListItems.Add , , ""
TempIndex = SendBackGoods.lstBillDocu.ListItems.Count
End If
TempStr = "0.00"
With SendBackGoods.lstBillDocu.ListItems(TempIndex)
.Text = TexGoods(0)
.SubItems(1) = TexGoods(1)
.SubItems(2) = 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) = Combo1(1)
.SubItems(11) = Combo1(0)
.SubItems(12) = Combo1(2)
.SubItems(14) = Format(TexGoods(3), TempStr)
End With
With SendBackGoods
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
SendBackGoods.ModifyBS = False
Unload Me
End Sub
Private Sub Combo1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
Combo1(Index).Text = ""
End Sub
Private Sub Combo1_KeyUp(Index As Integer, KeyCode As Integer, Shift As Integer)
Combo1(Index).Text = ""
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 SendBackGoods.ModifyBS = True Then
With SendBackGoods.lstBillDocu.ListItems(SendBackGoods.lstBillDocuIndex)
TexGoods(0) = .Text
TexGoods(1) = .SubItems(1)
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)
Combo1(1) = .SubItems(10)
Combo1(0) = .SubItems(11)
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
SendBackGoods.ModifyBS = False
End Sub
Private Sub TexGoods_Change(Index As Integer)
Dim TempVar As Double
Dim TempRS As New MYSQL_RS
Dim TempSQL As String
Dim TempPrice As Double
If Index = 5 Then
Set TempRS = New MYSQL_RS
TempSQL = VarInitData.DisplaySQLVal(10) & " Where goodscoding = " & Quote(TexGoods(0)) '_
'& " or goodscoding like " & Quote(TexGoods(0) & "_%")
TempRS.OpenRs TempSQL, gCnn
'Debug.Print TempSQL
With TempRS
Do Until .EOF
TempPrice = TempPrice + Val(.Fields("goodsprice"))
.MoveNext
Loop
.CloseRecordset
.ReleaseMemory
End With
Set TempRS = Nothing
TexGoods(5) = VarFunction.DefFormat(TempPrice)
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 + -
显示快捷键?