home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 February / PCWK0296.iso / po7_win / object10 / quoerror.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-11-30  |  1.4 KB  |  52 lines
  1. VERSION 2.00
  2. Begin Form frmOraError 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "Oracle Error"
  5.    ClientHeight    =   1440
  6.    ClientLeft      =   1770
  7.    ClientTop       =   5280
  8.    ClientWidth     =   6675
  9.    Height          =   1845
  10.    Left            =   1710
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    ScaleHeight     =   1440
  14.    ScaleWidth      =   6675
  15.    Top             =   4935
  16.    Width           =   6795
  17.    Begin TextBox txtError 
  18.       Height          =   1215
  19.       Left            =   720
  20.       TabIndex        =   1
  21.       Top             =   120
  22.       Width           =   4455
  23.    End
  24.    Begin CommandButton cmdOK 
  25.       Caption         =   "OK"
  26.       Default         =   -1  'True
  27.       Height          =   495
  28.       Left            =   5280
  29.       TabIndex        =   0
  30.       Top             =   480
  31.       Width           =   1215
  32.    End
  33.    Begin Image Image1 
  34.       Height          =   480
  35.       Left            =   120
  36.       Picture         =   QUOERROR.FRX:0000
  37.       Top             =   360
  38.       Width           =   480
  39.    End
  40. Option Explicit
  41. Sub cmdOK_Click ()
  42.  Unload frmOraError
  43. End Sub
  44. Sub Form_Load ()
  45.  Call CenterForm(frmOraError)
  46.  If OraSession.LastServerErr = 0 Then
  47.   txtError = "ORA-00000   normal, successful completion"
  48.  Else
  49.   txtError = OraSession.LastServerErrText
  50.  End If
  51. End Sub
  52.