home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Unleashed / Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso / crystal / extras / ocx45_32 / status.frm (.txt) < prev   
Encoding:
Visual Basic Form  |  1995-08-26  |  5.7 KB  |  181 lines
  1. VERSION 4.00
  2. Begin VB.Form status 
  3.    Caption         =   "Report Status"
  4.    ClientHeight    =   5220
  5.    ClientLeft      =   2550
  6.    ClientTop       =   2235
  7.    ClientWidth     =   4560
  8.    Height          =   5625
  9.    Left            =   2490
  10.    LinkTopic       =   "Status"
  11.    LockControls    =   -1  'True
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   5220
  15.    ScaleWidth      =   4560
  16.    Top             =   1890
  17.    Width           =   4680
  18.    Begin VB.CommandButton CmdOK 
  19.       Caption         =   "&OK"
  20.       Height          =   495
  21.       Left            =   1320
  22.       TabIndex        =   1
  23.       Top             =   4560
  24.       Width           =   1935
  25.    End
  26.    Begin VB.Frame Frame1 
  27.       Height          =   4215
  28.       Left            =   240
  29.       TabIndex        =   0
  30.       Top             =   120
  31.       Width           =   4095
  32.       Begin VB.Label LblRptStatus 
  33.          Alignment       =   1  'Right Justify
  34.          Height          =   255
  35.          Left            =   2535
  36.          TabIndex        =   16
  37.          Top             =   3360
  38.          Width           =   1005
  39.       End
  40.       Begin VB.Label LblStartPage 
  41.          Alignment       =   1  'Right Justify
  42.          Height          =   255
  43.          Left            =   2535
  44.          TabIndex        =   15
  45.          Top             =   2880
  46.          Width           =   1005
  47.       End
  48.       Begin VB.Label LblLatestPage 
  49.          Alignment       =   1  'Right Justify
  50.          Height          =   255
  51.          Left            =   2535
  52.          TabIndex        =   14
  53.          Top             =   2400
  54.          Width           =   1005
  55.       End
  56.       Begin VB.Label LblDisplayPage 
  57.          Alignment       =   1  'Right Justify
  58.          Height          =   255
  59.          Left            =   2535
  60.          TabIndex        =   13
  61.          Top             =   1920
  62.          Width           =   1005
  63.       End
  64.       Begin VB.Label LblPrinted 
  65.          Alignment       =   1  'Right Justify
  66.          Height          =   255
  67.          Left            =   2535
  68.          TabIndex        =   12
  69.          Top             =   1440
  70.          Width           =   1005
  71.       End
  72.       Begin VB.Label LblSelected 
  73.          Alignment       =   1  'Right Justify
  74.          Height          =   255
  75.          Left            =   2535
  76.          TabIndex        =   11
  77.          Top             =   960
  78.          Width           =   1005
  79.       End
  80.       Begin VB.Label LblRead 
  81.          Alignment       =   1  'Right Justify
  82.          Height          =   255
  83.          Left            =   2535
  84.          TabIndex        =   10
  85.          Top             =   480
  86.          Width           =   1005
  87.       End
  88.       Begin VB.Label LblStatus 
  89.          Alignment       =   2  'Center
  90.          Height          =   495
  91.          Left            =   120
  92.          TabIndex        =   9
  93.          Top             =   3600
  94.          Width           =   3855
  95.       End
  96.       Begin VB.Label Label7 
  97.          Caption         =   "Report Status:"
  98.          Height          =   255
  99.          Left            =   240
  100.          TabIndex        =   8
  101.          Top             =   3360
  102.          Width           =   1455
  103.       End
  104.       Begin VB.Label Label6 
  105.          Caption         =   "Report Start Page:"
  106.          Height          =   255
  107.          Left            =   240
  108.          TabIndex        =   7
  109.          Top             =   2880
  110.          Width           =   1455
  111.       End
  112.       Begin VB.Label Label5 
  113.          Caption         =   "Report Latest Page:"
  114.          Height          =   255
  115.          Left            =   240
  116.          TabIndex        =   6
  117.          Top             =   2400
  118.          Width           =   1695
  119.       End
  120.       Begin VB.Label Label4 
  121.          Caption         =   "Report Display Page:"
  122.          Height          =   255
  123.          Left            =   240
  124.          TabIndex        =   5
  125.          Top             =   1920
  126.          Width           =   1695
  127.       End
  128.       Begin VB.Label Label3 
  129.          Caption         =   "Records Printed:"
  130.          Height          =   255
  131.          Left            =   240
  132.          TabIndex        =   4
  133.          Top             =   1440
  134.          Width           =   1335
  135.       End
  136.       Begin VB.Label Label2 
  137.          Caption         =   "Records Selected:"
  138.          Height          =   255
  139.          Left            =   240
  140.          TabIndex        =   3
  141.          Top             =   960
  142.          Width           =   1575
  143.       End
  144.       Begin VB.Label Label1 
  145.          Caption         =   "Records Read:"
  146.          Height          =   255
  147.          Left            =   240
  148.          TabIndex        =   2
  149.          Top             =   480
  150.          Width           =   1575
  151.       End
  152.    End
  153. Attribute VB_Name = "status"
  154. Attribute VB_Creatable = False
  155. Attribute VB_Exposed = False
  156. Private Sub CmdOK_Click()
  157. Unload Me
  158. End Sub
  159. Private Sub Form_Load()
  160. Dim RptStatus As Integer
  161. Center Me
  162. LblRead.Caption = Demo.CrystalReport1.RecordsRead
  163. LblSelected.Caption = Demo.CrystalReport1.RecordsSelected
  164. LblPrinted.Caption = Demo.CrystalReport1.RecordsPrinted
  165. LblDisplayPage.Caption = Demo.CrystalReport1.ReportDisplayPage
  166. LblLatestPage.Caption = Demo.CrystalReport1.ReportLatestPage
  167. LblStartPage.Caption = Demo.CrystalReport1.ReportStartPage
  168. LblRptStatus.Caption = Demo.CrystalReport1.status
  169. RptStatus = Demo.CrystalReport1.status
  170. Select Case RptStatus
  171. Case 0
  172.     LblStatus.Caption = "The report has not been printed or has not finished printing."
  173. Case 3
  174.     LblStatus.Caption = "The report has finished printing."
  175. Case 5
  176.     LblStatus.Caption = " the report has been cancelled by the user."
  177. End Select
  178. End Sub
  179. Private Sub Label13_Click()
  180. End Sub
  181.