Near East University

(1)

1988

Near East University

ac

Engineering

B. _•

t

gıneerıng

•

• Final Year Project

Tittle: Hotel Reservation

Using FoxPro

••

Student: Emad Adnan Aalian

Supervisor: Miss. Besime Erin

(2)

1\l(NO\VLEDGEMEN'J'

firstly I would like to thank

my

dear parents who supported me

through all my life until this moment

Also I would like to thank my supervisor Miss. Besiıııe Eriıı who

\

has provided me with invaluable help and advice through all stages of

my under graduate study. She taught me FoxPro in two courses and

then completed her favor

by

taking the responsibility of supervising

me iıı

my

final graduation project.

Special thanks fo my advisor

1Hr.

Tayseet Al-sluııuıbeleh for his

advises and helping.

Thanks are due to my dearest friend with whom I sheared

everything in life from my first day in Cyprus:

ılf

arwaıı Al-aklırııs.

Particular mention must be made of:

Gökçe Taş/uran.

(3)

ABSTRACT

As the information age has effected every aspect of our life, the

need for computerizing many information systems has raised.

One of the important branches that are affected

by

information

revolution is the database management system.

This project is concerned about using computer program in

hotel management system. It is written using FoxPro programming

language.

which is one of the best and strongest database languages.

mnlete hotal management program, that

in most hotels. such as customer related

rmanon.rooms. employees. goods and many other hotel

management related services,

Before coming to this point, this project, has gone through some

important steps;

First one was the requirements definition, for which I had to go to

ome hotels and study their systems.

The second steps were designing the system and software that is

intended to serve an integrated hotel management system.

The final step was the implementation of the design on the computer

using FoxPro language.

(4)

EXAMPELS OF THE

DATABASES

1. CUSTOMER.DBF

2. EMPLOYEE.DBF

3. SERVICES.DBF

4. ROOM.DBF

5. BUYING GOODS.DBF

6. SELLING GOODS.DBF

••

(5)

CUSTOMER DBF

Name: I hassan I

~ı

'Sa: -ıaıe ·ı I Stııle: s.ıgle I Wllıı!ı.ne; no

i

a.dısldr11: o CNdundr15: o

II

Aıoomtype: single

I

a

wııııııber. 104 ,Aoaıııphoııe:

...

~ 1

o.uxxxxx:ı

I

Coınelndate: 29.12.1999

I

Notes: no Amountpaye: 150 Comoutdate: 05.01.1999 lo ! Name: emad Surname: aalian Natlonatty: palistinian Pass.,. •rtnu: rt5561231 Adress: gazanusitratblockc

I

Birthdate: 18-Cll.1977 Biı H ıplace: palistain

Sex: male State: single Wlfename: no Chlldundr6: o _,, Clıldundr15: o Roorntype: single Roornnumber: 101 Roomphone:

...

Accounnum: 101 CXXXXXXJ Comelndate: 01.01.1999 Notes: nothing Arnountpaye: 400 Cornoutdate: 09.01.1999

(6)

Name: marwan Surname: alakhras Natlonaıty: jordanian Passportnu: ed2358112

Adress: lefkosa KKaymakl Blrthdate: 24.08.1978 Birthplace: amman Sex: male State: married Wlfename: bahar

..

Chlldundr6: o Chldundr15: o Roomtype: shift Roomnumber: 201 Roornphone:

...

' Accounnum: 201 CXXXXXXJ Comelndate: 02.02.1999 Notes: no Amountpaye: 400 Cornoutdate: 10.02.1999 Name: I hagi

-Surname: kahi Natlonalty: romanian Passportnu: re1987456

Adress: romaniapo. streuit

--Blrthdate: 12.12.1~ Birthplace: romania Sex: male State: single Wlfename: no Chlldundr6: o Chldundr15: o Roorntype: single Roornnumber: ~ Roomphone: Accounnum:

:.nnxxxm

Comeindate: 12.02.1999 Notes: no Amountpaye: 200 Cornoutdate: 12.00.1999

(7)

Nmıe: ; s.-a.c.. I I NI

.,_

fll _I

-=

**,"*ess:**

mıw .•: ~: I I Sex: LI

I'

State: II Wtfename: Clıldundr6: _o : CMıtıwıdr15: o Rocımtype: single Rııııanwll.mber: 401 I Roomphone:

...

I

Accounnum: I Comeindate: I Notes: Amountpaye: Comoutdate:

I

Name: Surname: Natıonalty: Passportnu: Adress: Birthdate: Birthplace: Sex: State: Wifename: Chlldundr6: o Chldundr15: _o Roomtype: chift Roomnumber: &J1 Roomphone:

.

..

Accounnum: •; Comeindate: Notes: Arnountpaye: Cornoutdate:

(8)

Name: jem Surname: klarck Natıonalty: usa Passportnu: er1245412

Adress: texas mon.43198 st Blrthdate: 01.03.1955 Birthplace: monterial Sex: male State: married Wlfename: paws Chlldundr6: o Chldundr15: o Roomtype: shift Roomnumber: HE Roomphone: *** Accounnum: 1 C6CXXXXXX) Comelndate: 11.02.1999 Notes: no Amountpaye: an Comoutdate: 11.00.1999 Name: Surname: Natıonalty: Passportnu: I Adress: _l Birthdate: Birthplace:

:

Sex: State: ' •• Wlfename: Chlldundr6: o Chldundr15: o Roomtype: chift I Roomnumber: ~1 R.oomphone: *** Accounnum: Comeindate: Notes: no Amountpaye: I Comoutdate:

_I

(9)

EMPLOYEE DBF

Name: hussin Surname: khalid Idnumber: resaJ2 Workperlod: evening Workhours: 12 Overtime: 3 Salary: 400 Place: reseption Occupation: guarding Name: fatih Surname: mehmet I ldnumber: kil001 Workperlod: morning Workhours: 10 Overtime: o Salary: 500 Place: kitchen Occupation: cooking Name: SUSİ Surname: samy Idnumber: romOJ6 Workperlod: morning

-Workhours: 10 Overtime: 4 Salary: _1'380 Place: rooms Occupation: cleaning

(10)

Name: emad _Name: _hassan

Passportnu: rt5561231 _Passportnu: _pl5454354

Roomnumber: 101 _Roomnumber: ₁₀₄

Roomtype: single _Roomtype: _single

Roomphone:

...

_Roomphone:

...

Position: _Position: _corner-sea

Storey: 1st _Storey: _1st

Empty: N _Empty: _N

Full: y _Full: _y

Deposittyp: 50 _Deposittyp: ₄₀

Name: hagi _Name: _jem

Passportnu: re1987456 _Passportnu: _er1245412

Roomnumber:

eos

••

_Roomnumber: ₁₍₆

Roomtype: single _Roomtype: _shift

Roomphone:

...

_Roomphone:

...

'

Position: mlddel _Position: _corner

Storey: 3rd _Storey: _1st

Empty: N _Empty: _N

Full: y _Full: _y

Deposittyp: 50 _Deposlttyp: ₅₀

Name: hakan _Name: _kalse

Passportnu: tr1245789 _Passportnu: _er-451236

Roomnumber: 103 Roomnumber: 501

Roomtype: single _Roomtype: _sinle

Roomphone:

...

_Roomphone:

...

Position: corner_sea _Position:

Storey: 1st _Storey:

Empty: N _Empty: _N

Full: y _Full: _y

(11)

ROOM DBF

I Name: _Name: I Passportnu: _Passportnu: ! Roomnumber: 301 _Roomnumber: ₁₀₆

Roomtype: chift _Roomtype: _shift

I

Roomphone:

...

_Roomphone:

...

Position: corner _Position: _middel

Storey: 3rd _Storey: _1st Empty: y _Empty: _y Full: N _Full: _N Deposittyp: 50 _Oeposittyp: ₅₀ Name: _Name: Passportnu: _Passportnu: Roomnumber: 401 _Roomnumber: ₁₀₇

Roomtype: single _Roomtype: _shift

Roomphone:

...

_Roomphone:

...

Position: middel _Position: _corner-sea

Storey: 4th _Storey: _1st Empty: y _Empty: _y Full: N _Full: _N Deposittyp: 40 _Deposlttyp: ₅₀ I I Name: _Name: Passportnu: _Passportnu: Roomnumber: 501 _Roomnumber: ₁₀₀

Roomtype: chift _Roomtype: _shift

Roomphone:

...

_Roomphone:

...

I

Position: mlddel _Position: _comer

.

II Storey: 1st _Storey: _1st I' Empty: y _Empty: _y Full: N _Full: _N Deposittyp: 50 _Deposittyp: ₅₀ I

(12)

I

Kind: cheken _Kind: _water

Quantity: 1 &! kg _Quantity: _{2CXX) peices}

Cost: 100.CXXJ _Cost: _100.CXXJ I I ! Purch_date: 07.01.1999 _{Purch_date:} _03.06.1999 I I I

"

Kind: classes Quantity: &J dozen

Cost: &l.CXXJ Purch_date: 04.04.1999

Kind: coca cola Quantity: 1 CXXJ peices Cost: 400.CXXJ Purch_date: 08.04.1999 Kind: meat ! Quantity: DJkg Cost: txXJ.CXXJ Purch_date: 01.02.1999 I Kind: potatose Quantity: 100kg I

I

Cost: &JO.CXXJ I Purch_date: 02.01.1999 I I ! 8

BUYINGDBF

(13)

----

SELLING

Kind: I tace crames

