initdata.cls

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

    Do Until rs.EOF
       lvwData.AddItem rs.Fields(0).Value
       rs.MoveNext
    Loop
End Sub
Public Sub DealListView(lstBillDocu As ListView, ByRef lstBillDocuIndex As Long)
 If lstBillDocu.ListItems.Count > 0 Then
  If lstBillDocuIndex = 0 Then lstBillDocuIndex = 1
  'If lstBillDocu.Visible = True Then lstBillDocu.SetFocus
  If lstBillDocuIndex > lstBillDocu.ListItems.Count Then lstBillDocuIndex = lstBillDocu.ListItems.Count
  lstBillDocu.ListItems(lstBillDocuIndex).Selected = True
 Else
  lstBillDocuIndex = 0
 End If
End Sub
Public Sub SaveToStore(rs As MYSQL_RS, VarDate As Date)
 
    On Error Resume Next
     
    Dim TempRS As New MYSQL_RS
    Dim TempSQL As String
    Dim TempVar As Long
    Dim VarFind As Long
    Dim TempCount As Long
    Set TempRS = New MYSQL_RS
    TempSQL = DisplaySQLVal(10) & " Where goodscoding = " & Quote(rs.Fields("goodscoding").Value) '_
    '& " or goodscoding like " & Quote(rs.Fields("goodscoding").Value & "_%") '& " and lastdate = " & Quote(VarDate)
    TempRS.OpenRs TempSQL, gCnn
    With TempRS
     If .RecordCount > 0 Then
      TempVar = CLng(.Fields("goodscount").Value) + CLng(rs.Fields("goodscount").Value)
      If .Fields("goodsprice") <> rs.Fields("goodsprice") Then
       .Fields("goodsprice") = (Val(rs.Fields("goodsprice") * rs.Fields("goodscount")) + Val(.Fields("goodsprice") * .Fields("goodscount"))) / TempVar
      End If
      .Fields("goodscount") = TempVar
      .Fields("sellprice") = rs.Fields("sellprice")

     Else
       
       .AddNew
       .Fields("goodscoding") = rs.Fields("goodscoding")
       .Fields("goodsname") = rs.Fields("goodsname")
       .Fields("goodsstandard") = rs.Fields("goodsstandard")
       .Fields("goodsprice") = rs.Fields("goodsprice")
       .Fields("goodscount") = rs.Fields("goodscount")
       .Fields("sellprice") = rs.Fields("sellprice")
       .Fields("changeprice") = rs.Fields("changeprice")
       .Fields("goodspos") = rs.Fields("goodspos")
       .Fields("goodssort") = rs.Fields("goodssort")
       .Fields("brand") = rs.Fields("brand")
       .Fields("producehere") = rs.Fields("producehere")
       .Fields("orgprice") = rs.Fields("orgprice")
       .Fields("unit") = rs.Fields("unit")
     End If
       .Fields("lastdate") = Date
      ' .Fields("replacecoding") = ""
       .Update
      .CloseRecordset
      .ReleaseMemory
    End With
    Set TempRS = Nothing
 End Sub
Public Function SaveToStore2(rs As MYSQL_RS, ByVal CheckSuccBS As Boolean, Optional GoodsPriceMoney As Double) As Boolean
 
    On Error Resume Next
     
    Dim TempRS As New MYSQL_RS
    Dim TempSQL As String
    Dim TempVar As Long
    Dim VarFind As Long
   ' Dim MaxPrice As Double
    Set TempRS = New MYSQL_RS
   ' TempSQL = "Select max(goodsprice) From storegoodstable"
   ' TempRS.OpenRs TempSQL, gCnn
   ' MaxPrice = TempRS.Fields(0)
    TempSQL = DisplaySQLVal(10) & " Where goodscoding = " & Quote(rs.Fields("goodscoding")) '_
    '& " and goodsprice = (Select max(goodsprice) From storegoodstable where goodscoding = " & Quote(rs.Fields("goodscoding")) & ")" '& Quote(rs.Fields("goodscoding").Value & "_%")
    '& " or goodscoding like " & Quote(rs.Fields("goodscoding").Value & "_%") '& " and lastdate = " & Quote(VarDate)
    TempRS.OpenRs TempSQL, gCnn
    With TempRS
     If .RecordCount > 0 Then
     
      If CheckSuccBS = True Then
       TempVar = CLng(.Fields("goodscount").Value) + CLng(rs.Fields("goodscount").Value)
       .Fields("goodscount") = TempVar
       GoodsPriceMoney = .Fields("goodsprice") * rs.Fields("goodscount")
      End If
       SaveToStore2 = True
     Else
       SaveToStore2 = False
       GoodsPriceMoney = -1
     End If
      If CheckSuccBS = True Then
       .Fields("lastdate") = Date
      ' .Fields("replacecoding") = ""
       .Update
      End If
      .CloseRecordset
      .ReleaseMemory
    End With
    Set TempRS = Nothing
 End Function
 
