crystalclass.cls

来自「一个关于电脑管理汽车的软件」· CLS 代码 · 共 268 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "CrystalClass"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit


Public Sub DispalyStockReport(ByVal VarKey As String, ByVal BaseNum As Integer)
 Dim crystal As CRAXDRT.Application
 Dim report As CRAXDRT.report
 Dim TempSQL As String
 Dim adodbRS As ADODB.Recordset
 Dim adodbRS2 As ADODB.Recordset

 Set adodbRS = New ADODB.Recordset
 Set adodbRS2 = New ADODB.Recordset
 TempSQL = VarInitData.DisplaySQLVal(BaseNum) & " Where billnum = " & Quote(VarKey)
 adodbRS.Open TempSQL, oCnn.ConnectionString, adOpenStatic, adLockReadOnly
 TempSQL = VarInitData.DisplaySQLVal(BaseNum + 1) & " Where billnum = " & Quote(VarKey)
 adodbRS2.Open TempSQL, oCnn, adOpenStatic, adLockReadOnly
 Set crystal = New CRAXDRT.Application
 Set report = crystal.OpenReport(App.Path & "\RPT\stock2.rpt")
 report.DiscardSavedData
 
 report.ParameterFields.GetItemByName("pcompanyname").AddCurrentValue GUserRef(1)
 report.ParameterFields.GetItemByName("pcompanyaddress").AddCurrentValue GUserRef(2)
 report.ParameterFields.GetItemByName("pphone").AddCurrentValue GUserRef(3)
 
 report.Database.SetDataSource adodbRS, , 1
 report.Database.SetDataSource adodbRS2, , 2
 ViewReport.Show , frmMain
 ViewReport.CRViewer91.ReportSource = report
 ViewReport.CRViewer91.EnableGroupTree = False
 ViewReport.CRViewer91.EnableRefreshButton = False
 ViewReport.CRViewer91.EnableExportButton = True
 ViewReport.CRViewer91.ViewReport
End Sub
Public Sub DispalyStoreReport()
 Dim crystal As CRAXDRT.Application
 Dim report As CRAXDRT.report
 Dim TempSQL As String
 Dim adodbRS As ADODB.Recordset

 Set adodbRS = New ADODB.Recordset
 TempSQL = VarInitData.DisplaySQLVal(10) '& " Where billnum = " & Quote(VarKey)
 adodbRS.Open TempSQL, oCnn.ConnectionString, adOpenStatic, adLockReadOnly
 Set crystal = New CRAXDRT.Application
 Set report = crystal.OpenReport(App.Path & "\RPT\store.rpt")
 report.DiscardSavedData
 report.Database.SetDataSource adodbRS
 ViewReport.Show , frmMain
 ViewReport.CRViewer91.ReportSource = report
 ViewReport.CRViewer91.ViewReport
End Sub
Public Sub DispalyStoreDealReport(ByVal VarKey As String, ByVal BaseNum As Integer)
 Dim crystal As CRAXDRT.Application
 Dim report As CRAXDRT.report
 Dim TempSQL As String
 Dim adodbRS As ADODB.Recordset
 Dim adodbRS2 As ADODB.Recordset

 Set adodbRS = New ADODB.Recordset
 Set adodbRS2 = New ADODB.Recordset
 TempSQL = VarInitData.DisplaySQLVal(BaseNum) & " Where billnum = " & Quote(VarKey)
 adodbRS.Open TempSQL, oCnn.ConnectionString, adOpenStatic, adLockReadOnly
 TempSQL = VarInitData.DisplaySQLVal(BaseNum + 1) & " Where billnum = " & Quote(VarKey)
 adodbRS2.Open TempSQL, oCnn, adOpenStatic, adLockReadOnly
 Set crystal = New CRAXDRT.Application
 Set report = crystal.OpenReport(App.Path & "\RPT\storedeal.rpt")
 report.DiscardSavedData
 report.Database.SetDataSource adodbRS, , 1
 report.Database.SetDataSource adodbRS2, , 2
 ViewReport.Show , frmMain
 ViewReport.CRViewer91.ReportSource = report
 ViewReport.CRViewer91.ViewReport
