VB开发的ERP系统

            CzxsGrid.Redraw = True
            Exit Sub
        End If
        
        jsqte = CzxsGrid.FixedRows
        
        Do While Not .EOF
            CzxsGrid.AddItem ""
            Call Jltcwg(Cxnrrec, jsqte)                              '调入填充网格子过程
            CzxsGrid.RowHeight(jsqte) = Sjhgd                        '设置网格高度
            .MoveNext
            jsqte = jsqte + 1
        Loop
    End With
  
    '将网格刷新动作解冻
    CzxsGrid.Redraw = True
    
End Sub

Private Sub Jltcwg(Jlbrec As ADODB.Recordset, Rowjsq As Long)           '记录内容填充网格

    '[>>以下为自定义部分
    With Jlbrec
        CzxsGrid.TextMatrix(Rowjsq, 0) = .Fields("WeighId")
        CzxsGrid.TextMatrix(Rowjsq, 1) = .Fields("VoucherId")
        CzxsGrid.TextMatrix(Rowjsq, Sydz("001", GridStr(), szzls)) = Trim(.Fields("VehicleNum") & "")    '车号
        If Not IsNull(.Fields("WeighTime")) Then
              CzxsGrid.TextMatrix(Rowjsq, Sydz("002", GridStr(), szzls)) = Format(Trim(.Fields("WeighTime")), "yyyy-mm-dd hh:mm") '要求检斤时间
        Else
              CzxsGrid.TextMatrix(Rowjsq, Sydz("002", GridStr(), szzls)) = ""
        End If
        If Not IsNull(.Fields("WeighEndTime")) Then
              CzxsGrid.TextMatrix(Rowjsq, Sydz("003", GridStr(), szzls)) = Format(Trim(.Fields("WeighEndTime")), "yyyy-mm-dd hh:mm") '检斤完毕时间
        Else
              CzxsGrid.TextMatrix(Rowjsq, Sydz("003", GridStr(), szzls)) = ""
        End If
        If Not IsNull(.Fields("WeighMan")) Then
              CzxsGrid.TextMatrix(Rowjsq, Sydz("004", GridStr(), szzls)) = Trim(.Fields("WeighMan") & "")   '检斤负责人
        Else
              CzxsGrid.TextMatrix(Rowjsq, Sydz("004", GridStr(), szzls)) = ""
        End If
        If Trim(.Fields("Result")) = True Then                                                             '检斤状态
              CzxsGrid.TextMatrix(Rowjsq, Sydz("005", GridStr(), szzls)) = "已检斤"
        Else
              CzxsGrid.TextMatrix(Rowjsq, Sydz("005", GridStr(), szzls)) = "未检斤"
        End If
        If Trim(.Fields("Quantity")) <> 0 Then
              CzxsGrid.TextMatrix(Rowjsq, Sydz("006", GridStr(), szzls)) = Trim(.Fields("Quantity") & "")   '吨位
        Else
              CzxsGrid.TextMatrix(Rowjsq, Sydz("006", GridStr(), szzls)) = ""
        End If
    
    End With
    '以上为自定义部分<<]
    
End Sub

Private Sub Form_Unload(Cancel As Integer)             '窗体卸载
    dbl_RecordAutoCode = 0
    Set Cxnrrec = Nothing
    Set Rec_CodeSet = Nothing
    Unload Dyymctbl
   
End Sub

