frmorderprint.frm

一套比较全面的茶馆控制系统软件源代码

VERSION 5.00
Object = "{C4847593-972C-11D0-9567-00A0C9273C2A}#2.1#0"; "CRVIEWER.DLL"
Begin VB.Form frmOrderPrint 
   Caption         =   "营业报表打印"
   ClientHeight    =   6045
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   7200
   Icon            =   "frmOrderPrint.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   6045
   ScaleWidth      =   7200
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin CRVIEWERLibCtl.CRViewer CRViewer1 
      Height          =   7000
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   5800
      DisplayGroupTree=   0   'False
      DisplayToolbar  =   -1  'True
      EnableGroupTree =   0   'False
      EnableNavigationControl=   -1  'True
      EnableStopButton=   -1  'True
      EnablePrintButton=   -1  'True
      EnableZoomControl=   -1  'True
      EnableCloseButton=   -1  'True
      EnableProgressControl=   -1  'True
      EnableSearchControl=   -1  'True
      EnableRefreshButton=   0   'False
      EnableDrillDown =   -1  'True
      EnableAnimationControl=   0   'False
      EnableSelectExpertControl=   0   'False
      EnableToolbar   =   -1  'True
      DisplayBorder   =   0   'False
      DisplayTabs     =   -1  'True
      DisplayBackgroundEdge=   -1  'True
      SelectionFormula=   ""
      EnablePopupMenu =   -1  'True
   End
End
Attribute VB_Name = "frmOrderPrint"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Report As New CrystalReport4

Private Sub Form_Load()

Dim DB As Database, EF As Recordset

  
  Set DB = OpenDatabase(ConData, False, False, Constr)
    
    Dim QueryString As String
          
    If SCondStr <> "" Then
       QueryString = "Select * From SellCount" + " Where " & SCondStr
    Else
       QueryString = "Select * From SellCount"
    End If
       
  If QueryString = "" Then
     Set EF = DB.OpenRecordset("Select * From SellCount", dbOpenDynaset)
     Else
     Set EF = DB.OpenRecordset(QueryString, dbOpenDynaset)
  End If

Report.Database.SetDataSource EF

CRViewer1.ReportSource = Report
CRViewer1.ViewReport

EF.Close
DB.Close

End Sub

Private Sub Form_Resize()

CRViewer1.Top = 0
CRViewer1.Left = 0
CRViewer1.Height = ScaleHeight
CRViewer1.Width = ScaleWidth

End Sub

Private Sub Form_Unload(Cancel As Integer)

 Set Report = Nothing
 
End Sub