📄 frmcai.frm

📁 电子皮带秤计量管理系统.完成电子皮带秤的自动计量工作,和销售管理系统配合使用更佳.
💻 FRM
📖 第 1 页 / 共 4 页
字号:
上一页 1 2 34
'##################################################################
'## 过程名称：Main
'## 参数： 无
'##################################################################
Sub Main()
    ' Strhao1 = Comminute_S(Frmmnu.MSComm1, Chr$(Hao1), 0.1, 5000)
    ' If Len(Strhao1) = 18 Then
    '    Total = Val(Left$(Strhao1, 9))
    '    Fulx = Val(Right$(Strhao1, 6))
    ' End If
End Sub
    
    
    
'##################################################################
'## 过程名称：Form_Unload
'## 参数：Cancel 为Integer型
'##################################################################
Private Sub Form_Unload(Cancel As Integer)
    Timer1.Enabled = False
    Timer2.Enabled = False
    Animation2.AutoPlay = False
    Animation2.Stop
End Sub
    
    
    
'##################################################################
'## 过程名称：Label3_Click
'## 参数： 无
'##################################################################
Private Sub Label3_Click()
    Dim RUI As Integer
    RUI = MsgBox("存盘确认" + Chr(13) + Chr(13) + "当前的操作认为装船结束,转到下一船只。" + Chr(13) + Chr(13) + _
    "确认并存盘？", vbExclamation + vbDefaultButton1 + vbApplicationModal + vbYesNoCancel, "换船确认")
    If RUI = 6 Then
        Text15.Text = CSng(Text9.Text) - CSng(Text6.Text)
        Call SaveBillData
        Call SaveHTK
        PrintBill
        ClassData = 0
        SysLoad (True)
        Text12.Text = CInt(Text12.Text) + 1
    End If
End Sub
    
'##################################################################
'## 过程名称：Label4_Click
'## 参数： 无
'##################################################################
Private Sub Label4_Click()
    Dim RUI As Integer
    RUI = MsgBox("存盘确认" + Chr(13) + Chr(13) + "当前的操作认为装船结束,结束本次操作。" + Chr(13) + Chr(13) + _
    "确认已进行换船并存盘？", vbExclamation + vbDefaultButton1 + vbApplicationModal + vbYesNoCancel, "结束确认")
    If RUI = 6 Then
        Text15.Text = CSng(Text9.Text) - CSng(Text6.Text)
        Call SaveBillData
        Call SaveHTK
        PrintBill
        ClassData = 0
        Call SaveTabData
        DAYData = 0
        SysLoad (True)
    End If
End Sub
    
'##################################################################
'## 过程名称：Text7_KeyPress
'## 参数：KeyAscii 为Integer型
'##################################################################
Private Sub Text7_KeyPress(KeyAscii As Integer)
    Dim RUI, Geng As Integer
    Dim strQuery, hh As String
    Text7.ForeColor = &HFF&
    If KeyAscii = 13 Then
        Text7.ForeColor = &H0&
        hh = CStr(Text7.Text)
        strQuery = "SELECT * FROM htk WHERE  hth='" & CStr(Text7.Text) & "'" 'order by  ID DESC
        Adodc2.RecordSource = strQuery
        Adodc2.Refresh
        If Adodc2.Recordset.RecordCount > 0 Then
            Adodc2.Refresh
        Else
            RUI = MsgBox("数据确认" + Chr(13) + Chr(13) + "数据库中没有该记录！" + Chr(13) + Chr(13) + _
            "是否需要添加？", vbExclamation + vbDefaultButton1 + vbApplicationModal + vbYesNoCancel, "数据确认")
            If RUI = 6 Then
                Adodc2.Recordset.AddNew
                Adodc2.Recordset.Fields("hth") = hh
                Adodc2.Recordset.Update
                Adodc2.Refresh
            End If
        End If
        
    End If
End Sub
    
