VB开发的ERP系统

Dim Wbbjsx() As Boolean              '(1-锁定某列使其不可编辑 2-是否提供帮助 3-是否列表框录入 4-字段不能为空控制)
Dim wgdmtemp_bb As String
Dim qslz_bb As Long
Dim Sjhgd_bb As Double
Dim Szzls_bb As Integer
Dim wgszxx_bb() As Variant              '整个网格设置信息
Dim wglxx_bb()  As String               '网格列其他信息
Dim Wblrxz_bb() As Integer              '文本框录入(事中)限制
Dim Wbbjsx_bb() As Boolean              '(1-锁定某列使其不可编辑 2-是否提供帮助 3-是否列表框录入 4-字段不能为空控制)

Private Sub Cxnrtcwg_bb()
    Dim Sqlstr As String
    Dim jsqte As Long
    Dim Cxnrrec As ADODB.Recordset
    '查询连接串
    vsFlexGrid2.Clear , flexClearData
    vsFlexGrid2.Rows = 1
    If vsFlexGrid1.Rows <= 1 Then
        Exit Sub
    End If
    Sqlstr = "select report_time,user_id,update_time,update_id from dzbb_bb where system_code='" _
    & Left(ls_xtbm, 2) & "' and  report_model_id='" _
    & Trim(vsFlexGrid1.TextMatrix(1, Sydz("001", wglxx(), Szzls))) _
    & "' order by system_code,report_model_id,report_time DESC"
    
    Set Cxnrrec = Cw_DataEnvi.dataconnect.Execute(Sqlstr)
    With Cxnrrec
        If .EOF And .BOF Then
            vsFlexGrid2.Clear , flexClearData
            vsFlexGrid2.Rows = vsFlexGrid1.FixedRows
            vsFlexGrid2.Redraw = True
            vsFlexGrid1.Select 1, 0
            
            Exit Sub
        Else
            vsFlexGrid2.Redraw = False
            vsFlexGrid2.Rows = .RecordCount + vsFlexGrid2.FixedRows
        End If
        jsqte = vsFlexGrid2.FixedRows
        Do While Not .EOF
            If jsqte >= vsFlexGrid2.Rows Then
                vsFlexGrid2.AddItem ""
            End If
            
            Call Jltcwg_bb(Cxnrrec, jsqte)
            
            vsFlexGrid2.RowHeight(jsqte) = Sjhgd
            .MoveNext
            jsqte = jsqte + 1
        Loop
    End With
    vsFlexGrid2.Redraw = True
    vsFlexGrid1.Select 1, 0
    
    Set Cxnrrec = Nothing
End Sub

Private Sub Cxnrtcwg()
    Dim Sqlstr As String
    Dim jsqte As Long
    Dim Cxnrrec As ADODB.Recordset
    '查询连接串
    vsFlexGrid1.Clear , flexClearData
    vsFlexGrid1.Rows = 1
    Sqlstr = "select report_model_id,report_model_name,user_id,canmakdate from dzbb_bbmb where system_code='" & Left(ls_xtbm, 2) & "' order by system_code,report_model_id"
    
    Set Cxnrrec = Cw_DataEnvi.dataconnect.Execute(Sqlstr)
    With Cxnrrec
        If .EOF And .BOF Then
            vsFlexGrid1.Clear , flexClearData
            vsFlexGrid1.Rows = vsFlexGrid1.FixedRows
            vsFlexGrid1.Redraw = True
            Exit Sub
        Else
            vsFlexGrid1.Redraw = False
            vsFlexGrid1.Clear , flexClearData
            vsFlexGrid1.Rows = .RecordCount + vsFlexGrid1.FixedRows
        End If
        jsqte = vsFlexGrid1.FixedRows
        Do While Not .EOF
            If jsqte >= vsFlexGrid1.Rows Then
                vsFlexGrid1.AddItem ""
            End If
            
            Call Jltcwg(Cxnrrec, jsqte)
            
            vsFlexGrid1.RowHeight(jsqte) = Sjhgd
            .MoveNext
            jsqte = jsqte + 1
        Loop
    End With
    vsFlexGrid1.Redraw = True
    Set Cxnrrec = Nothing
