frmprint.frm

此为我2001年为东莞建发楦头开发的企业管理软件他们使用至今,望斑竹指教! 其他会员最好不要随意下载,需经斑竹同意或我本人同意,谢谢!

                     ARsp2print.Show 1
                Else
                     rs.Close
                     Set rs = Nothing
                     MsgBox "不能找到相应的记录!!!", vbCritical + vbOKOnly, MSG2
                     Me.MousePointer = 0
                     Exit Sub
                End If
            
        Case "大货生产单汇总表"
           If ChkType.value = 1 Then
            If cmbfang.Text = "全部" Then
                sqlcc2 = "SELECT fangxiang,s_name,sum(total_qty) as total from sp2total_view where sono=null or( din_date>=" & "'" & DTP1.value & "'" & " and din_date<=" & "'" & DTP2.value & "'" & sql & ") group by s_name,fangxiang  order by fangxiang,sum(total_qty) desc"
            Else
                sqlcc2 = "SELECT fangxiang,s_name,sum(total_qty) as total from sp2total_view where sono=null or( din_date>=" & "'" & DTP1.value & "'" & " and din_date<=" & "'" & DTP2.value & "'" & sql & ") group by s_name,fangxiang having fang='" & cmbfang.Text & "'" & " order by fangxiang,sum(total_qty) desc"
            End If
                ARsp12print.Caption = "大货生产单汇总报表"
                ARsp12print.lbltitle = "大货生产单汇总报表"
                'ARsp12print.Show 1'2002-08-24
                    Set rs = New Recordset
                    rs.Open sqlcc2, db, adOpenStatic, adLockOptimistic
                    If rs.RecordCount > 0 Then
                         rs.Close
                         Set rs = Nothing
                         ARsp12print.Show 1
                    Else
                         rs.Close
                         Set rs = Nothing
                         MsgBox "不能找到相应的记录!!!", vbCritical + vbOKOnly, MSG2
                         Me.MousePointer = 0
                         Exit Sub
                    End If
                
           Else
             If cmbfang.Text = "全部" Then
                 sqlcc2 = "SELECT s_name,sum(total_qty) as total from sp2total_view where sono=null or( din_date>=" & "'" & DTP1.value & "'" & " and din_date<=" & "'" & DTP2.value & "'" & sql & ") group by s_name  order by sum(total_qty) desc"
             Else
                 sqlcc2 = "SELECT s_name,sum(total_qty) as total from sp2total_view where fang='" & cmbfang.Text & "'" & " and (sono=null or( din_date>=" & "'" & DTP1.value & "'" & " and din_date<=" & "'" & DTP2.value & "'" & sql & ")) group by s_name  order by sum(total_qty) desc"
             End If
               ARsp11print.Caption = "大货生产单汇总报表"
               ARsp11print.lbltitle = "建发鞋楦厂---大货生产单汇总报表"
               'ARsp11print.Show 1
                Set rs = New Recordset
                rs.Open sqlcc2, db, adOpenStatic, adLockOptimistic
                If rs.RecordCount > 0 Then
                     rs.Close
                     Set rs = Nothing
                     ARsp11print.Show 1
                Else
                     rs.Close
                     Set rs = Nothing
                     MsgBox "不能找到相应的记录!!!", vbCritical + vbOKOnly, MSG2
                     Me.MousePointer = 0
                     Exit Sub
                End If
               
           End If
       End Select
    End Select
    
    Select Case PreportType
        Case "订单汇总"
           Call Pprint
        Case "客户月汇总"
           Call Ptotal
    End Select
    Me.MousePointer = 0
End Sub


Private Sub cmdsolocate_Click()
    Set pubfindtb = New Recordset
    pubfindtb.Open "select clino,s_name,post,tele from client order by clino", db, adOpenStatic, adLockOptimistic
    Call GenBrowse(Txtclient.Text, "客户", "sp1a")
    Call clientdisplay("client", Txtclient.Text, lblclient)
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyEscape Then Unload Me
End Sub

Private Sub Form_Load()
    DTP1.value = "1/1/2002"
    DTP2.value = Date
    
    cmbfang.AddItem "全部"
    cmbfang.Text = "全部"

    Select Case PCheck
        Case "sp1"
            Me.Caption = "订单[简]汇总表"
            Cmbtype.AddItem "样品"
            Cmbtype.AddItem "大货A"
            Cmbtype.AddItem "重做A"
            Cmbtype.AddItem "作废"
            Cmbtype.AddItem "全部"
            
            Cmbtype.Text = "全部"
        Case "sp2"
            Me.Caption = "订单[复]汇总表"
            Cmbtype.AddItem "全套"
            Cmbtype.AddItem "大货B"
            Cmbtype.AddItem "重做B"
            Cmbtype.AddItem "作废"
            Cmbtype.AddItem "全部"
            
            Cmbtype.Text = "全部"
    End Select
    
    Select Case PreportType
      Case "样品明细表", "大货明细表", "客户月汇总"
          fangxiang.Visible = False
          ChkType.Visible = False
      Case "样品汇总表", "大货汇总表"
     
          fangxiang.Visible = True
          ChkType.Visible = True
    End Select