Public Function ReduceFrStore(rs As MYSQL_RS, Optional ByVal CheckSuccBS As Boolean = False, Optional GoodsPriceMoney As Double = 0) As Boolean
 
    On Error Resume Next
     
    Dim TempRS As New MYSQL_RS
    Dim TempSQL As String
    Dim TempVar As Long
    
    Set TempRS = New MYSQL_RS
    
    TempSQL = VarInitData.DisplaySQLVal(10) & " Where goodscoding = " & Quote(rs.Fields("goodscoding").Value) '_
   ' & " or goodscoding like " & Quote(rs.Fields("goodscoding").Value & "_%") & ")"
   ' & " and goodsprice = " & Quote(rs.Fields("goodsprice"))
    TempRS.OpenRs TempSQL, gCnn
    'Debug.Print TempSQL
    With TempRS
     If .RecordCount > 0 Then
      'TempVar = .Fields("goodscoding")
      TempVar = CLng(.Fields("goodscount")) - CLng(rs.Fields("goodscount"))
      If TempVar >= 0 Then
       ReduceFrStore = True
       If CheckSuccBS = True Then .Fields("goodscount") = TempVar
      Else
       ReduceFrStore = False
      End If
     Else
      ReduceFrStore = False
     End If
      If CheckSuccBS = True Then
       .Fields("lastdate") = Date
       .Update
      End If
      .CloseRecordset
      .ReleaseMemory
    End With
    Set TempRS = Nothing
 End Function
 
 
 Public Function SellReduceFrStore(rs As MYSQL_RS, Optional ByVal CheckSuccBS As Boolean = False, Optional GoodsPriceMoney As Double) As Boolean
 
    On Error Resume Next
     
    Dim TempRS As New MYSQL_RS
    Dim TempSQL As String
    Dim TempVar As Long
    Dim TempStr As String
    Dim TempFunction As ClassFunction
    Dim TempCount As Long
    Dim i As Long
    Dim VarCount As Long
    Dim TempIndex As Long
    
    GoodsPriceMoney = 0
    Set TempRS = New MYSQL_RS
    TempSQL = VarInitData.DisplaySQLVal(10) & " Where goodscoding = " & Quote(rs.Fields("goodscoding").Value) '& " or goodscoding like " & Quote(rs.Fields("goodscoding").Value & "_%")
    TempRS.OpenRs TempSQL, gCnn
     If TempRS.RecordCount > 0 Then
      If CheckSuccBS = True Then
       'If TempRS.Fields("goodsprice") <> rs.Fields("goodsprice") Then
       ' TempRS.Fields("goodsprice") = (Val(TempRS.Fields("goodsprice") * TempRS.Fields("goodscount")) - Val(rs.Fields("goodsprice") * rs.Fields("goodscount"))) / TempVar
       'End If
     '  GoodsPriceMoney = TempRS.Fields("goodsprice") * rs.Fields("goodscount")
       TempVar = CLng(TempRS.Fields("goodscount")) - CLng(rs.Fields("goodscount"))
       TempRS.Fields("goodscount") = TempVar
      End If
      SellReduceFrStore = True
     Else
      SellReduceFrStore = False
     End If
     
    If CheckSuccBS = True Then
     TempRS.Fields("lastdate") = Date
     TempRS.Update
    End If
    TempRS.CloseRecordset
    TempRS.ReleaseMemory
    Set TempRS = Nothing
 End Function
 
