i-

VB开发的ERP系统

End Sub

Private Sub Form_Load()                                                   '窗体装入
  
    '调入打印页面设置窗体
    ReportTitle = "库存对帐表"
    XtReportCode = "KF_Collate"
    Load Dyymctbl
      
    '调整标题栏及网格、格式工具条位置(Fixed)
    Pic_Title.Left = 40
    Pic_Title.Top = SzToolbar.Top + SzToolbar.Height - 10
    CxbbGrid.Left = Pic_Title.Left
    CxbbGrid.Top = Pic_Title.Top + Pic_Title.Height + 20
     
    '调 入 网 格(Fixed)
    GridCode = "KF_Collate"
    Call BzWgcsh(CxbbGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
      
    Qslz = GridInf(1)
    Sjhgd = GridInf(2)
    Sfxshjwg = GridInf(7)
    Szzls = CxbbGrid.Cols - 1
    
    

End Sub

Private Sub Form_Unload(Cancel As Integer)                                  '窗体卸载

    '卸载条件窗体
    KF_FrmCollateCxtj.UnloadCheck.Value = 1
    Unload KF_FrmCollateCxtj
    '卸载打印页面设置窗体
    Unload Dyymctbl

End Sub

Private Sub CxbbGrid_BeforeMoveColumn(ByVal Col As Long, Position As Long)           '网格列发生移动时自动交换网格索引信息
    Call FnBln_RefreshArray(Col, Position, GridStr(), GridInf())
End Sub

Private Sub GsToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)                '网格格式调整(Fixed)
  
    Select Case Button.Key
        Case "bcgs"                                          '保存表格格式
            Call Bcwggs(CxbbGrid, GridCode, GridStr())
        Case "hfmrgs"                                        '恢复默认格式
            Call Hfmrgs(CxbbGrid, GridCode, GridStr())
        Case "szxsxm"                                        '设置显示项目
            Call Szxsxm(CxbbGrid, GridCode)
    End Select

End Sub

Private Sub SzToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
    
    Select Case Button.Key
        Case "ymsz"                                          '页面设置
            Dyymctbl.Show 1
        Case "yl"                                            '预 览
            Call bbyl(True)
        Case "dy"                                            '打 印
            Call bbyl(False)
        Case "cx"                                            '查 询
            KF_FrmCollateCxtj.Show 1
        Case "first"
            Call First
        Case "last"
            Call Last
        Case "prev"
            Call Prev
        Case "next"
            Call Sub_next
        Case "bz"                                            '帮 助
            Call F1bz
        Case "fh"                                            '退 出
           Unload Me
    End Select

End Sub

Private Sub Timer1_Timer()                                 '在窗体激活后调入查询程序
    
    Timer1.Enabled = False
    Xt_Wait.Show
    Xt_Wait.Refresh
   
    '加快显示速度
    CxbbGrid.Redraw = False
 
    '生成查询结果
    Call Sub_Query(0)
   
    CxbbGrid.Redraw = True
    
    Xt_Wait.Hide

End Sub

Private Sub First()

    If adoMate.State = 1 Then
        If adoMate.RecordCount > 0 Then
            adoMate.MoveFirst
            intNowRec = 1
            SzToolbar.Buttons("first").Enabled = False
            SzToolbar.Buttons("prev").Enabled = False
            SzToolbar.Buttons("next").Enabled = True
            SzToolbar.Buttons("last").Enabled = True
            Call Show_Tab(Trim(adoMate.Fields("whcode")))
        End If
    End If
End Sub
Private Sub Last()
    If adoMate.State = 1 Then
        If adoMate.RecordCount > 0 Then
            adoMate.MoveLast
            intNowRec = conRecNum
            SzToolbar.Buttons("next").Enabled = False
            SzToolbar.Buttons("last").Enabled = False
            SzToolbar.Buttons("first").Enabled = True
            SzToolbar.Buttons("prev").Enabled = True
            Call Show_Tab(Trim(adoMate.Fields("whcode")))
        End If
    End If
End Sub
Private Sub Prev()
    If adoMate.State = 1 Then
        SzToolbar.Buttons("next").Enabled = True
        SzToolbar.Buttons("last").Enabled = True
        If adoMate.RecordCount > 0 Then
            intNowRec = intNowRec - 1
            If adoMate.EOF Then
                adoMate.MovePrevious
            End If
            If Not adoMate.BOF Then
                adoMate.MovePrevious
                If Not adoMate.BOF Then
                    Call Show_Tab(Trim(adoMate.Fields("whcode")))
                End If
            End If
            If adoMate.BOF Then
                SzToolbar.Buttons("first").Enabled = False
                SzToolbar.Buttons("prev").Enabled = False
            End If
            
        End If
    End If
