home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 February / PCWK0296.iso / po7_win / object10 / quoerror.frm < prev    next >
Text File  |  1994-11-30  |  1KB  |  59 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. End
  41. Option Explicit
  42.  
  43. Sub cmdOK_Click ()
  44.  Unload frmOraError
  45. End Sub
  46.  
  47. Sub Form_Load ()
  48.  
  49.  Call CenterForm(frmOraError)
  50.  
  51.  If OraSession.LastServerErr = 0 Then
  52.   txtError = "ORA-00000   normal, successful completion"
  53.  Else
  54.   txtError = OraSession.LastServerErrText
  55.  End If
  56.  
  57. End Sub
  58.  
  59.