I I~ I :ıear-Qı fly .. 2SJ cıeıces Cost: 3.ClXJ Pun:h_date: (6..()3.99 Kind: wesky Quantity: 1450peices I I Cost: 9.(lX) Pun:h_date: 02-12-99

Kind: hair crames

Quantity: 150 peices Cost: 150 Purch_date: 03-06-99 Kind: tost Quantity: 100 peices Cost: 250 Purch_date: 06-01-99

(14)

• SERVICES DBF

1

Service: bar From_to: 2 pmto2 am Charge: 10 dolar Service: disco

From_to: 11pmto 4am

Charge: 8 dolar

..

Service: gardens From_to: 6amto 11 p Charge:

o

Service: market From_to: 8 am to8pm Charge: o

Service: oto park

From_to: 24hour Charge: 2 dolar Service: resturant From_to: 24 hour Charge:

o

Service: summingpool I From_to: 10amto 10pm Charge: 5 dolar

(15)

evilay J-Iotel

10:10 PM

I

Sevilay

liotel

WELLCOME

ro

SEVILA Y I-IOTEI_/

I

2. EMPLOYEE FILE

I

4. RESERVATION

~- SEARCH

[ 8. DONE BY

9. DATE

ı

I ,. SEViLAY HOTEL 11

ıo.

ALL ROOMS

I

ı

l. EXIT

![I]

Supervised

by:

Dr. Besime Erin

CUSTOMER FILE

I

. SERVICES 5. ROOM FILE . GOODS

(16)

*****************************************************************

*

THE MAIN MENU PROGRAM

_*

*

********************************************************************

"'*******

*****

Sevilay Hotel";

20;

_.\Y " WELLCOME TO SEVILAY HOTEL " ;

_ IT ~IS Sans Serif", 24 ;

1LE '13T";

COLOR RGB(255,255,0,128,128,0)

, .""4SAY"==

F01'.ı "jokar", 24;

nU"BT";

COLOR RGB(255,255,0, 128,128,0)

'g33, 75 SAY" SUPERVISED BY

oxr

"JOKAR", 10;

II• II•

(17)

TYLE "R+/B+" ;

COLOR RGB( 192, 192, 192,O,,)

g'35, 75 SAY" § DR. BESJME ERIN " ; FONT "JOKAR", 10;

TYLE "R+/B+";

COLOR RGB( 192,192, 192,0,,) *1912,70 SAY 'c:\400\3.BMP'BITMAP :@12,27 SAY 'c:\400\otell .BMP'BITMAP @38,45 SAY 'C:\400\CLOSE.BMP'BITMAP

@16,7PROMPT "l. CUSTOMER FILE "

@16,67 PROMPT "2. EMPLOYEE FILE "

®19,7 PROMPT "3. SERVICES " :@19,67PROMPT "4. RESERVATION 11 1'@22 7 PROMPT "5 ROOMS_{.._,} ' . " ~2,67 PROMPT "6. SEARCH " §25,7 PROMPT "7. Goods @25,67 PROMPT "8. DONE BY @28,7 PROMPT "9. date 11 @28,67 prompt "10. ALLROOMS " @38,37 prompt "11.EXIT" MENU TO CHOICE DO CASE CASE CHOICE=l DO C:\400\custom.PRG CASE CHOICE=2 DO C:\400\employee.PRG CASE CHOICE=3 DO C: \400\ser. prg CASE CHOICE=4 DO C:\400\deladd.prg CASE CHOICE=l DO C: \400\costum.PRG CASE CHOICE=5 DO C:\400\rooml.PRG CASE CHOICE=6 DO C:\400\SEARCHO.PRG CASE CHOICE=? DO C:\400\goods.prg deactivate window system CASE CHOICE=8 DO C:\400\POGRAMME.PRG CASE CHOICE=9 DO C:\400\2.PRG CASE CHOICE= 1 O

"

(18)

-**************************************************************

*

THE MAIN PROGRAM

_*

*

************************************************************** SET TALK OFF

STORE O TO CHOICE

DO WHILE CHOICE< 10

CLEAR

SET SYSMENU OFF SET SAFETY OFF SET TALK OFF

SET STATUS BAR ON SET SYSMENU ON

••

****** DEFINING THE SYSTEM WINDOW*********

DEFINE WINDOW system FROM 0,0 TO 55,120 SYSTEM; FLOAT SHADOW TITLE" SEVILAY HOTEL" IN SCREEN; GROW MINIMJZE ZOOM CLOSE COLOR R/R+

ACTIVATE WINDOW system

@1,1 SAY "Sevilay Hotel*****"; FONT "jokar", 20 ;

STYLE "GR+/B+" ;

@33, 75 SAY" SUPERVISED BY FONT "JOKAR", 10;

"

@1,67 SAY" ***** Sevilay Hotel";

FONT "jokar", 20; STYLE "GR+/B+" ;

@5, 19 SAY" WELLCOME TO SEVJLAY HOTEL"; FONT "MS Sans Serif', 24 ;

STYLE "BT"; COLOR RGB(255,255,0, 128, 128,0) @9 24 SAY " --- 11 • ' ' FONT "jokar", 24 ; STYLE "BT"; COLOR RGB(255,255,0, 128, 128,0)

(19)

(20)

,ı \il ,\Y llOITL

CllSTOl\lER FILE

ı~~

I

SURNAME:

I

NATIONALITY: PASSPORTNU: PALIST AIN1N PL35789545 AALIAN

ADDRESS: BIRTHPLACE BIRTH DATE:

GAZA -NU SIRAT BLOCK C 206/06 PALISTIN 31/7/51

~~

WIFENAME:

I

;HLDUND15:

I

CILHDUND6:

MALE IS SAF NO

ROOM TYPE: ROOM PHONE: ROOM NUMBER:

SHIFT 8801 801

IN: COMEINDATE:

M

12/12/99

COMEOUTDATE: ACCOUNTNUM: LEFT:

12/24/99 8010000000

n

il

(21)

__

,. •._.,•• ···********** * ** * *** * * * * * *

*

**

*

* * * * ** * * ** * * * * * * * ** *

*

**

*

CUSTOM.PROGRAM

_*

*

***********************************************

************************************************

*************************************************

*

*********************

**'*

m.currarea, m.talkstat, m.compstat ="ON" talk.stat= "ON" E m.talkstat

=

"OFF" IDIF mpstat

=

SET("COMPATIBLE") ET COMPATIBLE FOXPLUS rder

=

SET("READBORDER") ET READBORDER ON

=

(22)

*

*********************************************************

*

S 1087984/Windows Databases, Indexes, Relations

*

*********************************************************

*

IF USED("custom") SELECT custom

SET ORDER TO TAG " sa00vwr6x" ELSE

SELECT

O

USE (LOCFILE("custom.dbf',"DBF':,"Where is custom?"));

AGAIN ALIAS custom ; ORDER TAG " sa00vwr6x" END IF

*

*********************************************************

*

Windows Window definitions

*

*********************************************************

*

IF NOT WEXIST(''_00816bnua")

DEFINE WINDOW _00816bnua; AT 0.000, 0.000 ; SIZE 18.900,71.429; TITLE "Custom" ;

FONT "Times New Roman", 12; STYLE "B";

FLOAT; CLOSE; MINIMIZE;

COLOR RGB(,,,255,255,255)

MOVE WINDOW 00816bnua CENTER

END IF

*

*********************************************************

*

CUSTOM/Windows Setup Code - SECTION 2

*

*********************************************************

(23)

iiREGION 1

#DEFINE C_DBFEMPTY 'Database is empty, add a record?'

#DEFINE C_EDITS 'Please finish your edits.'

#DEFINE C_TOPFILE 'Top of file.'

liDEFINE C END FILE 'End of file.'

#DEFINE C BRTITLE 'Locate Record'

#DEFINE C_NOLOCK 'Sorry, could not lock record>- try again later.'

#DEFINE C ECANCEL 'Edits Canceled.'

#DEFINE C DELREC 'Delete selected record?'

#DEFINE C_NOFEAT 'Feature not available yet.'

#DEFINE C_NOWIZ 'Wizard application is not available.'

#DEFINE C_MAKEREPO 'Creating report with ReportWizard,'

#DEFINE C_NOREPO 'Could not create report.'

#DEFINE C_DELNOTE 'Deleting records ... '

#DEFINE C_READONL Y 'Table is read-only. No editing allowed.'

#DEFINE C_NOTABLE 'No table selected. Open table or run query.'

#DEFINE C_BADEXPR 'Invalid expression.'

#DEFINE C LOCWIZ 'Locate WIZARD.APP:'

#DEFINE C_MUL TIT ABLE 'You have multiple related tables. Adding records in not allowed.'

MOVE WINDOW' 00816bnua' CENTER

PRIVATE isediting,isadding,wztblarr PRIVATE wzolddelete,wzolderror,wzoldesc PRIVATE wzalias, tempcurs, wzlastrec PRIVATE isreadonly ,fınd_drop,is2table IF EMPTY(ALIAS())

WAIT WINDOWC NOTABLE

RETURN END IF m.wztblarr=" m.wzalias=SELECT() m.isediting= .F. m.isadding=.F. m.is2table = .F. m.wzolddelete=SET('DELETE') SET DELETED ON

m.tempcurs=S YS(20

I 5)

&&used if General field

m.wzlastrec =

1

m.wzolderror=ON('error')

ON ERROR DO wizerrorhandler wroldesc=ON('KEY','ESCAPE') ON KEY LABEL ESCAPE

m.find_drop

=

IIFLDOS,0,2)

(24)

6f

: ztrt£'0ÇL'£

o.ı

ILÇOZ'OO£'Z@

(ççz'ççz'ççz'ççz'o'o)ao1111010:J

: ..r,

3'1AlS

: 8 ',Jpas SUBS sw •• lNOd

: eezcrooor

szıs

: u

:~nllBNıı AVS tll'£'oçp·z

®

(ççz'ççz'ççz'o'o'o)ao~' 11010:J

: ~lf!l!PaS! N3HA\

: uXXXXXX:XXXX

)I@.,

aaruora

: .a..

3'1AlS

: 8 ',Jpas SUBS sw •• lNOd

: ., •• l'111Vd3G

: ooost'ooot

azıs

: ouratrur

13:0 tll'£'0ÇJ"£

®

(ççz'ççz'ççto'o'o)ao1111010:J

: 8 'I N3d

: I ~3:llVd

: OOO'l

I'OÇ8'£Ol 6Zt'£'00t•Z@

«ro'sz

ı

'szt 'o'o)ao1111010:J

: 8 'I N3d

: I ~3:llVd

: ÇIL'OL'OÇ8'1

Ol

98Z'O'OOO'O@

dlGN3

MOHSON Bnuq9J800- MOGNIM 3:lVAU:JV

3S'13

3:WVS Bnuq9J800- MOGNIM 3:lVAU;JV

(.."ımuq9

f

800-.,)3'1HlSlAM dl

I NOlD~#

*

********************************************************* *

*

********************************************************* *

OW3W 11VAW3W 113:llV:JS

aoı.o.ıoo

dlGN3

)INV'1HGN3ddV

(AldW3dHG-;J)µ~p?-XOJGNV AfUOpBaısrıni GNV

c-ouınocoaa

dl

ddO 113:@0HGV~ 13:S

dlGN3

l lfl03WU AlNOGVtlli ;) MOGNIM lIV M

(25)

]TERN 1; PE\ 1, 8; ,COLOR RGB(0,0,0,255,255,255) n,.20.857 GET m.surname ; SIZE 1.000, 15.000 ; DEFAULT"";

FONT "MS Sans Serif', 8 ; TYLE "B"; PICTURE "@K XXXXXXXXXX" ; WHEN isediting ; COLOR ,RGB(0,0,0,255,255,255) - 2..350,20.857 SAY "Surname:" ; SIZE 1.000,13.200;

FONT "MS Sans Serif', 8 ; STYLE "T"; COLOR RGB(0,0,255,255,255,255) 00,36.000 TO 3.750,53.857; PATTERN 1; PEN 1, 8; COLOR RGB(0,0,0,255,255,255) 3.050,36.286 GET m.nationalty ; SIZE 1.000,20.000 ; DEFAULT"";

FONT "MS Sans Serif', 8 ; STYLE "B"; PICTURE ''@K XXXXXXXXXXXXXXX'' ; WHEN isediting ; COLOR ,RGB(0,0,0,255,255,255) ~ 2.350,36.286 SAY "Nationalty:"; SIZE 1.000,13.200;

FONT "MS Sans Serif', 8 ; STYLE "T"; COLOR RGB(0,0,255,255,255,255)

'g

2.400,56.571 TO 3.850,68.857 ; PATTERN 1; PEN 1, 8; il COLOR RGB(0,0,0,255,255,255) @ 3.150,56.857 GET m.passportnu ; SIZE 1.000, 13.500 ; DEFAULT"";

FONT "MS Sans Serif', 8 ; STYLE "B"; PICTURE "@K XXXXXXXXX" ; WHEN isediting ; COLOR ,RGB(0,0,0,255,255,255) @2.450,56.857 SAY "Passportnu:" ; SIZE 1.000,13.200;

(26)

COLOR RGB(0,0,255,255,255,255) @5.200,3.429 TO 6.650,27.000; PATTERN 1; PEN 1, 8; COLOR RGB(0,0,0,255,255,255) @ 5.950,3.714 GET m.adress; SIZE 1.000,26.667 ; DEFAULT"";

FONT "MS Sans Serif', 8 ; STYLE "B"; PICTURE "@K XXXXXXXXXXXXXXXXXXXX" ; WHEN isediting ; COLOR ,RGB(0,0,0,255,255,255) @ 5.250,3.714 SAY "Adress:"; SIZE 1.000, 13.200 ;

FONT "MS Sans Serif', 8 ; ••

STYLE "T";

COLOR RGB(o,o:255,255,255,255)

@5.300,54.857 TO 6.750,63.286;

PATTERN 1;

PEN 1, 8;

COLOR RGB(0,0,0,255,255,255)

@6.050,55.143 GET m.birthdate;

SIZE 1.000,9.000;

DEFAULT"";

FONT "MS Sans Serif', 8 ;

STYLE "B";

PICTURE "@K" ;

WHEN isediting ;

COLOR ,RGB(0,0,0,255,255,255)

@ 5.350,55.143 SAY "Birthdate:";

SIZE 1.000,13.200;

FONT "MS Sans Serif', 8 ;

STYLE "T";

COLOR RGB(0,0,255,255,255,255)

@5.300,34.286 TO 6.750,47.857;

PATTERN 1;

PEN 1, 8;

COLOR RGB(0,0,0,255,255,255)

@6.050,34.571 GET m.birthplace;

SIZE 1.000,15.000;

DEFAULT"";

FONT "MS Sans Serif', 8 ;

STYLE "B";

PICTURE "@K XXXXXXXXXX" ;

WHEN isediting ;

COLOR ,RGB(0,0,0,255,255,255)

@5.350,34.571 SAY "Birthplace:";

(27)

Sans Serif', 8 ; 'T'.

'

ıLOR RGB(0,0,255,255,255,255) 17.000 TO 9.350,25.429; PATTERN 1; PEN 1, 8; COLOR RGB(0,0,0,255~255,255) .650,17.286 GET m.sex; SIZE 1.000,9.000 ; DEFAULT" II;

FONT "MS Sans Serif', 8 ; STYLE "B"; PICTURE "@K XXXXXX" ; WHEN isediting ; COLOR ,RGB(0,0,0,255,255,255) ·~ .950,17.143 SAY "Sex:"; SIZE 1.000, 13.200 ; FONT "MS Sans Serif', 8 ;

STYLE "T"; ( COLOR RGB(0,0,255,255,255,255) ~ 8.000,3.429 TO 9.450,13.143; PATTERN 1; PEN 1, 8; COLOR RGB(0,0,0,255,255,255) @8.750,3.714 GET m.state; SIZE 1.000,10.500; DEFAULT" II;

FONT "MS Sans Serif', 8 ; STYLE "B"; PICTURE "@K XXX:XXXX" ; WHEN isediting ; COLOR ,RGB(0,0,0,255,255,255) @8.050,3.714 SAY "State:"; SIZE 1.000, 13.200 ; FONT "MS Sans Serif', 8 ; STYLE "T"; COLOR RGB(0,0,255,255,255,255) @ 7.900,29.857 TO 9.350,43.428; •• PATTERN 1; PEN 1, 8; COLOR RGB(0,0,0,255,255,255) @8.650,30.143 GET m.wifename; SIZE 1.000, 15.000 ; DEFAULT" II;

FONT "MS Sans Serif', 8 ; STYLE "B";

PICTURE "@K XXXXXXXXXX" ; WHEN isediting ;

(28)

£l •• : ••X:XXX:XXX)I@ ••

aaruoıa

: •.s:..

3'1AlS : 8 '.J!l;:}S SUt?S SW•• lNOd : •••• 11IlVd3G : OOÇ'OI'ooo·ı 3ZIS : ;:}dı(ıuıoonu 1301ı'Il'£'QÇÇ'J I®

«sz'ssz'sszo'o'oıaoa "H0'10;:) : 8 'I N3d : I N"H311Vd : £v1·£1'oçz·zı 016zv·£'oos·o1@

ıssz'ssz'ssz'ssz'o'oıaoa

"H0'10;:) : •• 1 •• 3'1AlS : 8 ',J!l;:}S SUt?S

sw..

lNOd : ooz:·£1'000·1 3ZIS

: •• :çppunpJl{;:) ••

AVS ILS"'9v'oçs·L@

(ççtççtççto'o'o)s:o"H' "H0'10;:) : 8lJ!l!P;:}S! NffiW. : •• 6 )I@ •• ffillil;:)Id

: •.s:.•

3'1AlS : 8 ',J!l;)S SUtıS SWulNOd : •••• 11IlVd3G

: zsrrecoı

nzıs

: çj.rpunprqouı 130 ILÇ9v'oççg@ (ççz'ççz;'ççto'o'o)s:o"H "H0'10;:)

: 8

'I N3d : I N"H311Vd : £vrçç'oçz:·6 019sz·9v'oos·L@ (ççz;'ççz:'ççz;'ççz'o'o)s:o"H"H0'10;:) : uL, 3'1AlS

: 8

',J!J;)S SUt?S

sw..

lNOd : oozcı

'ooo·

ı

nzıs

: •• :9ıpunpl!l{;:)••

AVS ILÇ09'0Ç8·L@

(ççz:'ççz:'ççz:'o'o'o)s:o"H'"H0'10;:) : 8lJ!l!P;:}S! NffiW. : •• 6 )I@ •• ffillil;:)ld : u

s:..

3'1AlS : 8 ',J!l;:}S SUt?S

sw..

lNOd : •• u 11IlVd3G

: zstrooot

3ZIS

: 91punpf!11J·nı

13D ILÇ'09'oççg@ (ççz'ççz'ççz:'o'o'o)s:o"H "H0'10;:) : 8 'I N3d : I N"H311Vd

: uçs9'oçz:·6

o.ı

9gz:·09'oos·L@

(29)

WHEN isediting ;

COLOR ,RGB(0,0,0,255,255,255) .850,3.714 SAY "Roomtype:";

SIZE 1.000,13.200;

FONT "MS Sans Serif', 8 ; STYLE "T"; COLOR RGB(0,0,255,255,255,255) 0.800,54.857 TO 12.250,65.000 ; PATTERN 1; PEN 1, 8; COLOR RGB(0,0,0,255,255,255) 1.550,55.143 GET m.roomnumber; SIZE 1.000,3.500 ; DEFAULT"";

FONT "MS Sans Serif', 8; STYLE "B"; PICTURE "@K 999" ; WHEN isediting ; COLOR ,RGB(0,0,0,255,255,255) ~ 0.850,55.143 SAY "Roomnumber:"; SIZE 1.000, 13.200 ; FONT "MS Sans Serif', 8 ; STYLE "T"; COLOR RGB(0,0,255,255,255,255)

g

10.800,30.857 TO 12.250,40.286; PATTERN 1; PEN 1, 8; COLOR RGB(0,0,0,255,255,255)

g

11 .550,31.143 GET m.roomphone ; SIZE 1.000,4.667 ; DEFAULT"";

FONT "MS Sans Serif', 8 ; STYLE "B"; PICTURE "@K 9999" ; WHEN isediting ; COLOR ,RGB(0,0,0,255,255,255) @ 10.850,31.143 SAY "Roomphone:"; SIZE 1.000, 13.200 ; FONT "MS Sans Serif', 8; STYLE "T"; COLOR RGB(0,0,255,255,255,255) @ 15.000,56.571 TO 16.450,61.857; PATTERN 1; PEN 1, 8; COLOR RGB(0,0,0,255,255,255) @ 15.650,56.571 GET m.empty; PICTURE "@*C " ; SIZE 1.308,5.400 ;

(30)

STYLE "T"; WHEN isediting ;

COLOR ,,,,,,,,RGB(0,0,0,255,255,255),RGB(0,0,0,255,255,255) @ 15.050,56.857 SAY "LEFT:" ;

SIZE 1.000,13.200;

FONT "MS Sans Serif', 8 ; STYLE "T"; COLOR RGB(0,0,255,255,255,255) @ 13.550,56.571 TO 15.000,60.000; PATTERN 1; PEN 1, 8; COLOR RGB(0,0,0,255,255,255) @ 14.200,56.571 GET m.full; PICTURE "@*C " ; SIZE 1.308,5.400 ; DEFAULT O;

FONT "MS Sans Serif', 8 ; STYLE "T";

WHEN isediting ;

COLOR ,,,,,,,,RGB(0,0,0,255,255,255),RGB(0,0,0,255,255,255) @ 13.600,56.857 SAY "IN:";

SIZE 1.000,13.200;

FONT "MS Sans Serif', 8 ;

•• FONT "MS Sans Serif', 8 ;

STYLE "T"; COLOR RGB(0,0,255,255,255,255) @ 13.500,3.571 TO 14.950,12.714; PATTERN 1; PEN 1, 8; COLOR RGB(0,0,0,255,255,255) @ 14.250,3.857 GET m.comeindate; SIZE 1.000,9.000 ; DEFAULT"";

FONT "MS Sans Serif', 8; STYLE "B"; PICTURE "@K" ; WHEN isediting ; COLOR ,RGB(0,0,0,255,255,255) @ 13.550,3.857 SAY "Comeindate:" ; SIZE 1.000,13.200;

FONT "MS Sans Serif', 8 ; STYLE "T"; COLOR RGB(0,0,255,255,255,255) @ 14.900,3.571 TO 16.350,12.857; PATTERN 1; PEN 1, 8; COLOR RGB(0,0,0,255,255,255) @ 15.650,3.857 GET m.comoutdate;

(31)

DEFAULT"";

FONT "MS Sans Serif', 8 ; STYLE "B"; PICTURE "@K" ; WHEN isediting ; COLOR ,RGB(0,0,0,255,255,255) 14.950,3.857 SAY "Comoutdate:"; SIZE 1.000,13.200;

FONT "MS Sans Serif', 8 ; STYLE "T"; COLOR RGB(0,0,255,255,255,255)

'@

14.400,30.857 TO 15.850,44.428; PATTERN 1; PEN 1, 8; COLOR RGB(0,0,0,255,255,255) 15.150,3Ll43 GET m.accounnum; SIZE 1.000,15.000; DEFAULT"";

FONT "MS Sans Serif', 8 ; STYLE "B"; PICTURE "@K XXXXXXXXXX" ; WHEN isediting ; COLOR ,RGB(0,0,0,255,255,255) @14.450,31.143 SAY "Accounnum:"; SIZE 1.000, 13.200 ;

FONT "MS Sans Serif',

8 ;

STYLE "T"; COLOR RGB(0,0,255,255,255,255)

@

16.450,0.000 TO 17.100,1.429; PEN 1, 8; STYLE "T"; COLOR RGB(l 92,192, 192,,,,) 17.050,0.143 TO 18.900,71.429; PATTERN 1; PEN 1, 8; COLOR RGB(0,0,128,128,0,0) @ 17.350,5.429 GET m.top_btn; PICTURE "@*BHN "

+ ; '"