End Sub
Private Sub Sub_next()
    If adoMate.State = 1 Then
        If adoMate.RecordCount > 0 Then
            SzToolbar.Buttons("first").Enabled = True
            SzToolbar.Buttons("prev").Enabled = True
            intNowRec = intNowRec + 1
            If adoMate.BOF Then
                adoMate.MoveNext
            End If
            If Not adoMate.EOF Then
                adoMate.MoveNext
                If Not adoMate.EOF Then
                    Call Show_Tab(Trim(adoMate.Fields("whcode")))
                End If
            End If
            If adoMate.EOF Then
                SzToolbar.Buttons("next").Enabled = False
                SzToolbar.Buttons("last").Enabled = False
            End If
        End If
    End If

End Sub

Private Sub Sub_Query(Int_QueryType As Integer)                                     '生成查询结果(Define)
    
   Dim Sqlstr1 As String                        '查询字符串
   Dim Sqlstr2 As String
   Dim Sqlstr As String
   Dim Coljsq As Long                          '网格列计数器
   Dim jsqte As Long                        '临时动态计数器
   Dim adoPeriod As New ADODB.Recordset

   
 '以下为用户自定义部分[

 With KF_FrmCollateCxtj
     
     '显示查询会计期间
     Kjyear = Val(Mid(Trim(.Combo_Kjqj1.Text), 1, 4))
     Period = Val(Mid(Trim(.Combo_Kjqj1.Text), 6))
     If .LrText(0).Text <> "" Then
        Call Show_Tab(Trim(.LrText(0).Tag))
        SzToolbar.Buttons("first").Enabled = False
        SzToolbar.Buttons("prev").Enabled = False
        SzToolbar.Buttons("next").Enabled = False
        SzToolbar.Buttons("last").Enabled = False
     Else
        Sqlstr = "SELECT distinct a.whcode,(select whname from gy_warehouse where a.whcode=gy_warehouse.whcode)as whname " & _
                    "FROM (select mnumber,whcode,sum(startquan)as startquan,sum(inquan)as inquan,sum(outquan)as outquan from  Chhs_Mate where kjyear=" & Kjyear & " and period=" & Period & "  group by mnumber,whcode)a FULL OUTER JOIN " & _
                    "(select mnumber,whcode,sum(startquan)as startquan,sum(receiptquan)as inquan,sum(issuequan)as outquan from KF_MateLedger where kjyear=" & Kjyear & " and period=" & Period & "  group by mnumber,whcode)b ON " & _
                    "a.MNumber = b.MNumber Where (IsNull(a.StartQuan, 0) + IsNull(a.inquan, 0) - IsNull(a.outquan, 0)) <> (IsNull(b.StartQuan, 0) + IsNull(b.inquan, 0) - IsNull(b.outquan, 0))"
        Set adoMate = Cw_DataEnvi.DataConnect.Execute(Sqlstr)

        If Not adoMate.EOF Then
            adoMate.MoveFirst
            Call Show_Tab(Trim(adoMate.Fields("whcode")) & "")
        End If
        SzToolbar.Buttons("first").Enabled = True
        SzToolbar.Buttons("prev").Enabled = True
        SzToolbar.Buttons("next").Enabled = True
        SzToolbar.Buttons("last").Enabled = True
     End If
     
     
     
 End With

End Sub

Private Sub Show_Tab(StrTemp As String)
Dim StrQC As String
Dim adoStart As New ADODB.Recordset
Dim InCount As Double
Dim OutCount As Double
Dim StrBill As String

If KF_FrmCollateCxtj.LrText(0).Text <> "" Then
    Label1 = "仓库:   " & Trim(KF_FrmCollateCxtj.LrText(0).Tag) & "--" & Trim(KF_FrmCollateCxtj.LrText(0).Text)
Else
    Label1 = "仓库:   " & Trim(StrTemp) & "--" & Trim(adoMate.Fields("whname"))
