Class: clockdialog in ..\lib\vfxform.vcx
Baseclass: form

Properties Methods Dataenvironment Objects

Properties

Name	Initial value
DoCreate	.T.

Dataenvironment

Class: dataenvironment
Baseclass: dataenvironment

Properties Methods Objects

Properties

Name	Initial value
InitialSelectedAlias	"vfxlock"

Objects

Baseclass	Class	Object name
cursor	cursor	Dataenvironment.Cursor1

Dataenvironment.Cursor1

Class: cursor
Baseclass: cursor
Properties Methods Objects

Properties

Name	Initial value
Alias	"vfxlock"
CursorSource	..\data\vfxlock.dbf
Order	"key"

Objects

Baseclass	Class	Object name
zzz	zzz	frmVFXLock.CNTSPEEDBAR
		frmVFXLock.lblMsgEmpty
		frmVFXLock.pgfPageFrame

frmVFXLock.CNTSPEEDBAR

Class: zzz
Baseclass: zzz
Properties Methods Objects

Objects

Baseclass	Class	Object name
zzz	zzz	frmVFXLock.CNTSPEEDBAR.cmdBottom
		frmVFXLock.CNTSPEEDBAR.cmdDelete
		frmVFXLock.CNTSPEEDBAR.cmdEdit
		frmVFXLock.CNTSPEEDBAR.cmdExit
		frmVFXLock.CNTSPEEDBAR.cmdNew
		frmVFXLock.CNTSPEEDBAR.cmdNext
		frmVFXLock.CNTSPEEDBAR.cmdPrev
		frmVFXLock.CNTSPEEDBAR.cmdPreview
		frmVFXLock.CNTSPEEDBAR.cmdPrint
		frmVFXLock.CNTSPEEDBAR.cmdSave
		frmVFXLock.CNTSPEEDBAR.cmdSearch
		frmVFXLock.CNTSPEEDBAR.cmdTop
		frmVFXLock.CNTSPEEDBAR.cmdUndo
		frmVFXLock.CNTSPEEDBAR.cmdrecordcopy
		frmVFXLock.CNTSPEEDBAR.oBorder

frmVFXLock.CNTSPEEDBAR.cmdBottom

Class: zzz
Baseclass: zzz
Properties Methods Objects

frmVFXLock.CNTSPEEDBAR.cmdDelete

Class: zzz
Baseclass: zzz
Properties Methods Objects

frmVFXLock.CNTSPEEDBAR.cmdEdit

Class: zzz
Baseclass: zzz
Properties Methods Objects

frmVFXLock.CNTSPEEDBAR.cmdExit

Class: zzz
Baseclass: zzz
Properties Methods Objects

frmVFXLock.CNTSPEEDBAR.cmdNew

Class: zzz
Baseclass: zzz
Properties Methods Objects

frmVFXLock.CNTSPEEDBAR.cmdNext

Class: zzz
Baseclass: zzz
Properties Methods Objects

frmVFXLock.CNTSPEEDBAR.cmdPrev

Class: zzz
Baseclass: zzz
Properties Methods Objects

frmVFXLock.CNTSPEEDBAR.cmdPreview

Class: zzz
Baseclass: zzz
Properties Methods Objects

frmVFXLock.CNTSPEEDBAR.cmdPrint

Class: zzz
Baseclass: zzz
Properties Methods Objects

frmVFXLock.CNTSPEEDBAR.cmdSave

Class: zzz
Baseclass: zzz
Properties Methods Objects

frmVFXLock.CNTSPEEDBAR.cmdSearch

Class: zzz
Baseclass: zzz
Properties Methods Objects

frmVFXLock.CNTSPEEDBAR.cmdTop

Class: zzz
Baseclass: zzz
Properties Methods Objects

frmVFXLock.CNTSPEEDBAR.cmdUndo

Class: zzz
Baseclass: zzz
Properties Methods Objects

frmVFXLock.CNTSPEEDBAR.cmdrecordcopy

Class: zzz
Baseclass: zzz
Properties Methods Objects

frmVFXLock.CNTSPEEDBAR.oBorder

Class: zzz
Baseclass: zzz
Properties Methods Objects

frmVFXLock.lblMsgEmpty

Class: zzz
Baseclass: zzz
Properties Methods Objects

frmVFXLock.pgfPageFrame

Class: zzz
Baseclass: zzz
Properties Methods Objects

Properties

Name	Initial value
ErasePage	.T.

Objects