(LOCFILE("d:\fpw26\wizards\wizbmps\wztop. bmp", "BMPjICOjPCTjICN", "Whe

re is wztop?")) ;

SIZE 1.350,3.857,0.571 ; DEFAULT 1;

VALID btn_ val('TOP') ; MESSAGE 'Go to first record.' 17.350,10.571 GET m.prev_btn;

(32)

(LOCFILE("d:\fpw26\wizards\wizbmps\wzback.bnıp","BMPIICOIPCTIICN","W here is wzback?")) ;

SIZE 1.350,3.857,0.571 ; DEFAULT 1;

VALID btn_ val('PREV') ;

MESSAGE 'Go to previous record.'

@17.350,15.714 GET m.loc_btn; PICTURE "@*BHN

"+ ;

(LOCFILE("d:\fpw26\wizards\wizbnıps\wzlocate.bmp","BMPIICOIPCTIICN"," Where is wzlocate?")) ; SIZE 1.350,3.857,0.571 ; DEFAULT 1;

FONT "Times New Roman", 12 ; STYLE "B";

VALID btn_ val('LOCATE') ; MESSAGE 'Locate a record.' @ 17.350,20.857 GET m.next_btn; PICTURE "@*BHN "

+ ;

(LOCFILE("d:\fpw26\wizards\wizbmps\wznext.bmp","BMPjICOIPCTIICN","Wh ere is wznext?")) ; SIZE 1.350,3.857,0.571 ; DEFAULT 1;

VALID btn_val('NEXT') ; MESSAGE 'Go to next record.'

@17.350,26.000 GET m.end_btn; PICTURE "@*BHN II

+ ;

(LOCFILE("d:\fpw26\wizards\wizbmps\wzend. bmp", "BMPIICOjPCTjICN", "Wh ere is wzend?")) ; SIZE 1.350,3.857,0.571 ; DEFAULT 1;

VALID btn val('END') ; MESSAGE 'Go to last record.' @ 17.350,31.143 GET m.add_btn;

PICTURE "@*BHN "

+ ;

(LOCFILE("d:\fpw26\wizards\wizbmps\wznew.bmp","BMPjICOjPCTjICN","Wh ere is wznew?")) ;

(33)

e.bmp'',"BMPIICOIPCTIICN","

-L6 wizardsvwizbrnpsvwzsave, bmp'', "BMPIICOIPCTIICN", "Wh

(34)

PICTURE "@*BHN" +;

(LOCFILE("d:\fpw26\wiZ,aids\wizbmps\wzprint.bmp","BMPJICOJPCTJICN","W here is wzprint?")) ;

SIZE 1.350,3.857,0.571 ; DEFAULT 1;

VALID btn_val('PRINT') ; MESSAGE 'Print report.' @ 17.350,62.000 GET m.exit_btn; PICTURE "@*BHN "

+ ;

(LOCFILE("d:\fpw26\wizards\wizbmps\wzclose.hrnp","BMPJICOJPCTIICN","W here is wzclose?")) ; •• SIZE 1.350,3.857,0.571 ; DEFAULT 1;

VALID btn_ val('EXIT') ; MESSAGE 'Close screen.'

@ 0.450,24.000 SAY "CUSTOMER FILE" ; FONT "Times New Roman", 12; STYLE "BT";

COLOR RGB(255,255,255,,,,) IF NOT WVISIBLE("_00816bnua")

ACTIVATE WINDOW 00816bnua

END IF

*

*********************************************************

*

* WindowsREAD contains clauses from SCREEN s 1087984

*

*********************************************************

*

READ CYCLE; ACTIVATE READACT() ; DEACTIVATE READDEAC() ; NO LOCK

RELEASE WINDOW 00816bnua

*

*********************************************************

*

(35)

********************************************************

CSED("custom") SELECT custom USE

IDIF

CT (m.currarea) GIONO

,ET READBORDER &rborder IF m.talkstat = "ON" SET TALK ON ENDIF IF m.compstat = "ON" SET COMPATIBLE ON END IF

*********************************************************

• *

*

CUSTOM/Windows Cleanup Code

• *********************************************************

•

REGION 1

SET DELETED &wzolddelete SET FIELDS &wzfıelds ON ERROR &wzolderror

ON KEY LABEL ESCAPE &wzoldesc DO CASE

CASE _DOS AND SET('DISPLA Y')='VGA25'

@24,0 CLEAR TO 24, 79 ıo

CASE DOS AND SET('DISPLA Y')='VGA50' @49,0 CLEAR TO 49,79 CASE DOS @24,0 CLEAR TO 24,79 ENDCASE

Procedures

• *********************************************************

• *

(36)

#REGION 1

PROCEDURE readdeac IF isediting

ACTIVATE WINDOW' 00816bnua'

WAIT WINDOW C EDITS NOWAIT END IF IF !WVISIBLE(WOUTPUT()) CLEAR READ RETURN .T. END IF RETURN .F. ••

* * CUSTOM/Windows Supporting Procedures and Functions

*

* *********************************************************

*

PROCEDURE readact IF !isediting SELECT (m.wzalias) SHOW GETS END IF DO REFRESH RETURN PROCEDURE wizerrorhandler

* This very simple error handler is primarily intended

*

to trap for General field OLE errors which may occur

*

during editing from the MODIFY GENERAL window.

WAIT WINDOW message() RETURN

PROCEDURE printrec

PRlV ATE sü ldError, wizfuame,saverec,savearea, tmpcurs, tmpstr PRIVATE prnt_btn,p_recs,p_output,pr_out,pr_record

STORE 1 TO p_recs,p_output

STORE

O

TO prnt_btn

STORE RECNO() TO saverec m.süldError=ON('error') DO pdialog IF m.prnt_btn = 2 RETURN END IF IF !FILE(ALIAS()+'.FRX') m.wizfname=SYS(2004 )+'WIZARDS\'+'WIZARD.APP' IF !FILE(m.wizfname) ON ERROR*

(37)

CASE m.btnname='DELETE' IF EOF() OR BOF()

WAIT WINDOW C ENDFILE NOW AIT RETURN

END IF

IF fox_alert(C_DELREC) DELETE

IF !EOF() AND DELETED() SKIP 1

END IF IF EOF()

WAIT WINDOW C END FILE NOW AIT GO BOTTOM END IF ELSE RETURN END IF CASE m.btnname='PRINT' DO printrec RETURN CASE m,btnname='EXIT'

m.bailout=.T. &&this is needed if used with FoxApp CLEAR READ

RETURN OTHERWISE

RETURN END CASE

SCATTER MEMV AR MEMO SHOW GETS

RETURN

PROCEDURE REFRESH DO CASE

CASE m.isreadonly AND RECCOUNT()=O SHOW GETS DISABLE

SHOW GET exit btn ENABLE

CASE m.isreadonly "

SHOW GET add btn DISABLE SHOW GET edit btn DISABLE SHOW GET del btn DISABLE SHOW GET save btn DISABLE SHOW GET can btn DISABLE

CASE (RECCOUNT()=O OR EOF()) AND !m.isediting SHOW GETS DISABLE

SHOW GET add btn ENABLE SHOW GET exit btn ENABLE CASE m.isediting

(38)

SHOW GET top_btn DISABLE SHOW GET prev_btn DISABLE SHOW GET loc btn DISABLE SHOW GET next btn DISABLE SHOW GET end btn DISABLE SHOW GET add btn DISABLE SHOW GET edit_btn,1 DISABLE SHOW GET del_ btn, 1 DISABLE SHOW GET pmt_btn DISABLE SHOW GET exit btn DISABLE SHOW GET save btn ENABLE SHOW GET can btn ENABLE

ON KEY LABEL ESCAPE DO BTN VAL WITH 'CANCEL' RETURN

OTHERWISE

SHOW GET fınd_drop ENABLE SHOW GET top_ btn ENABLE SHOW GET prev _btn ENABLE SHOW GET loc btn ENABLE SHOW GET next btn ENABLE SHOW GET end btn ENABLE SHOW GET add btn ENABLE SHOW GET edit_btn,1 ENABLE SHOW GET del__btn, 1 ENABLE SHOW GET pmt_btn ENABLE SHOW GET exit btn ENABLE SHOW GET save btn DISABLE SHOW GET can btn DISABLE ENDCASE

IF m.is2table

SHOW GET add btn DISABLE END IF

ON KEY LABEL ESCAPE RETURN

PROCEDURE edithand

PARAMETER m.paction

*

procedure handles edits

DO CASE

CASE m.paction

=

'ADD'

SCATTER MEMV AR MEMO BLANK

CASE m.paction

=

'SAVE'

INSERT INTO (ALIAS()) FROM MEMV AR

CASE m.paction

=

'CANCEL'

*

nothing here

(39)

wzalrtmess TE alrtbtn

sktbtn=2

DEFINE WINDOW _qeclij2t7 AT 0,0 SIZE 8,50; FONT "MS Sans Serif',10 STYLE 'B';

FLOAT NOCLOSE NOMINIMIZE DOUBLE TITLE WTITLE() OVE WINDOW _qeclij2t7 CENTER

ACTIVATE WINDOW _qeclij2t7 NOSHOW

®

2,(50-txtwidth(w:zalrtmess))/2 SAY w:zalrtmess;

FONT "MS Sans Serif', 10 STYLE "B" E) 6, 18 GET m.alrtbtn ;

PIC flJRE "@*HT \<OK;\ ?\!\<Cancel" ; SIZE 1.769,8.667,1.333 ;

FONT "MS Sans Serif', 8 STYLE "B" ACTIVATE WINDOW _qeclij2t7 READ CYCLE MODAL

RELEASE WINDOW _qeclij2t7 m.alrtbtn= 1

OCEDURE pdialog

DEFINE WINDOW _qjn12zbvh; AT 0.000, 0.000 ; SIZE 13.231,54.800;

TITLE "Microsoft FoxPro" ; FONT "MS Sans Serif', 8 ;

FLOAT NOCLOSE MINIMIZE SYSTEM MOVE WINDOW _qjn12zbvhCENTER

ACTIVATE WINDOW _qjnl2zbvh NOSHOW

@2.846,33.600 SAY "Output:" ;

FONT "MS Sans Serif', 8 ; STYLE "BT"

@ 2.846,4.800 SAY "Print:" ; FONT "MS Sans Serif', 8 ; STYLE "BT"

@4.692,7.200 GET m.p_recs;

PICTURE "@*RVN \<Current Record;\<All Records"; SIZE 1.308, 18.500,0.308 ;

DEFAULT 1;

FONT "MS Sans Serif', 8; STYLE "BT" @4.692,36.000 GET m.p_output; PICTURE "@*RVN \<Printer·Pre\<view" · 7 ' ' SIZE l.308,12.000,0.308; DEFAULT 1;

@ 10.154,16.600 GET m.pmt_btn;

(40)

SIZE 1.769,8.667,0.667; DEFAULT 1;

FONT "MS Sans Serif', 8 ; STYLE "B"

ACTIVATE WINDOW _qjn12zbvh READ CYCLE MODAL

RELEASE WINDOW _qjn12zbvh RETURN

PROCEDURE loc_dlog PRIVATE gfields,i

DEFINE WINDOW wzlocate FROM 1, 1 TO 20,40;

SYSTEM GROW CLOSE ZOOM FLOAT FONT "MS Sans Serif',8 MOVE WINDOW wzlocate CENTER

m.gfıelds=SET('FIELDS ',2) IF !EMPTY(RELATION(l))

SET FIELDS ON

IF m.gfields # 'GLOBAL' SET FIELDS GLOBAL END IF

IF EMPTY(FLDLIST()) m.i=l

DO WHILE !EMPTY(OBNAR(m.i)) IF ATC('M.',OBN AR(m.i))=O

SET FIELDS TO (OBN AR(m.i)) END IF

m.i = m.i

+

1

END DO END IF

END IF

BROWSE WINDOW wzlocate NOEDIT NODELETE ; NOMENU TITLE C BRTITLE

SET FIELDS &gfıelds SET FIELDS OFF

RELEASE WINDOW wzlocate RETURN

(41)

fHHTl. ,,ı~~-

EMPLOYEE FILE

. .:esi''". ·,;. -- ., . ·-· . ~·-- --~- _ . .. . ·"'·"~-··-·M··· _ .•....•..-.:.-· , SURNAME: TASK.IRAN WORKPERlOD MORNING PLACE KITCHIN WORK HOURS 10 ~VERT!ME

I

OOCUPATION. COOKER SALARY: 500 $

(42)

•

• *********************************************************

EMPLOYEE.PRO

*********************************************************

*

*********************************************************

*

*********************************************************

*

*********************************************************

EMPLOYEE/Windows Setup Code - SECTION 1

ATE wzfıelds, wztalk SET("T ALK") = "ON"

SET TALK OFF m.wztalk = "ON" E

m.wztalk = "OFF"

ıIF

wzfields=SET('FIELDS ')

SET FIELDS OFF

mwztalk= "ON" SET TALK ON ,JF

GIONO

REGIONAL m.currarea, m.talkstat, m.compstat

IF

SET("T ALK") = "ON"

SET TALK OFF m.talkstat = "ON" ELSE

m.talkstat

=

"OFF"

END

IF

compstat = SET("COMPATIBLE") SET COMPATIBLE FOXPLUS m.rborder = SET("READBORDER")

(43)

m.currarea

=

SELECT()

*

*********************************************************

* *

*

S4736880/Windows Databases, Indexes, Relations

*

*********************************************************

*

IF USED("employee") SELECT employee

SET ORDER TO TAG "_sb9le00y8"

ELSE

.•

SELECT O

USE (LOCFILE("employee.dbf',"DBF","Where is employee?"));

AGAIN ALIAS employee; ORDER TAG "_sb9le00y8" END IF

*

*********************************************************

*

*********************************************************

*

IF NOT WEXIST("_sb9leg7ea")

DEFINE WINDOW _sb9leg7ea; AT 0.000, 0.000 ; SIZE 15.217,62.500; TITLE "Employee";

COLOR RGB(,,,255,255,255) MOVE WINDOW _sb9leg7ea CENTER END IF

(44)

*********************************************************

*

EMPLOYEE/WindowsSetup Code - SECTION 2

*********************************************************

JREGION 1

EFINE C_DBFEMPTY

'Database is empty, add a record?'

EFINE C_EDITS

'Please finish your edits.'

EFINE C_TOPFILE

'Top of file.'

1

EFINE C ENDFILE

'End of file.'

1

EFINE C BRTITLE

'Locate Record'

EFINE C_NOLOCK

'Sorry, could not lock record-- try again later.'

EFINE C £CANCEL

'Edits Canceled.'

EFINE C DELREC

'Delete selected record?'

EFINE C_NOFEAT

'Feature not available yet.'

EFINE C NOWIZ

'Wizard application is not available.'

IDEFINE C_MAKEREPO

'Creatingreport with Report Wizard.'

EFINE C_NOREPO

'Could not create report.'

filEFINE C_DELNOTE

'Deleting records.. .'

IDEFINE C_READONLY

'Table is read-only.No editing allowed.'

EFINE C_NOTABLE

'No table selected. Open table or run query.'

EFINE C_BADEXPR

'Invalid expression.'

~EFINE C LOCWIZ

'Locate WIZARD.APP:'

EFINE C_MULTITABLE'You have multiple related tables. Adding records in not

allowed.'

--~OVE WINDOW '_sb9leg7ea' CENTER

PRIVATE isediting,isadding,wztblarr

PRIVATE wzolddelete,wzolderror,wzoldesc

PRIVATE wzalias, tempcurs,wzlastrec

PRIVATE isreadonly,fınd_drop,is2table

IF EMPTY(ALIAS())

WAiT WINDOW C NOTABLE

RETURN

ENDIF

m wztblarr= "

mwzalias=SELECT()

isediting=.F.

misadding=.F.

(45)

ın.is2table = .F.

ın.wzo lddelete=SET('DELETE') SET DELETED ON

m.tempcurs=SYS(2015) &&used if General field

m.wzlastrec = 1

m.wzolderror=ON('error')

ON ERROR DO wizerrorhandler wzoldesc=ON('KEY','ESCAPE') ON KEY LABEL ESCAPE m.fınd_drop = IIF(_DOS,0,2) m.isreadonly=IIF(ISREAD(),. T.,.F.) IF ın.isreadonly

WAIT WINDOW C READONLY TIMEOUT 1 END IF

SET READBORDER OFF

IF RECCOUNT()=O AND !m.isreadonly AND fox_alert(C_DBFEMPTY) APPEND BLANK

END IF

GOTO HW

SCATTER MEMV AR MEMO

*

*********************************************************

* *

*

EMPLOYEE/Windows Screen Layout

*

*********************************************************

*

#REGION 1

IF WVISIBLE(" sb91eg7ea")

ACTIVATE WINDOW _sb9leg7ea SAME ELSE

ACTIVATE WINDOW _sb91eg7ea NOSHOW END IF @0.000,0.000 TO 1.609,61.625; PATTERN 1; PEN 1, 8; COLOR RGB(O,O,128, 128,0,0) @2.870,3.000 TO 4.131,14.875; PATTERN 1; PEN 1, 8;

(46)

WHEN isediting ;

COLOR ,RGB(0,0,0,255,255,255) 6,46.750 SAY "Overtime:";

SIZE 1.000,11.600;

FONT "MS Sans Serif', 8 ; STYLE "T"; COLOR RGB(128,0,0,255,255,255) ,46.375 TO 10.565,58.250; PATTERN 1; PEN 1, 8; COLOR RGB(0,0,0,255,255,255)

.J57

,46.625 GET m.salary ; SIZE 1.000,15.000; DEFAULT"";

FONT "MS Sans Serif', 8 ; STYLE "B"; PICTURE "@K XXXXXXXXXX" ; WHEN isediting ; COLOR ,RGB(0,0,0,255,255,255) 8,46.625 SAY "Salary:" ; SIZE 1.000, 11.600 ; FONT "MS Sans Serif', 8 ; STYLE "T"; COLOR RGB(128,0,0,255,255,255) -~35,27.000 TO 6.696,39.125 ; PATTERN 1; PEN 1, 8; COLOR RGB(0,0,0,255,255,255) 7,27.250 GET m.place; SIZE 3.000,15.333; DEFAULT"";

FONT "MS Sans Serif', 8 ; STYLE "B"; PICTURE "@K XXXXXXXXXX" ; WHEN isediting ; COLOR ,RGB(0,0,0,255,25\,255) .. 78,27.250 SAY "Place:"; SIZE 1.000, 11.600 ; FONT "MS Sans Serif', 8 ; STYLE "T"; COLOR RGB(128,0,0,255,255,255) 70,12.000 TO 10.479,25.625; PATTERN 1; PEN 1, 8; COLOR RGB(0,0,0,255,255,255) 0.000, 12.250 GET m.occupation ;

(47)

SIZE 2.000,17.333 ;

DEFAULT II";

FONT "MS Sans Serif', 8; STYLE "B"; PICTURE "@K XXXXXXXXXX" ; WHEN isediting; COLOR ,RGB(0,0,0,255,255,255) @ 9.391,12.250 SAY "Occupation:"; SIZE 1.000, 11.600 ; FONT "MS Sans Serif', 8 ; STYLE "T"; COLOR RGB(l28,0,0,255,255,255) @ 13.087,0.000 TO 13.652,1.250; PEN 1, 8; STYLE "T"; COLOR RGB( 192,192, 192,,,,) @ 13.609,0.125 TO 15.218,62.500; PATTERN 1; PEN 1, 8; COLOR RGB(0,0,128,128,0,0) @ 13.870,4.750 GET m.top_btn; PICTURE "@*BHN "

+ ;

(LOCFILE("d:\fpw26\ wizards\wizbmps\wztop. bmp", "BMPjICOjPCTjICN", "Where is wztop?"));

SIZE 1.174,3.375,0.500; DEFAULT 1;

"

VALID btn__ val('TOP') ; MESSAGE 'Go to first record.' @ 13.870,9.250 GET m.prev_btn;

PICTURE "@*BHN II

+ ;

(LOCFILE("d:\fpw26\ wizards\wizbmps\wzback. bmp", "BMPjICOjPCTIICN", "Wher e is wzback?")) ;

SIZE 1.174,3.375,0.500; DEFAULT 1;

VALID btn_val('PREV') ;

MESSAGE 'Go to previous record.' @ 13.870,13.750 GET m.loc_btn;

(48)

(LOCFILE("d:\:ipw26\wizards\wizbmps\wzlocate.bmp","BMPIICOIPCTIICN","Wh · wzlocate?")) ;

SIZE 1.174,3.375,0.500 ; DEFAULT 1;

VALID btn_val('LOCATE') ; MESSAGE 'Locate a record.' 13.870,18.250 GET m.next_btn;

PICTURE "@*BHN "

+ ;

(LOCFILE("d:\:ipw26\wizards\ wizbmps\ wznext. bmp", "BMPIICOIPCTIICN", "Wher · wznext?")) ;

SIZE 1.174,3.375,0.500; DEFAULT 1;

VAUD btn_val('NEXT') ; MESSAGE 'Go to next record.' 13.870,22.750 GET m.end_btn;

PICTURE "@*BHN "

+ ;

(LOCFILE("d:\:ipw26\ wizards\wizbmps\wzend. bmp", "BMPIICOIPCTIICN", "Where

va.end?"));

SIZE 1.174,3.375,0.500 ; DEFAULT 1;

VALID btn_val('END') ; MESSAGE 'Go to last record.' ..., 13.870,27.250 GET m.add_btn; PICTURE "@*BHN "

+ ;

(LOCFILE("d:\:ipw26\wizards\wizbmps\wznew. bmp", "BMPIICOIPCTIICN",11 Wher wznew?11)) ; •• SIZE 1.174,3.375,0.500 ; DEFAULT 1;

VALID btn, val('ADD');

MESSAGE 'Add a new record.' 13.870,31.750 GET m.edit_btn;

(49)

(LOCFILE("d:\fpw26\wizards\wizbmps\wzedit.bmp","BMPIICOIPCTIICN","Wher e is wzedit?")) ;

SIZE 1.174,3.375,0.500; DEFAULT 1;

VALID btn_ val('EDIT') ; MESSAGE 'Edit current record.' @ 13.870,36.250 GET m.del_btn; PICTIJRE "@*BHN "

+ ;

(LOCFILE("d:\fpw26\wizards\wizbmps\wzdelete. bmp ", "BMPIICOIPCTIICN", "Wh ere is wzdelete?")) ; " SIZE 1.174,3.375,0.500 ; DEFAULT 1;

VALID btn_val('DELETE') ; MESSAGE 'Delete current record.' @ 13.870,40.750 GET m.save_btn; PICTURE "@*BHN "

+ ;

(LOCFILE("d:\fpw26\wizards\wizbmps\wzsave.bmp","BMPIICOIPCTIICN","Wher e is wzsave?")) ; SIZE 1.174,3.375,0.500 ; DEFAULT 1;

VALID btn_val('SA VE') ; MESSAGE 'Save edits.' @ 13.870,45.250 GET m.can btn ; PICTURE "@*BHN "

+ ;

(LOCFILE("d:\fpw26\wizards\wizbmps\wzundo.bmp","BMPIICOIPCTIICN","Whe re is wzundo ?")) ; SIZE 1.174,3.375,0.500 ; DEFAULT 1;

VALID btn_ val('CANCEL') ; MESSAGE 'Cancel edits.' @ 13.870,49.750 GET m.prnt_btn;

(50)

h

·26\wizards\wizbmps\wzprint.bmp" ,"BMP\ICO\PCT\ICN" ,"Wher

FONT "Times New Roman", 14; ,TYLE "B";

ALID btn_val('PRINT') ; MESSAGE 'Print report.' 70,54.250 GET m.exit_ btn ; PICTURE "@*BHN "

+ ;

(LOCFILE("d:\fpw26\wizards\wizbmps\wzclose.bmp","BMPjICOjPCTjICN","Whe w2dose?")) ; SIZE 1.174,3.375,0.500 ; DEFAULT 1;

VALID btn_val('EXIT') ; MESSAGE 'Close screen.'

,17.750 SAY "EMPLOYEE FILE"; FONT "Times New Roman", 14; STYLE "BT";

COLOR RGB(255,255,255,,,,) 'T WVIS1BLE("_sb91eg7ea")

ACTIVATE WINDOW _sb91eg7ea

~

···*****************************************************

WindowsREAD contains clauses from SCREEN s4736880

•••******************************************************

~CYCLE;

ACTIVATE READACT(); DEACTIVATE READDEAC() ; NO LOCK

(51)

*

*********************************************************

*

Windows Closing Databases

*

*********************************************************

*

IF USED("employee") SELECT employee USE END IF SELECT (m.currarea) #REGION O

SET READBORDER &rborder

IF m.talkstat

=

"ON" SET TALK ON END IF IF m.compstat

=

"ON" SET COMPATIBLE ON END IF

*

*********************************************************

*

EMPLOYEE/Windows Cleanup Code

*

*********************************************************

*

#REGION 1

SET DELETED &wzolddelete SET FIELDS &wzfields ON ERROR &wzolderror

ON KEY LABEL ESCAPE &wzoldesc DO CASE

CASE _DOS AND SET('DISPLAY')='VGA25' @24,0 CLEAR TO 24, 79

(52)

@49,0 CLEAR TO 49, 79 DOS @24,0 CLEAR TO 24,79 IDCASE

Procedures****

*********************************************************

*

EMPLOYEE/Windows Supporting Procedures and Functions

*

*********************************************************

-"'--'LDURE readdeac isediting

.CTIVATE WINDOW '_sb91eg7ea' AiT WINDOW C EDITS NOW AiT

ıIF !WVISIBLE(WOUTPUT()) CLEAR READ RETURN .T. ılf .F. OCEDURE readact !isediting SELECT (m.wzalias) SHOW GETS IF DO REFRESH .OCEDURE wizerrorhandler

*

This very simple error handler is primarily intended

*

to trap for General field OLE errors which may occur

*

during editing from the MODIFY GENERAL window.

WAiT WINDOW message()

.OCEDURE printrec

PRIVATE sOldError, wizfuame,saverec,savearea,tmpcurs, tmpstr PRIVATE pmt_btn,p_recs,p_output,pr_out,pr_record

(53)

-·...; 617 3:SV:)

on

ourauuıq

·w 113:13:WV11Vd '1VA N.18 ınm.G3::)011d ml013:11 ::>;)J;)Aes·w OD

pıo:,gı-ıd~

lno-ıd~ (0SVl'1V) W110d 1110d3:11 Cı'1V,'ı l lX3:N.'I=S::>;)rd·w)dII=Pl0::>;}rJd·w C.A\3:IA3:11d,'.3:ıOSN0:)0N lNHid Olı'I=ındlno-d·w)dII=lno-ıd·w

dlGN3: dlGN3: Nllil13:11 Od3:110N :) A\OQNIA\ llVA\

ııodaı

oınoro ıou

pıno::,pmz!M~~ CX11.•r,+0SVl'1V)3:'1Hi dl

W3:'1:) lIV A\

(srnoduıruı)

NI

asrı

sm::>dwrw'Osvnv'.3:1 V3:11:)/N1!:)S0Nı'.Od3:11Ö-ZA\,'., HllA\ (;)WeUJZ!M"W) oa

