GRADUATION PROJECT

(1)

Faculty Of Engineering

Computer Engineering

Department

GRADUATION PROJECT

SUBJECT

SHOP STORE INFORMATION

SUPERVISOR

BESİME ERİN

PREPARED BY

MEHMET SAMİ SİPAHİ ( 951133)

(2)

NEAR EAST UNIVERSITY

1988

Faculty of Engineering

Department of Computer Engineering

SHOP STORE INFORMATION

Student

: Mehmet Sami Sipahi ( 951133 )

Supervisor : Besime Erin

(3)

1988

NEAR EAST UNIVERSITY

.••• ,#'

Faculty Of Engineering

Computer Engineering

Department

COM 400

GRADUATION PROJECT

SUBJECT

SHOP STORE INFORMATION

( STOCK CONTROL SYSYTEM)

(4)

PRESENT-

TO my parents

TO all my teachers

TO all

my family

TO all my friends

TO

my

teacher BESiM·E ERİN

T.O Asst. Prof. Dr ADNAN KHASHMAN

TO NEAR EAST ·UNIVERSITY

(5)

Acknowledgements ;

I would like to acknowledge my parents who supported me

during my education period and who have patiently encouraged

me to be the best every where .

I would like to thank my teacher BESİME ERİN who

assisted me to get a full picture about my project and she has a

very strong reason of understanding the topic of data base

management .

I specially appreciate my friends who helped me in

preparing outputting the project . I also thank my girlfriend

who provided a healthy and quite environment during my

preparing the project .

I continue to thank all my department teachers who teached

for usefully for engineering everything .

During the my training period in this university at faculty of

engineering of computer engineering . I have passed good

information about software, hardware and other important

areas . I hope that these information are going to be much more

useful and benefit for me .

(6)

GRADUATION

PROJECT

Aboul FoxPro

II

Fox Pro loı Windows

Ver~ion 2.5

COM 400

GRADUATION PROJECT

STORE

INFORMATION

SYSTEM

[ STOCK

CONTRQL

SYSTEM )

Supervisor

: El

ESiME

ERIN

Prepôıed B11: MEHMET SAMİ SiPAHİ

Neôr Eö~I Univer±ity

(7)

GRADUATION

PROJECT

