Software Du Jour/SoftwareDuJour.iso/BUSINESS/DBASE/VIEWGEN.ARC/DEMOQUIK.VGT

Text File | 1985-08-22 | 7KB | 544 lines

ClearBox( 19,10,21,72 )
Color( 14 )
Say( 20,24,'Press the SPACEBAR to continue.' )
GetChar( ' ' )
ClearBox( 5,10,20,72 );
Text( 6,10 )

  PURPOSE:   ViewGen is a screen design tool and program
             generator for dBASE III version 1.1, Clipper
             (Summer, 1985), and the Developer's Release.

  FEATURES:  ViewGen produces a dBASE III DATA ENTRY
             application complete with Append, Edit/View,
             and Pack operations.  The Edit/View option
             has Find, Goto, Locate, and several other
             selections.  ViewGen can also produce Format
             Files (.FMT).
EndText
GetChar( ' ' )
Returnkey
Delay( 10 )
* ---FORMS VIEW.
Delay( 10 )
ClearBox( 2,45,6,79,112 )
Color( 112 )
BoxText( 2,45 )

  This is the Forms View screen.
EndText
Delay( 30 )
CtrlPgUp
ClearBox( 2,50,12,79,112 )
BoxText( 2,50 )
  In Forms View you can:

        EDIT,
        SELECT,
        DRAG,
        Toggle,
        Insert TEXT,
        Center, and
        RESEQUENCE
EndText
Delay( 100 )
CtrlPgUp
ClearBox( 2,45,6,79,112 )
BoxText( 2,45 )

  First, let us EDIT the fields.
EndText
Delay( 40 )
PutDelay( 3 )
CtrlPgUp
* Firstname.
' '
Rightarrow
Rightarrow
Rightarrow
Rightarrow
Rightarrow
' '
Returnkey
Downarrow
PutDelay( 1 )
* Lastname.
' '
Rightarrow
Rightarrow
Rightarrow
Rightarrow
' '
Returnkey
Downarrow
* Jobtitle.
' '
Rightarrow
Rightarrow
Rightarrow
' '
Endkey
' '
' '
' '
' '
' '
Returnkey
Downarrow
* Deptcode.
' '
Rightarrow
Rightarrow
Rightarrow
'a'
'r'
Rightarrow
'm'
'e'
'n'
't'
' '
Endkey
Backspace
Returnkey
Downarrow
* Salary.
' '
'C'
'u'
'r'
'r'
'e'
'n'
't'
' '
Endkey
Backspace
Backspace
Returnkey
Downarrow
* Startdate.
' '
Rightarrow
Rightarrow
Rightarrow
Rightarrow
Rightarrow
'i'
'n'
'g'
' '
Endkey
' '
' '
Returnkey
Downarrow
* Address.
' '
Endkey
Backspace
Backspace
Returnkey
Downarrow
* City
' '
Endkey
Backspace
Backspace
Returnkey
Downarrow
* State
' '
Endkey
Backspace
Backspace
Returnkey
Downarrow
* Zip
' '
Endkey
Backspace
Backspace
Returnkey
Downarrow
* Areacode
' '
Rightarrow
Rightarrow
Rightarrow
Rightarrow
Del
Del
Del
Del
Del
Returnkey
Downarrow
* Phone.
' '
Endkey
Backspace
Backspace
Backspace
Backspace
Returnkey
Home
* SELECT and DRAG the groups.
Delay( 10 )
ClearBox( 2,45,5,79,112 )
BoxText( 2,45 )
  Next, let us SELECT and DRAG
  the fields.
EndText
Delay( 40 )
CtrlPgUp
PutDelay( 2 )
* DRAG Area and Phone.
Endkey
F6
Uparrow
F3
CtrlRightarrow
CtrlRightarrow
CtrlRightarrow
CtrlRightarrow
CtrlRightarrow
Rightarrow
Uparrow
Uparrow
Uparrow
Uparrow
Uparrow
Returnkey
Downarrow
F3
CtrlRightarrow
Uparrow
Returnkey
Delay( 10 )
Endkey
* DRAG Address...Phone
Uparrow
Uparrow
Uparrow
Uparrow
Uparrow
F6
Endkey
F3
Downarrow
Downarrow
Downarrow
Downarrow
CtrlRightarrow
Rightarrow
Returnkey
* DRAG Jobtitle...Startdate.
Home
Downarrow
Downarrow
F6
Downarrow
Downarrow
Downarrow
F3
Downarrow
Downarrow
Rightarrow
Rightarrow
Rightarrow
Rightarrow
Returnkey
* DRAG entire screen.
Home
F6
Endkey
F3
Downarrow
Downarrow
Returnkey
Home
* Toggle Area and Phone.
Delay( 20 )
ClearBox( 3,45,6,79,112 )
BoxText( 3,45 )
    Field GETs can be placed
    below the field labels.
