home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Unleashed / Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso / crystal / extras / vbvbx / sqlquery.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-02-09  |  3.7 KB  |  121 lines
  1. VERSION 2.00
  2. Begin Form SQLQuery 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Modify SQL Query"
  5.    ClientHeight    =   5820
  6.    ClientLeft      =   810
  7.    ClientTop       =   1365
  8.    ClientWidth     =   8625
  9.    Height          =   6225
  10.    Left            =   750
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   5820
  13.    ScaleWidth      =   8625
  14.    Top             =   1020
  15.    Width           =   8745
  16.    Begin TextBox Text5 
  17.       BackColor       =   &H00C0C0C0&
  18.       BorderStyle     =   0  'None
  19.       Height          =   495
  20.       Left            =   480
  21.       MultiLine       =   -1  'True
  22.       TabIndex        =   7
  23.       Text            =   "FROM and WHERE parts of the query can be changed if required. New ranges and links can be added and existing ones changed."
  24.       Top             =   4320
  25.       Width           =   7575
  26.    End
  27.    Begin TextBox Text4 
  28.       BackColor       =   &H00C0C0C0&
  29.       BorderStyle     =   0  'None
  30.       Height          =   735
  31.       Left            =   480
  32.       MultiLine       =   -1  'True
  33.       TabIndex        =   6
  34.       Text            =   "SELECT lists fields used in the report including those in formulas, totals, sorts, selections and ranges. FROM lists tables in the report followed by their aliases. WHERE specifies field ranges and links between tables."
  35.       Top             =   3600
  36.       Width           =   7575
  37.    End
  38.    Begin TextBox Text3 
  39.       BackColor       =   &H00C0C0C0&
  40.       BorderStyle     =   0  'None
  41.       Height          =   255
  42.       Left            =   480
  43.       TabIndex        =   5
  44.       Text            =   "Description:"
  45.       Top             =   3240
  46.       Width           =   1215
  47.    End
  48.    Begin TextBox Text2 
  49.       Alignment       =   1  'Right Justify
  50.       BackColor       =   &H00C0C0C0&
  51.       Height          =   1935
  52.       Left            =   360
  53.       MultiLine       =   -1  'True
  54.       TabIndex        =   4
  55.       Top             =   3000
  56.       Width           =   7815
  57.    End
  58.    Begin SSPanel Panel3D1 
  59.       Alignment       =   1  'Left Justify - MIDDLE
  60.       BackColor       =   &H00C0C0C0&
  61.       BevelInner      =   1  'Inset
  62.       BorderWidth     =   1
  63.       Font3D          =   0  'None
  64.       Height          =   2175
  65.       Left            =   240
  66.       TabIndex        =   0
  67.       Top             =   2880
  68.       Width           =   8055
  69.    End
  70.    Begin CommandButton Command4 
  71.       Caption         =   "Cancel"
  72.       Height          =   330
  73.       Left            =   4560
  74.       TabIndex        =   3
  75.       Top             =   5220
  76.       Width           =   2325
  77.    End
  78.    Begin TextBox Text1 
  79.       Height          =   2535
  80.       Left            =   240
  81.       MultiLine       =   -1  'True
  82.       ScrollBars      =   3  'Both
  83.       TabIndex        =   2
  84.       Top             =   240
  85.       Width           =   8055
  86.    End
  87.    Begin CommandButton Command2 
  88.       Caption         =   "Set SQL Query"
  89.       Height          =   330
  90.       Left            =   1140
  91.       TabIndex        =   1
  92.       Top             =   5220
  93.       Width           =   2115
  94.    End
  95. Sub Command1_Click ()
  96. End Sub
  97. Sub Command2_Click ()
  98.  If Text1.Text = "" Then
  99.    InfoBox = MsgBox("Please Enter an SQL Query", 0 + 48, "VBX Message")
  100.  Else
  101.      Main.Report1.SQLQuery = Text1.Text
  102.      Main.statusbar.Caption = "SQL Query has been Set!"
  103.      Unload Me
  104.  End If
  105. End Sub
  106. Sub Command3_Click ()
  107.   Unload Me
  108. End Sub
  109. Sub Command4_Click ()
  110.  Unload Me
  111. End Sub
  112. Sub Command5_Click ()
  113.  RCode = Shell("Winhelp c:\crw\crw.hlp", 3)
  114.  If RCode = False Then
  115.    MsgBox ("RedPoint cannot find the Crystal Help file in C:\CRW directory")
  116.  End If
  117. End Sub
  118. Sub MenuFileExit_Click ()
  119.  Unload Me
  120. End Sub
  121.