gdhweight.frm

齐鲁石化某分公司的数据采集管理系统

    End If

    
    If Mid(strRcvFrame(intComPort), 2, 1) = "O" Then
        strData = Mid(strRcvFrame(intComPort), 3, 3)
        If strData = "END" Then
                
            Call Weight_Exit
            Timer3.Enabled = True
        End If
    End If
    
ok:
End Sub

Private Sub Combo1_Click(Index As Integer)
    Dim strStart As String, strEnd As String
    On Error GoTo ok
    
    strStart = Format_Date(Combo1(0).text, Combo1(1).text, Combo1(2).text, "S")
    strEnd = Format_Date(Combo1(0).text, Combo1(1).text, Combo1(2).text, "E")
    Call ListView_Load(strStart, strEnd, Combo1(0).text, gdh_Weight_Dbpath)
ok:
End Sub

Private Sub Combo1_KeyPress(Index As Integer, KeyAscii As Integer)
    On Error GoTo ok
    If KeyAscii = 13 Then
        Call Combo1_Click(2)
    End If
ok:
End Sub

Private Sub Command1_Click(Index As Integer)
    Dim str_FilePath As String
    On Error GoTo ok
    Select Case Index
        Case 0
            Dim Sign As Boolean
            If Label3(0).Caption = "" Or MSHFlexGrid1.TextMatrix(1, 0) = "" Then
                MsgBox "缺少条件,不能保存"
                Exit Sub
            End If
            Call CreatDB(Mid(Trim(Label3(0).Caption), 1, 4))
            Sign = Save_Data_to_gdhys(Trim(Label3(0).Caption), Trim(Label3(1).Caption), MSHFlexGrid1, gdh_Weight_Dbpath)
            If gdh_Weight_Savetofile = 1 Then
                
                str_FilePath = Mid(Trim(Label3(0).Caption), 1, 4) + Mid(Trim(Label3(0).Caption), 6, 2) + Mid(Trim(Label3(0).Caption), 9, 2)
                str_FilePath = str_FilePath + Mid(Trim(Label3(0).Caption), 12, 2) + Mid(Trim(Label3(0).Caption), 15, 2)
                If Right$(gdh_Weight_Savepath, 1) <> "\" Then
                    str_FilePath = gdh_Weight_Savepath + "\" + str_FilePath + ".txt"
                Else
                    str_FilePath = gdh_Weight_Savepath + str_FilePath + ".txt"
                End If
                Call Save_Data_to_File(str_FilePath, MSHFlexGrid1, Trim(Label3(0).Caption), Trim(Label3(1).Caption))
            End If
            If Sign = True Then
                MsgBox "保存完毕"
            Else
                MsgBox "存入数据库过程失败,请重新保存"
            End If
        Case 1
            
            If gdh_Print_Mode = "P" Then
                Call totalPrint(MSHFlexGrid1.Rows - 2)
            Else
                Call Line_Print(MSHFlexGrid1)
            End If
        Case 2
            
            str_FilePath = App.Path + "\tempfile.tpr"
            Call Save_Data_to_File(str_FilePath, MSHFlexGrid1, Label3(0).Caption, Label3(1).Caption)
            If ObjSystem.FileExists(str_FilePath) = True Then
                gdhEdits.Show
            Else
                MsgBox "无数据编辑"
            End If
        Case Else
        
    End Select
ok:
End Sub

Private Sub Command2_Click()
'    Call Adddata
    If Not Timer2.Enabled Then
         Timer2.Enabled = True
    Else
        Timer2.Enabled = False
    End If
End Sub

Function setCenter()
    Dim X0 As Long
    Dim Y0 As Long
    X0 = Screen.Width
    Y0 = Screen.Height
    X0 = (X0 - Me.Width) / 2
    Y0 = (Y0 - Me.Height) / 2
    Me.Move X0, Y0
End Function

Private Sub Form_Load()
    On Error GoTo ok
    
    Dim X0 As Long
    Dim Y0 As Long
    If App.PrevInstance = True Then
        End
    End If
    Call setCenter
    Set ObjSystem = CreateObject("Scripting.FileSystemObject")
    
    Call Initialize_
    
    If (Not ObjSystem.folderexists(gdh_Weight_Secondpath)) Then
        ObjSystem.createfolder (gdh_Weight_Secondpath)
    End If
    
    If (Not ObjSystem.folderexists(gdh_Weight_Savepath)) Then
        ObjSystem.createfolder (gdh_Weight_Savepath)
    End If
    
