Dec 192017
 
DBASE-IV Tutorial Part 3 of 3.
File DB4LESS3.ZIP from The Programmer’s Corner in
Category Dbase Source Code
DBASE-IV Tutorial Part 3 of 3.
File Name File Size Zip Size Zip Type
BACKUP.PRG 20 18 deflated
CATALOG.CAT 969 325 deflated
CUSTEXAM.APP 1029 334 deflated
CUSTEXAM.PRG 16853 5350 deflated
CUSTMENU.BAR 966 353 deflated
CUSTMENU.PRG 3155 1205 deflated
CUSTOMER.APP 1078 377 deflated
CUSTOMER.DBF 1264 589 deflated
CUSTOMER.DBT 2560 183 deflated
CUSTOMER.FMT 1950 696 deflated
CUSTOMER.FRG 4366 1754 deflated
CUSTOMER.FRM 2558 777 deflated
CUSTOMER.LBG 5199 1757 deflated
CUSTOMER.LBL 1445 486 deflated
CUSTOMER.MDX 6145 1757 deflated
CUSTOMER.PRG 16255 4840 deflated
CUSTOMER.SCR 2336 769 deflated
DATAENT.POP 1251 473 deflated
DATARET.POP 1086 423 deflated
DB4READ.ME 3814 994 deflated
EMP.APP 867 268 deflated
EMP.DBF 3600 1319 deflated
EMP.DBT 9728 630 deflated
EMP.FMT 2323 856 deflated
EMP.FRG 4670 1870 deflated
EMP.FRM 2947 900 deflated
EMP.LBG 4801 1706 deflated
EMP.LBL 1407 477 deflated
EMP.MDX 14336 1597 deflated
EMP.PRG 15971 4785 deflated
EMP.SCR 3255 1077 deflated
EMPLOYEE.CAT 1693 371 deflated
EMPPHONE.FRG 4550 1828 deflated
EMPPHONE.FRM 1814 650 deflated
EMPPROG.QBE 3373 1029 deflated
EMPRATE.APP 899 290 deflated
EMPRATE.DBF 490 172 deflated
EMPRATE.FMT 1405 553 deflated
EMPRATE.FRG 6697 2383 deflated
EMPRATE.FRM 2615 905 deflated
EMPRATE.MDX 4097 1255 deflated
EMPRATE.PRG 7883 2707 deflated
EMPRATE.QBE 4316 1345 deflated
EMPRATE.SCR 1018 457 deflated
FUNCODE.APP 1035 346 deflated
FUNCODE.DBF 308 200 deflated
FUNCODE.FMT 1370 525 deflated
FUNCODE.FRG 4009 1656 deflated
FUNCODE.FRM 1400 531 deflated
FUNCODE.MDX 8192 704 deflated
FUNCODE.PRG 15125 4724 deflated
FUNCODE.SCR 813 370 deflated
INVOICE.FRG 7198 2587 deflated
INVOICE.FRM 4143 1457 deflated
INVOICE.PRF 698 36 deflated
INVOICE.QBE 5804 1924 deflated
JOB.APP 852 261 deflated
JOB.DBF 987 406 deflated
JOB.FMT 1699 651 deflated
JOB.FRG 5259 2010 deflated
JOB.FRM 3130 1046 deflated
JOB.MDX 10240 920 deflated
JOB.PRG 14882 4683 deflated
JOB.SCR 2081 728 deflated
JOBCOST.CAT 10743 1521 deflated
JOBHRSRT.QBE 5567 1787 deflated
JOBMENU.APP 923 355 deflated
JOBMENU.DOC 24960 3219 deflated
JOBMENU.PRG 21076 6280 deflated
JOBSTAT.FRG 8796 2834 deflated
JOBSTAT.FRM 5167 1486 deflated
JOBSTAT.PRF 698 39 deflated
JOBSTAT.QBE 6837 2202 deflated
LABELS.POP 922 291 deflated
MAINBAR.BAR 1620 719 deflated
MAINBAR.PRG 25005 2961 deflated
MARK.UPD 3321 979 deflated
OTHEROPT.POP 1226 531 deflated
PROGFLDS.STR 814 264 deflated
REPORTS.POP 1297 485 deflated
REVIEW.POP 969 370 deflated
RRUNOUT.DBF 288 120 deflated
SCANDEMO.PRG 109 85 deflated
SQLDEMO.PRS 394 212 deflated
TIME.APP 855 263 deflated
TIME.DBF 2767 551 deflated
TIME.FMT 1931 772 deflated
TIME.FRG 6262 2308 deflated
TIME.FRM 2293 780 deflated
TIME.MDX 25600 3964 deflated
TIME.PRG 14609 4641 deflated
TIME.SCR 1695 752 deflated
TIMEEDIT.VUE 188 101 deflated
TRANPROC.PRG 1336 646 deflated
UNMARK.UPD 3296 972 deflated
UNTITLED.CAT 607 173 deflated