End Sub
Public Sub DispalySellReport(ByVal VarKey As String, ByVal BaseNum As Integer)
 Dim crystal As CRAXDRT.Application
 Dim report As CRAXDRT.report
 Dim TempSQL As String
 Dim adodbRS As ADODB.Recordset
 Dim adodbRS2 As ADODB.Recordset

 Set adodbRS = New ADODB.Recordset
 Set adodbRS2 = New ADODB.Recordset
 TempSQL = VarInitData.DisplaySQLVal(BaseNum) & " Where billnum = " & Quote(VarKey)
 adodbRS.Open TempSQL, oCnn.ConnectionString, adOpenStatic, adLockReadOnly
 TempSQL = VarInitData.DisplaySQLVal(BaseNum + 1) & " Where billnum = " & Quote(VarKey)
 adodbRS2.Open TempSQL, oCnn, adOpenStatic, adLockReadOnly
 Set crystal = New CRAXDRT.Application
 Set report = crystal.OpenReport(App.Path & "\RPT\sell.rpt")
 report.DiscardSavedData
 report.Database.SetDataSource adodbRS, , 2
 report.Database.SetDataSource adodbRS2, , 1
 ViewReport.Show , frmMain
 ViewReport.CRViewer91.ReportSource = report
 ViewReport.CRViewer91.ViewReport
End Sub
Public Sub DispalyQuoteReport(ByVal VarKey As String, ByVal BaseNum As Integer)
 Dim crystal As CRAXDRT.Application
 Dim report As CRAXDRT.report
 Dim TempSQL As String
 Dim adodbRS As ADODB.Recordset
 Dim adodbRS2 As ADODB.Recordset

 Set adodbRS = New ADODB.Recordset
 Set adodbRS2 = New ADODB.Recordset
 TempSQL = VarInitData.DisplaySQLVal(BaseNum) & " Where billnum = " & Quote(VarKey)
 adodbRS.Open TempSQL, oCnn.ConnectionString, adOpenStatic, adLockReadOnly
 TempSQL = VarInitData.DisplaySQLVal(BaseNum + 1) & " Where billnum = " & Quote(VarKey)
 adodbRS2.Open TempSQL, oCnn, adOpenStatic, adLockReadOnly
 Set crystal = New CRAXDRT.Application
 Set report = crystal.OpenReport(App.Path & "\RPT\quotebill.rpt")
 report.DiscardSavedData
 report.Database.SetDataSource adodbRS, , 2
 report.Database.SetDataSource adodbRS2, , 1
 ViewReport.Show , frmMain
 ViewReport.CRViewer91.ReportSource = report
 ViewReport.CRViewer91.ViewReport
End Sub
Public Sub DispalyMaintainSetReport()
 Dim crystal As CRAXDRT.Application
 Dim report As CRAXDRT.report
 Dim TempSQL As String
 Dim adodbRS As ADODB.Recordset

 Set adodbRS = New ADODB.Recordset
 TempSQL = VarInitData.DisplaySQLVal(24) '& " Where billnum = " & Quote(VarKey)
 adodbRS.Open TempSQL, oCnn.ConnectionString, adOpenStatic, adLockReadOnly
 Set crystal = New CRAXDRT.Application
 Set report = crystal.OpenReport(App.Path & "\RPT\maintainset.rpt")
 report.DiscardSavedData
 report.Database.SetDataSource adodbRS
 ViewReport.Show , frmMain
 ViewReport.CRViewer91.ReportSource = report
 ViewReport.CRViewer91.ViewReport
End Sub
Public Sub DispalyMaintainAppendReport()
 Dim crystal As CRAXDRT.Application
 Dim report As CRAXDRT.report
 Dim TempSQL As String
 Dim adodbRS As ADODB.Recordset

 Set adodbRS = New ADODB.Recordset
 TempSQL = VarInitData.DisplaySQLVal(25) '& " Where billnum = " & Quote(VarKey)
 adodbRS.Open TempSQL, oCnn.ConnectionString, adOpenStatic, adLockReadOnly
 Set crystal = New CRAXDRT.Application
 Set report = crystal.OpenReport(App.Path & "\RPT\maintainappend.rpt")
 report.DiscardSavedData
 report.Database.SetDataSource adodbRS
 ViewReport.Show , frmMain
 ViewReport.CRViewer91.ReportSource = report
 ViewReport.CRViewer91.ViewReport
End Sub
Public Sub DispalyGoodsdataReport()
 Dim crystal As CRAXDRT.Application
 Dim report As CRAXDRT.report
 Dim TempSQL As String
 Dim adodbRS As ADODB.Recordset

 Set adodbRS = New ADODB.Recordset
 TempSQL = VarInitData.DisplaySQLVal(3) '& " Where billnum = " & Quote(VarKey)
 adodbRS.Open TempSQL, oCnn.ConnectionString, adOpenStatic, adLockReadOnly
 Set crystal = New CRAXDRT.Application
 Set report = crystal.OpenReport(App.Path & "\RPT\goodsdata.rpt")
 report.DiscardSavedData
 report.Database.SetDataSource adodbRS
 ViewReport.Show , frmMain
 ViewReport.CRViewer91.ReportSource = report
 ViewReport.CRViewer91.ViewReport
