home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Unleashed / Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso / crystal / extras / vbxdemo / storedpr.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-12-15  |  3.5 KB  |  114 lines

  1. VERSION 2.00
  2. Begin Form Storedproc 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Stored Procedures"
  5.    ClientHeight    =   2685
  6.    ClientLeft      =   1335
  7.    ClientTop       =   1800
  8.    ClientWidth     =   6885
  9.    Height          =   3090
  10.    Left            =   1275
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   2685
  13.    ScaleWidth      =   6885
  14.    Top             =   1455
  15.    Width           =   7005
  16.    Begin CommandButton stprochelp 
  17.       Caption         =   "Help"
  18.       Height          =   375
  19.       Left            =   4410
  20.       TabIndex        =   5
  21.       Top             =   2115
  22.       Width           =   1635
  23.    End
  24.    Begin CommandButton stproccancel 
  25.       Caption         =   "Cancel"
  26.       Height          =   375
  27.       Left            =   2490
  28.       TabIndex        =   4
  29.       Top             =   2115
  30.       Width           =   1785
  31.    End
  32.    Begin CommandButton Stprocok 
  33.       Caption         =   "Ok"
  34.       Height          =   375
  35.       Left            =   810
  36.       TabIndex        =   3
  37.       Top             =   2115
  38.       Width           =   1575
  39.    End
  40.    Begin SSFrame Frame3D1 
  41.       Caption         =   "Stored Procedure Information"
  42.       Font3D          =   0  'None
  43.       ForeColor       =   &H00000000&
  44.       Height          =   1590
  45.       Left            =   180
  46.       TabIndex        =   0
  47.       Top             =   270
  48.       Width           =   6495
  49.       Begin TextBox Paramtext 
  50.          Enabled         =   0   'False
  51.          FontBold        =   0   'False
  52.          FontItalic      =   0   'False
  53.          FontName        =   "MS Sans Serif"
  54.          FontSize        =   8.25
  55.          FontStrikethru  =   0   'False
  56.          FontUnderline   =   0   'False
  57.          Height          =   330
  58.          Left            =   1470
  59.          TabIndex        =   7
  60.          Text            =   "0"
  61.          Top             =   405
  62.          Width           =   705
  63.       End
  64.       Begin CommandButton StprocSet 
  65.          Caption         =   "Set"
  66.          Height          =   375
  67.          Left            =   180
  68.          TabIndex        =   2
  69.          Top             =   900
  70.          Width           =   1125
  71.       End
  72.       Begin TextBox Stproctext 
  73.          Height          =   375
  74.          Left            =   1440
  75.          TabIndex        =   1
  76.          Top             =   900
  77.          Width           =   4755
  78.       End
  79.       Begin Label Label1 
  80.          BackColor       =   &H00C0C0C0&
  81.          Caption         =   "Parameter #:"
  82.          Height          =   285
  83.          Left            =   150
  84.          TabIndex        =   6
  85.          Top             =   450
  86.          Width           =   1215
  87.       End
  88.    End
  89. Dim ParamN As Integer
  90. Sub stproccancel_Click ()
  91. Unload Me
  92. End Sub
  93. Sub stprochelp_Click ()
  94.  RCode = Shell("Winhelp c:\crw\crw.hlp", 3)
  95.  If RCode = False Then
  96.    MsgBox ("CRWDEMO cannot find the Crystal Help file in C:\CRW directory")
  97.  End If
  98. End Sub
  99. Sub Stprocok_Click ()
  100.  Unload Me
  101. End Sub
  102. Sub StprocSet_Click ()
  103.      'If the Parameter text box does not have any text in it then
  104.      'prompt user
  105.       If Stproctext.Text = "" Then
  106.         MsgBox "You must enter a stored procedure parameter"
  107.         Exit Sub
  108.       Else
  109.        'Set the stored procedure
  110.         Main.Report1.StoredProcParam(ParamText.Text) = Stproctext.Text
  111.         Main!StatusBar.Caption = "Stored Procedure " & ParamText.Text & " has been set"
  112.       End If
  113. End Sub
  114.