Public Function DrawReduceFrStore(MyItem As ListItem, Optional ByVal CheckSuccBS As Boolean = False, Optional GoodsPriceMoney As Double = 0) As Boolean
 
    On Error Resume Next
     
    Dim TempRS As New MYSQL_RS
    Dim TempSQL As String
    Dim TempVar As Long
    Dim TempStr As String
    Dim TempFunction As ClassFunction
    Dim TempCount As Long
    Dim i As Long
    Dim VarCount As Long
    Dim TempIndex As Long
  Set TempRS = New MYSQL_RS
    TempSQL = VarInitData.DisplaySQLVal(10) & " Where goodscoding = " & Quote(MyItem.Text) & " or goodscoding like " & Quote(MyItem.Text & "_%")
    TempRS.OpenRs TempSQL, gCnn
     If TempRS.RecordCount > 0 Then
      If CheckSuccBS = True Then
       TempVar = CLng(TempRS.Fields("goodscount")) - CLng(MyItem.SubItems(3))
       TempRS.Fields("goodscount") = TempVar
       GoodsPriceMoney = TempRS.Fields("goodsprice") * IIf(Val(MyItem.SubItems(3)) >= 0, Val(MyItem.SubItems(3)), -Val(MyItem.SubItems(3)))
      End If
      DrawReduceFrStore = True
     Else
      DrawReduceFrStore = False
     End If
     ' .Fields("replacecoding") = ""
    If CheckSuccBS = True Then
     TempRS.Fields("lastdate") = Date
     TempRS.Update
    End If
    TempRS.CloseRecordset
    TempRS.ReleaseMemory
    Set TempRS = Nothing
 End Function
 Public Function DrawSaveToStoreBak(MyItem As ListItem, Optional ByVal CheckSuccBS As Boolean = False, Optional GoodsPrice As Double = 0) As Boolean
 
    On Error Resume Next
     
    Dim TempRS As New MYSQL_RS
    Dim TempSQL As String
    Dim TempVar As Long
    Dim VarFind As Long
    Set TempRS = New MYSQL_RS
    TempSQL = DisplaySQLVal(10) & " Where goodscoding = " & Quote(MyItem.Text) '_
    '& " and goodsprice = (Select max(goodsprice) From storegoodstable where goodscoding = " & Quote(MyItem.Text) & ")"  '& Quote(rs.Fields("goodscoding").Value & "_%")
    TempRS.OpenRs TempSQL, gCnn
    With TempRS
     If .RecordCount > 0 Then
     
      If CheckSuccBS = True Then
       TempVar = CLng(.Fields("goodscount").Value) - CLng(MyItem.SubItems(3))
       .Fields("goodscount") = TempVar
       GoodsPrice = .Fields("goodsprice")
      End If
       DrawSaveToStoreBak = True
     Else
       DrawSaveToStoreBak = False
       GoodsPrice = -1
     End If
      If CheckSuccBS = True Then
       .Fields("lastdate") = Date
      ' .Fields("replacecoding") = ""
       .Update
      End If
      .CloseRecordset
      .ReleaseMemory
    End With
    Set TempRS = Nothing
 End Function
Public Sub SaveToBill(rs As MYSQL_RS, ByVal TableNum As Integer, Optional StrBillNum As String)
 
    On Error Resume Next
     
    Dim TempRS As New MYSQL_RS
    Dim TempSQL As String
    
    
    Set TempRS = New MYSQL_RS
    TempSQL = DisplaySQLVal(TableNum) & " Where billnum = " & Quote(rs.Fields("billnum").Value)
    TempRS.OpenRs TempSQL, gCnn
    With TempRS
      .MoveLast
      .MoveNext
      .AddNew
     .Fields("billnum") = StrBillNum 'rs.Fields("billnum")
     .Fields("provide") = rs.Fields("provide")
     .Fields("stockdate") = rs.Fields("stockdate")
     .Fields("payway") = rs.Fields("payway")
     .Fields("principal") = rs.Fields("principal")
     .Fields("checkman") = rs.Fields("checkman")
     .Fields("gcount") = rs.Fields("gcount")
     .Fields("gmoney") = rs.Fields("gmoney")
     .Fields("gitemcount") = rs.Fields("gitemcount")
     .Fields("operateman") = rs.Fields("operateman")
     .Fields("invoicetype") = rs.Fields("invoicetype")
     .Fields("invoiceno") = rs.Fields("invoiceno")
     .Fields("billtype") = rs.Fields("billtype")
     .Fields("lookthrough") = Date
    ' .Fields("replacecoding") = ""
      .Update
      .CloseRecordset
      .ReleaseMemory
    End With