+

VB开发的ERP系统

        
                '设置文本框录入状态
                Call Sub_LrtextStatus(False)
            Case "20"   '新增单据(（录入）新增一张单据 、（列表）新增一张单据)
                '工具条
                .Buttons("dy").Enabled = False      '打印
                .Buttons("yl").Enabled = False      '预览
                .Buttons("xz").Enabled = False      '新增
                .Buttons("xg").Enabled = False      '修改
                .Buttons("sc").Enabled = False      '删除
                .Buttons("zh").Enabled = True       '增行
                .Buttons("sh").Enabled = True       '删行
                .Buttons("bc").Enabled = True       '保存
                .Buttons("fq").Enabled = True       '放弃
                .Buttons("shsh").Enabled = False    '审核
                .Buttons("shqs").Enabled = False    '弃审
                .Buttons("first").Enabled = False   '首张
                .Buttons("prev").Enabled = False    '上张
                .Buttons("next").Enabled = False    '下张
                .Buttons("last").Enabled = False    '末张
                .Buttons("bz").Enabled = True       '帮助
                .Buttons("fh").Enabled = True       '退出
                
                '设置文本框录入状态
                Call Sub_LrtextStatus(True)
            Case "30"   '修改(（录入）调入修改功能、（列表）调入修改功能)
                '工具条
                .Buttons("dy").Enabled = False      '打印
                .Buttons("yl").Enabled = False      '预览
                .Buttons("xz").Enabled = False      '新增
                .Buttons("xg").Enabled = False      '修改
                .Buttons("sc").Enabled = False      '删除
                .Buttons("zh").Enabled = True       '增行
                .Buttons("sh").Enabled = True       '删行
                .Buttons("bc").Enabled = True       '保存
                .Buttons("fq").Enabled = True       '放弃
                .Buttons("shsh").Enabled = False    '审核
                .Buttons("shqs").Enabled = False    '弃审
                .Buttons("first").Enabled = False   '首张
                .Buttons("prev").Enabled = False    '上张
                .Buttons("next").Enabled = False    '下张
                .Buttons("last").Enabled = False    '末张
                .Buttons("bz").Enabled = True       '帮助
                .Buttons("fh").Enabled = True       '退出
                
                '设置文本框录入状态
                Call Sub_LrtextStatus(True)

        End Select
    End With

End Sub

Private Sub Sub_LrtextStatus(TextEnabled As Boolean)                            '设置录入文本框状态

    '录入文本框状态设置
    If TextEnabled Then
        For jsqte = Max_Text_Index To 0 Step -1
            '判断文本框是否可编辑
            If Textboolean(jsqte, 5) Then
                LrText(jsqte).Enabled = True
            Else
                LrText(jsqte).Enabled = False
            End If
        Next jsqte
    Else
        For jsqte = Max_Text_Index To 0 Step -1
            LrText(jsqte).Enabled = False
        Next jsqte
    End If

End Sub


Private Sub Wbkcl()                                                 '文本框录入之前处理(根据实际情况)
    
    Dim xswbrr As String
    With WglrGrid
        Zdlrqnr = Trim(.Text)
        xswbrr = Trim(.Text)
        If GridBoolean(.Col, 3) Then   '列表框录入
            '填充列表框程序
            Call FillCombo(YdCombo, GridStr(.Col, 5), xswbrr, 0)
        Else
            Wbkbhlock = True
       
            '====以下为用户自定义
            Ydtext.Text = xswbrr
            '====以上为用户自定义
         
            Wbkbhlock = False
            Ydtext.SelStart = Len(Ydtext.Text)
        End If
    End With

End Sub

