addrow4.frm

来自「一个关于电脑管理汽车的软件」· FRM 代码 · 共 545 行 · 第 1/2 页

            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800000&
         Height          =   255
         Index           =   5
         Left            =   240
         TabIndex        =   18
         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        =   17
         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        =   16
         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        =   15
         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        =   14
         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        =   13
         Top             =   480
         Width           =   1215
      End
   End
   Begin BSE_Engine.BSE BSE1 
      Left            =   840
      Top             =   6720
      _ExtentX        =   6588
      _ExtentY        =   1085
   End
End
Attribute VB_Name = "AddRow4"
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 = 5
 SearchGoods2.Show 1
End Sub


Public Sub ClearAllContxt()
 Dim i As Integer
 For i = 0 To 8
  If i <> 3 And i <> 5 Then
   TexGoods(i) = ""
  End If
 Next i
 For i = 0 To 3
  Combo1(i) = ""
 Next i
End Sub
 
Private Sub cmdFind2_Click()
 VarInitData.SearchSimpleCodeBS = 6
 SimpleCodeFind.Show 1

End Sub

Private Sub cmdOk_Click()
 Dim MyItems As ListItems
 Dim TempStr As String
 Dim TempSQL As String
 Dim TempMoney As Double
 Dim TempMoney2 As Double
 Dim TempRealMoney As Double
 Dim TempCount As Long
 Dim TempItemCount As Long
 Dim TemplstCount As Long
 Dim TempIndex As Long
 Dim i As Long
  If SellBackTable.ModifyBS = True Then
    TempIndex = SellBackTable.lstBillDocuIndex
  Else
    SellBackTable.lstBillDocu.ListItems.Add , , ""
    TempIndex = SellBackTable.lstBillDocu.ListItems.Count
  End If
  TempStr = "0.00"
  
  With SellBackTable.lstBillDocu.ListItems(TempIndex)
   
   .Text = TexGoods(0)
   .SubItems(1) = TexGoods(1)
   .SubItems(2) = TexGoods(2)
   .SubItems(3) = TexGoods(4)
   .SubItems(4) = Combo1(3)
   TempMoney = Val(TexGoods(4)) * Val(TexGoods(6))
   .SubItems(5) = Format(TempMoney, TempStr)
   TempRealMoney = Val(TexGoods(4)) * Val(TexGoods(7))
   .SubItems(6) = Format(TempRealMoney, "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 SellBackTable
   TemplstCount = .lstBillDocu.ListItems.Count
   .lblGItemCount = TemplstCount
     TempCount = 0
     TempMoney = 0
     TempMoney2 = 0
     For i = 1 To TemplstCount
      TempCount = TempCount + Val(.lstBillDocu.ListItems(i).SubItems(3))
      TempMoney = TempMoney + Val(.lstBillDocu.ListItems(i).SubItems(5))
      TempMoney2 = TempMoney2 + Val(.lstBillDocu.ListItems(i).SubItems(6))
     Next i
     .lblGCount = TempCount
     .lblGMoney = VarFunction.DefFormat(TempMoney)
     .lblGMoney2 = VarFunction.DefFormat(TempMoney2)
  End With
  SellBackTable.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 SellBackTable.ModifyBS = True Then
  With SellBackTable.lstBillDocu.ListItems(SellBackTable.lstBillDocuIndex)
   
   TexGoods(0) = Trim(.Text)
   TexGoods(1) = Trim(.SubItems(1))
   TexGoods(2) = Trim(.SubItems(2))
  ' TexGoods(3) = Trim(.SubItems(14))
   TexGoods(4) = Val(Trim(.SubItems(3)))
  ' TexGoods(5) = Val(Trim(.SubItems(5)))
   TexGoods(6) = Val(Trim(.SubItems(8)))
   TexGoods(7) = Val(Trim(.SubItems(9)))
   TexGoods(8) = Trim(.SubItems(7))
   Combo1(0) = Trim(.SubItems(11))
   Combo1(1) = Trim(.SubItems(10))
   Combo1(2) = Trim(.SubItems(12))
   Combo1(3) = Trim(.SubItems(4))
  End With
 End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
 If BSE1.EngineStarted Then BSE1.EndSubClassing
 SellBackTable.ModifyBS = False
End Sub

Private Sub TexGoods_Change(Index As Integer)
 Dim TempVar As Double
 If Index = 6 Then
  TempVar = Val(TexGoods(Index).Text)
  If TempVar >= 0 Then
   TempVar = TempVar * (100 - Val(SellBackTable.Text1.Text)) / 100
   TexGoods(7).Text = Format$(TempVar, "0.00")
  End If
 End If
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