End If
Label2.Caption = "会计期间:" & Trim(KF_FrmCollateCxtj.Combo_Kjqj1.Text)
    
  StrBill = "SELECT a.MNumber,(select mname from gy_material where a.mnumber=gy_material.mnumber) as mname, " & _
            "ISNULL(a.StartQuan,0) as StartQuan1,isnull(a.inquan,0) as inquan1,isnull(a.outquan,0) as outquan1, " & _
            "ISNULL(b.StartQuan,0) AS StartQuan2,isnull(b.inquan,0) as inquan2,isnull(b.outquan,0) as outquan2 " & _
            "FROM (select mnumber,whcode,sum(startquan)as startquan,sum(inquan)as inquan,sum(outquan)as outquan from  Chhs_Mate where kjyear=" & Kjyear & " and period=" & Period & " and whcode='" & Trim(StrTemp) & "' group by mnumber,whcode)a FULL OUTER JOIN " & _
            "(select mnumber,whcode,sum(startquan)as startquan,sum(receiptquan)as inquan,sum(issuequan)as outquan from KF_MateLedger where kjyear=" & Kjyear & " and period=" & Period & " and whcode='" & Trim(StrTemp) & "' group by mnumber,whcode)b ON " & _
            "a.MNumber = b.MNumber Where (ISNULL(a.StartQuan, 0) + ISNULL(a.inquan, 0) - ISNULL(a.outquan, 0)) <> (ISNULL(b.StartQuan, 0) + ISNULL(b.inquan, 0) - ISNULL(b.outquan, 0))"

 Set adoQuery = Cw_DataEnvi.DataConnect.Execute(StrBill)
 
 With adoQuery
    CxbbGrid.Rows = CxbbGrid.FixedRows
    jsqte = CxbbGrid.FixedRows
   Do While Not .EOF
  
     If jsqte >= CxbbGrid.Rows Then
     End If
        CxbbGrid.AddItem ""
      
     If IsNull(.Fields("MNumber")) Then
        CxbbGrid.TextMatrix(jsqte, Sydz("001", GridStr(), Szzls)) = ""                                      '物料编码
     Else
        CxbbGrid.TextMatrix(jsqte, Sydz("001", GridStr(), Szzls)) = Trim(.Fields("MNumber") & "") & "-" & Trim(.Fields("mname") & "")
     End If
    
     If Val(.Fields("StartQuan1") & "") <> 0 Then
        CxbbGrid.TextMatrix(jsqte, Sydz("002", GridStr(), Szzls)) = Val(.Fields("StartQuan1") & "")         '期初数据
     End If
     If Val(.Fields("inquan1") & "") <> 0 Then
         CxbbGrid.TextMatrix(jsqte, Sydz("003", GridStr(), Szzls)) = Val(.Fields("inquan1") & "")           '收入数据
     End If
     If Val(.Fields("outquan1") & "") <> 0 Then
         CxbbGrid.TextMatrix(jsqte, Sydz("004", GridStr(), Szzls)) = Val(.Fields("outquan1") & "")          '发出数据
     End If
     If Val(.Fields("StartQuan1") & "") + Val(.Fields("inquan1") & "") - Val(.Fields("outquan1") & "") <> 0 Then
        CxbbGrid.TextMatrix(jsqte, Sydz("005", GridStr(), Szzls)) = Val(.Fields("StartQuan1") & "") + Val(.Fields("inquan1") & "") - Val(.Fields("outquan1") & "")
     End If                                                                                                 '结存数据
     
     If Val(.Fields("StartQuan2") & "") <> 0 Then
         CxbbGrid.TextMatrix(jsqte, Sydz("007", GridStr(), Szzls)) = Val(.Fields("StartQuan2") & "")        '期初数据
     End If
     If Val(.Fields("inquan2") & "") <> 0 Then
         CxbbGrid.TextMatrix(jsqte, Sydz("008", GridStr(), Szzls)) = Val(.Fields("inquan2") & "")           '收入数据
     End If
     If Val(.Fields("outquan2") & "") <> 0 Then
         CxbbGrid.TextMatrix(jsqte, Sydz("009", GridStr(), Szzls)) = Val(.Fields("outquan2") & "")          '发出数据
     End If
     If Val(.Fields("StartQuan2") & "") + Val(.Fields("inquan2") & "") - Val(.Fields("outquan2") & "") <> 0 Then
        CxbbGrid.TextMatrix(jsqte, Sydz("010", GridStr(), Szzls)) = Val(.Fields("StartQuan2") & "") + Val(.Fields("inquan2") & "") - Val(.Fields("outquan2") & "")
     End If                                                                                                 '结存数据
     
     
     CxbbGrid.RowHeight(jsqte) = Sjhgd
     
     jsqte = jsqte + 1
    .MoveNext
   Loop

 End With
 ']以上为用户自定义部分
End Sub

Private Sub bbyl(bbylte As Boolean)                    '报表打印预览
    
    Dim Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer
    Dim Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer
    Bbxbtgs = 2                                          '报 表 小 标 题 行 数
    Bbbwhgs = 0                                          '报 表 表 尾 行 数
    ReDim Bbxbt(1 To Bbxbtgs)
    ReDim bbxbtzzxs(1 To Bbxbtgs)
    If Bbbwhgs <> 0 Then
        ReDim Bbbwh(1 To Bbbwhgs)
        ReDim Bbbwhzzxs(1 To Bbbwhgs)
    End If
    Bbzbt = ReportTitle
    Bbxbt(1) = Space(5) + Fun_FormatOutPut(Trim(Label1), 30)
    Bbxbt(1) = Bbxbt(1) + Fun_FormatOutPut(Trim(Label2), 30)
    Bbxbt(2) = Space(5) + Fun_FormatOutPut(Trim(Label3), 30)
    Bbxbt(2) = Bbxbt(2) + Fun_FormatOutPut(Trim(Label4), 30)
    Bbxbt(2) = Bbxbt(2) + Fun_FormatOutPut(Trim(Label5), 30)
    
    bbxbtzzxs(1) = 0                                     '报表行组织形式(0-居左 1-居中 2-居右)
    Call Scyxsjb(CxbbGrid)                               '生成报表数据
    Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, bbylte)
    If Not bbylte Then
        Unload DY_Tybbyldy
    End If

End Sub