addrow5.frm

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

         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        =   18
         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        =   17
         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        =   16
         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        =   15
         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            =   840
      Top             =   6840
      _ExtentX        =   6588
      _ExtentY        =   1085
   End
End
Attribute VB_Name = "AddRow5"
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 = 6
 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 = 7
 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 QuoteBillTable.ModifyBS = True Then
    TempIndex = QuoteBillTable.lstBillDocuIndex
  Else
    QuoteBillTable.lstBillDocu.ListItems.Add , , ""
    TempIndex = QuoteBillTable.lstBillDocu.ListItems.Count
  End If
  TempStr = "0.00"
  
  With QuoteBillTable.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 QuoteBillTable
   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
  QuoteBillTable.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 QuoteBillTable.ModifyBS = True Then
  With QuoteBillTable.lstBillDocu.ListItems(QuoteBillTable.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
 QuoteBillTable.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(QuoteBillTable.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