Private Function Bclrsj() As Boolean                   '判断录入数据有效性,并保存数据

    Dim jsqte As Integer
    Dim Findrc As New ADODB.Recordset
  
    '对文本框录入内容进行为零和为空判断(固定不变)
    With Rec_CodeSet
    
        For jsqte = 0 To Max_Text_Index
            If Textint(jsqte, 8) = 1 Then     '字段不能为空
                If Len(Trim(LrText(jsqte).Text)) = 0 Then
                    Tsxx = Textstr(jsqte, 7) & "不能为空!"
                    Call Xtxxts(Tsxx, 0, 1)
                    LrText(jsqte).SetFocus
                    Bclrsj = False
                    Exit Function
                End If
            Else
                If Textint(jsqte, 8) = 2 Then   '字段不能为零
                    If Val(Trim(LrText(jsqte).Text)) = 0 Then
                        Tsxx = Textstr(jsqte, 7) & "不能为零!"
                        Call Xtxxts(Tsxx, 0, 1)
                        LrText(jsqte).SetFocus
                        Bclrsj = False
                        Exit Function
                    End If
                End If
            End If
        Next jsqte
         '<<自定义
        '判断要求检斤时间的年度是否与当前会计年度相符
        If Trim(JiText(0).Text <> "____-__-__ __:__") Then
        If IsDate(JiText(0).Text) Then
            JiText(0).Text = Format(JiText(0).Text, "yyyy-mm-dd hh:mm")
            If Val(Trim(JiText(0).Text)) <> Val(Year(Xtrq)) Then
                Tsxx = "年度与当前会计年度不符，请重新输入"
                Call Xtxxts(Tsxx, 0, 4)
                JiText(0).SetFocus
                Exit Function
            End If
        Else
            Tsxx = "非法公历时间!(格式:" + Format(Date, "yyyy-mm-dd hh:mm") + ")"
            Call Xtxxts(Tsxx, 0, 1)
            JiText(0).SetFocus
            Exit Function
        End If
    End If
    
    '要求检斤时间不能为空
    If Trim(JiText(0).Text) = "____-__-__ __:__" Then
        Tsxx = "要求检斤时间不能为空!"
        Call Xtxxts(Tsxx, 0, 1)
        JiText(0).SetFocus
        Bclrsj = False
        Exit Function
    End If
    '判断检斤完毕时间的年度是否与当前会计年度相符
    If Trim(JiText(1).Text <> "____-__-__ __:__") Then
        If IsDate(JiText(1).Text) Then
            JiText(1).Text = Format(JiText(1).Text, "yyyy-mm-dd hh:mm")
            If Val(Trim(JiText(1).Text)) <> Val(Year(Xtrq)) Then
                Tsxx = "年度与当前会计年度不符，请重新输入"
                Call Xtxxts(Tsxx, 0, 4)
                JiText(1).SetFocus
                Exit Function
            End If
        Else
            Tsxx = "非法公历时间!(格式:" + Format(Date, "yyyy-mm-dd hh:mm") + ")"
            Call Xtxxts(Tsxx, 0, 1)
            JiText(1).SetFocus
            Exit Function
        End If
    End If
    '要求检斤时间不能大于检斤完毕时间
    If Trim(JiText(0).Text) <> "____-__-__ __:__" And Trim(JiText(1).Text) <> "____-__-__ __:__" Then
        If CDate(JiText(0).Text) > CDate(JiText(1).Text) Then
            Tsxx = "要求检斤时间不能大于检斤完毕时间!"
            Call Xtxxts(Tsxx, 0, 1)
            Bclrsj = False
            JiText(1).SetFocus
            Exit Function
        End If
    End If
    If Not JiTextptpd Then
        Exit Function
    End If
    
    '>>
    
        '对需要进行事后判断的文本框录入内容进行有效性判断 (固定不变)
        For jsqte = 0 To Max_Text_Index
            If Textint(jsqte, 9) = 0 Or Textint(jsqte, 9) = 2 Then
                If Not TextYxxpd(jsqte) Then
                    Exit Function
                End If
            End If
        Next jsqte
        
   
        If Lrzt = 1 Then  '增 加
        
            If .State = 1 Then .Close
            .Open "SELECT * FROM Tr_Weigh where 1=2 ", Cw_DataEnvi.DataConnect, adOpenDynamic, adLockOptimistic

            '判断记录内容无误后,将记录内容写入数据表
            On Error GoTo Swcwcl
    
            Cw_DataEnvi.DataConnect.BeginTrans
   
            .AddNew
                .Fields("VehicleNum") = Trim(LrText(0).Text & "")                             '车号
                If Trim(JiText(0).Text) <> "____-__-__ __:__" Then
                    .Fields("WeighTime") = Format(JiText(0).Text, "yyyy-mm-dd hh:mm")          '要求检斤时间
                Else
                    .Fields("WeighTime") = Null
                End If
                If Trim(JiText(1).Text) <> "____-__-__ __:__" Then
                    .Fields("WeighEndTime") = Format(JiText(1).Text, "yyyy-mm-dd hh:mm")       '检斤完毕时间
                Else
                    .Fields("WeighEndTime") = Null
                End If
                If Trim(LrText(1).Text) <> "" Then
                    .Fields("WeighMan") = Trim(LrText(1).Text & "")                            '检斤负责人
                Else
                    .Fields("WeighMan") = ""
                End If
                If Trim(JiText(1).Text) <> "____-__-__ __:__" Then                            '检斤状态
                    .Fields("Result") = 1
                Else
                    .Fields("Result") = 0
                End If
                .Fields("Quantity") = Val(Trim(LrText(2).Text & ""))
            .Update
            dbl_RecordAutoCode = .Fields("WeighId")
            '增加记录的同时增加台准帐排它表中的记录(由此判断各状态时间问题)
             If Findrc.State = 1 Then Findrc.Close
                Findrc.Open "SELECT * FROM Tr_NowAccount where 1=2 ", Cw_DataEnvi.DataConnect, adOpenDynamic, adLockOptimistic
    
    
                Findrc.AddNew
                Findrc.Fields("VoucherNum") = 1                                                      '各状态拾别号检斤为4
                Findrc.Fields("ChildId") = dbl_RecordAutoCode
                Findrc.Fields("VehicleNum") = Trim(.Fields("VehicleNum") & "")                         '车号
                If Not IsNull(.Fields("WeighTime")) Then
                     Findrc.Fields("BeginTime") = Format(Trim(.Fields("WeighTime")), "yyyy-mm-dd hh:mm") '各状态要求时间
                Else
                     Findrc.Fields("BeginTime") = Format(Trim(.Fields("WeighTime")), "yyyy-mm-dd hh:mm")
                End If
                If Not IsNull(.Fields("WeighEndTime")) Then
                     Findrc.Fields("EndTime") = Format(Trim(.Fields("WeighEndTime")), "yyyy-mm-dd hh:mm") '各状态完毕时间
                Else
                     Findrc.Fields("EndTime") = Format(Trim(.Fields("WeighTime")), "yyyy-mm-dd hh:mm")
                End If
                Findrc.Fields("MNumber") = Null
                If .Fields("Result") = True Then
                    Findrc.Fields("NowStatus") = "已检斤"                                                '目前状态
                    Findrc.Fields("LimitMark") = 1
                Else
                    Findrc.Fields("NowStatus") = "检斤"
                    Findrc.Fields("LimitMark") = 0
                End If
                
                Findrc.Update
            
            Cw_DataEnvi.DataConnect.CommitTrans

            '将记录加入网格
            Sqlstr = "SELECT Tr_Weigh.*,Tr_NowAccount.VoucherId as VoucherId FROM Tr_Weigh left outer join Tr_NowAccount on Tr_Weigh.WeighId=Tr_NowAccount.ChildId where Tr_NowAccount.VoucherNum=1 and Tr_Weigh.WeighId='" & dbl_RecordAutoCode & "' order by Tr_Weigh.WeighTime"
            Set Cxnrrec = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
   
            With CzxsGrid
                .AddItem ""
                .RowHeight(.Rows - 1) = Sjhgd
                .Select .Rows - 1, Qslz
                Call Jltcwg(Cxnrrec, .Rows - 1)
            End With

            Tsxx = "保存完毕!"
            Call Xtxxts(Tsxx, 0, 4)
            
            Call Cshlrxx(1)
            LrText(0).SetFocus

            '将网格按编码排序
            With CzxsGrid
                .Col = Sydz("002", GridStr(), szzls)
                CzxsGrid.Sort = flexSortStringAscending
            End With
            '<<]
    
        Else  '否则为修改记录
            On Error GoTo Swcwcl
            Cw_DataEnvi.DataConnect.BeginTrans
            If .State = 1 Then .Close
            .Open "SELECT * FROM Tr_Weigh WHERE WeighId= '" & dbl_RecordAutoCode & "'", Cw_DataEnvi.DataConnect, adOpenDynamic, adLockOptimistic
     
            If Not .EOF Then
                If Trim(JiText(0).Text) <> "____-__-__ __:__" Then
                    .Fields("WeighTime") = Format(JiText(0).Text, "yyyy-mm-dd hh:mm")          '要求检斤时间
                Else
                    .Fields("WeighTime") = Null
                End If
                If Trim(JiText(1).Text) <> "____-__-__ __:__" Then
                    .Fields("WeighEndTime") = Format(JiText(1).Text, "yyyy-mm-dd hh:mm")       '检斤完毕时间
                Else
                    .Fields("WeighEndTime") = Null
                End If
                If Trim(LrText(1).Text) <> "" Then
                    .Fields("WeighMan") = Trim(LrText(1).Text & "")                            '检斤负责人
                Else
                    .Fields("WeighMan") = ""
                End If
                If Trim(JiText(1).Text) <> "____-__-__ __:__" Then                            '检斤状态
                    .Fields("Result") = 1
                Else
                    .Fields("Result") = 0
                End If
                .Fields("Quantity") = Val(Trim(LrText(2).Text & ""))
                .Update
            End If
            If Findrc.State = 1 Then Findrc.Close
                Findrc.Open "SELECT * FROM Tr_NowAccount where ChildId = '" & dbl_RecordAutoCode & "'and VoucherNum=1", Cw_DataEnvi.DataConnect, adOpenDynamic, adLockOptimistic
                If Not Findrc.EOF Then
    '                Findrc.Fields("VoucherNum") = 4
    '                Findrc.Fields("ChildId") = dbl_RecordAutoCode
    '                Findrc.Fields("VehicleNum") = Trim(.Fields("VehicleNum") & "")        '车号
                    If Not IsNull(.Fields("WeighTime")) Then
                         Findrc.Fields("BeginTime") = Format(Trim(.Fields("WeighTime")), "yyyy-mm-dd hh:mm")  '各状态要求时间
                    Else
                         Findrc.Fields("BeginTime") = Format(Trim(.Fields("WeighTime")), "yyyy-mm-dd hh:mm")
                    End If
                    If Not IsNull(.Fields("WeighEndTime")) Then
                         Findrc.Fields("EndTime") = Format(Trim(.Fields("WeighEndTime")), "yyyy-mm-dd hh:mm") '各状态完毕时间
                    Else
                         Findrc.Fields("EndTime") = Format(Trim(.Fields("WeighTime")), "yyyy-mm-dd hh:mm")
                    End If
                    Findrc.Fields("MNumber") = Null
                    If .Fields("Result") = True Then
                        Findrc.Fields("NowStatus") = "已检斤"                                                 '目前状态
                        Findrc.Fields("LimitMark") = 1
                    Else
                        Findrc.Fields("NowStatus") = "检斤"
                        Findrc.Fields("LimitMark") = 0
                    End If
                    
                    Findrc.Update