frmtrafficupdate.frm

物流管理系统

      AutoSize        =   -1  'True
      Caption         =   "到    站："
      Height          =   300
      Left            =   3240
      TabIndex        =   39
      Top             =   1680
      Width           =   900
   End
   Begin VB.Label Label9 
      AutoSize        =   -1  'True
      Caption         =   "发货人："
      Height          =   300
      Left            =   6240
      TabIndex        =   38
      Top             =   1680
      Width           =   720
   End
   Begin VB.Label Label10 
      AutoSize        =   -1  'True
      Caption         =   "收 货 人："
      Height          =   300
      Left            =   9120
      TabIndex        =   37
      Top             =   1680
      Width           =   900
   End
   Begin VB.Label Label11 
      AutoSize        =   -1  'True
      Caption         =   "品  名："
      Height          =   180
      Left            =   6240
      TabIndex        =   36
      Top             =   1080
      Width           =   720
   End
   Begin VB.Label Label12 
      AutoSize        =   -1  'True
      Caption         =   "货物类型："
      Height          =   180
      Left            =   240
      TabIndex        =   35
      Top             =   2385
      Width           =   900
   End
End
Attribute VB_Name = "frmTrafficUpdate"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Option Explicit

Private ID As Integer
Private CARNUM As String
Private DATENUM As Long
Private PRODUCTNAME As String
Private PRODUCTTYPE As Integer
Private TRAINTYPE As Integer
Private SENDSTATION As Integer
Private RECEIVESTATION As Integer
Private SENDER As Integer
Private RECEIVER As Integer
Private WEIGHT As Single
Private BASICCARRIAGE As Single
Private LOCALCARRIAGE As Single
Private SERVECHARGE As Single
Private LOADCHARGE As Single
Private FAVOURABILE As Single
Private SHORTCARRIAGE As Single
Private STORAGECHARGE As Single
Private CLEARCHARGE As Single
Private total As Single
Private FLAG As Integer
Public updateid As Integer

Private Sub Command1_Click()

    If CheckForm() = True Then
        Dim strsql As String
        Dim DB As New clsDataBase
        '删除原有数据
        strsql = "DELETE FROM TRAFFIC WHERE ID=" & updateid
        sys.DB.ExecuteSQL (strsql)
        
        '插入数据
        strsql = "INSERT INTO TRAFFIC (ID,CARNUM,DATENUM,PRODUCTNAME,PRODUCTTYPE," & _
        "TRAINTYPE,SENDSTATION,RECEIVESTATION,SENDER,RECEIVER,WEIGHT,BASICCARRIAGE," & _
        "LOCALCARRIAGE,SERVECHARGE,LOADCHARGE,FAVOURABILE,SHORTCARRIAGE,STORAGECHARGE," & _
        "CLEARCHARGE,TOTAL,FLAG) VALUES(" & sys.NumToInsert(txtId.Text) & "," & sys.StrToInsert(txtCarNum.Text) & ", " & _
        "" & sys.StrToInsert(dtpDateNum.Value) & "," & sys.NumToInsert(cmbProductName.ItemData(cmbProductName.ListIndex)) & "," & sys.NumToInsert(cmbProductType.ItemData(cmbProductType.ListIndex)) & ", " & _
        "" & sys.NumToInsert(cmbTrainType.ItemData(cmbTrainType.ListIndex)) & "," & sys.NumToInsert(cmbSendStation.ItemData(cmbSendStation.ListIndex)) & "," & sys.NumToInsert(cmbReceiveStation.ItemData(cmbReceiveStation.ListIndex)) & "," & _
        "" & sys.NumToInsert(cmbSender.ItemData(cmbSender.ListIndex)) & "," & sys.NumToInsert(cmbReceiver.ItemData(cmbReceiver.ListIndex)) & "," & _
        "" & sys.NumToInsert(txtWeight.Text) & "," & sys.NumToInsert(txtBasicCarriage.Text) & "," & sys.NumToInsert(txtLocalCarriage.Text) & "," & _
        "" & sys.NumToInsert(txtServeCharge.Text) & "," & sys.NumToInsert(txtLoadCharge.Text) & "," & sys.NumToInsert(txtFavourabile.Text) & "," & _
        "" & sys.NumToInsert(txtShortCarriage.Text) & "," & sys.NumToInsert(txtStorageCharge.Text) & "," & sys.NumToInsert(txtClearCharge.Text) & "," & sys.NumToInsert(txtTotal.Text) & ",False )"
        sys.DB.ExecuteSQL (strsql)
        MsgBox "操作成功！"
        Unload frmTrafficUpdate
    End If