'Define Recordset
    Dim clitb As Recordset
    Set clitb = New Recordset
'Init Client FangXiang
    cmbfang.Clear
    cmbfang.AddItem "全部"
    clitb.Open "select distinct fangxiang from fangxiang", db, adOpenStatic, adLockOptimistic
    For i = 1 To clitb.RecordCount
        cmbfang.AddItem clitb!fangxiang
        clitb.MoveNext
    Next
    cmbfang.ListIndex = 0
    clitb.Close
'Init Client Town
    cmbTown.Clear
    cmbTown.AddItem "全部"
    clitb.Open "select distinct town from scope", db, adOpenStatic, adLockOptimistic
    For i = 1 To clitb.RecordCount
        cmbTown.AddItem clitb!town
        clitb.MoveNext
    Next
    cmbTown.ListIndex = 0
    clitb.Close
'Init Client Type1
    cmbType1.Clear
    cmbType1.AddItem "全部"
    clitb.Open "select distinct type1 from type1", db, adOpenStatic, adLockOptimistic
    For i = 1 To clitb.RecordCount
        cmbType1.AddItem clitb!Type1
        clitb.MoveNext
    Next
    cmbType1.ListIndex = 0
    clitb.Close
'Init Client Type2
    cmbType2.Clear
    cmbType2.AddItem "全部"
    clitb.Open "select distinct type2 from type2", db, adOpenStatic, adLockOptimistic
    For i = 1 To clitb.RecordCount
        cmbType2.AddItem clitb!Type2
        clitb.MoveNext
    Next
    cmbType2.ListIndex = 0
    clitb.Close
'Init Client Type3
    cmbType3.Clear
    cmbType3.AddItem "全部"
    clitb.Open "select distinct type3 from type3", db, adOpenStatic, adLockOptimistic
    For i = 1 To clitb.RecordCount
        cmbType3.AddItem clitb!Type3
        clitb.MoveNext
    Next
    cmbType3.ListIndex = 0
    clitb.Close
'Set recordset free
    Set clitb = Nothing
    
    Me.Caption = PreportType
    
    If PreportType = "客户月汇总" Then
      Me.Caption = "生产单月汇总表"
    End If
    
    If PreportType = "订单汇总" Then
      Me.Caption = "生产单汇总表"
    End If

End Sub

Private Sub Pprint()
Me.MousePointer = 11
     db.Execute "delete  from dintemp "
     
     db.Execute " INSERT INTO dintemp (clino,sp1_qty,din_date) SELECT clino,total_qty,din_date FROM sp1_view where chflag=0 and din_date>=" & "'" & DTP1.value & "'" & " and din_date<=" & "'" & DTP2.value & "'" & sql
     db.Execute " INSERT INTO dintemp (clino,sp2_qty,din_date) SELECT clino,total_qty,din_date FROM sp2_view where chflag=0 and din_date>=" & "'" & DTP1.value & "'" & " and din_date<=" & "'" & DTP2.value & "'" & sql
     

     If ChkType.value = 1 Then
         If cmbfang.Text = "全部" Then
           sqlcc2 = "select fangxiang,s_name,sum(sp1_qty) as sp1qty,sum(sp2_qty) as sp2qty,sum(total) as totalsum from dintemp_view group by fangxiang,s_name order by fangxiang,sum(total) desc"
         Else
            sqlcc2 = "select fangxiang,s_name,sum(sp1_qty) as sp1qty,sum(sp2_qty) as sp2qty,sum(total) as totalsum from dintemp_view where fangxiang='" & cmbfang.Text & "'" & "group by fangxiang,s_name order by fangxiang,sum(total) desc"
         End If
         'ARsum2print.Show 1'2002-08-24
            Set rs = New Recordset
            rs.Open sqlcc2, db, adOpenStatic, adLockOptimistic
            If rs.RecordCount > 0 Then
                 rs.Close
                 Set rs = Nothing
                 ARsum2print.Show 1
            Else
                 rs.Close
                 Set rs = Nothing
                 MsgBox "不能找到相应的记录!!!", vbCritical + vbOKOnly, MSG2
                 Me.MousePointer = 0
                 Exit Sub
            End If
         
     Else
         If cmbfang.Text = "全部" Then
            sqlcc2 = "select s_name,sum(sp1_qty) as sp1qty,sum(sp2_qty) as sp2qty,sum(total) as totalsum from dintemp_view group by s_name order by sum(total) desc"
         Else
            sqlcc2 = "select s_name,sum(sp1_qty) as sp1qty,sum(sp2_qty) as sp2qty,sum(total) as totalsum from dintemp_view where fangxiang='" & cmbfang.Text & "'" & " group by s_name order by sum(total) desc"
         End If
         'ARsum1print.Show 1'2002-08-24
            Set rs = New Recordset
            rs.Open sqlcc2, db, adOpenStatic, adLockOptimistic
            If rs.RecordCount > 0 Then
                 rs.Close
                 Set rs = Nothing
                 ARsum1print.Show 1
            Else
                 rs.Close
                 Set rs = Nothing
                 MsgBox "不能找到相应的记录!!!", vbCritical + vbOKOnly, MSG2
                 Me.MousePointer = 0
                 Exit Sub
            End If
         
    End If