Baseclass	Class	Object name
zzz	zzz	frmVFXLock.pgfPageFrame.Page1
		frmVFXLock.pgfPageFrame.Page2

frmVFXLock.pgfPageFrame.Page1

Class: zzz
Baseclass: zzz
Properties Methods Objects

Objects

Baseclass	Class	Object name
zzz	zzz	frmVFXLock.pgfPageFrame.Page1.cmdDelAll
		frmVFXLock.pgfPageFrame.Page1.lblDate
		frmVFXLock.pgfPageFrame.Page1.lblRecord
		frmVFXLock.pgfPageFrame.Page1.lblTable
		frmVFXLock.pgfPageFrame.Page1.lblTime
		frmVFXLock.pgfPageFrame.Page1.lblUser
		frmVFXLock.pgfPageFrame.Page1.txtdate
		frmVFXLock.pgfPageFrame.Page1.txterror
		frmVFXLock.pgfPageFrame.Page1.txttime
		frmVFXLock.pgfPageFrame.Page1.txttype
		frmVFXLock.pgfPageFrame.Page1.txtuser

frmVFXLock.pgfPageFrame.Page1.cmdDelAll

Class: zzz
Baseclass: zzz
Properties Methods Objects

frmVFXLock.pgfPageFrame.Page1.lblDate

Class: zzz
Baseclass: zzz
Properties Methods Objects

frmVFXLock.pgfPageFrame.Page1.lblRecord

Class: zzz
Baseclass: zzz
Properties Methods Objects

frmVFXLock.pgfPageFrame.Page1.lblTable

Class: zzz
Baseclass: zzz
Properties Methods Objects

frmVFXLock.pgfPageFrame.Page1.lblTime

Class: zzz
Baseclass: zzz
Properties Methods Objects

frmVFXLock.pgfPageFrame.Page1.lblUser

Class: zzz
Baseclass: zzz
Properties Methods Objects

frmVFXLock.pgfPageFrame.Page1.txtdate

Class: zzz
Baseclass: zzz
Properties Methods Objects

frmVFXLock.pgfPageFrame.Page1.txterror

Class: zzz
Baseclass: zzz
Properties Methods Objects

frmVFXLock.pgfPageFrame.Page1.txttime

Class: zzz
Baseclass: zzz
Properties Methods Objects

frmVFXLock.pgfPageFrame.Page1.txttype

Class: zzz
Baseclass: zzz
Properties Methods Objects

frmVFXLock.pgfPageFrame.Page1.txtuser

Class: zzz
Baseclass: zzz
Properties Methods Objects

frmVFXLock.pgfPageFrame.Page2

Class: zzz
Baseclass: zzz
Properties Methods Objects

Objects

Baseclass	Class	Object name
zzz	zzz	frmVFXLock.pgfPageFrame.Page2.grdGrid

frmVFXLock.pgfPageFrame.Page2.grdGrid

Class: zzz
Baseclass: zzz
Properties Methods Objects

Properties

Name	Initial value
ColumnCount	5
Panel	1
ReadOnly	.T.
RecordSource	"VFXLOCK"

Objects

Baseclass	Class	Object name
zzz	zzz	frmVFXLock.pgfPageFrame.Page2.grdGrid.Column1
		frmVFXLock.pgfPageFrame.Page2.grdGrid.Column2
		frmVFXLock.pgfPageFrame.Page2.grdGrid.Column3
		frmVFXLock.pgfPageFrame.Page2.grdGrid.Column4
		frmVFXLock.pgfPageFrame.Page2.grdGrid.Column5

frmVFXLock.pgfPageFrame.Page2.grdGrid.Column1

Class: zzz
Baseclass: zzz
Properties Methods Objects

Properties

Name	Initial value
ControlSource	"vfxlock.table"
FontBold	.F.
FontName	"Arial"
FontSize	8
ReadOnly	.T.

Objects

Baseclass	Class	Object name
header	header	frmVFXLock.pgfPageFrame.Page2.grdGrid.Column1.Header1
textbox	textbox	frmVFXLock.pgfPageFrame.Page2.grdGrid.Column1.Text1

frmVFXLock.pgfPageFrame.Page2.grdGrid.Column1.Header1

Class: header
Baseclass: header
Properties Methods Objects

Properties

Name	Initial value
Caption	"Table"
FontBold	.F.
FontName	"Arial"
FontSize	8

Methods

frmVFXLock.pgfPageFrame.Page2.grdGrid.Column1.Header1.DblClick
this.Parent.Parent.OnSetOrder(this.Parent)