End Sub

Private Sub Command2_Click()

    Unload Me
End Sub

Private Sub Form_Load()
    
    '调整位置
    Me.Top = 0
    Me.Left = 0
    Me.Width = MainForm.Width * 0.8
    Me.Height = MainForm.Height * 0.7
    Dim inum As Integer
    Dim strsql As String
    Dim DB As New clsDataBase
    Dim rs As New ADODB.Recordset
    
    '初始化车类型
    cmbTrainType.AddItem ("高边")
    cmbTrainType.ItemData(0) = 0
    cmbTrainType.AddItem ("蓬车")
    cmbTrainType.ItemData(1) = 1
    
    '初始化货物类型
    cmbProductType.AddItem ("包装")
    cmbProductType.ItemData(0) = 0
    cmbProductType.AddItem ("散装")
    cmbProductType.ItemData(1) = 1
    
    '初始化品名
    strsql = "SELECT * FROM PRODUCT"
    Set rs = sys.DB.OpenRecordSet(strsql)
    If Not (rs.BOF) Or (rs.EOF) Then
        inum = 0
        Do While Not rs.EOF
            cmbProductName.AddItem (rs("NAME"))
            cmbProductName.ItemData(inum) = rs("ID")
            rs.MoveNext
            inum = inum + 1
        Loop
    End If
    
    '初始化发站
    strsql = "SELECT * FROM STATION ORDER BY NAME"
    Set rs = sys.DB.OpenRecordSet(strsql)
    If Not (rs.BOF) Or (rs.EOF) Then
        inum = 0
        Do While Not rs.EOF
            cmbSendStation.AddItem (rs("NAME"))
            cmbSendStation.ItemData(inum) = rs("ID")
            rs.MoveNext
            inum = inum + 1
        Loop
    End If
    
    '初始化到站
    strsql = "SELECT * FROM STATION  ORDER BY NAME DESC"
    Set rs = sys.DB.OpenRecordSet(strsql)
    If Not (rs.BOF) Or (rs.EOF) Then
        inum = 0
        Do While Not rs.EOF
            cmbReceiveStation.AddItem (rs("NAME"))
            cmbReceiveStation.ItemData(inum) = rs("ID")
            rs.MoveNext
            inum = inum + 1
        Loop
    End If
    
    '初始化发货人
    strsql = "SELECT * FROM CLIENT  ORDER BY NAME"
    Set rs = sys.DB.OpenRecordSet(strsql)
    If Not (rs.BOF) Or (rs.EOF) Then
        inum = 0
        Do While Not rs.EOF
            cmbSender.AddItem (rs("NAME"))
            cmbSender.ItemData(inum) = rs("ID")
            rs.MoveNext
            inum = inum + 1
        Loop
    End If
    
   '初始化收货人
    strsql = "SELECT * FROM CLIENT  ORDER BY NAME DESC"
    Set rs = sys.DB.OpenRecordSet(strsql)
    If Not (rs.BOF) Or (rs.EOF) Then
        inum = 0
        Do While Not rs.EOF
            cmbReceiver.AddItem (rs("NAME"))
            cmbReceiver.ItemData(inum) = rs("ID")
            rs.MoveNext
            inum = inum + 1
        Loop
    End If
    
    '赋值
    strsql = "SELECT * FROM TRAFFIC WHERE ID = " & updateid
    Set rs = sys.DB.OpenRecordSet(strsql)
    If Not rs.EOF Then
        txtId.Text = sys.TextTolong(rs("ID"))
        txtCarNum.Text = sys.StrToText(rs("CarNum"))
        For inum = 0 To cmbTrainType.ListCount - 1
            If cmbTrainType.ItemData(inum) = sys.TextTolong(rs("TrainType")) Then
                cmbTrainType.ListIndex = inum
            End If
        Next
        For inum = 0 To cmbProductName.ListCount - 1
            If cmbProductName.ItemData(inum) = sys.TextTolong(rs("ProductName")) Then
                cmbProductName.ListIndex = inum
            End If
        Next
        If Not IsNull(rs("DateNum")) Then
            dtpDateNum.Value = CDate(rs("DateNum"))
        Else
            dtpDateNum.Value = Date
        End If
        
        For inum = 0 To cmbSendStation.ListCount - 1
            If cmbSendStation.ItemData(inum) = sys.TextTolong(rs("SendStation")) Then
                cmbSendStation.ListIndex = inum
            End If
        Next
        For inum = 0 To cmbReceiveStation.ListCount - 1
            If cmbReceiveStation.ItemData(inum) = sys.TextTolong(rs("ReceiveStation")) Then
                cmbReceiveStation.ListIndex = inum
            End If
        Next
        For inum = 0 To cmbSender.ListCount - 1
            If cmbSender.ItemData(inum) = sys.TextTolong(rs("Sender")) Then
                cmbSender.ListIndex = inum
            End If
        Next
        For inum = 0 To cmbReceiver.ListCount - 1
            If cmbReceiver.ItemData(inum) = sys.TextTolong(rs("Receiver")) Then
                cmbReceiver.ListIndex = inum
            End If
        Next
        For inum = 0 To cmbProductType.ListCount - 1
            If cmbProductType.ItemData(inum) = sys.TextTolong(rs("ProductType")) Then
                cmbProductType.ListIndex = inum
            End If
        Next
        txtWeight.Text = sys.TextToNum(rs("Weight"))
        txtBasicCarriage.Text = sys.TextToNum(rs("BasicCarriage"))
        txtLocalCarriage.Text = sys.TextToNum(rs("LocalCarriage"))
        txtServeCharge.Text = sys.TextToNum(rs("ServeCharge"))
        txtLoadCharge.Text = sys.TextToNum(rs("LoadCharge"))
        txtFavourabile.Text = sys.TextToNum(rs("Favourabile"))
        txtShortCarriage.Text = sys.TextToNum(rs("ShortCarriage"))
        txtStorageCharge.Text = sys.TextToNum(rs("StorageCharge"))
        txtClearCharge.Text = sys.TextToNum(rs("ClearCharge"))
        txtTotal.Text = sys.TextToNum(rs("Total"))
        txtWeight.Text = sys.TextToNum(rs("Weight"))
        Call MakeTotal
    Else
        MsgBox "数据错误!"
        Unload Me
    End If