'##################################################################
'## 过程名称：Timer1_Timer
'## 参数： 无
'##################################################################
Private Sub Timer1_Timer()
    Dim Total As Single
    Dim Fulx As Single
    Dim strQuery As String
    Dim LL, Sx As Single
    strQuery = "SELECT * FROM total WHERE  装船日期='" & CStr(Date) & "' order by  ID DESC"
    Adodc1.RecordSource = strQuery
    Adodc1.Refresh
    If commer.PortOpen = False Then commer.PortOpen = True
    commer.Output = "rui"
    strhao1 = commer.Input
    If Len(strhao1) = 19 Then
        Total = Val(Left$(strhao1, 9))
        Fulx = Val(Right$(strhao1, 6))
    End If
    Text1.Caption = Format(Total, "0.00")
    Text2.Caption = Format(Fulx, "0")
    '        Weight = CSng(Text1.Caption)
    '        WeightB = Weight
    '        LL = Format(Rnd(1), "0.00")
    '        Text1.Caption = Format(CSng(Text1.Caption) + LL, "0.00")
    '        Text2.Caption = Format(120 + Rnd(10), "0.0")
    Weight = CSng(Text1.Caption)
    Sx = Weight - WeightB
    WeightB = Weight
    If Sx <= -1 Or Sx >= 5 Then
        Sx = 0!
    End If
    ClassData = ClassData + Sx
    DAYData = DAYData + Sx
    SysLoad (True)
    Text5.Text = Format(ClassData, "0.00")
    Text6.Text = Format(DAYData, "0.00")
    Call aviplay
End Sub
    
'##################################################################
'## 过程名称：aviplay
'## 参数： 无
'##################################################################
Private Sub aviplay()
    Dim i As Integer
    Animation1(0).Open App.Path & "\image\D0.avi"
    Animation1(1).Open App.Path & "\image\d1.avi"
    
    If Text2.Caption <> 0 Then
        For i = 0 To 1
            Animation1(i).AutoPlay = True
            Animation1(i).Play
        Next i
    Else
        For i = 0 To 1
            Animation1(i).AutoPlay = False
            Animation1(i).Stop
        Next i
    End If
    
End Sub
'##################################################################
'## 过程名称：PrintBill
'## 参数： 无
'##################################################################
Sub PrintBill()
    Dim i As Integer
    For i = 0 To 2
        frmData.Label3(i).Caption = Combo1.Text
        frmData.Label4(i).Caption = Combo2.Text
        frmData.Label7(i).Caption = Combo3.Text
        frmData.Label8(i).Caption = Combo4.Text
        frmData.Label10(i).Caption = Combo5.Text
        frmData.Label11(i).Caption = Text3.Text
        frmData.Label12(i).Caption = Text4.Text
        frmData.Label13(i).Caption = Text5.Text
        frmData.Label16(i).Caption = Text6.Text
        frmData.Label2(i).Caption = Text7.Text
        frmData.Label14(i).Caption = Text8.Text
        frmData.Label6(i).Caption = Combo6.Text
        frmData.Label17(i).Caption = Text15.Text
        frmData.Label15(i).Caption = Text9.Text
        frmData.Label9(i).Caption = Text13.Text
        frmData.Label5(i).Caption = CStr(Date) + CStr(Time)
    Next i
    frmData.PrintForm
End Sub
'##################################################################
'## 过程名称：SaveBillData
'## 参数： 无
'##################################################################
Private Sub SaveBillData()
    '    Data1.DatabaseName = App.Path & "\note.mdb"
    '    Data1.RecordSource = "total"
    data1.Refresh
    data1.Recordset.AddNew
    On Error Resume Next
    data1.Recordset.Fields("发货单位") = Combo1.Text
    data1.Recordset.Fields("发货人") = Combo2.Text
    data1.Recordset.Fields("用户名称") = Combo3.Text
    data1.Recordset.Fields("提货人") = Combo4.Text
    data1.Recordset.Fields("船队名称") = Combo5.Text
    data1.Recordset.Fields("船只编号") = Text3.Text
    data1.Recordset.Fields("计划吨位") = Text4.Text
    data1.Recordset.Fields("实装吨位") = Text5.Text
    data1.Recordset.Fields("累计吨位") = Text6.Text
    data1.Recordset.Fields("开票单号") = Text7.Text
    data1.Recordset.Fields("开票时间") = Text8.Text
    data1.Recordset.Fields("煤种") = Combo6.Text
    data1.Recordset.Fields("价格") = Text11.Text
    data1.Recordset.Fields("流水号") = Text12.Text
    data1.Recordset.Fields("开票数量") = Text9.Text
    data1.Recordset.Fields("到货地点") = Text13.Text
    data1.Recordset.Fields("装船日期") = CStr(Date)
    data1.Recordset.Fields("装船时间") = Time
    data1.Recordset.Update
    data1.Refresh
    data1.Recordset.Close