Me.MousePointer = 0
End Sub

Private Sub Ptotal()
Me.MousePointer = 11
       db.Execute "delete from dintemp "
       
       db.Execute " INSERT INTO dintemp (clino,sp1_qty,din_date) SELECT clino,total_qty,din_date FROM sp1_view where chflag=0 and din_date>=" & "'" & DTP1.value & "'" & " and din_date<=" & "'" & DTP2.value & "'" & sql
       db.Execute " INSERT INTO dintemp (clino,sp2_qty,din_date) SELECT clino,total_qty,din_date FROM sp2_view where chflag=0 and din_date>=" & "'" & DTP1.value & "'" & " and din_date<=" & "'" & DTP2.value & "'" & sql
       
       
       db.Execute "delete from dintotal "
       db.Execute " INSERT INTO dintotal(clino) SELECT clino FROM client "
       Set clitb = New Recordset
       clitb.Open "SELECT clino, s_name, month, sum(total) AS totalsum From dintemp_view GROUP BY clino, s_name, month", db, adOpenStatic, adLockOptimistic
       For i = 1 To clitb.RecordCount
           If IsNull(clitb!Month) = False Then
              Select Case clitb!Month
                  Case "01"
                     db.Execute " update dintotal set month01=month01+" & clitb!totalsum & " where clino=" & "'" & clitb!clino & "'"
                  Case "02"
                     db.Execute " update dintotal set month02=month02+" & clitb!totalsum & " where clino=" & "'" & clitb!clino & "'"
                  Case "03"
                     db.Execute " update dintotal set month03=month03+" & clitb!totalsum & " where clino=" & "'" & clitb!clino & "'"
                  Case "04"
                     db.Execute " update dintotal set month04=month04+" & clitb!totalsum & " where clino=" & "'" & clitb!clino & "'"
                  Case "05"
                     db.Execute " update dintotal set month05=month05+" & clitb!totalsum & " where clino=" & "'" & clitb!clino & "'"
                  Case "06"
                     db.Execute " update dintotal set month06=month06+" & clitb!totalsum & " where clino=" & "'" & clitb!clino & "'"
                  Case "07"
                     db.Execute " update dintotal set month07=month07+" & clitb!totalsum & " where clino=" & "'" & clitb!clino & "'"
                  Case "08"
                     db.Execute " update dintotal set month08=month08+" & clitb!totalsum & " where clino=" & "'" & clitb!clino & "'"
                  Case "09"
                     db.Execute " update dintotal set month09=month09+" & clitb!totalsum & " where clino=" & "'" & clitb!clino & "'"
                  Case "10"
                     db.Execute " update dintotal set month10=month10+" & clitb!totalsum & " where clino=" & "'" & clitb!clino & "'"
                  Case "11"
                     db.Execute " update dintotal set month11=month11+" & clitb!totalsum & " where clino=" & "'" & clitb!clino & "'"
                  Case "12"
                     db.Execute " update dintotal set month12=month12+" & clitb!totalsum & " where clino=" & "'" & clitb!clino & "'"
             End Select
           End If
           clitb.MoveNext
          Next
          
           If cmbfang.Text <> "全部" Then
               sqlcc2 = "select * from dintotal_view where fang='" & cmbfang.Text & "'" & " order by total desc"
           Else
               sqlcc2 = "select * from dintotal_view order by total desc"
          End If
          'ARsum3print.Show 1
            Set rs = New Recordset
            rs.Open sqlcc2, db, adOpenStatic, adLockOptimistic
            If rs.RecordCount > 0 Then
                 rs.Close
                 Set rs = Nothing
                 ARsum3print.Show 1
            Else
                 rs.Close
                 Set rs = Nothing
                 MsgBox "不能找到相应的记录!!!", vbCritical + vbOKOnly, MSG2
                 Me.MousePointer = 0
                 Exit Sub
            End If
Me.MousePointer = 0
End Sub

Private Sub Form_Resize()
'On Error Resume Next
'Me.Top = 0
'Me.Left = 50
End Sub