EndText
Delay( 40 )
CtrlPgUp
Delay( 10 )
* Toggle Area and Phone.
Endkey
F6
Uparrow
Returnkey
Delay( 15 )
AltT
Delay( 20 )
* DRAG Phone beside Area.
Downarrow
F3
Leftarrow
Leftarrow
Leftarrow
Returnkey
Home
* Inserting Text.
Delay( 15 )
ClearBox( 3,45,5,79,112 )
BoxText( 3,45 )
    We can insert free TEXT.
EndText
Delay( 30 )
CtrlN
Uparrow
Uparrow
PutDelay( 1 )
* Add text to text object.
'E'
'M'
'P'
'L'
'O'
'Y'
'E'
'E'
' '
'D'
'A'
'T'
'A'
'B'
'A'
'S'
'E'
Returnkey
* Centering text.
Delay( 20 )
CtrlPgUp
ClearBox( 3,45,5,79,112 )
BoxText( 3,45 )
    We can CENTER the text.
EndText
Delay( 30 )
AltC
* RESEQUENCE.
Delay( 20 )
ClearBox( 3,45,5,79,112 )
BoxText( 3,45 )
  We can RESEQUENCE the labels.
EndText
Delay( 30 )
ClearBox( 3,45,6,79,112 )
BoxText( 3,45 )
  This allows field selection
  to progress by Row or Column.
EndText
Delay( 30 )
CtrlPgUp
F5
Delay( 20 )
'R'
* Move to Table View.
Delay( 20 )
ClearBox( 3,45,6,79,112 )
BoxText( 3,45 )
   Now, let us look at
       the Table View screen.
EndText
Delay( 50 )
F10
Delay( 10 )
* Inside Table View, introduction.
ClearBox( 7,23,10,58,112 )
BoxText( 7,23 )
   In this view we can add
   PICTURE and RANGE clauses.
EndText
Delay( 40 )
* PICTURE.
ClearBox( 7,23,10,58,112 )
BoxText( 7,23 )
  Let us first add the PICTURE
  clauses.
EndText
Delay( 40 )
CtrlHome
PutDelay( 2 )
Downarrow
Downarrow
Downarrow
Downarrow
Downarrow
Rightarrow
Rightarrow
Rightarrow
Rightarrow
Rightarrow
PutDelay( 2 )
* Salary picture.
' '
'9'
'9'
'9'
','
'9'
'9'
'9'
'.'
'9'
'9'
PutDelay( 2 )
Returnkey
Downarrow
Downarrow
* Areacode picture.
PutDelay( 1 )
' '
'9'
'9'
'9'
PutDelay( 2 )
Returnkey
Downarrow
PutDelay( 1 )
* Phone picture.
' '
'9'
'9'
'9'
'-'
'9'
'9'
'9'
'9'
PutDelay( 2 )
Returnkey
Downarrow
Downarrow
Downarrow
* State picture.
' '
PutDelay( 1 )
'@'
'!'
'A'
PutDelay( 2 )
Returnkey
Downarrow
* Zip picture.
' '
PutDelay( 1 )
'9'
'9'
'9'
'9'
'9'
PutDelay( 2 )
Returnkey
* RANGE.
Delay( 30 )
ClearBox( 7,23,11,58,112 )
BoxText( 7,23 )

   We can also add RANGE clauses.
EndText
Delay( 40 )
CtrlPgUp
Endkey
Downarrow
Downarrow
Downarrow
Downarrow
Downarrow
PutDelay( 1 )
* Salary range.
' '
'5'
'0'
'0'
'0'
','
'2'
'5'
'0'
'0'
'0'
'0'
Returnkey
Downarrow
* Startdate range.
' '
'C'
'T'
'O'
'D'
'('
'"'
'0'
'5'
'/'
'1'
'5'
'/'
'8'
'2'
'"'
')'
','
'D'
'A'
'T'
'E'
'('
')'
Returnkey
PutDelay( 0 )
* CODE generation.
Delay( 20 )
ClearBox( 7,23,10,58,112 )
BoxText( 7,23 )
   We are now ready to generate
   the dBASE III programs.
EndText
Delay( 50 )
CtrlHome
ScrollLock
Delay( 10 )
PutDelay( 5 )
Returnkey
'D'
'E'
'M'
'O'
* Start generating.
Delay( 10 )
PutDelay( 0 )
Returnkey
Delay( 10 )
ScrollLock
Delay( 10 )
ClearBox( 7,23,9,53,112 )
BoxText( 7,23 )
  We will now QUIT ViewGen.
EndText
Delay( 50 )
CtrlHome
ScrollLock
PutDelay( 10 )
Leftarrow
Delay( 10 )
Endkey
'Q'
PutDelay( 1 )
'N'
PutDelay( 10 )
'Y'
*
*
*
*
*
*