home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PROG_BAS / RDBLIB.ZIP / RBERRFRM.FRM < prev    next >
Text File  |  1994-02-05  |  3KB  |  118 lines
  1. VERSION 2.00
  2. Begin Form RBErrFrm 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "RDB Error Handler"
  6.    ClientHeight    =   3225
  7.    ClientLeft      =   2550
  8.    ClientTop       =   2490
  9.    ClientWidth     =   4500
  10.    Height          =   3630
  11.    Icon            =   RBERRFRM.FRX:0000
  12.    Left            =   2490
  13.    LinkTopic       =   "Form2"
  14.    MaxButton       =   0   'False
  15.    ScaleHeight     =   3225
  16.    ScaleWidth      =   4500
  17.    Top             =   2145
  18.    Width           =   4620
  19.    Begin CommonDialog CMDialog1 
  20.       HelpFile        =   "rberror.hlp"
  21.       Left            =   1740
  22.       Top             =   1080
  23.    End
  24.    Begin SSCommand Command3D1 
  25.       Caption         =   "Help"
  26.       Font3D          =   0  'None
  27.       Height          =   315
  28.       Index           =   3
  29.       Left            =   120
  30.       TabIndex        =   5
  31.       Top             =   2760
  32.       Width           =   2115
  33.    End
  34.    Begin SSCommand Command3D1 
  35.       Caption         =   "Ignore"
  36.       Font3D          =   0  'None
  37.       Height          =   315
  38.       Index           =   2
  39.       Left            =   2940
  40.       TabIndex        =   4
  41.       Top             =   2460
  42.       Width           =   1380
  43.    End
  44.    Begin SSCommand Command3D1 
  45.       Caption         =   "Retry"
  46.       Font3D          =   0  'None
  47.       Height          =   315
  48.       Index           =   1
  49.       Left            =   1500
  50.       TabIndex        =   3
  51.       Top             =   2460
  52.       Width           =   1440
  53.    End
  54.    Begin SSCommand Command3D1 
  55.       Caption         =   "Abort"
  56.       Font3D          =   0  'None
  57.       Height          =   315
  58.       Index           =   0
  59.       Left            =   120
  60.       TabIndex        =   2
  61.       Top             =   2460
  62.       Width           =   1380
  63.    End
  64.    Begin SSCommand Command3D1 
  65.       Caption         =   "Create Problem Report"
  66.       Font3D          =   0  'None
  67.       Height          =   315
  68.       Index           =   4
  69.       Left            =   2220
  70.       TabIndex        =   1
  71.       Top             =   2760
  72.       Width           =   2115
  73.    End
  74.    Begin TextBox Msg 
  75.       BackColor       =   &H00C0C0C0&
  76.       Height          =   2295
  77.       Left            =   120
  78.       MultiLine       =   -1  'True
  79.       TabIndex        =   0
  80.       Top             =   60
  81.       Width           =   4215
  82.    End
  83.    Begin Label SvErr 
  84.       Caption         =   "Label1"
  85.       Height          =   315
  86.       Left            =   420
  87.       TabIndex        =   6
  88.       Top             =   1920
  89.       Width           =   915
  90.    End
  91. End
  92.  
  93. Sub Command3D1_Click (index As Integer)
  94.     RB_Erraction = index
  95.     If index < 3 Then
  96.         Unload RBErrFrm
  97.     End If
  98.     If index = 3 Then
  99.         If Dir$("rberror.hlp") = "" Then
  100.             helploc = Trim(Environ$("windir"))
  101.             If Right(helploc, 1) <> "\" Then
  102.                 helploc = helploc + "\"
  103.             End If
  104.             CMDialog1.HelpFile = helploc & "rberror.hlp"
  105.         End If
  106.         CMDialog1.HelpCommand = HELP_KEY
  107.         CMDialog1.HelpKey = "Error" & Format$(Val(sverr.Caption), "######")
  108.         CMDialog1.Action = 6
  109.     End If
  110.     If index = 4 Then
  111.         RBProbRpt.TxtProblem.Text = Msg.Text
  112.         RBProbRpt.WindowState = MAXIMIZED
  113.         RBProbRpt.Show MODAL
  114.     End If
  115.  
  116. End Sub
  117.  
  118.