End Sub




Private Sub Form_Unload(Cancel As Integer)

    If frmTraffic.ActiveControl = True Then
        
        Call frmTraffic.query
    End If
End Sub

'合计
Private Sub MakeTotal()
    
    txtTotal.Text = sys.TextToNum(txtBasicCarriage.Text) + sys.TextToNum(txtLocalCarriage.Text) + sys.TextToNum(txtServeCharge.Text) - sys.TextToNum(txtFavourabile.Text) + sys.TextToNum(txtLoadCharge.Text) + sys.TextToNum(txtShortCarriage.Text) + sys.TextToNum(txtStorageCharge.Text) + sys.TextToNum(txtClearCharge.Text)
    If sys.TextToNum(txtWeight.Text) <> 0 Then
        txtAvg.Text = FormatNumber(sys.TextToNum(txtTotal.Text / txtWeight.Text), 2)
    Else
        txtAvg.Text = 0
    End If
End Sub

'检查表单数据
Private Function CheckForm() As Boolean

    CheckForm = False

    If txtCarNum.Text = "" Then
    
        MsgBox "车号不能为空！"
        txtCarNum.SetFocus
    ElseIf cmbProductName.Text = "" Then
    
        MsgBox "品名不能为空！"
        cmbProductName.SetFocus
    ElseIf cmbSendStation.Text = "" Then
    
        MsgBox "发站不能为空！"
        cmbSendStation.SetFocus
    ElseIf cmbReceiveStation.Text = "" Then
    
        MsgBox "到站不能为空！"
        cmbReceiveStation.SetFocus
    ElseIf txtWeight.Text = "" Then
    
        MsgBox "重量不能为空！"
        txtWeight.SetFocus
    ElseIf txtBasicCarriage.Text = "" Then
    
        MsgBox "国铁运费不能为空！"
        txtBasicCarriage.SetFocus
    ElseIf txtServeCharge.Text = "" Then
    
        MsgBox "服务费不能为空！"
        txtServeCharge.SetFocus
    Else
    
        CheckForm = True
    End If
    
End Function

Private Sub txtBasicCarriage_Change()

    Call MakeTotal

End Sub

Private Sub txtClearCharge_Change()

    Call MakeTotal
End Sub

Private Sub txtFavourabile_Change()

    Call MakeTotal
End Sub

Private Sub txtLoadCharge_Change()

    Call MakeTotal
End Sub

Private Sub txtLocalCarriage_Change()

    Call MakeTotal
End Sub

Private Sub txtServeCharge_Change()

    Call MakeTotal
End Sub

Private Sub txtShortCarriage_Change()

    Call MakeTotal
End Sub

Private Sub txtStorageCharge_Change()

    Call MakeTotal
End Sub

Private Sub txtWeight_Change()

    Call MakeTotal
End Sub