'    MSComm1.CommPort = gdh_Rec_Port
'    MSComm1.InBufferSize = gdh_Rec_Inbuff
'    MSComm1.InputLen = gdh_Rec_Inputlen
'    MSComm1.Settings = gdh_Rec_Attrib
'    MSComm1.RThreshold = gdh_Rec_Rth
'    MSComm1.SThreshold = gdh_Rec_Sth
'    If MSComm1.PortOpen = False Then
'        MSComm1.PortOpen = True
'    End If
    
    Check1.Value = gdh_Weight_Autosave
    Check2.Value = gdh_Weight_Autoprint
    
    Dim stru As String
    Dim i As Integer
    For i = 0 To 99 '...读入年分
        If Len(Trim(str(i))) = 1 Then
            stru = 0 & i
        Else
            stru = i
        End If
        stru = "20" & stru
        Combo1(0).AddItem stru
    Next i
    
    For i = 1 To 12 '...读入月份
        If Len(Trim(str(i))) = 1 Then
            stru = 0 & i
        Else
            stru = i
        End If
        Combo1(1).AddItem stru
        
    Next i
    For i = 1 To 31 '...读入日
        If Len(Trim(str(i))) = 1 Then
            stru = 0 & i
        Else
            stru = i
        End If
        Combo1(2).AddItem stru
    Next i
    
    Combo1(0).text = Format(Now, "yyyy")
    Combo1(1).text = Format(Now, "mm")
    Combo1(2).text = Format(Now, "dd")
    
    Call CreatDB(Combo1(0).text)
'    Dim strStart As String, strEnd As String
'    strStart = Format_Date(Combo1(0).Text, Combo1(1).Text, Combo1(2).Text, "S")
'    strEnd = Format_Date(Combo1(0).Text, Combo1(1).Text, Combo1(2).Text, "E")
'    Call ListView_Load(strStart, strEnd)
    Call Combo1_Click(2)
    gdh_Gprs_PreviousTime = Minute(Time)
    Timer3.Enabled = True
    
'    frmMain.Show
    'frmMain.Hide
    gdhMain.Enabled = False
ok:
    
End Sub

Private Sub Form_Unload(Cancel As Integer)
    gdhMain.Enabled = True
End Sub

Private Sub ListView1_DblClick()
    On Error GoTo ok
    Label3(0).Caption = ListView1.SelectedItem.text
    Label3(1).Caption = ListView1.SelectedItem.SubItems(1)
    Call Read_Data_from_gdhysdb(Label3(0).Caption, MSHFlexGrid1, gdh_Weight_Dbpath)
ok:
End Sub

Private Sub MSComm1_OnComm()
    On Error GoTo ok
    Select Case MSComm1.CommEvent
        Case comEvReceive
            
            strComBuf(1) = strComBuf(1) & MSComm1.Input
            If gdh_Rec_Type = "ASCII" Then
                Call ComDataDealAscii(1)
            ElseIf gdh_Rec_Type = "B464" Then
                Call ComDataDealB464(1)
            End If
        Case Else
            Exit Sub
    End Select
ok:
End Sub

Function GetKeyValue(str_FilePath As String, Section As String, key As String, secondValue As String) As String
    Dim Value As String
    Dim t As Long
    On Error GoTo ok
    
    Value = String(255, " ")
    t = GetPrivateProfileString(Section, key, secondValue, Value, 255, str_FilePath)
    Value = Trim(Value)
    GetKeyValue = Mid(Value, 1, Len(Value) - 1)
ok:
End Function

