NEAR EAST UNIVERSITY

I

I

I

I

I

I

I

I

I

l

I

I

I

I

I

I

I

I

I.

I

NEAR EAST UNIVERSITY

FACULTY OF

ECONOMIC& ADMINISTRATIVE

SCIENCES

DEPARTMENT OF COMPUTER

INFORMATION SYSTEM

2006-2007

CIS 200

(GRADUATION PROJECT)

Project:Book Store information system

Submitted to

: Department of C.I.S

Submitted by

: Adil DEMiRYERi

Number

: 20032903

Lefkosa

2007

I

I

TABLE

OF

CONTENTS

Page

I .ACKNOWLEDGEMENT

1

2.ABSTRACT

2

3.INT~ODlJCTION

4

4.DESiNG OF THE SYSTEM

, Explanation

11

Database Desing

13

5.APPENDIX 1

Screen outputs

24

6.APPENDIX 2

Source code

34

I

I

••

ACKNOWLEDGEMENT

I want to thank to:

I

I

My instructors Dr.Yalcm AK<;ALI and Miss. Nadire <;A

VUS

and Mr.Tansel DEViN and Mr.Mustafa MENAKAY and Mr.ilham

HUSEYiNOV for their support in completion of my Project.

My friend Ferit Yildizoglulan, Adnan Tanis.Murat ilk and

Ramazan Saray for his technical and phschological contributions and

support to conclude the project.

Also thanks to:

My family for providing me with financial support while

preparing the Project and for their physchological support in all parts

I

..

ABSTRACT

I

My project is Book Store system. I use Delphi programming

language to write my project.For database, I use the Access

program.Gor database connection I use Ado conection in Delphi to set

connection between Delphi and Access database. This program si

prepared for selling a Book Store place. This program is provide for

this store, to selling book, buying book from the supplier, to sell

which customer, available book types, and all of the accounts of the

store is made in system. Also whave free types of the payments, these

are wholesale, retail, instalment.

Table of Project ;

lCustomer

2.Supplier

3.Salles

4.Buying

5.Personel

7.User

8.User Detail

I

I

I

I

I

I

I

I

I

..

INSTRODUCTION

The main proccess performed open program.

1.Entring the user name

2.Entrin password to the system

The entring name then entring password.

The uses system is a

security system.Not entrin right user name,and password is write a

message and not open program.

For the Official U

=

Type;

Fort the Customer;

The Main Processes in the control stock system of book store.

I .Registering a New Customer

2.Registering delete a customer

3.Updating customer information

4.Reporting about customer information

5. Seraching for customer information

The official can regster new customer ,delete old ,customer,search

old customer information ,update old customer information and wiev

I

The Subprocesses Performed by' Searching for Customer

Information'process are;

I.Searching by Name

2.

Searchin by ID number

Seraches for the customer can be made two ways if the user does not

know the customer'ID number exactly.

For the Supplier;

The main Process Performed in the Book store system:

I .Registering a New Supplier

2.Registering delete a Supplier

3.Updating Supplier information

4.Reporting about Supplier information

5.Seraching for Supplier information

The official can regster new Supplier ,delete old Supplier ,search

old Supplier information ,update old Supplier information and wiev all

Supplier information.

The Subprocesses Performed by' Searching for Supplier

Information'process are;

I .Searching by Name

2.Searchin by ID number

I

I

I

I

I

I

I

•.

Seraches for the Salaries can be made two ways if the user does not

know the Supplier 'ID number exactly

For The Person el;

The main Process Performed in the Book store system:

1.Registering a New Personel

2.Registering delete a Personel

3. Updating Personel information

4.Reporting about Personel information

5. Seraching for Personel information

The official can regster new Personel ,delete old Personel,search old

Personel information ,update old Personel information and wiev all

Personel information.

'

The Subprocesses Performed by' Searching for Personel

Information'process are;

1.Searching by Name

2.Searching by ID number

Seraches for the Personel can be made two ways if the user does not

know the Personel 'ID number exactly

I

I

For The Buyingn;

I

The main Process Performed in the Book store system:

I .Registering a New Buyingn

2.Registering delete a Buyingn

3. Updating Buyingn information

4.Reporting about Buyingn information

5. Seraching for Buyingn information

The official can regster new Buyingn ,delete old P Buyingn,search

old v information ,update old Buyingn information and wiev all

Buyingn information.

The Subprocesses Performed by' Searching for Buyingn

Information'process are;

I .Searching by Name

2.Searching by ISPN number

..

For The Sales;

The main Process Perf armed in the Book store system:

1.Registering a New Sales

2.Registering delete a Sales

3.Updating Sales information

4.Reporting about Sales information

5.Seraching for Sales information

The official can regster new Sales,delete old Sales Sales,search old

information ,update old Sales information and wiev all Sales

information.

The Subprocesses Performed by' Searching for Sales

Information'process are;

1.Searching by Name

2.Searching by ISPN number

Seraches for the Sales can be made two ways if the user does not

know the Sales

'ISPN number exactly.

For The User detail;

DESING OF THE

EXPLANATION

The minimum requirements of the system area as follows;

Intel Pentium III processor

550 MHz

128 MB of RAM

3 0 GB hardisk

14"Monitor

Microsoft Windows 2000

LG CD ROM CRD 8522B

I)AVIDOM 9102_Based PCIFast Ethernet Adapter

The recommended requirents of the system Are as the follows;

Intel Pentium 4 processor

800MHz

256MB ofRAM

60 GB hardisk

1 ?"monitor

Microsft Windows XP proffesional

I used delphi programming language for writing this Project and

Paradox database for keepingthe data maintaining it.

Also Delphi has another feature called BDE Administrator that

stannds for Borland Delphi Enterprise Administrator and used to

aliases to keep and maintain database.

Besides ,to be able to run this program,Delphi has installshield

Express wizard that encodes the proram and gives the execution of the

•

DATABASE DESING

There are seven databases used in the system. These are;

I.Customer

2.Supplier

3.Buying

4.Sales

5.Personel

6.Quantity

7. User password

8~Fatura

9.category

TABLES

~ book: Veritabam (Access 2000 dosya bi~imi)

r:;J(QJ(.8]

Teserla ·~ Yeni

I " I

9. n ·-~-I:::: j j!!

- ~ - r- . - 0 c.-r..- ·---

~ T esenm gorOnOmOnde tablo olustur

ml

user _password

Nesneler

IE!

Tablolar ' ~ Sorgular ~ ca Formlar [j Raporlar ~ Sayfalar

E2

Makrolar

Ji{

ModOller Gruplar

tE

S1kKulla ...

Sihirba21 kullanarak tablo olustur Veriler girerek tablo olustur \buying! • · category customer fatura fature_ahm1 personel quantity sales supplier

>

<

Figurel.1

I

I

I

RELATION SHIP

I

I

name address tel

I

alis_fiyati adet

I

I

I

I

miktar date tax_no tax_Price

I

.

"

Figurel.2

I

I

I

I

I

•.

CUSTOMER

name Met in surname / Met in tel Met in address Met in email Met in dob Tarih/Saat

I

Alan bzellil<Jer

I

Genel

I

Ar ama

I

Alan Boyutu Uzun Ternsev:

Yeni Degerler Artan

Bi~im Resim Yaz1s1

S1rah Evet (Yineleme Yok)

Akllh Etiketler

I

Bir alan ad1 en !

I

I

I

.•

I

I

BUYING

I

ii buying : Tablo

Alan Adt Veri

roro

'

)/ ISBN Met in

- 2._ID Sayt

name Met in

vezer Met in

- categ_Q!).' Met in

cikis tarihi Tarih/Saat

- ells fivati Met in

adet Met in

basim evi Met in

total Met in ~ I ·-- ~ ;#.'"E --·~, ---·,. ·- ...•.. ....,. ·--" .., .. -~--,,..- ·-- .. ~,..- .•... .._

..

.. -

I

I

I

I

I

I

Genel ] Arama] Alan 62ellikleri

I

I

Figurel.4

I

I

I

CATEGORY

I

I

name Met in

I

I

I

I

I

I

I

