NEAR EAST UNIVERSITY
F ACUT_J TY OF ECONOMICS AND i\D11INISTRATIVE SCIENCES
DEPARTMENT OF COMPUTER INFORMATION SYSTEMS
2004/2005 SPRING TERM CIS 400
(Graduation Project)
Sports Shoes Selling System
Submitted To: DEPT. of C.l.S
~· 1
:v: · ·~1
i
.,,!I i
1 '
'if,t1i'
' !
Submitted By: Bahire KIZILBORA (20011778)
111111111111111111111111 ! II
62 4~ 07 58 97
ii NEU
Lefkosa, 2005
1,
CONTENTS
I.ACKNOWLEDGEMENT 'J..
II.ABSTRACT 3..
Ill. INTRODUCTION l,.J ..
IV.DESIGN OF THE SYSTEM ? ..
.,
i
-Explanation 6 ..
-Data Flow Diagram T..
-System Block Diagram JW. .
-Database Design /.5 .
V.USER MANUAL .
-User Guidlines l~ .
-User Flow Charts 3-Q ..
VI.REFERENCES 1:9. ..
APPENDIX I
-Screen Outputs ~. ~ .
APPENDIX II
-Screen Codes l.\.) .
i
·I, .i;
'
I i
'
-1-
! '
'IACKNOWLEDGEMENTS
I want to thanks:
My instructors Dr.Yalcm AK.CALI and Miss. Nadire <;AVU~ ,Mr.
Mr. Ilham HUSEYiNOV , Mr.Tansel DEViN and Mr. Mustafa MENEKA Y for their support in completion of my project.
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 level.
My friends Arkut USTAT,Gul<;in OZETEM,Mustafa YURUKER,Necip DiNARLI and Necla AKIL for their technical andPsychological contributions and support to conclude the project.
-1.-
ABSTRACT
The aim of this project is to propose complete solution for manage accounting information, customer registration, stock control and reporting. An analysis of the existing a company and suggestion on their improvement to keep up with the rapid computer development will be based. This project will manage all the accounting information of sports shoes store.
When a customer comes, some information are from customer and to present two types of payment for customer. These are cash and installment. We controls all the stock's inputs and outputs and store all the information's about stocks. And customer give shoes order to store and store give shoes order to firm and lists of customer, list of account, list of revenue-expenditure account, general list of customers ,also list of stock and luck of stock and list of supply.
l will try to write this program flexible, because of for using same software for other stores by making small changes.
I believe this software will be satisfied all needs of the stores.
-2,-
INTRODUCTION
The 'SPORTS SHOES SELLING SYSTEM', which is aimed in this project, will be represented on database software. I will be using clipper 5 programming language all of these errors will be minimized and records will be more orderly.
These processes are included as follows;
1-) CUSTOMER REGISTRATION PROCESS
When a customer comes, some information is from customer. These information are customer name, customer surname, customer tel, customer address, customer no. On this process, we can add new customer, update customer information and we can search any customer information.
2-) ACCOUNTING PROCESS
This process is total profit, between two dates of profit, total revenue and total expenditure. The total profit show the all shoes profit. The two date of profit show the profit of total two dates. The total revenue show all shoes revenue and total expenditure is show all shoes expenditure. Account number will be given for each unique customer.
3-) SELLING PROCESS
This process; cash sale, credit sale, paying credit, controls all the stock's inputs and outputs and store all the information's about stocks and prepare the desire forms.
4-)SUPPL Y PROCESS
This process is to be found characteristics to order new shoes from foreign firm. The
customer gives shoes order to store and store give shoes order to supplier. On this process we
can add new firm information, update existing firm information, delete existing firm
information and search firm information. These informations are firm name, firm no, tel, address, director and supply. And also on process we can add new stock.
5-) REPORTS PROCESS
On this process we can see all records about our firm reports, This Process have four
sub processes. These are customer reports; which lists all existing customer reports. This list
consists; customer no; customer name, customer surname, tel, account no and address. The
second sup process is account report sub process. It shows all the accounting reports of the
firm. The user can list three different reports by using this supprocess. These are all
accounting data, the cash selling data and credit selling data. It consists account no, customer
name, customer surname. The third sup process gives all the supplier data. These data are
supplier name, telephone, director name, address and supplies. The last sup process is demand
report process. It lists all the demand of our firm and our customer. It gives customer name,
demand, firm name and demand date.
DESIGN OF THE SYSTEM
Explanation
Windows 95-98-ME-2000 and XP Operating systems Pentium II
333 CPU 16MBRAM 1.44 Floppy 12XCDROM 2GBHDD
PCI Slot SIS 3326 VGA
I am using CLIPPER5.0 programming language to make this processing avaliable on the computer, The clipper 5 . .0: is running under the DOS, ... The minimnn» hardware eonfiguration is and.
-6-
CONTEXT DIAGRAM FOR SPORT SHOES SELLING SYSTEM
CUSTOMER
SUPPLIER .SPORT
SHOES
'
SELLING SYSTEM
I I
I i
j !
I
MANAGER
- --\- -
1sanbai repro
w
i
\ e1m 0111.J hAIP.hl1M ')I~
'
~~ s
I eteo mau m11 ..1 o:::
u::
OJUI llJnOOO\f
)IMOUJt WJ!J
~ w
f- r.I)
>-
rn (9 z
-
..J ..J
w rJ) rJ) JJ ::)
I 'J')
OjUI JapJQ OjUI Wl!.:!
Cl:'.
w
~
(.!)
<(
... z
OJU! )IOOjS I I I w
"' ~
<("' ~
OJU!ll!q
l:: ::)
l. 'J')
l:: ::)
.I..
:) .I..
:) ..J
JJ >
JJ
..J
l. ::)
OJU!!U0Wfle Bumas l!f)aJo pafai 10 l(laooe
1unoooll reuroisno >10040
t
...
•...I
::,0 eiepdn 01 OJU! rewoisno
e1ep ieurorsno
~
;;;.B E
~I I
"'
::,~
0
~ 25
a::w
~
~
en ::,o
ffi, __,
8
enaL---~17san:::::ib~a~J~IO~n~p~o~Jd:,---~
Customer
DETAIL DFD FOR CUSTOMER PROCESS (1)
Customer Knowladge • 1
1.1 Add New Customer Process
1---Customer Oat---~
0 ii C,
C
~
0 3
~ fr
,...
CUSTOMER DB.
- lUpdated customer data~
~1---C"'to=,
data t o upd...,__J1.2 Update Customer
Process
-3-
DETAIL DFD FOR ACCOUNTING PROCESS (2)
Bill information
2.1
Firm Accounts
Payment lnformatiol
/---Bill Dat:a---,
~ Payment-
ii n C
"'
0 3 n,
..
0. !!I.
Supplier ACCOUNTING
DB.
-Credit Product Payment lnformatio
!Updated customer dat
~Customer data to updat
-Cash Product Payment lnformatio
2 .. 2 Customer Accounts
'---,check Customer Account
,. 1,;ustomer Account Information---'
-,-o-
DETAIL DFD FOR SELLING PROCESS (3)
Cash Payment
Customer
Credit Payment3.1 Cash Selling
Process
Cash Product Payment lnformationje-
"'
QI ::,
I .•..
u ::,
"C
a.
e
L
3.2
Credit Selling
\--Credit Product Payment lnformation-s-js-Process
Demand Product Information Sold Product Information
3.3 Stock Control
Process
I
STOCK DB.
t
Demand Product Data-1\-
DIETAll DFIO FOR SlUfPPlY PROCESS(4)
SUPPLIER
4.4 4.1
) ( 4.2 \ ( 4.3 \ ( Add
Add New Update Delete Stock
Finn Firm
Process Process
I 11 oofer'data
I .&
.& I
~ I
.Q
:i I I
1 lol I
(
~~1~!1E I I
l I STOCK DATABAS[E
t
_,.J.-
ACCOUNT DATABASE
:i
J
CUSTOMER DATABASE
i I
FIRM DATABASE
STOCK DATABASE
:i
i
5.4 5.1
Account
Report
Process
5.2 Customer Report Process
Supply Report Process
Stock Report Process
l I
MANAGER
I
SYSTEM BLOCKI
I I
II 1
rusTER1
I I
MUHASEBEI B
IMAL TEMINI
I RAPOR~I E
I I I .,
TOPLAM FIRMA
AUS TERI KAR PESIN EKLE MUSTER I
EKLE SATIS RAPORLARI
TUM
I
NUMARAYA • SATISLARI I I
• GUNCELLE GORE IAUS TERI IKI TARIH FIRMA MUHASEBE
ARASI KREDILI GUNCELLE RAPORLARI
• •
PESINUNCELLE KAR SATIS SATISLAR
-
GORE ISIMEI
NUMARAYAI I
GUNCELLEI
••
GORE• KREDILI
4USTERI ARA TOPLAM KREOI FIRMA SATISAR
A RAMA MALI YET ODEME RAPORLARI
ISIMVE
•• I I
MODELEI
I
SO GORE ARA YI SIME-
GORE ARA••
GORE ISME ARA TOP LAMSTOCK
CIKIS STOCK FIRMA RAPORLARI
GELIR KONTROL • A RAMA
ADE TE • NUMARAYA
I I -
GORE ARA GORE ARAl
FIRMA SIP ARIS
CIKIS CIKIS SIL RAPORLARI
I
YENIMAL CIKIS
GIRISI
I
CIKIS
Created by EDGE Diagrammer (Unlicensed Software).
Visit http://www.pacestar.com for purchase options.
-114-
1· -
Customer database
· _ Firm database
• •
• t
•
- •
• • ~15-
-
Account database
, : Stock database
CUSTOMER DB ACCOUNT DB
AC_NO CUST_NAME
CUST_SNAME CUSTNO
DATE NAME
MODEL SURNfl.ME
SE_TYPE TEL
IS_AMOUNT ADDRESS
IS_TERM ACCOUNT NO
INTEREST D.A.TE
TOTAL DEMAND
IS_PA/D REMAINDER B_PRICE
FIRM DB
STOCK DB
FIRM NO MODEL_NO
F_TEL MAR KA
F_ADDRESS MODEL
F_SUPPLY SIZE
F_DIRECTOR PIECE
DATE COLOR
F_TEL A_DATE
F_D_NAME A_PRICE
S_D_MODEL F_CODE
DEMAND F_NAME
F_ADDRESS
Created by EDGE Diagrammer (Unlicensed Software).
Visit http://www.pacestar.com for purchase options.
USER GUIDELINES
STEPl:PUT CD INTO THE CD DRIVE,THEN CLICK MY COMPUTER.(see figure(l.1))
FIG(l.1)
STEP2:CLICK CD DRIVE.(SEE FIGURE(l .2))
~ B1lg1sayar1m - -- ----
•. · .• · ro I ~ ~ ~ l
tr)Geri ileri Yoj,:an Kes Kopi,ala Yapo;II GeriAI
g bi
Bilgisaya nm
3lf Diskel IA:} Mustafa (C:) Denetin Masas,
~ ~
Cevimei Ag \II eb Klasooeri
(D:) CD-ROM Disk
I [m.tkll
13:41)
STEP3:CLICK CLIPPER 5 AND INSTALL THE PROGRAM
@le~
@j
Dona!BL::;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;:;;;;;;;;@j MiaosoltOfficeAra,;lan • (a Ricochel
@i
Wll'lal1')• @i
WrflAR~ x-o
•
jJ lntemel E Mplofer• ~ Miaosolt Access
(!i}
Miaosolt Excel• KS)
Miaosolt Outlook~ Miaosolt P~
fil
Miaosolt Word:I l$J Outlook EMP1ess
&.;i
Windows Gezgini - (t} Windows Meda Player~ Bljsayan .!,apat..
J:
EDGE Diagammer[tit~~~ jJ IJ ~ 1$1 fJ »IJ @;i
K-Ue Codec Pack . •!
~USER GUIDELINES· MiaFIGURE(l.3)
B~ DXBal2F...-... Play Ricochet
l[ilm<Mil
00.1sSTEP4:AFTER FINISH INSTALLATION GO BASLAT BAR ,CLICK PROGRAMLAR AND CLICK MS-DOS KOMUT iSTEMi.(SEE FIGURE (1.3))
FIGURE(l.4)
STEPS:AFTER ALL THIS, YOUR PROGRAM WILL BE INSTALLED SUCCESFULL Y IN YOUR SYSTEM.IF YOU CAN OPEN CLIPPER 5 ENTER THE KEYBOARD 'CD' FILE NAME AND THEN CL 'PASS' AND ENTER CORRECT PASSWORD FROM KEYBOARD PROGRAM RUN.(SEE FIGURE(l .4))
-1.0 -
·j MS-DOS Komut istemi
!!lllil E3
Auto
-') \
-
'
USER MANUAL
When the program runs, it shows credits. For entry to this program, users should press the enter button then type the correct password that is "BAHIR" .the users should attention to caps lock must be on. If users enter 3 times password wrongly, the program to drop and the users should run the program. If the entered password is correct password users will see main menu.
See figure (1.6) and figure (1.7) MAIN MENU
This menu contains;
I -Customer Menu 2-Account Menu 3-Selling Menu 4-Supply Menu 5-Report Menu
see Figure (1.8)
1-CUSTOMER MENU
In this menu, we make add customer, update customer and search customer. We store customer information in this menu.
see(Figure (1.9)
1.1-ADD NEW CUSTOMER
When users want to add new customer, users select add new customer menu from the customer main menu, the users should enter following data
see( figure 1. 9 and 1.10).
• Customer name
• Customer surname
• Customer telephone
• Customer address
• Date
-:1 a-
1.2-UPDATE OF CUSTOMER
For updating existing data of the customer, users should select this process. The users can search customer by customer number.
See figure (1.11,1.12)
1.3-SEARCH CUSTOMER
For searching any existing customer users should use this process. The searching can be done by customer no or customer name and surname.
See figure(l .13, 1.14, 1.15, 1.16, 1.17, 1.18)
2.ACCOUNT MENU
in this menu we make total profit, the profit between two date, total cost and total income.
See Figure (1.9) 2.1-TOTAL PROFIT
For listing the total profit of the store. The users should select this process. It following data are given;
• Customer name
• Customer surname
• Date
• Revenue
• Expenditure See figure (1.20,1.21)
2.2-THE PROFIT BETWEEN TWO DATES
The users can see revenue - expenditure transaction , net income - net lost between two dates.
See figure (1.22, 1.23)
2.3-TOTAL COST
When users select total cost, it list the total cost of the store.
See figure (1.24, 1.25)
2.3-TOTAL INCOME
It list total income of the store when it is selected.
See figure (1.26,1.27) 3-SELLING MENU
in this menu show the cash selling,credit selling,payment process and stock control see Figure (1.28)
--1,..L..-
3.1-CASH SELLING
It uses for cash selling. The users enter the model no and size of desired shoes if this shoes are in our stock. The cash selling process starts automatically .If not in our stock, it offers user for demand. If users accept demand offer the demand process will start automatically
The users should enter the customer no. it lists the customer name, surname.and also asks users the following data.
• Model
• Total price
• Date
Then ask for saving, if answer is yes it asks for receipt. If answer is yes too. It shows the receipt
See figure(l .29, 1.30, 1.31, 1.32, 1.33, 1.34) 3.2-CREDIT SELLING
It uses for credit selling. The users enter customer account no . If customer has not any dept, it asks model no and size. If is in stock. The credit selling process will start automatically
The users should enter the customer no. it lists the customer name, surname.and also asks users the following data.
• Model
• Total price
• Installment term
• Interest
• Cashpaid
It calculates the total price and installment amount and shows to users. If users accept it saves.
See figure(l.35,1.36, 1.37,1.38, 1.39, 1.40)
-,_5 -
3.3-PA YMENT PROCESS
When the users want to pay its installment, this must be selected. The users enter the customer account no. If the customer has not any dept it shows this message "the customer has not any dept". If the customer has dept. it asks "how much money will pay". Then it lists the remaining dept and installment term
See figure (1.41, 1.42)
3.4-STOCK CONTROL
It is using for controlling stock. It gives the situation of the stock. The users can search stock by using model no or by using piece .
If the users select model no. the model no is entered and it gives following data about stocks.
• Model no
• Piece
• Size
• Cost
• Supplier name
• Supplier telephone
If the users select piece method, it shows all the models whose pieces are equal or smaller than entered criteria. The given data is shown below.
See figure(l .43, 1.44, 1.45, 1.46) 3.4-DEMAND FORM
This process is using for customer demands. If users want shoes whose is not our stock. The users should enter the following data;
• Modelno
• Size
• Supplier no
• Date
• Customer no
See figure(l.47,1.48)
4-SUPPL Y MENU
in this menu we see add new supply, delete supply, update information and search information and add stock
see figure(l .49)
4.1-ADD NEW SUPPLIER
When users want to add new supplier, users select add new supplier menu from the supply main menu, the users should enter following data.
• Supplier name
• Supplier no
• Supplier telephone
• Supplier address
• Director
• supply see figure(l.50, 1.51)
4.2-UPDATE FIRM
For updating any existing supplier users should use this process. The updating can be done by supplier no or supplier name.
See figure(l.52, 1.53, 1.54, 1.55)
4.3-SEARCH SUPPLIER
For searching any existing supplier users should use this process. The searching can be done by supplier no or supplier name.
See figure(l.56, 1.57, 1.58, 1.59)
4.4-DELETE SUPPLIER
For deleting any existing supplier users should use this process. The deleting can be done by supplier no or supplier name.
See figure (1.60,1.61,1.62,1.63)
- '2-=,- -
4.4-ADD STOCK
If the users want to add new stock to database. This process is using. The following data should be entered and show the bill.
• Supplier no
• Model
• Brand
• Colour
• Piece
• Size
• Cost
• Date
See figure(l .64, 1.65, 1.66)
5-REPORT MENU
in this menu show the all reports see figure(l .67)
5.1-CUSTOMER REPORT
It lists all the registered customer.
See figure(l .68, 1.69)
5.2-ACCOUNT REPORT
in this process see all profits see figure(l. 70)
5.2.1-ALL RECORTS
It lists all the account records in the database
See figure(l. 71, 1. 72)
5.2.2-CASH SELLING RECORDS
It lists all the cash selling records in the database See figure(l.73,1.74)
5.2.3-CREDIT SELLING RECORTS
It lists all the credit selling records in the database See figure(l.75,1.76)
5.3-SUPPLIER REPORTS
It lists all the existing supplier in the database See figure(l.77,1.78)
5.3-STOCK REPORTS
It lists all the stock in the database
See figure(l.79,1.80)
5.4-0RDER REPORTS
It lists all the order in the database
See figure(l.81,1.82)
6-EXIT
if you exit program select here and stopped the program
See figure(l.83,1.84)
MUSTERIMENU
1)MUSTERI EKLE 2)MUSTERI GUNCELLE 3)MUSTERI ARAMA 4)<;:IKIS
ENTER CHOICE
y
;, •• , 1.1
y
;, •• , 1.2
y
;, •• , 1.3
Created by EDGE Diagrammer (Unlicensed Software).
Visit http://www.pacestar.com for purchase options.
MUSTERI EKLE
MUSTER! ISMl,SOYISMI, TELADRES,TARIH
SAVED
y
N
MOSTER! MENUSUNE DONMEK ICIN 'M' ANA MENU ICIN 'A' TEKRAR
DENEMEK ICIN 'T'
ENTER CHOICE
N
-3\-
Created by EDGE Diagrammer (Unlicensed So,';-,ra.:c Vlsrt http://www.pacestar.com for purchase oaJOc:s
MUSTERI (.1.2 GUNCELLEME
MUSTER! NUMARASI
y
N
!v','JSTER\ B\lG\S\
YEN! MUSTER!
BILGISI EKLE
SAVED
BILGILER GUNCELLENMISTIR
y
MUSTER! MENUSUNE DONMEK ICIN 'M' ANA MENU ICIN 'A' TEKRAR
DENEMEK lClN 'T'
ENTER CHOICE
MUSTERI ARAMA
1)NUMARAYAGORE ARAMA 2)!S!M VE SOY\S\ME GORE ARAMA 3)CIKIS
ENTER CHOICE
- 33-
I I
- MUSTER! NO
I
l
y MUSTER) BJLGJLERI
MOSTER\ MENUSUNE DONMEK ICIN 'M' ANA MENU ICIN 'A' TEKRAR
DENEMEK ICIN 'T'
y
Created by EDGE Diagrammer (Unlicensed Software).
Visit http://www.pacestar.com for purchase options.
ISIM VE SOYISIME GORE ARA
MUSTER\ ISMI.SOYISMI
y
MUSTE.Rl BlLGILE.RI
M0STER!MENUSUNED0NMEK ICIN 'M' ANA MENU ICIN 'A' TEKRAR
DENEMEK ICIN T
N
Created by EDGE Diagrammer (Unlicensed Software).
Visit http://www.pacestar.com for purchase options.
- t5-
MUHASEBE MEN0S0
1 )TOPLAM KAR 2)1KI TARJH ARASI KAR 3)TOPLAM MALIYET 4)TOPLAM GEUR S)<;IKIS
ENTER CHOICE
} •• ,2.1
} .-12.2
) .-12.3
} .-1 A
2
J
Created by EDGE Diagrammer (Unlicensed Software).
Visit http://www.pacestar.com for purchase options.
,
~
• TOPLAM KAR
Show the total profit
,
MUHASEBE MENUSUNE DONMEKICIN 'M' ANA MENU ICIN 'A'
N
- 3
Created by EDGE Diagrammer (Unlicensed Software).
Visit http://www.pacestar.com for purchase options.
IKI TARIH ARASI KAR
ENTER FIRST DATE.LAST DATE
TOT AL PROFIT
MUHASEBE MENUSUNE DONMEK ICIN 'M' ANA MENU ICIN 'A' TEKRAR
DENEMEK ICIN T
y ••
0
=>
v
N
-
\~ -
Created by EDGE Diagrammer (Unlicensed Software).
Visit http://www.pacestar.com for purchase options.
TOPLAM MALIYET
Show the total cost
MUHASEBE MENUSUNE DONMEK ICIN 'M' ANA MENU ICIN 'A'
N
Created by EDGE Diagrammer (Unlicensed Software).
Visit http://www.pacestar.com for purchase options.
TOPLAM GELIR
Show the total revenue
MUHASEBE MENUSUNE DONMEK ICIN 'M' ANA MENU ICIN 'A'
N
J
- 1...1-0-
Created by EDGE Diagrammer (Unlicensed Software).
Visit http://www.pacestar.com for purchase options.
SATIS
1)PESIN SATIS 2)KREOILI SATIS 3)KREDIL1 ODEME 4)STOK KONTROL 5)1STEK FORMU 6)CIKIS
ENTER CHOICE
y ) 1>13.1
y
) 1>13.2
y
) 1>(3.3
y
) 1>13.4
N
y
:::, 1>(3.5
y
- w.., .-
Created by EDGE Diagrammer (Unlicensed Software).
Visit http://www.pacestar.com for purchase options.
PESIN SATIS
ENTER MODEL AND SIZE
y
ACCOUNT NO
MUSTERI BILGISI
MODEL NO TOPLAM MIKTAR
TARIH
3
MODEL NO,SIZE, FIRM NO,DATE,
CUSTOMER NO SAVED
SHOW THE RECEIPT
SAVE MOSTER! MENUSUNE DONMEK
ICIN 'M' ANA MENU ICIN 'A' TEKRAR DENEMEK ICIN T
Created by EDGE DiagramM.fjf (Unlicensed Software).
Visit http://www.pacestar.c4Mtor purchase options.
- I I ') -
KREDILI SATIS
ACCOUNT NO
y
MODEL NO SIZEACC NO
ISTESIGINIZ AYAKKABI YOK
MUSTERI BILGSI
SATIS MENUSUNE OONMEK ICIN 'S' ANA MENU ICIN 'A' TEKRAR
OENEMEK ICIN T ENTER MODEL
NO TOPLAM MIKTAR TAKSIT SAYISI
FAIZ PESIN OOENEN
TOPLAM BORG TAKSIT TUTARI
y
SHOWBILL
N
Created by EDGE Diagrammer (Unlicensed Software).
Visit http://www.pacestar.com for purchase options.
KREDIODEME
ENTERACC NO AND NAME
+
SHOW MUSTERI BILGILERI
+
ODENECEK MIKTAR
+
SHOW THE KALAN BORC KALAN TAKSIT
y~
~ -~
SATIS MENUSUNE DONMEK ICIN 'S' ANA MENU ICIN 'A' TEKRAR
DENEMEK ICIN T
Created by EDGE Diagrammer (Unlicensed Software).
Visit http://www.pacestar.com for purchase options
STOCK KONTROL
1 )MODEL NUMARASINA GORE ARAMA 2)AOETE GORE ARAMA
3)CIKJS
ENTER CHOICE
y
N
!
Created by EDGE Diagrammer (Unlicensed Software).
Visit http://www.pacestar.com for purchase options.
MODELE GORE
A RAMA
MODEL NO
y
STOCK BILGILERI
- i s
l-«:«MAL MENUSUNE DONMEK ICIN 'M' ANA MENU ICIN 'A' TEKRAR
DENEMEK ICIN T
Created by EDGE Diagrammer (Unlicensed ~ Visit http://www.pacestar.com for purchase op!lOllS
ADETEGORE ~
A RAMA l
ADET SAYISI
y
STOCK BILGILERI
- uq.-
MAL MENUSUNE DONMEK ICIN 'M' ANA MENU ICIN 'A' TEKRAR
DENEMEK ICIN T
Created by EDGE Diagrammer (Unlicensed Software).
Visit http://www.pacestar.com for purchase options.
ISTEK FORMU
MODEL NO SIZE FIRM NO
y
DA TE, MUSTERI NO
MUSTERI BILGILERI
SATIS MENUSUNE DONMEK ICIN 'S' ANA MENU ICIN 'A' TEKRAR
DENEMEK ICIN T
Created by EDGE Diagrammer (Unlicensed Software).
Visit http://www.pacestar.com for purchase options.
MAL TEMIN
1 )FIRMA EKLE 2)FIRMA GUNCELLE 3)FIRMA ARAMA 4)FIRMA SIL 5}YENI MAL GIRISI
)CIKIS
l
ENTER CHOICE
Created by EDGE Diagrammer (Unlicensed Software).
Visit http://www.pacestar.com for purchase options.
FIRMA EKLE
FIRM NAME.FIRM NO.FIRM TEL, ADDRESS.AUTHORIZED,
GOODS
SAVED
y
y
::::, "(4.1
N
N
MOSTERI MENUSUNE DONMEK ICIN 'M' ANA MENU ICIN 'A' TEKRAR
DENEMEK ICIN 'T'
N
- 50~
Created by EDGE Diagrammer (Unlicensed Software).
Visit http://www.pacestar.com for purchase options.
FIRMA GUNCELLEME
1)FIRMA NUMARASINA GORE GUNCELLE 2)FIRMA ISMINE GORE GUNCELLE 3)CIKIS
<
- SI--
ENTER CHOICE
y
N
i
y
y
') "' A
Created by EDGE Diagrammer (Unlicensed Softwa"e Visit http://www.pacestar.com ta- purchase ODOOr.Sc
FIRMANO'YA
GORE GUNCELLEME
FIRMA NUMARASI
N
- 5..2. -
1
FIRMA BILGISI
YENI FIRMA BILGISI EKLE
MAL MENUSUNE DONMEK ICIN 'M' ANA MENU ICIN 'A' TEKRAR
DENEMEK ICIN 'T'
y
y
'::, 1tl A
y
Created by EDGE Diagramme< (Unlicensed Visit http://www.pacestar.com for ptrmas;e
FIRMA NO'YA \., GORE GUNCELLEME
FIRMAISMI
N
1
FIRMA BILGISI
YENI FIRMA BILGISI EKLE
MAL MENUSUNE DONMEK ICIN 'M' ANA MENU ICIN 'A' TEKRAR
DENEMEK ICIN T
Created by EDGE Diagrammer (Unicensecf Sdtwa"e Visit http://www.pacestar.com tor purchase oeo
FIRMA ARAMA ')
1 )FIRMA NUMARASINA GORE ARAMA 2)FIRMA ISMINE GORE ARAMA
ENTER CHOICE
N
i
y
N
MAL MENUSUNE OONMEK ICIN 'M' ANA MENU ICIN 'A' TEKRAR
DENEMEK ICIN 'T'
Created by EDGE Diagrammer (Unicensed ScftlRl:e Visit http://www.pacestar.com for iuctJasecc-=sis
FIRMA NOYA GOREARAMA
FIRMANO
y FIRMA BILGILERI
MAL MENUSUNE DONMEK ICIN 'M' ANA MENU ICIN 'A' TEKRAR
DENEMEK ICIN T
Created by EDGE Diagrammer (Unlicensed Software).
Visit http://www.pacestar.com for purchase options.
FIRMA ISMINE GORE A RAMA
FIRMA ISMI
y
FIRMA BILGILERI
MAL MENUSUNE DONMEK ICIN 'M' ANA MENU ICIN 'A' TEKRAR
DENEMEK ICIN T
N
Created by EDGE Diagrammer (Unlicensed Software . Visit http://www.pacestar.com for purchase ootions.
- 'Sb-
FIRMA SILME
1)FIRMA NUMARASINA GORE SIL 2)FIRMA ISMINE GORE SIL 3)CIKIS
ENTER CHOICE
y
N
i
Created by EDGE Diagrammer (Unlicensed Software Visit http//www.pacestar.com for purchase oooons
- 5-=t--
FIRMA NO'YA GORE SIL
I FIRMNO I
FIRM INFO
DELETE
MAL MENUSUNE DONMEK ICIN 'M' ANA MENU ICIN 'A' TEKRAR
DENEMEK ICIN T
FIRMAISIME GORE SIL
I FIRM ISIM I
FIRM INFO
DELETE
MAL MENUSUNE DONMEK ICIN 'M' ANA MENU ICIN 'A' TEKRAR
DENEMEK ICIN T
E Diagrammer (Unlicensed Software) . . pacestar.com for purchase options.
- s.ei -
YENI MAL GIRISI
FIRMANO
y MODEL NO,MARKA,MODEL, RENK,ADET SAYISl,SIZE,ALIS FIYATI,
TARIH
N
l
SAVEDy
y
SHOWB
MALI MENUSUNE DONMEK ICIN 'M' ANA MENU ICIN 'A' TEKRAR
DENEMEK ICIN 'T'
N
Created by EDGE Diagrammer (Unlicensed Software).
Visit http://www.pacestar.com for purchase options.
RAPORLAR
'1 )MUSTERI RAPORLARI 2)MUHASEBE RAPORLARI 3)FIRMA RAPORLARI 4 )STOCK RAPORLARI 5)S1PARIS RAPORLARI
)CIKIS
1
ENTER CHOICE
• •
• •
• •
• - 6\-
Created by EDGE Diagrammer (Unlicensed Software).
Visit http://www.pacestar.com for purchase options .
MUSTERI RAPORLARI
MUSTER! BILGISI
RAPOR MENUSUNE OONMEK ICIN 'R' ,ANA MENUYE DONMEK l<;IN 'A',
TEKRAR DENEMEK l<;:IN T
y
~ •• , 5
y
y
N
- G'.2.-
Created by EDGE Diagrammer (Unlicensed Software).
Visit http://www.pacestar.com for purchase options.
MUHASEBE RAPORLARI
'1 )TUM KA YITLAR 2)PES1N SA TISLAR 3)KREDIL1 SATISLAR .4).CIKIS
ENTER CHOICE
Created by EDGE Diagrammer (Unlicensed Software), Visit http://www,pacestar,com for purchase options.
- {:,.'7..-
TUM KA YITLAR
TUM MALI KA YIT RAPORLARI
RAPOR MENUSUNE DONMEK ICIN 'R', ANA MENUYE DONMEK ICIN 'A'
ENTER CHOICE
1
v •• rs
':>
y
Created by EDGE Diagrammer (Unlicensed Software).
Visit http://www.pacestar.com for purchase options.
PESIN SATIS RAPORLARI
TUMPESIN SA TIS RAPORU
RAPOR MENUSUNE DONMEK ICIN 'R', ANA MENUYE DONMEK ICIN 'A'
ENTER CHOICE
l
y
~ •. , 5
y
Created by EDGE Diagrammer (Unlicensed Software).
Visit http://www.pacestar.com for purchase options
KREDILI SATIS RAPORLARI
TUM KREDILI SATIS RAPORLARI
RAPOR MENUSUNE DONMEK ICIN 'R', ANA MENUYE DONMEK ICIN 'A'
ENTER CHOICE
l
Created by EDGE Diagrammer (Unlicensed~
Visit http://www.pacestar.com for ptIChase Cll!OOr.S.
FIRMA RAPORLARI
FIRMA BILGISI
RAPOR MENUSUNE DONMEK ICIN 'R',ANA MENUYE DONMEK l<;IN 'A',
TEKRAR DENEMEK l<;IN T
y
y
y
::> ~(5.3
N
Created by EDGE Diagrammer (Unlicensed Software).
Visit http://www.pacestar.com for purchase options.
STOCK RAPORLARI
STOCK BILGISI
RAPOR MENUSUNE DONMEK ICIN 'R',ANA MENUYE DONMEK l<;IN 'A',
TEKRAR DENEMEK lylN T '
y
y
y
), •• (5.4
N
Created by EDGE Diagrammer (Unlicensed Software).
Visit http://www.pacestar.com for purchase options.
SIPARIS RAPORLARI
TUM KA YITLI ISTEK RAPORU
RAPOR MENUSUNE DONMEK ICIN 'R',ANA MENUYE DONMEK l<;:IN 'A',
TEKRAR DENEMEK l<;:IN T
y
y
~
y~,s.s
N
Created by EDGE Diagrammer (Unicensec ~ Visit http://www.pa.cestar.com tor ixr.::-ase
REFERENCES
Ibrahim, Dr. Dogan, "Programming in dbase"
Near East University, may 1992-Nicosia
Yamk, Memik, "Clipper 5.2 veri tabaru program.lama dili
Beta basm yayrn daginm A.~, 3. Baski- January-1998-istanbul
Commend Prompt - about
1!!11:J CJ
---·-- ---=R &sr UNI UERS I TY--- --- ---PRaJLTY OP ECONOIHCS AND ADl'IINISTRATIUE SCIENCES---
PROJECT--- ---
:i
Dept Of C.I.S--- -~---SUBIIITTED BY BAHIREKIZILBORA<28811"1'18)---
---~--- ---·---~---
- -
---
-~ ----
.--- --
•..•. ,FIGURE(6)
Commend Prompt - about
l!lliH!J
.xxxxxxxxxxxxxxxxxxll ltxxxxxxxxxxxxxxxxxxxxxx1•J:Ji:f\ui'O:flls),.1%
!%%%%%%%%%%%%%%%%%%j%%%%%%%%%%%%%%%%%XX%XXXXXXXXX%%XX%XX
!%XXXX%XX%%%%%XXXX% .%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
!%%%%%XXXX%%%%%%%%XXX%%%XXXXXX%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%X%%%%%%%%%%
!%%%X%XXX%XX%%%%%%%X%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%XX%%%%%%%%%%%%%%%%X%%%%%%%
!%%%%%%%%%%% .%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
!%%%%%%%%%%% .%%%%%%%%%%%%%%%%%%%%%%%%%
!%%%%%%%%%%%
PASSWORD KABUL EDILDI
.xxxXXXX%%%%XXX%%%%%%%%%%X!%%%%%%%%%%% .%%%%%%%%%%%%%%%%%%%%%%%%%
!%%%%%%%%%%%
Ok
.XX%%%%%%%X%%XXXX%X%%%%%%%!%%%%%%%%%%% .%%%%%%%%%%%%%%%%%%%%%%%%%
!%%%%%%%%%%% .%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
!%%%%%%%%%%% .%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
!%%%%%%%%%XX%XXX%%%%%%%%%%%%%%%%%XX%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%XXXXXXX
!XXXXXXX%XXXX%%%%%%%%%%%%%%%XX%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
FIGURE(7)
Common d Prom pt - ABOUT
1!1151 CJ
FIGURE(8)
Command Prompt - ABOUT l!IIEJE:1
FIGURE(9)
Command Prompt - ABOUT
l!lliJCJ
FIGURE(lO)
Command Prompt - ABOUT 11511:1
FIGURE(ll)
- -:,-3-
Command Prompt - ABOUT l!IISJl:J
FIGURE(12)
Command Prompt - ABOUT l!ltiJCJ
FIGURE(B)
--,
FIGURE(14)
--
FIGURE(16)
FIGURE(17)
• ~
FIGURE(18)
FIGURE(19)
•
FIGURE(20)
FIGURE(21)
,
FIGURE(22)
FIGURE(23)
,
FIGURE(24)
FIGURE(25)
FIGURE(26)
•
FIGURE(28)
FIGURE(29)
'
FIGURE(30)
• FIGURE(31)
•
'
FIGURE(32)
FIGURE(33)
'
FIGURE(34)
FIGURE(35)
'
FIGCRE(36)
FIGURE(37)
flGCRE(40)
FIGURE(41)
'
fIGL'RE.(42)
FIGURE(44)
FIGURE(45)
-so-
FIGURE(46)
- .91 -
FIGURE(SO)
FIGURE(Sl)
-.93-
FIGURE(52)
FIGURE(53)
II
·•v ~''.
~-6~
;po\~
...
~
-4'
LIBRARY -<\
'A,
s •.•I
e,.,~)J
• LEf\<.~~
~- ~-.- .~;:7'
FIGURE(55)
Command Prompt - ABOUT
l!lfZH:J
FIGURE(58)
FIGURE(59)
Command Prompt - ABOUT l!lrZJEJ
FIGURE(60)
Command Prompt -ABOUT 1m1:1
FIGURE(62)
FIGURE(63)
FIGURE(66)
FIGURE(67)
-,oo-
FIGURE(64)
FIGURE(65)
- <0\-
r ·.
Command Prompt - ABOUT llmJ£1
FIGURE(68)
Command Prompt - ABOUT !ISJE3
FIGURE(69)
- IO~-
FIGURE(71)
-103-
FIGURE(72)
FIGURE(73)
- 10\..j-
FIGURE(74)
FIGURE(75)
FIGURE(76)
Command Prompt - ABOUT l!lr:iJCJ
FIGURE(77)
•
FIGURE(78)
FIGURE(79)
-101" -
c ·.
Command Prompt - ABOUT lrtJCJ
Command Prompt - ABOUT 1ma
FIGURE(83)
DO YOU ~JANI TO EXIT PROGRAM?
YES NO
FIGURE(84)
-\\0--
ea
About.prg
("-",80) ("- ",80)
~or to N/w
SAY "NEAR EAST UNIVERSITY"
SAY "FACULTY OF ECONOMICS AND ADMINISTRA.TIVE SCIENCES"
SAY "DEPARTMENT OF COMPUTER INFORMATION SYSTEMS"
SAY "CIS 400"
SAY "GRADUATION PROJECT"
SAY "SHOES SELLING SYSTEM"
SAY "SUBMITTED TO : Dept of c.r.s"
SAY "SUBMITTED BY: BAHIRE KIZILBORA(20011778)"
,ey(O)
set color to oassword
-11 \-
("%",
80)
OR TO W/R CLEAR TO 16,45 TO 16,45
LOR TO
~~ COLOR TO W/R -- 19 TO 3,42 DOUBLE
20SAY "SHOES SELLING SYSTEM"
STORE DATE() TO A
l..66 SAY "DATE:"+DTOC(A) SET COLOR TO
,14 SAY "SIFREYI GIRINIZ"
E SPACE (1) TO A,B,C,D,E lastkey()=27
set color to clear
quit
::'10
if
SET COLOR TO R/W _ 35 GET A
EAD
:;10,35 SAY"*"
SET COLOR TO
SET
COLOR TO R/W
;::._o,36 GET
8 EAD36 SAY"*"
SET COLOR TO
R/W GET E
PASSWORD.PRG
--112-
PASSWORD.PRG
@10,39 SAY"*"
SET COLOR TO
STORE SPACE (5) TO PASS PASS=A+B+C+D+E
IF PASS=
11BAHIR
11=3
ALERT ("PASSWORD KABUL EDILDI") DO MAINMANU
ELSE
ALERT ("YANLIS PASSWORD") FOR I=O TO 5
SET COLOR TO W/R
@10,35+1 SAY REPLICATE(" ",5) EXT
DO PASSWORD END IF
SET COLOR TO
=X+l if X=3
alert("SIFREYI 3 KEZ YANLIS GIRDINIZ") CLEAR
set color to return end if END DO
-\\2}-
MAINMANU.prg set wrap on
clear
SET SCOREBOARD OFF
00 li'lHILE. T .
set message to 23 center SET COLOR TO GR+/RB CLEAR
SET COLOR TO
SET COLOR TO GR+/RB
@23,0 say replicate ("-",80)
@l,l SAY +DTOC(DATE())
@l, 70 SAY TIME() SET COLOR TO GR+/RB
@3,17 TO 16,56 DOUBLE
@3,25 SAY "AYAKKABI SATID PROGRAM!"
@5,30 prompt "MUSTER! -DLEMLER- "message "MsDTER- ANA MENU"
@7,30 prompt "MUHASEBE -OLEMLER- "message "MUHASEBE ANA MENU"
@9,30 prompt "SATIO -[JLEMLER- "message "SATIO ANA MENU"
@11, 30 prompt
"N',Al TB~,-N "message
"MAL TEM-N ANAMENU"
@13,30 prompt "RAPORLAR "message "RAPORLAR ANA MENU"
@15,30 prompt "CIKIS" message "PROGRAMDAN CIKID"
menu to choose
if lastkey()=27 .OR. CHOOSE=?
set color to clear
quit end if do case
case choose=l set color to DO CUSTMAIN case choose=2 set color to DO AC_MENU case choose=3 set color to DO SAT_MENU case choose=4 set color to DO SUP_MENU case choose=5 set color to DO RAP_MENU
case choose=6 set color to CLEAR
#DEFINE PCIKISl
#DEFINE PDEVAM2
A={
11YES
11,11N0
11}=ALERT("DO YOU WANT TO EXIT PROGRAM?",A)
00
CASE CASE N=l SET COLOR TO QUIT
CASE N=2 DO MAINMANU E!I/D CASE
--114-
end case
set color to SET COLOR TO END DO
MAINMANU.prg
CUSTMAIN.prg set wrap on
CLEAR
SET SCOREBOARD OFF DO WHILE.T.
set message to 23 center SET COLOR TO GR+/RB CLEAR
SET COLOR TO
SET COLOR TO GR+/RB
@23,0 say replicate ("-",80)
@l,l SAY +DTOC(DATE())
@l,70 SAY TIME() SET COLOR TO GR+/RB
@3,17 TO 16,56 DOUBLE
@3,30 SAY "MUSTERI ANA MENU"
@5,30 prompt "MUSTERI EKLEME "messaQe "MUSTERI EKLEME"
@7, 30 prompt "MUSTERI GUNCELLESTIR ' message "MUSTERI GUNCELLESTIR"
@9, 30 prompt
"ivi'uSTERI ARAMA "message
"MUSTERIARAMA"
@11,30 prompt "CIKIS" message "CIKIS"
menu to choose
if lastkey()=27 .OR. CHOOSE=5 set color to
clear
DO MAINMANU end if
do case
case choose=!
set color to do addcust case choose=2 set color to do UPDATEC case choose=3 set color to do SEARCH_C
case choose=4 CLEAR
DO MAINMANU end case
END DO
-1 \,b-
CUSTMENU.PRG SET WRAP ON
CLEAR
SET MESSAGE TO 23 CENTER
@23,0 SAY REPLICATE ("-",80)
@2,4 PROMPT" MUSTER! EKLE "MESSAGE "YENI MUSTER! EKLE"
@2,10 PROMPT "GUNCELLESTIR "MESSAGE "MUSTERIYI GUNCELLESTIR"
@2,21 PROMPT "ARAMA "MESSAGE "MUSTER! ARAMA"
@2,28 PROMPT "GERIYE DON" MESSAGE "ANA MENUYE GERI DON"
f'iitNU i U l.HUU::.t.
IF LASTKEY()=27 CLEAR
f"'\IITT
\.,(V.L I
END IF DO CASE
CASE CHOOSE=l
r-,,- _..J.-1_ .. _~
uu auuc...u::, L
CASE CHOOSE=2 DO UPDATEC CASE CHOOSE=3
CASE CHOOSE=4 SET COLOR TO DO MAIN MENU
-11~ -
addcust.prg CLOSE ALL
CLEAR
SET COLOR TO BG/N CLEAR
SET COLOR TO USE CUSTOMER
INDEX ON CUSTNO TO Yl SET COLOR TO BG/N
@3,25 SAY "*MUSTERI EKLEME ISLEMLERI*"
@2,24 TO 4,65 ANS ="Y"
DO WHILE ANS="Y"
STORE SPACE (15) TO C_NAME STORE OTO C
STORE SPACE (15) TO C_SURNAME STORE OTO C_TEL
STORE SPACE (15) TO C_ADDRESS STORE OTO A_NO
STORE DATE() TO C_DATE GO BOTTOM EOF ()
C=INT(CUSTNO) C=C+l
A_NO=C SET COLOR TO BG/N
@5,17 TO 12,70 DOUBLE
@.1,5 TO 20,75
@.7,20 say "MUSTERI ISMINI GIRINIZ:" GET C_NAME PICTURE "@15A"
READ
@8, 20 say "MUSTERI SOYISMINI GIRINIZ: ,., GET C_SURNAME PICTURE "@15A"
READ
@.9,20 say "MUSTERI TELI GIRINIZ:" GET C_TEL PICTURE "99999999999"
READ
@10,20 say "MUSTERI ADRESINI GIRINIZ:" GET C_ADDRESS PICTURE "@30!"
READ
@11,20 say "TARIHI GIRINIZ:" GET C_DATE PICTURE "99/99/99"
READ
APPEND BLANK
REPLACE NAME WITH C_NAME
REPLACE SURNAME WITH C_SURNAME REPLACE TEL WITH C_TEL
REPLACE ADDRESS WITH (_ADDRESS REPLACE CUSTNO WITH C
REPLACE ACCOUNTNO WITH A_NO REPLACE DATE WITH C_DATE
@15,20 SAY "DEVAM ETMEK ISTERMISINIZ? (Y/N)" GET ANS PICTURE"!"
READ ENDDO ANS=""
DO WHILE ANS=" "
@17,25 SAY "MUSTERI MENUSUNE DONMEK -€-N
1M
111@18,28 SAY "ANA MENU -€-N 'A'YAZINIZ"
@19,28 SAY "TEKRAR DENEMEK -€-N 'T
1YAZINIZ
11GET ANS PICTURE "@lA"
READ
IF ANS="M" .OR. ANS="m" .OR. LASTKEY()=27 DO CUSTMAIN
ELSEIF ANS="A" .OR. ANS="a"
DO MAINMANU
addcust.prg ELSEIF ANS="T" .OR. ANS="t"
DO ADDCUST ELSE
@20,28 SAY "HATALI GIRIS YAPTINIZ. TEKRAR DENEY-N-Z"
ANS=""
END IF END DO CLOSE ALL
-113-
,
,
UPDATEC.PRG
,
clear
SET COLOR TO BG/N CLEAR
SET
COLOR' TOUSE CUSTOMER
INE>EX ON eUS'fNO i'O
Yl Sl::i COLOR io s<:;/N
@3, 25 SAY "*MUSTER! BILGILERI GUNCELLEME ISLEMLERI*''
@.2, 24 TO 4,-65
STORE SPACE (15) TO C_NAME STORE OTO C_NO
STORE SPACE (15) TO C_SURNAME -STORE OTO C_TEL
STORE SPACE (15) TO C_ADDRESS STORE OTO A..._NO
STORE DATE () TO C_DATE SiORE'. SPACl:: (1) io ANS SET COLOR TO BG/N
@5,17 TO 12,70 DOUBLE'.
@1,5 TO 20,75
@.7,20 say "MUSTER! NUMARASINI GIRINIZ" GET C_NO PICTURE "9999"
Rl::AE>
SEEK C_NO
IF
FOUND() C_NAME=NAME
C_:SURNAME=SURNAME C_TEL=TEL
C_A00R£SS=AD0RESS SET COLOR TO BG/N
@.8,20 say "MUSTER! ISMINI GIRINIZ:"+TRIM(NAME) GET C_NAME PICTURE "@.15A"
READ
@9, 20 say rrMUSTERI SOYISIM GIRINIZ! "+ TRIM(SURNAME) GET C_SURNAME PICTURE "@15A'' READ
@10,20 say "MUSTERI TELI GIRINIZ:"+STR(TEL) GET C_TEL PICTURE "99999999999"
READ
@11,20 say "MUSTER! ADRES GIRINIZ:"+TRIM(ADDRESS) GET (_ADDRESS PICTURE "@10!"
READ
@13,20 SAY "BILGILERI GUNCELLEMEK ISTIYORMUSUNUZ(E/H)?" GET ANS PICTURE ff@lA"
READ
IF ANS="E" .OR. ANS=rrerr REPLACE NAME WITH C_NAME
REPLACE SURNAME WITH C_SURNAME REPLACE TEL WITH C_TEL
REPLACE ADDRESS WITH C_AODRESS
@.14, 20 SAY "BILGILER GUNt'.:ELLENMlSTIR"
END IF ELSE
@10,25 SAY "BOYLE BIR MUSTER! YOK"
END IF ANS="
II,
, , ,
DO WHILE ANS=" ,-,
@16, 2 5 SAY "MUSTERI MENUSUNE DONMEK -€-N ,-M' rr
@17,28 SAY "ANA Ml:NU -€-N 'A'YAZINil"
@18, 28 SAY "TEKRAR DENEMEK -€-N 'T' YAZINIZ'' GET ANS PICTURE ''@lArr READ
IF ANS=''M'' . OR. ANS="m" . OR. LASTKEY()=27 DO CUSTMAIN
f:LSEI!= ANS="A" .OR. ANS="a"
DO MAINMANU
ELSEIF ANS=''T" .OR. ANS=..-e' DO UPDATEC
EL-SE
@.19,28 SAY "1-!ATAL! G!R!S YAPT!N!Z. TEKRAR DENEY-N-z"
-) :lQ-
ANS
='' "
l:'Nl'.> II=
END DO CLOSE ALL