Function Initialize_()
    Dim j As Integer
    On Error Resume Next
    
    With MSHFlexGrid1
        .Cols = 5
        
        .TextMatrix(0, 0) = "序号"
        .TextMatrix(0, 1) = "车型"
        .TextMatrix(0, 2) = "车号"
        .TextMatrix(0, 3) = "毛重"
        .TextMatrix(0, 4) = "速度"
        
    End With
    
    For j = 0 To MSHFlexGrid1.Cols - 1
        Select Case Trim(MSHFlexGrid1.TextMatrix(0, j))
            Case "序号"
                Col(0) = j
            Case "车型"
                Col(1) = j
            Case "车号"
                Col(2) = j
            Case "毛重"
                Col(3) = j
            Case "皮重"
                Col(4) = j
            Case "净重"
                Col(5) = j
            Case "标重"
                Col(6) = j
            Case "超欠"
                Col(7) = j
            Case "速度"
                Col(8) = j
            Case "货名"
                Col(9) = j
            Case "发货单位"
                Col(10) = j
            Case "收货单位"
                Col(11) = j
            Case "发站"
                Col(12) = j
            Case "到站"
                Col(13) = j
            
            Case Else
            
        End Select
    Next j
    
    Dim ss As String
    Dim str_FilePath As String
    
    str_FilePath = App.Path & "\weightconfig.ini"
    
    ss = GetKeyValue(str_FilePath, "weight", "autosave", "0")
    If ss = "1" Then
        gdh_Weight_Autosave = 1
    Else
        gdh_Weight_Autosave = 0
    End If
    
    ss = GetKeyValue(str_FilePath, "weight", "autoprint", "0")
    If ss = "1" Then
        gdh_Weight_Autoprint = 1
    Else
        gdh_Weight_Autoprint = 0
    End If
    
    ss = GetKeyValue(str_FilePath, "weight", "savetofile", "0")
    If ss = "1" Then
        gdh_Weight_Savetofile = 1
    Else
        gdh_Weight_Savetofile = 0
    End If
    
    ss = GetKeyValue(str_FilePath, "weight", "formats", "#0.000")
    If ss = "#0.00" Then
        gdh_Weight_Formats = ss
    ElseIf ss = "#0.000" Then
        gdh_Weight_Formats = ss
    End If
    
    ss = GetKeyValue(str_FilePath, "weight", "zerocount", "12")
    gdh_Weight_Zerocount = Int(Val(ss))
    
    ss = GetKeyValue(str_FilePath, "weight", "jinchang", "<--")
    gdh_Weight_Jinchang = ss
    
    ss = GetKeyValue(str_FilePath, "weight", "chuchang", "-->")
    gdh_Weight_Chuchang = ss
    
    ss = GetKeyValue(str_FilePath, "weight", "mainpath", "D:\")
    gdh_Weight_Mainpath = ss
    
    ss = GetKeyValue(str_FilePath, "weight", "secondpath", "D:\RW")
    gdh_Weight_Secondpath = ss
    
    ss = GetKeyValue(str_FilePath, "weight", "savepath", "D:\RW\VEHICLE")
    gdh_Weight_Savepath = ss
    
    ss = GetKeyValue(str_FilePath, "rec", "port", "1")
    If Int(Val(ss)) >= 1 Then
        gdh_Rec_Port = Int(Val(ss))
    Else
        gdh_Rec_Port = 1
    End If
    
    ss = GetKeyValue(str_FilePath, "rec", "inputlen", "0")
    If Int(Val(ss)) >= 0 Then
        gdh_Rec_Inputlen = Int(Val(ss))
    Else
        gdh_Rec_Inputlen = 0
    End If
    
    ss = GetKeyValue(str_FilePath, "rec", "inbuff", "1024")
    If Int(Val(ss)) >= 512 Then
        gdh_Rec_Inbuff = Int(Val(ss))
    Else
        gdh_Rec_Inbuff = 1024
    End If
    
    ss = GetKeyValue(str_FilePath, "rec", "outbuff", "512")
    If Int(Val(ss)) >= 512 Then
        gdh_Rec_Outbuff = Int(Val(ss))
    Else
        gdh_Rec_Outbuff = 512
    End If
    
    ss = GetKeyValue(str_FilePath, "rec", "rth", "1")
    If Int(Val(ss)) = 1 Then
        gdh_Rec_Rth = 1
    Else
        gdh_Rec_Rth = 0
    End If
    
    ss = GetKeyValue(str_FilePath, "rec", "sth", "0")
    If Int(Val(ss)) = 1 Then
        gdh_Rec_Sth = 1
    Else
        gdh_Rec_Sth = 0
    End If
    
    ss = GetKeyValue(str_FilePath, "rec", "attrib", "9600,N,8,1")
    gdh_Rec_Attrib = ss
    
    ss = GetKeyValue(str_FilePath, "rec", "type", "ASCII")
    If ss = "ASCII" Then
        gdh_Rec_Type = "ASCII"
    ElseIf ss = "B464" Then
        gdh_Rec_Type = "B464"
    
    End If
    
    ss = GetKeyValue(str_FilePath, "print", "pageline", "1")
    If Int(Val(ss)) >= 0 Then
        gdh_Print_Pline = Int(Val(ss))
    Else
        gdh_Print_Pline = 1
    
    End If
    
    ss = GetKeyValue(str_FilePath, "print", "lineline", "1")