VB程序打印水晶報表的典型方法1

2024-07-21 02:24:54

字體：大中小

供稿：網(wǎng)友

描述:

本文介紹流行的一種vb程序打印水晶報表的方法,具有比較好的擴展性.

環(huán)境:

   ms sql server 2000 / vb6 / crystal report8.5

步驟

1: 建立odbc連接

2: 創(chuàng)建一個為crystal report檢索數(shù)據(jù)的過程(procedure)

舉例: (通過日期查詢總額)

   if exists (select * from sysobjects where name = 'usp_testfjs')

          drop proc usp_testfjs

   go

   create proc usp_testfjs

            @strdate varchar(20)

   as

        select sum(tot_amt) as total_amount

        from trans_header

        where convert(varchar(10),bus_dt,120) = @strdate

   go

3. 創(chuàng)建使用procedure的crystal 報表

   步驟和創(chuàng)建一般報表相同,但是注意在選擇數(shù)據(jù)源時,把options中的stored procedures勾上



4. 創(chuàng)建vb程序

   注意加入一個水晶報表控件(crystal report control)

   一段最簡單的程序:

   例如:

   private sub command1_click()

        dim iret as integer

        crystalreport1.reset /*reset data*/

crystalreport1.reportfilename = app.path + "/totalamount.rpt"

/*link the crystal report control with actual rpt file */

        crystalreport1.storedprocparam(0)= format(trim$(dtpicker1.value), "yyyy-mm-dd")

/*assign the parameter*/

        crystalreport1.windowstate = crptmaximized

        crystalreport1.windowtitle = "hello"

        iret = crystalreport1.printreport

/*retrieve the data and display the printpreview screen */

總結(jié):

   這個方法實現(xiàn)了水晶報表和vb程序的獨立性,用戶對于報表格式的改變將被局限于水晶報表的修改范圍中. 建議大家采用這種方法.

上一篇：二進制連接函數(shù)VB&#083;CRIPT

下一篇：VB程序打印水晶報表的典型方法2