Genel

I

Arama

I

,. Alan Boyutu 50 Bi~im Giri:i Maskesi Resim Ya21s1 Varsay1lan Deger Ge~erlilik Kur ah Ge~erlilik Metni GerekJi Haw

S1f1r Uzunluk izni Evet

S1rah Evet (Yineleme Yok)

Unicode S1kJ:it1rma Evet

IME Madu Denetim Yok

IME TOmce Madu Hicbiri

AkJll1 Etiketler

I

I

I

Figurel.5

I

I

I

I

I

SALES

I

---

I

fatura no f._ID Savi isbn Me tin adet Me tin sati~_fi')'at1 Metin

satis tarihi Metin

total Met in Tax_number Met in tax..P._rice Metin

I

I

I

I

I

. f.

I

Gene! j Ar ama Alan Boyutu Veni Degerler Bi~im Resim Va21s1 S1rah Ai<Jlh Etiketler Uzun T emsevi

I

Art an

Evet (Vineleme Vok

SUPPLIER

I

I

~name Metin address Metin tel Me tin

I

I email Metin

I

I

I

I

Arama

I

·utu Uzun T ernsevt

ierler Art an

IZISI

Evet (Yineleme Yok) etler

I

USER DETAIL.DB

I

_---

I

I

I

I

I

I

I

Genel

I

Ar ama ] ; ' Alan Boyutu 50 Bi!;im Giri~ Maskesi Resim Ya21s1 Varsayilan Deger Ge!;erlilik Kur ah Ge!;erlilik Metni Gerekli Havir

S1f1r Uzunluk izni Evet

s,rah Evet (Yineleme Yok)

Unicode S1kl~t1rma Evet

IME Madu Denetim Yok

IME Tumce Madu Hicbiri

Akllh Etiketler -

I

I

I

r

Figurel.8

r