End Sub
Public Sub DispalyProvidedataReport()
 Dim crystal As CRAXDRT.Application
 Dim report As CRAXDRT.report
 Dim TempSQL As String
 Dim adodbRS As ADODB.Recordset

 Set adodbRS = New ADODB.Recordset
 TempSQL = VarInitData.DisplaySQLVal(5) '& " Where billnum = " & Quote(VarKey)
 adodbRS.Open TempSQL, oCnn.ConnectionString, adOpenStatic, adLockReadOnly
 Set crystal = New CRAXDRT.Application
 Set report = crystal.OpenReport(App.Path & "\RPT\providedata.rpt")
 report.DiscardSavedData
 report.Database.SetDataSource adodbRS
 ViewReport.Show , frmMain
 ViewReport.CRViewer91.ReportSource = report
 ViewReport.CRViewer91.ViewReport
End Sub
Public Sub DispalyClientdataReport()
 Dim crystal As CRAXDRT.Application
 Dim report As CRAXDRT.report
 Dim TempSQL As String
 Dim adodbRS As ADODB.Recordset

 Set adodbRS = New ADODB.Recordset
 TempSQL = VarInitData.DisplaySQLVal(6) '& " Where billnum = " & Quote(VarKey)
 adodbRS.Open TempSQL, oCnn.ConnectionString, adOpenStatic, adLockReadOnly
 Set crystal = New CRAXDRT.Application
 Set report = crystal.OpenReport(App.Path & "\RPT\clientdata.rpt")
 report.DiscardSavedData
 report.Database.SetDataSource adodbRS
 ViewReport.Show , frmMain
 ViewReport.CRViewer91.ReportSource = report
 ViewReport.CRViewer91.ViewReport
End Sub
Public Sub DispalyCarDocuReport()
 Dim crystal As CRAXDRT.Application
 Dim report As CRAXDRT.report
 Dim TempSQL As String
 Dim adodbRS As ADODB.Recordset

 Set adodbRS = New ADODB.Recordset
 TempSQL = VarInitData.DisplaySQLVal(8) '& " Where billnum = " & Quote(VarKey)
 adodbRS.Open TempSQL, oCnn.ConnectionString, adOpenStatic, adLockReadOnly
 Set crystal = New CRAXDRT.Application
 Set report = crystal.OpenReport(App.Path & "\RPT\cardocu.rpt")
 report.DiscardSavedData
 report.Database.SetDataSource adodbRS
 ViewReport.Show , frmMain
 ViewReport.CRViewer91.ReportSource = report
 ViewReport.CRViewer91.ViewReport
End Sub

Public Sub DispalyClientNeedReport()
 Dim crystal As CRAXDRT.Application
 Dim report As CRAXDRT.report
 Dim TempSQL As String
 Dim adodbRS As ADODB.Recordset

 Set adodbRS = New ADODB.Recordset
 TempSQL = VarInitData.DisplaySQLVal(7) '& " Where billnum = " & Quote(VarKey)
 adodbRS.Open TempSQL, oCnn.ConnectionString, adOpenStatic, adLockReadOnly
 Set crystal = New CRAXDRT.Application
 Set report = crystal.OpenReport(App.Path & "\RPT\clientneed.rpt")
 report.DiscardSavedData
 report.Database.SetDataSource adodbRS
 ViewReport.Show , frmMain
 ViewReport.CRViewer91.ReportSource = report
 ViewReport.CRViewer91.ViewReport
End Sub
Public Sub DispalyTestReport()
 Dim crystal As CRAXDRT.Application
 Dim report As CRAXDRT.report
 Dim TempSQL As String
 Dim adodbRS As ADODB.Recordset

 Set adodbRS = New ADODB.Recordset
 TempSQL = VarInitData.DisplaySQLVal(10) '& " Where billnum = " & Quote(VarKey)
 adodbRS.Open TempSQL, oCnn.ConnectionString, adOpenStatic, adLockReadOnly
 Set crystal = New CRAXDRT.Application
 Set report = crystal.OpenReport(App.Path & "\RPT\store.rpt")
 report.DiscardSavedData
 report.Database.SetDataSource adodbRS
' ViewReport.Show , frmMain
 ViewReport.CRViewer91.ReportSource = report
 ViewReport.CRViewer91.ViewReport
End Sub