printsearchid.dsr

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

VERSION 5.00
Begin {9EB8768B-CDFA-44DF-8F3E-857A8405E1DB} PrintSearchID 
   Caption         =   "打印输出"
   ClientHeight    =   8595
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   11880
   Icon            =   "PrintSearchID.dsx":0000
   StartUpPosition =   3  '窗口缺省
   _ExtentX        =   20955
   _ExtentY        =   15161
   SectionData     =   "PrintSearchID.dsx":038A
End
Attribute VB_Name = "PrintSearchID"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim Cnn As New ADODB.Connection
Dim Rss As New ADODB.Recordset
          
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
    
    Cnn.Open "dsn=SerManage"
    Set Rss = New ADODB.Recordset

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_ReportStart()
    With Rss
        .CursorType = adOpenKeyset
        .LockType = adLockOptimistic
        .Source = "select * from Product where ProductID='" & FrmSearchID.Text1.Text & "'"
        .ActiveConnection = Cnn
        .Open
    End With
    Field1.Text = Rss.Fields(0)
    Field2.Text = Rss.Fields(2)
    Field3.Text = Rss.Fields(3)
    
    Field4.Text = Format(Rss.Fields(5), "yyyy年mm月dd日")
    Field5.Text = Rss.Fields(4)
    Field6.Text = Format(Rss.Fields(6), "yyyy年mm月dd日")
    
    Field7.Text = Format(Rss.Fields(7), "yyyy年mm月dd日")
    Field8.Text = Rss.Fields(8)
    Field9.Text = Rss.Fields(10)
    Field10.Text = Rss.Fields(9)
    Rss.Close
    
   Cnn.Close
   Cnn.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=SerManage"
   Cnn.Open
   Set Rss.ActiveConnection = Cnn
   Rss.CursorLocation = adUseClient
   Rss.Open "select * from PartsList where ProductID='" & FrmSearchID.Text1.Text & "'", , adOpenStatic, adLockBatchOptimistic
   Rss.ActiveConnection = Nothing
   DataControl1.Recordset = Rss
   Label16.Caption = "打印日期：" & Format(Date, "yyyy年mm月dd日")
End Sub

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