Download File DB4LESS3.ZIP Here

Contents of the JOBMENU.DOC file


Page: 1 Date: 12-04-88


Application Documentation for System: JOBMENU.PRG

Application Author: Bruce Troutman
Copyright Notice..: Interco International, Ltd.
dBASE Version.....: dBase IV


Display Application Sign-On Banner: No

Main Menu to Open : MAINBAR.BAR

Sets for Application:
---------------------
Bell ON
Carry OFF
Centry OFF
Confirm OFF
Delimiters OFF
Display Size 25 lines
Drive
Escape ON
Path
Safety ON

Starting Colors for Application:
--------------------------------
Color Settings:
Text : W+/B
Heading : W/B
Highlight : B/W
Box : B/W
Messages : W+/N
Information : B/W
Fields : B/W

Database/View: TIME

===============================================================================

Menu/Picklist definitions follow:
---------------------------------

Page: 2 Date: 12-04-88

Layout Report for Horizontal Bar Menu: MAINBAR
----------------------------------------------

Screen Image:
0 10 20 30 40 50 60 70
>.....+....|....+....|....+....|....+....|....+....|....+....|....+....|....+.
00:
01:
02:
03:
04:
05: Data Entry Retrieval Other Options Exit
06:
07:
08:
09:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
>.....+....|....+....|....+....|....+....|....+....|....+....|....+....|....+.

Setup for MAINBAR follows:
--------------------------

Description: Main Menu for Job Cost System
Message Line Prompt for Menu: MAIN MENU

Colors for Menu/Picklist:
-------------------------
Color Settings:
Text : W+/B
Heading : W/B
Highlight : B/W
Box : B/W
Messages : W+/N
Information : B/W
Fields : B/W


Help Defined for Menu MAINBAR:
------------------------------


HELP -- JOB COST SYSTEM MAIN MENU


Page: 3 Date: 12-04-88 10:43a


You may use your information by selecting one of the following:


DATA ENTRY - ADD, CHANGE, DELETE INFORMATION


RETRIEVAL - REPORTS, INVOICES, BROWSING


OTHER OPTIONS - BACK UP, COPY TO LOTUS AND WORD PROCESSORS

Before Menu dBASE Code MAINBAR:
-------------------------------
SET NEAR ON
@ 0,0
TEXT

J O B C O S T S Y S T E M
ENDTEXT
@ 1,20 to 3,60 DOUBLE

After Menu dBASE Code MAINBAR:
-------------------------------
SET NEAR OFF

Bar actions for Menu MAINBAR follow:
------------------------------------
Bar: 1
Prompt: Data Entry
Action: Open a Popup Menu Named: DATAENT
Message Line Prompt for Item: Add, Change, Delete Menu
--------------------------------------------------------------------------------

Bar: 2
Prompt: Retrieval
Action: Open a Popup Menu Named: DATARET
Message Line Prompt for Item: Reports, Labels and Review Menu
--------------------------------------------------------------------------------

Bar: 3
Prompt: Other Options
Action: Open a Popup Menu Named: OTHEROPT
Message Line Prompt for Item: Maintenance and Copying Options
--------------------------------------------------------------------------------

Bar: 4
Prompt: Exit
Action: Return to calling program
Message Line Prompt for Item: Exit From Job Cost System
--------------------------------------------------------------------------------


Page: 4 Date: 12-04-88

Layout Report for Popup Menu: DATAENT
-------------------------------------

Screen Image:
0 10 20 30 40 50 60 70
>.....+....|....+....|....+....|....+....|....+....|....+....|....+....|....+.
00:
01:
02:
03:
04:
05:
06:
07:
08: Time Slips
09: Jobs
10: Customers
11: Employees
12: Billing Rates
13: Function Codes
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
>.....+....|....+....|....+....|....+....|....+....|....+....|....+....|....+.