End Sub

Private Sub Jltcwg(Jlbrec As ADODB.Recordset, Rowjsq As Long)                                     '记录内容填充网格
    '[以下为自定义部分
    With Jlbrec
        
        vsFlexGrid1.TextMatrix(Rowjsq, Sydz("001", wglxx(), Szzls)) = Trim(.Fields("report_model_id"))
        vsFlexGrid1.TextMatrix(Rowjsq, Sydz("002", wglxx(), Szzls)) = Trim(.Fields("report_model_name"))
        vsFlexGrid1.TextMatrix(Rowjsq, Sydz("003", wglxx(), Szzls)) = Trim(.Fields("user_id"))
        vsFlexGrid1.TextMatrix(Rowjsq, Sydz("004", wglxx(), Szzls)) = Trim(.Fields("canmakdate"))
        
    End With
    '以上为自定义部分]
End Sub

Private Sub Jltcwg_bb(Jlbrec As ADODB.Recordset, Rowjsq As Long)                                     '记录内容填充网格
    '[以下为自定义部分
    With Jlbrec
        
        vsFlexGrid2.TextMatrix(Rowjsq, Sydz("001", wglxx_bb(), Szzls_bb)) = Trim(.Fields("report_time"))
        vsFlexGrid2.TextMatrix(Rowjsq, Sydz("002", wglxx_bb(), Szzls_bb)) = Trim(.Fields("user_id"))
        vsFlexGrid2.TextMatrix(Rowjsq, Sydz("003", wglxx_bb(), Szzls_bb)) = Trim(.Fields("update_time"))
        vsFlexGrid2.TextMatrix(Rowjsq, Sydz("004", wglxx_bb(), Szzls_bb)) = Trim(.Fields("update_id"))
        
    End With
    '以上为自定义部分]
End Sub


Private Sub Command1_Click()
    Dim lcmd_delete As ADODB.Command
    Dim ls_delete As String
    Dim ll_msg As Long
    If vsFlexGrid2.Rows = 1 Then
        Exit Sub
    End If
    ll_msg = MsgBox("确实要删除这张报表吗？", vbOKCancel + vbQuestion + vbDefaultButton2, "百利/ERP5.0-电子报表")
    If ll_msg = vbCancel Then Exit Sub
    Set lcmd_delete = New ADODB.Command
    ls_delete = "delete from dzbb_bb where system_code='" & Left(ls_xtbm, 2) _
    & "' and report_model_id='" & Trim(vsFlexGrid1.TextMatrix(vsFlexGrid1.Row, 0)) _
    & "' and report_time='" & Trim(vsFlexGrid2.TextMatrix(vsFlexGrid2.Row, 0)) & "'"
    lcmd_delete.ActiveConnection = Cw_DataEnvi.dataconnect
    lcmd_delete.CommandText = ls_delete
    lcmd_delete.Execute
    Set lcmd_delete = Nothing
    vsFlexGrid2.RemoveItem (vsFlexGrid2.Row)
End Sub

Private Sub command2_Click()
    MDI_frame.mb_open_report = False
    MDI_frame.StatusBar1.Panels(2).Text = "操作状态：正在等待用户选择操作"
    Unload Me
End Sub


Private Sub Command3_Click()
    Dim lcmd_delete As ADODB.Command
    Dim ls_delete As String
    Dim ll_msg As Long
    If vsFlexGrid2.Rows = 1 Then
        Exit Sub
    End If
    
    XT_calendar.Show vbModal, Me
    
    If Xtfhcs = "" Then Exit Sub
    
    ll_msg = MsgBox("您将删除系统" & Left(ls_xtbm, 2) & "的日期" & Left(Xtfhcs, 4) & "年" & Mid(Xtfhcs, 6, 2) & "月" & Right(Xtfhcs, 2) & "日之前的所有名称为“" & vsFlexGrid1.TextMatrix(vsFlexGrid1.Row, 1) & "”的报表，" & "确实要删除吗？", vbYesNo + vbQuestion + vbDefaultButton2, "百利/ERP5.0-电子报表")
    If ll_msg = vbNo Then
        Xtfhcs = Empty
        Exit Sub
    End If
    Set lcmd_delete = New ADODB.Command
    ls_delete = "delete from dzbb_bb where system_code='" & Left(ls_xtbm, 2) _
    & "' and report_model_id='" & vsFlexGrid1.TextMatrix(vsFlexGrid1.Row, 0) _
    & "' and report_time<='" & Xtfhcs & " 23:59:59" & "'"
    lcmd_delete.ActiveConnection = Cw_DataEnvi.dataconnect
    lcmd_delete.CommandText = ls_delete
    lcmd_delete.Execute
    Set lcmd_delete = Nothing
    Xtfhcs = Empty
    
    Cxnrtcwg_bb
    
End Sub

Private Sub Form_Load()
    Me.HelpContextID = "1015002"
    '调 入 网 格
    wgdmtemp = "dzbb_bbmb"
    
    Call BzWgcsh(vsFlexGrid1, wgdmtemp, wgszxx(), Wbbjsx(), Wblrxz(), wglxx())
    
    Qslz = wgszxx(1)
    Sjhgd = wgszxx(2)
    Szzls = vsFlexGrid1.Cols - 1
    
    '调入网格2
    wgdmtemp_bb = "dzbb_bb"
    Call BzWgcsh(vsFlexGrid2, wgdmtemp_bb, wgszxx_bb(), Wbbjsx_bb(), Wblrxz_bb(), wglxx_bb())
    qslz_bb = wgszxx_bb(1)
    Sjhgd_bb = wgszxx_bb(2)
    Szzls_bb = vsFlexGrid2.Cols - 1
    
    Call Cxnrtcwg
    Call vsFlexGrid1_SelChange
    MDI_frame.StatusBar1.Panels(2).Text = "操作状态：正在进行报表管理"
    
End Sub

Private Sub vsFlexGrid1_SelChange()
    Dim Sqlstr As String
    Dim jsqte As Long
    Dim Cxnrrec As ADODB.Recordset
    '查询连接串
    vsFlexGrid2.Clear , flexClearData
    vsFlexGrid2.Rows = 1
    If vsFlexGrid1.Rows <= 1 Then
        Exit Sub
    End If
    Label2.Caption = Trim(vsFlexGrid1.TextMatrix(vsFlexGrid1.Row, 0)) & "-" & Trim(vsFlexGrid1.TextMatrix(vsFlexGrid1.Row, 1))
    Sqlstr = "select report_time,user_id,update_time,update_id from dzbb_bb where system_code='" _
    & Left(ls_xtbm, 2) & "' and  report_model_id='" _
    & Trim(vsFlexGrid1.TextMatrix(vsFlexGrid1.Row, Sydz("001", wglxx(), Szzls))) _
    & "' order by system_code,report_model_id,report_time"
    
    Set Cxnrrec = Cw_DataEnvi.dataconnect.Execute(Sqlstr)
    With Cxnrrec
        If .EOF And .BOF Then
            Exit Sub
        Else
            vsFlexGrid2.Redraw = False
            vsFlexGrid2.Rows = .RecordCount + vsFlexGrid2.FixedRows
        End If
        jsqte = vsFlexGrid2.FixedRows
        Do While Not .EOF
            If jsqte >= vsFlexGrid2.Rows Then
                vsFlexGrid2.AddItem ""
            End If
            
            Call Jltcwg_bb(Cxnrrec, jsqte)
            
            vsFlexGrid2.RowHeight(jsqte) = Sjhgd
            .MoveNext
            jsqte = jsqte + 1
        Loop
    End With
    vsFlexGrid2.Redraw = True
    Set Cxnrrec = Nothing
End Sub