End Sub
'##################################################################
'## 过程名称：SaveHTK
'## 参数： 无
'##################################################################
Sub SaveHTK()
    On Error Resume Next
    Adodc2.Recordset.Fields("fhdw") = Combo1.Text
    Adodc2.Recordset.Fields("fhr") = Combo2.Text
    Adodc2.Recordset.Fields("wfl") = Text15.Text
    Adodc2.Recordset.Fields("yfl") = Text6.Text
    Adodc2.Recordset.Fields("hth") = Text7.Text
    Adodc2.Recordset.Fields("sj") = Text8.Text
    Adodc2.Recordset.Fields("hwm") = Combo6.Text
    Adodc2.Recordset.Fields("je") = Text11.Text
    Adodc2.Recordset.Fields("htl") = Text9.Text
    '    Adodc2.Recordset.Fields("用户名称") = Combo3.Text
    '    Adodc2.Recordset.Fields("提货人") = Combo4.Text
    '    Adodc2.Recordset.Fields("船队名称") = Combo5.Text
    '    Adodc2.Recordset.Fields("船只编号") = Text3.Text
    '    Adodc2.Recordset.Fields("计划吨位") = Text4.Text
    '    Adodc2.Recordset.Fields("到货地点") = Text13.Text
    '    Adodc2.Recordset.Fields("流水号") = Text12.Text
    '    Adodc2.Recordset.Fields("装船日期") = CStr(Date)
    '    Adodc2.Recordset.Fields("装船时间") = Time
    Adodc2.Recordset.UpdateBatch adAffectAllChapters
    
    '    Adodc2.Refresh
    '    Adodc2.Recordset.Close
End Sub
'##################################################################
'## 过程名称：SaveTabData
'## 参数： 无
'##################################################################
Private Sub SaveTabData()
    ' data1.DatabaseName = App.Path & "\note.mdb"
    '    data1.RecordSource = "tab"
    data2.Refresh
    data2.Recordset.AddNew
    On Error Resume Next
    data2.Recordset.Fields("发货人") = Combo2.Text
    data2.Recordset.Fields("收货单位") = Combo3.Text
    data2.Recordset.Fields("发货单位") = Combo1.Text
    data2.Recordset.Fields("提货人") = Combo4.Text
    data2.Recordset.Fields("当日发出") = Text5.Text
    data2.Recordset.Fields("累计发出") = Text6.Text
    data2.Recordset.Fields("开票时间") = Text8.Text
    data2.Recordset.Fields("欠存数量") = Text15.Text
    data2.Recordset.Fields("煤种") = Combo6.Text
    data2.Recordset.Fields("开票数量") = Text9.Text
    data2.Recordset.Fields("到货地点") = Text13.Text
    data2.Recordset.Fields("装船日期") = CStr(Date)
    data2.Recordset.Update
    data2.Refresh
End Sub
    
