of C.I.S Lefkosa,2005 (Graduation Project) RENT A CAR SYSTEM to:Department NEAR EAST UNIVERSITY OF ECONOMICS AND ADMINISTRATIVE SCIENCES OF COMPUTER INFORMATION SYSTEMS 2004/2005 SPRING TERM CIS 400

(1)

NEAR EAST UNIVERSITY

OF ECONOMICS AND ADMINISTRATIVE

SCIENCES

OF COMPUTER INFORMATION SYSTEMS

2004/2005 SPRING TERM

CIS 400

(Graduation Project)

RENT A CAR SYSTEM

to:Department of C.I.S

(2)

CONTENTS

...

2 •...•...•...

3 ...•.•••...•.••••••.•.•.••.••.•••••••....•..•..•••...•...

4-5

OF THE SYSTEM •....••...•...•••••...

-Explanation ...••. ., .••.•.•..•...•...•...•.•...•...

6 -Data Flow Diagram ...•...•••.••.•..•...••.•.•.•...•..•...•.••... 7-13

-System Block Diagram .••••....•....•..•..•...•..••...•..••.••••...•.... 14

-Database Design ••••...•••.•.••••••••••...•••••••••••••...•.••••••.•••••••.• 16-18

V.USER GUIDLINES •.•.•.•... ., ...•...•...•.••..•.••..••.•...•...•. 19-21

- User Manual .•...•.••••...•...••••....•.••••.•..•...•....•...•.•••••• 22-27

-User Flow Charts ...•.•...•....••.••...•.•...•.•...•...••.•• 28-74

....••.•.••••.•••••....••..•••••.•••...•..•••••••••••••....•.•••• 75

-Sereen Output •.•..••.•...••..••••...•.•...••••.•••..•...••••.••••...•..•.. 7 6-100

APPENDIX II

(3)

ACKNOWLEDGEMENT to thank to:

My instructors Dr.Y alcm AK.CALI and Miss. Nadire

<;A

VUS and Mr.

J.V.Lu~wrn MENEKA Y for their support in completion of my project.

My friend Necip

Dinarh.Mustafa

Yuruker and Fatih Cay for his technical and Psychological contributions and support to conclude the project.

Also thanks to:

My family for providing me with financial support while preparing the

Project and for their psychological support in all parts of life

by

providing me comfort and the necessary condition to develop myself and educate in high

(4)

ABSTRACT

a project, we decided to make a software which is called "RENT

SYSTEM".

In rent a car, all the information about cars are stored at the papers. With this

Qnttmi:irP

all the information will be stored at computers.Because of reasons,we prefed to

system.as a project to rent a car.We take customer and car information

we keep to revenue/expenditure of system, we see all of the customer,car,rent a car

account insurance service and pert report information.

In system we make everything in hand so occur some errors and to try

1u11111111.u;;

this errors.

Advantages of this project to make easy stock control,see revenue/expenditure,

decrease of risk and increase of security.

(5)

INTRODUCTION

CLiPPER 5 programming language all of these errors will be

ucvau;:,c; all information to enter in hand so records will be more

r,/J:Setore information made to record manually if user use this program

is very easy because everything explain to step step.

processes are included as follows;

CUSTOMER PROCESS:

process when a customer come we take customer information. subprocesses

we can add customer information and update information . These information

customer name,surname,address,telephone number and customerID number.

2. CAR RENT PROCESS:

On this process have three subprocesses.First Starting Rent a Car can add

start rent date,one day rent cost,and take deposit .Second Closing Rent a Car

can add close rent date,and otomatic calculate how many days customer used

car and calculate how much money give to customer. Third Update Car

Specification can updated car information.

3.SUPPLY

&

PERT PROCESS:

On this process have to two subprocesses.First Supply Car, can add to car plate,brand,

model, colour, cost,abs,air-conditioner, otomatic/manual,diesel/petrol and firm name

firm authorized person,firm telephone number. Second Pert Car, take information to

(6)

4.INSURANCE PROCESS:

On this process have to two subprocesses.First Add New Car Insurance,

when we take new car , we must to get insurance.

Second Insurance Update,

when car insurance date finish,we updated insurance.

5.SERVICE PROCESS:

On this process have to two subprocesses.First Car Sending, when car break down

in this process send to service and add to service start date.

Second Car Taking Back,

when car serviced finish car taking back and add to service finish date and service cost.

6.REPORT PROCESS:

On this process we make show customer,car,rent a car,account,insurance,service and

pert report.Customer report has include all customer report,search of customer ID,

search of customername,search of customer surname.Car report has include all

car report,parking car report and search of car plate.Rent a Car report.Account report

has include service cost,insurance cost,total cost,rent profit and total profit.Insurance

(7)

DESIGN OF THE SYSTEM

EXPLANATION:

minimum reguirements of the system are as follows:

Intel Pentium III Processor

MHZ

MB of RAM

30 GB hardisk

l S"Monitor

Microsoft Windows 98

LG CD-ROM CRD 8522B

The recommended reguirements of the system are as follows:

Intel Pentium IV processor

800MHZ

256MB ofRAM

60 GB harddisk

I ?"Monitor

Microsoft Windows XP Proffesional

LG CD-ROM CRD 8522B

I'm using CLIPPER 5 program language to make the processing available on the

computer.The CLIPPER 5 programming is runnig under the DOS.The hardware system is at

list should be Pentium III 450 MHZ intel(r) CELERON(tm) processor CPU 64.0 MB RAM

(8)

(9)

Context Diagram For Rent A Car System

