| Option Explicit dim Report as New Cystal1 Private Sub Form_Load() Screen.MousePointer = vbHourglass ‘調(diào)用水晶報(bào)表時(shí)置鼠標(biāo)為沙漏狀 CRViewer91.ReportSource = Report ‘該語(yǔ)句的賦值將在后面被修改 CRViewer91.ViewReport Screen.MousePointer = vbDefault ‘調(diào)用水晶報(bào)表完成后置鼠標(biāo)為默認(rèn)形狀 End Sub Private Sub Form_Resize() CRViewer91.Top = 0 CRViewer91.Left = 0 CRViewer91.Height = ScaleHeight CRViewer91.Width = ScaleWidth End Sub |
| Public conn As New ADODB.Connection Public rs As New ADODB.Recordset |
| Private Sub Command1_Click() Dim connstr As String If conn.State = adStateOpen Then conn.Close connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "prtest.mdb;Persist Security Info=False" ‘prtest.mdb是程序當(dāng)前目錄的測(cè)試Access數(shù)據(jù)庫(kù) conn.ConnectionString = connstr conn.Open conn.CursorLocation = adUseClient If rs.State = adStateOpen Then rs.Close rs.Open "test", conn, adOpenKeyset, adLockReadOnly ‘ Report.Database.SetDataSource rs, 3, 1 Form2.Show 1 ‘?dāng)?shù)據(jù)庫(kù)連接完成后，調(diào)用Form2水晶報(bào)表工程 End Sub |
| Option Explicit ‘dim Report as New Cystal1 ‘上面一行取消 Private Sub Form_Load() Dim oApp As New CRAXDRT.Application Dim oRpt As CRAXDRT.Report Dim reportName As String ‘上面三行是新增加的 Screen.MousePointer = vbHourglass reportName = "rptPr1.rpt" ‘定義要引用的rpt文件 Set oRpt = oApp.OpenReport(App.Path & reportName, 1) oRpt.Database.SetDataSource rs ‘連接水晶報(bào)表和數(shù)據(jù)源 oRpt.ReadRecords CRViewer91.ReportSource = oRpt ‘啟用水晶報(bào)表的預(yù)覽功能 CRViewer91.ViewReport Screen.MousePointer = vbDefault End Sub Private Sub Form_Resize() CRViewer91.Top = 0 CRViewer91.Left = 0 CRViewer91.Height = ScaleHeight CRViewer91.Width = ScaleWidth End Sub Private Sub Form_Unload(Cancel As Integer) ‘Set Report = Nothing Set rs = Nothing Set conn = Nothing Unload Form2 End Sub |
聯(lián)系客服