(i

[i

I

I

I

I

I

FATORA.DB

I

I

I

.B fatura : Tablo

Alan Adi Veri

toro

'i'.?• fatura no Savi

-~, -· - - ~··-·- -"'"" "··· ""'··- --..-,_ '

I

I

I

I

I

I

.. _··-· Gene!

I

Ar ama

I

_'

...

Alan Boyutu Uzun T emsevt

Bi!;im

Ondahk Basamaklar Otomatik

Giri~ Maskesi Resim Yaz1s1 Varsay1lan Deger 0 Ge!;erlilik Kur ah Ge!;erlilik Metni Gerekli Havir

S1rah Evet (Yineleme Yok)

AkJlh Etiketler ·•

f

I

r

Figurel.9

[

I

I

I

I

FATURA ALIMI.DB

I

I

I

~ Metin miktar Me tin date Me tin tax_no Me tin tax_Price Met in total Me tin

I

I

I

Genel

I

Ar ama J .. .. •· ..

Alan Boyutu Uzun T ernsevt

Yeni Degerler Ar tan

Bi~im Resim Ya21s1

S1ral1 Evet (Yineleme Yok)

APPENDIX 1

MAIN MENU

7-•

anamenu

r;JLQ]rBJ

Form calculator Report Exit

.---~__:__.:__:_._:·· .

·~·

: . . •.

I

SUPPLIER

I :

:. . . .. . . : ·. ·: : . .

. . .

• ~!•

... .

1· ·1· .... ~I~ I ~:{ -~· BUYING q• •• :• •

¥~·

~-

• •

: q

SALES [

~J

§]:

. ,· . . . . . . ..

. . . .

:.1

USER DETAIL

I :

. . . . .

. . . .

· · · ·

· ••. :-1

. ~· . . - - REPORT , r .

:'< :

.

.... '

. . . .

....

/ : . < : : . . . .

i

ABOU~ p:~~~~MMER

I

. '

'• ,·,,··:·. . .•:,•. .• ...

...

_:

.

..

.

. ..

•

PERSONEL ... EXIT

USER

1usER NAME

I

PASSWORD

I

I

CUSTOMER

1

customer

GJIQJl:8)

Form Report celculetor exit

'·. •.•·· i!ak,,

I

4 ~~. • • [cus1omer ID. • · · · : ~ ~; jsurname @§.se3eo47

I :. • : . • , •

J :-: · •

f1~,i·d~®~~l~~;;_~o·,,; · ,• • • : . • • • -,~ •

I

"r'"

I

: :

••· .. ·•· i" .:·· ··~·~···•·· .~.Se.arch""]-··.. . . ~ .. , . . . . rr[jj··· .. IJ Cus1omer16 J • • ~"00

n+j •

Name

.. : : :

,p, • . . .. . . .

I

'C_ID

I

name

I

surname

I

tel ·

I

address

I

emal

I

dob ....

I~

~I ~L • •

Iii!

~J~

E

• JName

..

J;. •.

:,;.,;1

.. : :·:.

i: .. •. ~

J : : • • : :, yrldrzoglulari

·=i

: : •• : I

Address · Jsearch

41 ferit I y1ld1zoglularr j053386360 I GAU I ferido@hot I 12.12.1202 5 vasfi can 054225885 h,lvan vasfi@hotm 03. lrfo.=========s:I

f--!---,i---+---+----+---+---,!----,iQuick~confi(]::-. : · : · . i

6 adil demir 054288974 N.E.U ademiryeri 04.1,Add ail DBifields, •

iiem'o"ve alfoif fie(ds . • . • : • '

,.i:f~hioy.e a[l(follj.mlJ?'' · ·. , .'·1

~ !.. •••. < . • • -· ' '

In:~~:

:TT~·~e~e· . ·1 :· 1

~~ff-.~

Ne>1 ;j : : . , .•...• }

MAIN

MEMJ

f. •

· · ···· ·

. *·

· Please Enter Name And Surname· • ·

I

BUYING

7-- buying

r;J(.g]rRJ

Form Report cakulator ext i!!bl ·

~-~: : : jisBN

I : : : •

JJ545135455321551

. jsupplier ID . 'j . : ] 0

I

OJ • :

jauylng_prlce

. IN

I : :

:I

•sim ymm

! : : . . . .

.

: ame · . : • ,Number Of unit j : :

1°

I:

... ] : : • to

/•

· · · : joey Of out

l : ·

_{1os12.2oos :':}

n

I~

1s~1D

]

l

0

"l

name 5ladnan 6lmurat sfferit J

"~]

Printing Place j : · : ;j url• k,tap ••i

: /search Search •: .•I ,>:' Supplier

t

J Refresh ISBN Name

• l

New Record , • , . Pre'"_ous .

j

I

ISBN

Next ..

I ;

J: .. 1_nsert ..

I : l, .

o_elete .

J (

Update.

l .

: : ~, 3546135465321651 1234 name 6 ask ve yasam 8 yasa

~~:··~·

t~JMEjjl]:

::: _{. . .} ~-·~-- . .

I

PERSONEL

'}- personel

L.J[g]r:8]

Form Report calculator exit

. "'. . '.• ··::

:·:

'ti

I"'"""

0

I

_10<

I ],;.;,;,

[

_1'""

1

~I

'?:[

I

j:.

· · · ·

j :

jJobstarteclDate

! :

j12122006

f

f · ·

: :

eJI::

• N,~

1:_

. . . .

I . . Ir'''""

I

>

· *· jsurname

I· · G ·

lk

I·

·Add•~s · . .. . ... · · .... · ...

. . ... Xlf . . . .. . . •.. , , .•. ,

Ir•

No

I

I~

. • . I• :

)

; : \

: : !search

j : :

.. : : . : : . : : . : : : :

r :

.S.eiuc~. : t: . : · · · : : ~1 ·~ ·1: : :· ·: : :.. ..:.. . .... , :::~~:::

... ,...

&.I

···:~::/:::::::-···•····:-::.::·· ~ Personel ID Name

.

. . ~ . . _;;•, . . . ;

.

. . . . "· . . . P_ID name

. I

~ 01 adil 02 ~l~lk 03 2xd2xfsa 04 rernezen

u :: :

:::ITO

•••. , • ··-·· : • • . •

.. ttJ

: ,!,

GJ

j'~e~· ~e·c~r·d ·1 ·

r ·

~r~~i~u~ ·

L : I · ·

I~~~~ ·

l

l' ·

~~I~~ ·

T :

l ·

~~d~~ · · 1:

f · ·

~e-~ · ·

1 :

U

MA~ MENU

f : :

I

REPORT

]· Forrn10

r;JLQJ(R)

••••••••• i

BUYI~ RLT I •••• : •••••••• ; :

i

C~STO~RREP~TI •••••. : ••••• ; : : : .: : : : • . .

.

. . ···:• .. .•

.

.

. .

.

_{. .}

... _{. .}

_{. .}

_{. .}

_{. .}

_{. .}

_:

:

_:

_:

. .

. .

.

.

SLFPUER REPORT :

> • • • • ;

i ( )

j

PERSO,EL REPORT

L • • •

E)I ~1 • • -

/ •••..•• ; > •.. .• -,

! • :

i .. ,,:::~

I.

i • : • • • . • : •• • •.

I : : ••••

I, • :

MAN:'~: • •

1 •

~I, ~I

. . · ·• · .. · · · · • · j End Date

j ·

! · ·

l I . . .

· · · .

· · · · :

. . . )! • . .. ·• . : [ : . ·· .. • • .. : .... : •.;

i

,~,,,w .

I

U • • • [' • • • :; • • / ( ••.• : •

SALES

1 sales

r;]QJIBJ

Form Report calculator exit

bsSkinOBl ex Pa~ment Ocash 0 lnslollment · · !soles Unt jtS8N I : : . jso1es Price . . . · · · !Toto/ Price Fatura No

-

Cuslomer ID jratol Price ,-- T eking Price Tax_number Dale

::IJ •.

JFoturoNo

Jf.,.

.

j.

(rax Number

: , Jr~x

Price Print ]:I . . . .. .l i P.rrrt · : js.erch

l .

.

· · :·:. ,. Search J

"" id fatuia_no C_I Quick co!\fig • • •• ,

1 .,.1 _ •Add an DB fields. • • • . • 'I

r 11 • • • •1 5 .;· .Re,,;ove all DB fields " • '

115 11.em'9v'\ ~, column~ ·.'·.' .'·

as 1s_10 fatura_no C_ID isbn adet total

> f ..

_.1

ieldS: • s · ~emove_an DB [i~lds· • •• !IRemoVe'·an\Olumiis--.. lc__..__ 1·· .<

Figure2.7

I

SUPPLIER

I

_{].- supplier}

_GJ(QJL8]

I

Form Report calculator exit ~. ~I : [suppijer ID

l···s

. Tel. f : : . fo5423103B70

I

. .

: •

. . . .

: : : ,:

. ...

I ~ • -~

I

I

50;

r~··· .. -.-::::::~

.... ~

.... ~

.... ~

.... ~

...

1, ..

. . . .

. . . . 1,,~0,

J

I .

.

sl

I

SM<0h

!

'i'~I

~,···

~,

...

·•~r

S_ID name address tel email

I

~ 5 adnan dfgdfg 054231038 adnan~ - •1 • . : • ~ • -.

'Quick confide'. . • ; : : : . 6 murat asdasdas 021441445 mur at@ rP,cld.aJI.DB'fielcls. • · .•... •. : I

8 ferit kjgg 02545245 21452 f emove all DS.f,\~Jds,: •• • ; ••

'Remove all·columns· • • , • 1 •. -. "ii:__:,,: __ :;;_,-" !_-;. .• -" ~.,, ..• Supplier ID Name :

--~~,:

··~··

•::.uJ~-·~r

··~··-

·::: . ' - ... . . .. MAIN MENU

1 ·~ -~ • ..

I

USER DETAIL

I

:::juserName j:::lneu

1:.:.:::::::::::::.:::::::

_{.. ' '.} ' . . . . ' ' '• .

: : JPassword

I: : :

J20032903

I: : : : : :

. ·1

'.

Figure2.9

I

I

I

I

MY PAGE

---

']: Form11

~(QJL8]

I

. . . ;

.

. t . MAIN MENU ...

I

The program is done by Adil Demiryeri. I am from Sanliurfa.

I am student at computer information

system in Near East University. My phone number is 0542-889-74-82 · Email Address: [email protected] :

.... ,. . '• •.,' ,

.

;~ ... ~·

OJ ·~· .. : -. :

~&SL~:::,

\

.... ~

•...

~....

:::

. : : :· : :

· · ·

~ I :

·illt!~i:

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

t

7

·:=:::

.;:::.:;~:~:

:'>::··:::::.:

... . -. ·•

,

... . . . . •.. . ... :·.

I

APPENDIX2

SOURCE CODE

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

USER

unit Unit}; interface

USER

unit Unit}; uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, bsSkinCtrls, DB, ADODB, StdCtrls, Mask, bsSkinBoxCtrls,

bsdbctrls, bsSkinData, BusinessSkinForm, jpeg, ExtCtrls; type Tuser

=

class(TForm) bsSkinLabel 1: TbsSkinLabel; bsSkinLabel2: TbsSkinLabel; bsSkinDBEditl: TbsSkinDBEdit; bsSkinDBEdit2: TbsSkinDBEdit; DataSource 1: TDataSource; ADOTablel: TADOTable; bsSkinButtonl: TbsSkinButton; bsSkinButton2: TbsSkinButton; bsSkinEditl: TbsSkinEdit; bsSkinPasswordEdit 1: TbsSkinPasswordEdit;

I

r

I

I

I

I

I

I

I

I

I

I

I

bsSkinDatal: TbsSkinData;

•

LIBRARY bsCompressedStoredSkinl: TbsCompressedStoredSkin; bsSkinData2: TbsSkinData; bsCompressedStoredSkin2: TbsCompressedStoredSkin; bsSkinData3: TbsSkinData; bsCompressedStoredSkin3: TbsCompressedStoredSkin; bsSkinData4: TbsSkinData; bsCompressedStoredSkin4: TbsCompressedStoredSkin; bsBusinessSkinF orm3: TbsBusinessSkinF orm;

bsSkinData5: TbsSkinData;

bsCompressedStoredSkin5: TbsCompressedStoredSkin; bsSkinData6: TbsSkinData;

bsCompressedStoredSkin6: TbsCompressedStoredSkin; Image 1 : Tlmage;

procedure bsSkinButton 1 Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var user: Tuser; tur:integer; implementation uses Unit2; {$R *.dfm}

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

if (bsskineditl .Text=bsskindbeditl .Text) and

(bsskinpasswordedit l .Text=bsskindbedit2.Text) then begin bsskinbutton 1.setfocus; anamenu.show; user.Visible:=false; end else begin

showmessage('Wrong Password !'#13'Please Enter Again!'); tur:=tur-1; bsskinedit 1. Text:="; bsskinpasswordedit 1. Text:="; bsskineditl .SetFocus; end; end; end.

ANAMENU

unit Unit2; interface uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, bsSkinCtrls, RzBorder, bsMessages, Menus, BusinessSkinForm, bsSkinData;

type

I

I

bsSkinButtonl: TbsSkinButton; bsSkinButton2: TbsSkinButton; bsSkinButton3: TbsSkinButton; bsSkinButton4: TbsSkinButton; bsSkinButton5: TbsSkinButton; RzLEDDisplayl: TRzLEDDisplay; bsSkinButton6: TbsSkinButton; bsSkinMessage 1: TbsSkinMessage; bsSkinPanel 1 : TbsSkinPanel; bsSkinLabell: TbsSkinLabel; bsSkinMainMenu 1 : TbsSkinMainMenu; process 1: TMenultem; calculator I: TMenultem; exitl: TMenultem; Customer l : TMenultem; Buying 1: TMenultem; Supplier! : TMenultem Nl: TMenultem; U serdetail I: TMenultem; FaturaAlimi 1: TMenultem; bsSkinButton7: TbsSkinButton; Personel I: TMenultem; Exit2: TMenultem;

bsBusinessSkinF orm 1: TbsBusinessSkinF orm; bsSkinData I: TbsSkinData; bsCompressedStoredSkinl: TbsCompressedStoredSkin;

I

I

I

I

I

I

bsCompressedStoredSkin2: TbsCompressedStoredSkin· bsSkinButton8: TbsSkinButton;

procedure bsSkinButton 1 Click(Sender: TObject); procedure bsSkinButton2Click(Sender: TObject); procedure bsSkinButton4Click(Sender: TObject); procedure bsSkinButton3Click(Sender: TObject); procedure bsSkinButton5Click(Sender: TObject); procedure bsSkinButton6Click(Sender: TObject); procedure Customer! Click(Sender: TObject); procedure Buying! Click(Sender: TObject); procedure Supplier! Click(Sender: TObject); procedure Nl Click(Sender: TObject);

procedure Userdetail 1 Click(Sender: TObject); procedure calculator! Click(Sender: TObject); procedure exitl Click(Sender: TObject);

procedure FaturaAlimi 1 Click(Sender: TObject); procedure Personel 1 Click(Sender: TObject ); procedure bsSkinButton7Click(Sender: TObject) procedure Exit2Click(Sender: TObject);

procedure bsSkinButton8Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var anamenu: Tanamenu; implementation

uses Unit3, Unit4, Unit5, Unit?, Unit9, Unit8, Unit6, Uni1;.I 0, Unitl 1; {$R *.dfm}

procedure Tana.menu. bsSkinButton 1 Click(Sender: TObject); begin

customer.show;

anamenu. Visible:=false; end;

procedure Tanamenu.bsSkinButton2Click(Sender: TObject);

begin

supplier.show;

anamenu. Visible:=false; end;

procedure Tanamenu. bsSkinButton4Click(Sender: TObj ect); begin

buying.show;

anamenu. Visible:=false; end;

procedure Tanamenu.bsSkinButton3Click(Sender: TObject);

begin sales.show;

anamenu. Visible:=false; end;

procedure Tanamenu.bsSkinButton5Click(Sender: TObject);

begin

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

,,

anamenu. Visible:=false; end;

procedure Tanamenu.bsSkinButton6Click(Sender: TObject);

begin

ifbsskinmessagel .MessageDlg('Do you want to close program' ,mtconfirmation,[mbyes,mbno] ,O)=mryes then

begin

anamenu.Close; end;

end;

procedure Tanamenu.Customerl Click(Sender: TObject); begin

customer. Show;

anamenu. Visible:=fal se; end;

procedure Tanamenu.Buyingl Click(Sender: TObject); begin

buying.Show;

anamenu. Visible:=false; end;

procedure Tanamenu.Supplierl Click(Sender: TObject); begin

Supplier.Show;

anamenu. Visible:=false; end;

I

I

I

I

I

I

I

I

1·

I'

1:

I

II

1:

I

I

1:

•.

procedure Tanamenu.Nl Click(Sender: TObject); begin

sales.Show;

anamenu. Visible:=false; end;

procedure Tanamenu. U serdetail 1 Click(Sender: TObject); begin

user_ detail.Show; anamenu. Visible:=false; end;

procedure Tanamenu.calculatorl Click(Sender: TObject); begin

winexec('C:\WINDOWS\System32\calc.exe',9); end;

procedure Tanamenu.exitl Click(Sender: TObject); begin

form IO.show;

end;

procedure Tanamenu.FaturaAlimi I Click(Sender: TObject); begin

faturaalimi.show; anamenu.Visible:=false; end;

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

procedure Tanamenu.Personel I Click(Sender: TObject); • begin

personel.show;

anamenu. Visible:=false; end;

procedure Tanamenu.bsSkinButton7Click(Sender: TObject);

begin

FORMlO.SHOW; anamenu. Visible:=false; end;

procedure Tanamenu.Exit2Click(Sender: TObject); begin

if bsskinmessage l .MessageDlg('Do you want to close

program',mtconfirmation,[mbyes,mbno],O)=mryes then

begin

anamenu.Close; end;

end;

procedure Tanamenu.bsSkinButton8Click(Sender: TObject);

begin

form I I .show;

anamenu. Visible:=false; end;

BUYIND

unit Unit5; interface

I

I

I

I

I

I

I

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, bsSkinBoxCtrls, bsdbctrls, ADODB, DB, Grids, BaseGrid, AdvGrid, DBAdvGrid, bsSkinCtrls, Menus, bsSkinMenus, StdCtrls, Mask,

BusinessSkinForm, bsMessages, bsSkinGrids, bsDBGrids, lmgList, bsSkinData;

I

I

type

Tbuying = class(TF orm)

bsSkinLabel 1: TbsSkinLabel; bsSkinLabel2: TbsSkinLabel; bsSkinLabel3: TbsSkinLabel; bsSkinLabel4: TbsSkinl.abel; bsSkinLabel5: TbsSkinLabel; bsSkinLabel 6: TbsSkinLabel; bsSkinLabel7: TbsSkinLabel; bsSkinPopupMenu 1: TbsSkinPopupMenu; customerID 1: TMenultem; name 1: TMenultem; ADOQueryl: TADOQuery; bsSkinLabel8: TbsSkinLabel; bsSkinLabel 9: TbsSkinLabel; bsSkinLabel 10: TbsSkinLabel; DataSource 1: TDataSource;

I

I

I

I

I

I

I

I

I

I

I

ADOTable 1 : TADOTable; bsSkinDBComboBoxl: TbsSkinDBComboBox; bsSkinB utton 1 : TbsSkinButton;

bsSkinPanel 1 : TbsSkinPanel; DBAdvGrid2: TDBAdvGrid; DataSource3: TDataSource; ADOTable3: TADOTable; bsSkinButton2: TbsSkinButton; bsSkinButton3: TbsSkinButton; bsSkinLabel 11: TbsSkinLabel; bsSkinButton4: TbsSkinButton; bsSkinMainMenu 1: TbsSkinMainMenu; process 1: TMenultem; Customer! : TMenultem; Supplier l : TMenultem; NI: TMenultem; Userdetail 1: TMenultem; calculator 1 : TMenultem; exitl: TMenultem; Report 1 : TMenultem; Mainmenu 1: TMenultem; bsSkinMessage 1: TbsSkinMessage; FaturaAlimi 1: TMenultem; Personel 1: TMenultem; bsSkinDBEditl: TbsSkinDBEdit; bsSkinDBEdit2: TbsSkinDBEdit;

I

I

I

I

I

I

I

I

I

I

I

I

I

I

bsSkinDBEdit7: TbsSkinDBEdit; bsSkinDBEdit4: TbsSkinDBEdit; bsSkinDBEdit5: TbsSkinDBEdit; bsSkinDBEdit8: TbsSkinDBEdit; bsSkinDBGridl: TbsSkinDBGrid; . bsSkinNumericEditl: TbsSkinNumericEdit; bsSkinNumericEdit2: TbsSkinNumericEdit; bsSkinNumericEdit3: TbsSkinNumericEdit; bsSkinDBEdit9: TbsSkinDBEdit; bsSkinButton9: TbsSkinButton; bsSkinButtonlO: TbsSkinButton; bsSkinButton5: TbsSkinButton; bsSkinButton6: TbsSkinButton; bsSkinButton7: TbsSkinButton; bsSkinButton8: TbsSkinButton; bsSkinDBDateEditl: TbsSkinDBDateEdit; bsSkinPanel2: TbsSkinPanel; bsSkinButtonl 1: TbsSkinButton; bsSkinButton 12: TbsSkinButton; Editl: TEdit; bsSkinButton13: TbsSkinButton;

bsBusinessSkinF orm 1: TbsBusinessSkinF orm; bsSkinDatal: TbsSkinData;

bsCompressedStoredSkin 1: TbsCompressedStoredSkin; bsSkinData2: TbsSkinData;

bsCompressedStoredSkin2: TbsCompressedStoredSkin; procedure bsSkinButton 1 Click(Sender: TObject); procedure bsSkinButton2Click(Sender: TObject);

I

I

I

I

I

procedure bsSkinButton3Click(Sender: TObject);

procedure bsSkinButton4Click(Sender: TObject); procedure Customer! Click(Sender: TObject); procedure Supplier! Click(Sender: TObject); procedure NI Click(Sender: TObject);

procedure Userdetail I Click(Sender: TObject); procedure Mainmenul Click(Sender: TObject); procedure calculator I Click(Sender: TObject); procedure exitl Click(Sender: TObject);

procedure FaturaAlimi I Click(Sender: TObject); procedure Personel I Click(Sender: TObject); procedure FormCreate(Sender: TObject);

procedure bsSkinNumericEdit2Exit(Sender: TObject)

procedure DBAdvGrid2DblClick(Sender: TObject);

procedure bsSkinButton I OClick(Sender: TObject); procedure bsSkinButton5Click(Sender: TObject); procedure bsSkinButton7Click(Sender: TObject); procedure bsSkinButton8Click(Sender: TObject); procedure bsSkinButton9Click(Sender: TObject); procedure bsSkinButton6Click(Sender: TObject); procedure bsSkinButtonl I Click(Sender: TObject);

procedure bsSkinButton l 2Click(Sender: TObject); procedure bsSkinButton l 3Click(Sender: TObject); procedure Report] Click(Sender: TObject);

private { Private declarations } public

I

I

I

I

I

I

I

{ Public declarations } end; var buying: Tbuying; implementation

I

I

I

I

I

I

I

I

I

I

I

uses Unit4, Unit2, Unit3, Unit7, Unit9, Unit8, Unit6, Unitl

O;

{$R *.dfm}

procedure Tbuying.bsSkinButton 1 Click(Sender: TObject); begin

adotable3 .Active:=false; adotable3 .Active:=true; bsskinpanel I .Show; end;

procedure Tbuying. bsSkinButton2Click(Sender: TObject ); begin

supplier. Show; end;

procedure Tbuying.bsSkinButton3Click(Sender: TObject);

begin

adotable3 .Active:=false; adotable3 .Active:=true; end;

procedure Tbuying. bsSkinButton4Click(Sender: TObject ); begin

I

I

I

I

I

I

I

anamenu.show; buying. Visible:=false; end;

procedure Tbuying.Customerl Click(Sender: TObject); begin

customer.show

Nbuying.Visible:=false; end;

procedure Tbuying.Supplierl Click(Sender: TObject); begin

supplier.Show; buying.Visible:=false; end;

procedure Tbuying.Nl Click(Sender: TObject); begin

sales.show;

buying. Visible:=false; end;

procedure Tbuying.Userdetail 1 Click(Sender: TObject); begin

user_ detail.show; buying. Visible:=false; end;

procedure Tbuying.Mainmenu 1 Click(Sender: TObject ); begin anamenu. Show; buying. Visible:=false; end;

I

I

I

I

I

•• procedure Tbuying.calculatorl Click(Sender: TObject); begin

winexec('C:\WINDOWS\System32\calc.exe',9); end;

I

I

procedure Tbuying.exitl Click(Sender: TObject); begin

if bsskinmessagel.MessageDlg('Do you want to close

program' ,mtconfirmation,[ mbyes,mbno] ,O)=mryes then begin

buying. Close; end;

end;

procedure Tbuying.FaturaAlimi 1 Click(Sender: TObject); begin

faturaalimi.show; buying. Visible:=false; end;

procedure Tbuying.Personel 1 Click(Sender: TObject); begin personel.show; buying. Visible:=false; end;

I

I

I

I

I

I

I

I

I

procedure Tbuying.FormCreate(Sender: TObject); begin

bsskindbedit4.Text:=bsskinnumericeditl .text;

bsskindbedit5. Text:=bsskinnumericedit2. text;

I

bsskindbedit8. Text:=bsskinnumericedit3. text ; end;

procedure Tbuying.bsSkinNumericEdit2Exit(Sender: TObject);

begin

bsskinnumericedit3. text:=inttostr( strtoint(bsskinnumericedit 1 . text)* strtoint(bsskin numericedit2 .text));

end;

procedure Tbuying.DBAdvGrid2DblClick(Sender: TObject);

begin

bsskindbedit2. Text:=bsskindbedit9. Text; bsskinpanel l .Visible:=false;

end;

procedure Tbuying. bsSkinButton 1 OCJick(Sender: TObject); begin bsskinnumericeditl .text:="; bsskinnumericedit2.text:="; bsskinnumericedit3.text:="; adotablel .Append; end;

procedure Tbuying.bsSkinButton5Click(Sender: TObject);

begin

adotablel .Prior; end;

procedure Tbuying. bsSkinButton7Click(Sender: TObject ); begin

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

begin adotablel .Edit; adotablel .UpdateRecord; end;

procedure Tbuying. bsSkinButton9Click(Sender: TObject ); begin

adotablel .Next; end;

procedure Tbuying.bsSkinButton6Click(Sender: TObject);

begin

if bsskindbedit I .Text=" then begin

showmessage('Enter ISBN Number'); bsskindbeditl .SetFocus;

end

else if bsskindbedit2. Text=" then

begin

showmessage('Enter Supplier ID'); bsskindbedit2. SetF ocus;

end

else if bsskindbedit3. Text=" then begin

showmessage('Enter name'); bsskindbedit3. SetF ocus; end

else if bsskindbedit6. Text=" then begin

I

showmessage('Enter Yazar');

..

bsskindbedit6.SetF ocus;

end

else if bsskindbcombobox 1. Text=" then begin

showmessage('Enter Category'); bsskindbcombobox 1.SetF ocus; end

else if bsskindbedit7. text=" then begin

I

showmessage('Enter Printing Place');

bsskindbedit7 .SetF ocus;

I

end

else if bsskinnumericedit 1. Text='O' then

I

begin

showmessage('Enter Buying Price'); bsskinnumericedit 1.SetF ocus; end

I

else if bsskinnumericedit2. Text='O' then

begin

I

showmessage('Enter Number Of Unit');

bsskinnumericedit2.SetFocus;

I

end

else

I

begin

I

I

I

end; end;

I

I

I

I

I

I

I

I

I

I

I

I

I

I

procedure Tbuying.bsSkinButton 11 Click(Sender: TObject); begin

if edit I .Text=" then begin

showmessage('Edit is Empty'); edit} .SetFocus;

bsskinpanel2. Visible :=false; end

else begin

adotablel .RecNo:=1; sleep(500);

while not datasource 1.DataSet.Eof do begin

if edit I .Text=bsskindbeditl .text then begin bsskinpanel2.Visible:=false; exit; end; adotablel .Next; end;

if edit} .Text<>bsskindbeditl .text then begin

showmessage('This Record not found'); end;

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

bsskinpanel2.Visible:=false; end; end;

procedure Tbuying. bsSkinButton 12Click(Sender: TObject); begin if editl.Text=" then begin showmessage('Edit is Empty'); editl .SetFocus; bsskinpanel2.Visible:=false; end; else begin adotablel .RecNo:=1; sleep(500);

while not datasource l .DataSet.Eof do begin

if edit 1. Text=bsskindbedit3. text then begin bsskinpanel2.Visible:=false; exit; end; adotablel .Next; end;

if editl .Text<>bsskindbedit3.text then begin

showmessage('This Record not found'); end;

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

bsskinpanel2.Visible:=false; end; end;

procedure Tbuying.bsSkinButtonl 3Click(Sender: TObject); begin

bsskinpanel2. Visible :=true; end;

procedure Tbuying.Report 1 Click(Sender: TObject); begin form l C.show; end; end.

CUSTROMER

unit Unit3; interface uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, bsSkinMenus, bsSkinCtrls, bsdbctrls, Grids, BaseGrid, AdvGrid, DBAdvGrid, DB, ADODB, StdCtrls, Mask, bsSkinBoxCtrls, bsSkinGrids, bsDBGrids, BusinessSkinForm, bsMessages, bsSkinData; type Tcustomer = class(TForm) bsSkinLabel 1: TbsSkinLabel; bsSkinLabel2: TbsSkinLabel; bsSkinLabel3: TbsSkinLabel; bsSkinLabel4: TbsSkinLabel; bsSkinLabel5: TbsSkinLabel;

I

..

bsSkinLabel6: TbsSkinLabel; DataSourcel: TDataSource; ADOTablel: TAD0Table; bsSkinLabel7: TbsSkinLabel; bsSkinPopupMenu

I:

TbsSkinPopupMenu;

I

name customer ID

I:

TMenultem;

I:

TMenultem;

I

bsSkinLabel8: TbsSkinLabel; DBAdvGridl: TDBAdvGrid

I

bsSkinMainMenu process

I:

TMenultem;

I :

TbsSkinMainMenu;

I

Customerl: TMenultem; Supplierl: TMenultem;

I

NI:

TMenultem; Userdetail

I:

TMenultem; Mainmenul: TMenultem; Report

I:

TMenultem; calculatorl: TMenultem; exit

I:

TMenultem; bsSkinMessage

I:

TbsSkinMessage; FaturaAlimi

I:

TMenultem; Personel

I:

TMenultem; Labell: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; bsSkinDBEdit2: TbsSkinDBEdit;

I

I

'

I

bsSkinDBEdit3: TbsSkinDBEdit; bsSkinDBEdit4: TbsSkinDBEdit;

bsSkinDBEdit5: TbsSkinDBEdit; bsSkinDBMemo 1: TbsSkinDBMemo; Editl: TEdit; bsSkinButton 1: TbsSkinButton; DataSource2: TDataSource; ADOQueryl: TAD0Query; bsSkinDBTextl: TbsSkinDBText; bsSkinButton9: TbsSkinButton; bsSkinButtonl 0: TbsSkinButton; bsSkinButton5: TbsSkinButton; bsSkinButton6: TbsSkinButton; bsSkinButton7: TbsSkinButton; bsSkinButton8: TbsSkinButton; bsSkinDBDateEditl: TbsSkinDBDateEdit; bsSkinPanel2: TbsSkinPanel; bsSkinButtonl 1: TbsSkinButton; bsSkinButton 12: TbsSkinButton; bsSkinButton2: TbsSkinButton; bsBusinessSkinForml: TbsBusinessSkinForm; bsSkinDatal: TbsSkinData; bsCompressedStoredSkin 1: TbsCompressedStoredSkin; bsSkinData2: TbsSkinData;

bsCompressedS toredSkin2: TbsCompressedStoredSkin; procedure Customer] Click(Sender: TObject);

procedure Supplier! Click(Sender: TObject);

I

I

I

I

I

..

I

procedure Userdetaill Click(Sender: TObject); procedure Mainrnenul Click(Sender: TObject); procedure calculatorl Click(Sender: TObject); procedure exitl Click(Sender: TObject);

procedure FaturaAlimi 1 Click(Sender: TObject); procedure Personel 1 Click(Sender: TObject );

procedure bsSkinD8Edit2Exit(Sender: TObject);

procedure bsSkinDBEdit3Exit(Sender: TObject); procedure bsSkinButton 1 Click(Sender: TObject); procedure bsSkinButtonl OClick(Sender: TObject); procedure bsSkinButton5Click(Sender: TObject);

procedure bsSkinButton7Click(Sender: TObject); procedure bsSkinButton8Click(Sender: TObject); procedure bsSkinButton9Click(Sender: TObject); procedure bsSkinButton6Click(Sender: TObject);

procedure bsSkinButtonl2Click(Sender: TObject);

procedure bsSkinButtonl 1 Click(Sender: TObject); procedure Reportl Click(Sender: TObject); procedure bsSkinButton2Click(Sender: TObject);

I

-

I

I

I

-

I

i

-

I

i

i

i

I

i

private { Private declarations } public { Public declarations } end; var customer: Tcustomer; implementation

I

i

i

I

..

uses Unit5, Unit4, Unit7, Unit9, Unit2, Unit8, Unit6, UnitlO; {$R *.dfm}

procedure Tcustomer.customerl Click(Sender: TObject); begin buying.show; customer. Visible:=false; end;

I

I

I

procedure Tcustomer.Supplierl Click(Sender: TObject); begin

supplier.show;

customer. Visible:=false; end;

procedure Tcustomer.N I Click(Sender: TObject); begin

sales.show;

customer. Visible:=false;

end;

procedure Tcustomer.Userdetail I Click(Sender: TObject); begin

user_ detail.show; customer.Visible:=false;

end;

I

anamenu.show; customer. Visible:=false; end;

I

I

procedure Tcustomer.calculatorl Click(Sender: TObject); begin

winexec('C:\WIND0WS\System32\calc.exe',9); end;

procedure Tcustomer.exitl Click(Sender: TObject); begin

if bsskinmessage 1.MessageDlg('Do you want to close

program',mtconfirmation,[mbyes,mbno],O)=mryes then

begin

customer. Close; end;

end;

procedure Tcustomer.FaturaAlimi 1 Click(Sender: TObject); begin

faturaalimi.show; customer.Visible:=false; end;

I

procedure Tcustomer.Personel 1 Click(Sender: TObject); begin person el .show; customer. Visible:=false; end;

I

I

I

procedure Tcustomer.bsSkinDBEdit2Exit(Sender: TObject);

begin

if bsskindbedit2.Text=" then begin

showmessage('Enter Name'); bsskindbedit2. SetF ocus; end;

end;

procedure Tcustomer. bsSkinD BEdit3 Exit(Sender: TObject ); begin

if bsskindbedit3. Text=" then begin

showmessage('Enter Surname'); bsskindbedit3. SetF ocus;

end; end;

procedure Tcustomer.bsSkinButton I Click(Sender: TObject); begin

bsskinpanel2. Visible :=true; end;

procedure Tcustomer.bsSkinButton I OC!ick(Sender: TObject); begin

adotablel .Append; end;

I

I

I

..

adotable I .Prior; end;

procedure I customer. bsSkinB utton 7 Click(Sender: TObj ect ); begin adotablel .Delete;

I

I

I

end;

procedure Tcustomer.bsSkinButton8Click(Sender: TObject);

begin

adotablel .Edit;

adotablel .UpdateRecord; end;

procedure Tcustomer.bsSkinButton9Click(Sender: TObject);

begin

adotablel .Next; end;

procedure Tcustomer.bsSkinButton6Click(Sender: TObject);

begin

if bsskindbedit2.Text=" then begin

showmessage('Enter name'); bsskindbedit2. SetF ocus; end

else if bsskindbedit3. Text=" then begin

I

I

I

bsskindbedit3 .SetF ocus; end

else if bsskindbdateedit 1. Text=" then begin

showmessage('Enter Date Of Birth'); bsskindbdateedit 1. SetF ocus;

end

else if bsskindbedit4.text=" then begin

showmessage('Enter Tel'); bsskindbedit4.SetFocus; end

else if bsskindbedit5 .text=" then begin

showmessage('Enter Email'); bsskindbedit5. SetF ocus; end

else if bsskindbmemo 1. text=" then begin showmessage('Enter Address'); bsskindbmemo 1.SetFocus; end else begin adotablel .Post; adotablel .Active:=false; adotablel .Active:=true;

I

I

I

I

I

I

I

I

I

end;

procedure Tcustomer. bsSkinButton 12Click(Sender: TObject); begin

if edit I .Text=" then begin showmessage('Edit is Empty'); edit I .SetFocus; bsskinpanel2.Visible:=false; end else begin adotablel .RecNo:=l; sleep( 500);

while not datasource l .DataSet.Eof do begin

if edit I .Text=bsskindbedit2.text then begin bsskinpanel2.Visible:=false; exit; end; adotablel .Next; end;

if edit I .Text<>bsskindbtextl .Caption then begin

showmessage('This Record not found'); end;

bsskinpanel2.Visible:=false; end;

I

I

I

procedure Tcustomer.bsSkinButtonl 1 Click(Sender: TObject); begin if editl.Text=" then begin showmessage('Edit is Empty'); editl .SetFocus; bsskinpanel2.Visible:=false; end else begin adotablel .RecNo:=1; sleep(500);

while not datasource l .DataSet.Eof do begin

if editl .Text=bsskindbtextl .Caption then begin

bsskinpanel2. Visible :=false; exit;

end;

adotablel .Next; end;

if editl .Text<>bsskindbtextl .Caption then begin

showmessage('This Record not found'); end;

bsskinpanel2. Visible :=false; end;

•.

I

procedure Tcustomer.Reportl Click(Sender: TObject); begin

form 10. show; end;

procedure Tcustomer. bsSkinB utton2 Click(Sender: TObj ect); begin ANAMENU.Show; customer. Visible:=false; end; end.

I

I

I

REPORT

unit Unit IO; interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, BaseGrid, AdvGrid, DBAdvGrid, StdCtrls, DB, ADODB, bsSkinCtrls, Mask, bsSkinBoxCtrls, asgprev, bsSkinData, BusinessSkinForm;

I

type TForml O = class(TForm) ADOQueryl: TADOQuery; DataSourcel: TDataSource; DBAdvGrid 1: TDBAdvGrid; bsSkinDateEditl: TbsSkinDateEdit;

I

I

I

I

I

bsSkinDateEdit2: TbsSkinDateEdit; bsSkinLabel 1 : TbsSkinLabel; bsSkinLabel2: TbsSkinLabel; ADOTablel: TADOTable; ADOTable2: TADOTable; ADOTable3: TADOTable; ADOTable4: TADOTable; DataSource2: TDataSource; DataSource3: TDataSource; DataSource4: TDataSource; DataSource5: TDataSource; bsSkinButtonl: TbsSkinButton; DBAdvGrid2: TDBAdvGrid; DBAdvGrid3: TDBAdvGrid; DBAdvGrid4: TDBAdvGrid; DBAdvGrid5: TDBAdvGrid; AdvPreviewDialogl: TAdvPreviewDialog; AdvPreviewDialog2: TAdvPreviewDialog; AdvPreviewDialog3: TAdvPreviewDialog; AdvPreviewDialog4: TAdvPreviewDialog; AdvPreviewDialog5: TAdvPreviewDialog; bsSkinButton2: TbsSkinButton; bsSkinButton3: TbsSkinButton; bsSkinButton4: TbsSkinButton; bsSkinButton5: TbsSkinButton; bsSkinButton6: TbsSkinButton;

bsBusinessSkinF orm 1: TbsBusinessSkinF orm; bsSkinDatal: TbsSkinData;

I

I

I

I

I

I

I

I

bsCompressedStoredSkin I : TbsCompressedStoredSkin; bsSkinData2: TbsSkinData;

bsCompressedStoredSkin2: TbsCompressedStoredSkin; bsSkinButton7: TbsSkinButton;

procedure bsSkinButton 1 Click(Sender: TObject); procedure bsSkinButton2Click(Sender: TObject); procedure bsSkinButton3Click(Sender: TObject); procedure bsS~inButton4Click(Sender: TObject); procedure bsSkinButton5Click(Sender: TObject); procedure bsSkinButton6Click(Sender: TObject); procedure bsSkinButton7Click(Sender: TObject); private { Private declarations } public { Public declarations } end;

I

I

I

I

var Form

I 0:

TForml O; implementation uses Unit2; {$R *.dfm}

procedure TForm I O.bsSkinButtonl Click(Sender: TObject); begin

'

I

I

..

I

I

I

I

bsskinlabel2.Visible:=true; bsskindateedit I. Visible:=true; bsskindateedit2. Visible:=true; bsskinbutton6. Visible :=true; end;

procedure TF orm I 0. bsSkinButton2Click(Sender: TObject); begin

bsskinbutton6. Visible:=false; bsskinlabel 1. Visible:=false; bsskinlabel2.Visible:=false; bsskindateeditl .Visible:=false; bsskindateedit2. Visible :=false; advpreviewdialog I .Execute;

end;

procedure TForm 1 O.bsSkinButton3Click(Sender: TObject); begin bsskinlabel 1.Visible:=false; bsskinlabel2.Visible:=false; .bsskindateedit I. Visible:=false; bsskindateedit2.Visible:=false; bsskinbutton6. Visible:=false; advpreviewdialog2.Execute; end;

procedure TForml O.bsSkinButton4Click(Sender: TObject); begin

bsskinlabel I. Visible:=false; bsskinlabel2.Visible:=false;

'

I

I

I

bsskindateedit 1. Visible :=false; bsskindateedit2.Visible:=false;

bsskinbutton6.Visible:=false; advpreviewdialog3 .Execute; end;

procedure TForml O.bsSkinButton5Click(Sender: TObject); begin

bsskinlabel 1.Visible:=false; bsskinlabel2.Visible:=false; bsskindateedit 1. Visible:=false; bsskindateedit2. Visible :=false; bsskinbutton6.Visible:=false; advpreviewdialog4.Execute; end;

procedure TF orm 10. bsSkinButton6Click(Sender: TObject ); begin

ADOQUERYl .Close; adoqueryl .SQL.Clear;

adoqueryl .SQL.Add('select

*

from sales');

adoquery 1. SQL.Add('where satis _ tarihi>='+#39+bsskindateedit l .text+#39+' and satis tarihi<'+#39+bsskindateedit2.text+#39); adoqueryl .Open; advpreviewdialog5 .Execute; end;

I

I

I

I

procedure TForml O.bsSkinButton7Click(Sender: TObject); begin

bsskinlabel l .Visible:=false; bsskinlabel2.Visible:=false; bsskindateeditl .Visible:=false;

I

I

I

I

I

I

I

I

I

I

I

I

I

bsskindateedit2. Visible :=fa] se; bsskinbutton6. Visible .=false; ANAMENU.Show; FORMlO.Visible:=false; end; end.

MY PAGE

unit Unitl 1; interface uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, bsSkinCtrls, jpeg, ExtCtrls, StdCtrls, bsSkinData,

BusinessSkinF orm; type TFormll = class(TForm) Label 1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Image 1: Tlmage; bsSkinButton 1: TbsSkinButton; bsBusinessSkinForml: TbsBusinessSkinForm; bsSkinData 1 : TbsSkinData;

I

I

I

I

I

I

I

I

I

I

•

bsSkinData2: TbsSkinData; bsCompressedStoredSkin2: TbsCompressedStoredSkin; procedure bsSkinButton 1 Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form 11: TForml 1; implementation uses Unit2; {$R *.dfm}

procedure TForml 1.bsSkinButtonl Click(Sender: TObject); begin anamenu.show; form 11. Visible:=false; end; end.

PERSONEL

unit Unit6; interface uses

I

I

I

..

bsSkinData; type Tpersonel

=

class(TForm) DataSourcel: TDataSource; ADOTablel: TADOTable; bsSkinLabel 1: TbsSkinLabel; bsSkinLabel2: TbsSkinLabel; bsSkinLabel3: TbsSkinLabel; bsSkinLabel4: TbsSkinLabel; bsSkinLabel 5: TbsSkinLabel; bsSkinLabel 6: TbsSkinLabel; bsSkinLabel 7: TbsSkinLabel; bsSkinDBMemol: TbsSkinDBMemo; bsSkinDBGridl: TbsSkinDBGrid; bsSkinScrol!Barl: TbsSkinScrollBar; bsSkinScrol!Bar2: TbsSkinScrol!Bar; bsSkinMainMenu 1: TbsSkinMainMenu; process l : TMenultem; Customer}: TMenultem; Supplier l : TMenultem; N 1: TMenultem; Userdetail 1: TMenultem; FaturaAlimi 1: TMenultem; Mainmenu 1: TMenultem; Report l : TMenultem; calculator}: TMenultem; exitl: TMenultem;

I

FaturaAlimi2: TMenultem; bsSkinMessage 1 : TbsSkinMessage; Label 1 : TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; bsSkinButton 1: TbsSkinButton; bsSkinButton2: TbsSkinButton; bsSkinButton3: TbsSkinButton; bsSkinButton4: TbsSkinButton; bsSkinButton5: TbsSkinButton; bsSkinButton6: TbsSkinButton; bsSkinDBEdit2: TbsSkinDBEdit; bsSkinDBEdit3: TbsSkinDBEdit; bsSkinDBEdit4: TbsSkinDBEdit; bsSkinDBDateEditl: TbsSkinDBDateEdit; bsSkinDBEdit5: TbsSkinDBEdit; bsSkinDBEditl: TbsSkinDBEdit; bsSkinLabel8: TbsSkinLabel; Editl: TEdit; bsSkinButton7: TbsSkinButton; bsSkinPanel2: TbsSkinPanel; bsSkinButton 11: TbsSkinButton; bsSkinButton 12: TbsSkinButton;

bsBusinessSkinF orm 1: TbsBusinessSkinF orm; bsSkinDatal: TbsSkinData;

I

bsSkinButton8: TbsSkinButton;

procedure Customer I Click(Sender: TObject); procedure Supplierl Click(Sender: TObject); procedure N 1 Click(Sender: TObject);

procedure Userdetail I Click(Sender: TObject); procedure FaturaAlimi I Click(Sender: TObject); procedure FaturaAlimi2Click(Sender: TObject); procedure Mainmenul Click(Sender: TObject); procedure calculatorl Click(Sender: TObject); procedure exit I Click(Sender: TObject);

procedure bsSkinDBEdit2Exit(Sender: TObject); procedure bsSkinDBEdit3Exit(Sender: TObject); procedure bsSkinButtonl Click(Sender: TObject); procedure bsSkinButton2Click(Sender: TObject); procedure bsSkinButton6Click(Sender: TObject); procedure bsSkinButton3Click(Sender: TObject); procedure bsSkinButton4Click(Sender: TObject); procedure bsSkinButton5Click(Sender: TObject); procedure bsSkinButton7Click(Sender: TObject); procedure bsSkinButton 11 Click(Sender: TObject); procedure bsSkinButton12Click(Sender: TObject); procedure Report I Click(Sender: TObject);

procedure bsSkinButton8Click(Sender: TObject); private

{ Private declarations } public

•

var

personel: Tpersonel; implementation

uses Unit5, Unit4, Unit7, Unit9, Unit3, Unit8, Unit2, UnitlO; {$R *.dfm}

procedure Tpersonel.Customerl Click(Sender: TObject); begin

buying.show;

personel.Visible:=false; end;

procedure Tpersonel.Supplierl Click(Sender: TObject); begin

supplier.show;

personel.Visibler=false; end;

procedure Tpersonel.N 1 Click(Sender: TObject); begin

sales.show;

person el. Visible :=false; end;

procedure Tpersonel.U serdetail 1 Click(Sender: TObject); begin

user_ detail.show; person el. Visible:=false; end;

personel.Visible:=false; end;

procedure Tpersonel.FaturaAlimi2Click(Sender: TObject);

begin

faturaalimi.show; personel.Visible:=false; end;

procedure Tpersonel.Mainmenul Click(Sender: TObject); begin

anamenu.show;

personel.Visible:=false; end;

procedure Tpersonel.calculatorl Click(Sender: TObject); begin

winexec('C:\WIND0WS\System32\calc.exe',9); end;

procedure Tpersonel.exitl Click(Sender: TObject); begin

if bsskinmessage 1.MessageDlg('Do you want to close

program',mtconfirmation,[mbyes,mbno],O)=mryes then

begin

personel.Close; end;

end;

procedure Tpersonel.bsSkinDBEdit2Exit(Sender: TObject);

begin

'

showmessage('Enter Name'); bsskindbedit2.SetFocus; end;

end;

procedure Tpersonel.bsSkinDBEdit3Exit(Sender: TObject);

begin

if bsskindbedit3.Text=" then begin

showmessage('Enter Surname'); bsskindbedit3 .SetF ocus;

end; end;

procedure Tpersonel. bsSkinButton 1 Click(Sender: TObject); begin

adotable I .Prior; end;

procedure Tpersonel.bsSkinButton2Click(Sender: TObject);

begin

if bsskindbedit 1. Text=" then begin

showmessager'Enter Personel ID'); bsskindbeditl .SetFocus;

end

else if bsskindbedit2.Text=" then begin

•

end

else if bsskindbedit3. Text=" then begin

showmessage('Enter Surname'); bsskindbedit3.SetFocus;

end

else if bsskindbedit4. Text=" then begin

showmessage('Enter Tel'); bsskindbedit4. SetF ocus; end

else if bsskindbedit5.Text=" then begin

showmessage('Enter Personel Email'); bsskindbedit5. SetF ocus;

end

else if bsskindbdateedit 1. text=" then begin

showmessage('Enter Personel date'); bsskindbdateedit 1. SetF ocus;

end

else if bsskindbmemo 1. Text=" then begin

showmessage('Enter Personel Address'); bsskindbmemo 1. SetF ocus;

I

begin adotable I .Post; adotable l .Active:=false; adotablel .Active:=true; end; end;

procedure Tpersonel.bsSkinButton6Click(Sender: TObject);

begin

adotablel .Append; end;

procedure Tpersonel.bsSkinButton3Click(Sender: TObject);

begin

adotablel .Delete; end;

procedure Tpersonel.bsSkinButton4Click(Sender: TObject);

begin

adotablel .UpdateRecord; end;

procedure Tpersonel.bsSkinButton5Click(Sender: TObject);

begin

begin

bsskinpanel2. Visible :=true; end;

procedure Tpersonel. bsSkinButton 11 Click(Sender: TObject ); begin

if edit I. Text=" then begin

showmessage('Edit is Empty'); edit I .SetFocus;

bsskinpanel2. Visible :=false; end

else begin

adotable 1.RecNo:= I; sleep( 500);

while not datasourcel .DataSet.Eof do begin

if edit I .Text=bsskindbeditl .Text then begin bsskinpanel2.Visible:=false; exit; end; adotablel .Next; end;

I

showmessage('This Record not found'); end;

bsskinpanel2. Visible :=false; end;

end;

procedure Tpersonel. bsSkinButton 12Click(Sender: TObject ); begin

if edit I .Text=" then begin

showmessage('Edit is Empty'); edit I .SetFocus;

bsskinpanel2. Visible :=false; end

else begin

adotablel .RecNo:=l; sleep( 500);

while not datasourcel .DataSet.Eof do begin

if edit I .Text=bsskindbedit2.text then begin

bsskinpanel2. Visible :=false; exit;

..

if edit I .Text<>bsskindbeditl .Text then begin

showmessage('This Record not found'); end;

bsskinpanel2. Visible :=false; end;

end;

procedure Tpersonel.Reportl Click(Sender: TObject); begin

form IO.show; end;

procedure Tpersonel.bsSkinButton8Click(Sender: TObject);

begin ANAMENU .Show; personel.Visible:=false; end; end.

SALES

unit Unit7; interface uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, bsSkinCtrls, DB, ADODB, bsSkinBoxCtrls, bsdbctrls, bsSkinGrids, bsDBGrids, StdCtrls, Mask, asgprint, Grids, BaseGrid, AdvGrid, DBAdvGrid, Menus, BusinessSkinForm, bsMessages, ExtCtrls, asgprev, frxC!ass,

I

type Tsales

=

class(TForm) DataSourcel: TDataSource; ADOTablel: TADOTable; bsSkinLabel 1: TbsSkinLabel; bsSkinLabel2: TbsSkinLabel; bsSkinLabel3: TbsSkinLabel; bsSkinLabel4: TbsSkinLabel; bsSkinLabel5: TbsSkinLabel; bsSkinLabel6: TbsSkinLabel; bsSkinLabel 7: TbsSkinLabel; bsSkinLabel8: TbsSkinLabel; bsSkinDBDateEditl: TbsSkinDBDateEdit; bsSkinLabel 14: TbsSkinLabel; bsSkinDBTextl: TbsSkinDBText; DataSource2: TDataSource; ADOTable2: TAD0Table; bsSkinDBEditl: TbsSkinDBEdit; DBAdvGridl: TDBAdvGrid; bsSkinMainMenu 1: TbsSkinMainMenu; process 1: TMenultem; Customer I: TMenultem; Supplier l : TMenultem; Nl: TMenultem; Userdetail 1: TMenultem; FaturaAlimi 1: TMenultem;