printsearchclient.dsr

需要控件：Active Report 2.0(专业报表控件破解版)2.0下的ardespro2.dll和arpro2.dll ARVIEW2.OCX等文件。即可打开源代码。

VERSION 5.00
Begin {9EB8768B-CDFA-44DF-8F3E-857A8405E1DB} PrintSearchClient 
   Caption         =   "打印输出"
   ClientHeight    =   11115
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   15240
   Icon            =   "PrintSearchClient.dsx":0000
   StartUpPosition =   3  '窗口缺省
   _ExtentX        =   26882
   _ExtentY        =   19606
   SectionData     =   "PrintSearchClient.dsx":038A
End
Attribute VB_Name = "PrintSearchClient"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Fix History
'2006.01.15   增加按世间检索数据出现误操作
'2006.01.18   增加打印分类明细查询

Option Explicit
Dim Cnn As New ADODB.Connection
Dim Rss As New ADODB.Recordset
Dim i_empID As String
          
Private Sub ActiveReport_FetchData(EOF As Boolean)
    If Not EOF Then
        '获取产品ID
        i_empID = DataControl1.Recordset!ProductID
    End If
End Sub

Private Sub ActiveReport_Initialize()
    Me.Toolbar.Tools.Add "退出(&E)"
    Me.Toolbar.Tools(Me.Toolbar.Tools.Count - 1).ID = 999
    'Me.Toolbar.Tools.Insert 2, "设置"
    'Me.Toolbar.Tools(3).ID = 888
    'Me.Toolbar.Tools(3).Type = 1
    Me.Toolbar.Tools(0).Visible = False
    Me.Toolbar.Tools(1).Visible = False
    Me.Toolbar.Tools(3).Visible = False
    Me.Toolbar.Tools(4).Visible = False
    Me.Printer.PaperHeight = 15876
    Me.Printer.PaperWidth = 11910
    Me.Printer.Orientation = ddOPortrait
End Sub

Private Sub ActiveReport_QueryClose(Cancel As Integer, CloseMode As Integer)
  On Error Resume Next
  Cnn.Close
  Rss.Close
End Sub

Private Sub ActiveReport_ReportEnd()
    Unload SubReport1.object
    Set Me.SubReport1.object = Nothing

End Sub

Private Sub ActiveReport_ReportStart()
   Dim sqlStr As String, s_Temp As String
   Dim FixOk As Integer, FixReject As Integer
   
   Cnn.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=SerManage"
   Cnn.Open
   Set Rss.ActiveConnection = Cnn
   Rss.CursorLocation = adUseClient

   Dim frmTemp As Form
   Dim bShow As Boolean
   bShow = False
    
   For Each frmTemp In Forms
       If frmTemp.Name = "FrmSearchClient" Then
          bShow = True
          Exit For
       End If
   Next

   If bShow Then
      sqlStr = "select * from Product where ClientName='" & FrmSearchClient.Combo1.Text & "'"
      Label17.Caption = "客户名称：" & FrmSearchClient.Combo1.Text
      s_Temp = "SELECT count(*) FROM Product where ClientName='" & FrmSearchClient.Combo1.Text & "'" & " group by ServiceResult"
      Rss.Open s_Temp, , adOpenStatic, adLockBatchOptimistic
      If Rss.RecordCount = 1 Then
        FixReject = Rss.Fields(0)
        FixOk = 0
      Else
        FixOk = Rss.Fields(0)
        Rss.MoveLast
        FixReject = Rss.Fields(0)
      End If
      Rss.Close
      Label23.Caption = "本次共退回:" & Trim(Str(FixOk + FixReject)) & "台, 报废:" & Trim(Str(FixOk)) & "台  修好:" & Trim(Str(FixReject)) & "台"
      
   Else   '日期
      sqlStr = "SELECT * FROM Product where format(ServiceDate,'yyyy-mm-dd') between #" & Format(FrmSearchDate.DTPicker1.Value, "yyyy-mm-dd") & "# and #" & Format(FrmSearchDate.DTPicker2.Value, "yyyy-mm-dd") & "#"
      Label17.Caption = "检索范围：" & FrmSearchDate.DTPicker1.Value & "至" & FrmSearchDate.DTPicker2.Value
      s_Temp = "SELECT count(*) FROM Product where format(ServiceDate,'yyyy-mm-dd') between #" & Format(FrmSearchDate.DTPicker1.Value, "yyyy-mm-dd") & "# and #" & Format(FrmSearchDate.DTPicker2.Value, "yyyy-mm-dd") & "#" & " group by ServiceResult"
      Rss.Open s_Temp, , adOpenStatic, adLockBatchOptimistic
      If Rss.RecordCount = 1 Then
        FixReject = Rss.Fields(0)
        FixOk = 0
      Else
        FixOk = Rss.Fields(0)
        Rss.MoveLast
        FixReject = Rss.Fields(0)
      End If
      Rss.Close
      Label23.Caption = "本次共退回:" & Trim(Str(FixOk + FixReject)) & "台, 报废:" & Trim(Str(FixOk)) & "台  修好:" & Trim(Str(FixReject)) & "台"
   End If
   Rss.Open sqlStr, , adOpenStatic, adLockBatchOptimistic
   Rss.ActiveConnection = Nothing
   DataControl1.Recordset = Rss
   Set Me.SubReport1.object = New rptProducts
End Sub

Private Sub ActiveReport_ToolbarClick(ByVal Tool As DDActiveReports2.DDTool)
    If Tool.ID <> 999 Then Exit Sub
    Unload Me
End Sub

Private Sub 细节_Format()
  Me.SubReport1.object.dc.Source = "Select * from PartsList where ProductID = '" & i_empID & "'"
  'Debug.Print Me.SubReport1.object.dc.Recordset.RecordCount
'  If Me.SubReport1.object.dc.Recordset.RecordCount = 0 Then
'     Me.SubReport1.Visible = False
'     Stop
'  Else
'     Me.SubReport1.Visible = True
'  End If
End Sub

Private Sub 页脚_Format()
   Label20.Caption = "第  " & Me.pageNumber & "页"
End Sub

Private Sub 页头_Format()
   Label16.Caption = "打印日期：" & Format(Date, "yyyy年mm月dd日")
End Sub