Setup for DATAENT follows:
--------------------------

Description: Data Entry Menu for Job Cost System
Message Line Prompt for Menu: DATA ENTRY MENU FOR JOB COST SYSTEM

Use database/view and index file(s) in effect at run time.

Colors for Menu/Picklist:
-------------------------
Color Settings:
Text : W+/B
Heading : W/B
Highlight : B/W
Box : B/W
Messages : W+/N
Information : B/W
Fields : B/W


Bar actions for Menu DATAENT follow:
------------------------------------
Bar: 1
Prompt: Time Slips

Page: 5 Date: 12-04-88 10:44a


Action: Run dBASE Program: DO TIME
Message Line Prompt for Item: Time Slip File Manager

After dBASE Code for this item:
--------------------------------
close databases
--------------------------------------------------------------------------------

Bar: 2
Prompt: Jobs
Action: Run dBASE Program: DO JOB
Message Line Prompt for Item: Job File Manager
--------------------------------------------------------------------------------

Bar: 3
Prompt: Customers
Action: Run dBASE Program: DO CUSTOMER
Message Line Prompt for Item: Customer File Manager
--------------------------------------------------------------------------------

Bar: 4
Prompt: Employees
Action: Run dBASE Program: DO EMP
Message Line Prompt for Item: Employee File Manager
--------------------------------------------------------------------------------

Bar: 5
Prompt: Billing Rates
Action: Run dBASE Program: DO EMPRATE
Bypass item on condition: ACCESS()<8
Message Line Prompt for Item: Billing Rate File Manager
--------------------------------------------------------------------------------

Bar: 6
Prompt: Function Codes
Action: Run dBASE Program: DO FUNCODE
Message Line Prompt for Item: Function Code File Manager
--------------------------------------------------------------------------------


Page: 6 Date: 12-04-88

Layout Report for Popup Menu: DATARET
-------------------------------------

Screen Image:
0 10 20 30 40 50 60 70
>.....+....|....+....|....+....|....+....|....+....|....+....|....+....|....+.
00:
01:
02:
03:
04:
05:
06:
07:
08: Reports
09: Browse Data
10: Labels
11: Invoices
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
>.....+....|....+....|....+....|....+....|....+....|....+....|....+....|....+.

Setup for DATARET follows:
--------------------------

Description: Data Retrieval Menu for Job Cost System
Message Line Prompt for Menu: DATA RETRIEVAL MENU FOR JOB COST SYSTEM

Colors for Menu/Picklist:
-------------------------
Color Settings:
Text : W+/B
Heading : W/B
Highlight : B/W
Box : B/W
Messages : W+/N
Information : B/W
Fields : B/W


Bar actions for Menu DATARET follow:
------------------------------------
Bar: 1
Prompt: Reports
Action: Open a Popup Menu Named: REPORTS
Message Line Prompt for Item: Reports Menu

Page: 7 Date: 12-04-88 10:44a

--------------------------------------------------------------------------------

Bar: 2
Prompt: Browse Data
Action: Open a Popup Menu Named: REVIEW
Message Line Prompt for Item: Review Menu
--------------------------------------------------------------------------------

Bar: 3
Prompt: Labels
Action: Open a Popup Menu Named: LABELS
Message Line Prompt for Item: Labels Menu
--------------------------------------------------------------------------------

Bar: 4
Prompt: Invoices
Action: Run Report Form INVOICE.frm
Command Options:

NOEJECT
Print Mode: Ask User at Runtime
Message Line Prompt for Item: Produce Invoices
New Database/View: INVOICE.QBE
--------------------------------------------------------------------------------


Page: 8 Date: 12-04-88

Layout Report for Popup Menu: OTHEROPT
--------------------------------------

Screen Image:
0 10 20 30 40 50 60 70
>.....+....|....+....|....+....|....+....|....+....|....+....|....+....|....+.
00:
01:
02:
03:
04:
05:
06:
07:
08: Back up Data Files
09: Copy Time to Lotus
10: Copy Emp to ASCII
11: Go to DOS
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
>.....+....|....+....|....+....|....+....|....+....|....+....|....+....|....+.

Setup for OTHEROPT follows:
---------------------------