(e;,ıe;,Aesw) 1:)3:'13:S

(ıısdwrw)S3:fl'1VA

(smoduıruı)

OlNl 1113:SNI

(OI)11H:)+(£ı)1IH:)+,WNWfl'10:) = lflOAVı *' =

nsdurruı

(uı ıuounııoo) (sm::>dwrw) 110S11fl:) 3:1V3:11:) (L'(£)SAShd3:'1+,-,=sm::>dwı·w

01:)3:'13:S=e;,ıe;,Aes·w

lIV A\ON Od3:113:)JVJl•r:) A\OQNIA\ 11VA\ dlGN3

dlGN3: ml013:11 ZIA\ON :) A\OQNIA\ lIV A\ (:}WeUJZ!M·w)1!3:ddfl$,JdV" Q11VZIA\,i dl l0ll3:PTOS~ 11011113: NO (ZIA\:)0'1-:)',ddV,',ddV"G11VZIM,)3:'1H:)0'1=;)WelIJZ!M"W

*

11011113:NO (:}WeUJZfMW)3:'1Hidl ,ddV"G11VZIA\,+,\SG11VZIA\,+(t,OOZ:)SAS=;,weUJZ!M"W C.X11d",+0SVl'1V)3:'1Hidl dlGN3: N11fll3:11