'##################################################################
'## 过程名称：InitSystem
'## 参数： 无
'##################################################################
Sub InitSystem()
    Dim iFlag As Integer
    Dim RUI, Geng As Integer
    RUI = MsgBox("数据加载确认" + Chr(13) + Chr(13) + "前一次退出时，班累计和日累计已存盘。" + Chr(13) + Chr(13) + _
    "是否需要加载？", vbExclamation + vbDefaultButton1 + vbApplicationModal + vbYesNoCancel, "数据加载确认")
    If RUI = 6 Then
        ReadINI "系统参数", "合同号", "\监控系统.INI"
        FrmCAI.Text7.Text = Result
        ReadINI "系统参数", "提货人", "\监控系统.INI"
        FrmCAI.Combo4.Text = Result
        ReadINI "系统参数", "客户名称", "\监控系统.INI"
        FrmCAI.Combo3.Text = Result
        ReadINI "系统参数", "到货地点", "\监控系统.INI"
        FrmCAI.Text13.Text = Result
        ReadINI "系统参数", "发货人", "\监控系统.INI"
        FrmCAI.Combo2.Text = Result
        ReadINI "系统参数", "发货单位", "\监控系统.INI"
        FrmCAI.Combo1.Text = Result
        ReadINI "系统参数", "船队名称", "\监控系统.INI"
        FrmCAI.Combo5.Text = Result
        ReadINI "系统参数", "船只编号", "\监控系统.INI"
        FrmCAI.Text3.Text = Result
        ReadINI "系统参数", "计划吨位", "\监控系统.INI"
        FrmCAI.Text4.Text = Result
        ReadINI "系统参数", "实装吨位", "\监控系统.INI"
        FrmCAI.Text5.Text = Result
        ReadINI "系统参数", "累计吨位", "\监控系统.INI"
        FrmCAI.Text6.Text = Result
        ReadINI "系统参数", "流水号码", "\监控系统.INI"
        FrmCAI.Text12.Text = Result
        ReadINI "系统参数", "开票时间", "\监控系统.INI"
        FrmCAI.Text8.Text = Result
        ReadINI "系统参数", "开票数量", "\监控系统.INI"
        FrmCAI.Text9.Text = Result
        ReadINI "系统参数", "煤种", "\监控系统.INI"
        FrmCAI.Combo6.Text = Result
        ReadINI "系统参数", "价格", "\监控系统.INI"
        FrmCAI.Text11.Text = Result
        ReadINI "系统参数", "欠存", "\监控系统.INI"
        FrmCAI.Text15.Text = Result
    End If
    Animation2.Open App.Path & "\image\WELCOM.avi"
    Timer1.Enabled = True
    Timer2.Enabled = True
    Animation2.AutoPlay = True
    Animation2.Play
    Adodc3.Refresh
End Sub
'##################################################################
'## 过程名称：SaveData
'## 参数： 无
'##################################################################
Sub SaveData()
    WriteINI "系统参数", "合同号", FrmCAI.Text7.Text, "\监控系统.INI"
    WriteINI "系统参数", "提货人", FrmCAI.Combo4.Text, "\监控系统.INI"
    WriteINI "系统参数", "客户名称", FrmCAI.Combo3.Text, "\监控系统.INI"
    WriteINI "系统参数", "到货地点", FrmCAI.Text13.Text, "\监控系统.INI"
    WriteINI "系统参数", "发货人", FrmCAI.Combo2.Text, "\监控系统.INI"
    WriteINI "系统参数", "发货单位", FrmCAI.Combo1.Text, "\监控系统.INI"
    WriteINI "系统参数", "船队名称", FrmCAI.Combo5.Text, "\监控系统.INI"
    WriteINI "系统参数", "船只编号", FrmCAI.Text3.Text, "\监控系统.INI"
    WriteINI "系统参数", "计划吨位", FrmCAI.Text4.Text, "\监控系统.INI"
    WriteINI "系统参数", "实装吨位", FrmCAI.Text5.Text, "\监控系统.INI"
    WriteINI "系统参数", "累计吨位", FrmCAI.Text6.Text, "\监控系统.INI"
    WriteINI "系统参数", "流水号码", FrmCAI.Text12.Text, "\监控系统.INI"
    WriteINI "系统参数", "开票时间", FrmCAI.Text8.Text, "\监控系统.INI"
    WriteINI "系统参数", "开票数量", FrmCAI.Text9.Text, "\监控系统.INI"
    WriteINI "系统参数", "煤种", FrmCAI.Combo6.Text, "\监控系统.INI"
    WriteINI "系统参数", "价格", FrmCAI.Text11.Text, "\监控系统.INI"
    WriteINI "系统参数", "欠存", FrmCAI.Text15.Text, "\监控系统.INI"
End Sub
    
'##################################################################
'## 过程名称：Timer2_Timer
'## 参数： 无
'##################################################################
Private Sub Timer2_Timer()
    On Error Resume Next
    SaveData
    Adodc3.Refresh
    Adodc3.Recordset.Delete
    Adodc3.Recordset.AddNew
    Adodc3.Recordset.Fields("时间") = CStr(Time)
    Adodc3.Recordset.Fields("日期") = CStr(Date)
    Adodc3.Recordset.Fields("累重示数") = Text1.Caption
    Adodc3.Recordset.Fields("流量示数") = Text2.Caption
    Adodc3.Recordset.Update
End Sub
上一页 1 2 34
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -