home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Unleashed / Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso / crystal / extras / vbxdemo / table.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-12-15  |  3.5 KB  |  124 lines
  1. VERSION 2.00
  2. Begin Form Tablem 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Table Management"
  5.    ClientHeight    =   2550
  6.    ClientLeft      =   2025
  7.    ClientTop       =   2280
  8.    ClientWidth     =   7155
  9.    Height          =   3240
  10.    Left            =   1965
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   2550
  13.    ScaleWidth      =   7155
  14.    Top             =   1650
  15.    Width           =   7275
  16.    Begin CommandButton Command1 
  17.       Caption         =   "Ok"
  18.       Height          =   345
  19.       Left            =   900
  20.       TabIndex        =   0
  21.       Top             =   2025
  22.       Width           =   1665
  23.    End
  24.    Begin SSFrame Frame3D1 
  25.       Caption         =   "Table Information"
  26.       Font3D          =   0  'None
  27.       Height          =   1575
  28.       Left            =   270
  29.       TabIndex        =   5
  30.       Top             =   225
  31.       Width           =   6585
  32.       Begin TextBox DatafileNum 
  33.          Height          =   330
  34.          Left            =   1800
  35.          TabIndex        =   6
  36.          Text            =   "0"
  37.          Top             =   360
  38.          Width           =   735
  39.       End
  40.       Begin CommandButton Command9 
  41.          Caption         =   "Set Location"
  42.          Height          =   345
  43.          Left            =   150
  44.          TabIndex        =   3
  45.          Top             =   930
  46.          Width           =   1395
  47.       End
  48.       Begin TextBox LocationText 
  49.          Height          =   345
  50.          Left            =   1770
  51.          TabIndex        =   4
  52.          Top             =   945
  53.          Width           =   3885
  54.       End
  55.       Begin Label Label1 
  56.          BackColor       =   &H00C0C0C0&
  57.          Caption         =   "Datafile #:"
  58.          Height          =   240
  59.          Left            =   150
  60.          TabIndex        =   7
  61.          Top             =   450
  62.          Width           =   1185
  63.       End
  64.    End
  65.    Begin CommandButton Command7 
  66.       Caption         =   "Help"
  67.       Height          =   345
  68.       Left            =   4680
  69.       TabIndex        =   2
  70.       Top             =   2025
  71.       Width           =   1725
  72.    End
  73.    Begin CommandButton Command6 
  74.       Caption         =   "Close"
  75.       Height          =   345
  76.       Left            =   2760
  77.       TabIndex        =   1
  78.       Top             =   2025
  79.       Width           =   1725
  80.    End
  81.    Begin Menu MenuFile 
  82.       Caption         =   "&File"
  83.       Begin Menu MenuExit 
  84.          Caption         =   "&Exit"
  85.       End
  86.    End
  87. Sub Command1_Click ()
  88.  Unload Me
  89. End Sub
  90. Sub Command2_Click ()
  91. End Sub
  92. Sub Command3_Click ()
  93. End Sub
  94. Sub Command4_Click ()
  95. End Sub
  96. Sub Command5_Click ()
  97. End Sub
  98. Sub Command6_Click ()
  99.  Unload Me
  100. End Sub
  101. Sub Command7_Click ()
  102.  RCode = Shell("Winhelp c:\crw\crw.hlp", 3)
  103. End Sub
  104. Sub Command8_Click ()
  105. End Sub
  106. Sub Command9_Click ()
  107.   'Set the Datafile location for each datafile in the report
  108.   'under the Set Location in Crystal Reports dialogue a list
  109.   'of files Is displayed and this list corresponds to the datafile number
  110.   'Therefore, the first file listed would be 0, the second 1 etc.
  111.    If LocationText.Text = "" Then
  112.      MsgBox "You must enter a path to the datafile!"
  113.      Exit Sub
  114.    Else
  115.      Main.Report1.DataFiles(DataFileNum.Text) = LocationText.Text
  116.      Main!StatusBar.Caption = "Table Location " & DataFileNum.Text & " has been set"
  117.    End If
  118. End Sub
  119. Sub LocationCombo_Click ()
  120. End Sub
  121. Sub MenuExit_Click ()
  122.  Unload Me
  123. End Sub
  124.