z

= uıq-ıwd·w dl '801e!pdoa (.ıon:},)NO=lOlltJPl os

'uı

::>;)J:}Aes Ol OON:)3:113:1101S

(54)

CASE m.btnname='TOP' GO TOP

WAiT WINDOW C TOPFILE NOW AiT CASE m.btnname='PREV'

IF !BOF() SKIP -1 END IF

IFBOF()

WAiT WINDOW C TOPFILE NOW AiT GO TOP END IF CASE m.btnname='NEXT' IF !EOF() SKIP 1 END IF IFEOF()

WAiT WINDOW C ENDFILE NOW AiT GO BOTTOM

END IF

CASE m.btnname='END' GO BOTTOM

WAiT WINDOW C END FILE NOW AiT CASE m.btnname='LOCATE'

DO loc_dlog

CASE m.btnname='ADD' AND !isediting &&add record

isediting=. T. isadding=. T. =edithand('ADD') _curobj=l DO refresh SHOW GETS RETURN

CASE nı.btnname='EDIT' AND !isediting &&edit record

IF EOF() OR BOF()

WAiT WINDOW C END FILE NOW AiT

RETURN

*

END IF IFRLOCK() isediting=.T. _curobj=l DO refresh RETURN ELSE

WAiT WINDOW C NO LOCK RETURN

(55)

CASE m.btnname='SA VE' AND isediting &&save record IF isadding

=edithand('SAVE') ELSE

GATHER MEMV AR MEMO END IF

UNLOCK isediting= .F. isadding= .F. DO refresh

CASE m.btnname='CANCEL' AND isediting &&cancel record

IF isadding =edithand('CAN CEL ') END IF isediting= .F. isadding= .F. UNLOCK

WAIT WINDOW C ECANCEL NOW AIT DO refresh

CASE m.btnname='DELETE' IF EOF() OR BOF()

WAIT WINDOW C END FILE NOW AIT RETURN

END IF

IF fox_alert(C_DELREC) DELETE

IF !EOF() AND DELETED() SKIP 1

END IF IFEOF()

WAIT WINDOW C END FILE NOW AIT GO BOTTOM END IF ELSE RETURN END IF CASE m.btnname='PRINT' DO printrec RETURN CASE m.btnname='EXIT'

m.bailout=.T. &&this is needed if used with FoxApp CLEAR READ

RETURN OTHERWISE

RETURN ENDCASE

(56)

SCATTER MEMV AR MEMO SHOW GETS

RETURN

OCEDURE REFRESH DO CASE

CASE m.isreadonly AND RECCOUNT()=O SHOW GETS DISABLE

SHOW GET exit btn ENABLE CASE m.isreadonly

SHOW GET add btn DISABLE SHOW GET edit_btn DISABLE SHOW GET del btn DISABLE SHOW GET save btn DISABLE SHOW GET can btn DISABLE

CASE (RECCOUNT()=O OR EOFO) AND !m.isediting SHOW GETS DISABLE

SHOW GET add btn ENABLE SHOW GET exit btn ENABLE CASE m.isediting

SHOW GET fınd_drop DISABLE SHOW GET top_ btn DISABLE SHOW GET prev_btn DISABLE SHOW GET loc btn DISABLE SHOW GET next btn DISABLE SHOW GET end btn DISABLE SHOW GET add btnDISABLE SHOW GET edit_btn,l DISABLE SHOW GET del_btn,l DISABLE

SHOW GET pmt_btn DISABLE SHOW GET exit btn DISABLE SHOW GET save btn ENABLE SHOW GET can_btn ENABLE

ON KEY LABEL ESCAPE DO BTN VAL WITH 'CANCEL'

RETURN ı.

-OTHERWISE

SHOW GET fınd_drop ENABLE SHOW GET top_btn ENABLE SHOW GET prev_btn ENABLE SHOW GET loc btn ENABLE SHOW GET next btn ENABLE SHOW GET end btn ENABLE SHOW GET add btn ENABLE SHOW GET edit_btn,l ENABLE SHOW GET del_btn,l ENABLE

(57)

PROCEDURE edithand

PARAMETER m.pact ion

*

procedure handles edits

DO CASE

CASE m.paction = 'ADD'

SCATTER MEMV AR MEMO BLANK

CASE m.paction

=

'SAVE'

INSERT INTO (ALIAS()) FROM MEMV AR

CASE m.paction

=

'CANCEL'

*

nothing here

ENDCASE RETURN

•• SHOW GET pmt_btn ENABLE

SHOW GET exit btn ENABLE SHOW GET save btn DISABLE SHOW GET can btn DISABLE ENDCASE

IF m.is2table

SHOW GET add btn DISABLE END IF

ON KEY LABEL ESCAPE RETURN

PROCEDURE fox alert PARAMETER wzalrtmess PRIVATE alrtbtn

m.alrtbtn=2

DEFINE WINDOW _qeclij2t7 AT 0,0 SIZE 8,50; FONT "MS Sans Serif', 1 O STYLE 'B' ;

FLOAT NOCLOSE NOMINIMIZE DOUBLE TITLE WTITLE() MOVE WINDOW _qeclij2t7 CENTER

ACTIVATE WINDOW _qeclij2t7 NOSHOW

@2,(50-txtwidth(wzalrtmess))/2 SAY wzalrtmess;

FONT "MS Sans Serif", 10 STYLE "B" @ 6, 18 GET m.alrtbtn ;

PICTURE "@*HT \<OK;\?\!\<Cancel" ; SIZE 1.769,8.667,1.333 ;

FONT "MS Sans Serif', 8 STYLE "B" ACTIVATE WINDOW _qeclij2t7 READ CYCLE MODAL

RELEASE WINDOW _qeclij2t7 RETURN m.alrtbtn=l

(58)

DEFINE WINDOW _qjn12zbvh; AT 0.000, 0.000 ; SIZE 13.231,54.800;

TITLE "Microsoft FoxPro"; FONT "MS Sans Serif', 8 ;

FLOAT NOCLOSE MINIMIZE SYSTEM MOVE WINDOW _qjn12zbvh CENTER

ACTIVATE WINDOW _qjn12zbvh NOSHOW @ 2.846,33.600 SAY "Output:" ;

@ 2.846,4.800 SAY "Print:" ; FONT "MS Sans Serif', 8 ; STYLE "BT"

@4.692,7.200 GET m.p_recs;

PICTURE "@*RVN \<Current Record;\<All Records" ; SIZE 1.308, 18.500,0.308 ;

DEFAULT 1;

@4.692,36.000 GET m.p_output;

PICTURE "@*RVN \<Printer;Pre\<view" ; SIZE l.308,12.000,0.308;

DEFAULT 1;

FONT "MS Sans Serif', 8 ; STYLE "BT" @ 10.154,16.600 GET m.prnt_btn; PICTURE "@*HT P\<rint·Ca\<ncel" ·

'

SIZE 1.769,8.667,0.667; DEFAULT 1;

FONT "MS Sans Serif', 8 ; STYLE "B"

ACTIVATE WINDOW _qjn12zbvh READ CYCLE MODAL

RELEASE WINDOW _qjnl2zbvh RETURN

PROCEDURE loc_dlog PRIVATE gfıelds,i

DEFINE WINDOW wzlocate FROM 1,1 TO 20,40;

SYSTEM GROW CLOSE ZOOM FLOAT FONT "MS Sans Serif',8 MOVE WINDOW wzlocate CENTER

m.gfields=SET('FIELDS',2) IF !EMPTY(RELATION(l))

(59)

IF m.gfields # 'GLOBAL' SET FIELDS GLOBAL END IF

IF EMPTY(FLDLIST()) m.i=l

DO WIBLE !EMPTY(OBN AR(m.i)) IF ATC('M.',OBJV AR(m.i))=O

SET FIELDS TO

(OBN

AR(m.i))

END IF m.i=m.i+l END DO

END IF END IF

BROWSE WINDOW wzlocate NOEDIT NODELETE ; NOMENU TITLE C BRTITLE

SET FIELDS &gfıelds SET FIELDS OFF

RELEASE WINDOW wzlocate RETURN

(60)

\ IL:\ Y HOTEL ,,.~/!'··

SERVICES

rtt.t

•••••··-·••· P- •• ..,,W,•~••·"'---.-, •.•••.•.-.--•~'••'"•'••--•··--·••AO-. ~--., ..•. ., •.••..<., •••••• ,_,.,,•• , •.••••.•,.:•>">*>.o',,.,·,,-~ ',•:.ı,,,.,,,_,••...•. ~ .•.•..••••••. ,..,....~ .••-. • SERVICE: DISCO FROM TO

