qg_baobiao.vb

本软件设计为在"采购部""工程部""财务部""总经理"等部门之间的采购审核流转等事宜

Imports CrystalDecisions.CrystalReports.Engine
Imports System.Data.sqlclient

Public Class qg_baobiao
    Inherits System.Windows.Forms.Form


#Region " Windows 窗体设计器生成的代码 "

    Public Sub New()
        MyBase.New()

        '该调用是 Windows 窗体设计器所必需的。
        InitializeComponent()

        '在 InitializeComponent() 调用之后添加任何初始化

    End Sub

    '窗体重写 dispose 以清理组件列表。
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Windows 窗体设计器所必需的
    Private components As System.ComponentModel.IContainer

    '注意: 以下过程是 Windows 窗体设计器所必需的
    '可以使用 Windows 窗体设计器修改此过程。
    '不要使用代码编辑器修改它。
    Friend WithEvents CrystalReportViewer1 As CrystalDecisions.Windows.Forms.CrystalReportViewer
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.CrystalReportViewer1 = New CrystalDecisions.Windows.Forms.CrystalReportViewer
        Me.SuspendLayout()
        '
        'CrystalReportViewer1
        '
        Me.CrystalReportViewer1.ActiveViewIndex = -1
        Me.CrystalReportViewer1.DisplayGroupTree = False
        Me.CrystalReportViewer1.Dock = System.Windows.Forms.DockStyle.Fill
        Me.CrystalReportViewer1.Location = New System.Drawing.Point(0, 0)
        Me.CrystalReportViewer1.Name = "CrystalReportViewer1"
        Me.CrystalReportViewer1.ReportSource = Nothing
        Me.CrystalReportViewer1.Size = New System.Drawing.Size(504, 382)
        Me.CrystalReportViewer1.TabIndex = 0
        '
        'qg_baobiao
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(504, 382)
        Me.Controls.Add(Me.CrystalReportViewer1)
        Me.Name = "qg_baobiao"
        Me.Text = "请购预览"
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub qg_baobiao_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        ' 建立一个内含连接信息的数据库连接对象
        Dim MyConnection As New SqlConnection '''("server=lirong;database=北风贸易;Trusted_Connection=yes")

        MyConnection = objSqlConnection '(这里用我的连接，没有问题，在这行字的上面是老的方法)

        ' 声明一个 SqlDataAdpater 型别的变数
        Dim MyCommand As SqlDataAdapter

        ' 建立数据集对象
        Dim ds As DataSet = New ds_qg_biaobao
        Dim str, str1 As String
        str = "SELECT * FROM qinggou_zongbiao where 请购单编号 = " + Chr(39) + baobiao_str + Chr(39)
        str1 = "SELECT * FROM qg_huowu_xiangxiqingkuang where 请购单编号 = " + Chr(39) + baobiao_str + Chr(39)

        ' 建立一个 SqlDataAdapter 对象
        MyCommand = New SqlDataAdapter(str, MyConnection)


        ' 连接到数据库、提取数据、然后中断数据库连接
        MyCommand.Fill(ds, "qinggou_zongbiao")


        ' 建立一个 SqlDataAdapter 对象
        MyCommand = New SqlDataAdapter(str1, MyConnection)


        ' 连接到数据库、提取数据、然后中断数据库连接
        MyCommand.Fill(ds, "qg_huowu_xiangxiqingkuang")


        ' 声明并建立一个报表对象
        Dim myReportDoc As New ReportDocument


        ' 载入报表
        myReportDoc.Load(Application.StartupPath & "\CrystalReport1.rpt")

        ' 将数据集 ds 传递给报表对象
        myReportDoc.SetDataSource(ds)

        ' 绑定报表查看器控件
        CrystalReportViewer1.ReportSource = myReportDoc
    End Sub
End Class