frmVFXLock.pgfPageFrame.Page2.grdGrid.Column1.Text1

Class: textbox
Baseclass: textbox
Properties Methods Objects

Properties

Name	Initial value
BorderStyle	0
ColorSource	3
Comment	"vfxlock.table"
FontBold	.F.
FontName	"Arial"
FontSize	8
ForeColor	0,0,0
Margin	0

Methods

frmVFXLock.pgfPageFrame.Page2.grdGrid.Column1.Text1.DblClick
IF !thisForm.lEmpty
      IF !(TYPE("this.ControlSource") $ "MG")
        thisForm.OnEdit()
          NODEFAULT
      ENDIF
ENDIF
frmVFXLock.pgfPageFrame.Page2.grdGrid.Column1.Text1.KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl

this.Parent.Parent.oControl = this

IF this.Parent.Parent.OnKeyPress( nKeyCode, nShiftAltCtrl)
NODEFAULT
ENDIF

this.Parent.Parent.oControl = .NULL.

frmVFXLock.pgfPageFrame.Page2.grdGrid.Column2

Class: zzz
Baseclass: zzz
Properties Methods Objects

Properties

Name	Initial value
ControlSource	"vfxlock.record"
FontBold	.F.
FontName	"Arial"
FontSize	8
ReadOnly	.T.
Sparse	.F.

Objects

Baseclass	Class	Object name
header	header	frmVFXLock.pgfPageFrame.Page2.grdGrid.Column2.Header1
textbox	textbox	frmVFXLock.pgfPageFrame.Page2.grdGrid.Column2.Text1

frmVFXLock.pgfPageFrame.Page2.grdGrid.Column2.Header1

Class: header
Baseclass: header
Properties Methods Objects

Properties

Name	Initial value
Caption	"Record"
FontBold	.F.
FontName	"Arial"
FontSize	8

Methods

frmVFXLock.pgfPageFrame.Page2.grdGrid.Column2.Header1.DblClick
this.Parent.Parent.OnSetOrder(this.Parent)

frmVFXLock.pgfPageFrame.Page2.grdGrid.Column2.Text1

Class: textbox
Baseclass: textbox
Properties Methods Objects

Properties

Name	Initial value
BorderStyle	0
ColorSource	3
Comment	"vfxlock.record"
FontBold	.F.
FontName	"Arial"
FontSize	8
ForeColor	0,0,0
InputMask	"9999999999"
Margin	0

Methods

frmVFXLock.pgfPageFrame.Page2.grdGrid.Column2.Text1.DblClick
IF !thisForm.lEmpty
      IF !(TYPE("this.ControlSource") $ "MG")
        thisForm.OnEdit()
          NODEFAULT
      ENDIF
ENDIF
frmVFXLock.pgfPageFrame.Page2.grdGrid.Column2.Text1.KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl

this.Parent.Parent.oControl = this

IF this.Parent.Parent.OnKeyPress( nKeyCode, nShiftAltCtrl)
NODEFAULT
ENDIF

this.Parent.Parent.oControl = .NULL.

frmVFXLock.pgfPageFrame.Page2.grdGrid.Column3

Class: zzz
Baseclass: zzz
Properties Methods Objects

Properties

Name	Initial value
ControlSource	"vfxlock.user_name"
FontBold	.F.
FontName	"Arial"
FontSize	8
ReadOnly	.T.

Objects

Baseclass	Class	Object name
header	header	frmVFXLock.pgfPageFrame.Page2.grdGrid.Column3.Header1
textbox	textbox	frmVFXLock.pgfPageFrame.Page2.grdGrid.Column3.Text1

frmVFXLock.pgfPageFrame.Page2.grdGrid.Column3.Header1

Class: header
Baseclass: header
Properties Methods Objects

Properties

Name	Initial value
Caption	"User"
FontBold	.F.
FontName	"Arial"
FontSize	8

Methods

frmVFXLock.pgfPageFrame.Page2.grdGrid.Column3.Header1.DblClick
this.Parent.Parent.OnSetOrder(this.Parent)

frmVFXLock.pgfPageFrame.Page2.grdGrid.Column3.Text1

Class: textbox
Baseclass: textbox
Properties Methods Objects

Properties

Name	Initial value
BorderStyle	0
ColorSource	3
Comment	"vfxlock.user_name"
FontBold	.F.
FontName	"Arial"
FontSize	8
ForeColor	0,0,0
Margin	0

Methods