FnxPro 2.6for \ıiin:d1J{~s:

(cl

·ı

:m:1-1 SBAi Micn;s.nH Cmpm-mlimı

(8)

GRADUATION

PROJECT

Structure---. Setup

£i

maık C 15

D'

sort C 15 colour C 15 size N 2

o

number N 4

o

com_date D 8 p_price N 12

o

s_price N 12

o

code C 6 it tStore:Mark ~ tStore:Sort tStore:Colour tStore:Size IndexDescription---....

Index Expression: maık

(9)

(10)

PROJECT

Compile

Ill

Current Directory: a:\com-400\ edit.prg liıt.prg record.prg search_c. prg search_g. prg search_m.prg search_s.prg secimmen.prg

uınıımı

Drives:

!ıaa:

C

_ihow All Files

(11)

(12)

GRADUATION

,

..

Do Program File: [ıtore.prg listprg record.prg search_ c. prg search_g. prg search_m.prg search_ s. prg

PROJECT

~a:\

• Jıtrn,tm,

n

AH Files Drive:

[ıaa:

(13)

GRADUATION

PROJECT

(14)

STORE.PRG

SET TALK OFF CLEAR

SET SYSMENU SAVE SET SYSMENU TO USE A:\COM400\store.dbf

DEFINE PAD Store_Pad OF_MSYSMENU PROMPT 'Store Informations' COLOR SCHEME 2 DEFINE PAD Search Pad OF _MSYSMENU PROMPT 'Product Search' COLOR SCHEME 2 DEFINE PAD Exit_Pad OF _MSYSMENU PROMPT 'Exit' COLOR SCHEME 2

ON PAD Store_Pad OF _MSYSMENU ACTIVATE POPUP Store ONPAD Search_Pad OF _MSYSMENU ACTIVATEPOPUPSearch ON PAD Exit_Pad OF _MSYSMENU ACTIVATE POPUP Exit

DEFINE POPUP Store MARGIN RELATIVE SHADOW COLOR SCHEME 3 DEFINE BAR 1 OF Store PROMPT 'Store Record'

DEFINE BAR 2 OF Store PROMPT 'Store Delete' DEFINE BAR 3 OF Store PROMPT 'Store Edit' DEFINE BAR 4 OF Store PROMPT 'Store List'

ON SELECTION POPUP Store DO A:\COM400\Mainmenu WITH PROMPTQ,POPUPQ DEFINE POPUP Search MARGIN RELATIVE SHADOW COLOR SCHEME 3

DEFINE BAR 1 OF Search PROMPT 'To Mark' DEFINE BAR 2 OF Search PROMPT 'To Sort' DEFINE BAR 3 OF Search PROMPT 'To Colour' DEFINE BAR 4 OF Search PROMPT '\-'

DEFINE BAR 5 OF Search PROMPT 'General Search'

ON SELECTION POPUP Search DO Mainmenu WITHPROMPTQ,POPUPQ DEFINE POPUP Exit MARGIN RELATIVE SHADOW COLOR SCHEME 3 DEFINE BAR 1 OF Exit PROMPT 'Exit'

(15)

MAINMENU. PRG

PARAMETERS mPrompt,mPopup RELEASE WINDOW ALL CLEAR PROGRAM DO CASE

CASE mPrompt='Exit'

SET SYSMENU TO DEFAULT CASE mPrompt='To Mark'

DO A:\COM400\Search_m.Prg

CASE mPrompt='To Sort'

DO A:\COM400\Search_s.Prg

CASE mPrompt='To Colour'

DO A:\COM400\Search_c.Prg

CASE mPrompt='General Search'

DO A:\COM400\Search _g.Prg

CASE mPrompt='Store Record'

DO A:\COM400\record.Prg

CASE mPrompt='Store Delete' DO A:\COM400\delete.Prg CASE mPrompt='Store Edit'

DO A:\COM400\editPrg

CASE mPrompt='Store List'

DO A:\COM400\listPrg

ENDCASE RETURN

(16)

(17)

GRADUATION

PROJECT

M Store Record MEHMET SAMi SiPAHi

il

Mark Sort Colour Size Number Coming Date Purchase Price Selling Price Product Code rtr(g?,--;{fti/iffeil\\",iG1:4!,~~~·-i!'' ~~~1lf"f.t~fıiii)?~.~~-ıef~f~.:ı,,~~-- ;. ~~~~l'.',$1',v.mi\ ~~~'lm:,ı;.~~~ "··

(18)

RECORD.PRG

DEFINE WINDOW Record_ Window FROM 1,16 TO 27,82 FLOAT SYSTEM TITLE ' Store Record MEHMET SAMi SiPAHi ' COLOR ,RGB(255,255,255,0,0,255) ACTIVATE WINDOW Record_ Window

@ 1,7 SAY 'Mark' FONT 'ARIAL' @ 3,7 SAY 'Sort' FONT 'ARIAL' @ 5,7 SAY 'Colour' FONT 'ARIAL' @ 7,7 SAY 'Size' FONT 'ARIAL' @ 9,7 SAY 'Number' FONT 'ARIAL' @ 11,7 SAY 'Coming Date' FONT 'ARIAL' @ 13,7 SAY 'Purchase Price' FONT 'ARIAL' @ 15,7 SAY 'Selling Price' FONT 'ARIAL' @ 17,7 SAY 'Product Code' FONT 'ARIAL'

@ 1,34 EDIT Store.Mark SIZE 1,20,15 FONT 'ARIAL' COLOR SCHEME 1 DEFAULT " @ 3,34 EDIT Store.Sort SIZE 1,20,15 FONT 'ARIAL' COLOR SCHEME 1 DEFAULT 11 @ 5,34 EDIT Store.Colour SIZE 1,20,15 FONT 'ARIAL' COLOR SCHEME 1 DEFAULT 11 @ 7,34 GET Store.Size SIZE 1,20 FONT 'ARIAL' COLOR SCHEME 1 DEFAULT O @ 9,34 GET Store.Number SIZE 1,20 FONT 'ARIAL' COLOR SCHEME 1 DEFAULT O @ 11,34 GET Store.Com_Date SIZE 1,20 FONT 'ARIAL' COLOR SCHEME 1 DEFAULT

DateO

@ 13,34 GET Store.p_price SIZE 1,20 FONT 'ARIAL' COLOR SCHEME 1 DEFAULT O @ 15,34 GET Store.s_price SIZE 1,20 FONT 'ARIAL' COLOR SCHEME 1 DEFAULT O @ 17,34 EDIT Store.Code SIZE 1,20,30 FONT 'ARIAL' COLOR SCHEME 1 DEFAULT'' @ 20,0,20,67 BOX

@23,1 GET Secilen_Button PICTURE '@*HN Top;Bottom;Before;Next;New;Exit' SIZE 1,8,3 DEFAULT O VALID Reservason_Button_KontrolO

READ CYCLE COLOR ,RGB(255,255,255,255,0,0) DEACTIVATE WINDOW Record_Window

RELEASE WINDOW Record_ Window RETURN

PROCEDURE Reservason _Button_ Kontrol DO CASE CASE Secilen_Button=l GO TOP CASE Secilen_Button=2 GO BOTTOM CASE Secilen_Button=3 IFNOTBOFO SKIP-1 ELSE

WAiT WINDOW 'Beginning of fıle encountered' NOWAiT GO TOP ENDIF CASE Secilen_Button=4 IF RECCOUNTO>O SKIP ENDIF IFEOFO GO BOTTOM

WAiT WINDOW 'End of fıle encountered' NOW AiT ENDIF CASE Secilen_Button=5 APPEND BLANK CASE Secilen_Button=6 CLEAR READ RETURN ENDCASE SHOW GETS

(19)

(20)

GRADUATION

PROJECT

u Store Delete MEHMET SAMi SiPAHi

£i

Mark Sort Colour Size Number Coming Date Purchase Price Selling Price Product Code

ııu:ı:

ıraırAı~

(21)

DELETE.PRG

DEFINE WINDOW Delete_Penceresi FROM 1,16 TO 27,82 FLOAT SYSTEM TITLE ' Store Delete MEHMET SAMi SiPAHi' COLOR ,RGB(255,255,255,0,~,255) ACTIVATE WINDOW Delete_Penceresi

@ 1,7 SAY 'Mark' @ 3,7 SAY 'Sort' @ 5,7 SAY 'Colour' @ 7,7 SAY 'Size' @ 9,7 SAY 'Number' @ 11,7 SAY 'Coming Date' @ 13,7 SAY 'Purchase Price' @ 15,7 SAY 'Selling Price' @ 17,7 SAY 'Product Code'

FONT 'ARIAL' FONT 'ARIAL' FONT 'ARIAL' FONT 'ARIAL' FONT 'ARIAL' FONT 'ARIAL' FONT 'ARIAL' FONT 'ARIAL' FONT 'ARIAL'

@ 1,34 EDIT Store.Mark SIZE 1,20,15 FONT 'ARIAL' COLOR SCHEME 1 DEFAULT" @ 3,34 EDIT Store.Sort SIZE 1,20,15 FONT 'ARIAL' COLOR SCHEME 1 DEFAULT" @ 5,34 EDIT Store.Colour SIZE 1,20,15 FONT 'ARIAL' COLOR SCHEME 1 DEFAULT 11 @ 7,34 GET Store.Size SIZE 1,20 FONT 'ARIAL' COLOR SCHEME 1 DEFAULT O @ 9,34 GET Store.Number SIZE 1,20 FONT 'ARIAL' COLOR SCHEME 1 DEFAULT O @ 11,34 GET Store.Com_Date SIZE 1,20 FONT 'ARIAL' COLOR SCHEME 1 DEFAULT DateO

@ 13,34 GET Store.p_price SIZE 1,20 FONT 'ARIAL' COLOR SCHEME 1 DEFAULT O @ 15,34 GET Store.s_price SIZE 1,20 FONT 'ARIAL' COLOR SCHEME 1 DEFAULT O @ 17,34 EDIT Store.Code SIZE 1,20,30 FONT 'ARIAL' COLOR SCHEME 1 DEFAULT 11 @ 20,0,20,67 BOX

@ 23,1 GET Secilen_Button PICTURE '@*HN Top;Bottom;Before;Next;Delete;Exit' SIZE 1,8,3 DEFAULT O VALID Reservason_Button_KontroIO

READ CYCLE COLOR ,RGB(255,255,255,255,0,0) DEACTIVATE WINDOW Delete_Penceresi RELEASE WINDOW Delete_Penceresi RETURN

WAiT WINDOW 'Beginning of file encountered' NOWAIT GO TOP ENDIF CASE Secilen_Button=4 IF RECCOUNTO>O SKIP ENDIF IFEOFO GO BOTTOM

WAiT WINDOW 'End of file encountered' NOW AiT ENDIF

CASE Secilen_Button=5 IF RECNOO<>O

(22)

DELETE.PRG PACK GO TOP ENDIF CASE Secilen_Button=6 CLEAR READ RETURN END CASE SHOW GETS

(23)

(24)

GRADUATION

PROJECT

,;· .. !lo,

fiiii Store Edit MEHMET SAMi SiPAHi

ır&

i

'

Mark Sort Colour Size Number Coming Date Purchase Price Satis Fiyati Product Code 14000000

(25)

EDIT .PRG

DEFINE WINDOW Edit_ Window FROM 1,16 TO 27,71 FLOAT SYSTEM TITLE' Store Edit MEHMET SAMi SiPAHi' COLOR ,RGB(255,255,255,0,0,255) ACTIVATE WINDOW Edit Window

@ 1,7 SAY 'Mark' FONT 'ARIAL' @ 3,7 SAY 'Sort' FONT 'ARIAL' @ 5,7 SAY 'Colour' FONT 'ARIAL' @ 7,7 SAY 'Size' FONT 'ARIAL' @ 9,7 SAY 'Number' FONT 'ARIAL' @ 11,7 SAY 'Coming Date' FONT 'ARIAL' @ 13,7 SAY 'Purchase Price' FONT 'ARIAL' @ 15,7 SAY 'Satis Fiyati' FONT 'ARIAL' @ 17,7 SAY 'Product Code' FONT 'ARIAL'

@ 1,34 EDIT Store.Mark SIZE 1,20,15 FONT 'ARIAL' COLOR SCHEME 1 DEFAULT" @ 3,34 EDIT Store.Sort SIZE 1,20,15 FONT 'ARIAL' COLOR SCHEME 1 DEFAULT" @ 5,34 EDIT Store.Colour SIZE 1,20,15 FONT 'ARIAL' COLOR SCHEME 1 DEFAULT" @ 7,34 GET Store.Size SIZE 1,20 FONT 'ARIAL' COLOR SCHEME 1 DEFAULT O @ 9,34 GET Store.Number SIZE 1,20 FONT 'ARIAL' COLOR SCHEME 1 DEFAULT O @ 11,34 GET Store.Com_Date SIZE 1,20 FONT 'ARIAL' COLOR SCHEME 1 DEFAULT

DateO

@ 13,34 GET Store.p_price SIZE 1,20 FONT 'ARIAL' COLOR SCHEME 1 DEFAULT O @ 15,34 GET Store.s_price SIZE 1,20 FONT 'ARIAL' COLOR SCHEME 1 DEFAULT O @ 17,34 EDIT Store.Code SIZE 1,20,30 FONT 'ARIAL' COLOR SCHEME 1 DEFAULT" @ 20,0,20,64 BOX

@ 23,1 GET Secilen_Button PICTURE '@*HN Top;Bottom;Before;Next;Exit' SIZE 1,8,3 DEFAULT O VALID Reservason_Button_KontrolO

READ CYCLE COLOR ,RGB(255,255,255,255,0,0) DEACTIVATE WINDOW Edit_ Window

RELEASE WINDOW Edit_ Window RETURN

WAiT WINDOW 'Beginning of fıle encountered' NOWAiT GO TOP ENDIF CASE Secilen_Button=4 IF RECCOUNTO>O SKIP ENDIF IFEOFO GO BOTTOM

WAiT WINDOW 'End of file encountered' NOW AiT ENDIF CASE Secilen_Button=5 CLEAR READ RETURN ENDCASE SHOW GETS

(26)

, '

(27)

GRADUATION

PROJECT

(28)

GRADUATION

PROJECT

•:«:~::ı,@.:~•'§p?~~*-~---

_{Bl ousan} _! _{I i ght} _{b I ue\} ₁_i

"'" ...

₅_i _{18. 85. 2888)} _14888888 _i _16388888

_ı

_ı;ıngbL

MNG iSki rt i g reı,ı

!

36 i 4l10. 85, 2088

i

18388888 i 28488888

i

ı;ıngsg

::: : : ::J::.~::~:.::::J:;~:·-

+:

:L

=I~::.::.:::::1::::::::1::~:::::+::;:

MıARKS&SPENCERiMr. Shi rt ! white i 1 i 18 i 21. 85. 2888 i 25888888 i 29588888 i ı;ı&ssııı

MARKS&S_PENCERi_Non-.I_ron__,_sh.i_r~.nauv,, .. b_l_ue

t

2.l.. 1s.i_21_._85_._2888_t_22788888_i..26508800_t.ı;ı&snn .

MıARKS&SPENCERiTie ! dark b I ue i O i 4 i 21.05.2080 i 14508888 i 17580008 i M&std

MıARKS&S.PENCERi.Mr.•_T.••• ouse.rs t.b_ı,ack

!

3.i... s.i.21 .; 05 .•_2000_!..2e700000.i..31600800_t._ı;ı&st_b ..

lllıARKS&SPENCER!Ms. Suit iwhite i 3i 2i 21. 85. 2880 i 21580008 i 25480800 ! ı;ı&ssııı~

...;...•...•...•... ; ,,:,···"·'"'''''''···"'···:···"··· ..···

BEYMEN CLUB ! Li nen Ski rt

ı

e reatıı j 3 i 4 i 15, 85. 2008 ! 21408888 ! 26888088 ! be Isc

•:::::{::::: J::.:.~~::.•..•

Sh ;

.J:~::. • :

:l ~::::L

::1~:.:::.:.::::\::::::::}:~:::::: +::~::,

UıAKKO i Blouse i ı,ıeI I ow ! 3i 1 i05. 85. 2000 i 25888888 i 28950888 ! ukby3

c·_uıAKKO ...i.Ms_._T_rouse.rs t.wh_i_t_•

t

2.L s.l.os_.,os_._2000_t..32408000_i_.36700008_t_ ••• kt_ııı2_..

UıAKKO i Mr. Jacket i I i ght g reyi 3i 8i 05.05.2000 iı.27800008 il.38508080 i vk j Ig

_UıAKKO LM"'.•. T.rouse.rs

J

.crea"'

t

48

.i..

3

.i.

es .•. es .•. 2888.

t..

45088008

.L

49508888_

t

_ukt.c4 ..

ROMAN j Mr. Suit ! b I ack i 38 j 5 i87. 85. 2888 il.25880888 ıl,.55808088 j rı;ısb2

::::: = : .••

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

==I:~

7:: :

L

.::+ •• .;

+::::::

~:::J::~:::::+~:::::::}:::::.

ROMAN jMr. Jacket i b I ack i 48 i 8j 87. 05 .1900 l 75888088 j 95988080 i rMjb4

.'UıAKKORıAMıA JMr·_.--TSh..irt .-t-.b·.'·:ack .-.-.-.-+.-.-.·.-·.-.-.-2

L...-.-...-.-

.-.3119_.•..85 ..•..2008+.125880881.14080080+u·rt.b2 :

(29)

GRADUATION

PROJECT

,"

;..ı Store Lists MEHMET SAMi SiPAHi

I

Ms, T rousersj I i ght b I ue ~ 40 j 8 j 21, 85, 2888 j 28688008 j 24580888: ı,ı&st 4

BEYMENCLUB j BI o use j red

l

2i Oj15, 85. 2888 j 31708800

!

35800008

!

bob r2

ı~::::RAMA.·.·.·.·.·.·.··.·.- -.-

·.I.·::.·:.-~:.!~.:t·.·_· ·.·.·.·.I.·.!~.=~.:.- :..

:_-~:.ı

~..

1 :..

t!:.-:.-::.-:..

::::.·t·.-

:~::::::-.1 ::~:::::·.I.-:~~!:·~

ROMAN iMr, Shi rt i white [ 2 i Oi 07, 05. 2008 i 27000000 i 35808800 i l"MSW2

•••..., .

ffi

;

L..

·iii

-f····"'''"'"'''''' ...•...•.•...,.,:•• ,... . ...•.•...•...•; •...•...•...•.•.•...•...,;.. ,,...•..•..,1 ••. ,•...•...•....•..•..••. , ••;••, ..•.•.•...•••.•...•...•.•.•..•..•...t····

t

f""'"'"''"

(30)

PROCEDURE Tus_Kontrol DO CASE

CASE Secilen=l

BROWSE NOEDIT FOR Store.Number>O CASE Secilen=2

BROWSE NOEDIT FOR Store.Number<=O CASE Secilen=3

CLEAR READ RETURN ENDCASE LIST .PRG

DEF1NE WINDOW List_Penceresi FROM 1,16 TO 20,82 FLOAT SYSTEM TITLE ' Store Lists MEHMET SAMi SiPAHi' COLOR ,RGB(255,255,255,255,60,60) ACTIVATE WINDOW List_Penceresi

@ 5,17 GET Secilen PICTURE '@*VN Stocks List;Finisbed Stocks List;Exit' SIZE 2,30,2 DEFAULT O VALID Tus_KontrolO

READ CYCLE COLOR ,RGB(255,255,255,255,60,60) DEACTIVATE WINDOW List_Penceresi

RELEASE WINDOW List_Penceresi RETURN

(31)

(32)

GRADUATION

PROJECT

u Search_To Mark _ MEHMET SAMi SiPAHi

_Im

~

(33)

Enter Product Search Mark

GRADUATION

PROJECT

Sort Colour Size

o

Number I] Coming Date Purchase Price

o

Selling Price

o

Product Code

(34)

SEARCH TO MARK. PRG

&v,I>--~\~ LI DEFINE WINDOW Search_m_Penceresi FROM 1,16 TO 27,82 FLOAT SYSTEM TITLE

-Search To Mark MEHMET SAMi SiPAHi' COLOR ,RGB(255,255,255,0,0,255) ACTIVATE WINDOW Search m Penceresi

USE A:\COM400\Store ORDER Mark STORE" TO Searchs FONT 'ARIAL' FONT 'ARIAL' FONT 'ARIAL' FONT 'ARIAL' FONT 'ARIAL' @ 1,7 SAY 'Mark' @ 3,7 SAY 'Sort' @ 5,7 SAY 'Colour' @ 7,7 SAY 'Size' @ 9,7 SAY 'Number' @ 11,7 SAY 'Coming Date' @ 13,7 SAY 'Purchase Price' @ 15,7 SAY 'Selling Price' @ 17,7 SAY 'Product Code'

FONT 'ARIAL' FONT 'ARIAL' FONT 'ARIAL'

FONT 'ARIAL'

Datet)

@ 13,34 GET Store.p_price SIZE 1,20 FONT 'ARIAL' COLOR SCHEME 1 DEFAULT O @ 15,34 GET Store.s_price SIZE 1,20 FONT 'ARIAL' COLOR SCHEME 1 DEFAULT O @ 17,34 EDIT Store.Code SIZE 1,20,30 FONT 'ARIAL' COLOR SCHEME 1 DEFAULT" @ 19,0,19,64 BOX

@ 21,0,21,64 BOX

@ 20,7 SAY 'Enter Product Search Mark' FONT 'ARIAL'

@ 20,34 EDIT Searchs SIZE 1,20,30 FONT 'ARIAL' COLOR SCHEME 1 DEFAULT" @ 23,1 GET Secilen PICTURE '@*HN Top;Bottom;Before;Next;Search;Exit' SIZE 1,8,3

DEFAULT OVALID Tus_KontrolO

READ CYCLE COLOR ,RGB(255,255,255,255,0,0) DEACTIVATE WINDOW Search_m_Penceresi RELEASE WINDOW Search_ m_Penceresi RETURN PROCEDURE Tus_Kontrol DO CASE CASE Secilen=l GO TOP CASE Secilen=2 GO BOTTOM CASE Secilen=3 IFNOTBOFO SKIP-1 ELSE

WAiT WINDOW 'Beginning of file encountered' NOW AiT GO TOP ENDIF CASE Secilen=4 IF RECCOUNTO>O SKIP ENDIF IFEOFO GO BOTTOM

r ;- \

(35)

SEARCH TO MARK. PRG

WAIT WINDOW 'End of file encountered' NOW AIT ENDIF

CASE Secilen=S .. SET EXACT OFF Go Top

FIND &Searchs IF NOT FOUNDO

WAIT WINDOW 'Not Found RECORD.' NOW AIT ENDIF CASE Secilen=6 CLEAR READ RETURN ENDCASE SHOW GETS

(36)

(37)

GRADUATION

PROJECT

fitil Search To Sort MEHMET SAMi SiPAHi

fıil

(38)

GRADUATION

PROJECT

Sort Colour Size

o

Number

o

Coming Date Purchase Price D Selling Price

o

Product Code

(39)

FONT 'ARIAL' FONT 'ARIAL' FONT 'ARIAL'

FONT 'ARIAL' SEARCH TO SORT. PRG

DEFINE WINDOW Search_c_Penceresi FROM 1,16 TO 27,82 FLOAT SYSTEM TITLE' Search To Sort MEHMET SAMi SiPAHi' COLOR ,RGB(255,255,255,0,0,255)

ACTIVATE WINDOW Search_c_Penceresi USE A:\COM400\Store ORDER Sort STORE" TO Searchs @ 1,7 SAY 'Mark' @ 3,7 SAY 'Sort' @ 5,7 SAY 'Colour' @ 7,7 SAY 'Size' @ 9,7 SAY 'Number' @ 11,7 SAY 'Coming Date' @ 13,7 SAY 'Purchase Price' @ 15,7 SAY 'Selling Price' @ 17,7 SAY 'Product Code'

FONT 'ARIAL' FONT 'ARIAL'

FONT 'ARIAL'

@ 1,34 EDIT Store.Mark SIZE 1,20,15 FONT 'ARIAL' COLOR SCHEME 1 DEFAULT" @ 3,34 EDIT Store.Sort SIZE 1,20,15 FONT 'ARIAL' COLOR SCHEME 1 DEFAULT" @ 5,34 EDIT Store.Colour SIZE 1,20,15 FONT 'ARIAL' COLOR SCHEME 1 DEFAULT" @ 7,34 GET Store.Size SIZE 1,20 FONT 'ARIAL' COLOR SCHEME 1 DEFAULT O @ 9,34 GET Store.Number SIZE 1,20 FONT 'ARIAL' COLOR SCHEME 1 DEFAULT O

@ 11,34 GET Store.Com_Date SIZE 1,20 FONT 'ARIAL' COLOR SCHEME 1 DEFAULT DateO

@ 13,34 GET Store.p_price SIZE 1,20 FONT 'ARIAL' COLOR SCHEME 1 DEFAULT O

@ 15,34 GET Store.s_price SIZE 1,20 FONT 'ARIAL' COLOR SCHEME 1 DEFAULT O

@ 17,34 EDIT Store.Code SIZE 1,20,30 FONT 'ARIAL' COLOR SCHEME 1 DEFAULT" @ 19,0,19,64 BOX

@ 21,0,21,64 BOX

@ 20,7 SAY 'Enter Product Search Sort' FONT 'ARIAL'

@ 20,34 EDIT Searchs SIZE 1,20,30 FONT 'ARIAL' COLOR SCHEME 4 DEFAULT" @ 23,1 GET Secilen PICTURE '@*HN Top;Bottom;Before;Next;Search;Exit' SIZE 1,8,3

DEFAULT OVALID Tus_KontrolO

READ CYCLE COLOR ,RGB(255,255,255,255,0,0) DEACTIVATE WINDOW Search_s_Penceresi RELEASE WINDOW Search s Penceresi

RETURN ---. PROCEDURE Tus_Kontrol DO CASE CASE Secilen=l GO TOP CASE Secilen=2 GO BOTTOM CASE Secilen=3 IFNOTBOFO SKIP-1 ELSE

WAIT WINDOW 'Beginning of file encountered' NOWAIT

GO TOP ENDIF CASE Secilen=4 IF RECCOUNTO>O SKIP ENDIF IFEOFO GO BOTTOM

(40)

SEARCH TO SORT. PRG

CASE Secilen=5 SET EXACT OFF . Go Top

FIND &Searcbs IF NOT FOUNDO

WAiT WINDOW 'Not Found RECORD.' NOW AiT ENDIF CASE Secilen=6 CLEAR READ RETURN ENDCASE SHOW GETS

(41)

GRADUATION

PROJECT

(42)

Enter Product Search Colour cream

GRADUATION

PROJECT

1

u Search To Colour MEHMET SAMi SiPAHi

fa"

j

< - ~ Mark Sort Colour Size Number Coming Date Purchase Price Selling Price Product Code

(43)

Enter Product Search Colour

GRADUATION

PROJECT

Sort Colour Size [I Number [I Coming Date Purchase Price [I Selİing Price

o

Product Code

(44)

SEARCH TO COLOUR. PRG

DEFINE WINDOW Search_cl_Penceresi FROM 1,16 TO 27,82 FLOAT SYSTEM TITLE' Search To Colour MEHMET SAMi SiPAHi' COLOR ,RGB(255,255,255,0,0,255)

ACTNATE WINDOW Search_cl_Penceresi USE A:\COM400\Store ORDER Colour STORE" TO Searchs @ 1,7 SAY 'Mark' @ 3,7 SAY 'Sort' @ 5,7 SAY 'Colour' @ 7,7 SAY 'Size' @ 9,7 SAY 'Number' @ 11,7 SAY 'Coming Date' @ 13,7 SAY 'Purchase Price' @ 15,7 SAY 'Selling Price' @ 17,7 SAY 'Product Code'

FONT 'ARIAL' FONT 'ARIAL' FONT 'ARIAL' FONT 'ARIAL' FONT 'ARIAL' FONT 'ARIAL' FONT 'ARIAL' FONT 'ARIAL' FONT 'ARIAL'

DateO

@ 13,34 GET Store.p_price SIZE 1,20 FONT 'ARIAL' COLOR SCHEME 1 DEFAULT O @ 15,34 GET Store.s_price SIZE 1,20 FONT 'ARIAL' COLOR SCHEME 1 DEFAULT O @ 17,34 EDIT Store.Code SIZE 1,20,30 FONT 'ARIAL' COLOR SCHEME 1 DEFAULT"

@ 19,0,19,64 BOX @ 21,0,21,64 BOX

@ 20,7 SAY 'Enter Product Search Colour' FONT 'ARIAL'

@ 20,34 EDIT Searchs SIZE 1,20,30 FONT 'ARIAL' COLOR SCHEME 4 DEFAULT" @ 23,1 GET Secilen PICTURE '@*RN Top;Bottom;Before;Next;Search;Exit' SIZE 1,8,3 DEFAULT

O VALID Tus_KontrolO

READ CYCLE COLOR ,RGB(255,255,255,255,0,0) DEACTNATE WINDOW Search_cl_Penceresi

RELEASE WINDOW Search_ cl_Penceresi RETURN PROCEDURE Tus_Kontrol DO CASE CASE Secilen=l GO TOP CASE Secilen=2 GO BOTTOM CASE Secilen=3 IFNOTBOFO SKIP-1 ELSE

WAiT WINDOW 'Beginning of f'ıle encountered' NOWAiT GO TOP

ENDIF CASE Secilen=4

IF RECCOUNTO>O SKIP

(45)

SEARCH TO COLOUR. PRG

ENDIF IFEOFO

GO BOTTOM

CASE Secilen=5 SET EXACT OFF Go Top

FIND &Searchs IF NOT FOUNDO

WAiT WINDOW 'Not Found RECORD.' NOW AiT ENDIF CASE Secilen=6 CLEAR READ RETURN ENDCASE SHOW GETS

(46)

(47)

GRADUATION

_PROJECT

rı..

General Search MEHMET SAMi SıPAHi

IJ

Enter Product Search Mark

Enter Product Search Sort Enter Product Search Colour

(48)

(49)

SEARCH TO GENERAL. PRG

DEFINE WINDOW Search_g_Penceresi FROM 1,16 TO 21,82 FLOAT SYSTEM TITLE' General Search MEHMET SAMi SiPAHi' COLOR ,RGB(255,255,255,0,0,255)

ACTIVATE WINDOW Search_g_Penceresi USE A:\COM400\Store ORDER Size

@ 2,7 SAY 'Enter Product Search Mark' FONT 'ARIAL' @ 5,7 SAY 'Enter Product Search Sort' FONT 'ARIAL' @ 8,7 SAY 'Enter Product Search Colour' FONT 'ARIAL' @ 11,7 SAY 'Enter Product Search Size' FONT 'ARIAL'

@ 2,34 EDIT Searchsl SIZE 1,20,30 FONT 'ARIAL' COLOR SCHEME 1 DEFAULT'' @ 5,34 EDIT Searchs2 SIZE 1,20,30 FONT 'ARIAL' COLOR SCHEME 1 DEFAULT'' @ 8,34 EDIT Searchs3 SIZE 1,20,30 FONT 'ARIAL' COLOR SCHEME 1 DEFAULT'' @ 11,34 GET Searchs4 SIZE 1,20 FONT 'ARIAL' COLOR SCHEME 1 DEFAULT O

@ 15,0,15,67 BOX

@17,24 GET Secilen PICTURE '@*HN Search;Exit' SIZE 1,8,3 DEFAULT OVALID

Tus_KontrolO ·

READ CYCLE COLOR ,RGB(255,255,255,255,0,0) DEACTIVATE WINDOW Search_g_Penceresi RELEASE WINDOW Search_g_Penceresi RETURN

PROCEDURE Tus_Kontrol DO CASE

CASE Secilen=l

BROWSE NOEDIT FOR (Store.mark= Searchsl) AND (Store.sort= Searchs2) AND (Store.colour= Searchs3) AND (Store.size= Searchs4)