home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1994 #1
/
monster.zip
/
monster
/
PROG_BAS
/
RDBLIB.ZIP
/
RBPROBRP.FRM
< prev
next >
Wrap
Text File
|
1994-02-05
|
14KB
|
455 lines
VERSION 2.00
Begin Form RBProbRpt
BackColor = &H00FFFFFF&
Caption = "Problem Report Form"
ClientHeight = 4020
ClientLeft = 1095
ClientTop = 1485
ClientWidth = 7365
Height = 4425
Icon = RBPROBRP.FRX:0000
Left = 1035
LinkTopic = "Form1"
ScaleHeight = 4020
ScaleWidth = 7365
Top = 1140
Width = 7485
Begin CommonDialog CMDialog1
Left = 9060
Top = 6120
End
Begin TextBox TxSystem
BackColor = &H00FFFFFF&
Height = 315
Left = 1920
TabIndex = 28
Tag = "Enter the name of the system that had the problem"
Top = 1320
Width = 3135
End
Begin TextBox TxVer
BackColor = &H00FFFFFF&
Height = 315
Left = 6600
TabIndex = 27
Tag = "Enter the version number of the system you are using"
Top = 1320
Width = 2835
End
Begin SSCommand BtnSelPrtr
Caption = "Select Printer"
Font3D = 0 'None
Height = 315
Left = 540
TabIndex = 26
Top = 6180
Width = 2850
End
Begin Frame Frame3
Caption = "Describe the function being performed, the actions leading up to the error and the problem that occurred"
Height = 2415
Left = 120
TabIndex = 25
Top = 3720
Width = 9375
Begin TextBox TxtProblem
Height = 2115
Left = 60
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 13
Tag = "Enter the description of the problem and the actions leading up to the problem"
Top = 240
Width = 9255
End
End
Begin Frame Frame2
Caption = "Effect Of Problem"
Height = 915
Left = 120
TabIndex = 24
Top = 2760
Width = 9375
Begin TextBox Text1
BackColor = &H00FFFFFF&
Height = 315
Index = 4
Left = 2400
TabIndex = 12
Tag = "Enter the description of the other effect of this problem"
Top = 540
Width = 6855
End
Begin CheckBox Check1
Caption = "Other (Please Specify)"
Height = 375
Index = 4
Left = 120
TabIndex = 11
Tag = "Check this box if there is some other effect with this problem"
Top = 480
Width = 2295
End
Begin CheckBox Check1
Caption = "Can Use System, But Functionality Is Limited"
Height = 225
Index = 3
Left = 4500
TabIndex = 10
Tag = "Check this box if you can use the system, but the functionality of the system is limited because of this problem"
Top = 240
Width = 4575
End
Begin CheckBox Check1
Caption = "Can't use this function"
Height = 225
Index = 2
Left = 2040
TabIndex = 9
Tag = "Check this box if you can't use this function because of the problem"
Top = 240
Width = 2295
End
Begin CheckBox Check1
Caption = "Can't Use System"
Height = 225
Index = 1
Left = 120
TabIndex = 8
Tag = "Check this box if you can't use the system because of this problem"
Top = 240
Width = 1875
End
End
Begin Frame Frame1
Caption = "Type of Problem"
Height = 915
Left = 120
TabIndex = 23
Top = 1800
Width = 9375
Begin CheckBox Check1
Caption = "Problem is Repeatable (Consistent)"
Height = 255
Index = 0
Left = 5880
TabIndex = 5
Tag = "Check this box if the problem is repeatable (occurs consistently)"
Top = 240
Width = 3375
End
Begin TextBox Text1
BackColor = &H00FFFFFF&
Height = 285
Index = 3
Left = 2400
TabIndex = 7
Tag = "Enter the description of the type of problem"
Top = 510
Width = 6855
End
Begin OptionButton Option1
Caption = "Other (Please Specify)"
Height = 255
Index = 2
Left = 120
TabIndex = 6
Tag = "Select this option if some other type of problem occurred"
Top = 480
Width = 2295
End
Begin OptionButton Option1
Caption = "System Didn't Work As Expected"
Height = 255
Index = 1
Left = 2700
TabIndex = 4
Tag = "Select this option if the system didn't work as expected"
Top = 240
Width = 3195
End
Begin OptionButton Option1
Caption = "System Ended Abnormally"
Height = 195
Index = 0
Left = 120
TabIndex = 3
Tag = "Select this option if the system terminated abnormally"
Top = 240
Width = 2535
End
End
Begin SSPanel cmsg
Align = 2 'Align Bottom
Alignment = 1 'Left Justify - MIDDLE
BackColor = &H00C0C0C0&
BevelInner = 1 'Inset
FloodShowPct = 0 'False
Font3D = 0 'None
ForeColor = &H00FF0000&
Height = 315
Left = 0
TabIndex = 20
Top = 3705
Width = 7365
End
Begin SSCommand BtnCancel
Caption = "Exit"
Font3D = 0 'None
Height = 315
Left = 6180
TabIndex = 15
Top = 6180
Width = 2850
End
Begin SSCommand BtnPrint
Caption = "Print Problem Report"
Font3D = 0 'None
Height = 315
Left = 3360
TabIndex = 14
Top = 6180
Width = 2850
End
Begin SSPanel Panel3D1
Align = 1 'Align Top
BackColor = &H00FFFFFF&
Caption = "Problem Report Form"
Font3D = 1 'Raised w/light shading
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 18
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00FF0000&
Height = 435
Left = 0
TabIndex = 21
Top = 0
Width = 7365
End
Begin TextBox Text1
BackColor = &H00FFFFFF&
Height = 315
Index = 2
Left = 6600
TabIndex = 2
Tag = "Enter the name of the contact person"
Top = 960
Width = 2835
End
Begin TextBox Text1
BackColor = &H00FFFFFF&
Height = 315
Index = 1
Left = 1920
TabIndex = 1
Tag = "Enter the name of your organization"
Top = 960
Width = 3135
End
Begin TextBox Text1
BackColor = &H00FFFFFF&
Height = 315
Index = 0
Left = 1920
TabIndex = 0
Tag = "Enter the name of the person who is reporting the problem"
Top = 540
Width = 4575
End
Begin Label Label1
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "System..................."
ForeColor = &H00000000&
Height = 195
Index = 5
Left = 120
TabIndex = 30
Top = 1440
Width = 1755
End
Begin Label Label1
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "Version..........."
ForeColor = &H00000000&
Height = 195
Index = 3
Left = 5160
TabIndex = 29
Top = 1380
Width = 1305
End
Begin Label Label1
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "On"
ForeColor = &H00000000&
Height = 195
Index = 4
Left = 6600
TabIndex = 22
Top = 600
Width = 255
End
Begin Label Label1
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "Problem Reported By"
ForeColor = &H00000000&
Height = 195
Index = 2
Left = 60
TabIndex = 19
Top = 600
Width = 1800
End
Begin Label Label1
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "Contact Person"
ForeColor = &H00000000&
Height = 195
Index = 1
Left = 5160
TabIndex = 18
Top = 1020
Width = 1320
End
Begin Label Label1
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "Organization............"
ForeColor = &H00000000&
Height = 195
Index = 0
Left = 60
TabIndex = 17
Top = 1080
Width = 1800
End
Begin Label RBDateTime
BackColor = &H00FFFFFF&
BorderStyle = 1 'Fixed Single
Caption = "Date - Time"
Height = 315
Left = 6960
TabIndex = 16
Top = 540
Width = 2535
End
End
Dim RB_Svframeheight As Integer
Dim RB_Svtextheight As Integer
Sub BtnCancel_Click ()
Unload RBProbRpt
End Sub
Sub BtnPrint_Click ()
mousepointer = HOURGLASS
BtnPrint.Visible = False
BtnCancel.Visible = False
BtnSelPrtr.Visible = False
cmsg.Visible = False
RB_Svframeheight = Frame3.Height
RB_Svtextheight = TxtProblem.Height
Frame3.Height = cmsg.Top - Frame3.Top - 100
TxtProblem.Height = Frame3.Height - 300
RBProbRpt.Refresh
junk = DoEvents()
mousepointer = HOURGLASS
RBProbRpt.PrintForm
mousepointer = HOURGLASS
RBProbRpt.WindowState = MINIMIZED
RBErrFrm.WindowState = MINIMIZED
RBScrn.Show MODAL
RBErrFrm.WindowState = NORMAL
RBProbRpt.WindowState = MAXIMIZED
RBProbRpt.Visible = True
Frame3.Height = RB_Svframeheight
TxtProblem.Height = RB_Svtextheight
BtnPrint.Visible = True
BtnCancel.Visible = True
BtnSelPrtr.Visible = True
cmsg.Visible = True
BtnCancel.SetFocus
RBProbRpt.Refresh
mousepointer = DEFAULT
End Sub
Sub BtnSelPrtr_Click ()
CmDialog1.DialogTitle = "Problem Report Printer Setup"
CmDialog1.PrinterDefault = True
CmDialog1.Flags = PD_PRINTSETUP
CmDialog1.Action = 5
End Sub
Sub Check1_GotFocus (Index As Integer)
cmsg.Caption = Check1(Index).Tag
End Sub
Sub Check1_LostFocus (Index As Integer)
cmsg.Caption = ""
End Sub
Sub Form_Load ()
RBDateTime.Caption = Format$(Now, "MM/DD/YY - HH:MM:SS")
On Error Resume Next
txsystem.Text = rb_systemname
txver.Text = rb_version
On Error GoTo 0
End Sub
Sub Option1_GotFocus (Index As Integer)
cmsg.Caption = Option1(Index).Tag
End Sub
Sub Option1_LostFocus (Index As Integer)
cmsg.Caption = ""
End Sub
Sub Text1_GotFocus (Index As Integer)
Text1(Index).BackColor = BLUE
Text1(Index).ForeColor = WHITE
cmsg.Caption = Text1(Index).Tag
End Sub
Sub Text1_LostFocus (Index As Integer)
Text1(Index).BackColor = WHITE
Text1(Index).ForeColor = BLACK
cmsg.Caption = ""
End Sub
Sub TxtProblem_GotFocus ()
TxtProblem.BackColor = BLUE
TxtProblem.ForeColor = WHITE
cmsg.Caption = TxtProblem.Tag
End Sub
Sub TxtProblem_LostFocus ()
TxtProblem.BackColor = WHITE
TxtProblem.ForeColor = BLACK
cmsg.Caption = ""
End Sub