Private Function sjzdyxxpd(Dqpdwgh As Long, Dqpdwgl As Long) As Boolean       '录入数据字段有效性判断,同时进行字段录入事后处理
 
    '函数参数:Dqpdwgh, Dqpdwgl 当前要判断网格单元所处行列值

    Dim Str_JudgeText As String                 '临时有效性判断字段内容
    Dim Coljsq As Long                          '临时列计数器
    Dim RecTemp As New ADODB.Recordset          '临时使用动态集
    Dim Sqlstr As String                        '临时使用查询字符串

    With WglrGrid
        '非录入状态或非数据行则其有效性为合法
        If Yxxpdlock Or .Row < .FixedRows Then
            sjzdyxxpd = True
            Exit Function
        End If
        
        '取得当前要判断字段内容
        Str_JudgeText = Trim(.TextMatrix(Dqpdwgh, Dqpdwgl))
      
        '根据不同字段进行相应的处理(依据其逻辑编号)
        Select Case GridStr(Dqpdwgl, 1)
            '[>>以下为自定义部分
            Case "001"                  '部门编码
                If Not Trim(Str_JudgeText) = "" Then
                    '1.放置字段有效性判断
                    Sqlstr = "Select DeptCode , Deptname From Gy_Department Where  ( DeptCode='" & Trim(Str_JudgeText) & "' Or Deptname='" & Trim(Str_JudgeText) & "' ) And KfFlag=1 "
                    Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
                    If RecTemp.EOF Then
                        Tsxx = "无此部门编码!"
                        GoTo Lrcwcl
                    End If
                    
                    '2.放置字段事后处理程序
                    .TextMatrix(Dqpdwgh, Sydz("001", GridStr(), Szzls)) = Trim(RecTemp.Fields("Deptname") & "")           '显示存货编码
                    .TextMatrix(Dqpdwgh, Sydz("002", GridStr(), Szzls)) = Trim(RecTemp.Fields("DeptCode") & "")             '显示存货名称
                    
                Else
                    '3.清空相关字段
                    .TextMatrix(Dqpdwgh, Sydz("001", GridStr(), Szzls)) = ""                                             '存货名称
                    .TextMatrix(Dqpdwgh, Sydz("002", GridStr(), Szzls)) = ""                                             '存货规格型号

                End If
            
            Case "003"                   '产品编码
                If Not Trim(Str_JudgeText) = "" Then
                    '1.放置字段有效性判断
                    Sqlstr = "Select MNumber_Main,MName_Main,Model_Main,PrimaryUnitName_main ,StopFlag_Main , State  From MRP_V_BOMList Where MNumber_Main='" & Trim(Str_JudgeText) & "' And StopFlag_Main=0 And State=1 "
                    Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
                    If RecTemp.EOF Then
                        Tsxx = "无此产品编码!"
                        GoTo Lrcwcl
                    End If
                    
                    '2.放置字段事后处理程序
                    .TextMatrix(Dqpdwgh, Sydz("003", GridStr(), Szzls)) = Trim(RecTemp.Fields("MNumber_Main") & "")           '显示存货编码
                    .TextMatrix(Dqpdwgh, Sydz("004", GridStr(), Szzls)) = Trim(RecTemp.Fields("MName_Main") & "")             '显示存货名称
                    .TextMatrix(Dqpdwgh, Sydz("005", GridStr(), Szzls)) = Trim(RecTemp.Fields("Model_Main") & "")             '显示存货规格型号
                    .TextMatrix(Dqpdwgh, Sydz("006", GridStr(), Szzls)) = RecTemp.Fields("PrimaryUnitName_Main")              '单位
                    
                Else
                    '3.清空相关字段
                    .TextMatrix(Dqpdwgh, Sydz("003", GridStr(), Szzls)) = ""                                             '存货名称
                    .TextMatrix(Dqpdwgh, Sydz("004", GridStr(), Szzls)) = ""                                             '存货规格型号
                    .TextMatrix(Dqpdwgh, Sydz("005", GridStr(), Szzls)) = ""
                    .TextMatrix(Dqpdwgh, Sydz("006", GridStr(), Szzls)) = ""
                End If
            Case "007", "008"          '开始日期，结束日期
                    If Len(Str_JudgeText) <> 0 Then
                        If Not IsDate(Str_JudgeText) Then
                            Tsxx = "非法日期格式!"
                            GoTo Lrcwcl
                        End If
                        
                        If CDate(Format(Str_JudgeText, "yyyy-mm-dd")) <= CDate(Xtrq) Then
                            Tsxx = "计划日期不能小于等于当前系统日期!"
                            GoTo Lrcwcl
                        End If
                        .TextMatrix(Dqpdwgh, Sydz(GridStr(Dqpdwgl, 1), GridStr(), Szzls)) = Format(Str_JudgeText, "yyyy-mm-dd")
                    End If
                    
                    If Trim(.TextMatrix(Dqpdwgh, Sydz("007", GridStr(), Szzls))) <> "" And Trim(.TextMatrix(Dqpdwgh, Sydz("008", GridStr(), Szzls))) <> "" Then
                        Call Sub_JoinCount(Dqpdwgh, Sydz("009", GridStr(), Szzls))
                    End If

            Case "009"            '总产量
                '1.放置字段有效性判断
                If Str_JudgeText <> "" Then
                    If Not IsNumeric(Str_JudgeText) Then
                        Tsxx = "非法数字录入!"
                        GoTo Lrcwcl
                    End If
 
 
                    Call Sub_JoinCount(Dqpdwgh, Dqpdwgl)
                End If
                '2.放置字段事后处理程序
            Case "010"              '日产量
                '1.放置字段有效性判断
                If Str_JudgeText <> "" Then
                    If Not IsNumeric(Str_JudgeText) Then
                        Tsxx = "非法数字录入!"
                        GoTo Lrcwcl
                    End If
                    Call Sub_JoinCount(Dqpdwgh, Dqpdwgl)
                End If
               
                '2.放置字段事后处理程序
 
                '<<以上为自定义部分]
        End Select
        
        '字段录入正确后为零字段清空(Fixed)
        Call Qkwlzd(Dqpdwgh, Dqpdwgl)
     
        '字段录入正确后进行数据合计(Fixed)
        For Coljsq = Qslz To .Cols - 1
            Call Sjhj(Coljsq)
        Next Coljsq
     
        '字段有效性判断通过,将字段有效性判断加锁直至再次改变(Fixed)
        sjzdyxxpd = True
        Yxxpdlock = True
        Exit Function
    End With
  