11 PMT04AM

CHARGE 8DOLAR

(61)

*********************************************************

*

SERVICES PROGRAM

*********************************************************

• *

*********************************************************

*

_*

*

SER/Windows Setup Code - SECTION l

*********************************************************

=tREGION 1

PRIVATE wzfıelds,wztalk IF SET("TALK") = "ON"

SET TALK OFF m.wztalk = "ON" ELSE m. wztalk = "OFF" ENDIF m.wzfıelds=SET('FIELDS') ET FIELDS OFF

IF

m.wztalk = "ON" SET TALK ON END IF :::REGIONO

REGIONAL m.currarea, m.talk stat, m comp stat

IF SET("T ALK") = "ON" SET TALK OFF m.talkstat = "ON" ELSE

m.talkstat = "OFF" END IF

m.compstat = SET("COMPATIBLE") SET COMPATIBLE FOXPLUS m.rborder = SET("READBORDER") SET READBORDER ON

(62)

ELSE

_••

*

*********************************************************

*

S5689998/Windows Databases, Indexes, Relations

*

*********************************************************

*

IF USED("ser") SELECT ser

SET ORDER TO TAG "_sa00y9zzi" SELECT O

USE (LOCFILE("ser.dbf","DBF","Where is ser?"));

AGAIN ALIAS ser ; ORDER TAG "_sa00y9zzi" END IF

*

*********************************************************

*

*********************************************************

*

IF NOT WEXIST("_sb91fDmts") DEFINE WINDOW _sb9lfDmts; AT 0.000, 0.000 ; SIZE 7.913,62.500; TITLE "Ser" ;

COLOR RGB(,,,255,255,255)

MOVE WINDOW sb91 fümts CENTER

END IF

*

*********************************************************

*

SER/Windows Setup Code - SECTION 2

(63)

••••• ****************************************************

'Database is empty, add a record?'

•&•l!l':ıı.""E. C_EDITS 'Please finish your edits.'

IL""lıt C_TOPFILE 'Top of file'

••.•- ••..••.ı1'""E. C ENDFILE 'End of file.'

ırE C BRTITLE 'Locate Record'

flJIEF_ _...,,L"ıt C_NO LOCK 'Sorry, could not lock record -- try again later.'

IDEFINE C ECANCEL 'Edits Canceled.'

#DEFINE C DELREC 'Delete selected record?'

:lDEFINE C_NOFEAT 'Feature not available yet'

#DEFINE C_NOWIZ 'Wizard application is not available.'

#DEFINE C_MAKEREPO 'Creating report with Report Wizard.'

#DEFINE C_NOREPO 'Could not create report.'

#DEFINE C_DELNOTE 'Deleting records ... '

#DEFINE C_READONL Y 'Table is read-only. No editing allowed.'

#DEFINE C_NOTABLE 'No table selected. Open table or run query.'

#DEFINE C_BADEXPR 'Invalid expression.'

#DEFINE C LOCWIZ 'Locate WIZARD APP '

#DEFINE C_MUL TIT ABLE 'You have multiple related tables. Adding records in not allowed.'

MOVE WINDOW' sb9lf0mts' CENTER

PRIVATE isediting,isadding,wztblarr PRIVATE wzolddelete,wzolderror,wzoldesc PRIVATE wzalias, temp curs, wzlastrec PRIVATE isreadonly,fınd_drop,is2table IF EMPTY(ALIAS())

W AiT WINDOW C NOT ABLE RETURN END IF _•• m.wztblarr= " m.wzalias=SELECT() m. isediting=.F. m.isadding=.F. m. is2table

=

.F. m. wzolddelete=SET('DELETE') SET DELETED ON

m.tempcurs=SYS(2015) &&used if General field

m.wzlastrec = 1

(64)

ON ERROR DO wizerrorhandler wzoldesc=ON('KEY','ESCAPE') ON KEY LABEL ESCAPE

m.fınd_drop

=

IIF(_DOS,0,2)

m.isreadonly=IIF(ISREAD(),.T.,.F.) IF m.isreadonly

WAiT WINDOW C READONL Y TIMEOUT 1 END IF

SET READBORDER OFF

"

IF RECCOUNT()=O AND !m.isreadonly AND fox_alert(C_DBFEMPTY) APPEND BLANK

END IF GOTO TOP

SCATTER :MEMVAR :MEMO

*

*********************************************************

*

SER/Windows Screen Layout

*

*********************************************************

*

#REGION 1

IF WVISIBLE("_sb91f0mts")

ACTIVATE WINDOW sb91f0mts SAME

ELSE

ACTIVATE WJNDOW sb91fümts NOSHOW

END IF @0.000,0.125 TO 1.609,62.500; PATTERN 1; PEN 1, 8; COLOR RGB(0,0,128,128,0,0) @2.087,3.000 TO 3.348,18.625; PATTERN 1; PEN 1, 8; COLOR RGB(0,0,0, 192,192,192) @2.739,3.250 GET m.service; SIZE 1.000,20.000; DEFAULT"";

FONT "MS Sans Serif', 8 ; STYLE "B";

(65)

PICTURE ''@K XXXX:XXXXXXXX:XXX'' ; WHEN isediting ;

COLOR ,RGB(0,0,0,192,192,l92) _ 2.130,3.250 SAY "Service:";

SIZE 1.000,8.200 ;

FONT "MS Sans Serif', 8 ; STYLE "T"; COLOR RGB(128,0,0,192,192,192) _ 3.565,23.625 TO 4.826,37.750; PATTERN 1; PEN 1, 8; COLOR RGB(0,0,0, 192,192,192) ~ 4.217,23.875 GET m.from_to; SIZE 1.000,I8.000 ; DEFAULT II II;

FONT "MS Sans Serif', 8 ; STYLE "B"; PICTURE "@K X:XXXXXXXXXXX" ; WHEN isediting ; COLOR ,RGB(0,0,0, 192,192, I 92) _ 3.609,23.875 SAY

"Fromto:";

SIZE 1.000,8.200;

FONT "MS Sans Serif', 8 ; STYLE "T"; COLOR RGB(128,0,0, 192,192,192) = 4.696,44.375 TO 5.957,56.250; PATTERN 1; PEN 1, 8; COLOR RGB(0,0,0, 192,192,192) 5.348,44.625 GET rn.charge ; SIZE 1.000,15.000; DEFAULT II";

FONT "MS Sans Serif', 8 ; STYLE "B"; PICTURE "@K XXX:XXXXX~X" ; WHEN isediting ; COLOR ,RGB(0,0,0, 192,192,192) _ 4.739,44.625 SAY "Charge:"; SIZE 1.000,8.200 ;

FONT "MS Sans Serif', 8 ; STYLE "T"; COLOR RGB(l28,0,0,192,192,192) -· 5.783,0.000 TO 6.348,1.250; PEN 1, 8; STYLE "T"; COLOR RGB( 192,192, 192,,,,)

(66)

(LOCFILE(" d: \fpw26\wizards\wizbmps\wztop. bmp", "BMPIICOIPCTIICN", "Where is wztop?")) ;

SIZE 1.174,3.375,0.500; DEFAULT 1;

VALID btn_ val('TOP') ; MESSAGE 'Go to first record.' @6.565,9.250 GET rn.prevbtn ; PICTURE "@*BHN II

+ ;

•• @ 6.304,0.125 TO 7.913,62.500; PATTERN 1; PEN 1, 8; COLOR RGB(0,0,128,128,0,0) @ 6.565,4.750 GET m.top_btn; PICTURE "@*BHN "

+ ;

(LOCFILE(" d: \fpw26\wizards\wizbmps\wzback. bmp ", "BMPJICOJPCTJICN","Wher e is wzback?"));

SIZE 1.174,3.375,0.500; DEFAULT 1;

VALID btn_val('PREV') ;

MESSAGE 'Go to previous record.'

@6.565,13.750 GET m.loc_btn; PICTURE "@*BHN "

+ ;

(LOCFILE("d:\fpw26\wizards\wizbmps\wzlocate.bmp","BMPJICOJPCTJICN","Wh ere is wzlocate?")) ; SIZE 1. I 74,3.375,0.500; DEFAULT 1;

VALID btn_val('LOCA TE') ; MESSAGE 'Locate a record.' @ 6.565,18.250 GET m.next_btn; PICTURE "@*BHN II

+ ;

(LOCFILE("d:\fpw26\wizards\wizbmps\wznext.bmp","BMPIICOJPCTIICN","Wher e is wznext?")) ; SIZE 1.174,3.375,0.500; DEFAULT 1;

(67)

VALID btn_val('NEXT') ; MESSAGE 'Go to next record.' @6.565,22.750 GET m.end_btn;

PICTURE "@*BHN "

+ ;

(LOCFILE(" d: \fpw26\wizards\wizbmps\wzend. bmp", "BMP[ICO[PCT[ICN", "Where is wzend?")) ;

SIZE 1. 174,3.375,0.500; DEFAULT 1;

VALID btn_val('END') ; MESSAGE 'Go to last record.'

@6.565,27.250 GET m.add_btn;

PICTURE "@*BHN "

+ ;

(LOCFILE("d: \fpw26\wizards\wizbmps\wznew. bmp", "BMP[ICO[PCT[ICN", "Wher e is wznew?")) ;

SIZE 1. 174,3.375,0 500; DEFAULT 1;

'VALID btn_val('ADD');

MESSAGE 'Add a new record.'

@6.565,31.750 GET m.edit_btn;

PICTURE "@*BHN "

+ ;

(LOCFILE(" d: \fpw26\wizards\wizbmps\wzedit. bmp ", "BMPIICOfPCTfICN", "Wher e is wzedit?")) ;

SIZE 1. 174,3.375,0.500; DEFAULT I;

VALID btn_val('EDIT') ; MESSAGE 'Edit current record.' @6.565,36.250 GET m.del_btn;

PICTURE "@*BHN"

+ ;

••

(LOCFILE(" d: \tpw26\wizards\wizbmps\wzdelete. bmp", "BMPfICOfPCTIICN", "Wh

ere is wzdelete?")) ;

SIZE 1. 174,3.375,0.500 ; DEFAULT 1;

VALID btn_val('DELETE') ; MESSAGE 'Delete current record.'