Description: Other Options Menu
Message Line Prompt for Menu: Maintenance and Copying Options

Colors for Menu/Picklist:
-------------------------
Color Settings:
Text : W+/B
Heading : W/B
Highlight : B/W
Box : B/W
Messages : W+/N
Information : B/W
Fields : B/W


Bar actions for Menu OTHEROPT follow:
-------------------------------------
Bar: 1
Prompt: Back up Data Files
Action: Run dBASE Program: DO BACKUP
Message Line Prompt for Item: Back Up Data Files

Page: 9 Date: 12-04-88 10:44a

--------------------------------------------------------------------------------

Bar: 2
Prompt: Copy Time to Lotus
Action: Copy Records to File time.wks
Command Options:

Type of file: WKS
Message Line Prompt for Item: Create Lotus File: TIME.WKS
New Database/View: TIME
--------------------------------------------------------------------------------

Bar: 3
Prompt: Copy Emp to ASCII
Action: Copy Records to File emp.txt
Command Options:
FIELDS FNAME,LNAME,ADDRESS,CITY,STATE,ZIP,PHONE
Type of file: SDF
Message Line Prompt for Item: Create Employee List ASCII File: EMP.TXT
New Database/View: EMP
New Index File(s): EMP
New Index Order: NAME
--------------------------------------------------------------------------------

Bar: 4
Prompt: Go to DOS
Action: Insert the following dBASE code:
----------------------------------------

RUN COMMAND
Message Line Prompt for Item: Go to DOS Command Prompt. Type EXIT to Return to Job Cost System.
--------------------------------------------------------------------------------


Page: 10 Date: 12-04-88

Layout Report for Popup Menu: REPORTS
-------------------------------------

Screen Image:
0 10 20 30 40 50 60 70
>.....+....|....+....|....+....|....+....|....+....|....+....|....+....|....+.
00:
01:
02:
03:
04:
05:
06:
07:
08:
09:
10:
11:
12:
13:
14: Job Status Report
15: Employee Phone Report
16: Customer Report
17: Job Report
18: Function Code Listing
19:
20:
21:
22:
23:
24:
>.....+....|....+....|....+....|....+....|....+....|....+....|....+....|....+.

Setup for REPORTS follows:
--------------------------

Description: Reports Menu for Job Cost System
Message Line Prompt for Menu: Reports Menu for Job Cost System

Colors for Menu/Picklist:
-------------------------
Color Settings:
Text : W+/B
Heading : W/B
Highlight : B/W
Box : B/W
Messages : W+/N
Information : B/W
Fields : B/W


Bar actions for Menu REPORTS follow:
------------------------------------
Bar: 1
Prompt: Job Status Report
Action: Run Report Form JOBSTAT.frm
Print Mode: Ask User at Runtime

Page: 11 Date: 12-04-88 10:44a

Message Line Prompt for Item: Produce Job Status Report for Incomplete Jobs
New Database/View: JOBSTAT.QBE
--------------------------------------------------------------------------------

Bar: 2
Prompt: Employee Phone Report
Action: Run Report Form EMP.frm
Print Mode: Ask User at Runtime
Message Line Prompt for Item: Produce Employee Phone List Report
New Database/View: EMP
New Index File(s): EMP
New Index Order: NAME
--------------------------------------------------------------------------------

Bar: 3
Prompt: Customer Report
Action: Text only defined for this option - NO ACTION
Message Line Prompt for Item: Produce Customer Report
New Database/View: CUSTOMER
New Index File(s): CUSTOMER
New Index Order: CUSTNAME
--------------------------------------------------------------------------------

Bar: 4
Prompt: Job Report
Action: Text only defined for this option - NO ACTION
Message Line Prompt for Item: Produce Job Report
New Database/View: JOB
New Index File(s): JOB
New Index Order: JOBID
--------------------------------------------------------------------------------

Bar: 5
Prompt: Function Code Listing
Action: Display Records
Print Mode: Ask User at Runtime
Message Line Prompt for Item: Produce Function Code List
New Database/View: FUNCODE
New Index File(s): FUNCODE
New Index Order: FUNCODE
--------------------------------------------------------------------------------


Page: 12 Date: 12-04-88

Layout Report for Popup Menu: REVIEW
------------------------------------

