NEAR EAST UNIVERSITY FACULTY OF ECONOMICS AND ADMINITRATIVE SCIENCE

1 ·

I

I

I

I

I

I

NEAR EAST UNIVERSITY

FACULTY OF ECONOMICS AND

ADMINITRATIVE SCIENCE

2002/2003

CIS 400

(GRADUATION PROJECT)

COMPUTER SELLING INFORMATION

SYSTEM

Submitted ToiDr.Yalem Akeah

Miss.Nadire Cavus

Submitted By: <;agr1 Karayusufoglu(960226)

Lefkosa

2003

l~jl l~l~Jl,~1[[11

CONTENTS

PAGE

I-ACKNOWLEDGEMENTS:...

1

II-ABSTRACT:...

2

111-INTRODACTION:...

3-4

IV-EXPLANATION

OF THE SYSTEM:...

5

-DATA FOLOW DIAGRAM:... 5-10

-SYSTEM BLOCK DIAGRAM:... 11 -DATABASE DESIGN:... 12-20

V-USER MANUAL:... 21-23

VI-LIST

OF"'SU:B PROGRAMS:...

24

"-..

-PROGRAM FLOWCHART:... 24-50 -SOURCE PROGRAM:... 51-83 -SCREEN OUTPUT:... 84-113

ACKNOWLEDGEMENTS

Specially first of all 1 want to thank Mr.Dr .Yalcm Akcah and Miss Nadire Cavus to

help about my problem during the project.Also thanks all my friends to help the solving the problems durmg make the project.

ABSTRACT

This is a computer selling and repair information system.This project make aim is to help organization information system and make user friendly.

In the organization computer selling and repair information system using make operations thorough ,easy and quickly.Oganization make part buying or computer selling or other repair operations use this project operations systems.

I

I

I

I

I

I

I

I

I

I

I

i

I

I

I

i

i

i

i

i

INTRODACTION

This is the computer selling and repair system in the organization and represent what kind of process used selling computer and repair computer in the

organization.Organizations use this program because make the operations to thorough ,easy and quickly.

The process is;

-STOCK PROCESS: -CUSTOMER POCESS: SUBPROCESS:SALES PROCESS: -REPAIR PROCESS: -ACCOUNTING PROCESS: SUBPROCESS:REVENUE PROCESS:

-STOCK PROCES:That process is make registration of all computer and computer part information and show us all stock information in the organization.In the organization want to see which part have which part or computer m stock.Use this proces and check what kind of part have salesready ,what kind of part need again ,rebuying again .

-CUSTOMER PROCESS:That process is represent all customer and selling information .In the organization this process show us all customers operations.when is coming organization customer ,which part want to buy it, customer paid cash on salles or paid credit on salles.

I

r1

-REPAIR PROCESS:That process is represent information about computer repair .In the organization that process shows us when the customers come for repair,what the problems and how rt solve answer the problems,which parts repair,which parts need to change.

-ACCOUNTING PROCESS:That process is showing the all acounting information about organization.In the organization this parts shows us when organization buying new part or computer what the organization expenditure and also shows us when the selling computer or part and repair computer ,what the organization revenue.

I

I

I

I

I

I

I

i

I

I

I

z

0

;

a::

0

u,

z

-

u.

0

Q u. Q ~

w

1-

z

0

0

9

t: _t: co ~: ~ a.

w

cii

-

0

>

Q) Q)

w

Cl Cl "C "C ~ co co I ~ 0 ""§ 0

a.

C: C: ~ ~

0

I-

J

/

~ Q) E 0 ii5 ::::, o

customer Repair oernand

I

N

-

U) U)

w

0 ~ £L ~

c(

£L

w

~ ~

0

II. Q II. Q Q

w

.J ~

w

Q a::: w :!E

e

"'

:::::, 0

b

;

/#~,;#

~~rt>

w

.

v

<JI

I .g C:

0::

.!! ·- ~ ii: 1n

-

Q.

_••

_(.) ::, w C:

0::

~II cus\ \nfo. #\ a, "C C:

E Q) 0

w

_i

1v :;:; «I

:E

'?"l>~ a.

_E

0

'R',~\~· ~(\\~ :::, ::, (.)

....

.g

•••

..•...

et.~ ~o(' 0 C:

"'

I

C .••• Cl) (jV~\O~O~'<Y- ₀ 1n a, C u,

::,

"ll;o.5.,8 ~ .

::J

0

.,Ji

_~e

0::

(.) .5 a. a.

0

u.

Q) Q

_%

u.

Q iii ::> Q (.)

w

_~

...

...I

u.. (1) ~

i;

%

_in

\

::>

w

0 Q 0.. -0 "c .23 0 (1) (1) E

₁

~ iii

0

0 'c. _{.- I et} ~o~ (j'V'o a::::

_~

_~,f-,t,

w :E _O'

s

9! ,~o U) :, 0

I

i

I

I

I

I

I

I

I

I

I

I

I

I

I

I

i

i

i

:!

u,:

"'

w

(.) ~ 0.. t-

z

::,

0

(.) ~ LL.

0

Q LL. Q Q

w

..J

s

w

Q VI .g C ' -; !I ::> ,, C (!) a> IE

t •-;-

~ ~

~

as

-0 ~

\

(5 ~

5

i\

=

s: _(/) o, ·co ₀ co Q) o 0..

I

I

I

0 "'U r "'U

i

i

i

+

~ Cl) ~

/

m )> _Cf) )> Cf) "'U )> "'U

r ;;o _-I ;;o m )> c-u 0 )>

0 -I m -I "'U )> -I z -I )> ;;o 0 ;;o 0 ;;o

oO

I

rn G) ;;o -I )> -I

z

-I

mo

(') -I G Cl) " I Cl) z G) I

I

I ₁₍₁₎

I

I~

I

•

m

• • • •

i:

;;o 0 ;;o C ;;o Cf) r z

"'C ;:o

m

mm m -u mm zi rn

r-

I

-u r "'U 0 "'U )> Cf) m 0 "'C 0 )> m )> )> )> ;;o -I _~ (") )> (") - -I - -I ;;o -

-

(') )> ;;o

m-

;;om _z ;;o I r _r

m

Cl) ;:o

"

I

G) ;o "'U )> Cl) C

-

m

>

"'U

:::0

Ci) )>

I

;;o ~

i i

ii:

i

'"11

I

0 _C r Cf) "'C (") 0 m _"'U Cf) m Cf) (')

::u

r -I )> ~c ::0 C m 0 0 Cl) (") -I )> z

:::0

(') _{0 m Cf)} (") -I 0

I

m -I G) (') ;;o )> Cf) -I

mo

m I m

ii:

0 Cf) 0 Cl)

3:

-I I ~

en

m

,,

m ;:o C

I

~

••••

Cf)

m

::u

"'

I

m

r-

r-

-

z

I

m '"C )> Ci)

><

'f 'f 'f ;;o ;:o (") m

-

"'U

:::0

;;o

:::0

Cf) (')

:::0 (')

< 0 (")

z

m mm m )> ;;o m )> m (") 0 '"11 z < "'U <rm < Cf) z

me

0 Cf) m )> mmo mI C Cl)

z

::u

m z- z(.f)- z(.f) Cl) -I Cf) C ;;o C -I C )> m

ii::

m m mr _m

>

_••••

Cf)

-

0

z

I

~~

"'

~ ~

••••

m

I

i:

I

I

I

//

n lelp F2 . Open F3 Create F4 Save F5 Browse F6 Utility Files STOCK Indexes Fields PRNO PRNAME PRPRICE PRBUYDATE PRQUANTITY PRSLPRICE

JiSL

F7 Move F8 Set

I

Fl Help F2 Open F3 Create F4 Save F5 Browse F6 Utility F7 Move F8 Set

I

I

I

I

REPAIR Files Indexes Fields RPNO RPNAME RPPRICE RPDATE RPCNAME RPCSUR RPCADD

I

I

I

I

I

I

I

I

I

I

I

I

I

I"'>..

1 elp F2 Open F3 Create F4 Save FS Browse F6 Utility F7 Move F8 Set Files CUSTOMER Indexes Fields CUSIDNO CUSNAME CUSSURNAME CUS.ADDRESS CUSTELNO CUSNO CUSEXP i

llt

I

l!1p

F2 F3 F4 FS F6 F7 F8

Open Create Save Browse Utility Move Set

I

Files

I

ACCOUNT Indexes

I

I

I

I

Fields

I

SALESDAY PRICE BORROWDAY ENDOFPAY

I

MONTHLYPAY REMAINDER

I

I

(

I

I

I

I

I

I

I

I

I

I

I

I~

I

F2 Open F3 Create F4 Save F5 Browse F6 Utility F7 Move F8 Set

i

i

I

I

I

i

i

i

i

i

i

i

i

I

i

Files STOCK

Structure of STOCK.DBF Field 1

Field Name Type Width Dec

PRNO Numeric 5 0 PRNAME Character 15 PRPRICE Numeric 5 0 PRBUYDATE Date 8 PR QUANTITY Numeric 3 0 PRSLPRICE Numeric 5 0

16

/

F2 Open F3 Create F4 Save F5 Browse F6 Utility F7 Move F8 Set Files REPAIR

Structure of REPAIR.DEF Field 1

Field Name Type Width Dec

RPNO Numeric 5 0 RPNAME Character 15 RP PRICE Numeric 5 0 RPDATE Date 8 RPCNAME Character 10 RPCSUR Character 15 RPCADD Character 20

o)

RPCTELNO Numeric 10 RPCIDNO Numeric 6 0

1 elp F2 Open F3 Create F4 Save F5 Browse F6 Utility Files CUSTOMER

Structure of CUSTOMER.DBF Field 1

Field Name Type Width Dec

CUSIDNO Numeric 6 0 CUSNAME Character 10 CUSSURNAME Character 15 CUSADDRESS Character 20 CUSTELNO Numeric 15 0 CUSNO Numeric 10 0 CUSEXP Character 25 CSALESDAY Date 8 CPR ICE Numeric 5 0 CBORROWDAY Date 8

I

7;

F7 Move F8 Set

)

I

1~1

F2 Help Open

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

F3 Create F4 Save F5 Browse F6 Utility F7 Move F8 Set Files ACCOUNT

Structure of ACCOUNT.DEF Field 1

Field Name Type Width Dec

SALESDAY Date 8 PRICE Numeric 5 0 BORROWDAY Date 8 ENDOFPAY Date 8 MONTHLYPAY Date 8 REMAINDER Numeric 10 0

I~

/

USER MANUAL

First of all user have clipper program setup. Take the first floppy disk or cd to computer and open look inside the floppy or cd and double click setup.Computer start install setup and a few times later computer want second setup floppy or cd and take in the computer second one and press enter continue setup install. Install this set up in computer and restart ms dos mode to computer.Clipper program must be work ms dos mode.After that user take this project and install in the computer.First user change directory and find this project.After that user copy all of the project documentation in to clipper.After this operations user find again clipper directory and run the

program. The most important when the user run the program must be write first CL and after program name.CL means is compile the program and check after this

operations haven't a problems about program user rewrite program name ans run the program. This program in the harddisc of the computer take 9,09 MB.

When the run program user first of all see enter password screen.User entered the password and press enter if password is wrong see the "Wrong password try again" screen.If password is true user see the MainMenii screen.After that user choose any operations.

OPERATiONS;

In the organizations user if you want to register part buying information choose 1st in to main menu and see other submenu.This is include about stock process and if user choose first one see the part registration operations.Give the neccessary information and endof, programs ask the user "do you want to continue".lf user press "y" see the new registration screen or press "n" back to the stock menu.User selected 2nd part and give the parts name see the list of parts on the screen and if continue press any key and see end of the list on screen and programs back to stock menu.User selected 3th part see the enter part name screen and give the part name program show all neccessary

~'

information to given part and ask do you want to delete this information.If press "y" deleted selected part information.If press"n" program back stock menu. If user selected 4th selected update part. See the enter pat name on the screen and give the part name see neccessary information and if you want change update give new information and endof programs ask "do you want to continue".lf press "y" program back to begin of update of part or press "n" back to stock menu.If user selected 5th section see the screen

"enter the wanted part name" and give name user see the screen wanted part

information and a few mmutes program back to stock menu.If enter the stock menu and dont want to use this menu press 6th and back mainmenu.

When the use selected 2nd part in the main menu to see repair menu.first part of the repair menu section entered new repair registration.Enter neccessarry information about repair part.If you selected 2nd see the list of about repair service information.f user selected 3rd see the search wanted repair service screen and give the wanted repair information and see the wanted other information.User selected 4th section in repair menu see the update service on screen and if you want update some repair service give the wanted repair name and change updated register new informations. User selected 5th section in the repair service see the enter wanted repair screen and give the wanted repair name and see the other information and programs ask do you want to delete.if yes programs delete informations.If no programs back the begin of part 5th.End of the all parts programs ask "Do you want to contmue " IF press "y" program back to begin selected part or if "n" programs back main m~u.

When the user selected 3th part see the customer menu.If selected 1st part see other menu is sales menu.If selected 1st part make cash sales registration and endof ,program ask do you want to continue.If press "y" back to begin of cash sales program otherwise "n" back to sales menu.In the sales menu if selected 2nd part make credit sales

registration and end of ,registration programs ask "do you want to continue".lf press "y" back to begin of credit sales programs otherwise press "n" back to sales menu. I n the customer menu selected 2nd part see the all customers information on the screen and the end of back to the customer menu.If seleceted 3th part on the customer menu see the screen update service.Give the wanted customer idno and change the

information of customer and the end of programs ask do you want to continue.If prees "y" programs back to begin of update service otherwise press "n" back to customer menu.If user selected 4th section on the customer menu see the screen update service.If you want update some information about customer give wanted customer id no and change update information.Endof the programs ask do you want to continue.If press "y" programs back to begin of update service otherwise press "n" programs back to

If user selected 5th part on the customer menu see the search wanted customer screen.If give the customer rd no see the wanted customer information and end of programs ask do you want to continue.If press "y" back to begin of programs otherwise press "n" back to customer menu.

When the user selected 4th part on the mainmenu see the account menu on the screen.In the account menu selected 1st part see revenue menu.In the revenue menu selected first part user see the cash sales revenue information on the screen and

programs back to revenue menu.In the revenue menu user selected 2nd part see the all credit sales revenue information on the screen and programs back to revenue menu.If user selected 3th part in the revenue menu ,see the all information about repair revenue and programs back revenue menu.

In the account menu selected 2nd part user see the screen all expenditure information and programs back to account menu.

/

Cl) w >- Cl) w >- Cl) w >-

;

::c

0

i

0

..J

u..

,g

·D

c, 0 1-

so

U) w

>-

U) w

>-

<C 0 z

Cf) w >- Cf) w >- Cf) w >- 0 z _<C-

(

I

I

I

I

IB

I

Cl) w >- >-

i

i

~?Wlf\:L(

0 Z O Z

g~

zW I J; 0::: ~ ::> z I- - w <{ - a:::~ ~ "I

I

"I

I

i

i

i

i

i

I

I

.J.

t

I

I

I

i

(

~~ h

140~

I- a:: I- z <( 0 zW

l

O ti; a::~

i

I

::> z; I- - _w <( a::~

i

i

i

i

i

i

i

i

i

I

CJ) w >- 0 z

I

i

I

i

_{' u..}

I

no:,

0<1: ~ Q.

I

I ~

a:.

I

I

I

o :) I- z zW er~

I

_L

"1

I

I

\~~

w <{ er~

I

~

I

(I)! w >-

i ~

r>.

I~~(

_{a..o ~:J}

i>-Y ~

_u.. 1

1

/ ~"'

g

I ~ .'-.___/ 1 lr

fc

g

a..

I

i

i

i

i

i

i

i

i

J~

z Qt-- 1- _{<( <(} a::: ~a. a::: t-- 0::) u. 0 Zco :; <( ..J- <( 0 z 0 t--z 0::) zo u, WI 0 z

U)i w >-

i

i

~ ~·

i5

I

/ ,A. "' ~ a.. - m ~~ ~~

i

fl

-

1

l ~~

I- z (/) - ::i

i

i

I

"'

I

=a

I

i

I

I

I

3(

(/) UJ >- 0 z z 0 -I- I- a:: <( <( 20. 0:: IL Oo LL. ~ 0 I- UJ a:: I- <( ill Cl. ...I UJ 0 0 z 0 1--z 0::, zo LL

I

I

I

I

I

I

0 z

w 0 •... ~ Q z OClo:: - >

- iJ

n1 ,

t

c( z ZZ<(W ••.. 0::

l

/

"

0

I

•

'f ~ffi~

Ir~~~

~LL~~ ._. '\._ z

~

,...

"" o..i<

<(0::0::0:: 000~ W1-~ Q.<(<(·~ Ir. UJ!l.. a:: Cl) 0:: 0:: UJ (I) w Cl 0 ur W Ch a:: 1- z

I

-

_{5 '-.../ l}

ffi8u. 1-0::~0 z <( 1- ~ -ZOwLL w :x: :?; UJLLz 0

I

I

I

I

36

I

I

I

I

I

I

i

en w >- 0 z ~g;w W<(~ I- a, <( ZWz w. a: a 1-Z 0:, zo u,

I

I

I

I

I

0 z :::> 0 u,

6

_z 0 z

I

~

..._.,..

I-~

1

~/ [L~ '\

s

t ~-~ i: 0 ::> '\. ./ zo f I.I.-

I

t

I

'

l

r !

I

f

I

[

I

I

[

I

f

-

I

I

~ Ir· :r UJ w ,:::· (.) I- •.•. -

I

<IX'.1-c5UJ >- i1i (I) 0.. u1 l:: (I) ::; ::) 0 ~ a: a:: a: Q'. <WWWW .... ~~~~

I

5-Eggg

_{a: (/) (/)(/) (/)} <(' :::> ::::> ::::> ::::> e,

.

0 0 0 o I I I I

I

I .-"(<)'~ti)'

I

I

I

I

i

(/) w

>-

I

I

I

I

I

I

I

:_,

~,

0

z

I

I

I

I

I

I

• ~

I ~ ~-

I

.

: iJsl 1

I

l

J::

f

gJ~

l ..,... __ r r I wz<5Q: ! t I t - cl ' I t l -i j t t t_ ;;;_ ; t

I

<c:>

1

f

i

l

f

I

r----

_{i ::---..}

"'

_~

I

_I

f

.,,,:$:t t [ ffi~~ J

<1...

s

__...-.i.,i

,.;.oi

I

-

t- f__f _--

f

ta-~~ ,_-

• _- -

s::-- 1

f

f

ot

I

-

~

l

f

...__-,

-~//

I

l

-...J

/

I

i

I

.

I

I

I

I

I

l~U _-

l ~

~

i

~-- _

<v~'-

0

~

irc~,J

/~

i ~-

l

g -

z

l

(>? J

•! ~~~ f-+

~~

'\

I~~~ !

== ---

~

t t!m~~q

~g/

., g_~_~~ L

1 -

l

I

ft..._o

f

u, rh

f~iiJ~I

_I

I

l

l

-..____,

g!

l."

a

!

I

:a

l

O!

II

~1'1

l

l I

I

J

l

I l

,...,

I

I

I

I I

lg"?.'

~·

I

0.

l

I

t

_i'

_z m \

fil

/ ~

1

1 lo__ ::; \__

l

f

f

er: ~ 1, >-

\!,-

-I t- Z \ I l 1::.z1 o- l zw l

I l

\~~I

.

"' /

!

·I

? ~

l l

1_

1,

V

~

'()'

1

. I

f

!

I !

f

I

\ I ~ • i I I f

l I

i

i

f " • I . I I

I

.

I i l I

_,

I

_I

f

i

I

l

I

I

I

I

!

---

I

I

I

I

I

I

I

I

I

I

r

_i

t

i

I

i

I

I

i

I

r I

I

i

I

: ! I t; =>o Oz ffi Q

L ~

--....:::::---.J

I

zO::: ow -::E I- 0

it?

0:: :::> 00 u. I- ~ ::> ...JO ...I OJ <( <( 0 z 0 I- z O:::> zo u,

l

(

0

I

I

I

I a:: u.W o::::e

l

n

og

u. en z:::, -o

I

I

I

i

I':\

~~

I ~~~

ffi

~<

1)-Y ~

1 1

/ ~ -, ~

"'5

~

I ~ -

w~- u, ~

I ~

-

I

I

I

I

~ (;\.J_J

ffi~

o~

o

I

/ '""" s

~

ffi~o

z

~z

..; 1-0Z !!:~ O::>

zo

UI

-

I 1-~ I

"

u. / I

I

I

I

I

I

I

I

i

i

"''

i

l;6

Cl) w >-

I

UJ 0:: ::> wt: ::>O zz Wu.i >o.. UJ X: 0:: UJ

I

I

I

I

I

I

I

I

0

z

0

z

Wz V ! ~o u.~~ OUJ ti n:: 0:. -:ro _, cl) u •• ,<Z o-

I

I

-,

I

I

I

I

.

l:J

I

, 1 \

I

\

\

I I I

I

I

I

I

I

I,

i

I

0 z en UJ >- e z 0 z

s

>-

1 1'

~ile Edit Search View Options Help D:\PROJE\KAPAK.PRG 2ar t color to GR+/B 2ar t color to GR+/B

3,15 say"NEAR EAST UNIVERSITY"

5,12 say"ECONOMICS & ADMINISTRATIVE SCIENCE" 7,15 say"2002/200311

9,15 say"CIS 400"

11,15 say"GRADUATION PROJECT"

13,15 SAY"COMPUTER SELLING INFORMATION SYSTEM"

17,30 say"SUBMITTED TO:DR.YA<;IN AK<;ALI MISS.NADIRE CAVUS"

19,30 say"SUBMITTED BY:<;AaRI KARAYUSUFOaLU(960226)" 21,15 say"LEFKOM 2003,JUNE"

key(5) pass

lear =0 o while £<3 lear et color to b/w 9,11 clear to 15,59 9,11 to 15_,59 11,28 say"ENTER PASSWORD:" tore space(l) to a_,b,c_,d et color to w/w 11,43 get a ead et color to et color to b/w 11,43 say"*" et color to et color to wjw 11,44 get b ead et color to et color to w/b 11,44 say"*" et color to et color to w/w 11,45 get C ead et color to et color to w/b 11,45 say"*" et color to et color to w/w 11,46 get d ead et color to et color to w/b 11,46 say"*" et color to

tore space(4) to pass :1ss=a+b+c+d E pas s» " 1234" nkey ( O) =3 :) menu Lse

=alert("This password is not acceptable!!!")

rid if

;;t color to Lear

E=f+l if f>=3

:t=alert("You enter wrong password 3 times,you can't enter this program!!!") ?ndif

E~ ~~T3 70 BRITISH 70 N/W i:-- f"0.I....QR TO W /B -= •.• ~ s;.._ y II _{M A I N M E N U"} 5, 23 SAY 11 ₁₁

,.~o

c:iEAR TO 21,60 7,lO TO 21,60 DOUBLE :0,20 SAY "1-STOCK MENU" J..2,20 SAY "2-REPAIR MENU" :..4,20 SAY "3-CUSTOMER .MENU" 16,20 SAY "4-ACCOUNT MENU" 18,20 SAY "5-EXIT"

ET COLOR TO

TORE DATE i) TO A

2, 5 SAY "DATE: 11 _{+DTOC (A)}

TORE TIME {) TO B 2,55 SAY "TIME:" +(B) TORE OTO CHOICE~RESULT

23,20 SAY "ENTER YOUR CHOICE:" GET CHOICE PICTURE "9" EAD 0 CASE ASE CH0-1CE=l 0 ST ASE CHOICE=2 0 RP ASE CHOJCE=3 0

cus

ASE CHOICE::;:4 0 ACC ASE CH0-1CE=5 XIT ND CASE NDDO

:L'R::L~ )0 raT!JTT U _.T. ,, ..•..•. ~...J..J,,,;s ;E7

co:..oR

TO N/B :LEA.~ PE':'

co:..oR

TO B/W "" , t:: S7\V IIC rp ₀ r' _K ~'"%. I ~ J r,. .l. ...., .l. _'-

ss.

15 SAY II MENU" II ~7,10 CLEAR TO 21,60 ~7,10 TO 22,60 DOUBLE

_9,20 SAY 111-PART ADDING"

~11,20 SAY 112-PART LIST"

13,20 SAY 113-PART DELETE"

15,20 SAY 114-PART UPDATE"

~17,20 SAY "5-PART SEARCH" f19,20 SAY "6-EXIT"

rET COLOR TO

STORE OTO CHOICE

~23,20 SAY "ENTER YOUR CHOICE:" GET CHOICE PICTURE "9" ~EAD

po

CASE ~SE CHOICE=l DO A ~ SE CHOICE=2 C SE CHOICE=3 DOD tASE CHOICE=4 i)O E CASE CHOICE =5

l

o s

ASE CHOICE=6 XIT tNDCASE END DO

I

I

I

I

I

I

I

I

.6li

I

.r: 1 ear

iilns= "Y"

lfio while ans="Y" SET COLOR TO GR+/B if>4,8 CLEAR TO 22J68

ll4 I 8 t O 2 2 I 6 8

use STOCK

i_ndex on PRNO to Al

11

6,24 say"THIS IS ADDING NEW PART PROGRAM," store Oto PNO

i

8, 12 say"ENTER PART NO: "get PNO f lastkey()=27

xit endif

l

ead

f PNO=O

@ 12,12 say"O is wrong number, please enter correct number!!!"

( _,~ait oop ndif _seek PNO

i

f found ()

12,12 say"This Part is registered!!!" wait

;:i.o ale 1-oop

else

t

tore space (15) to PN

10,12 say"ENTER PART NAME;"get PN tore Oto PP

@ 12,13 say"ENTER PART PRICE:"get pp

i,TORE DATE () TO PD -

• 14, 14 say"ENTER PART BUY DATE: "get PD store Oto PQ

i

16, 15 say"ENTER PART QUANTITY: "get PQ TORE OTO PS

18,16 SAY "ENTER PART SELLING PRICE:" GET PS .READ

ippend blank

replace PRNO with PNO .eplace PRNAME with PN l='eplace PRPRICE with PP

replace PRBUYDATE with PD

f

eplace PRQU.ANTITY with PQ EPLACE PRSLPRICE WITH PS endif S:lose STOCK ~o ale enddo ilear r-eturn

i

i

i

i

f

l ear se S':"OCK ndex on PRNO to Al A..~S="Y11 0 WHILE ANS="Y" :..EAR SET COLOR TO GR+/B 4,8 CLEAR TO 22,68 4,8 TO 22,68

= 5,15 say"THIS PROGRAM SHOW ALL ABOUT STOCK" - =5 b=D+2

h,

D+l,10 say"PART @ D+2,ll say"PART Jy D+3,12 say"PART f'!? D+4,13 say"PART @ D+5,14 say"PART [ D+6,15 SAY"PART NKEY (4)

15,20 SAY "DO YOU WANT TO CONTINUE?" GET ANS PICTURE READ

lkip

IF LASTKEY () =27 tlear fXIT END IF NO : 11 _{+st r ( PRNO)} NAME:"+PRNAME PRICE:"+STR(PRPRICE)

BUY DATE : 'I + DTOC ( PRBUYDATE) QUANTITY:"+str(PRQUANTITY) SELLING PRICE:"+STR(PRSLPRICE)

l

*

nddo set color to CLOSE STOCK l:lear 1:-eturn

I

i

i

I

i

I

i

I

I

.56 "@lA,@1 ! "

~ ear S="Y o while ans="Y" CLEAR E? COLOR TO GR+/B ~,8 clear to 22,68 :e ~,8 to 22J68 ( se STOCK ndex on PRNO to Al

_ 5,15 say"THIS IS DELETING PROGRAM." store

o

to no

h,

10,12 say"ENTER PART NO:"get no l-ead

if no=O

f

~2,12 say"Is wrong number, please enter correct number!!!" t,ait loop

f

ndif eek no f found () @ 12,12 @ 14,13 @ 16,14 @ 18,15

L

@ 20,16 fNK~Y ( 4) *Wait say"PART say"PART say"PART say"PART SAY"PART NAME:"+ PRNAME PRICE:"+STR(PRPRICE)

BUY DATE:"+ DTOC(PRBUYDATE) QUANTITY;"+ str(PRQUANTITY) SELLING PRICE:"+STR(PRSLPRICE)

I

*do aled

t

tore space(l) to cvp

21, 16 say"Do you want to delete the PART? (Y/N) : "get cvp picture"!" read li-f cvp» "Y" l:ielete pack fndif fl Se

@ 13,12 say"The no of part is not registered!!!" endif

irNK~Y (4) J;wait

Do ale

fstore space{l) to ans

t'@ 24, 10 say"Do you want to continue? (Y/N) : "get ans picture"@la,@1 ! " *read bNDDO 'cLOSE STOCK Set color to feturn

I

I

I

I

- ..•. ea!:' S=ny ans="Y" clear ~ CO~OR TO GR+/B 4,8 clear to 22,68 ~ 4,8 to 22_,68 se STOCK ndex on PRNO TO Al

'=' 6,24 say"THIS IS UPDATING PROGRAM."

store Oto PNO

• 8,12 say"ENTER PART NO:"get PNO f lastkey () =2 7

exit ndif ead if PNO=O

12,12 say"O is wrong number, please enter correct number!!!" ait oop endif - eek PNO f found() @ 10,13

I

@ 12 I 14 @ 14,15 @ 16,16

I

@ read 18, 17 say"ENTER say"ENTER say"ENTER say"ENTER SAY"ENTER PART PART PART PART PART

NAME : "get PRNAME PRICE:"get PRPRICE BUY DATE"get PRBUYDATE QUANTITY:"get PRQUANTITY SELLING PRICE:"GET PRSLPRICE

else

ii .

@ 12, 12 say"THIS NO OF PART NOT REGISTERD ! ! ! "

l,rait endif ( o ale lear lose STOCK enddo

t

lear et urn

i

I

I

I

I

I

::.::~:X c~ ?R~O TO Al

say"?EIS IS SHOW WANTED PART,"

s=~~=

S?~CE (15)to PNA

~.: sa:r'"3NTER PART NAME: "get PNA

:a=:

;;,· =,

.5 say''PARTNO PARTPRICE

:: -.:-_,_~ :::..e .

not. eof ()

='

PNA=PRNAME

PARTBUYDATE

= ::T~,l say" "+STR(PRNO)

c+::.,9 say" "+STR(PRPRICE)

c+l,26 SAY" "+DTOC (PRBUYDATE) ~ c+l,45 say" "+str(PRQUANTITY) 1,62 SAY" "+STR(PRSLPRICE) :lkey{lO) ~k:.p ::.f lastkey()=27 =C+l ndif skip nddo lose STOCK lear return

I

I

I

I

LEAR ~ WHILE .T.

sr COLOR TO N/B

~EAR

fT

COLOR TO B/W t , 2 3 SAY "R E P A I R M E N U" - , 23 SAY 11 " l,10 CLEAR TO 21,60 1,10 TO 21,60 DOUBLE

!o,20 SAY "1-NEW REPAIR SERVICE" .2,20 SAY "2-LIST REPAIR SERVICE" !4,20 SAY "3-SEARCH REPAIR SERVICE" [6,20 SAY "4-DELETE REPAIR SERVICE" .8,20 SAY "5-UPDATE REPAIR SERVICE" '0 20 SAY 116-EXIT"

!T' COLOR TO

'ORE O TO CHO I CE

l!n

20 SAY "ENTER YOUR CHOICE" GET CHOICE PICTURE "9"

I

CASE SE CHOICE=l I F .SE CHOICE=2 Is~ CHOICE =3 T3 rs~ CHOICE=4 SE CHOICE=S .v isE CHICE=6 1 IT pCASE DDO er:

I

( lear ns="Y" o while ans="Y" CLEAR JET COLOR TO GR+/B ~ 2,4 clear to 24,68 @ 2,4 to 24,68 tSE REPAIR index on RPNO to Al

l

3, 35 say" [THIS

rs

REPAIR SERVICE] . " ttore Oto CIDNO

IJ

5,6 say"ENTER CUSTOMER ID NO:" get CIDNO

store space(lO) to CN (

7,7 say"ENTER CUSTOMER NAME:"get CN tore space(15) to CS

~ 9,8 say"ENTER CUSTOMER SURNAME:"get

cs

store space(20) to CA

t

11,9 say"CUSTOMER ADDRESS:"get CA

tore Oto CT

@ 13,10 say"ENTER CUSTOMER TEL.NO:"get CT

fTORE OTO RN

f15,11 SAY "ENTER REPAIR NO:" GET RN store space(15) to RNA

E

tore OTO RP 17,12 say"ENTER REPAIR NAME:"get RNA ""19,13 say"ENTER REPAIR PRICE:"get RP store DATE () TO RD

t

21,14 say"ENTER REPAIR DATE:"get RD

i;KIP read ~ppend blank

l

eplace eplace _eplace replace f'eplace f'eplace replace

J

eplace eplace

RPCIDNO with CIDNO RPCNAME with CN RPCSUR with CS RPCADD with CA RPCTELNO with CT RPNO with RN RPNAME with RNA RPPRICE with RP RPDATE with RD i:LOSE REPAIR i;ET COLOR TO do ale jfnddo ~lear return

I

I

I

I

6/

:::lear

l

ELECT 1 se REPAIR Lndex on RPNO TO Al tJJS= "Y"

fO

WHILE ANS="Y" :LEAR (ET COLOR TO GR+/B

1

4,8 CLEAR TO 24,68 A, 8 TO 24, 68

l=~,15

say"THIS PROGRAM DISPLAYS ALL INFORMATION ABOUT REPAIR" j=d+l

~ d+l,10 say"CUSTOMER ID NO:"+str(RPCIDNO)

e1 d+3,11 say"CUSTOMER NAME:"+RPCNAME

iv d+S,12 say"CUSTOMER SURNAME:"+RPCSUR

l

d+7,13 say"CUSTOMER ADDRESS:"+RPCADD

I

d+9,14 say"CUSTOMER TEL NO:"+str(RPCTELNO)

e1 d+ll,16 say"REPAIR NO:"+STR(RPNO)

t

d+13,17 say"REPAIR NAME:"+RPNAME

t

d+lS,18 say"REPAIR PRICE:"+STR(RPPRICE)

~ d+17,19 say"REPAIR DATE:"+DTOC(RPDATE)

l

NKEY (4)

_23,20 SAY "DO YOU WANT TO CONTINUE?" GET ANS PICTURE "@lA,@1!" ~EAD

lkip

i f lastkey () =2 7 fl~ar tx1t ::ndif c l ea r

fet

color to ~NDDO

I

LOSE ALL lear ~ETURN

I

I

I

I

I

I

I

I

-- o-,...

--a-

=5

se REPAIR

ndex on RPNO TO Al

~ 3,5 say"THIS IS SHOW WANTED REPAIR." tore SPACE (lS)to RNA

4,2 say"ENTER REPAIR NAME:"get RNA ead REPAIRPRICE CSUNAME 5,3 say"REPAIRNO 15,3 SAY" CNAME do while .not.eof() f RNA=RPNAME c+l,1 say" "+STR(RPNO) @ c+l,15 say" "+STR(RPPRICE) c+l, 40 SAY\' " +DTOC (RPDATE) C+ll,4 SAY" "+RPCNAME C+ll,17 SAY" "+RPCSUR @ C+ll,29SAY" "+RPCADD C+ll,44SAY" "+STR(RPCTELNO) C+ll,62SAY" "+STR(RPCIDNO) inkey (15) kip f lastkey () =2 7 clear xit ndif =C+l end if - kip nddo lose REPAIR lear return REPAIRDATE II CADDRESS CTELNO {3 CID NO

I

ear S="Y" . while ans="Y" .ear

'IT

COLOR TO GR+/B ,8 clear to 22,68 4,8 to 22,68

le

REPAIR Idex on RPNO TO Al

1

6, 2. 4 say"THIS IS UPDATING PROGRAM." ore Oto CNO 8,12 say"ENTER CUSTOMER IDNO:"get CNO

I

.

lastkey () =2 7 it id i f rad

I

CNO=O

12,12 say"Is wrong number, please enter correct number!!!" tit

l

op dif iek CNO found () @ 10,13 @ 11,14 @ 12,15 @ 13,16 @ 14,17 @ 15,18 @ 16,19 SAY"ENTER @ 17,20 SAY"ENTER read say"ENTER say"ENTER say"ENTER say"ENTER SAY"ENTER SAY"ENTER

CUSTOMER NAME:"get RPCNAME CUSTOMER SURNAME:"get RPCSUR CUSTOMER ADDRESS"get RPCADD CUSTOMER TEL NO:"get RPCTELNO REPAIR NO: "GET RPNO

REPAIR NAME: "GET RPNAME REPAIR PRICE:"GET RPPRICE REPAIR DATE:"GET RPDATE

lse

@ 12,12 say"THIS NO OF REPAIR SERVICE NOT REGISTERD! ! !"

tit lct. f

I

!1e

.ear

lose

REPAIR ddo .ear

rurn

I

~

I

I

i

i

I

Ku

I

S="Y" while ans="Y" :lear t color to GR+/B 6,10 clear to 24,68 Q 6,10 to 24,68 e REPAIR dex on RPNO to Al

8,24 say"THIS IS DELETING PROGRAM." ·1ore O to no

10,12 say"ENTER CUSTOMER ID NO:"get no ad

.f no=O

1

12,12 say"Is wrong number, please enter correct number!!!" it

.oop

l

dif ek no

.1. found ()

@ 11,12 say"CUSTOMER NAME:"+ RPCNAME

@ 12,13 say"CUSTOMER SURNAME:"+ RPCSUR

@ 13,14 say"CUSTOMER ADDRESS:"+ RPCADD

@ 14,15 say"CUSTOMER TEL NO:"+ str(RPCTELNO)

@ 15,16 say"REPAIR NO:"+STR(RPNO)

@ 16,17 SAY"REPAIR NAME:"+RPNAME

@ 17,18 SAY"REPAIR PRICE:"+STR(RPPRICE)

I

KEY(5) @ 18,19 SAY"REPAIR DATE:"+DTOC(RPDATE) ~ore space(l) to cvp

> 22, 12 say"Do you want to delete the customer? (Y/N) : "get cvp picture"! 11

ad

cvp="Y" lelete

i

dif ck :.LSe

. @ 13,12 say"The no of customer is not registered!!!"

l

dif ale .Lea r jjjlDDO 1ose REPAIR lear

I

t color to turn

i

I

i

I

i

i

[- ,__

I

I

LEAR 0 WHILE .T. SET COLOR TO N/B LEAR ET COLOR TO B/W

@4,23 SAY 11 _{CUSTOMER SERVI C E}

11

1

5,23 SAY

11

7,10 CLEAR TO 21,60

1

10,20 SAY 7,10 TO 22,60 DOUBLE 111-CUSTOMER SALES"

@12,20 SAY "2-CUSTOMER LIST" 14, 20 SAY "3-CUSTOMER UPDATE'' 16,20 SAY "4-CUSTOMER DELETE" @18,20 SAY "5-CUSTOMER SEARCH"

20,20 SAY 116-EXIT"

ET COLOR TO

II

2TORE OTO CHOICE

23,20 SAY "ENTER YOUR CHOICE:" GET CHOICE PICTURE 119"

EAD 0 CASE ASE CHOICE=l DO SALES

I

ASE CHOICE=2 0 J ASE CHOICE=3 DOK ASE CHOICE=4 0 L CASE CHOICE=S

1

0 Ul ASE CHOICE=6 XIT il:NDCASE INDDO

I

I

I

I

LEAR

0 WHILE .T.

SET COLOR TO N/W LEAR

ET COLOR TO W/B

@4,23 SAY "SALE S MENU"

5,23 SAY"

_"

@7,10 CLEAR TO 21,60

1

12,20 SAY "1-CASH SALES" 7,10 TO 21,60 DOUBLE @14,20 SAY "2-CREDIT SALES"

16,20 SAY "3-EXIT" ET COLOR TO

TORE OTO CHOICE

23,20 SAY "ENTER YOUR CHOICE:" GET CHOICE PICTURE "9" EAD 0 CASE ASE CHOICE=l DOH ASE CHOICE=2 0 I CASE CHOICE=3 XIT NDCASE END DO

i

i

I

'"'lear

I

ns= "Y" o while ans="Y" 2LEAR ET COLOR TO GR+/B 4,8 clear to 24,68 @ 4,8 to 24,68

l

se CUSTOMER ndex on CUSIDNO to Al

~ 6,24 say"THIS IS SELLING SERVICE."

l

tore Oto no 7,12 say"ENTER CUSTOMER ID NO:"get no

f La s t.key O e z ? exit

l

ndif ead if no=O

f

~2,12 say"O is wrong number, please enter correct number!!!" a1t

oop endif ·eek no

f found()

@ 12,12 say"This customer is registered!!!"

l

ait

o ale loop

I

lse tore space(lO) to CN

9,13 say"ENTER CSTOMER NAME:"get CN store space(l5) to CSN

I

11,14 say"ENTER CUSTOMER SURNAME:"get CSN

tore space(20) to CA

@ 13,15 say"ENETR CUSTOMER ADDRESS:"GET CA

l

tore 15,16 say"ENTER CUSTOMER TEL NO:"get CT

o

to CT store Oto CNO

I

tore SPACE (20) to CEXP 17,17 say"ENTER CUSTOMER NO:"get CNO 19,18 say"ENTER EXPLANATION:" GET CEXP store DATE () to DATE

it

21,19 say"ENTER SALES DATE:"get DATE

ltore Oto CP

@ 23,20 say"ENTER PRICE:"get CP

fEAD

lppend blank

replace CUSIDNO with NO

l

eplace CUSNAME with CN

eplace CUSSURNAME with CSN replace CUSADDRESS with CA

l

eplace CUSNO with CNO eplace CUSTELNO with CT

replace CUSEXP with CEXP feplace CSALESDAY with DATE replace CPRICE with CP

indif

llose CUSTOMER

i

I

l

o ale nddo lear return

I

I

I

I

I

i

I

I

I

I

I

I

I

i

lear ns="Y" o while ans="Y" CLEAR -ET COLOR TO GR+/B 4,8 clear to 22,68 @ 4,8 to 22,68 se CUSTOMER ndex on CUSNO TO Al

@ 6, 24 say"THIS IS CREDIT SALES SERVICE''

i

tore Oto no 8,12 say"ENTER CUSTOMER ID NO:"get no f lastkey()==27

exit ndif _ead if no==O

f

ait ~2,12 say" Is wrong number, please enter correct number!!!"

oop

i

nd if eek no f found()

@ 12,12 say"This customer is registered!!!" ii7ait

1.o ale loop

I

lse tore space(5) to CN

9,13 say"ENTER CUSTOMER NAME:"get CN store space(l5) to CS

10,14 say"ENTER CUSTOMER SURNAME:"get

cs

tore space(20) to CA

@ 11,15 say"ENTER CUSTOMER ADDRRESS:"get CA

if

tore O to CT

I?

12, 16 say"ENTER CUSTOMER TEL NO: "get CT store Oto CNO

i

13, 17 say"ENTER CUS NO: "get CNO tore space(20) to CE

14,18 say"ENTER CUSTOMER EXPLANATION:"get CE store DATE() to DATE

~ 15,19 say"ENTER SALES DATE:"get DATE l,tore O TO CP

@ 16,20 say"ENTER PRICE:"get CP

if

tore DATE () to DATE

• 17, 21 say"ENTER BORROW DAY: "get DATE store DATE () TO DATE

i

tore OTO CM 18, 22 say"ENTER END OF PAYMENT: "get DATE 19,23 say"ENTER MONTHLY PAYMENT:"get CM read

lppend blank

replace CUSIDNO with NO

J

eplace CUSNAME with CN eplace CUSSURNAME with CS replace CUSADDRESS with CA replace CUSTELNO with CT

l

eplace CUSNO with CNO eplace CUSEXP with CE

i

I

CSALESDAY with DATE CPRICE with CP

CBORROWDAY with DATE CENDOFPAY with DATE CMONTHLYPA with CM [Place fplace _eplace :-eplace 5=place lidif ::lose CUSTOMER

;o

ale IET COLOR TO ~nddo ;iear

le

turn

i

i

I

I

i

I

I'/

ear e CUSTOMER dex on CUSNO to Al to while.not.eof() t color to GR+B ,8 CLEAR TO 22,68 ~3,8 TO 22,68

5,10 say"THIS PROGRAM DISPLAYS ALL INFORMATION ABOUT CUSTOMER" :i=5

r

d+l d+l,11 say"CUSTOMER ID NO:"+str(CUSIDNO) :!! d+2,12 say"CUSTOMER NAME:"+CUSNAME g) d+3,13 say"CUSTOMER SURNAME:"+CUSSURNAME d+4,14 say"CUSTOMER ADDRESS:"+CUSADDRESS d+S,15 say"CUSTOMER TEL NO:"+str(CUSTELNO)

@ d+6,16 say"CUSTOMER NO:"+STR(CUSNO) - d+7,17 say"EXPLANATION:"+CUSEXP d+8,18 say"SALES DAY:"+DTOC(CSALESDAY) @ d+9,19 say"PRICE:"+STR(CPRICE) d+l0,20 say"BORROW DAY:"+DTOC(CBORROWDAY) d+ll,21 say"END OF PAYMENT:"+DTOC(CENDOFPAY) \>!:! d+12,22 say"MONTHLY PAYMENT:"+STR(CMONTHLYPA) wait

l

kip f lastkey {) =27 clear xit ndif clear

l

et color to nddo ~lose CUSTOMER clear

le

turn

I

I

I

I

I

I

( lear TIS="Y" o while ans="Y" clear -ET COLOR TO GR+/B 4,8 CLEAR TO 22,68 @4,8 TO 22,68 se CUSTOMER ndex on CUSNO to Al

6,24 say"THIS IS UPDATING PROGRAM." store Oto no

r

8,12 say"ENETR CUSTOMER ID NO:"get no

f lastkey()=27 exit ( ndif ead f no=O

@ 12,12 say"O is wrong number, please enter correct number!!!"

ait oop endif t,eek no Jf found()

@ 9,13 say"CUSTOMER NAME:"get CUSNAME

I

@ @ 10, 14 say"CUSTOMER SURNAME: 11,15 say"CUSTOMER ADDRESS:"get CUSADDRESS "get CUSSURNAME

@ 12,16 say"CUSTOMER TEL NO:"get CUSTELNO

@ 13,17 say"CUSTOMER NO:"get CUSNO

@ 14,18 say"EXPLANATION:"get CUSEXP

@ 15,19 say"SALES DAY:"get CSALESDAY

@ 16,20 say"PRICE:"GET CPRICE

I

@ 17, 21 say"BORROW DAY: "get CBORROWDAY

@ 18,22 SAY"END OF PAYMANT:" GET CENDOFPAY

@ 19,23 SAY"MONTHLY PAY:" GET CMONTHLYPA

read l1se

r

@ 12,12 say"This no of customer is not registered!!!"

wait fmdif lio ale clear

f

nddo lose CUSTOMER lear return

I

I

I

I

I

( lear ns="Y" o while ans="Y" clear fET COLOR TO GR+/B t4,8 CLEAR TO 24,68 @4,8 TO 24,68

lse

CUSTOMER ~ndex on CUSNO to Al

@ 8,24 say"THIS IS DELETING PROGRAM."

ltore Oto CIDNO

I

10,10 say"ENTER CUSTOMER ID NO:"get CIDNO

read

iJf

CIDNO=O

t

12,12 say"O is wrong number, please enter correct number!!!"

wait

l

oop ndif

eek CIDNO if found ()

@ 11,11 say"CUSTOMER NAME:"+ CUSNAME

@ 12,12 say"CUSTOMER SURNAME:"+ CUSSURNAME @ 13,13 say"CUSTOMER ADDRESS:"+CUSADDRESS

@ 14,14 say"CUSTOMER TEL NO:"+str(CUSTELNO)

@ 15,15 say"CUSTOMER NO:"+STR(CUSNO) @ 16,16 SAY"EXPLANATION:"+CUSEXP @ 17,17 SAY"SALES DAY:"+DTOC(CSALESDAY) @ 18,18 SAY"PRICE:"+STR(CPRICE) @ 19,19 SAY"BORROW DAY:"+DTOC(CBORROWDAY) @ 20,20 SAY"END OF PAYMANT:"+DTOC(CENDOFPAY) @ 21,21 SAY"MONTHLY PAYMENT:"+STR(CMONTHLYPA) NKEY(5) ' tore space(l) to cvp

23, 12 say"Do you want to delete the customer? (Y/N) : "get cvp picture"!" ead

I

.

f Cvp="Y" elete ack

endif lse

@ 13,12 say"The no of customer is not registered!!!" endif o ale clear LOSE CUSTOMER nddo lear et color to return

I

ar

~ CUSTOMER

r-iex on CUSNO TO Al

3,10 say"THIS IS SHOW WANTED CUSTOMER." ore Oto CN

4,10 say"ENTER CUSTOMER ID NO:"get CN ead

5,3 say"CNAME CSURNAME CADDRESS

rrs ,

3 SAY" SALESDAY PRICE BORROWDAY

I

while .not.eof() CN=CUSIDNO

. c+l, 2 say" "+CUSNAME c+l,15 say" "+CUSSURNAME c+l,29 SAY" " +CUSADDRESS C+l,35 SAY" "+STR(CUSTELNO) C+l,52 SAY" "+STR(CUSNO) C+ll,l SAY" "+DTOC(CSALESDAY) C+ll,llSAY" "+STR(CPRICE}

y C+ll, 25SAY" ·" +DTOC (CBORROWDAY)

v C+ll, 42SAY" "+DTOC (CENDOFPAY}

C+ll, 59SAY" 'l+STR (CMONTHLYPA} __ .key ( 15} sk i p lastkey (} =27 ear :=:xit

f~~i

tctif skip

tddo

close CUSTOMER

l

et lear urn

I

I

i

CTELNO ENDOFPAYMENT CNO" MONTHLYPAYMENT

I

LEAR DO WHILE .T. ET COLOR TO N/B LEAR SET COLOR TO B/W

4,23 SAY "ACCOUNT MENU"

5,23 SAY" II 7,10 CLEAR TO 21,60 7,10 TO 21,60 DOUBLE @12,20 SAY "1-REVENUE" 14,20 SAY "2-EXPENDITURE" 16,20 SAY "3-EXIT" SET COLOR TO

~TORE OTO CHOICE

@23,14 SAY "ENTER YOUR CHOICE:" GET CHOICE PICTURE "9" EAD DO CASE a:ASE CHOICE=l

lll>O

REV CASE CHOICE=2

.fO

R .ASE CHOICE=3 ...,XIT ND CASE NDDO

I

I

-76

LEAR 0 WHILE .T. SET COLOR TO N/W LEAR ET COLOR TO W/B @4,23 SAY" REVENUE 5, 23 SAY " 11 MENU" 7,10 CLEAR TO 21,60 7,10 TO 21,60 DOUBLE

12,20 SAY "1-CASH SALES REVENUE" @14,20 SAY "2-CREDIT SALES REVENUE"

16,20 say "3-REPAIR REVENUE"

18,20 SAY "4-EXIT" ET COLOR TO

TORE OTO CHOICE

23,14 SAY "ENTER YOUR CHOICE:" GET CHOICE PICTURE "9" EAD DO CASE ASE CHOICE:::l .O M CASE CHOICE=2

1

0 N ASE CHOICE=3 0 Z CASE CHOICE=4 XIT ENDCASE NDDO

I

I

?.:J.

__ ea~ se CCSTOMER -~Ge.x on CUSNO to Al de ~hile.not.eof()

e=

color to GR+/B =3,3 CLEAR TO 22,68 3,8 TO 22,68

·§; 5, 10 say"THIS PROGRAM DISPLAYS CASH SALES REVENUE OF ORGANIZATION "

'"'=5 =d+l = d+l,15 say"EXPLANATOIN:"+CUSEXP ~ d+S,20 say"SALES DAY:"+DTOC(CSALESDAY) d+l0,25 say"PRICE:"+STR(CPRICE) ait skip "f lastkey()=27 lear xit ndif lear et color to enddo lose CUSTOMER lear return

i

,..., ear e CUSTOMER ~dex on CUSNO to Al do ~hile.not.eof() ,-,EAR t color to GR+/B ~3,8 CLEAR TO 24,68 ,8 TO 24,68

= 5,10 say"THIS PROGRAM DISPLAYS CASH SALES REVENUE OF ORGANIZATION 11

i

d+l

s

d+l,9 say"EXPLANATOIN:"+CUSEXP

!Y D+3,10 SAY "CUSTOMER NAME:"+CUSNAME

d+S,11 say"SALES DAY:"+DTOC(CSALESDAY) D+7,12 SAY"CUSTOMER SURNAME:"+CUSSURNAME

!Y d+9,13 say"PRICE:"+STR(CPRICE)

D+ll,14 SAY "CUSTOMER ADDRESS:"+CUSADDRESS D+13,15 SAY "CUSTOMER TEL NO:"+STR(CUSTELNO) D+lS,16 SAY "CUSTOMER NO:"+STR(CUSNO)

llai t ip lastkey () =2 7 ::lear

i

~if ·t ::lear

i

ddo t color to ~ ose CUSTOMER ::lear jturn

i

i

i

i

i

i

i

i

I

-

ca_

---

e CUSTOMER -~ex on CUSNO to Al

:o

~hile.not.eof() c color to GR+/B C--3AR TO 24, 68 ,8 TO 24,68

5,2.0 say"THIS PROGRAM DISPLAY CREDIT SALES INFORMATION"

'.J =d+l d+l,11 say"EXPLNATION:"+CUSEXP d+2,12 say"SALE DAY:"+DTOC(CSALESDAY) d+3,13 say"PRICE:"+STR(CPRICE) d+4,14 say"BORROW DAY:"+DTOC(CBORROWDAY) 'd+S,15 say"END OF PAYMENT:"+DTOC(CENDOFPAY) d+6,16 say"MONTHLY PAYMENT:"+STR(CMONTHLYPA)

_ D+7, 17 SAY"CUSTOMER NAME:" +CUSNAME

D+8,18 SAY"CUSTOMER SURNAME:"+CUSSURNAME D+9,19 SAY"CUSTOMER ADDRESS:"+CUSADDRESS D+l0,20SAY"CUSTOMER TEL NO:" +STR(CUSTELNO) D+ll,21 SAY"CUSTOMER NO:"+STR(CUSNO)

l

~t lp .f lastkey() =27

l

ear it dif :lear t color to ddo :lose CUSTOMER

I

ear turn

I

I

I

I

I

I

I

i

i

I

l

lear se REPAIR ndex on RPNO to Al do while.not.eof() tLEAR let color to GR+/B @2,8 CLEAR TO 24,68 f2,8 TO 24,68

i

3,10 say"THIS PROGRAM DISPLAYS REPAIR REVENUE OF ORGANIZATION"

i

=3 =d+l ""d+l,10 say"REPAIR NO:"+STR(RPNO) @ d+3,ll say"REPAIR NAME:"+RPNAME d+S,12 say"REPAIR PRICE:"+STR(RPPRICE) D+7,13 SAY"REPAIR DATE:"+DTOC(RPDATE) @ D+9,14 SAY"REPAIR CUSTOMER NAME:"+RPCNAME

D+ll,15 SAY"REPAIR CUSTOMER SURNAME:"+RPCSUR D+l3,16 SAY"REPAIR CUSTOMER ADDRESS:"+RPCADD

D+l5,17 SAY"REPAIR CUSTOMER TEL NO:"+STR(RPCTELNO) D+l7,18 SAY"REPAIR CUSTOMER ID NO:"+STR(RPCIDNO) ait kip if lastkey () =27 lear xit endif

l

lear et color to nddo close REPAIR -lear et urn ~/

I

ar STOCK ndex on PRNO to Al ANS="Y" ET COLOR TO GR+/B ,8 CLEAR TO 22,68 ·-, 8 TO 2 2 , 6 8

1 5, 15 say"THIS PROGRAM SHOW ALL ABOUT EXPENDITURE"

'+2

~ D+l, 10 say"PART NO: "+str(PRNO)

D+2,11 say"PART NAME:11+PRNAME

D+3,12 say"PART PRICE:"+STR(PRPRICE)

'c!- D+4, 13 say"PART BUY DATE: "+DTOC (PRBUYDATE)

!? D+S,14 say"PART QUANTITY:"+str(PRQUANTITY)

D+S,15 SAY"PART SELLING PRICE:"+STR(PRSLPRICE) EY (4)

!> 15,20 SAY "DO YOU WANT TO CONTINUE?" GET ANS PICTURE "@lA,@1!" AD 3kip LASTKEY () =2 7 llliDIF ft color to end do OSE STOCK ear return

I

I.

I

I

I

I

I

I

I

I

I

lear

define a define b ={"YES11,11N011}

=alert("DO YOU WANT TO CONTINUE?",g) o case case w=l ans="YES" case w=2 ans="NO" ndcase

i

I

I

i

i

i

i

I

I

I

I

I

I

I

NEAR EAST UNIVERSITY

ECONOMICS & ADMINISTRATIVE SCIENCE 2002/2003

CIS 400

GRADUATION PROJECT

COMPUTER SELLING INFORMATION SYSTEM

SUBMITTED TO:DR.YA~IN AK~ALI MISS.NADIRE CAVUS SUBMITTED BY:~AaRI KARAYUSUFOaLU(960226)

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

ENTER PASSWORD:

I

DATE:16/06/03 TIME:00:19:30

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

M A I N M E N U 1-STOCK MENU 2-REPAIR MENU 3-CUSTOMER MENU 4-ACCOUNT MENU 5-EXIT

I

I

I

S T O C K M E N U

I

I

II

2-PART LIST 1-PART ADDING

I

3-PART DELETE

II

4-PART UPDATE

I

5-PART SEARCH

I

6-EXIT

I

ENTER YOUR CHO ICE :_ 0 ft~re, I, 3

I

I

I

I

I

I

I

I

I

I

I

I

9, J.

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

THIS IS ADDING NEW PART PROGRAM.

ENTER PART NO: 369

ENTER PART NAME:

ENTER PART PRICE: 0

ENTER PART BUY DATE: 06/16/03

ENTER PART QUANTITY: 0

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

THIS PROGRAM SHOW ALL ABOUT STOCK

PART NO: 369

PART NAME:

PART PRICE: 0

PART BUY DATE:16/06/03

PPART SELLING PRICE: 0

I

I

I

I

I

THIS IS DELETING PROGRAM.

369 ENTER PART NO:

PART NAME:

PART PRICE: 0

PART BUY DATE:06/16/03 PART QUANTITY: 0

I

I

I

THIS IS UPDATING PROGRAM.

ENTER PART NO: 369

ENTER PART NAME:

ENTER PART PRICE: 0

ENTER PART BUY DATE 06/16/03

ENTER PART QUANTITY: 0

ENTER PART SELLING PRICE: 0

I

1THIS IS SHOW WANTED PART.

ENTER PART NAME:

I

I

I

I

I

I

I

I

I

R E P A I R M E N U

1-NEW REPAIR SERVICE 2-LIST REPAIR SERVICE 3-SEARCH REPAIR SERVICE 4-DELETE REPAIR SERVICE 5-UPDATE REPAIR SERVICE 6-EXIT

I

i

I

I

I

ENTER CUSTOMER ID NO: ENTER CUSTOMER NAME:

ENTER CUSTOMER SURNAME: CUSTOMER ADDRESS:

ENTER CUSTOMER TEL.NO: ENTER REPAIR NO:

[THIS IS REPAIR SERVICE]. 0 0 0

i

i

I

I

I

I

I

I

I

I

I

I

I

I

I

ENTER REPAIR NAME:

ENTER REPAIR PRICE: 0

ENTER REPAIR DATE: 16/06/03

TEIS PROGRAM DISPLAYS ALL INFORMATION ABOUT REPAIR

MER ID NO: 0

c::;STOMER NAME:

0nSTOMER SURNAME:

CUSTOMER ADDRESS:

CUSTOMER TEL NO:

REPAIR NO: 0

0

REPAIR NAME:

REPAIR PRICE: 0

RDO YOU WANT TO CONTINUE? Y

I

I

I

THIS IS SHOW WANTED REPAIR.

ENTER REPAIR NAME: PRINTER

REPAIRNO REPAIRPRICE

I

654 20 RE PAI RDA TE 13/06/03

I

CNAME AHMET CSUNAME ARCA CADDRESS TAPtKINKOYN0:32

I

I

I

I

I

I

I

I

I

I

I

_CTELNO 2255163 CID NO 665544

I

I

I

I

I

I

I

I

I

I

I

I

i

i

i

i

i

THIS IS DELETING PROGRAM.

ENTER CUSTOMER ID NO: 123

CUSTOMER NAME: CUSTOMER SURNAME:

CUSTOMER ADDRESS:

CUSTOMER TEL NO : 0

REPAIR NO: 123

REPAIR NAME:PRINTER SERVICE REPAIR PRICE: 120

REPAIR DATE:06/12/03

Do you want to delete the customer?(Y/N):

I

I

THIS IS UPDATING PROGRAM.

ENTER CUSTOMER IDNO: 123

ENTER CUSTOMER NAME: ENTER CUSTOMER SURNAME:

ENTER CUSTOMER ADDRESS

ENTER CUSTOMER TEL NO: 0

ENTER REPAIR NO: 123

ENTER REPAIR NAME: PRINTER SERVICE

ENTER REPAIR PRICE: 120

I

I

I

C U S T O M E R S E R V I C E

I

I

1-CUSTOMER SALES

I

2-CUSTOMER LIST 3-CUSTOMER UPDATE

I

4-CUSTOMER DELETE

5-CUSTOMER SEARCH

II

I

II 6-EXIT

I

ENTER YOUR CHO ICR ;_ 0

I

I

I

I

I

I

I

I

I

I

I

I

99

I

I

I

I

I

I

I

I

I

I

I

I

S A L E S M E N U 1-CASH SALES 2-CREDIT SALES 3-EXIT

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

THIS IS SELLING SERVICE.

ENTER CUSTOMER ID NO: 258852

ENTER CSTOMER NAME:

ENTER CUSTOMER SURNAME: ENETR CUSTOMER ADDRESS:

ENTER CUSTOMER TEL NO: 0

ENTER CUSTOMER NO: 0

ENTER EXPLANATION:

ENTER SALES DATE: 16/06/03

ENTER PRICE: 0