SERVICE SUPPLIER ~ <( I- <( <( _<( _I-

a:::

0 0 <(

w

0::

(9 0 0 0 <( _....J

z

_er:

0::

0 0 () _...I (9 <( 0 (D

_z

()

a:::

w

<( I- <( <( (9 I

a:::

() () <( ()

tu

w

s

~

_a:::

o,

()

_w

<( <( 0

z

0 ()

>

z

I

...

-

RECEIPT

CUSTOMER KNOWLADGE

/

_RENT

A

CHANGING DATA _ \

_CAR

SYSTEM

1-

z

w

a:::

<( () ~

o,

a..

<( ...I ...I (D 0

w

1- ()

w

""')

w

a:::

0

w

l-

o,

ui () 0'---, <( REPORT(*) MANAGER

NOTES(*)

1-CUSTMER REPORT 2-CAR REPORT

3-RENT A CAR REPORT 4-ACCOUNT REPORT 5-INSURANCE REPORT 6-SERVICE REPORT 7-PERT REPORT

(10)

UJ () ~ UJ Cl)

I

0 _...I LL _...I z

ffil

-

_{O:INI lNnOOO'v'}

0:::

~ <(

vivo

() 0 1-UJ 0 _<( w _{lNnOOO'v' 301/\cl3S} zW ~ :::> <( C) ~ 0 [Xl z ₀ _{() <(}

c3

_z

_0:::

<( ()~ 0 <(QI 0 ~ <( <( _I- 0 0 LL L, () _I- J: <( z _LL ₀ _LL _z _0::: () I- ~ :::> z LL z

-

0

0:::

,~#

-

z

-

UJ a.

0:::

_UJ ₀ _I- _UJ ₍₎ _w <(

_a.

w O:'.'. O:'.'. ()

z

0::: 0 0 I- 0 w _w

c3

~ <( z z u.. 0 _a.

0:::

<( _:::,

_z

~ 0::: 0<( _UJ :::> ::> UI-

_0:::

_Cl) _Cl) Cl) _()<( _UJ z z <(0 <( _Cl)

-

() 'v'l'v'O

svo

lcl3d

_0:::

w ~

z

~

••

'v'J.'v'O cl'v'O M3N O.:INI

MVOV.LN3M ~30~0 1- z :::>O 0 ~ 0 LL ₀ 1118

z

_UJ

0:::

_~ 03.L03r3~ <( MO 03ld300'v' () 0 a. :::>

0:::

<( () 30N~nSNI J.dl303cl .LN3M M'v'O A ldd'v'

(11)

Detail DFD For Customer Process(1)

Customer knowladge

I

Customer changing data

---

CUSTOMER.

I

1 . 1

\

Customer New Data

ADD NEW

CUSTOMER

PROCESS

CUSTOMER DATABASE

1.1 UPDATE

CUSTOMER

PROCESS

(12)

Detail DFD For Car Rent Process(2)

CUSTOMER

DATABASE

CAR

DATABASE

ACCOUNT DATABASE CUSTOMER ACCOUNT INFO l-

a..

w

()

w

0::

RENT ACCOUNT DATA

RENT ALL DATA

RENT A CAR RECORD RENT A CAR RECORD RENT DATABASE APPLY CAR

CAR UPDATED DATA

RENT

MANAGER

CAR CHANGING DATA

(13)

Detail DFD For Supply

&

Pert Process(3)

SUPPLIER

INVOICE CAR ORDER

NEW CAR ORDER

3.2 PERT CAR KNOWLADGE (

PERT

.,

CAR

PROCESS

SERVICE

ACCOUNT

DATABASE

MANAGER

PERT CAR

DATA

CAR

DATABASE

NEW CAR

ACCEPTED OR REJECTED

INVOICE

(14)

Detail DFD°Fo( Insurance Process(4)

CAR INSURANCE DATA

CAR UPDATED INSURANCE DATA INSURANCE ACCOUNT DATA CAR INFO INSURANCE CAR

ORDER

MANAGER CAR DATABASE ACCOUNT DATABASE

(15)

DAMAGED CAR DATA BILL CAR INFO CAR DATABASE SERVICE SERVICE DATA 4.2 CAR TAKING A BACK ~ D 1-

z

:::>

0 0 0 <(

w

0

>

0:::

w

en

ACCOUNT DATABASE

(16)

Detail D

1

FD For Report Process(6)

CUSTOMER

DATABASE

RENT

DATABASE

CAR

DATABASE

ACCOUNT

DATABASE

0 u..

z

0:::

w

2: ~: ::::>

o:

RENT A CAR

I

CAR INFO~ 0 INFO

~I

_w

1___e

INSURANCE 0 ~ INFO w Cl) 0 u..

z

-

1-

z

::,

0 0 ~

6.6 SERVICE

REPORT

PROCESS

I- I- I- 0:::: 0:::: _0:::: I- I- 0 0 ₀ 0:::: _0:::: D.. 0.. D.. I- 0 0 _I-

w

_w

0:::: D.. 0.. _0:::: 0:::: 0:::: 0:::: 0

w

_w

0

w

I- 0.. 0:::: _0:::: 0.. () () _0::::

w

0:::: _0::::

w

z

>

w

_0:::: 0:::: <( D..

w

_<( 0:::: I- ~ ₍₎ 0:::: _0::::

w

z

0 <( _<(

:::>

Cl)

:::>

I- () Cl) 0 Cl) I-

z

()

z

-

:::>

w

() () 0:::: <(

MANAGER

(17)

:aE

w

I-

en

>-

en

0::

()

<(

1-

z

w

0::

0 u,

:aE

~

C)

<(

-

C

~

(J

0 ...J

m

:aE

w

•••••

"'

>-

_en

I-

><

_w

w

(.) w

ZI- <( <(

0::

0 :::>

a..

Cf)

:::>

z

(9

0::

z

I-

0::

0 z<(

(9

<(

1-W

zu,

-

(.)

z (.)

wtJ>

I-

<( Cf) <(

0::

<( I-

~(.)

_{0:: I-}

<( (.) <(

~o

~z

01-

(.) u:::

0

<C~

--' z

- a..

(.) a.

cnW (.) w

(.)

:::)

• 0::

w

t

a..

Cf)

~ ti)

0::

u. 0::

WO

ow

w

(I)

~ 0::

w~

:Ew

00 1-0

~

(.)

I- (.)

<(

I-

cnw

0 Cf)

Ir

0 l- a.. 0:: UJ 0 a::: a. w w (.) 0:: 5 l- a::: a:: w w en a.

(18)

(19)

(20)

RELATIONSHIPS

CAR

ACCOUNT

A_ID

C_MARKA

A_RENTPRC

C_MODEL

A_INSPRC

C_RENK

A_SERCPRC

C_PLAKA

A_SPLYPRC

C_YIL

C_PLAKA

C_ISIM

A_DEPOS

C_SAD

A_REMAN

C_TEL

M_ID

C_INRENT

C_INSERV

C_PERT

C_INSBAS

RENT

C_INSBIT

C_SERVBAS

R_TARIH

C_SERVBIT

-

_{C_PLAKA}

C_SERVPRC

R_TAR

C_INSPRC

R_GUN

C_SPLYPRC

R_G

C_RENTPRC

R_NAME

C_ABS

-

M_lD

-

C_AIR

R_SURNAME

C_OTO

R_MARKA

C_RIG

R_MODEL

CREPRC

R_DEPOS

R_RENTPRC

R_KALAN

MUS

M_ID

-

M_NAME

M_SURNAME

M_ADRESS

M_TELNO

(21)

CD INTO THE CD DRIVE,THEN CLICKMYCQMPUTER.(see figure(l.1))

3li Disket (A:J Mustafa (C:J Web Klasorleri

Zamanlanmr~ Gorevler

(22)

FIGURE(l.3)

STEP4:AFTER FINISH INSTALLATION GO BASLAT BAR ,CLICK PROGRAMLAR AND CLICK MS-DOS KOMUT iSTEMi.(SEE FIGURE (1.3))

(23)

ALL THIS,YOUR PROGRAM WILL BE INSTALLED SUCCESFULL Y

YOUR SYSTEM.IF YOU CAN OPEN CLIPPER 5 ENTER THE KEYBOARD 'CD'

NAME AND THEN CL 'PASS' AND ENTER CORRECT PASSWORD FROM

(24)

(25)

customer. seefigure(12) USER MANUAL

For entry to this program,you should entry correct password that is "NECIP" .When entry

Correct password you will see choice menu.If you enter wrong password 3 times you can't

Entry to the choice menu.seefigure(S)

THE CHOICE MENU seefigure(6)

MAIN MENU seefigure( 6)

PROGRAM ABOUT INFO seefigure(7) ABOUT ME seefigure(8)

CHANGE PASSWORD seefigure(9) EXIT

MAIN MENU

1-CUSTUMER MENU seefigure(lO)

1.1-ADD NEW CUSTOMER

When we want to add new customer,you select "Add New Customer" menu from

The Customer Menu.You should give a customer ID number,and then you fill the

Form and save it.Then to appear do you want to continue? Message if you enter 'y'

or 'Y' you continue add new customer,ifyou enter 'n' or 'N' you get out to add

new customer. seefigure(l 1)

1.2-UPDATE OF CUSTOMER

For updating of customer you should entry customer ID number and you can change any

information of customer and then ask do you want to continue? Message if you enter 'y' or

'Y' you continue update of customer.if you enter 'n' or 'N' you get out to update of

A CAR MENU seefigure(13)

RENT A CAR

(26)

customer information and we press car plate and we see all car information and we

add start rent date,how much money one day to car and take deposit from customer.

and then to appear do you want to continue? Message if you enter 'y' or 'Y' you

continue add new customer,if you enter 'n' or 'N' you get out to add new customer.

seefigure(14, 15)

2.2-CLOSING RENT A CAR

When a customer give to back a car, we enter customer id number and we see all

customer information and we press car plate and we see all car information and we

add close rent a date and this process otomatic calculate how much money give to

customer and then to appear do you want to continue? Message if you enter 'y'

or 'Y' you continue closing rent a car,ifyou enter 'n' or 'N' you get out to closing

rent a car. seefigure(16, 17)

2.3-CAR SPECIFICATION UPDATE

For updating of car specification you should entry car plate number and you can change any

information of car.Then ask do you want to continue? Message if you enter 'y' or 'Y'

you continue update of car,if you enter 'n' or 'N' you get out to update of car. seefigure(18)

3-SUPPLY &PERT CAR

seefigure(19)

3.1-SUPPLY CAR

When we want to add new car,you select "Supply Car" menu from the Supply & Pert

menu.You should give a car plate number,and then you fill the form,and add to firm

name,firm authorized person,firm telephone bumber and save it.Then to appear do you

want to continue? Message if you enter 'y' or 'Y' you continue supply car,if you enter

(27)

menu from the Supply & Pert menu and we enter car plate number and we see all car

information and we want to pert this car save it. Then to appear do you want to continue?

Message if you enter 'y' or 'Y' you continue pert car,ifyou enter 'n' or 'N' you get out

to pert carseefigure(22)

4-INSURANCE PROCESSseefigure(23).

4.1-ADD NEW CAR INSURANCE

When we can make supply car process we purchase to new car otomatic make to add new

car insurance. We enter car plate number show all car information and add to insurance start

date,insurance finish date and insurance price. Then to appear do you want to continue?

Message if you enter 'y' or 'Y'

you continue add new car insurance,ifyou enter 'n' or

'N'

you get out to add new car insurance. seefigure(24)

4.2-INSURANCE UPDATE

When insurance finish date upper than today's date we make update insurance,we enter car

plate number show all car insurance information and we can change to insurance start

date,insurance finish date and insurance price.

Then to appear do you want to continue?

message if you enter 'y' or

'Y'

you continue insurance update,ifyou enter 'n' or

'N'

you

get out to insurance update. seefigure(25)

5-SERVICE PROCESSseefigure(26)

5.1-CAR SENDING

When car make to break down, we send to service garage.We enter car plate number show all

car information and add to service start date and then to appear do youwant to continue?

Message if you enter 'y' or

'Y'

you continue car sending,ifyou enter 'n' or

'N'

you get out

to car sending. seefigure(27)

(28)

When car servise is finish,you select "Car Taking Back" menu from the Servise menu

and we enter car plate number and we see all car service information and add to service finish

date and service price. Then to appear do you want to continue? Message if you enter 'y' or

'Y' you continue car taking back,ifyou enter 'n' or 'N' you get out to car taking back.

seefigure(28)

6-REPORT PROCESSseefigure(29)

6.1-CUSTOMER REPORTseefigure(30)

6.1.1-ALL CUSTOMER REPORTseefigure(3 l)

When you click all customer report show the all customer.

6.1.2-SEARCH OF CUSTOMERseefigure(32)

6.1.2.1-SEARCH OF CUSTOMER ID

When you click search of customer ID, you enter customer id number you see this

customer's information and rent a car. Then to appear do you want to continue? Message

if you enter 'y' or 'Y' you continue search of customer id,ifyou enter 'n' or 'N' you get out

to car search of customer id. seefigure(33)

6.1.2.2-SEARCH OF CUSTOMER NAME

When you click search of customer Name, you enter customer name you see this

customer's information and rent a car. Then to appear do you want to continue? Message

if you enter 'y' or 'Y' you continue search of customer name,ifyou enter 'n' or 'N' you

get out to car search of customer id seefigure(34)

6.1.2.3-SEARCH OF CUSTOMER SURNAME

(29)

get out to car search of customer surname. seefigure(3 5)

6.2-CAR REPORT seefigure(36)

6.2.1-ALL CAR REPORT

When you click all car report show the all car. seefigure(37)

6.2.1-PARKING CAR REPORT

When you click parking car report show the parking car. seefigure(38)

6.2.3-SEARCH OF CAR PLATE

When you click search of Car plate, you enter car plate number you see thiscar' s information .

Then to appear do you want to continue? Message if you enter 'y' or 'Y' you continue search

of car plate,ifyou enter 'n' or 'N'

you get out to car search of car plate. seefigure(39)

6.3-RENT A CAR REPORT

When you click rent a car report show the rent a car. seefigure(40)

6.4-ACCOUNT REPORT seefigure(

41)

6.4.1-SERVICE COST

When you click service cost show the service cost. seefigure(

42)

6.4.2-INSURANCE COST

When you click insurance cost show the insurance cost. seefigure(

43)

6.4.3-TOTAL COST

When you click total cost show the total cost. seefigure(

44)

6.4.4-RENT PROFIT

When you click rent profit show the rent profit. seefigure(

45)

6.4.5-TOTAL PROFIT

(30)

When you click total profit show the total profit. seefigure( 46)

6.4.6-BETWEEN TWO DATES PROFIT

When you click between two dates profit ,you enter first date and second date

and the program calculate beetween two dates profit. seefigure( 47)

6.4.7-ACCOUNT ID REPORT

When you click account id report show the all account id report. seefigure( 48)

6.5-INSURANCE REPORT

When you click insurance report show the insurance report. seefigure( 49)

6.6-SERVICE REPORT

seefigure(SO)

6.6.1-SERVICEREPORT

When you click service report show the service report. seefigure( 51)

6.6.2-SERVICE GARAGE REPORT

When you click service garage report show the car service garage. seefigure(52)

6.7-PERT REPORT

When you click pert report show the pert car report. seefigure(53)

ME

you click about me show the all info ofprogramer.

ABOUT INFORMATION

you click program about information show the all program about information.

PASSWORD

user click change passsword enter the new password then agam new enter the password question 'do you want to change password?' Message if you enter 'OKEY'password cnange .if you enter 'CANCEL' password not change.

(31)

PASSWORD

START

ENTER THE PASSWORD

(32)

CHOICE MENU

CHOICE MENU 1-MAIN MENU

2-PROGRAM ABOUT INFORMATION 3-ABOUT ME 4-CHANGE PASSWORD 5-EXIT SELECT YOUR CHOICE y MAIN MENU PROGRAM ABOUT INFORMATION

l

ABOUT ME CHANGE PASSWORD

(33)

MAl,N MENU

MAIN MENU 1-CUSTOMER 2-CAR RENT 3-SUPPLY&PERT 4-INSURANCE 5-SERVICE 6-REPORT 7-EXIT SELECT YOUR CHOICE y y '>---;,,i.

2

y y

">-~~~~~~~4

y y y

(34)

INFQ,Q,F PROGRAM(PROG)

SHOW THE INFO OF PROGRAM

y

(35)

INFO O:F PROGRAMMER{ME)

SHOW THE INFO OF PROGRAMMER y N 32

(36)

CHANGlz .. PASSWORD(PAS)

ENTER THE

NEW PASSWORD

ENTER THE

NEW PASSWORD

y

N

SAVED

(37)

CUSTOMER MENU

1-CUSTOMER RECORD 2-UPDATE OF CUSTOMER 3-RETURN OF MAIN MENU

1

SELECT YOUR CHOICE

l

y

"""">---

®

y

'::> ••

®

y

(38)

ADD NEW CUSTOMER (1.1)

CUSTOMER ID,CUSTOMER NAME,

CUSTOMERCUSRNAME,CUSTOMER ADRESS

CUSTOMER TELEPHONE NUMBER

SAVED

y

(39)

UPDATE OF CUSTOMER(l .2)

ENTER THE

CUSTOMER ID NUMBER

y

N

CUSTOMER

RECORD

l

ENTER THE NEW

CUSTOMER INFO

SAVED

(40)

CAR REN'T MENU

1-RENT A CAR STARTING 2-CLOSING RENT A CAR

3-CAR SPECIFICATION UPDATE 4-RETURN OF MAIN MENU

1

SELECT YOUR CHOICE

1 y

--==---.

®

y

""">---+

®

y

"">---+

@

N

y

@AIN

...__

_

(41)

CAR RENT MENU

1-RENT A CAR STARTING 2-CLOSING RENT A CAR

3-CAR SPECIFICATION UPDATE 4-RETURN OF MAIN MENU

l

SELECT YOUR CHOICE

l

y

":>

••

®

y

:>

--

@

y

":>

••

®

N

y~

~

(42)

ST ART RENT A CAR(2.1)

ENTER

CUSTOMER ID

YI/

SHOW

CUSTOMER

INFORMATION

ENTER

CAR PLATE

SHOW

CAR

INFORMATION

l

LAST RENTPRICE,

START RENT A DATE,

CAR DEPOSIT

SAVED

SHOW THE DEPOSIT RECEIPT

(43)

Gt

N A .Ldl303~ 3H.LMOHS

03A'1'S

3.l

'1'0

'1'

.lN3cl

3S018

NOI.L 'v'lf\J~O.:INI .LN3~·~vo'~31f\JO.LSnO 11'7' MOHS N A

j

·ctv

(44)

UPDATE OF CAR(2.3)

ENTER THE

CAR PLATE NUMBER

N

CAR

RECORD

ENTER THE NEW

CAR INFO

SAVED

(45)

SUPPL Y>&>PERT MENU

1-SUPPL Y CAR 2-PERT CAR

3-RETURN OF MAIN MENU

1

SELECT YOUR CHOICE

1 y

"">---+

®

y

":>

••

®

N

(46)

SUPPLY CAR (3.1)

CAR PLATE,CAR BRAND ,CARYEAR,CAR COLOUR,CAR ABS,CAR AIRBAG, CAR COST,

CAR AIR-CONDITION,CAR RENT PRICE

SAVED

y

(47)

PERT CAR (3.2)

ENTER

CAR

PLATE

<

RE~cfRD )

PERT ED

y

N

(48)

INSURANCE

2-1

NSURANCE UPDATE 3-RETURN OF MAIN MENU

l

SELECT YOUR CHOICE

l

y

">

·@

y

~ ~

N

(49)

ADD NEW ~AR INSURANCE(4.1)

ENTER CAR PLATE

l

SHOW CAR INFORMATION

l

START INSURANCE DATE, FINISH INSURANCE DATE,

INSURANCE PRICE

I

SAVED

I

y

N

(MAIN\

~

(50)

INSURANCE UPDATE(4.2)

ENTER

CAR

PLATE

INSURANCE

CAR

RECORD

y

N

(51)

}"

SERVICE MENU

1-CAR SENDING 2-CAR TAKING BACK 3-RETURN OF MAIN MENU

l

SELECT YOUR CHOICE

l

y

...., __... ®

y

">---®

y

~

N

47

(52)

SERVICE SENDING (5.1)

ENTER CAR PLATE

l

1

ST ART SERVICE DATE

lsAVEDI

y

(53)

CAR T'\K,~NG BACK (5.2)

ENTER CAR PLATE

l

FINISH SERVICE DATE SERVICE PEICE

I

SAVED

I

N

~ ~

y

(54)

REPORT MENU

~

1-CUSTOMER REPORT 1-CAR REPORT 2-RENT A CAR REPORT 3-ACCOUNT REPORT 4-INSURANCE REPORT 5-SERVICE REPORT 6-PERT REPORT

7-RETURN OF MAIN MENU

SELECT YOUR CHOICE y ~---;,.{ 6.1 y y y y y y

(55)

CUSTOMER REPORT

1-ALL CUSTOMER REPORT 2-SEARCH OF CUSTOMER ID 3-RETURN OF MAIN MENU

l

SELECT YOUR CHOICE

l

y

"'>---

@

y

".>---@

y

8

(56)

CUSTOMER REPORT

(57)

SEARCH OF CUSTOMER

1-SEARCH OF CUSTOMER ID 2-SEARCH OF CUSTOMER NAME 3-SEARCH OF CUSTOMER SURNAME 4-RETURN OF MAIN MENU

SELECT YOUR CHOICE

y

'> •( 6.1.2.1

y

'> •( 6.1.2.2

y

'> •(

6.1.2.3 N

y

(58)

SEARCH OF CUSTOMER ID (6.1.2.1)

ENTER CUSTOMER ID

y

SHOW CUSTOMER AND RENT CAR INFORMATION y

N

(59)

SEARCH OF CUSTOMER NAME (6.1.2.2)

6.1 .. 2.2 ENTER CUSTOMER NAME

y

SHOW CUSTOMER AND RENT CAR

INFORMATION

y

(60)

SEARCH OF CUSTOMER SURNAME (6.1.2.3)

6.1 .. 2.3

ENTER CUSTOMER SURNAME

y

N SHOW CUSTOMER AND RENT CAR

INFORMATION

y

(61)

CARRSPORT

1-ALL CAR REPORT 2-PARKING CAR REPORT 3-SEARCH OF CAR PLATE 4-RETURN OF MAIN MENU

l

SELECT YOUR CHOICE

l

N

y

'"'>---@

y

>

~@])

y

'"'>---@

-..,..__ y

8

(62)

ALL CAR,REPORT(6.2.1)

(63)

PARKING GAR REPORT(6.2.2)

PARKING CAR REPORT

(64)

SEARCH OF CAR PLATE (6.2.3)

6 .. 2.3

ENTER CAR PLATE NO

N

y

N

(65)

RENT A CAR REPORT(6.3)

6.3

(66)

ACCO,µ~~REPORT(6.4)

.6.4 1-SERVICE COST 2-INSURANCE COST 3-ACCOUNT REPORT 4-RENT PROFIT 5-TOTAL PROFIT

6-BETWEEN TWO DATES PROFIT 7-ACCOUNT ID REPORT

8-RETURN TO MAIN MENU

ENTER THE CHOICE

y y y y y y y

(67)

SERVICE CC>ST REPC>RT(6.4.1)

(68)

INSURANCE COST REPORT(6.4.2)

(69)

CAR COST REPORT(6.4.3)

(70)

RENT PR0FIT REP0RT(6.4.4)

(71)

TOTAL PROFIT REPORT(6.4.5)

(72)

BETWE,EN TWO DATES PROFIT

ENTER FIRSTDATE,LAST DATE

TOTAL PROFIT

N

®

(73)

ACCOUNT' IE>>REPORT'(6.4.7)

(74)

INSURANCE REPORT(6.5)

(75)

SERV1€E REPORT

1-SERVICE REPORT 2-CAR SERVICE GARAGE 3-RETURN OF MAIN MENU

l

SELECT YOUR CHOICE

l

y

~---~

y

;>

·@

y

N

(76)

SERVICE REPORT(6.6.1)

(77)

SERVICING GARAGE REPORT(6.6.2)

CAR SERVICING

GARAGE REPORT

(78)

PERT REPORT(6.7)

(79)

REFERANCES

arnl\..,mc;uul\..,"CLiPPER 5.2 Veri Tabam Proglamlama Dili" Basim Yayim Dagmm A.$.,3 Bask1-January 1998-istanbul

Dogan ,"Programming In DBase" East University,May 1992-Nicosia

Soner,"proglamaya Giri~ ve Algoritmalar" ).1\,.auc;uu Yaymevi. l.Bask1-August 2000-Rize

(80)

(81)

(82)

(83)

(84)

(85)

(86)

(87)

(88)

(89)

(90)

(91)

(92)

(93)

(94)

(95)

(96)

(97)

(98)

(99)

(100)

(101)

(102)

(103)

(104)

(105)

(106)

(107)

PASS.PRG PAS TO P3 (5) color to r+/gr+ 0 say replicate ("-",80) COLOR TO r/dr say replicate ("- ",80) color to B+/W clear to 15,63 15 to 15,63

28 say "Please Enter Password:" lastkey () =27 set color to clear quit if color to B+/W , 50 say " " set color to set color to W+/W+

@11,50 get c picture "@lA,1!" read

set color to B+/W @11,50 say"*" set color to

set color to W+/W+

@11,51 get a picture "@lA,1!" read

set color to B+/W @11,51 say"*" set color to

set color to W+/W+

@11,52 get y picture "@lA,1!" read

(108)

"*" W+/W+ z picture "@lA,1!" W+/W+ picture "@lA,1!" ( "Password Accepted") do CHO alert("Wrong Password") clear for i=O to 24

@l+i,O say replicate (" ",80)

next i

if d+l d=5

alert("You Tried 3 Times Wrong Password")

set color to return if end do SET COLOR TO ALL

(109)

CHO.PRG A CAR SYSTEM" ,•11:i.:,.:,,M.1.:J!:i TO 24 CENTER TO 24 TO G/N ( "#", 88) CLEAR TO 20,65 20,65 DOUBLE TO G/N II

PROMPT"l-MAIN MENU" MESSAGE II MAIN MENU II

PROMPT"2-PROGRAM ABOUT INFORMATION" MESSAGE" PROGRAM ABOUT INFORMATION

PROMPT"3-ABOUT ME" MESSAGE" ABOUT ME INFORMATION

PROMPT"3-CHANGE PASSWORD" MESSAGE" CHANGE PASSWORD

PROMPT"4-EXIT" MESSAGE "EXIT" COLOR TO COLOR TO TO G/N II II TO CHO SET COLOR TO DO CASE CASE CHO=l DO ANAMENU CASE CH0=2 DO INFOPROG CASE CH0=3 DO INFOYAP CASE CH0=4 DO STPAS CASE CH0=5 CLEAR #DEFINE PCIKISl #DEFINE PDEVAM2 A= { "YES II' "NO II}

N=ALERT ( "DO YOU WANT TO EXIT PROGRAM?", A)

DO CASE CASE N=l SET COLOR TO QUIT CASE N=2 DO CHO END CASE ENDCASE

(110)

center

("-",80)

"

Customer" message "Customer Management" Car Rent" message "Car Rent"

Supply & Pert" message "Supply and Pert" Insurance" message "Insurance"

Service" message "Service" Reports" message "Reports Menu" Exit" message "Exit"

"

choose if lastkey () =27 set color to clear quit end if case choose=l set color to do cust case choose=2 set color to do car case choose=3 set color to do supply case choose=4 set color to do insu case choose=S set color to do serv case choose=6

(111)

(112)

INFOPROG.PRG

TO G/N

TO G/N to 24,78 to 24,78 DOUBLE

8 SAY "INFORMATION OF PROGRAM"

COLOR TO G/N CLEAR TO 19,75 TO 19,75 DOUBLE

SAY "This Program has fifty small prg.My Program name is"

"'RENT A CAR SYATEM'.My Program has six Main Process,This Processes;"

"1-CUSTOMER 2-CAR RENT 3-SUPPLY & PERT 4-INSURANCE 5-SERVICE 6-

"Customer processes make to new customer record and search this

"and make to update customer.Car Rent process make to start rent a car"

SAY "to customer and close the rent a car to customer.Supply process buy

SAY "to car,and Pert process we send car to a service garage and service

SAY "garage say this car,customer don't use Pert process make to this car

SAY "perted.Insurance process we buy to car otomatic make to Insurance

SAY "some car insurance date finish Update Insurance Process updated to"

SAY "insurance.Service Process make to a which car come to for service

SAY "process sending to a service garage and come to a back.Report s "

say "give the each process report and inside have to a account s,this"

@18,5 say "show the insurance,service,car cost,rent profit and total profit."

COLOR TO G/N @20,7 CLEAR TO 23,68

,7 TO 23,68 DOUBLE

@21,20 SAY "DO YOU WANT TO BACK CHOICE MENU" SET WRAP ON @22,25 PROMPT" YES" @22,35 PROMPT" NO " MENU TO NO DO CASE CASE NO==l SET COLOR TO DO CHO CASE N0==2 SET COLOR TO

(113)

INFOYAP.PRG TO G/N TO G/N to 24,78 ,78 DOUBLE REPLICATE ("-",76) "----INFO OF PROGRAMMER----" replicate ("-",76) TO G/N TO 17,74 DOUBLE

"PROGRAMMER NAME NEC-P D-NARLI"

"E-MAIL ADRESS dinarli@yahoo.com"

"PHONE NUMBER 2412106 -(0542) 8556604"

"ADRESS YILMAZK™Y-LEFKOzA NO:A22"

SAY "FINISH THE SCHOOL: NEAR EAST UNIVERSITY" TO G/N

CLEAR TO 23,68 ,7 TO 23,68 DOUBLE

0 SAY "DO YOU WANT TO BACK CHOICE MENU" WRAP ON ,25 PROMPT" YES" ,35 PROMPT" NO II TO NO .SE NO=l SET COLOR TO DO CHO CASE N0=2 SET COLOR TO DO INFOYAP END CASE SET COLOR TO

(114)

STPAS.PRG

PASSWORD----" ( "-", 76)

PASSWORD:"

"GET SIF PICTURE "@5!" THE NEW PASSWORD·"

G/N G/N SAY "*" TO COLOR TO G/N 37 GET C ,37 SAY"*" COLOR TO SET COLOR TO G/N @11, 38 GET D READ @11,38 SAY"*" SET COLOR TO SET COLOR TO G/N @11, 39 GET E READ

(115)

F G/N ( "-", 76) G/N 21,60 double

YOU WANT TO CHANGE OF PASSWORD?" "OKEY"

PROMPT" CANCEL" CHOOSE

case choose=l set color to

REPLACE PAS WITH SIFRE #DEFINE PCIKISl

A={"OKEY"}

N=ALERT ( "PASSWORD CHANGED!" ,A)

DO CASE CASE N=l SET COLOR TO DO ANAMENU END CASE case choose=2 set color to DO ANAMENU END CASE ELSE

@18,25 SAY "ENTER THE AGAIN NEW PASSWORD!" DO STPAS

END IF

SET COLOR TO CLOSE ALL

(116)

CUST.PRG

to 23 center G/N

( "-", 80)

Customer record "message "New Customer Record"

"Update of Customer "message "Update of Customer" "Return of Main Menu" message "Return of Main Menu"

case choose==l do custl case choose==2 set color to do CUPOR case choose==3 PCIKIS1

WANT TO RETURN ANAMENU?",A)

TO

case color to

(117)

CUSTl, PRG (10) TO P_NAME (10) TO P_SURNAME (20) TO P ADRES 22,63 22,63 DOUBLE TO TO if lastkey () =27 clear set color to CLOSE ALL do anamenu end if IF P ID=O CLEAR COLOR TO G/N ,5 SAY"IF PRESS 0" ,5 SAY"RETURN ANAMENU" WAIT SET COLOR TO DO ANAMENU ENDIF P ID IF FOUND() SET COLOR TO G/N

?"CUSTOMER HAVE TO RECORD" ?"YOU PRESS ANOTHER CUSTOMER" INKEY (2) SET COLOR TO LOOP ENDIF @8,16 SAY"CUSTOMER @11,16 SAY"CUSTOMER NAME SURNAME ·" GET P ID PICTURE"99999999"

:" GET P NAME PICTURE"@lOA" ·" GET P SURNAME PICTURE"@lOA"

(118)

ADDRESS TELEPHONE

:"GET P_ADRES PICTURE"@lSX,@15!" :"GET P TELNO PICTURE"999999999999"

"Do you want to SAVE(Y/N)?" get ans picture "!a"

lastkey () =27 clear color to CLOSE ALL anamenu end if MID

_-

WITH P ID -

M NAME WITH P NAME

-

M SURNAME WITH P SURNAME PADRES P TELNO

YOU WANT TO CONTINUE?(Y/N)"GET ANS PICTURE"!" TO

(119)

CUPOR.PRG to al 0 ID ,24 SAY"CUSTOMER UPDATE" @2,20 SAY"---" 23,63 DOUBLE

"ENTER CUSTOMER ID : "+" "get O ID

if lastkey () =27 clear set color to CLOSE ALL do anamenu end if say "CUSTOMER ID :"+"

16 say "CUSTOMER NAME :"+"

@25!"

16 say "CUSTOMER SURNAME :"+"

@25!"

SAY "CUSTOMER ADRESS :"+"

@25A,@25!"

SAY "CUSTOMER PHONE NUMBER :"+"

999999999999"

"get M_ID "get M NAME

PICTURE "@25A, @25 ! " PICTURE

"get M SURNAME PICTURE

II GET M ADRES

"GET M TELNO

say "DO YOU WANT TO CONTINUE?(Y/N)" get ans picture"!"

if lastkey () =27 clear set color to CLOSE ALL do anamenu end if read enddo set color to close MUS clear do ANAMENU

(120)

CAR.PRG

center

( "-", 80)

"Starting Rent A Car "message "Starting Rent A Car"

"Closing Rent A Car "message" Closing Rent A Car

Specification Update" message "Car Specification Update"

Main Menu "message "Return To Main Menu"

" clear color to CLOSE ALL do anamenu end if case choose=l set color to do carll case choose=2 set color to do PP case choose=3 set color to do CARU case choose=4 PCIKISl

WANT TO RETURN ANAMENU?" ,A)

TO

DO CAR END CASE

end case set color to

(121)

CARll.PRG if lastkey () =27 clear set color to CLOSE ALL do anamenu end if COLOR TO G/N 14 CLEAR TO 20,63 14 TO 20,63 DOUBLE COLOR TO TO G/N

@1,24 SAY"RENT STARTING CAR" store space (10) to name store space (10) to surname STORE OTO P ID

@3,16 SAY"ENTER CUSTOMER ID NUMBER:"GET P ID PICTURE"9999999999" READ if lastkey () =27 clear set color to CLOSE ALL do anamenu end if

(122)

CLEAR

@10,10 SAY"RETURN THE ANAMENU"

@11,10 SAY"PRESS ANY KEY TO CONTINUE" WAIT

CLEAR DO anamenu

?"TH-S NUMBER DON'T HAVE A RECORD" ?"YOU PRESS ANOTHER NUMBER"

WAIT CLEAR LOOP SEEK P ID IF FOUND () @4,16 SAY"CUSTOMER NAME @5,16 SAY"CUSTOMER SURNAME @6,16 SAY"CUSTOMER ADDRESS @7,16 SAY"CUSTOMER TELEPHONE :"+M NAME :"+M SURNAME :"+M ADRES : "+STR(M_TELNO) (10) TO MARKA ( 10) TO MODEL space (5) TO CID 20 SAY"CAR KNOWLADGE"

say "CAR PLATE

if lastkey () =27 clear set color to CLOSE ALL do anamenu end if

·" get CID picture "@5x,5!"

CID

IF .NOT.FOUND() CLEAR

?"TH-S NUMBER DON'T HAVE A RECORD" ?"YOU PRESS ANOTHER NUMBER"

WAIT CLEAR LOOP ENDIF SEEK CID FOUND()

(123)

INRENT=.F. INSERV=.F.

RENT PRICE : "+STR(CREPRC)

"CAR BRAND :"+C MARKA

SAY "CAR MODEL :"+C MODEL

SAY "CAR COLOR :"+C RENK

SAY "CAR YEAR :"+STR(C_YIL)

SAY "CAR PLATE :"+C PLAKA

?"CAR IS RENTING" ?"PRESS ANOTHER PLATE" WAIT CLEAR LOOP ENDIF ELSE CLEAR ?"CAR IS SERVICING" ?"PRESS ANOTHER PLATE" WAIT CLEAR LOOP END IF ELSE CLEAR ?"CAR IS PERT"

?"PRESS ANOTHER PLATE" WAIT CLEAR LOOP ENDIF MARKA==C MARKA MODEL==C MODEL END IF

REPLACE C INRENT WITH .T. select 3

STORE DATE() TO P_TARIH STORE DATE() TO P_TAR STORE OTO P GUN STORE OTO PG

*STORE SPACE (10) TOP PLAKA

STORE OTO P PARA STORE OTO PARA

@15,16 SAY

@15,56 SAY "YTL"

(124)

"START RENT A DATE ( )=27 "CAR DEPOSIT clear color to CLOSE ALL do anamenu end if MAR KA

R MODEL WITH MODEL R CID WITH P ID

-

R SURNAME WITH SURNAME R NAME WITH NAME

RID WITH COUNTER R TARIH WITH P TARIH

-

R GUN WITH P GUN

- -

R PLATE WITH CID R DEPOS WITH PARA REPLACER R WITH .F.

WAIT ( "DO YOU WANT TO RECEIPT PRESS ENTER") CLEAR

:"GET P TARIH PICTURE "d"

(125)

"

NUMBER :"+" "+STR(R_ID)

ID NUMBER :"+" "+STR(R_CID)

NAME : "+" II +R NAME

SURNAME : "+" "+R SURNAME

"START RENT DATE CAR PLATE DEPOSIT"

---

-

II

"+R_PLATE+""+STR(R_DEPOS) DTOC(R_TARIH)+"

"---"

WANT TO CONTINUE?(Y/N)"GET ANS PICTURE"!"

if lastkey () =27 clear color to CLOSE ALL do anamenu end if

(126)

PESIN.PRG BRITISH (1) TO ANS (9) TO CID C PLAKA TO Pl TO P2 RID TO P3 COLOR TO G/N 14 CLEAR TO 22,63 14 TO 22,63 DOUBLE COLOR TO COLOR TO G/N

@1,24 SAY"CLOSING RENT A CAR"

STORE SPACE (10) TO L STORE OTO KALAN STORE OTO FARK STORE OTO TOTAL STORE OTO A SELECT 3

STORE OTO CID @3,16 say

READ

"ACCOUNT ID :" get CID picture "999"

IF LASTKEY () =27 SET COLOR TO CLOSE ALL DO ANAMENU END IF *SEEK RID *IF .NOT.FOUND() * CLEAR

* ?"THIS ACCOUNT NUMBER DON'T HAVE A RECORD" * ?"YOU PRESS ANOTHER ACCOUNT NUMBER"

(127)

SEEK CID IF FOUND() @4,16 SAY"CAR BRAND @5,16 SAY"CAR MODEL * @6,16 SAY"CAR COLOUR * @7,16 SAY"CAR YEAR @8,16 SAY"CAR PLATE L=R PLATE

@10,24 SAY" CUSTOMER INFORMATION"

@11,16 SAY"CUSTOMER NAME

@12,16 SAY"CUSTOMER SURNAME

*@12,16 SAY"CUSTOMER ADDRESS

@13,16 SAY"CUSTOMER ID

@15,24 SAY" RENT INFORMATION

STORE DATE() TORBIT @16,16 SAY :"+R MARKA :"+R MODEL :"+C RENK :"+STR(C_YIL) :"+R PLATE :"+R NAME :"+R SURNAME :"+R ADRES :"+STR(R CID) II

@17,16 SAY "RENT FINISH DATE

"RENT START DATE

:"GET RBIT PICTURE"d" :"+DTOC(R_TARIH) READ if last key () =27 clear set color to CLOSE ALL do anamenu end if

DO WHILE .NOT. EOF() IF R G=O

FARK=RBIT-R TARIH

TOTAL=FARK*R GUN

REPLACER G WITH FARK

REPLACER TAR WITH RBIT

REPLACER RENTPRC WITH TOTAL

@18,16 SAY "RENT DAY @19,16 SAY "TOTAL COST @19,56 SAY "YTL"

KALAN=TOTAL-R DEPOS

@20,16 SAY "TAKING DEPOSIT

@20,56 SAY"YTL"

@21,16 SAY "TOTAL PAYMENT

@21,56 SAY "YTL"

REPLACER KALAN WITH KALAN

YOU WANT TO RECEIPT PRESS ENTER") G/N

: "+STR(FARK) :"+STR(TOTAL)

:"+STR(R_DEPOS) :"+STR(KALAN)

(128)

PRINT ON

,10 SAY "**RENT A CAR SYSTEM**

30 SAY" RECEIPT" TEL N0:2412106 CEP N0:05428556604" SAY" ---'' *INDEX ON RID TO P3 BOTTOM *EOF() *R _ ID=EOF () *DO WHILE.NOT.EOF() *SEEK RID *IF FOUND() *IF R R=.F.

@7,16-SAY "RECEIPT NUMBER @8,16 SAY "CUSTOMER ID NUMBER

:"+"

: "+"

"+STR(R_ID) "+STR(R_CID) @9,16 SAY "CUSTOMER NAME

@10,16 SAY "CUSTOMER SURNAME @13,1 SAY "START RENT DATE

: "+" " +R NAME

: "+" " +R SURNAME

FINISH RENT DAY CAR PLATE DEPOSIT PRICE

PAYMENT"

@14,1 SAY"---

---

,,

@15,1 SAY DTOC(R_TARIH)+" "+DTOC(R_TAR)+" "+R PLATE+"

"+STR(R DEPOS)+""+STR(R RENTPRC)+""+STR(R KALAN)

@16,1 SAY "---

--- II

SET PRINT OFF *END IF *END IF *SKIP *END DO *END DO REPLACER R WITH .T. ELSE SKIP END IF END DO END IF END DO SELECT 2

STORE OTO COUNTER DO WHILE .NOT. EOF() COUNTER=COUNTER+l SKIP

END DO

COUNTER=COUNTER+l APPEND BLANK

REPLACE A ID WITH COUNTER *REPLACE A PLATE WITH CID

(129)

REPLACE A REMAN WITH KALAN SELECT 1 C PLAKA=L *@1,10 SAY"PLAKA"+C_PLAKA SEEK C PLAKA IF FOUND() DO WHILE .NOT.EOF()

*REPLACE C PLAKA WITH L REPLACE C INRENT WITH .F. *REPLACE C RENTPRC WITH TOTAL SKIP

END IF END DO

SET COLOR TO G/N

@22,16 SAY "DO YOU WANT TO CONTINUE?(Y/N)"GET ANS PICTURE"!"

READ IF LASTKEY () =27 SET COLOR TO CLOSE ALL DO ANAMENU END IF SET COLOR TO END DO DO ANAMENU CLOSE ALL

(130)

SUPPLY.PRG wrap on message to 23 center set color to G/N *do cover @23,0 say replicate ("-",80) @4,22 TO 8,39

@5,23 prompt "Supply Car "message "Supply Car"

@6,23 prompt "Pert Car "message "Pert Car"

@7,23 prompt "Return Main Menu" message "Return To Main Menu"

menu to choose if lastkey () ==27 clear set color to do anamenu end if do case case choose==l set color to do supplyl case choose=2 set color to do supply2 case choose==3 #DEFINE PCIKISl #DEFINE PDEVAM2 A={ "YES", "NO"}

N==ALERT ( "DO YOU WANT TO RETURN ANAMENU?", A) DO CASE CASE N==l SET COLOR TO CLEAR DO ANAMENU CASE N==2 DO SUPPLY END CASE

I

end case

I

(131)

ans="Y" if lastkey () =27 clear set color to CLOSE ALL do anamenu end if select 1 USE CAR INDEX ON C PLAKA TO Dl select 2 use account INDEX ON A ID TO D2 SELECT 1 crenk=space(15) cyear=O cmarka=space(15) cmodel=space(15) cpara=O asn=space(l) cid=O K=O cplaka=space(9)

STORE SPACE ( 1) TO CABS STORE SPACE ( 1) TO CAIR

STORE SPACE (1) TO CDIS

STORE SPACE (1) TO COTO STORE SPACE (1) TO CRIG

SISIM=SPACE(l5) SSAD=SPACE ( 15) STORE OTO STEL SET COLOR TO G/N

@3,24 say" SUPPLY CAR

@4,14 clear to 22,63 @4,14 to 22,63

@6,16 say "CAR PLATE

READ if lastkey () =27 clear set color to CLOSE ALL do anamenu SUPPLYl.PRG "

(132)

end if

NUMBER! !PLEASE ENTER"

do cpl aka found() IF C INRENT=.T. CLEAR ? "CAR IS RENTING"

?"YOU PRESS ANOTHER PLATE NUMBER" WAIT CLEAR loop END IF IF C INSERV=.T. CLEAR ?"CAR IS SERVICING"

?"YOU PRESS ANOTHER PLATE NUMBER" WAIT CLEAR loop END IF IF C PERT=.T. CLEAR ? "CAR PERTED"

?"YOU PRESS ANOTHER PLATE NUMBER" WAIT CLEAR loop END IF IF C INSERV=.F. CLEAR

? "THIS CAR HAVE TO PARKING!" ?"YOU PRESS ANOTHER PLATE NUMBER" WAIT

CLEAR loop END IF else

@7,16 say "CAR YEAR if lastkey () =27

·" get cyear picture "99999"

clear set color to

(133)

read "CAR BRAND if lastkey () =27 clear set color to CLOSE ALL do anamenu end if

say "CAR MODEL if lastkey () =27 clear set color to CLOSE ALL do anamenu end if ,16 say"CAR COLOUR if lastkey () =27 clear set color to CLOSE ALL do anamenu end if @11,16 SAY"CAR ABS(Y/N) if lastkey () =27 clear set color to CLOSE ALL do anamenu end if SAY"CAR AIRBAG(Y/N) if lastkey (} =27 clear set color to CLOSE ALL do anamenu end if , 16 SAY"CAR DIESEL/PETROL! (D/P) if <Las t.key () =27 clear set color to CLOSE ALL do anamenu end if

·" get cmarka picture "@10!"

·" get cmodel picture "@15X,15!"

:" get crenk PICTURE "@lOX,@10!"

:"GET CABS picture "A"

:"GET CAIR picture "A"

(134)

OTOMATIC/MANUAL ! (O/M) : "GET COTO picture "A" lastkey () =27

do anamenu if

AIR CONDITIONER(Y/N) :"GET CRIG picture "A" lastkey () =27 clear color to CLOSE ALL do anamenu end if say"CAR COST say "YTL" if lastkey () =27 clear set color to CLOSE ALL do anamenu end if

·" get cpara picture"99,999,999"

16 say"CAR RENT PRICE :" get K picture"99,999,999"

,54 say "YTL" if lastkey () =27 clear set color to CLOSE ALL do anamenu end if read @18,26 SAY"FIRM IS KNOWLADGE"

@19,16 SAY"FIRM NAME

.

" GET SISIM PICTURE "@15!"

if lastkey () ==27 clear set color to CLOSE ALL do anamenu end if read

(135)

do anamenu if FIRM TELEPHONE lastkey () =27 clear set color to CLOSE ALL do anamenu end if

:"GET STEL PICTURE "999999999999"

say "Do you want to SAVE(Y/N)?" get ans picture "!a"

if lastkey () =27 clear set color to CLOSE ALL do anamenu end if ANS="Y" blank

C_YIL with cyear C MARKA with cmarka C MODEL with cmodel C RENK with crenk C DIS WITH CDIS COTO WITH COTO C RIG WITH CRIG C AIR WITH CAIR C SPLYPRC WITH CPARA C PLAKA WITH CPLAKA CABS WITH CABS CREPRC WITH K

S ISIM WITH SISIM S SAD WITH SSAD S TEL WITH STEL

(136)

ID WITH COUNTER

_SPLYPRC WITH cpara

PLATE WITH cplaka

(137)

SUPPLY2.PRG ON C PLAKA TO Dl if lastkey () =27 clear set color to CLOSE ALL do anamenu end if COLOR TO G/N

,24 say" PERT A CAR "

clear to 22,63 to 22,63

say "CAR PLATE ·" get cplaka picture "@SX,5!"

if lastkey () =27 clear set color to CLOSE ALL do anamenu end if if cplaka=space(S)

? "DON'T PRESS PLATE NUMBER!" ?"PRESS PLATE NUMBER"

CLEAR loop END IF SEEK CPLAKA IF . NOT . FOUND ( ) CLEAR

?"THIS PLATE NUMBER DON'T HAVE A RECORD" ?"PRESS ANY PLATE NUMBER"

WAIT CLEAR LOOP ENDIF

(138)

() TO PARKING!" ? "CAR IS RENTING!" WAIT CLEAR loop else C PERT=.T. ? "CAR IS PERT!" WAIT CLEAR loop else C INSERV=.F. CLEAR

? "CAR MUST TO GO SERVICE FIRST!"

?"AFTER CAR IS GOING TO PERT PROCESS!!!!" WAIT CLEAR loop else if C INSERV=.T. END IF

@9,16 say "CAR YEAR @12,16 say "CAR BRAND @15,16 say "CAR MODEL @18,16 say "CAR COLOR REPLACE C PERT WITH .T. REPLACE C INSERV WITH .F. if lastkey () =27 clear do anamenu END IF END IF END IF END IF : " +STR(C_YIL) :"+C MARKA :" +C MODEL •" +C RENK

@23,16 say "DO YOU WANT TO CONYINUE(Y/N)?" get ans picture "!a" read

(139)

INSU.PRG

center

( "-", 80)

"Add New Car Insurance" message "Add New Car Insurance"

"Insurance Update "message "Insurance Update"

"Return Main Menu "message "Return To Main Menu"

choose if lastkey()=27 clear set color to do anamenu end if case choose=l set color to do INSl case choose=2 set color to do INS2 case choose=3 PCIKISl

WANT TO RETURN ANAMENU?" ,A)

DO INSU CASE

end case set color to

(140)

INSl,PRG PLAKA TO Dl TO D2 if lastkey () =27 set color to clear DO ANAMENU end if (20) (15) (9) INSFIY B F () SET COLOR TO G/N

,24 say" INSURANCE RECORD

@5,14 clear to 22,63 @5,14 to 22,63

@7, 16 say "CAR PLATE read if lastkey () =27 set color to clear CLOSE ALL DO ANAMENU end if "

(141)

}IN3t! ;)+ 11 • 'I3GOW ;)+ •• : \l)itf'\iW ;)+ II : ('IIX-;))t!.LS+ •• : t!O'IO;) t!\f;) II 'I3GOW tf\f;) 11 GN\it!S: tf\f;) II J1" pu8 S£1 J1" pU8

XI.3:SNI H.LIM ;)tfoSNI \i 3;)\f'Io3t!

nN3W\iN\i oa 'I'I\i 3S0'I;) .Il281:J oa :ro10:J :i.as LZ={)A8)('.+Sl21 J1" () GND0.3: 12)(121d:J

z

nu8m12u12 op :r12a1:J L Z= () A8)('.+ s121 XI.3:SNI 4'.+1"M ;)tfoSNI;) SNIS: 4'.+1"M .LIS:SNI;) SNIX 4'.+1"M S\fS:SNI;) J1" pu8 DN3W\iN\i oa 'I'I\i 3 SO'I;) :r12a1:J o:i. :ro10:J :i.as LG= () A8)('.+Sl21 J1" u'I.LX •• X\fS

11666'666'66 •• 3t!fl.L;)Io XI.3:SNI .138 11: 3:)It!o 3;)N\ft!DSNI11 X\fS

11P11 3Bfl.L;)Io SNIS: .138 •• :3,L\fG HSINI.3: 3:)N\ft!flSNiu 11P11

aaruora

SNIX .138 11: 3.L\fQ .LB\f.LS 3:)N\ft!flSNI ••

uB38WflN :il.L\i'Io XN\i SS3Bo11

•• aB0;)3B \i 31\.\iH ,L,NOQ B3S:WflN 3.L\f'Io SIH.L11l

(142)

"DO YOU WANT TO CONTINUE(Y/N)?" get ans picture "!a"

(143)

INS2.PRG to G/N PLAKA to al (10) to O_ID @1,24 SAY"INSURANCE UPDATE" CLEAR TO 23,63 TO 23,63 DOUBLE : "+" "get O ID PICTURE"@lO!" say "ENTER CAR PLATE

if lastkey () =27 clear set color to CLOSE ALL do anamenu end if if O_ID=space(S) CLEAR

WAIT CLEAR loop END IF SEEK O ID IF .NOT. FOUND () CLEAR

WAIT CLEAR LOOP END IF

I

seek O ID if found()

@7,16 say "CAR PLATE @9,16 say "CAR BARAND "@15A,@15!"

@11,16 say "CAR MODEL "@lSA,@15!" @13,16 SAY "INSURANCE PICTURE"@lSA,@15!" @15,16 SAY "INSURANCE PICTURE"@lSA,@15!" @17,16 SAY "INSURANCE PICTURE"9999999999" @17,60 SAY"YTL"

:"+" "get c_plaka PICTURE "@10!"

: "+" "get c_model PICTURE

:"+" "get c renk PICTURE

START DATE :"+" II GET C INSBAS

FINISH DATE :"+" "GET C INSBIT

PRICE : "+" "GET C INSPRC

I

endif

(144)

I

do anamenu if

(145)

SERV. PRG

center

( "-", 80)

"Car Sending "message "Car Sending to Service"

"Car Taking Back "message "Getting From Service" "Return Main Menu" message "Return To Main Menu" choose if lastkey () =27 clear set color to do anamenu end if case choose=l color to do servl case choose=2 set color to do serv2 case choose=3 PCIKISl PDEVAM2

WANT TO RETURN AN.AMEND?" ,A)

SET COLOR TO CLEAR DO ANAMENU CASE N=2 DO SERV END CASE end case set color to

(146)

SERVl.PRG C PLAKA TO Dl ans="Y" if lastkey () =27 clear set color to CLOSE ALL do anamenu end if (9) YINS=DATE () BINS=DATE () SET COLOR TO G/N

@3,24 say" CAR SENDING II

@5,14 clear to 22,63 @5,14 to 22,63

@6,16 say "CAR PLATE READ if lastkey () =27 clear CLOSE ALL do anamenu end iF

·" get cplaka picture "@5X,5!"

if cplaka=space(5)

WAIT CLEAR loop END IF SEEK CPLAKA IF . NOT. FOUND()

WAIT CLEAR LOOP END IF seek cplaka if found() if C INSERV=.T.

(147)

if C INRENT=.T.

-

_{? ''CAR IS RENTING!} II WAIT CLEAR loop else if C PERT=.T. ? "CAR IS PERTED!" WAIT CLEAR loop else

@9,16 say "CAR YEAR @12,16 say "CAR BRAND @15,16 say "CAR COLOR @18,16 say "CAR COLOUR

@21,16 SAY "SERVICE START DATE read

REPLACE C SERVBAS WITH YINS REPLACE C INSERV WITH .T. if lastkey () =27 clear do anamenu END IF END IF END IF END IF : II +STR(C_YIL) :"+C MARKA :" +C MODEL :" +C RENK

·" GET YINS PICTURE "d"

say "DO YOU WANT TO CONTINUE(Y/N)?" get ans picture "!a"

end do

SET COLOR TO close all DO AN.AMEND

(148)

SERVl.PRG TO Dl if lastkey () =27 clear set color to CLOSE ALL do anamenu end if (9) G/N CAR SENDING " clear to 22,63 to 22,63

say "CAR PLATE READ if lastkey () =27 clear CLOSE ALL do anamenu end iF

·" get cplaka picture "@5X,5!"

cplaka=space(5)

'T PRESS PLATE NUMBER!" ?!'PRESS PLATE NUMBER"

CLEAR loop END IF

SEEK CPLAKA

IF . NOT. FOUND ()

WAIT CLEAR LOOP ENDIF seek cplaka if found() if C INSERV=.T.

(149)

if C INRENT=.T.

-

? "CAR IS RENTING!" WAIT CLEAR loop else if C PERT=.T. - ? "CAR IS PERTED!" WAIT CLEAR loop else

@9,16 say "CAR YEAR @12,16 say "CAR BRAND @15,16 say "CAR COLOR @18,16 say "CAR COLOUR

@21,16 SAY "SERVICE START DATE read

REPLACE C SERVBAS WITH YINS REPLACE C INSERV WITH .T. if lastkey () =27 clear do anamenu END IF END IF END IF END IF :" +STR(C_YIL) :"+C MARKA :" +C MODEL :" +C RENK

·" GET YINS PICTURE "d"

END IF

@23,16 say "DO YOU WANT TO CONTINUE(Y/N)?" get ans picture "!a" read end do SET COLOR TO close all DO ANAMENU

*

RAP.PRG