Screen Image:
0 10 20 30 40 50 60 70
>.....+....|....+....|....+....|....+....|....+....|....+....|....+....|....+.
00:
01:
02:
03:
04:
05:
06:
07:
08:
09:
10:
11:
12:
13:
14: Programming Dept
15: Billing Rates
16:
17:
18:
19:
20:
21:
22:
23:
24:
>.....+....|....+....|....+....|....+....|....+....|....+....|....+....|....+.

Setup for REVIEW follows:
-------------------------

Description: Review Menu for Job Cost System
Message Line Prompt for Menu: Review Menu for Job Cost System

Colors for Menu/Picklist:
-------------------------
Color Settings:
Text : W+/B
Heading : W/B
Highlight : B/W
Box : B/W
Messages : W+/N
Information : B/W
Fields : B/W



Bar actions for Menu REVIEW follow:
-----------------------------------
Bar: 1
Prompt: Programming Dept
Action: Open a Sturcture Picklist Named: PROGFLDS
Message Line Prompt for Item: Employees who are in Programming Department

Page: 13 Date: 12-04-88 10:44a

New Database/View: EMPPROG.QBE
--------------------------------------------------------------------------------

Bar: 2
Prompt: Billing Rates
Action: Browse File
Command Options:
NOAPPEND NODELETE NOEDIT

Message Line Prompt for Item: Employees and their Billing Rates
New Database/View: EMPRATE.QBE
--------------------------------------------------------------------------------


Page: 14 Date: 12-04-88

Layout Report for Popup Menu: LABELS
------------------------------------

Screen Image:
0 10 20 30 40 50 60 70
>.....+....|....+....|....+....|....+....|....+....|....+....|....+....|....+.
00:
01:
02:
03:
04:
05:
06:
07:
08:
09:
10:
11:
12:
13:
14: Employee Labels
15: Customer Labels
16:
17:
18:
19:
20:
21:
22:
23:
24:
>.....+....|....+....|....+....|....+....|....+....|....+....|....+....|....+.

Setup for LABELS follows:
-------------------------

Description: Labels Menu
Message Line Prompt for Menu: Labels Menu

Colors for Menu/Picklist:
-------------------------
Color Settings:
Text : W+/B
Heading : W/B
Highlight : B/W
Box : B/W
Messages : W+/N
Information : B/W
Fields : B/W


Bar actions for Menu LABELS follow:
-----------------------------------
Bar: 1
Prompt: Employee Labels
Action: Run Label Form EMP.lbl
Command Options:
FOR ACTIVE

Page: 15 Date: 12-04-88 10:44a

Print Mode: Ask User at Runtime
Message Line Prompt for Item: Produce Mailing Labels for Employees
New Database/View: EMP
New Index Order: NAME
--------------------------------------------------------------------------------

Bar: 2
Prompt: Customer Labels
Action: Run Label Form CUSTOMER.lbl
Print Mode: Ask User at Runtime
Message Line Prompt for Item: Produce Mailing Labels for Customers
New Database/View: CUSTOMER
New Index File(s): CUSTOMER
New Index Order: CUSTNAME
--------------------------------------------------------------------------------


Page: 16 Date: 12-04-88

Layout Report for PROGFLDS
--------------------------

Screen Image:
0 10 20 30 40 50 60 70
>.....+....|....+....|....+....|....+....|....+....|....+....|....+....|....+.
00:
01:
02:
03:
04:
05:
06: XXXXXXXXXXXXXX
07:
08:
09:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
>.....+....|....+....|....+....|....+....|....+....|....+....|....+....|....+.

Setup for PROGFLDS follows:
---------------------------

Description: Fields for PROG Dept View
Message Line Prompt for Menu: Fields for PROG Department View

Database/View: EMPPROG.QBE

Colors for Menu/Picklist:
-------------------------
Color Settings:
Text : W+/B
Heading : W/B
Highlight : B/W
Box : B/W
Messages : W+/N
Information : B/W
Fields : B/W

Picklist specification for PROGFLDS follows:
--------------------------------------------
Structure Picklist
------------------
Field Specification:


Page: 17 Date: 12-04-88 10:45a

Prompt: XXXXXXXXXXXXXX
Action: Browse File
Command Options:
FIELDS &LISTVAL

Message Line Prompt for Item: Review Employees in the Programming Department
--------------------------------------------------------------------------------


End of Application Documentation


 December 19, 2017  Add comments

Leave a Reply