Lrcwcl:    '录入错误处理
    With WglrGrid
  
        '给出错误提示信息
        Call Xtxxts(Tsxx, 0, 1)
          
        '返回网格错误位置(ChangeLock避免再次引发RowColChange有效性判断),装入录入载体
        Changelock = True
        .Select Dqpdwgh, Dqpdwgl
        Changelock = False
        Call xswbk
          
        '函数返回False
        sjzdyxxpd = False
        Exit Function
    End With

End Function



Private Sub Sub_JoinCount(Lng_CountRow As Long, Lng_CountCol As Long)       '当网格列值发生改变时,处理网格列之间的关联计算(可选)
  
  '过程参数:Lng_CountRow,Lng_CountCol 网格改变内容所处行列值
   Dim sTemp As String
    With WglrGrid
        Select Case GridStr(Lng_CountCol, 1)         '判断网格列对应逻辑编号
               
            '[>>以下为自定义部分
            Case "009"                               '总产量
                sTemp = Trim(.TextMatrix(Lng_CountRow, Lng_CountCol))
                '日产量=总产量/月天数
                If Fn_GetPeriodLen(Lng_CountRow) <> 0 Then
                    .TextMatrix(Lng_CountRow, Sydz("010", GridStr(), Szzls)) = Fun_ConvDec(NumberType, Val(sTemp) / Fn_GetPeriodLen(Lng_CountRow))
                Else
                    '.TextMatrix(Lng_CountRow, Sydz("010", GridStr(), Szzls)) = ""
                End If
            Case "010"                               '日产量
                sTemp = Trim(.TextMatrix(Lng_CountRow, Lng_CountCol))
                If Fn_GetPeriodLen(Lng_CountRow) <> 0 Then
                    .TextMatrix(Lng_CountRow, Sydz("009", GridStr(), Szzls)) = Fun_ConvDec(NumberType, Val(sTemp) * Fn_GetPeriodLen(Lng_CountRow))
                Else
                    '.TextMatrix(Lng_CountRow, Sydz("009", GridStr(), Szzls)) = ""
                End If
                
                
            
            '<<以上为自定义部分]
        End Select
    End With

End Sub


Private Function Sjhzyxxpd(ByVal Yxxpdh As Long) As Boolean                     '录入数据行有效性判断,同时进行行处理
 
    '函数参数:Yxxpdh 要进行有效性判断的网格数据行的行值

    Dim Lrywlz As Long                            '录入有误网格列值
    Dim RecTemp As New ADODB.Recordset            '临时使用动态集
    
    With WglrGrid
        '判断行为空(行中所有可编辑列数据均为空或为零)和无效数据行则清除当前行
        If .Rows <= .FixedRows Then Exit Function   ' 如果没有记录，则退出
        If .TextMatrix(Yxxpdh, 0) <> "*" Then
            Sjhzyxxpd = True
            Exit Function
        Else
            If pdhwk(Yxxpdh) And Yxxpdh + 1 <= .Rows - 1 Then
                '当要判断行处于网格末行时才允许删行,否则要进行有效性判断
                If .TextMatrix(Yxxpdh + 1, 0) <> "*" Then