frmVFXLock.pgfPageFrame.Page2.grdGrid.Column3.Text1.DblClick
IF !thisForm.lEmpty
      IF !(TYPE("this.ControlSource") $ "MG")
        thisForm.OnEdit()
          NODEFAULT
      ENDIF
ENDIF
frmVFXLock.pgfPageFrame.Page2.grdGrid.Column3.Text1.KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl

this.Parent.Parent.oControl = this

IF this.Parent.Parent.OnKeyPress( nKeyCode, nShiftAltCtrl)
NODEFAULT
ENDIF

this.Parent.Parent.oControl = .NULL.

frmVFXLock.pgfPageFrame.Page2.grdGrid.Column4

Class: zzz
Baseclass: zzz
Properties Methods Objects

Properties

Name	Initial value
ControlSource	"vfxlock.date"
FontBold	.F.
FontName	"Arial"
FontSize	8
ReadOnly	.T.

Objects

Baseclass	Class	Object name
header	header	frmVFXLock.pgfPageFrame.Page2.grdGrid.Column4.Header1
textbox	textbox	frmVFXLock.pgfPageFrame.Page2.grdGrid.Column4.Text1

frmVFXLock.pgfPageFrame.Page2.grdGrid.Column4.Header1

Class: header
Baseclass: header
Properties Methods Objects

Properties

Name	Initial value
Caption	"Date"
FontBold	.F.
FontName	"Arial"
FontSize	8

Methods

frmVFXLock.pgfPageFrame.Page2.grdGrid.Column4.Header1.DblClick
this.Parent.Parent.OnSetOrder(this.Parent)

frmVFXLock.pgfPageFrame.Page2.grdGrid.Column4.Text1

Class: textbox
Baseclass: textbox
Properties Methods Objects

Properties

Name	Initial value
BorderStyle	0
ColorSource	3
Comment	"vfxlock.date"
FontBold	.F.
FontName	"Arial"
FontSize	8
ForeColor	0,0,0
Margin	0

Methods

frmVFXLock.pgfPageFrame.Page2.grdGrid.Column4.Text1.DblClick
IF !thisForm.lEmpty
      IF !(TYPE("this.ControlSource") $ "MG")
        thisForm.OnEdit()
          NODEFAULT
      ENDIF
ENDIF
frmVFXLock.pgfPageFrame.Page2.grdGrid.Column4.Text1.KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl

this.Parent.Parent.oControl = this

IF this.Parent.Parent.OnKeyPress( nKeyCode, nShiftAltCtrl)
NODEFAULT
ENDIF

this.Parent.Parent.oControl = .NULL.

frmVFXLock.pgfPageFrame.Page2.grdGrid.Column5

Class: zzz
Baseclass: zzz
Properties Methods Objects

Properties

Name	Initial value
ControlSource	"vfxlock.time"
FontBold	.F.
FontName	"Arial"
FontSize	8
ReadOnly	.T.

Objects

Baseclass	Class	Object name
header	header	frmVFXLock.pgfPageFrame.Page2.grdGrid.Column5.Header1
textbox	textbox	frmVFXLock.pgfPageFrame.Page2.grdGrid.Column5.Text1

frmVFXLock.pgfPageFrame.Page2.grdGrid.Column5.Header1

Class: header
Baseclass: header
Properties Methods Objects

Properties

Name	Initial value
Caption	"Time"
FontBold	.F.
FontName	"Arial"
FontSize	8

Methods

frmVFXLock.pgfPageFrame.Page2.grdGrid.Column5.Header1.DblClick
this.Parent.Parent.OnSetOrder(this.Parent)

frmVFXLock.pgfPageFrame.Page2.grdGrid.Column5.Text1

Class: textbox
Baseclass: textbox
Properties Methods Objects

Properties

Name	Initial value
BorderStyle	0
ColorSource	3
Comment	"vfxlock.time"
FontBold	.F.
FontName	"Arial"
FontSize	8
ForeColor	0,0,0
Margin	0

Methods

frmVFXLock.pgfPageFrame.Page2.grdGrid.Column5.Text1.DblClick
IF !thisForm.lEmpty
      IF !(TYPE("this.ControlSource") $ "MG")
        thisForm.OnEdit()
          NODEFAULT
      ENDIF
ENDIF
frmVFXLock.pgfPageFrame.Page2.grdGrid.Column5.Text1.KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl

this.Parent.Parent.oControl = this

IF this.Parent.Parent.OnKeyPress( nKeyCode, nShiftAltCtrl)
NODEFAULT
ENDIF

this.Parent.Parent.oControl = .NULL.