saklviTüal½y PñMeBjGnþrCati mhaviTüal½y

viTüasaRsþkMuBüUÚT½r nig visVrkmµ

saklviTüal½y
PñMeBjGnþrCati

karbegáItRbBn§½RKb;RKg
elIkarlk;GaharTan;citþ
( Fast Food Billing Management System )

krNIsikSa³ hag The Shop

eroberog nig cgRkgeday³

dwknaMeday³
1> nisSit miuj BuT§a
sa®sþacarü³ eCom siT§I
2. nisSit ram Kasar:avuDÆ
CMnaj Database Programming i
karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüUÚT½r nig visVrkmµ
3. nisSit siub Qag
4. nisSit eT,g Bisidæ
5. nisSit ehg vutßa
6. nisSit RKI can;Na

qñaMsikSa 2005-2009

CMnaj Database Programming ii

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüUÚT½r nig visVrkmµ

mtirgVaytMélrbs;KN³kmµkar
.......................................................................................................................................................

.......................................................................................................................................................

.......................................................................................................................................................

.......................................................................................................................................................

.......................................................................................................................................................

.......................................................................................................................................................

.......................................................................................................................................................

.......................................................................................................................................................

eKatþnam nig nam tYnaTI htßelxa

kalbriecäT
............................................. ...................... ...................... ......................................

............................................. ...................... ...................... ......................................

............................................. ...................... ...................... ......................................

............................................. ...................... ...................... ......................................

............................................. ...................... ...................... ......................................

CMnaj Database Programming i

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüUÚT½r nig visVrkmµ

RkumRsavRCav
nigcgRkgsarNa
eQµaHnisSit htßelxanisiSt
kalbriecäT
1> elak miuj BuT§a ............. .....................
2> elak ram Kasar:avuDÆ . ......................................
3> elak siub Qag ................................. ......................................
4> elak eT,g Bisidæ............... .....................
.................. .....................
..................
5> elak ehg vutßa ................. .....................
6> elak RKI can;Na .............. .....................

kalbriecäT
saRsþacarüdwkna
MsresrsarNa
htßelxanigeQµaH

CMnaj Database Programming ii

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüUÚT½r nig visVrkmµ

esckþIEføgGMNrKuN
eyIg´CanisSitqñaMTI4 CMnan;TI4 Epñk Computer
Science CMnaj Database Programming én
saklviTüal½yPñMeBjGnþrCati sUmEføgGMNrKuN
y:agRCaleRCAcMeBaH ³
- Rkumh‘un K Digital Solutions
Edl)anGnuBaØat[RkumeyIgxJMúeFVIkarsresrkmµv
iFIRKb;RKg kar lk;EdlCarebobRbBn§½ Fast Food
rbs;elakRsI Griet Lorre EdlCanayika énGahardæan The Shop
edIm,IRKb;RKgeTAelIkarlk;dUrRbcaMéf¶.
- elaksaRsþacarü eCom siT§I
Edlelak)ancMNayGs;kMlaMgkaycitþkñúgkardwkna
MRkumeyIg´ edIm,IsresrsarNa bBa©b;karsikSaenH
k¾dUcCakarbgðat;beRgony:agykcitþTukdak;
dl;RkumeyIg´TaMgGs; KñapgEdr.
- elak elakRsI saRsþacarüTaMgGs;
Edl)anpþl;nUvcMeNHdwgd¾mantMélRKb;muxviC
¢adl;Rkum eyIg´ Gs;ry³eBl4qñaMknøgmkenH
CaBiesssUmEføgGMNrKuNcMeBaHelakRBwT§bur

CMnaj Database Programming iii

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüUÚT½r nig visVrkmµ
s Em:n sara:vuF Edl)an CYysRmYldl;kargarrbs;eyIg´
nig)anbgðat;beRgoneyIg´)any:agl¥.
- CaBiessbMputeyIg
´sUmEføgGMNrKuNy:agRCaleRCA
nigRbkbedaykþIktþBaØÚtþaFm_CaTIbMputcMeBa
H elak«Buk Gñkmþay
Edl)anpþl;kMeNItciBa©wmbI)ac;EfrrkSaeyIg
´taMgBItUc rhUtdl;eroncb;fñak; briBaØab½Rt
edayykGs;TaMgkMlaMg;kaycitþEfrkSa Gb;rM
TUnµaneRbonRbedA CYyTMnukbMrug EpñksµartI
nigsMPar³ fvika dl; eyIg´. minRtwmEtb:ueNÑaH
elakTaMgBIr)aneFVIkarBuHBar]bsKÁRKb;
Ebby:agTaMgGs; sMrab;eyIg´ rhUtTal;
Et)anbBa©b;fñak;briBaØab½RtenH
nigbgb¥ÚnBaØatimitþTaMgGs;
Edl)anpþl;kMlaMgcitþdl; RkumeyIg´.
CafµImþgeTot eyIg
´sUmEføgGMNrKuNcMeBaHelak elakRsI
saRsþacarü nigmitþrYmCMnan;TaMgGs;
EdlCYypþl;Camtieyabl;
nigÉksarepSg²Edlmansar³sMxan;sMrab;karRsavRCa
venH.
enATIbBa©b;enH eyIg´TaMgR)aMmYynak;
sUmRbsiT§iBrC½y
CUnelakGñkmanKuNTaMgBIrRBmTaMg elak
CMnaj Database Programming iv
karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüUÚT½r nig visVrkmµ
elakRsI
EdlCaRKUsaRsþacarüTaMgGs;sUmRbkbedayBuT§
BrTaMg05KW ³ Gayu vNѳ sux³ Bl³ bdiPan³
kMubIeXøógXøateLIy
nigTTYleCaKC½yRKb;Parkic©.

CMnaj Database Programming v

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüUÚT½r nig visVrkmµ

GarmÖkfa
elakRKU GñkRKU mitþGñksikSa nig
bgb¥ÚnCasisSnisiStTaMgLayCaTIrab;Gan
eyIgxJúMTaMgGs;Kña
CanisitSmhaviTüal½yviTüasaRsþkMBüÚT½r
nigvisVkmµ CMnan;TI4
énsalklviTüal½yPñMeBjGnþrCati qñaMsikSa 2005-
2009 EdlmansmaCikcMnYn06rUb )
anrYbrYmeFIVkarsikSaRsavRCavcgRkgCaesovePA
sarNa edIm,I bBa©b;karsikSafñak;briBaØab½Rt
enAsaklviTüal½yPñMeBjGnþrCati
ehIyesovePAenHnwgkøayCa Éksar sMrab;
sisSnisiStCMnan;eRkayeFIVkarRsavRCavpgEdr.
edayehtufa esovePAenHCaesovePAsarNa
sMrab;bMeBjkRmitfñak;briBaaØb½Rt
nigedayeyIgxJúM BuMsUvmanbTBiesaFn-
_BImunmkdUecñHehIyeyIgxJúMeCOCak;fakMhusq
ÁgBitCamanedayRbkarmYycMnYn dUcCa Bakü
eBcn¾ XøaeXøag k¾dUcCaGtßn½y. ehtudUcenH
eyIgxJúMsUmeFIVkarGP½yeTasTukCamun ebIman
kMhusqÁgnUvRbkar NamYyedayGcinþa.

CMnaj Database Programming vi

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüUÚT½r nig visVrkmµ
eyIgxJMúsgÇwmfa elakRKU GñkRKU
mitþGñksikSaBitCamankareyaKyl;
nigGaFüaRs½ynUvral;
kMhusqÁgTaMgLayrWkgVHxatEpñkNamYyénkar
Bnül;Rtg;cMnucNamYyBitCaminxan.
eyIgxJúMrIkray nigrg;caM TTYlyknUvkarriHKn;
EklMGBIsMNak;mitþGñksikSa edayemRtIPaB.
CaTIbBa©b; xJúMsUmeKarBCUnBrdl;
elakRKU GñkRKU RbiymitþGñkGan
nigbgb¥ÚnCanisiStTaMgGs;
eGayTTYl)annUvsMNagl¥ nig
eCaKC½yCanic©RKb;Parkic©kargar.

CMnaj Database Programming vii

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüUÚT½r nig visVrkmµ

mUln½ysegçb
( Abstract )

RsbeBlEdlviTüasaRsþ
kMBugEtmankarrIkcMerInya:gxøaMgBImYyéf¶eT
AmYyéf¶ RbeTsCaeRcInenA elI BiPB
elakkMBugepþatGarmµN_y:agxøaMg
eTAelIvis½yB½t’manviTüa
kñúgeKalbMNgedIm,ICYysMrYlenAkñúgkar
RKb;RKg
nigkarTMnak;TMngeTAnwgvis½ydéTepSg²eTot.
edaysarktþaTaMgenHehIy eTIbsakl viTüal½y
PñMeBjGnþrCati EdlCaRKwHsßan]tþmsikSamYy )
aneFIVkarpSBVpSaynUvvis½yB½t’manviTüa
enHkñúgeKalbMNg
edIm,IbegáInnUvcMeNHdwgCaBiessKWedIm,IGPi
vDÆn_FnFanmnusSeGaykan;EtmankarrIkcMerIneh
Iyk_CMrujeGay
manPaBsmRsbeTAnwgkarvivDÆn_énvis½yenHdl;si
sSanusisSnisiSt.TnÞwmnwgenH saklviTüal½y )
aneRbI bec©kviTüaB½t’man énkarsikSa
nigB½t’manepSg²rbs;sisSnisSit saRsþacarü buKÁlik
sikSakñúgRKwHsßan saklviTüal½y.
kñúgenaHEdrcMeBaHkarRKb;RKgB½t’manepSg²e
Tot rbs;sisS nisiSt CaBiesskarRKb;RKg
CMnaj Database Programming viii
karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüUÚT½r nig visVrkmµ
BinÞúsisSk_)aneRbIbec©kviTüaenHedIm,IRKb;RK
gpgEdr. edayehtuenHehIy " karRKb;RKgRbBn§½
karlk;én Gahardæan enARbeTskm<úCa "

krNIsikSa " The Shop " CaRbFanbT

mYyRtUv)anRkumeyIg´elIkyk mksikSa.

CMnaj Database Programming ix

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüUÚT½r nig visVrkmµ

matika
TMB½r
KN³kmµkarBinitü nigvaytMél.................................................i
RkumRsavRCav nigsresrsarNa.............................................ii
esckþIEføgGMNrKuN........................................................................iii
GarmÖkfa............................................................................................................iv
mUlsegçbsarNa...............................................................................................v
matika...........................................................................................................................vi
taragrUbKMnUsbMRBYj.............................................................x
Bakükat;..................................................................................................................xi
Éksareyag.............................................................................................................42
Appendix.............................................................................................................................43

CMBUkTI 1 esckþIepþIm...............................................................1
1.1 savtarbs; Gahardæan The Shop .....................................................1
1>2 karkMNt;bBaðaénkarsikSa.................................................2
1>2>1 karkt;RtaTinñn½yedayéd nig eRbIRbB½n§
files 2
1>2>2 karcMnayeBlevla nig
cMnayfvikareRcInelIRbtibtþikargar.........................................3
1>2>3 RbB½n§minsUvmansuvtþiPaB nig
cMNayFnFanmnusSelIslub....................................................................3
1>2>4
kareFIVr)aykarN¾BMuc,as;las;sMrab;karlk;dUr 3

CMnaj Database Programming x

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüUÚT½r nig visVrkmµ
1>3 eKalbMNgénkarsikSa..................................................................3
1>4 GtßRbeyaCn¾énkarsikSa .....................................................4
1>5 TMhM nig EdnkMNt;énkarsikSa ...............................5
CMBUkTI 2
rMlwkRTwsþIEdlBak;B½n§RbFanbT..........................6
2>1 etI Fast Food KWCaGIV ?..................................................................6
2>2 RTwsþIEdlBak;B½n§mYycMnYn.............................6
2>2>1 Database.......................................................................................................7
2>2>2 DBMS ( Database Management System )...................................................7
2>2>2>1 Defining Database.....................................................................................7
2>2>2>2 Constructing a Database............................................................................7
2>2>2>3 Manipulating a database.............................................................................8
2>2>3 kareRbIR)as; Database..............................................................8
2>3 PaBxusKñarvagRbB½næ DATABASE nig RbBnæ½
FILE........................................................................................................................................9
2>4 RELATIONSHIPH SETS..............................................................................................10
2>4>1 ONE-TO-ONE RELATIONSHIP..................................................................10
2>4>2 ONE-TO-MANY RELATIONSHIP.............................................................11
2>4>3 MANY-TO-ONE RELATIONSHIP..............................................................11
2>4>4 Many-To-Many Relationship.........................................................................12
2>5 DATAMODEL .........................................................................................................12
2>5>1 ENTITY-RELATIONSHIP MODEL ( E-R ) ...........................................12
2>5>2 RELATIONAL MODEL ......................................................................14
2>5>3 OBJECT-RELATIONAL MODEL.............................................................14
2>6 KEY.......................................................................................................................14
2>6>1 PRIMARY KEY............................................................................................... 14

CMnaj Database Programming xi

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüUÚT½r nig visVrkmµ
2>6>2 FOREIGN KEY............................................................................................... 14
2>7 Phase of the System Development Life Cycle (SDLC)...........................................15
2>7>1 System Planning................................................................................................ 15
2>7>2 System Analysis...............................................................................................15
2>7>3 System Design..................................................................................................15
2>7>4 System Implementation.............................................................................15
2>7>5 System Support..........................................................................................16
2>7>6 Interaction enAkñúg System Development Life Cycle................16
2>8 Interface ..................................................................................................................16
2>8>1 System Interface.......................................................................................17
2>8>2 User Interface...........................................................................................17
2>9 Data Normalization.................................................................................................17
2>9>1 First Normal Form............................................................................17
2>9>2 Second Normal Form........................................................................17
2>9>3 Third Normal Form (3NF)................................................................18
k> lkçN³qøgénGnuKmn_ (Transitive Functional Dependency)
..............................................................................................................................................18
x> niymn½y én 3NF..........................................................................18
2>10 nimitþsBaØaepSg²eRbIenAkñúg E-R Diagram.....19
2>11 nimitþsBaØaeRbIenAkñúg CARDINADITY NOTATION rbs;
E-R DIAGRAM.............................................................................................................................. 19

2>12 nimitþsBaØaepSg²enAkñúg E-R Diagram Entities Relationship

Diagram ( ERD ) 20

CMnaj Database Programming xii

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüUÚT½r nig visVrkmµ

MBUkTI3 karsikSaRsavRCav nigviFIsaRsþ ¬Research

¦
Design and Methodology .....................................................................................................22

3>1 tMbn;rWTIkEnøgsMrab;eRCIserIsykmksikSa
(Selection of the Study area)................................................................................................22
3>2 RbPB nig karRbmUlTinñn½y (Data source and Collection):
........................................................................................................................................................ 22

3>2>1 Tinñn½ycMbg (Primary Data)..................................................22

3>2>2 Tinñn½ybnÞab;bnSM (Secondary Data).........................23
3>3 viFIsaRsþkñugkarsikSa (Methodology of Student):...................23
3>3>1 System Development Life cycle ( SDLC )......................................................24
k> kareFVIKMerag (System Planning ) ...........................................24
x> kareFVIkarviPaK ( System Analysis ) .......................................24
K> karrcnaRbBnæ½ ( System Design ) ...........................................24
X> karGnuvtþn_elIRbBnæ½ ( System Implement ) .............25
g> karRbtibtþikarN_elIRbBnæ½ ( System Operation and Support )
25
3>3>2 viPaKeTAelIRbB½næ§fµI.................................25
3>3>3 karBiBN½naBI Field of Table ( Table field description )25
.....................................................3>3>4 Flow Chart
26
3>3>5 Design and Implementation........................................................................26
3>3>6 Database (Relationship):.............................................................................27
3>4 kmµviFIRKb;RKgRbB½n§Tinñn½y (Database
Applictaion Package)............................................................................................................27

CMBUkTI4 karviPaKTinñn½y nig lT§pl.....................29

4>1 sMeyaK........................................................................................................29
CMnaj Database Programming xiii
karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüUÚT½r nig visVrkmµ
4>2 TidæPaBTUeTArbs;kmµviFI ......................................29

CMBUkTI5 karviPaKeTAelI lT§plén karRsavRCav

..............................................................................................................................................39

5>1 lT§plénkarRsavRCav.................................................................39
5>2 lT§plénkarviPaKeTAelIRbB½næ..............................39
5>2>1 RbB½n§cas;..................................................................................39
5>2>2 RbB½n§fµI.................................................................................... 40
CMBUkTI 6 esckIþsnñid§an nig Gnusasn_....41
5>1 esckþIsnñidæan.......................................................................41
5>2 eyabl;sMrab;karRsavRCavelIkeRkay........41

CMnaj Database Programming xiv

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüUÚT½r nig visVrkmµ

taragrUbKMnUsbMRBYj
- rUbPaB 1 Relationship Set Selling Product ........................................................... 10

- rUbPaB 2 One-To-One Relationship...........................................................................10

- rUbPaB 3 One-to-Many Relationship..........................................................................11
- rUbPaB 4 Many-to-One Relationship..........................................................................11
- rUbPaB 5 Many to Many Relationship..................................................................12
- rUbPaB 6 Phase of System Development Life Cycle.............................................15
- rUbPaB 7 Interaction én System Development Life Cycle..........................16
- rUbPaB 8 Relationship Degree.................................................................................43
- rUbPaB 9 Relationship Cardinality..........................................................................20
- rUbPaB 10 Process of Sales Environment..........................................................21
- rUbPaBTI 11
dMNak;kalénkarviPaKeTAelIRbBnæ½..........................24
- rUbPaB 12 Flow Chart............................................................................................26
- rUbPaB 13 Database Relationship..........................................................................27
- rUbPaBTI 14 Login Screen.........................................................................30
- rUbPaBTI 15 Interface of Main Form.........................................................30
- rUbPaBTI 16 Interface of Create floor........................................................31
- rUbPaBTI 17 Interface of Create Table......................................................32
- rUbPaBTI 18 Cashier Main Form...............................................................33
- rUbPaBTI 19 Interface of Main Order Form..............................................34
- rUbPaBTI 20 Interface of Sale Cashier Form............................................35
- rUbPaBTI 21 Receipt..................................................................................36

CMnaj Database Programming xv

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüUÚT½r nig visVrkmµ
- rUbPaBTI 22
r)aykarN¾lMGitrbs;GñkKitluynImYy²...........................37
- rUbPaBTI 23 Total Each Cashier Sale Report ..........................................37

CMnaj Database Programming xvi

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüUÚT½r nig visVrkmµ

Abbreviation Word

DB Database Management

1NF First Normal Form

2NF second Normal Form

3NF Third Normal Form

DBMS Database Management System

E-R Model ENTITY-RELATIONSHIP MODEL

ERD Entities Relationship Diagram

NF Normalization Form

ODBMS Object Database Management System

ORD Object-Relational Database

POS Point of Sale

RDBMS Relational Database Management System

SDLC System Development Life Cycle

TFD Transitive Functional Dependency

CMnaj Database Programming xvii

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
CMBUkTI1
esckþIepþIm
karrIkcMerInénviTüasaRsþbec©kviTüa
nigkarvivtþn_énkarrs;enAmnusSelaknasm½y
sklPavU
nIykmµenHKWmankarrIkcMerInRsbeTACamYy
Kña.edayehtuenHehIyeTIbviTüasaRsþnigbec©kvi
TüaTaMgGs;
KWRtUvbegáIteT,IgkñúgeKalbMNgCYysRmYldl
;kic©karmnusSelak
nigedIm,IbMerIRbeyaCn_eGaymnusS . dUcenH
mann½yfamnusSKWCaGñkbegáItviTüasaRsþ
nigbec©kviTüaedImI,ykmkeRbIR)as;eTAtamkare
cHdwg nigkar yl;eXIjrbs;mnusSxus²Kña.
TnÞwmnwgenHpgEdr
rbkKMehIjénviTüasaRsþkuMBüÚT½r
Edlcab;taMg BIstvtSTI20mk )
aneFIVeGaymnusSTUTaMgBiPBelakTTYlsÁal;n
UvsmtßPaBrbs;va Edl)anCYysRmYl
kic©karmnusSCaeRcInTaMgEpñksgÁm
esdækic© neya)ay hirBaØvtßú CaedIm.
CaBiessKW)anCYyBRgIknUv
cMeNHdwgeday\tRBMEdn
RBmTaMgkarpSBVpSayB½t’mand¾mhimaGMB

CMnaj Database Programming 1

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
IB½t’mannImYy²[TTYl)anTan;ehtu karN_
nwgkarTMnak;TMngBIkEnøgmYyeTAkEnøgmY
ymanPaBgayRsYltamry³énkarrIkcMerInenH
KWman bec©kviTüaCaeRcIndUcCa Internet E-mail , Fax ,
Phone,… EdlGaceGayB½t’manesÞIrRKb;TIkEnøg
elIBiPBelakenHeTAdl;mnusSRKb;²Kña.
RsbCamYyKñaenH
kargarmYycMnYnRtUv)aneKeRbIkuMBüÜrT½r
CMnYs mnusSvijpgEdr edayGaRs½ydUcenHehIy
eTIbbec©kviTüakuMBüÜrT½rlUtlas;kan;EtTMen
IbxøaMgeLIg² BImYyéf¶eTAmYyéf¶
eBalKWedImÇIsRmYlkargarmnusSeGaykan;EtR
besIreLIg EfmeTot. TnÞwmnwgkar
rIkcMerInénviTüasaRsþenHpgEdr
RBHraCaNacRkkm<úCak¾CaRbeTsmYyEdlkMB
ugEtmankarrIkduHdalelI vis½ydéTnanaepSgeTot
nigrYmmanFnFanGñkbec©kviTüaesÞIrRKb;Epñk
nigesÞIrRKb;vis½y CaBiessenAkñúg
vis½ykuMBüÚrT½renHEtmþg.
edaykaryl;eXIjTaMgenHehIyeTIbbc©úb,nñenHey
IgeXIjmanhagGaharfµI²
EbbTMenIb²Tan;sm½yCaeRcInEdl)anepþatGarm
µN_kñúgkarbNþak;TunrksuI )
annwgkMBugbMBak;nUvkmµviFIfµI²
EdlRKb;RKgkarlk;dUrrbs;pgeK
CMnaj Database Programming 2
karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
edImI,CYysRmYl[kan;EtmanPaBgayRsYl
nigPaBrh½sTan;citþ.
tYy:agdUcCamanhagGahareQµaH The Shop

EdlCaRkumh‘unlk;mðÚbGaharrh½sTan;citþ ( Fast
Food ) mYykñúg
cMeNamhagGaharCaeRcInenARBHraCaNacRkk
m<úCa.
1>1 savtarbs;Gahardæan The Shop
The Shop Cambodia

CahagGaharmYyEdlTMenIbTan;sm½yPaKeRcIné
nePJoveTscrN_breTs
mkTsSnaenARBHraCaNacRkkm<úCa
EtgEtcUlmkjaMuGaharenAhag The Shop.

edaysarEtmanPaB Tak;Tajy:agdUecñHehIj
eTIb)anCahagtMrUveGaymanesvakmµl¥Tan;citþ.
The Shop manTItaMgenAxag ekItRBHbrmraCvaMg

EdlmanGs½ydæan pÞHelx39 pøÚvelx246

TIRkugPñMeBj EdlmanelakRsI Griet Lorre sBa
¢ati)araMgCaGñkcat;karTUeTA.
1>2 kMNt;bBaðaénkarsikSa
edayeyagtamkarsegáteTAelIkarrksIuRbcaMéf¶
Business Activities nigtamkarcuHkmµsikSa
edaypÞal;CamYyRkumh‘un K Digital Solution

nigePaCnIydæan The Shop

EdlbMerIkareTAelIesvakmµ muxmðÚbTan;citþ
( Fast Food )

CMnaj Database Programming 3

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
RBmTaMgtamry³karcuHsMPasn_pÞal;BIbuKÁlik
EdlbMerIkarenATIenaH. eyIg
GackMNt;)annUvbBaðamYuycMnYndUcCa ³
1>2>1 karkt;RtaTinñn½yedayéd
nigeRbIRbB½n§ Files

haglk;TMnijmYycMnYnenAEtkMBugbnþkarRKb
;RKgRbtibtiþkarlk; nigRbtibtþikarepSg²edayéd.
karKitR)ak;nigeFVIRbtibtþikarepSg²edayédGacC
YbbBaðamYycMnYndUcCaGñkKitR)ak;GacePøc
nUvtMélTMnij
b¤GacRcLMnUvtMélTMnijehIyCYnkalGacmanka
rKitR)ak;xusk¾manEdl eFVI[manPaBFujRTan;
nig)at; bg;TMnukcitþBIsMNak;GtifiCn.
bBaðaenHgayRsYlnwgekIteLIgcMeBaHhaglk;TM
nij Edlmanlk;TMnij eRcInmux.
müa:gvijeTotkarKitR)ak;edayédGaccMNayeBleRc
InRbsinGñkTijTMnijeRcInmuxkñúgeBlEt
mYyeRBaHkarKitR)ak;RtUv)anKNnatammuxTM
nijnImYy².eday)aneXIjBIbBaðaenHEtgEtekItmane
LIgCajwkjab;eTIbhaglk;TMnijmYycMnYnBüaya
mCYlbuKÁlikbEnßm

CMnaj Database Programming 4

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
edIm,IbMeBjesvakmµlk;eGay)anqab;
rh½ssMrab;bMerIGtifiCn
EtdMeNaHRsayenHKWTamTarkarcMNayfvikabE
nßmsMrab;CYlbuKÁlik. müa:gvij
eToteRkABImanbBaða
nigPaBlM)akedaysarRbtibtþikarlk;KitR)ak;edayéd
xagelIk¾manbBaðamYycMnYn
eTotEdrEdlTak;Tgnwgkarkt;RtaB’t½manepSg²eda
yeRbIR)as;Rkdas.kñúgGaCIvkmµlk;dUrTinñn½ye
pSg² dUcCaTinñn½yénkarlk; karbBa¢aTijTMnij
karTTYlTMnij karRKb;RKg snñiFiTMnij
karEktMrUvsþúk karepÞr
TMnijkñúgsþúkCaedImRtUv)aneKerobcMy:agykc
itþTukdak;nigRtwmRtUvEtebIsinkarerobcMenHe
RbIR)as;Rkdas;
edIm,Ikt;RtavijeKGacmanPaBlM)akkñúgkarTukda
k;Tinñn½yTaMgenaH[mansuvtþiPaB
eRBaHvaGacmankar xUcxatedayktþaepSg²)an
ehIymüa:geBlxøHvamanPaBlM)aksMrab;kareFVI
r)aykarN_RbcaMéf¶ RbcaMEx RbcaMqñaM
b¤xN³eBlNamYyeTotpg.

CMnaj Database Programming 5

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
edayELkeRkABIkarKitR)ak;TMnijedayéd
k¾manhaglk;TMnijmYycMnYneRbIR)as;kmµviF
IRKb;RKg karlk;CalkçN³ File System

dUcCakareRbIR)as;kmµviFI Microsoft Word b¤ Microsoft Excel

CaedIm edIm,IRKb;RKgelIRbtibtþikarlk;
nigRbtibtþikarepSg²enAkñúghag.
etImanbBaðaGVIxøHEdlCaplGviC¢man
cMeBaHkarRKb;RKgenH?
BitNas;kareRbIR)as;RbBn½§ File System

enHBitCaGacmannUvKuNvibtþidUcCa
Tinñn½yGacmansÞÜn
GñkeRbIR)as;minGaceFVIkar Access

elIsBImñak;kñúgeBlEtmYy)an Bi)akkñúgkarTaj
Tinñn½ymkeRbIR)as; ehIycMeBaH Security

KWenAmankMritTab.
1>2>2 karcMnayeBlevla
nigcMnayfvikaeRcInelIRbtibtþikar
eyIgsegáteXIjfa
PaByWty:avénkarKitR)ak;enAGMT,úgeBlEdlman
ePJóveRcIn dUecñHPaBPan;
RcT,MGacnIgekIteT,Igy:aggay
EdlGacKitR)ak;xuseFIVeGay)at;R)ak;cMnUlrbs;h
agk¾dUcCaxVHkarTuk citþBIePJóvnana.

CMnaj Database Programming 6

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
minRtwmEtb:ueNÑaHkarkt;RtaedayédRtUvcMN
ayfvikaeTAelIRkdas; esovePA b‘íc nig
sMPar³epSg²eTot.
1>2>3 RbB½n§minsUvmansuvtþiPaB
nigcMNayFnFanmnusSelIslub
kñúgkarrkSaTukTinñn½yedayRkdas
dUc)anerobrab;xagelI
KWBuMmansuvtþiPaBdUckarrkSaTukCa
RbBn§½ Database eTBIeRBaHGacxUcrW)at;ya:ggay.
RBmTaMgRtUvkarbuKÁlikeRcInsMrab;bMerIesv
akmµedIm,I bMeBjnUvtMrUvkarGtifiCn.
1>2>4
kareFIVr)aykarN¾BMuc,as;las;sMrab;karlk;dUr

RsbKñaenHEdrkareFIVr)aykarN_k¾manPaBlM)a
k
eRBaHEtBi)akRsg;ykTinñn½yBIkarlk;RbcaMéf¶
RbcaMEx rWqñaM
edaysarEtmanPaBlM)akelIkarRKb;RKgÉksarlk;d
Ur EdlbNþalmkBIkar)at;bg;nUv Éksar
rWkarekgbnøMr)aykarN_rbs;buKÁlikedaycinþa
rWGcinþakIþ.

CMnaj Database Programming 7

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
CaehtunaMeGayhagmicGacRsg;nUv
r)aykarN_mYyEdlGaceCOTukcitþ)an.
1>3 eKalbMNgénkarsikSa

edayyl;eXIjGMBIbBaðaEdlekItmaneT,IgcMeBaH
karRbkbrbrRbcaMéf¶ Business Activities eTIbeFVI[eyIg
´cg;begáItRbB½n§ Database

EdlGacCMnYsdl;kareRbIEdlmanmuxgarmYycM
nYn dUcxag eRkam ³
- EkERbkarRKb;RKgBIlkçN³eRbIedayéd
rWRbB½n§ File

eTACaRbBn§½sV½ykmµkareRbIR)as;RbBnæ½
RKb;RKgTinñn½yCa Database

GacedaHRsaybBaðaTaMgGs;xagelI)an.
eKGaceRbI Database edIm,IrkSa
TukTinñn½yehIyTajykmkeRbIR)as;vijya:gelOn
nigmanRbsiTæiPaBCaTIbMput.
- eFVI[cMeNjeBlevlacMNayfvikatic
nigkat;bnßyFnFanmnusS
- BRgwg Security edIm,IrkSaB½t’man
nigTinñn½yhagénkarlk;edayeRbIR)as;RbBn§½
Database
CamUldæanedIm,IrkSaTukral;Tinñn½yÉksarRBm
TaMg)ankMNt;siTi§énGñkeRbIR)as;pgEdr.

CMnaj Database Programming 8

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
-
eFVI[r)aykarN_manPaBc,as;las;nigmanPaBsuRkw
tRtwmRtUvedIm,IFana)anfaral;R)ak;cMnay nig
cMenjrbs;hag
nigminRtUvmankar)at;bg;edayRbkarNamYyeLIy.
karsikSaelIhag The Shop

enAeBlenHKWmanTisedAEtmYyKt;
KWRKb;RKgeTAelIkarlk;mðÚb
GaharTaMgGs;eBalKWKittMéltammuxGaharnIm
Yy² ral;muxmðÚbGaharEdlGtifiCn)anTij nig Order
CaBiessenaHKWedIm,IeGaymanPaBgayRsUl
suRkwtPaB nigCYybegáInsmtßPaBkargarrbs; hag
The Shop
eGaymanlkçN³kan;EtTMenIbTan;sm½ymYykMri
tEfmeTotedIm,IbMeBjeskþIRtUvkar nig kareBj
citþrbs;GtifiCn.
1>4 GtßRbeyaCn_énkarsikSa
karbegáItRbBn§½enHeLIg
KWmanbMNgsMrab;RKb;RKgeTAelIRbBn§½én
karlk;enAeBlEdlmanGtifi
CnmkTijGahar.RbB½n§enHmanPaBeBjniymCaxø
aMgenAelIBiPBelaknaeBlsBVéf¶enHedayRbB½n
§man lkçN³Ca Automation System

begáItnigbegáInnUvkMrityl;dwgRBmTaMgGnuvt
þkarsikSaRsavRCavbec©k

CMnaj Database Programming 9

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
eTsfµI²edIm,ITukCasñaéd
nigbTBiesaFn¾k_dUcCaÉksarsMrab;GñkRsavRC
avepSg². RbBn½§enH)anpþl; RbeyaCn_bIKW ³
- RbeyaCn_TUeTA ³
-
pþl;nUvKMnitéqñRbDitfIµ²edImI,bMeBjnUvtRm
UvkarkñúgsgÁmbc©úb,nñk_dUcCaGnaKt
- begáIt
nigbegáInnUvkRmityl;dwgRBmTaMgGnuvtþelIka
rsikSaRsavRCavbec©keTsfµI²
- edIm,ITukCasñaéd
nigbTBiesaFn¾k_dUcCaÉksarsMrab;GñkRsavR
CavepSg²
- RbeyaCn_sMrab;hag The Shop
-
lubbM)at;kMhusEdlekItmanCayfaehtuenAeBlEdl
mankarKNnarknUvcMnYntamRbePTmux

mðÚbGaharnImYy²kñúgkarlk;muxmðÚbGahar
- eFIVkarrkSaTinñn½yTaMgGs;rbs;GtifiCn
nigmuxmðÚbGaharEdlRtUv)anlk;ecj
- karKNnaKW
KitedaysV½yRbvtþiminlM)aksMrab;buKÁlik

CMnaj Database Programming 10

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
- Print nUvcMnYnEdl)anlk;
nigkareFIVr)aykarN¾ énkarlk;RbcaMéf¶
RbcaMEx rWk_RbcaMqñaM
- RbeyaCn_sMrab;RkumnisiSt
- sMrab;CabTBiesaFn_kñúgkargar Database
Programmer
- Gnuvtþn_nUvRTwsIþEdl)ansikSaknøgmk
-
pþl;nUvbTBiesaFn_énkareFVIkarlkçN³CaRkum
-
bMeBjtamkatBVkic©xøÜÜnCanisiStbBa©b;qña
MsikSafñak;mhaviTüal½yB½t’manviTüa
1>5 TMhM nigEdnkMNt;énkarsikSa
cMeBaHRbBn§½ Fast Food Billing Management System
enHKWeyIg´sMuelIkykmkkargarEdl manTMhM
dUc)ankMNt;xageRkamEtbueNÑaH
edayelIkyknUvcMNucsMxan;éndMeNIrkarrbs;km
µviFI ³
karkt;RtamuxGahar nigtaragtMél

eyIgGacbegáItnUvmuxmðÚbCaeRcInEdlEbgEcke
TAtamRbePTepSg² RBmTaMgkMNt;tMélrbs;mux
mðÚbnImYy²eTAtamtRmUvkarrbs;hag.
karKNnavik½yb½RtedaysV½yRbvtþi
ral;karKNnavik½yb½RtsMrab;GtifiCnRtÚv)anKN
CMnaj Database Programming 11
karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
naedaysV½yRbvtþiedayRbB½n§ Computer Ebb enH
GacCYysMrYleGaycMeNjeBlevla
nigkat;bnßykarKitR)ak;RcLM.
kareRbIR)as;GRtabþÚrR)ak;RbcaMéf¶
man Tool

sMrab;kMnt;GRtabþÚrR)ak;edIm,IeFVIeGayman
PaBgayRsÜleBlKitR)ak; GtifiCnGacCa R)ak;erol
rWR)ak;duløa.
kareFVIr)aykarN_
man Tool sMrab;TUTat;r)aykarN_RbcaMEf¶
RbcaMs)þah_ rWk¾RbcaMEx.
ral;karlk;RtÚv)anrkSaTuk kñúg Computer

ehIyGaceFVIr)aykarN_)any:agqab;rh½s
nigKµanPaBRcbUkRcbl;.
karkMNt;siT§iGñkeRbIR)as;kmµviFI
eyIgGacbegáIt User account sMrab;buKÁliknImYy²
nigkMnt;siT§eTAtammuxtMENg. eFVIEbbenH
KWeCosvagkarcUleRbIR)as;Tinñn½yGñkdéT
EdlGacbgáreGay)at;bg;Tinñn½y.
CMBUkTI 2
rMlwkRTwsþIEdlBak;B½n§RbFanbT

2>1 etI Fast Food KWCaGIV ?

Fast Food
KWCaBaküénRbePTGaharEdlRtUv)aneKerobcM

CMnaj Database Programming 12

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
nigbMrugTuksMrab;ePJovEdlmkjaúM)an
y:agqab;rh½sEdlmanry³eBlelOnCagkarcMGinGah
arFmµta.
- enAkñúghag Fast Food RtUvman Menu
sMrab;GtifiCnemIl nigeFIVkar Order Menu Gac
manCa PasaExµr, Gg;eKøs, tMél, rUbPaB
nigEckeTAtamRbePTepSg²énmuxmðÚb.
-
buKÁlikEdleFVIkarenAhagRtUvbMeBjB½t’manc
,as;las;EdlrYmmaneQµaH( Khmer, English ) ePT
TUrs½BÞ Gayu Gas½ydæan epSg²>>>. elIsBIenH
buKÁliknImYy²RtUvEbgEcktammuxtMENgedIm,
IkMnt; siTi§kñúgkareRbIR)as;Éksar.
- ral;kar Order rbs;GtifiCnRtUvkt;RtaTukehIy
Print Ca Preceipt sMrab;GtifiCnEdlrYm manB½t’man

dUcCa³ elx Code Receipt éf¶ Ex Gñkecj Receipts

mðÚbEdlePJovTijkarbj©úHtMél nig
srubtMélRBmTaMgelxénkarrgcaM.
2>2 RTwsþIEdlBak;Bnæ½mYycMnYn
qøgtamkarcuHkmµsikSaRsavRCavknøgmk
nig ÉksarepSg²)anbgðajeGayeXIjfamanRTwsþICa
eRcInEdlBak;Bnæ½kñúgkarbegáItRbBnæ½enHeL
IgEdlrYmmandUcCa ³
2>2>1 Database

CMnaj Database Programming 13

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
Database KWCa
sMNuMénTinñn½yCaeRcInEdlmanTMnak;TMng
CamYyKñasþIGMBIRbFanbTCak;;lak;Na
mYyEdlGacpþl; Data

dl;kmµviFICaeRcInsMrab;Rbtibtiþkar
kargardUcCa Library, Inventory, Payroll, Fixed Asset, Airline …..
kñúgeKalbMNgCacMbgrbs; Database

KWbM)at;PaBsÞÜnénTinñn½yehIyCakEnøg
rYmmYyénB½t’manénTinñn½yEdlGac erobcM
RKb;RKg rkSaTuk nigEkERb)any:agRsYl. Database
Model KWCaRTg;RTayénRbBn§½ Database

EdleKbegáIteT,IgedIm,IbMeBjeTAnwglkçN³Bies
sénkareRbIR)as; epSg²mandUcCa ³
- Hierarchical Model, Network Model, Relational Model, nig Object-Oriented Model.

eyIgsuMelIkyk Relational Model mkeRbIR)as;enAeBlenH.

- Database System KWCabnSMrvag Database nig DBMS (Database
Management System)
Database System = Database + DBMS

RtUv)aneKbegáIteLIgedIm,IRKb;RKg
- Database System

(Manager) eTAelITinñn½yeRcIn. karRKb;

RKgrYmmanTaMgkarkMNt;nUvrcnasm<½næsMr
ab;pÞúkTinñn½y (Defining Structure for Storage)

nigpþl;nUvviFIkñúg karcat;EcgTinñn½y.
bEnßmelIenHeTAeTot Database System

FananUvsuvtßiPaBénTinñn½yEdlpÞúkrYmman
karlYc Access cUl Database BI User epSg²CaedIm.
CMnaj Database Programming 14
karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
2>2>2 DBMS ( Database Management System )
KWCaRbBn§½kmµviFIkuMBüÚrT½reEdreKeRb
IsMrab;RKb;RKg begáIt
nigrkSaTuknUvsMnMuTinñn½yCaeRcInEdl
manTMnak;TMngCamYyKñak_dUcCasMNuMén
kmµviFIedIm,I Access Tinñn½yTaMgGs;enaH.
karRbmUlpþúMTinñn½y sMedAeTAelI Database
EdlpÞúknUvTinñn½yEdlmanTMnak;TMngKñaG
MBIRbFanbTNamYy. DBMS KWCakmµ
viFIsMrab;RKb;RKg Database mandUcCa MS.Access , MS. SQL
Server , Oracle MS. Visual Fox Pro… .

eKalbMNgCacMbgrbs; DBMS
KWpþl;nUvlTæPaBkñúgkarpÞúk nig
TajykB½t’manrbs; Database mkeRbIR)as;vijya:grh½s
nig manRbsiTæiPaBbMput.
DBMS vamanmuxgarsMxan;cMnYn3KW³
kMNt;Gtßn½y (Defining), karsg; (Construction) nig eRbIR)as;
(Manipulating) Database.

2>2>2>1 Defining Database

edIm,IeFVIkarerobcMbegáItRtUvTamTarnUvktþa
dUcxageRkam ³
- kareFVIkarkMNt;nUvcMnYnrbs; Files
( Tables ) in Database

CMnaj Database Programming 15

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
- kMNt;nUv Data Elements or Data items ( Fields )
EdlRtUvsßitenA Files ( Tables ) nImYYy²
- kMNt;nUvRbePTTinñn½y ( Data type ) rbs;
Fields nImYy². Data Type GacCa Text Number, Date /Time,
and Currency…etc.

- kMritc,ab;énkarbBa
Constraints:

¢ÚlTinñn½ynImYy²
Example: - 12-12-05 can be a date
- 12-15-05 cannot be a date

- Relationship kMNt;nUvTMnak;TMngrvag Tables

nImYy²
2>2>2>2 Constructing a Database

bnÞab;BIkar Design Database )

anRtwmRtUvehIyeFVIkarbBa©ÚlTinñn½yTaMg
Gs;eTAkñúg Database

BIeRBaHfaebI)aneFVIkarbegáItnUv Table

begáItnUvTMnak;TMngrvag Tables nImYy²

KWTinñn½yBuMTan;maneT
enAkñúg Database.
2>2>2>3 Manipulating a Database

bnÞab;BIkarbegáIt
nigbBa©ÚlTinñn½yeTAkñúgehIy)ann½yfaGacca
b;epþImeRbIR)as; Database )an.
manbuKÁlCaeRcInnak;Nas;EdlRtUvkareRbIR)as;
nUv Database dUcCa ³ GñkRKb;RKg Typist, Clerk.l.

CMnaj Database Programming 16

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
eKalbMNgkñúgkareRbIR)as; Database

KWedIm,IeFVIkarTajyk nigEkERbB½t’manBI
Database:

- karTajykB½t’man ( Retrieving information )

- eFVIkare)aHBumÖ ( To print a paycheck )
- TTYlr)aykarN_ ( To get a report )
- To answer a question ( query )

- karEkERbB½t’man ( Update information )

- bEnßmTinñn½yfµI ( Add new record )
- lubTinñn½ycas; ( Remove old record )
- pøas;bþÚrTinñn½y ( Change record )
2>2>3 kareRbIR)as; Database
mkdl;eBlbc©úb,nñ Database

RtUv)aneKeRbIR)as;ya:gTUlMTUlaydUcCa ³
- Restuarant( ePaCnIydæan )eRbIR)as;RbBn½æ
POS( Point of Sales ) sMrab;RKb;RKgkarlk;y:ag

manRbsiTiæPaB nigrh½sTan;citþ.
- Banking ( FnaKar )

eRbIsMrab;B½t’manrbs;GtifiCn kardak;R)ak;
kardkR)ak; karx©IR)ak; >>>.
- Airline (Rkumh‘unGakascr )

sMrab;kk;sMbuRtB½t’manéneCIgynþehaH (Schedule
Information) Airline KWCaRkumh‘unmYyEdleRbIR)as;
Database CalkçN³Eckcay ( Distributed Manner ) Terminal
enaCuMvijBiPBelak kareRbIR)as; Database kNþal

CMnaj Database Programming 17

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
( Access the Central Database ) tamry³ Phone Line

nigtamry³bNþajepSg².
- University ( saklviTüal½y ) ³ sMrab;B½t’mansisS

karcuHeQµaH RbBnæ½BinÞú.
- Telecommunication ( TUrKmnaKmn_ ) ³ sMrab;rkSa Record

sMrab; Call begáIt Bill RbcaMEx>>>>>.

- Manufacturing ( eragcRk ) ³ sMrab;RKb;RKgelITMnij

( Item ) bBa¢IsareBIP½NÐ ( Inventory ) énTMnij

enAkñúgXøaMg karkumµg;TMnij ( Order Item ) ….
- Human Resource ( FnFanmnusS ) ³
sMrab;RKb;RKgB½t’manrbs;buKÁlik
R)ak;Ex>>>.l. nig .l.
2>3 PaBxusKñarvagRbB½nææ DATABASE

nigRbBnæ½ FILE
tamkarBit File CabJsKl;rbs; Database

b:uEnþedayehtufakarpÞúkTinñn½yenAkñúg File

minTan;l¥ RbesIrenAeLIy
ehIymanbBaðaeRcIneTIb Database

RtUv)aneKbegáIteLIgedIm,IbMeBjcMNucxVHxat
rbs; File. xageRkamenHKWCaKuNvibtþirbs; File ³
- Data Redundancy and Inconsistency : Tinñn½ypÞúkenAkñúg File

GacnwgsÞÜneRBaHKµanGVIkarBarGñk
eRbIR)as;BIkarvaybBa¢ÚlTinñn½ydEdl²enaHeT.
]TahrN_ ³ Gas½ydæan elxTUrs½½BÞ
rbs;GñkTijGacsÞÜndEdl²enAkñúg File

CMnaj Database Programming 18

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
EdlpÞúkB½t’manGMBI GñkTij nig pÞúkenAkñúg
File.

karpÞúkTinñn½yEdlsÞÜndUcenHeFVI[mankarcM
NayTItaMgsþúk (Storage) eRcIn kñúgkarpÞúk
ehIyk¾cMNayeBlyUrkñúgkarTajykTinñn½ymkeR
bIR)as;vijpgEdr. kalNaTinñn½ydEdl
RtUv)anpÞúkenAeRcInkEnøgenaHGacnwgmanbB
aðaekIteLIgenAeBlmankarEkERbnUvkEnøgNam
Yy.
- Data Isolation :

edaysarEtTinñn½yGacnwgRtUv)aneKrkSaTuken
AkñúgEpñkepSg²Kña dUcenHTMrg;
rbs;vanImYy²
GacxusKñaEdlCaehtueFVI[mankarBi)akkñúgkarsr
esrkmµviFI edIm,ITajykTinñn½yTaMg enaH
mkeRbIR)as;vij.
- Integrity Problem:
Tinñn½yEdlpÞúkenAkñúgBi)akkareFVI[manPaBs
uRkwtRtwmRtUv. Tinñn½yEdl vacUlenAkñúg File
mineKarBeTAtamlkçx½NÐEdleKcg;)an³
]TahrN_³
elxkarEkERbnUvGas½ydæanenAkñúg File Browser
b:uEnþminmankarEkERbGas½ydæan enA RKb; File
enaHeT.
- Difficult in Accessing Data edayehtufaTinñn½ypÞúkkñúg

File minmanrcnasm<næ½ ( Structure ) nig TMrg; (Format)

CMnaj Database Programming 19

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
c,as;las;enaHeFVI[ Programmer

Bi)aknwgcMNayeBlyUrkñúgkarsresrkmµviFIedI
m,I Taj ykTinñn½yenAkñúg File

TaMgenaHmkeRbIR)as;vij
ehIyTinñn½yEdlTajmkenaHminR)akdCaRtwmRt
Uv pg. ID rbs;sisSEdleKcg;)anminsÞÜn
b¤R)ak;Exrbs;buKÁlikminGactUcCagsUnüb:uEnþ
CaTUeTA File min
karBareTAelIlkç½NÐTaMgenH)aneT.
- Concurrent-Access Anomalies:

kalNaeKeRbIkmµviFIEdleRbIR)as; File

edIm,IrkSaTukTinñn½y CabNþaj (Network)

EdlGnuBaØati[ User

eRcIneRbIR)as;Tinñn½yTaMgenaHCamYyKñaeh
IyeKcg; Update
Tinñn½yenAeBlRBmKñaenaHTinñn½yGacnwgmi
nRtwmRtUv.
- Security Problem: RKb; User

eRbIR)as;Tinñn½yeTAtamEpñknimYy²rbs;eKerog
²xøÜnminEmnRKb; User

mansiTæiesµIKñakñúgkareRbIR)as;Tinñn½yenaH
eT. vamankarBi)akenAkñúgkarkMNt;siTæi[ User
nImYy² RbsinebIeKeRbIR)as;RbBn½æ File.

müa:gvijeTotminman Option sMrab;kMNt;eBl[ Back-Up

CMnaj Database Programming 20

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
Tinñn½yTuk
enaHeTdUcenHTinñn½ygaynwg)at;bg;.
2>4 RELATIONSHIPH SETS
Relationship KICaTMnak;TMngrvag Entities. Relationship Set
KWCasMNuMén Relationship.
]TahrN_ ³ xageRkamenHKWCa Relationship rvagTMnij
( Product ) nig Seller

Produc-ID Date Name

PC0001 10.Nov.2009 Beef Burger
PC0002 05.Nov.2009 Fry Chicken
Seller-ID Name
S001 Soth Manila
S005 Sean Sokny

Food Seller

rUbPaBTI 1³ Relationship Set Selling Product

2>4>1 ONE-TO-ONE RELATIONSHIP
Entity mYyenAkñúg Entity Set A

manTMnak;TMngya:geRcInmYy Entity enAkñúg Entity Set B

ehIy
Entity mYyenAkñúg Entity Sel B

k¾‘manTMnak;TMngya:geRcInmYy Entity enAkñúg Entity

Set A.

CMnaj Database Programming 21

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ

A1 B1

A2 B2

A3 B3

A4 B4

rUbPaBTI 2³ One-To-One Relationship

2>4>2 ONE-TO-MANY RELATIONSHIP

Entity mYyenAkñúg Entity Set A

manTMnak;TMngnwgsUnü mYy b¤ eRcIn Entity

enAkñúg Entity Set B ehIy Entity mYyenAkñúg Entity Set B
manTMnak;TMngya:geRcInmYy Entity enAkñúg Entity
Set A.

B1
A1

B2
A2
B3

A3 B4

rUbPaBTI 3³ One-to-Many Relationship

CMnaj Database Programming 22

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
2>4>3 MANY-TO-ONE RELATIONSHIP
mYyenAkñúg Entity Set A
Entity

GacmanTMnak;TMngya:geRcInCamYy Entity

enAkñúg Entitty Set B ehIy Entity mYyenAkñúg Entity Set B

manTMnak;TMngnwgsUnü mYy b¤
eRcInenAkñúg Entity enAkñúg Entity Set A.

A1
B1

A2
B2

A3
B3

A3

rUbPaBTI 4³ Many-to-One Relationship

2>4>4 Many-To-Many Relationship

mYyenAkñúg Entity Set A
Entity

manTMnak;TMngsUnü mYy b¤ eRcIn Entity

enAkñúg Entity Set B ehIy Entity mYyenAkñúg Entity Set B
manTMnak;TMngsUnümYy b¤ eRcInenAkñúg Entity
enAkñúg Entity Set A.

CMnaj Database Programming 23

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ

A1 B1

A2 B2

A3 B3

A3 B3

rUbPaBTI 5³ Many to Many Relationship

2>5 DATABASE MODEL

Database KWCa
Model1 Structure Data

EdlCakarBiB’NnaviFIsaRsþénkarerobcM Data nig

TMnak;TMngrbs;vaeTAtamtMrUvkarEdleKcg;)an
EdlbBa¢ak;y:agc,as;GMBITMrg;én Database. RbePT
Database Model maneRcIndUcCa³ Hierarchical Model, Network Model, Object-
Relational Model, Relational Model, Entity-relationship Model

EteyIgsMuelIkykEt Object-relational Model, Relational Model, Entity-

relationship mkniyayEtbueNÑaH.

2>5>1 ENTITY-RELATIONSHIP MODEL ( E-R )

BiBN’naGMBI Object eKal (Basic Object)
Entity-Relationship Model

EdlehAfa Entities nig BiBN’naGMBITMnak;TMng

(Relationship) rvag Object TaMgenaH.

E-R Data Model manFatupSMsMxan;²cMnYn3 KW

Entity Sets, Relationship nig Attributes.

Entity KWCa Object enAkñúg Real World.

1
URL: http://en.wikipedia.org/wiki/Data_model#Types_of_data_models (source on: 25th Aug, 2009)

CMnaj Database Programming 24

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
]TahrN_³
mnusSmñak;²enAkñúgRkumhu‘nmYuyKWCa
Entity. Entity mYymansMNuMén Attributes ehIy
PaKeRcInmantMélén Attribute-(S) NamYy
b¤eRcInenAkñúg Entities Set mantMélEtmYyKt;
( Unique ) sMrab;sMKal; Entity nImYy².

]TahrN_ ³ Entities Set GMBI Employee man Employee ID

EdlCa Attribute EdlmantMél
mindUcKñasMrab;sMKal; Employee nImYy²cab;BI
Emplyee TI1 rhUtdl; Employee cugeRkaybg¥s;.

Entity Set KWCasMNuMén Entities

EdlmanRbePTEtmYyEdlman Attribute dUcKña. Entity

mYy RtUv)antMNagedaysMNuMén Attribute ( A Set of
Attribute ).
Attribute

GacRtUv)aneKEckCaRbePTepSg²dUcCa³
- Simple and Composite Attribut: Attribute

FmµtaeRcInrYmpSMKñabegáIt)an Attribute

fµImYYyEdl mann½yehAfa Composite Attribute.

]TahrN_ 1³
- eQµaH ( Name ) GacCa Composite Attribute

EdlekItecjBInamRtkUl
- ( Left-Name ) nignamxøÜn ( First-Name ).

]TahrN_ 2 ³
- Gas½ydæan (Address) k¾GacCa Composite Attribute

EdlCakarpSMBIelxpÞH (HouseNumber) elxpÚøv ( Street-

CMnaj Database Programming 25

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
XuM-sgáat;
Number ) ( Section ) Rkug-Rsuk-xNÐ ( District )

raCFanI-extþ ( City ).

eQµaH
Gas½ydæan

namRtkUl namxøÜn elxpÞH elxpøÚv

XuM-sgáat; Rkug-Rsuk-xNÐ raCFanI-extþ

- Single-Valued and Multivalued Attributes: Single-Valued KWCa Attribute

EdlpÞúktMélEt mYy.
]TahrN_ ³
Attribute eQµaH Employee-ID pÞúktMél FI00154 b:uEnþ
Multvalued Attribute pÞúktMélelIsBI mYy.

2>5>2 RELATIONAL DATA MODEL

Relational Data Model Main Data KWCa Main Data Model sMrab;
.
Commercial Data Processing Application

Relational Database KWCa ekIteLIgeday Logical Unit

Database

EdlehAfa Table Edl Table

nImYy²RtUv)ankMNt;eQµaHxusKña ( Unique Name ).

CaTUeTAenAkñúg Relational Database, Table RtUv)an
eKehAfa Relational, Column Header én Table RtUv)aneKehAfa
Attribute ehIy Row RtUv)anehA fa Tuple.

CMnaj Database Programming 26

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
2>5>3 OBJECT ORIENTED-RELATIONAL DATA MODEL
Object Oriented-Relational database ( ORD ) or Object Oriented-Relational Database

Management System ( ORDBMS )2 KWCaRbBn½§ DBMS

mYyEdlRsedogKñaeTAnwg Relational database

bu:EnþCaRbePT Object Oriented Database Model mYyEdlvaCa

Objects, Classes ehIynig Inheritance

EdlmanTMnak;TMngCamYy Database Schema nig query

language.

edIm,IBiBN’naGMBI ORDBMS 3

KWCakarbBa©Úlrvag Object ehIynig Relational Concepts

EdlviFI dMeNIrkarrbs;vaeTAelI DB database Sturcture
eBalKWeTAelI Logical Level én Programming EdrEtva
CadMeNIrkarénkarbMElgBI RDBMS eTACa ODBMS
EdldMeNIrenHCakarbþÚrBIPasa DBMS eTACaPasa
Objects.

2>6 KEY
Key kñúg DBMS maneRcIndUcCa Primary Key, Foreign Key,

Candidate Key, Super Key CaedIm. EteyIgsuMelIkyk Primary Key

nig Foreign Key mkniyayEtbueNÑaH.

2>6>1 PRIMARY KEY
Primary Key KWCa
mYuy b¤ eRcInenAkñúg Attribut

Relation ( Entity Set enAkñúg E-R Model ) Edl

mantMélminsÞÜnsMrab;sMKal; Tuple ( Entity enAkñúg

2
URL: http://en.wikipedia.org/wiki/Object-relational_database (source on: 23 August 2009)
3
URL: http://savtechno.com/articles/ViewOfORDBMS.html by Sergey Savushkin, 2003 (Source on: 23 August 2009)

CMnaj Database Programming 27

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
E-R Model ) nImYy²enAkñúg Relation ( Entity Set ) enAkñúg E-R

Model .
2>6>2 FOREIGN KEY
KWCa Attribute enAkñúg Relation ( Entity
Foreign Key Set )

sMrab;pÁÚrpÁgkñúgkarbegáIt Relationship
eTA Primary Key enAkñúg Relation ( Entity Set ) epSg².
2>7 Phase of the System Development Life Cycle ( SDLC )
enAkñúg System Analysis, System
mYysMerc)anqøgkat;tamdMNak;kal 5
sMxan;²KW³
- System Planning
- System Analysis
- System Design
- System Implementation
- System Operation Support

Project Planning
Phase
Analysis Phase
Design Phase
Implementation
Phase
Support Phase

rUbPaBTI 6³ Phase of System Development Life Cycle

2>7>1 System Planning

dMNak;kalenHKWRtUvBiBN’naGMBItMrUvkar
sMrab;pøas;bþÚr b¤ karEkERbRbB½n§cas;
CMnaj Database Programming 28
karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
[eTACaRbB½n§cas; mankarRbesIrCagmun
edIm,IkMnt;nUvbBaðabegáIt Details Schedule

énkarbegáItRbB½n§fµI. eKalbMNgén System Planing

enHKWedIm,IkMNt;[c,as;GMBIeKalbMNg
nigTMhMén System EdlnwgbegáIt.
2>7>2 System Analysis
enAkñúgdMNak;kalTI2CadMNak;kalEdlRbm
UlB½t’man nig
sikSaBIkargarrbs;RbB½n§EdlkMBug
eRbIR)as;naeBlbc©úb,nñ
faetIRbB½n§dMeNIrkarEbbNakt;Rtakargarrebob
Na ehIyykTinñn½yTaMgenaH
mkviPaK[c,as;las;edIm,IkMNt;nUvtMrUvkar
( Requirement ) rbs;RbB½n§ ( System ).
2>7>3 System Design

CadMNak;kalEdlRtUvbegáIt System Interface, User

Interface rbs;RbB½n§fµI.
2>7>4 System Implementation
Casresr Code sMrab;RbB½n§fµI nig kareFVI Test,
epÜÞógpÞat; nig EktMrUv karbeRgon User [ecH
eRbIR)as;
RbB½n§fµIenHrYmmanTaMgkarerobcMÉksarrbs
;RbB½n§ (Documentations) nigkartMeLIgRbB½n§fµI
( Installing New System ).
2>7>5 System Support

CMnaj Database Programming 29

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
kar
MaintainRbB½n§eFVI[RbB½n§dMeNIrkarGacmanka

r Upgrade elIcMNucxøH²edIm,IbEnßmlT§PaB
rbs;RbB½n§.
2>7>6 Interaction enAkñúg System Development Life Cycle
CYnkaldMeNIrkarénkarbegáItRbB½n§fµIen
HminGacRbRBwtþeTAtaMgBIedImrhUtdl;cb;eda
yKµankar Rtlb;eRkayenaHeT.
dMeNIrkarenHehAfa Interaction én System Development Life
Cycle.

Planning

Analysis

Design

Implementation

Support

rUbPaBTI 7³ Interaction én System Development Life Cycle

2>8 Interface

CMnaj Database Programming 30

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
Interface
enAkñúgPasakuMBüÚTr½KWsMedAeTAelIpÞa
Mg Window Form EdlGaceGay User eFIVkar Input nig Output
ral;Tinñn½yrbs;xøÜneTAkñúgkuMBüÚT½r.

2>8>1 System Interface

System Interface or Back-End
EdlCakEnøgmYysMrab;pÞúkTinñn½ykñúgRbB½
n§.RbsinebIniyay GMBI Client-Server Interface enaH Server
KWCa Back-End

eRBaHral;Tinñn½yTaMgGs;EdleRbIR)as;eday
Client nImYy²RtUv)anrkSaTukenAkñúg Server.

b:uEnþRbsinebIniyayGMBI Desktop Interface vijenaHman

n½yfa kmµviFIEdlGñksresrkmµviFI ( Programmer )
eRbIR)as;edIm,IpÞúkTinñn½yehAfa Back-End.
2>8>2 User Interface
KWrUbragEdlRtUvbgðajeGay User

eXIjkñúgkarTak;TgeTA Back-End. RbsinebIniyayBI

Client-Server enaH Client KWCa Front-End eRBaH Client

nImYy²mansiT§ieRbIR)as;eTAelIGVIEdl
GñksresrkmµviFI ( Programmer ) kMNt;eGayeXIj ( Form )
Etb:ueNÑaH. b:uEnþRbsinebIniyayBI Desktop Interface
vijenaHmann½yfarUbrag ( Form ) Edl Programmer
kMNt;eGayGñkeRbIR)as;

CMnaj Database Programming 31

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
emIleXIjedIm,IeRbIR)as;Tinñn½y)anehAfa User

Interface.

2>9 Data Normalization

Normalization KWCabec©keTsénkarviPaKTinñn½y

( Data Analysis Technique ) EdlerobcM

Tinñn½yedaydak;CaRkumedIm,IbegáItCa Enity

EdlminmansPaBsÞÜn ( Nonred-undant ), Flexible nig

kat;bnßynUvPaBsuaMjúaM ( Complexity )

énkarpÞúkTinñn½y.
tamRTwsþI Normalization man5 dMNak;kalKW First
( 1NF ), Second Normal Form ( 2NF ), Third Normal Form ( 3 NF ), Fourth Normal Form
nig Fifth Normal Form ( 5NF ).
( 4NF )

b:uEnþkñúgkarGnuvtþCak;EsþgmanEt 03
dMNak;kalb:ueNÑaHeT
EdlRtUv)aneKeRbIR)as;edIm,IviPaK
Tinñn½yedIm,IbegáIt Database.
2>9>1 First Normal Form ( 1NF )

Cakarkat;pþac; Repeating Group rWCa Relationship

EdlKµan Repeating Group. Eck ecjCaEpñk Master nig Epñk
Detail dac;ecjBIKñabnÞab;BIcMlg Primary Key rbs; Master

eTAdak; BImuxEpñk Detail eBlenaHeK)an Relation

BIrEdlsßitkñúgTMrg; ( 1NF )

EdlBuMsUvmanPaBelIsTinñn½y ekIteLIg.
2>9>2 Second Normal Form ( 2NF )

KWCa EdlsßitenAkñúgTMrg;
Relation 1NF ehIy None-
Primary Key Attribute TaMgLayGaRs½y

CMnaj Database Programming 32

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
GnuKmn_eBjeljelI Primary Key rbs;va ( A-B )
KWCaPaBGaRs½yGnuKmn_eBjelj kalNaeKmin
GacrksMnuMrgén A ]bma A1 CasMNuMén ( A, A1-B ).
RbsinebI Relation enAkñúgTMrg; 1NF man Non-Primary Key
Attribute GaRs½yGnuKmn_mineBjeljelI Primary Key rbs;va

mann½yfa Non-Primary Key Attribute

mYycMnYnGaRs½yelIGnuKmn_elIsMNuMrgén
edETmINg; ( Determinant )rbs;va EdlRtUv)aneKehAfa
PaBGaRs½yGnuKmn_edayEpñk ( Partial Functional
Dependency ) dUcCaebIeK man A-B ehIy A1
CasMNuMrgén A nig B1 CasMNuMrgén B
enaHeKGac rk)an A1-B1 KWCaPaB
GaRs½yGnuKmn_edayEpñk.
A1-B Ca FFD kalNa
A1 CasMNuMrgén A, B1

CasMNuMrgén B
minEmnCasMNuMrgén B nig A
A1

minEmnCasMNuMrgén B1
pÞúymkvij
A1 CasMNuMrgén A, B1 CasMNuMrgén B A-B

minEmnCa FFD ehIy

A1-B rW A1-B1 A1-B rW A1-B1 Ca
FFD

2>9>3 Third Normal Form (3NF)

CMnaj Database Programming 33

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
k> lkçN³qøgénGnuKmn_ (Transitive Functional Dependency)
eKman A, B, C KWCa Attribute én Relation mYy ehIy A =>
B nig A => C KWCaEpñkmYyén ( TED ).

x> niy½mn½y én 3NF

3NF KWCa Relation mYysßitenAkñúgTMrg; 2NF

EdlKµanPaBGaRs½yGnuKmn_ ( TFD ). RbsinebI

Relation mYysßitenAkñúgTMrg; 2NF

manPaBGaRs½yGnuKmn_qøgekIteLIgenaHeKRt
Uv bMElg Relation enaHeGaymanTMrg; 3NF edaydkyk
Attribute TaMgGs;énEpñkxagsþaMRBYj nig cMlg
edETmINg; rbs;EpñkénPaBGaRs½yGnuKmn_qøg
( TFD ) eTAkñúg Relation mYyepSgeTotenaH nwg)an

Relation BIr rW eRcInsßitenAkñúgTMB½r 3NF.

2>10 nimitþsBaØaepSg²eRbIenAkñúg E-R Diagram

CMnaj Database Programming 34

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
 Symbols Description
- Entity set E

- Weak entity set E

- Attribute A

A
- Multi leveled attri

2>11 nimitþsBaØaeRbIenAkñúg CARDINADITY NOTATION rbs;

E-R DIAGRAM

Symbols Minimum Maximum Description exactly one

1 1 (Only and only one)

1 1 Zero or One

1 Many One or More

0 Many Zero, One, or More

>1 >1 More Then One

2>12 nimitþsBaØaepSg²enAkñúg E-R Diagram Entities

Relationship Diagram ( ERD )

CMnaj Database Programming 35

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
ERD (Entities Relationship Diagram)

KWsMrab;eFVIkarviPaKbkRsayTinñn½ykñúglkç
N³Ca Entities , Attribute , and Relationship .

nimitþsBaØasMxan;kñúgkarerobcM ERD ( Entities Relationship

Diagram ) dUcxageRkam ³

( nimitþsBaØabgðajenA Appendix TMB½rTI 46

rUbPaBTI 8 ) KWCa
nimitþsBaØamUldæansMrab; eRbIenAkúñúg E-R
Diagram. vaKWCa nimitþsBaØasMrab;bBa¢ak;
BIlkçN³FatusMxan;TaMgbIrbs; E-R Diagram KW Entity
Attribute nig Relationship.
 Relationship Cardinality ( RC ) ( Number of Instance )

Optional 0 or 1 Cardinality
Entity

Entity Mandatory 1 Cardinality

Optional Zero-Many Cardinality

Entity ( 0 , 1 , 2 , ….., Many )

Many ( M ) Cardinality
Entity ( 1 , 2 , …… , Many )

rUbPaBTI 9 ³ Relationship Cardinality

CMnaj Database Programming 36

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
enAkñúgrUbPaBTI 9 bgðajBI Cardinality rbs;
Relationship. mannimitþsBaØa 4 sMrab;bgðajBI Cardinality

rbs; Relationship Edl

TI1 KW Optional 0 or 1Cardinality ,
TI2 KW Mandatory 1 Cardinality ,
TI 3 KW Optional Zero-Many Cardinality (0, 1, 2, ………Many ) ,
nigTI4 KW Many ( M ) Cardinality ( 1 , 2 , ………..Many ).

Context Diagram
Food

Customer Receipt
Purchases / Sales

rUbPaBTI 10 ³ Process of Sales Enviroment

bkRsaycMeBaHlMhUr Data Flow xagelI man Entity

cMnYnbIKW Customer , Food , Receipt
Customer: Ca Entity sMrab;rkSaTinñn½yrbs;GtifiCn

Food: Ca Entity EdlrkSanUvmuxTMnijEdlman

Invoice: Ca Entity sMrab;rkSaTinñn½yrbs; Invoice

Purchase Proccess:

KWCakarKiteTAelIkarlk;TMnijedayKitR)ak;
nigRtUv)andkTMnijeday sV½yRbvtþi.
CMnaj Database Programming 37
karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ

CMnaj Database Programming 38

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
C
MBUkTI3
karsikSaRsavRCavnigviFIsaRsþ
( Research Design and Methodology )

3>1 tMbn; rW TIkEnøgsMrab;eFIVkmµsikSa

PaKeRcInénRkumh‘unÉkCnmanTItaMgsßiten
AEtTIRkugPñMeBj
dUcenHPñMeBjCatMbn;Edlskþism
sMrab;karsikSarRsavRCavenH
ehIyRkumeyIgxJúM)aneRCIserIsykhag The Shop
CaTIkEnøgcuHkmµ sikSa.
CagenHeTAeToteyIg)ancuHBinitüemIltambNþaha
gTMenIb²mYycMnYnEdlmandUcCa BBWorld, KFC, Lucky
Seven.

3>2 RbPB nigtaragRbmUlTinñn½y ( Data source and

Collection ) :

Tinñn½ysikSaRsavRCavsMrab;sarNaenHRtU
v)anRbmUlecjBIRbPBepSg²rYmmandUcxageRka
m³
3>2>1 Tinñny½cMbg ¼ Tinñny½edIm Primary
data

Tinñny½enHnwgRtUv)anRbmUltamry³kareF
VIbTsMPasn¾CamYyGñkBak;Bn½æ
CamYykarTTYlxusRtUv
RkumBiPakSanigGñkTTYlxusRtUvkargarpÞal;
CMnaj Database Programming 39
karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
ehIyTnwÞmnwgenHTinñny½mYyEpñkeTot)an
RbmUltamry³ karcuHGegátpÞal; nig
saksYrdl;TIkEnøgEtmþgrYmCamYytamry³kMrgs
MnYr. karcuHeTABinitünwgsegát enAhag BBWorld,
KFC, Lucky Seven karRbmUlnUv Brochure & Leaftlet
BIhagTaMgBIrxagelI karBiPakSa nig
karsikSaCaRkum.
sßanPaBTYeTArbs; Gahard§an
mYycMnYnEdlmanenATIRkugPñµMeBj
- BB World
BBworld Cahag Fast Food

mYyEbbTMenIbEdlmanlkçN³l¥RbesIreTAelITIkE
nøg nig esvakmµ
tamEbbbreTskñúgenaHeKeXIj)ankMBugnwgbMB
ak;nUvRbB½n§RKb;RKgkarlk; EdlCYysMrYldl;
karlk;dUrrbs;xøÜnRBmTaMgmankardak;eGayeRb
IR)as; Internet/WiFi Free pgEdr. CalT§pleyIg
segáteXIjfamanGtifiCnEtgEtmkTijjaMuCaerogral;
éf¶.
- KFC

KFC CahagGnþrCatimYyEdlsMbUrGtifiCn
TaMgePJovCati nigGnþrCati. kñúgenaHeyIg segát
eXIjfa hag KFC

k_manbMBak;nUvRbB½n§RKb;RKgkarlk;
GaharTan;citþrbs;xøÜnpgEdr.
CMnaj Database Programming 40
karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
- Lucky Seven
cMENkÉhag Lucky Seven

k_CahagmYybMerIkarlk;GaharedayeRbIR)as;RbB
½n§RKb;RKg karlk; Fast Food dUcKñaeTAnig hag
BBworld nig KFC Edr.

tamkarsikSaRsavRCavnigsaksYrB½t’manb
EnßmBIsMNak;GñkeRbIR)as; POS RtUv)anbegáIt
eLIgedayRkumh‘unsresrkmµviFImYycMnYndUc
Ca ³
- Rkumh‘un K. Digital Solution
- Rkumh‘un T.O Computer
- Rkumh‘un Blue Technology
k_dUcCabNþaRkubh‘unmYycMnYndéTeTot
EdlRkumh‘unTaMgenaHPaKeRcInecjBIRbPBénni
siStEpñk IT EdlKat;)anykcMeNHdwg
EdlBYkKat;TTYl)anBIkarsikSamkshkarKñabegáIt
CakmµviFIepSg² EdlenA
kñúgenaHk¾mankmµviFI POS enHpgEdr.
3>2>2 Tinñn½ybnÞab;bnSM ( Secondary data )
Tinñn½yenH)andkRsg;
nigRbmUltamry³karcUlGanÉksaresovePAmYycM
nYn EdlmanenAkñúg bNÑal½y
ehIymYycMENkepSgeTot)anRbmUltamry³TsSna
vdþIB½t’manviTüa Éksarrbs;snñisiTæ
B½t’manviTüa tameKhTMB½repSg².
CMnaj Database Programming 41
karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
karpþl;CaKMniteyabl;BIsaRsþacarüdwknaM
RBmTaMgtamry³kmµsikSa elI Program nig
Éksarnanarbs;nisitSCMnan;mun².
3>3 viFIsaRsþkñugkarsikSa ( Methodology of Study ) :
viFIsaRsþénkarsresrsarNaenH
Kw)anEp¥kelImUldæanénkarBiBN’na
nigviPaKeTAelIRbB½n§ System file

tamry³B½t’manEdlRbmUl)ankñúgkMLúgeBlénkar
cuHeFVIkmµsisSa kareFVIkarsMPasn¾edIm,I
kMnt;nUvRbB½n§fµImYysMrab;Rkumh‘unRKb;
RKgeTAelI Fast Food.
eyagtamkmµvtßú nigeKalbMNgénsarNa
Tinñn½yTaMgLay Edl)anRbmUltamry³Tinñn½y
bnÞab;bnSMdUcCa
bNÑal½yEdlmankarTak;TgeTAnwgviubsaymYyc
MnYn. sarNaenH nigRtUv)ansresr
tamCMhandUcxageRkam³
- karerobcMRsavRCavsarNa
-
RbmUlTinñn½ytamry³dMeNIrkareFVIbTsMPasn
¾nigrMlwkRTwsþI ( LiteratureReviews ) viPaK Tinñn½y
nigkarsresreLIgvijCar)aykarN_.

3>3>1 System Development Life cycle ( SDLC )

KICaRbBnæ½mYyEdleRbIsMrab;eFVIkarerobcM
CMnaj Database Programming 42
karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
nUvRbB½næB½t’man
nigeFVIkaredaHRsaynUvbBaða EdlekIt
manenAelIRbB½næ.
ehIyenAkñúgkardMeNIrkarén SDLC enHKWEckCa
05 dMNak;kalEdlman dUcrUbxag eRkam³
kareFV
I
KMera
karRbti g kareFV
btþi I
karN_el viPaK
IRbBn
æ½ karGnu karrcna
vtþn_ RbBnæ
elIRbB ½
næ½
rUbPaBTI 11³
dMNak;kalénkarviPaKeTAelIRbBnæ½
k> kareFVIKMerag ( System Planning )
sMrab;eFVIkarkMNt;nUvTMhM nig
RBMEdnénbBaðaedIm,IeFVIkarksagnUvKMerag[
manPaBRbesIr nigdMeNIrkar)anRsYl.
x> kareFVIkarviPaK ( System Analysis )
eFVIkarviPaKelIbBaðaEdlekItman
bnÞab;mkeFVIkarri³rknUvviFIsaRsþepSg²
CMnaj Database Programming 43
karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
kñúgkaredaH
RsayedIm,I[RbBnæ½enHmandMeNIrkar.
K> karrcnaRbBnæ½ ( System Design )

KWCadMNak;kalmYyEdlGñksresrnUvkmµviFIeF
VIkarrcna edIm,I[RbB½næmanPaBrs;revIk
edIm,IeFVIkarTak;TajnUvGñkeRbIR)as;.

X> karGnuvtþn_elIRbBnæ½ ( System Implement )

KWCadMNak;kalGnuvtþn_mYyEdlsMxan;bMput
edIm,IeFVI[RbBn½æRKb;RKg manrUbrag
nigGac dMeNIrkar)an.
g> karRbtibtþikarN_elIRbBnæ½ ( System Operation and
Support )

viPaKemIleTAelIEpñk Implement

edIm,I[)ansmRsbeTAnwg Design

dMNak;kalehIycab;epþIm eFVIkar Implement

mþgeTot.
eRkayBIeFVIRbtibtþikarN_elIRbBnæ½rYcmk
KW)ancab;epþImykdMNak;kalenH
eTAeFVIkareRbobeFobCamYYynwgdMNak;kald
MbUg
¬dMNak;kalkareFVIKMerag¦faetIkarRbtibtþienAk
ñúgdMNak; kalcugeRkay

CMnaj Database Programming 44

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
nigkareRKagenHTTYl)anb:unµanPaKry ?
b¤smRsbeTAnwgkareRKagTukEdrrWeT ? ehIy
smR sbnwgGacTTYlyk)anb¤Gt; ?
3>3>2 karviPaKénRbB½n§fµI
mU:Edlrbs;RbB½n§)aneRCIserIstamviFI
Relational Database Model dUcenHkareRCIserIsyk Design

EdlTak;TgenAkñúgkarsikSaRsavRCavenHKW ³
Data Model
ÉksareFVIkarkt;RtaTuknUveQµaH Table, Field, Data
type, Size, Format.....
Table Name: ..........
Descriptions: .........
FieldName Descriptions Data Type Size Format
................. .................. ................ ....... .............
................. .................. ................ ....... .............
................. .................. ................ ....... .............
Table rYmman (manbgðajenA Appendix TMB½rTI 45 )

cMeBaHRbB½n§RKb;RKgenH
EdlCaRbePTrbs; Database System

RtUv)anbegáIteLIgsMrab;Gñk eRbIR)as;
RKb;RKgelIvaehIycMeBaHRbB½n§fµIenH)anEc
kGñkeRbIR)as;CaBIrRbePTxusKñadUcxageRkam
³
- GñkeRbIR)as;mansiT§iCa Adminstrator:
cMeBaHGñkeRbIR)as;RbePTenH
KWmansiT§ielIkar RKb;RKg karlb; karEk
karbEnßm

CMnaj Database Programming 45

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
nUvB½t’manTaMgGs;enAkñúgRbB½n§TaMgmU
l.
- GñkeRbIR)as;mansiT§iCa User Account :
cMeBaHGñkeRbIR)as;RbePTenH
KWRtUvmankarcuH
eQµaHedIm,IGaceRbIR)as;RbB½n§enH)an.bnÞab
;BIkarcuHeQµaHehIy
GñkeRbIR)as;RbePTenHGacemIlnUvB½t’
manTaMgenaH)anEtenAkñúgmYycMnYnb:ueNÑ
aH.
3>3>3 karBiBN’naBI Field of Table
( manbgðajenA Appendix TMB½rTI 45 )

3>3>4 Flow Chart

CMnaj Database Programming 46

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ

rUbPaBTI 12 : Flow Chart

3>3>5 Design and Implementation

( manbgðajenA Appendix TMB½rTI 45 )
enAkñúgkar Develop

RbB½n§fµIenHeyIg)anbegáItCalkçN³ Client Server

edayeRbIkmµviFI Micro soft SQL Server

sMrab;pÞúkTinñn½yEdlmanenAkñúg Database ehIy

Relation DatabaseRtUv)aneRbIsMrab; RbB½n§fµIpgEdr (

manenArUbPaBTI 13 ).

3>3>6 Databases (Relationship):

CMnaj Database Programming 47

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ

rUbPaBTI 13: Database Relationship

3>4 kmµviFIRKb;RKgRbB½n§Tinñn½y (Database Application

Package)

- RbB½n§Rbtibtiþkar Microsoft
WindowseRbIR)as;bNþaj Client Server ModeleRbIR)as; Relational

Database Model nig)aneRbI Tool rYmman ³

- Applicational Tools
- SQL Server eRbIsMrab;púÞukTinñn½y (Back End)
- Microsoft Word sMrab;sresrr)aykarN¾epSg²
- Microsoft Excel sMrab;karKNnaepSg²
- Microsoft PowerPoint sMrab; Presentations
- Programing Tools

- eRbICa Interface
Microsoft Visual Basic.Net

- Crystal Report sMrab;eFVI Report

- Graphic Tools

- Adobe photo shop

- Macromedia flash

- Animation
-Operating System

- Window Server 2003 sMrab;eFICa Server/Client

rbs;kmµvieFIV.

CMnaj Database Programming 48

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
- Window XP Professional sMrab;eFICa Server/Client
rbs;kmµvieFIV.

CMnaj Database Programming 49

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
CMBUkTI4
lT§pl énkarRsavRCav

4>1 sMeyaK
qøgtamkarcuHsegátknøgmkeyIgeXIjfa
enAkñúgRbBn§½cas;Edl)aneRbIR)as;knøgmkena
H enA mancMnucxVHxatCaeRcIn
kñúgkarRKb;RKgeTAelIkarbBa¢arTij
nigkarlk;dUrrbs;hagenHKWeRbIRtwmEtbu‘ic
nigRkdas;edIm,Ikt;RtaEtb:ueNÑaHEdlBMuTan;m
anlkçN³viTüasaRsþenAeLIyBMuGacFana)annUvs
uvtßiPaBkñúg
karrkSaTinñn½ynigBi)akkñúgkarRKb;RKgedayB
uMGaceqøIytbeTAnwgtMrUvkarrbs;GñkeRbIR)as
;edayGtifiCn nigmuxmðÚb rW
TMnijCaeRcInEdlecHEtekIneLIgCaerogral;éf¶.
CaBiessenaH
KWkarerobcMeFVIr)aykarN_sMrab;ecjlT§plbiTb
BaöI naeBlcugRKarbs;hagCa
erogral;ExEtgEtmanPaByWty:av
edaysarmUlehtuEdl)anerobrab;xagelI )
anCMrujeGayRkumeyIgxJúM
eRCIserIsRbFanbTfµImYyenHedIm,IeFVIkarsikS
arKW kmµviFIRKb;RKgePaCnIydæan.

CMnaj Database Programming 50

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
karRKb;RKgRbB½næsþúktamry³RbB½n§
Database )anbegáIteT,IgedIm,Ipþl;PaBgayRsYldl;kar
eRbIR)as; karbB¢aarTij kareFVIr)aykarN_
manPaBsuRkwt RbcaMEx RbcaMEf¶
nigRbcaMs)aþh_rh½s nigsV½y Rbvtiþ
cMENkÉTinñn½yk¾mansuvtiþPaBCagmun.
müa:geTotcMNayeBlevlatickñúgkarEsVgrkTinñn
½y eTA tamtRmUvkarrbs;GñkeRbIR)as;.
eRkayBI)ancuHsegáteyIgeXIjfaRbB½n§fIµenH
KWeFIVkarpøas;bþÚrBIRbBn§½
cas;EdleRbIR)as;edayédeTAeRbIR)as;RbBn§½
Computer edaymincaM)ac;cMNayeBlevlaeRcIn ehIy

enAkñúgkarGPivDÆn_eFIVRbBnæ½enHeLIgK
WeRbIR)as;enA Tool : SQL Server, Microsoft Visual Basic.Net.
4>2 TidæPaBTUeTArbs;kmµviFI

tamry³dMeNIrkarénkarRsavRCavEdlmandUcCa
kareRCIserIsTItaMgRsavRCav karkMNt; TMhM
dMNak;kar Design kar Analysis

kmµviFIkareRbIR)as;viFIsaRsþ nig ]
bkrN_mYycMnYnRBmTaMgkar
eFVIetsþkmµviFIknøgmkdUcenHkarRsavRCavTT
Yl)anlT§pl nig sMerctameKalbMNgEdl)andak;ecj.
xageRkamCalT§plEdlbgðajBITidæPaBTUeTArbs;
kmµviFI POS.
CMnaj Database Programming 51
karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ

rUbPaBTI 14³ Login Screen

rUbPaBTI14 enHCa Form Login:

EdlRtUv)aneKeRbIsMrab;GnuBaØat[GñkeRbIR)a
s;kmµviFI mansiTiæ
GaccUleTAeRbIR)as;kmµviFIenH)an ( Application )
edayRKan;EtbBa©ÚleQµaHRBmTaMgelxsm¶at;e
dIm,I mansiTæieRbIR)as;kmµviFIenH)an.
eyIgGackMNt;siT§ieGayGñkeRbIR)as;
edIm,IeGayRbB½n§mansuvtþiPaB l¥ .

CMnaj Database Programming 52

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ

rUbPaBTI 15³ Interface of Main Form

rUbPaBTI15 enHCa Main Form Interfaced

d¾sMxan;mYyEdleFVIkar Access eTAkan; Form d¾éT

eTot)aneBalKWCa Form

mYyEdlRbmUlpþúMnUvcMNuc Access eTAkan; Form

d¾éTeTotdUcCa ³ Form Set Floor Ca Form
mYyEdlGaceGayeyIgkMnt;cMnYnCan;énGahard
æan. Form Menu Ca Form GaceGay
eyIgbEnßmnUvmuxmðÚbepSg². Fom Report Ca Form
EdlbgðajBIr)aykarN_lk;RbcaMéf¶ rw
RbcaMs)þah_ rWk¾ RbcaMEx.

CMnaj Database Programming 53

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ

rUbPaBTI 16³ Interface of Create floor

rUbPaBTI16 enHCa Floor Form

mYyEdlpþl;lT§iPaBeGay Adminstrator GacbegáIt Floor

eTAtamTItaMgCak;Esþgrbs;hagEdlpþl;lT§iPaB
gayRsYlsMrab;hagkñúgkarEbgEckCaCan; ( Floor ).
kñúgenaHeyIgGacbEnßm Floor edaydak; Floor ID, Floor
Name, and Description. enAeBlEdl
bMeBjTinñn½yrYcB½t’mannwgFøak;cUlkñúgtara
g. taragenaHral; Record TaMgGs;Gac Edit )annig Delete )
aneTAtamtMrUvkar.

CMnaj Database Programming 54

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ

rUbPaBTI 17³ Interface of Create Table

rUbPaBTI17 enHKWCa Table Form

mYyEdlpþl;lT§iPaBeGay Adminstrator GacbegáIt Table

eTAtam Floor

nImYy²Cak;Esþgrbs;hagEdlkMnt;eday Floor ID.

EdlkñúgenaHeyIg)anEbgEckCa RbePT én Table

eTACa3RbePTdUcCa VIP, Smoke, Normal

sMrab;bMeBjeTAtamtRmUvkarrbs;ePJóv.
enAeBlEdlbMeBjTinñn½yrYc
B½t’mannwgFøak;cUlkñúgtarag. taragenaHral;
Record TaMgGs;Gac Edit )an nig Delete )
aneTAtamtRmUvkar.

CMnaj Database Programming 55

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ

rUbPaBTI 18³ Cashier Main Form

rUbPaBTI18 enHKWCa Form Main

mYyEdlbgðajGMBIcMnYnén Floor nig Table

NaxøHmanePJóv rW Gt;.
Edlpþl;PaBgayRsUlRKb;RKgeTAelItuNaxøH?
EdlTMenr rWk_manePJóvehIy rWmYyk_ePJóv )
anKit R)ak;ehIyCitcakecj.
eBlePJóvcUlkñúgtuNamYyehIyeFVIkar Order

ehIyBN’bgðajBItuenaHnwgERb eTA CaBN’ Occuped

vij. bnÞab;BIePJóvbriePaKrYc ePJóveGay Print Bill
enaHBN’rbs;tu nwgkøayCa BN’ Printed Bill

CMnaj Database Programming 56

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
mann½yfaePJógnwgKitR)ak;
rYcehIynwgecjenAeBlqab;².

rUbPaBTI 19³ Interface of Main Order Form

rUbPaBTI19 enHKWCa Main Order Form mYysMrab;
Seller eRbIedIm,IbBa¢Únral;muxmðÚbGarharEdl
GtifiCn)aneRCIserIsehIyk_)an List

eQµaHTaMgT,ayEdlGtifiCn)an Order.

RbBn½§nwgTUTat;R)ak;srub
edaysV½yRbvtiþeTAtamkar Order rbs;ePJóvnimYy².
eBlePJóv Order rYceyIgcucelI Button Order enaH
vanwgRtlb;eTA Form Cashier vij.
CMnaj Database Programming 57
karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
bnÞab;BIePJóvbriePaKGaharrYcenaH
eyIgGacKitR)ak;srubTaMgGs;
dUcenAkñúgrUbPaBxageRkam rUbPaBTI 20 .

rUbPaBTI 20³ Interface of Sale Cashier Form

rUbPaBTI20 Form Sales: KWenHCa Form

mYyEdleKeRbIsMrab; Sale Users EdlGacbBa¢ÚlTwk

R)ak;rbs;GtifiCncMnYnTwkR)ak;RtUvbg;
nigbgðajmkvijnUvR)ak;Gab;dl;GtifiCnedaysV½y
Rbvtiþ. enAkñúg Form

enHeyIgGacEkERbmuxmðÚbepSg²rWk¾lb;mux
mðÚbEdl)an
CMnaj Database Programming 58
karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
Order.mü:ageTotmanCMerIsmYyepSgeTot KW All Free
Button

enHKWsMrab;GtifiCnBiessEdldUcCam©as;hagC
aedIm. minRtwmEtb:ueNaÑH eyIgk¾Gac
TTYlCaR)ak;erol rW R)ak;duløa )anpgEdr.

rUbPaBTI 21³ Receipt

bnÞab;BITYTat;rYcxagelIRbB½n§Gac Print Ca
Receipt dUcrUbPaBTI21enHbgðajGMBI rUbPaB
Receipt EdlRtUv)anecjeday Cashier

enAeBlEdlGtifiCnTijEdlbgðajBImuxmðÚbnimYy
² nigcMnYn RBmTaMgtMélsrub.

CMnaj Database Programming 59

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ

rUbPaBTI 22³
r)aykarN¾lMGitrbs;GñkKitluynImYy² (Each Cashier Sale
Detail Reports)

CMnaj Database Programming 60

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ

rUbPaBTI 23³ Total Each Cashier Sale Report

eyIgeFIV Report

KWedIm,IgayRsYldwgfakñúgmYyéf¶²TTYl)anc
MNUlb:unµnan ? plitplGIVxøHEdl lk;dac;CageK?
müa:gvijeTot edIm,IfaetI Cashier NamYyecj Receipt
elxNaeGayeTAGtifiCn?
ehIyeyIgk¾GacdwgnUvmuxmðÚbGaharNaxøH?
EdleK)anjaMueTAtamelxrbs; Receipt nimYy²Edl)an
kMNt;nUvbB¢aItMéltamtMélnimYy²
RBmTaMgkalbriecäTpg dUcEdl)anbgðajenAkñúg
( rUbPaBTI 22 nig 23 ).

CMnaj Database Programming 61

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
CMBUkTI5
karviPaKeTAelI lT§plénkarRsavRCav

5>1 lT§plénkarRsavRCav
eRkayBI)anqøgkat;ry³eBl 4Ex knøgmk.
RkumsarNa)anxitxMeFVIkarRsavRCav
karviPaKrhUt )
anTTYllT§plEdlKitfavaGacCYysMrYldl;kargarR
Kb;RKgkarlk; nigCYysMrYldl;karRKb;RKgr)ay
karN_eGay)anCaklak;
nigmanPaBRtwmRtUvCagmundl;Gahardæan The

Shop.

5>2 lT§plénkarviPaKeTAelIRbB½næ
5>2>1 RbB½n§cas;
- PaBxøaMg ³
GaceFVIkMNt;Rtaerogral;cugExmþg
b:uEnþkareFVIkMNt;RtaenHKWeRbIeBlevlayUrs
Mrab;karerobcM Éksar
nigGacKNnarkcMnYnGaharEdl)anlk;
edayykkMNt;Rtaerogral;éf¶mkeFVIkarKNnaGñk
RKb;
RKgbBa©IRtUvcMNayeBlevlaeRkAem:agxøH²ed
Im,IepÞógkMNt;Rtaerogral;éf¶.
- PaBexSay ³
CMnaj Database Programming 62
karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
cMNayeBlyUrkñúgkarerobcMnig
RbmUlTinñn½yEdleKcg;dwgPøam²KWRtUvcMN
ayFnFaneRcIn TaMgmnusS fvika nigsMPar³epSg².
suvtþiPaBkñúgkarrkSaTukTinñn½ymankMritenAe
LIy BIeRBaHkarkt;Rta elIRkdas;vaGacrlb;
TukyUreTAGacbMpøajedaystVl¥it rW sMeNIm.
KµankarkMNt;siT§eGay User

nImYy²kñúgkareRbIR)as;Tinñn½y)ann½yfa Sale

GaceRbI)anKWenAeBlEdleKcg;dwgPøam².
rIÉTinñn½ypÞúk )ancMnYntic
eRBaHkmµviFIEdlykmkeRbIKW Microsoft Excel nig Quick
Book sMrab;pÞúkTinñn½ykmµviFI
EdlykmkeRbIminGaceRbICalkçN³ Multi-User )aneT.
-
karviPaKsikSaelIRbB½n§eRbIR)as;bc©úb,nñ
edIm,IQandl;karerobcMbegáIteLIgnUvRbB½n§fµ
IKW
RtUvEsVgyl;kargarEdleKeRbIR)as;CaRbcaM
kñúg karlk;dUrenAkñúghagCamunsin.
kargarbc©úb,nñEdleKeRbITak;TgeTAnwgkarRK
b;RKgbB©aIenaHKWman
kareRbIR)as;RbB½n§RKb;RKgedaykMuBüúT½rx
øHEdr
EtPaKeRcInKWeKeRbIedayédesÞIrEtTaMgGs;.

CMnaj Database Programming 63

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
dUcenHkar erobcM
sMrab;eRbIelIRbB½n§fµIRtUv)anbegáIteLIg.
5>2>2 RbB½n§fµI
RbB½n§RKb;RKgfIµenHEdlCaRbePT Database
System edIm,ICMnYseGayRbBn½§cas;munEdl
RtUv)anbegáIteLIgsMrab;GñkeRbIR)as;RKb;RKg
elIdMeNIrkarénkarlk;dUrkñúghag
EteyIgeXIjmancMNuc
mUycMnYnEdlmancMeBaHRbB½nÐfIµenHpgEd
r³
- PaBexSay ³
- BMuTan;GaceRbIelI Operating System
mYycMnYndUcCa ³ Win95/ 97/ 98/ Me/ Linux
- BMuTan;GaceRbIelI Online )an
- BMuTan;GaceFVI Report
CaPasarExµr)anenAeLIy
- PaBxøaMg ³
- mineGaymanPaBsÞÜnén Data
- gayRsYlkñúgkar Search
rkB½t’manEdlTak;TgeTAnwgkarcg;)an
- GaceRbICalkçN³ Multiuser
KWmann½yeRbIR)as;kmµviiFIeRcInnak;k
ñúgeBlEtmYy
- cMNayeTAelIFnFanticTaMg mnusS
fvika nigsMPar³
CMnaj Database Programming 64
karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
-
mansuvtþiPaBkñúgkarrkSaTukTinñn½yeyI
gGac Back Up ÉksarTaMgenaH
- mankarkMNt;siT§i User

CMnaj Database Programming 65

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
CMBUkTI 6
esckIþsnñid§an nig Gnusasn¾

5>1 esckþIsnñidæan
RbB½n§RKb;RKg Fast Food Billing Management System
RtUv)anbegIáteGaymanPaBgay RsYlCagmun
edayvivtþn¾BIkareFIVkaredayédmkeRbIRbB½n§
kMuBüÚT½rvij.
RbB½n§fIµenHmaneKalbMNgeq<aH
eTAkan;karRKb;RKg karlk;mðÚbGarharénhag The
Shop Restaurant EtmYyKt;EdlEp¥keTAelIRbB½n§
RBmTaMgÉksarTak;Tin nwg karRKb;RKg karlk;
enAkñúgRkumh‘unenH.
enAkñúgkarbegIánRbB½n§RKb;RKg Fast Food
Billing Management System enHKW)aneRbIR)as; Visual Basic.Net

edIm,IbegIát Forms nigsresr Codes

RBmTaMgbec©keTsmYycMnYneTotedIm,I Connect
b¤ Link eTAnwg Database dUcCa ActiveX Object
nigeRbIenAelIkMuBüÚT½rehIykargarEdl
RbB½n§enHbegIáteLIgKWsMrab;Gñklk; ( Seller ).
-
Gñklk;mansiTi§RtwmEtbB©ÚalnUvmuxmðÚbEd
l)an Order EdlenAkñúg Stock e)aHBum<vik½áyb½Rt (
Invoice ) CUnGtifiCn nigr)aykarN_RbcaMEx.

CMnaj Database Programming 66

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
enHCaRbB½n§mYyfµIEdlGahardæan The Shop
enHBMuTan;mankareRbIR)as;
nigkarGnuvtþn_ehIy
RbB½n§enHeTotesatk¾mancMNucxøH²Edl)anbe
gIánel,ÓndMenIrkarlk;EdleKcg;)an.
EteTaHCamankar xVHxaty:agNak¾eday
k¾RbB½n§RKb;RKgenHCYysMrYlkargardl;Gñk
lk; ( Seller ) )anRbesIrCagmunmYy cMnYnFM.
srubesckþImkeXIjfa
RbBnæ½enAelIkMuBüÚT½rfµIenHmanlkçN³l¥R
besIrCagRbB½n§kt;Rtaedayéd edayehtufa
Gackat;bnßyeBlevla)any:ageRcIn
nigkat;bnßyPaBsµúKsµajepSg² EteTaHCay:agNa
k¾eday
k¾karRKb;RKgedaykMuBüÚT½renAEteCosminp
utBIkgVHxat nigkMhusqÁgmYycMnYn)aneLIy
eTaHbICa y:agNaenHkþI
karRKb;RKgkarlk;enHmanlkçN³TMenIbEdleKeh
Afa sm½ybec©kviTüakMuBüÚT½r.
5>2 eyabl;sMrab;karRsavRCavelIkeRkay
edIm,IeGayRbB½n§fIµEdl)ansMercykmkeFIVkar
RsavRCav[kan;EtmanlkçN³l¥RbesIrEfmeTot enaH
karbMeBjbEnßmnUvcMnucxVHxateTAelIRbB½n
§enHRtUvEtbnþ

CMnaj Database Programming 67

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
nigBRgIkedIm,IeqøIytbeTAnwgtRmUvkarrbs;
hag.

CMnaj Database Programming 68

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
Éksareyag
1-John Wiley & Sons, Inc. (©2007).Database: Data Modeling Fundamental. Canada: New
Jersey Published simultaneously.

2- Jensen,C.& Anderson,L.(©2003). Advantage Database Server. McGraw-Hill/Osborne Media.

3-Chi Kim Y & Te Samnang.(©2007).Mastering VB.net. Cambodia: Edition Angkor, ISBN-

13:978-99950-2-006-4

4-Spaanjaars, I. (2008). Beginning ASP.NET 3.5 In C# and VB (Programmer to

Programmer). Wrox Press Publication: English, ISBN: 9780470187593

5-URL: http://en.wikipedia.org/wiki/Visual_Basic_.NET

(Accessed Date: 7th September, 2009)

6-URL: http://www.vbdotnetheaven.com/ErrorDisplay.aspx?aspxerrorpath=/Default.aspx

(Accessed Date: 15th September, 2009)

7-URL: http://www.startvbdotnet.com/language/default.aspx

(Accessed Date: 25th September, 2009)

8-URL: http://www.codeproject.com/KB/vb/

(Accessed Date: 27th September, 2009)

9-URL: http://www.tutorialized.com/tutorials/Visual-Basic/.NET/1

(Accessed Date: 30th September, 2009)

10-URL: http://www.dreamincode.net/forums/showforum92.htm

(Accessed Date: 5th August, 2009)

11-URL: http://www.developers.net/all_content/Focus/.NET

(Accessed Date: 7th August, 2009)

12-URL: http://www.example-code.com/vbdotnet/default.asp

(Accessed Date: 10th August, 2009)

CMnaj Database Programming 69

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ

CMnaj Database Programming 70

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
Appendix
kMritén Relationship Type

Entity Relationsh Symbol Unary

ip

Entity Entity Symbol Binary

Relationsh
ip

Entity Entity Symbol Ternary

Relationsh
ip

Entity

rUbPaBTI8 Relationship Degree

enAkñúgrUbPaBTI2>8 KW Symbol
EdltMNag[kMritén Relationship
TypeEdlkñúgenaHEckecjCa bIkRmWt ³

- kMritTI1 KW Unary mankarP¢ab;Kñarvag Entity

Name mYy enACamYy Relationship.

- kMritTI2 KW Binary mankarP¢ab;rvag Entity Name

BIr enAsgxag Relationship.
- kMritTI3 KW Ternary mankarP¢ab;Kñarvag Entity
Name bI enACuMvij Relationship.

m:UEdlénRbB½n§
CMnaj Database Programming 71
karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ

TblReceiptM ( ReceiptNo , ReceiptDate, BillNo, EmpCode, SubTotal, Discount,Total,

CashIn, Change, ExchangeRate )

TblReceiptD ( ReceiptNo, MCode , Qty, UnitPice, Discount, Amount )

TblMenu ( MCode, MKhmer, MEnglish, CatCode, Price, Picture )

TblCategory ( CatCode, CatKhmer, CatEnglish, Active )

TblBillM ( BillNo , BillDate, SeatNo, EmpCode, NumOfPeople, SubTotal, Discount,

Total )

TblBillD ( BillNo , MCode , Qty, UnitPrice, Discount, Amount )

TblSeat ( SeatNo, Seat, PaxNo, NumOfPeople )

TblPax ( PaxNo, Pax, Active )

TblVoidBill ( VoidBillNo, VoidDate, BillNo, EmpCode, Reason )

TblVoidItem ( VoidBillNo , MCode , Qty, UnitPrice, Amount )

TblEmployee ( EmpCode , KhmerName, EnglishName, Password, Sex, AccessRight,

Tel, Add, Remark, Active )

karBiBN½naBI Field of Table

+ TblReceiptM

Data Field Field

Nº Field Name Description
Type Size Type

1 ReceiptNo Char 10 pÞúknUv elxerog rbs; Primar

key
Receipt

2 ReceiptDate Datetime 8 pÞúknUvéf¶Exrbs; Normal

key
Receipt

3 BillNo Char 10 pÞúknUv elxerog rbs; Normal

key
Bill

4 EmpCode Char 10
pÞúknUv elxkUtrbs; Normal
key
buKÁlik
CMnaj Database Programming 72
karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ

5 SubTotal Int 4
pÞúknUvtMélmunsru Normal
key
b
6 Discount Int 4
pÞúknUvcMnYnEdlR Normal
key
tUvbBa©úHtMél
Normal
7 Total Int 4 pÞúknUvtMélsrub key

8 CashIn Int 4
pÞúknUvcMnYnR)ak; Normal
key
EdlePJóvbg;
pÞúknUvcMnYnR)ak;
Normal
9 Change Int 4 EdlRtUv key
Gab;eGayePJóv
10 ExchangeRate Int 4
pÞúknUvGRta Normal
key
bþÚrR)ak;
edayehtufaTMhMén Char = 30 Bytes, Integer = 24 Bytes,
Datetime = 8 dUcenHTMhM srubkñúgmYy Record kñúg

Table enH KW = Sum(Field Size ) = 182 Bytes.

+ TblReceiptD

Data Field Field

Nº Field Name Description
Type Size Type

1 ReceiptNo Char 10 pÞúknUvelxerog rbs; Primar

key
Receipt

2 MCode Char 10
pÞúknUvelxkUtrbs;mu Primar
key
xmðÚb
3 Qty Int 4
pÞúknUvcMnYnénmu Normal
key
xmðÚb
4 UnitPrice Int 4 Normal
pÞúknUvtMélmYymu key

CMnaj Database Programming 73

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
x²
5 Discount Int 4
pÞúknUvcMnYnEdlRt Normal
key
UvbBa©úHtMél
Normal
6 Amount Int 4 pÞúknUvtMélsrub key

edayehtufaTMhMén Char = 20 Bytes, Integer = 16 Bytes

dUcenH TMhMsrubkñúgmYy Record kñúg Table

enHKW = Sum( Field Size ) = 36 Bytes.

+ TblMenu

Data Field Field

Nº Field Name Description
Type Size Type

1 MCode Char 10
pÞúknUvelxkUtrbs;mu Primar
key
xmðÚb
2 MKhmer Char 10
pÞúknUveQµaHmuxm Normal
key
ðÚbCaExµr
3 MEnglish Char 10
pÞúknUveQµaHmuxm Normal
key
ðÚbCaGg;eKøs
4 CatCode Char 10
pÞúknUvelxkUt Normal
key
rbsRbePTGahar
5 Price Int 4
pÞúknUvtMélrbs;mux Normal
key
mðÚb
6 Picture Image 16
pÞúknUvrUbPaBrbs;m Normal
key
uxmðÚb

CMnaj Database Programming 74

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
edayehtufaTMhMén Char = 40 Bytes, Integer = 4 Bytes, Picture
= 16 Bytes dUcenH TMhM srubkñúgmYy Record kñúg Table

enHKW = Sum(Field Size ) = 60 Bytes .

CMnaj Database Programming 75

karbegáItRbB½næRKb;RKgkarlk;
 saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
+ TblCategory

Data Field Field

Nº Field Name Description
Type Size Type

1 CatCode Char 10
pÞúknUvelxkUtrbs;Rb Primar
key
ePTGahar
2 CatKhmer Char 10
pÞúknUveQµaHRbeP Normal
key
TGaharCaExµr
3 CatEnglish Char 10
pÞúknUveQµaHRbeP Normal
key
TGaharCaGg;eKøs
bBa
Normal
4 Active Char 10 ¢ak;BIkareRbIR)as;Rb key
ePTGaharenH Yes or No
edayehtufaTMhMén Char = 40 Bytes dUcenH
TMhMsrubkñúgmYy Record kñúg Table enHKW
esµInig Sum(Field Size ) = 40 Bytes .
+ TblBillM

Data Field Field

Nº Field Name Description
Type Size Type

1 BillNo Char 10
pÞúknUvelxero Primar key
grbs; Bill
2 BillDate Datetime 8
pÞúknUvéf¶Exr Normal key
bs; Bill
3 SeatNo Char 10
pÞúknUvelxero Normal key
grbs; Seat
4 EmpCode Char 10 Normal key
pÞúknUvelxkUt
CMnaj Database Programming 76
karbegáItRbB½næRKb;RKgkarlk;
 saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
rbs;buKÁlik
pÞúknUvcMnY
5 NumOfPeople Int 4 nmnusSEdlGgÁ Normal key

úy enAtuenH
6 SubTotal Int 4
pÞúknUvtMélm Normal key
unsrub
pÞúknUvcMnY
7 Discount Int 4 nEdlRtUvbBa© Normal key

úHtMél
8 Total Int 4
pÞúknUvtMélsr Normal key
ub
edayehtufaTMhMén Char = 30 Bytes, Integer = 16 Bytes,
Datetime = 8 Bytes dUcenH TMhMsrubkñúgmYy Record

kñúg Table enHKW = Sum(Field Size ) = 54 Bytes.

CMnaj Database Programming 77

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
+ TblBillD

Data Field Field

Nº Field Name Description
Type Size Type

1 BillNo Char 10 pÞúknUvelxerogrbs; Primar

key
Bill

2 MCode Char 10
pÞúknUvelxkUtrbsmu Primar
key
xmðÚb
3 Qty Int 4
pÞúknUvcMnYnénmu Normal
key
xmðÚb
4 UnitPrice Int 4
pÞúknUvtMélmYymu Normal
key
x²
5 Discount Int 4
pÞúknUvcMnYnEdlRt Normal
key
UvbBa©úHtMél
Normal
6 Amount Int 4 pÞúknUvtMélsrub key

edayehtufaTMhMén Char = 20 Bytes, Integer = 16 Bytes

dUcenH TMhMsrubkñúgmYy Record kñúg Table

enHKW = Sum(Field Size ) = 36 Bytes.

+ TblSeat

Data Field Field

Nº Field Name Description
Type Size Type

1 SeatNo Char 10
pÞúknUvelxerogr Primar
bs; Seat key

2 Seat Char 10
pÞúknUveQµaHr Normal
key
bs; Seat
CMnaj Database Programming 78
karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ

3 PaxNo Char 10
pÞúknUvelxerogr Normal
key
bs; Pax
pÞúknUvcMnYn
4 NumOfPeople Int 4 mnusSEdlGgÁúy Normal
key
enAtuenH
edayehtufaTMhMén Char = 30 Bytes, Integer = 4 Bytes
dUcenH TMhMsrubkñúgmYy Record kñúg Table
enHKW = Sum(Field Size ) = 34 Bytes.

CMnaj Database Programming 79

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
+ TblPax

Data Field Field

Nº Field Name Description
Type Size Type

1 PaxNo Char 10 pÞúknUvelxerogrbs; Primar

key
Pax
Normal
2 Pax Char 10 pÞúknUveQµaHrbs; Pax key
bBa
3 Active Char 10 ¢ak;BIkareRbIR)as; Pax Normal
key
enH Yes or No

edayehtufaTMhMén Char = 30 Bytes, dUcenH

TMhMsrubkñúgmYy Record kñúg Table enHKW
esµInig Sum( Field Size ) = 30 Bytes.
+ TblVoidBill

Data Field Field

Nº Field Name Description
Type Size Type
pÞúknUvelxerogrbs;
Bill Primar
1 VoidBillNo Char 10
muxmðÚbEdleKykmk key

dUrvij
2 VoidDate Datetime 8 pÞúknUvéf¶Exrbs; Normal
key
VoidBill

3 BillNo Char 10 pÞúknUvelxerogrbs; Normal

key
Bill

4 EmpCode Int 4
pÞúknUvelxkUtrbs;bu Normal
key
KÁlik
CMnaj Database Programming 80
karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ

5 Reason Char 10
pÞúknUvmUlehtuEdle Normal
key
KykmkdUr

edayehtufaTMhMén Char = 30 Bytes, Integer = 4 Bytes,

Datetime = 8 dUcenH TMhMsrub kñúgmYy Record kñúg

Table enHKW = Sum(Field Size ) = 42 Bytes.

CMnaj Database Programming 81

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
+ TblVoidItem

Data Field Field

Nº Field Name Description
Type Size Type
pÞúknUvelxerogrbs;
Bill Primar
1 VoidBillNo Char 10
muxmðÚbEdleKykmk key

dUrvij
2 MCode Char 10
pÞúknUvelxkUtrbs;mu Primar
key
xmðÚb
3 Qty Int 4
pÞúknUvcMnYnénmu Normal
key
xmðÚb
4 UnitPrice Int 4
pÞúknUvtMélmYymu Normal
key
x²
5 Discount Int 4
pÞúknUvcMnYnEdlRt Normal
key
UvbBa©úHtMél
Normal
6 Amount Int 4 pÞúknUvtMélsrub key
edayehtufaTMhMén Char = 20 Bytes, Integer = 16 Bytes
dUcenH TMhMsrubkñúgmYy Record kñúg Table
enHKWesIµnig Sum(Field Size ) = 36 Bytes.
+ TblEmployee

Data Field Field

Nº Field Name Description
Type Size Type

1 EmpCode Char 10
pÞúknUvelxkUtrbs;bu Primar
key
KÁlik
2 EmpKhmer Char 10
pÞúknUveQµaHbuKÁ Normal
key
likCaExµr
CMnaj Database Programming 82
karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ

3 EmpEnglish Char 10
pÞúknUveQµaHbuKÁ Normal
key
likCaGg;eKøs
pÞúknUvkUtsMrab;ka
Normal
4 Password Char 10 rcUleRbIR)as;rbs; key
buKÁlik
bBa
Normal
5 Sex Char 10 ¢ak;BIePTrbs;buKÁli key
k
bBa
Normal
6 AccessRight Char 10 ¢ak;BIsiT§irbs;buKÁli key
knImYy²
7 Tel Char 10
pÞúknUvelxTUrs½BÞ Normal
key
rbs;buKÁliknImYy²
8 Address Char 10
pÞúknUvGas½ydæanr Normal
key
bs;buKÁliknImYy²
sMrab;kt;RtaB½t’man
Normal
9 Remark Char 10 Tak;Tg nwg key
buKÁliknImYy²
bBa
10 Active Char 10
¢ak;BIkarGnuBaØate Normal
key
GayeRbIR)as;én
buKÁlik

CMnaj Database Programming 83

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
edayehtufaTMhMén Char = 100 Bytes dUcenH
TMhMsrubkñúgmYy Record kñúg Table enH
KWesµInig Sum( Field Size ) = 100 Bytes.
Proposed System

RbB½næfµIRtUv)anerobcM sMrab;
[tamtMrUvkarrbs; The Shop TaMgmUlkareRbIR)as;
ral;éf¶RKan;Et CasMNuMÉksar
EdlsresredayédsMrab;rkSaTinñn½yEtb:ueNÑaH.
Work Flow of the New Process

-
bnÞab;BIGtifiCnmkTijTMnijRtUvRtYtBinitüTMn
ij
- rkSaTinñn½yrbs;GtifiCnmYycMnYn
-
eBlGtifiCnTijRtUvKitelIcMnYnmuxTMnijsMrab;
rktMélsrubTaMgGs;
- ecjvik½yb½RteGayGtifiCn nigrkSaTuk

CMnaj Database Programming 84

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ

Context Diagram of New System

Product

Customer Employee

Sales

Data Flow Diagram

Process

Data Flow

External agent (Entities)

Data Store

Real-time-link

CMnaj Database Programming 85

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
Customer: Order product item
Seller: create information => Check product item from stock

Research Diagram

kMNt;bBaðaEdlRt
UveFVIkarRsavRC

kMNt;eKalbMNgén
karRsavRCav
RbmUlTin
ñn½y

Tinñn½ybzm Tinñn½ybnÞab;bnS
sMPasn_ Gegát nig M
karBiPakSaCaRkum

tMbn;EdlsikS BinitüÉ
a ¬ PñMeBj ¦ ksar

hag KFC hag BB Rkumhu‘n

World K-Digital

viPaKTinñn½y Design
nig karsresr
kareFVIetsþ
CMnaj Database Programming
nigEktRmU 86
karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ

lTæpl

CMnaj Database Programming 87

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
Design and Implementation

sMrab; TblReceiptM EdlRtUvGnuvtþn_tam ³

TblReceiptM ( ReceiptNo , ReceiptDate, BillNo, EmpCode, SubTotal, Discount,
Total, CashIn, Change, ExchangeRate )

- ReceiptNo : pÞúknUv elxerog rbs; Receipt

- ReceiptDate : pÞúknUvéf¶Exrbs; Receipt

- BillNo : pÞúknUv elxerog rbs; Bill

- EmpCode : pÞúknUv elxkUdrbs; buKÁlik

- SubTotal : pÞúknUvtMélmunsrub

- Discount :

pÞúknUvcMnYnEdlRtUvbBa©úHtMél
- Total : pÞúknUvtMélsrub

- CashIn :

pÞúknUvcMnYnR)ak;EdlePJóvbg;
- Change : pÞúknUvcMnYnR)ak;EdlRtUv

Gab;eGayePJóv
- ExchangeRate : pÞúknUvGRta bþÚrR)ak;

sMrab; TblReceiptD EdlRtUvGnuvtþn_tam ³

TblReceiptD ( ReceiptNo, MCode , Qty, UnitPice, Discount, Amount )
- ReceiptNo : pÞúknUv elxerog rbs; Receipt
- MCode : pÞúknUv elxkUt rbs;muxmðÚb

- Qty : pÞúknUvcMnYnénmuxmðÚb

- UnitPrice : pÞúknUvtMélmYymux²

- Discount :

pÞúknUvcMnYnEdlRtUvbBa©úHtMél
- Amount : pÞúknUvtMélsrub

CMnaj Database Programming 88

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
sMrab; TblMenu EdlRtUvGnuvtþn_tam ³
TblMenu ( MCode, MKhmer, MEnglish, CatCode, Price, Picture )
- MCode :pÞúknUv elxkUt rbs;muxmðÚb
- MKhmer : pÞúknUveQµaHmuxmðÚbCaExµr

- MEnglish :

pÞúknUveQµaHmuxmðÚbCaGg;eKøs
- CatCode : pÞúknUv elxkUt rbs;RbePTGahar

- Price : pÞúknUvtMélrbs;muxmðÚb

- Picture : pÞúknUvrUbPaBrbs;muxmðÚb

sMrab; TblCategory EdlRtUvGnuvtþn_tam ³

TblCategory ( CatCode, CatKhmer, CatEnglish, Active )

- CatCode : pÞúknUv elxkUt rbs;RbePTGahar

- CatKhmer : pÞúknUveQµaHRbePTGaharCaExµr

- CatEnglish :

pÞúknUveQµaHRbePTGaharCaGg;eKøs
- Active : bBa

¢ak;BIkareRbIR)as;RbePTGaharenH Yes or No
sMrab; TblBillM EdlRtUvGnuvtþn_tam ³
TblBillM ( BillNo , BillDate, SeatNo, EmpCode, NumOfPeople, SubTotal, Discount,
Total )

- BillNo : pÞúknUv elxerog rbs; Bill

- BillDate : pÞúknUvéf¶Exrbs; Bill

- SeatNo : pÞúknUv elxerog rbs; Seat

- EmpCode : pÞúknUv elxkUtrbs; buKÁlik

CMnaj Database Programming 89

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
- pÞúknUv
NumOfPeople :

cMnYnmnusSEdlGgÁúyenAtuenH
- SubTotal : pÞúknUvtMélmunsrub

- Discount :

pÞúknUvcMnYnEdlRtUvbBa©úHtMél
- Total : pÞúknUvtMélsrub

sMrab; TblBillD EdlRtUvGnuvtþn_tam ³

TblBillD ( BillNo , MCode , Qty, UnitPrice, Discount, Amount )

- BillNo : pÞúknUv elxerog rbs; Bill

- MCode : pÞúknUv elxkUt rbs;muxmðÚb

- Qty : pÞúknUvcMnYnénmuxmðÚb

- UnitPrice : pÞúknUvtMélmYymux²

- Discount :

pÞúknUvcMnYnEdlRtUvbBa©úHtMél
- Amount : pÞúknUvtMélsrub

sMrab; TblSeat EdlRtUvGnuvtþn_tam ³

TblSeat ( SeatNo, Seat, PaxNo, NumOfPeople )

- SeatNo :pÞúknUv elxerog rbs; Seat

- Seat : pÞúknUveQµaHrbs; Seat

- PaxNo : pÞúknUv elxerog rbs; Pax

- NumOfPeople : pÞúknUv

cMnYnmnusSEdlGgÁúyenAtuenH

CMnaj Database Programming 90

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
sMrab; TblPax EdlRtUvGnuvtþn_tam ³
TblPax ( PaxNo, Pax, Active )

- PaxNo : pÞúknUv elxerog rbs; Pax

- Pax : pÞúknUveQµaHrbs; Pax

- Active bBa¢ak;BIkareRbIR)as; Pax enH Yes or No

:

sMrab; TblVoidBill EdlRtUvGnuvtþn_tam ³

TblVoidBill ( VoidBillNo, VoidDate, BillNo, EmpCode, Reason )

- VoidBillNo pÞúknUv elxerog rbs; Bill

:

muxmðÚbEdleKykmkdUrvij
- VoidDate : pÞúknUvéf¶Exrbs; VoidBill

- BillNo : pÞúknUv elxerog rbs; Bill

- EmpCode : pÞúknUv elxkUtrbs; buKÁlik

- Reason : pÞúknUvmUlehtuEdleKykmkdUr

sMrab; TblVoidItem EdlRtUvGnuvtþn_tam ³

TblVoidItem ( VoidBillNo , MCode , Qty, UnitPrice, Amount )

- VoidBillNo pÞúknUv elxerog rbs; Bill

:

muxmðÚbEdleKykmkdUrvij
- MCode : pÞúknUv elxkUt rbsmuxmðÚb

- Qty : pÞúknUvcMnYnénmuxmðÚb

- UnitPrice : pÞúknUvtMélmYymux²

- Discount :

pÞúknUvcMnYnEdlRtUvbBa©úHtMél
CMnaj Database Programming 91
karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
- Amount pÞúknUvtMélsrub
:

sMrab; TblEmplyee EdlRtUvGnuvtþn_tam ³

TblEmployee ( EmpCode , KhmerName, EnglishName, Password, Sex, AccessRight, Tel,
Address , Remark, Active )

- EmpCode : pÞúknUvelxkUtrbs;buKÁlik
- EmpKhmer : pÞúknUveQµaHbuKÁlikCaExµr

- EmpEnglish : pÞúknUveQµaHbuKÁlikCaGg;eKøs

- Password :

pÞúknUvkUtsMrab;karcUleRbIR)as;rbs;buKÁ
liknImYy²
- Sex : bBa¢ak;BIePTrbs;buKÁlik

- AccessRight : bBa¢ak;BIsiT§irbs;buKÁliknImYy²

- Tel :

pÞúknUvelxTUrs½BÞrbs;buKÁliknImYy²
- Address :

pÞúknUvGas½ydæanrbs;buKÁliknImYy²
- Remark :

sMrab;kt;RtaB½t’manTak;TgnwgbuKÁliknIm
Yy²
- Active : bBa

¢ak;BIkarGnuBaØateGayeRbIR)as;énbuKÁlik
nImYy² Yes or No

CMnaj Database Programming 92

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
Coding:
rUbPaBTI 14 Login Screen Code
Imports System.Data
Imports System.Data.SqlClient

Public Class frmlogin

Private Sub cmdlogin_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button1.Click
Dim dr As SqlDataReader
If tbxUserName.Text.Length = 0 Then
MessageBox.Show("Please enter user name")
tbxUserName.Focus()
Return
End If
Dim cnnstring As String = Database.ConnectionString
If cnnstring = "" Then
lblErrMsg.Text = "Connection failed."
Exit Sub
End If
dr = Database.GetDataReader("Select EmployeeID, Password from
tblEmployee(nolock) Where EmployeeID = '" & tbxUserName.Text & "'")
Try
If (dr.Read()) Then
If (dr("Password").ToString() <> tbxPassword.Text) Then
lblErrMsg.Text = "Invalid user name or password."
Exit Sub
End If
CurrentUser = tbxUserName.Text
Me.Close()
End If
Catch ex As Exception
MessageBox.Show(ex.Message.ToString, Application.ProductName,
MessageBoxButtons.OK)
End
End Try
End Sub

Private Sub cmdcacel_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button2.Click
End
End Sub

CMnaj Database Programming 93

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ

rUbPaBTI 16 Create Floor Code

Public Class frmfloor

Public IsAddNew As Boolean = True

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles btnSave.Click

If (IsAddNew = True) Then

If (Database.IsExist("select * from tblFloor where floorName='"
& txtFloorName.Text & "'") = True) Then
MsgBox("Floor already exist")
Exit Sub
End If
Dim strIns = "Insert into tblFloor values('" &
txtFloorName.Text & "','" & txtDescription.Text & "','True')"
If (Database.ExecuteNonQuery(strIns) = 0) Then
MsgBox("Error while saving.")
Else
MsgBox("Save successfull")
End If
Else
Dim strIns = "Update tblFloor set FloorName='" &
txtFloorName.Text & "',Description='" & txtDescription.Text & "' where
FloorID='" & txtFloorID.Text & "'"
If (Database.ExecuteNonQuery(strIns) = 0) Then
MsgBox("Error while Update.")
Else
MsgBox("Update successfull")
End If
End If
Close()
End Sub

Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles btnClose.Click
Close()
End Sub

Private Sub frmfloor_Load(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles MyBase.Load
End Sub
End Class

CMnaj Database Programming 94

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
rUbPaBTI 17 Create Table Code
Public Class frmTable

Public IsAddNew As Boolean = True

Private Sub frmTable_Load(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles MyBase.Load
Me.ComboBox1.DataSource = Database.GetDataTable("select
FloorID,FloorName from tblFloor")
Me.ComboBox1.ValueMember = "FloorID"
Me.ComboBox1.DisplayMember = "FloorName"
End Sub

Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles btnClose.Click
Close()
End Sub

Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles btnSave.Click
If (IsAddNew = True) Then

If (Database.IsExist("select * from tbltable where TableNo='" &

TextBox1.Text & "'") = True) Then
MsgBox("Table ID already exist")
Exit Sub
End If
Dim strIns = "Insert into
tbltable(TableNo,TableName,FloorID,Status,Type) values('" _
& TextBox1.Text & "','" & TextBox2.Text & "','" &
ComboBox1.SelectedValue & "',1,'" & ComboBox2.Text & "')"
If (Database.ExecuteNonQuery(strIns) = 0) Then
MsgBox("Error while saving.")
Else
MsgBox("Save successfull")
End If

Else
Dim strIns = "Update tbltable set TableName='" & TextBox2.Text
& "',FloorID='" & ComboBox1.SelectedValue & "',Type='" & ComboBox2.Text &
"' where TableNo='" & TextBox1.Text & "'"
If (Database.ExecuteNonQuery(strIns) = 0) Then
MsgBox("Error while Update.")
Else
MsgBox("Update successfull")
End If
End If
Close()
End Sub
End Class

CMnaj Database Programming 95

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
rUbPaBTI 18 Cashier Main Form Code

Imports System.Data.SqlClient
Public Class frmCashier
Dim BillNo As String
Dim TotalU As Decimal = 0
Dim TotalR As Decimal = 0
Dim PaidR As Decimal = 0
Dim PaidU As Decimal = 0
Dim ChangeU As Decimal = 0
Dim ChangeR As Decimal = 0

Sub New(ByVal BillNo As String)

' This call is required by the Windows Form Designer.

InitializeComponent()
LoadItemList(BillNo)
' Add any initialization after the InitializeComponent() call.

End Sub
Sub LoadItemList(ByVal BillNo As String)
TotalU = 0
Dim dr As SqlDataReader = Database.GetDataReader("SELECT
MenuItemID, MIDescEN, Quantity, UnitPrice, Amount FROM dbo.v_BillTran where
BillNo='" & BillNo & "'")
If dr.HasRows Then
While dr.Read
OrderItem(dr("MenuItemID"), dr("MIDescEN"), dr("Quantity"),
dr("UnitPrice"))
TotalU += dr("Amount")
End While
End If
TotalR = TotalU * ChangeOut
Me.txtTotalUSD.Text = TotalU.ToString("##.00")
Me.txtTotalR.Text = RoundUpHundred(TotalR)
End Sub
Private Sub OrderItem(ByVal ItemID As String, ByVal ItemDesc As String,
ByVal UnitPrice As Decimal, ByVal ItemQty As Int32)
Dim lvOrder_Item As New ListViewItem(ItemID)
lvOrder_Item.SubItems.Add(ItemDesc)
lvOrder_Item.SubItems.Add(ItemQty)
lvOrder_Item.SubItems.Add(UnitPrice.ToString("00.00"))
lvOrder_Item.SubItems.Add((UnitPrice * ItemQty).ToString("00.00"))
lv_Order.Items.Add(lvOrder_Item)
End Sub
Function RoundUpHundred(ByVal amount As Decimal) As String
amount = amount + IIf(Microsoft.VisualBasic.Right(amount, 2) > 0,
100 - Microsoft.VisualBasic.Right(amount, 2), 0)
Return amount.ToString("##")
End Function
Function GetChange(ByVal Amt As Decimal, ByVal Paid As Decimal) As
Decimal
Return Paid - Amt

CMnaj Database Programming 96

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
End Function

Private Sub txtPayUSD_KeyPress(ByVal sender As System.Object, ByVal e

As System.Windows.Forms.KeyPressEventArgs) Handles txtPayUSD.KeyPress
Dim AllowValue As String = "0123456789." & vbBack
If AllowValue.IndexOf(e.KeyChar) = -1 Then
e.Handled = True
Else

End If
End Sub

Private Sub btnPay_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles btnPay.Click
Dim NextReceiptNo As String = Nothing
Dim connection As New SqlConnection(Database.ConnectionString)
Dim Tran As SqlTransaction = Nothing
Dim cmd As SqlClient.SqlCommand = Nothing
Try
connection.Open()
NextReceiptNo = RetaurantManager.GetNextID("tblReciept")
cmd = New SqlCommand("Insert Into tblReciept(RecNo, RecDate,
Reference, EmpID, SubAmt, Discount, CashInUSD, CashInRiel, ExRate,
Remark,IsActive)" _
& "values(@RecNo,
@RecDate, @Reference, @EmpID, @SubAmt, 0, @CashInUSD, @CashInRiel, @ExRate,
'' , 1 )", connection)
cmd.Parameters.Add("@RecNo", SqlDbType.VarChar, 12).Value =
NextReceiptNo
cmd.Parameters.Add("@RecDate", SqlDbType.DateTime).Value = Now
cmd.Parameters.Add("@Reference", SqlDbType.VarChar, 12).Value =
BillNo
cmd.Parameters.Add("@EmpID", SqlDbType.VarChar, 50).Value =
CurrentUser
cmd.Parameters.Add("@SubAmt", SqlDbType.Money).Value = TotalU
cmd.Parameters.Add("@CashInUSD", SqlDbType.Money).Value =
Me.txtPayUSD.Text
cmd.Parameters.Add("@CashInRiel", SqlDbType.Money).Value =
Me.txtPayR.Text
cmd.Parameters.Add("@ExRate", SqlDbType.Money).Value =
ChangeOut
cmd.ExecuteNonQuery()
ObjectTable.UpdateTableStatus(1, "")

Dim _rpt As New

CrystalDecisions.CrystalReports.Engine.ReportDocument
Dim ParamValue As New Hashtable
ParamValue.Add("@BillNo", BillNo)
_rpt.Load(Application.StartupPath & "\rpt_PrintReceipt.rpt")
ReportLibrary.ApplyLoginInfo(_rpt)
ReportLibrary.ApplyParameter(ParamValue, _rpt)
Dim strFileName As String = IO.Path.GetTempPath & "receipt.pdf"
' Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData)
& "\receipt.pdf"

CMnaj Database Programming 97

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
_rpt.ExportToDisk(CrystalDecisions.
[Shared].ExportFormatType.PortableDocFormat, strFileName)
Dim psi As New ProcessStartInfo(strFileName)
psi.Verb = "print"
psi.UseShellExecute = True
psi.RedirectStandardOutput = False
psi.CreateNoWindow = True
Dim p As Process = Process.Start(psi)
p.Close()
ObjectTable.UpdateTableStatus(1, BillNo)

Me.Close()
Catch ex As Exception
MsgBox(ex.Message)
Finally
connection.Close()
cmd.Dispose()
End Try
End Sub

Private Sub btnPrintBill_Click(ByVal sender As System.Object, ByVal e

As System.EventArgs) Handles btnPrintBill.Click
Dim _rpt As New
CrystalDecisions.CrystalReports.Engine.ReportDocument
Dim ParamValue As New Hashtable
ParamValue.Add("@BillNo", BillNo)
Try
_rpt.Load(Application.StartupPath & "\rpt_PrintBill.rpt")
ReportLibrary.ApplyLoginInfo(_rpt)
ReportLibrary.ApplyParameter(ParamValue, _rpt)
Dim strFileName As String = IO.Path.GetTempPath &
"PrintedBill.pdf" '
Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData) &
"\receipt.pdf"
_rpt.ExportToDisk(CrystalDecisions.
[Shared].ExportFormatType.PortableDocFormat, strFileName)
Dim psi As New ProcessStartInfo(strFileName)
psi.Verb = "print"
psi.UseShellExecute = True
psi.RedirectStandardOutput = False
psi.CreateNoWindow = True
Dim p As Process = Process.Start(psi)
p.Close()
ObjectTable.UpdateTableStatus(3, BillNo)
Me.Close()
Catch ex As Exception
MsgBox(ex.Message)
Finally
_rpt.Close()
End Try
End Sub

Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles btnCancel.Click
Try

CMnaj Database Programming 98

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
Database.ExecuteNonQuery("Update tblBillMaster set IsActive=0
where BillNo='" & BillNo & "'")
ObjectTable.UpdateTableStatus(1, BillNo)
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub

rUbPaBTI 19 Main Order

Imports System.Data.SqlClient
Public Class frmMenuOrder
Dim lvOrder_Item As ListViewItem
Dim qty As Integer
Dim dtMenuItem As DataTable
Dim RoundUp As Integer
Dim Total As Decimal = 0

Private Sub frmMenuOrder_Load(ByVal sender As Object, ByVal e As

System.EventArgs) Handles Me.Load
Me.SuspendLayout()
If DineType = "DI" Then
lb_TableStatus.Text = "Dine In :: " & CurrentTable.Text
Else
lb_TableStatus.Text = "Dine Out :: " & "1"
End If

ObjectSubMenu = New ObjSubMenu("select MainMenuID,DescEN From

tblMainMenu", Conn)
Dim xgate As Int32
Dim ygate As Int32
'-----------------------------------------------------Object Sub
Menu Item-----------------------------------------------------
ObjectSubMenu.InitializeObject(btnCate1, btnCate2, btnCate3,
btnCate4, btnCate5, btnCate6)
xgate = (Me.pnlCategory.Width - btnCate1.Width * 6) / 7
ygate = (Me.pnlCategory.Height - btnCate1.Height * 1) / 2
RetaurantManager.OrderObject_Style_1(btnCate1, xgate, ygate, 1, 6,
btnCate1, btnCate2, btnCate3, btnCate4, btnCate5, btnCate6)
ObjectSubMenu.FillData(6)

'-----------------------------------------------------Object
Function-----------------------------------------------------
xgate = (Me.pnlFunction.Width - btnFun1.Width * 2) / 3
ygate = (Me.pnlFunction.Height - btnFun1.Height * 2) / 3
RetaurantManager.OrderObject_Style_1(btnFun1, xgate, ygate, 2, 2,
btnFun1, btnFun2, btnFun3, btnFun4)

'-----------------------------------------------------Object Menu
Item-----------------------------------------------------
If ObjectSubMenu.SubMenuCount > 0 Then

CMnaj Database Programming 99

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
ObjectMenuItem = New ObjMenuItem("select
MenuItemID,MIDescEN,SalePrice From tblMenuItem where MainMenuID=" &
btnCate1.Name, Conn)
ObjectMenuItem.InitializeObject(btnMI1, btnMI2, btnMI3, btnMI4,
btnMI5, btnMI6, btnMI7, btnMI8, btnMI9, btnMI10, btnMI11, btnMI12, btnMI13,
btnMI14, btnMI15, btnMI16, btnMI17, btnMI18, btnMI19, btnMI20, btnMI21,
btnMI22, btnMI23, btnMI24)
xgate = (Me.pnlMenuItem.Width - btnMI1.Width * 6) / 7
ygate = (Me.pnlMenuItem.Height - btnMI1.Height * 4) / 5
RetaurantManager.OrderObject_Style_1(btnMI1, xgate, ygate, 4,
6, btnMI1, btnMI2, btnMI3, btnMI4, btnMI5, btnMI6, btnMI7, btnMI8, btnMI9,
btnMI10, btnMI11, btnMI12, btnMI13, btnMI14, btnMI15, btnMI16, btnMI17,
btnMI18, btnMI19, btnMI20, btnMI21, btnMI22, btnMI23, btnMI24)
ObjectMenuItem.FillData(24)
Me.lb_SubMenu.Text = btnCate1.Text
End If
Me.ResumeLayout()

Dim sql = "SELECT Value FROM tblSpecialvariable WHERE SVID = 'CO'"

ChangeOut = Database.ExecuteScalar(sql)

End Sub

#Region "SubMenuItem"

Private Sub btnCate6_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles btnCate6.Click
If CType(sender, Button).Name = "Next" Then
ObjectSubMenu.MoveNext(6)
Else
LoadMenuItemObj(btnCate6)
End If
End Sub
Private Sub btnCate1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnCate1.Click
If CType(sender, Button).Name = "Previous" Then
ObjectSubMenu.MovePrevious(6)
Else
LoadMenuItemObj(btnCate1)
End If
End Sub
Private Sub btnCate4_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnCate2.Click, btnCate3.Click, btnCate4.Click,
btnCate5.Click
LoadMenuItemObj(CType(sender, Button))
End Sub
Sub LoadMenuItemObj(ByVal sender As Button)
ObjectMenuItem = New ObjMenuItem("select
MenuItemID,MIDescEN,SalePrice From tblMenuItem where MainMenuID=" &
sender.Name, Conn)
ObjectMenuItem.InitializeObject(btnMI1, btnMI2, btnMI3, btnMI4,
btnMI5, btnMI6, btnMI7, btnMI8, btnMI9, btnMI10, btnMI11, btnMI12, btnMI13,

CMnaj Database Programming 100

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
btnMI14, btnMI15, btnMI16, btnMI17, btnMI18, btnMI19, btnMI20, btnMI21,
btnMI22, btnMI23, btnMI24)
ObjectMenuItem.FillData(24)
lb_SubMenu.Text = sender.Text
End Sub

#End Region

#Region "MenuItem"
Private Sub btnMI24_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnMI24.Click
If CType(sender, Button).Name = "Next" Then
ObjectMenuItem.MoveNext(24)
Else
OrderItem(CType(sender, Button).Name, CType(sender,
Button).Text, CType(sender, Button).Tag, 1)
End If
End Sub
Private Sub btnMI1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnMI1.Click
If CType(sender, Button).Name = "Previous" Then
ObjectMenuItem.MovePrevious(24)
Else
OrderItem(CType(sender, Button).Name, CType(sender,
Button).Text, CType(sender, Button).Tag, 1)
End If
End Sub
Private Sub btnMI2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnMI2.Click, btnMI3.Click, btnMI4.Click,
btnMI5.Click, btnMI6.Click, btnMI7.Click, btnMI8.Click, btnMI9.Click,
btnMI10.Click, btnMI11.Click, btnMI12.Click, btnMI13.Click, btnMI14.Click,
btnMI15.Click, btnMI16.Click, btnMI17.Click, btnMI18.Click, btnMI19.Click,
btnMI20.Click, btnMI21.Click, btnMI22.Click, btnMI23.Click
OrderItem(CType(sender, Button).Name, CType(sender, Button).Text,
CType(sender, Button).Tag, 1)
End Sub

#End Region

#Region "Function"
Private Sub btnFun1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnFun1.Click
Dim NextBillNo As String = Nothing
Dim connection As New SqlConnection(Database.ConnectionString)
Dim Tran As SqlTransaction = Nothing
Dim cmd As SqlClient.SqlCommand = Nothing
Try
connection.Open()
Tran = connection.BeginTransaction
NextBillNo = RetaurantManager.GetNextID("tblBillMaster")
cmd = New SqlCommand("Insert Into tblBillMaster(BillNo,
BillDate, DineType, TableNo,EX_Rate,TotalAmount, CreateBy, IsActive )" _
& "values(@BillNo,
@BillDate, @DineType,@TableNo,@EX_Rate, @TotalAmount, @CreateBy, 1 )",
connection, Tran)

CMnaj Database Programming 101

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
cmd.Parameters.Add("@BillNo", SqlDbType.VarChar, 12).Value =
NextBillNo
cmd.Parameters.Add("@BillDate", SqlDbType.DateTime).Value = Now
cmd.Parameters.Add("@DineType", SqlDbType.VarChar, 10).Value =
DineType
cmd.Parameters.Add("@TableNo", SqlDbType.VarChar, 12).Value =
CurrentTable.Name
cmd.Parameters.Add("@EX_Rate", SqlDbType.Money).Value =
ChangeOut
cmd.Parameters.Add("@TotalAmount", SqlDbType.Money).Value =
Total
cmd.Parameters.Add("@CreateBy", SqlDbType.VarChar, 50).Value =
CurrentUser
cmd.ExecuteNonQuery()

For i As Int32 = 0 To lv_Order.Items.Count - 1

cmd = New SqlCommand("Insert Into tblBillTran(BillNo,
MenuItemID, Quantity,Cost, UnitPrice, isActive )" _
& "values(@BillNo,
@MenuItemID, @Quantity,@Cost ,@UnitPrice, 1)", connection, Tran)
cmd.Parameters.Add("@BillNo", SqlDbType.VarChar, 12).Value
= NextBillNo
cmd.Parameters.Add("@MenuItemID", SqlDbType.VarChar,
12).Value = Me.lv_Order.Items(i).SubItems(0).Text
cmd.Parameters.Add("@Quantity", SqlDbType.Int).Value =
lv_Order.Items(i).SubItems(2).Text
cmd.Parameters.Add("@Cost", SqlDbType.Money).Value =
Database.ExecuteScalar("select Cost from tblMenuItem Where MenuItemID='" &
Me.lv_Order.Items(i).SubItems(0).Text & "'")
cmd.Parameters.Add("@UnitPrice", SqlDbType.Money).Value =
lv_Order.Items(i).SubItems(3).Text
cmd.ExecuteNonQuery()
Next
Tran.Commit()
ObjectTable.UpdateTableStatus(2, NextBillNo)
Catch ex As Exception
Try
Tran.Rollback()
Catch ex1 As Exception
End Try
MsgBox(ex.Message)
Finally
connection.Close()
cmd.Dispose()
End Try
If DineType = "DO" Then
Dim cashier As New frmCashier(NextBillNo)
cashier.Show()
End If
Me.Close()
End Sub
Private Sub btnFun2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnFun2.Click
Me.lv_Order.Items.Clear()
lblTotalAmount.Text = "0 $ and 0 R"
lblTotalAmountRiel.Text = "0 R"

CMnaj Database Programming 102

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
End Sub
Private Sub btnFun3_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnFun3.Click
Me.lv_Order.SelectedItems.Item(0).Remove()
SubTotal_OrderItem()
End Sub
Private Sub btnFun4_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles btnFun4.Click
Me.Close()
End Sub
#End Region

#Region "Event"
Private Sub btnAddToList_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles btnAddToList.Click
Try
Dim dt As New DataTable
dt = Database.GetDataTable("select MIDescEN,SalePrice From
tblMenuItem Where MenuItemID='" & Me.txtItemID.Text & "'")
If dt.Rows.Count > 0 Then
OrderItem(Me.txtItemID.Text, dt.Rows(0)(0), dt.Rows(0)(1),
Me.txtQty.Text)
Me.txtQty.Clear()
Me.txtItemID.Clear()
Else
MsgBox("No Order Item !!!", MsgBoxStyle.Information)
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try

End Sub
Private Sub OrderItem(ByVal ItemID As String, ByVal ItemDesc As String,
ByVal UnitPrice As Decimal, ByVal ItemQty As Int32)
Dim AddItem As Boolean = False
Dim ItemIndex As Integer

lvOrder_Item = New ListViewItem(ItemID)

Try
For i As Integer = 0 To lv_Order.Items.Count - 1
Dim ItemID_Rev As String = lv_Order.Items(i).Text
If ItemID_Rev = ItemID Then
AddItem = True
ItemIndex = i
End If
Next
If AddItem Then
qty = lv_Order.Items(ItemIndex).SubItems(2).Text + ItemQty

lv_Order.Items(ItemIndex).SubItems(2).Text = qty
lv_Order.Items(ItemIndex).SubItems(4).Text = qty *
lv_Order.Items(ItemIndex).SubItems(3).Text

Else
lvOrder_Item.SubItems.Add(ItemDesc)
lvOrder_Item.SubItems.Add(ItemQty)

CMnaj Database Programming 103

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
lvOrder_Item.SubItems.Add(UnitPrice)
lvOrder_Item.SubItems.Add(UnitPrice * ItemQty)
lv_Order.Items.Add(lvOrder_Item)
End If

Call SubTotal_OrderItem()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub SubTotal_OrderItem()
Total = 0
For i As Integer = 0 To lv_Order.Items.Count - 1
Total += lv_Order.Items(i).SubItems(4).Text
Next

Dim TotalAmountDolla, AmountRiel As Integer 'Total Amount

TotalAmountDolla = Microsoft.VisualBasic.Int(Total)
AmountRiel = (Total Mod 1) * ChangeOut
RoundUp = Microsoft.VisualBasic.Right(AmountRiel, 2)

If RoundUp > 0 Then

AmountRiel = AmountRiel + (100 - RoundUp)
lblTotalAmount.Text = FormatNumber(TotalAmountDolla, 0) & " $
and " & FormatNumber(AmountRiel, 0) & " R"
Else
lblTotalAmount.Text = FormatNumber(TotalAmountDolla, 0) & " $
and " & FormatNumber(AmountRiel, 0) & " R"
End If

AmountRiel = (Total * ChangeOut)

RoundUp = Microsoft.VisualBasic.Right(AmountRiel, 2)
If RoundUp > 0 Then
lblTotalAmountRiel.Text = FormatNumber(AmountRiel + (100 -
RoundUp), 0) & " R"
Else
lblTotalAmountRiel.Text = FormatNumber(AmountRiel, 0) & " R"
End If
End Sub

#End Region

Private Sub txtQty_KeyPress(ByVal sender As System.Object, ByVal e As

System.Windows.Forms.KeyPressEventArgs) Handles txtQty.KeyPress
Dim allowedChars As String = "0123456789" & vbBack
If allowedChars.IndexOf(e.KeyChar) = -1 Then
e.Handled = True
End If
End Sub
End Class

rUbPaBTI 20 Sale Cashier Form Code

Imports System.Data.SqlClient

CMnaj Database Programming 104

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
Public Class frmCashier
Dim BillNo As String
Dim TotalU As Decimal = 0
Dim TotalR As Decimal = 0
Dim PaidR As Decimal = 0
Dim PaidU As Decimal = 0
Dim ChangeU As Decimal = 0
Dim ChangeR As Decimal = 0

Sub New(ByVal BillNo As String)

' This call is required by the Windows Form Designer.

InitializeComponent()
LoadItemList(BillNo)
' Add any initialization after the InitializeComponent() call.

End Sub
Sub LoadItemList(ByVal BillNo As String)
TotalU = 0
Dim dr As SqlDataReader = Database.GetDataReader("SELECT
MenuItemID, MIDescEN, Quantity, UnitPrice, Amount FROM dbo.v_BillTran where
BillNo='" & BillNo & "'")
If dr.HasRows Then
While dr.Read
OrderItem(dr("MenuItemID"), dr("MIDescEN"), dr("Quantity"),
dr("UnitPrice"))
TotalU += dr("Amount")
End While
End If
TotalR = TotalU * ChangeOut
Me.txtTotalUSD.Text = TotalU.ToString("##.00")
Me.txtTotalR.Text = RoundUpHundred(TotalR)
End Sub
Private Sub OrderItem(ByVal ItemID As String, ByVal ItemDesc As String,
ByVal UnitPrice As Decimal, ByVal ItemQty As Int32)
Dim lvOrder_Item As New ListViewItem(ItemID)
lvOrder_Item.SubItems.Add(ItemDesc)
lvOrder_Item.SubItems.Add(ItemQty)
lvOrder_Item.SubItems.Add(UnitPrice.ToString("00.00"))
lvOrder_Item.SubItems.Add((UnitPrice * ItemQty).ToString("00.00"))
lv_Order.Items.Add(lvOrder_Item)
End Sub
Function RoundUpHundred(ByVal amount As Decimal) As String
amount = amount + IIf(Microsoft.VisualBasic.Right(amount, 2) > 0,
100 - Microsoft.VisualBasic.Right(amount, 2), 0)
Return amount.ToString("##")
End Function
Function GetChange(ByVal Amt As Decimal, ByVal Paid As Decimal) As
Decimal
Return Paid - Amt
End Function

Private Sub txtPayUSD_KeyPress(ByVal sender As System.Object, ByVal e

As System.Windows.Forms.KeyPressEventArgs) Handles txtPayUSD.KeyPress
Dim AllowValue As String = "0123456789." & vbBack

CMnaj Database Programming 105

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
If AllowValue.IndexOf(e.KeyChar) = -1 Then
e.Handled = True
Else

End If
End Sub

Private Sub btnPay_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles btnPay.Click
Dim NextReceiptNo As String = Nothing
Dim connection As New SqlConnection(Database.ConnectionString)
Dim Tran As SqlTransaction = Nothing
Dim cmd As SqlClient.SqlCommand = Nothing
Try
connection.Open()
NextReceiptNo = RetaurantManager.GetNextID("tblReciept")
cmd = New SqlCommand("Insert Into tblReciept(RecNo, RecDate,
Reference, EmpID, SubAmt, Discount, CashInUSD, CashInRiel, ExRate,
Remark,IsActive)" _
& "values(@RecNo,
@RecDate, @Reference, @EmpID, @SubAmt, 0, @CashInUSD, @CashInRiel, @ExRate,
'' , 1 )", connection)
cmd.Parameters.Add("@RecNo", SqlDbType.VarChar, 12).Value =
NextReceiptNo
cmd.Parameters.Add("@RecDate", SqlDbType.DateTime).Value = Now
cmd.Parameters.Add("@Reference", SqlDbType.VarChar, 12).Value =
BillNo
cmd.Parameters.Add("@EmpID", SqlDbType.VarChar, 50).Value =
CurrentUser
cmd.Parameters.Add("@SubAmt", SqlDbType.Money).Value = TotalU
cmd.Parameters.Add("@CashInUSD", SqlDbType.Money).Value =
Me.txtPayUSD.Text
cmd.Parameters.Add("@CashInRiel", SqlDbType.Money).Value =
Me.txtPayR.Text
cmd.Parameters.Add("@ExRate", SqlDbType.Money).Value =
ChangeOut
cmd.ExecuteNonQuery()
ObjectTable.UpdateTableStatus(1, "")

Dim _rpt As New

CrystalDecisions.CrystalReports.Engine.ReportDocument
Dim ParamValue As New Hashtable
ParamValue.Add("@BillNo", BillNo)
_rpt.Load(Application.StartupPath & "\rpt_PrintReceipt.rpt")
ReportLibrary.ApplyLoginInfo(_rpt)
ReportLibrary.ApplyParameter(ParamValue, _rpt)
Dim strFileName As String = IO.Path.GetTempPath & "receipt.pdf"
' Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData)
& "\receipt.pdf"
_rpt.ExportToDisk(CrystalDecisions.
[Shared].ExportFormatType.PortableDocFormat, strFileName)
Dim psi As New ProcessStartInfo(strFileName)
psi.Verb = "print"
psi.UseShellExecute = True
psi.RedirectStandardOutput = False
psi.CreateNoWindow = True

CMnaj Database Programming 106

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
Dim p As Process = Process.Start(psi)
p.Close()
ObjectTable.UpdateTableStatus(1, BillNo)

Me.Close()
Catch ex As Exception
MsgBox(ex.Message)
Finally
connection.Close()
cmd.Dispose()
End Try
End Sub

Private Sub btnPrintBill_Click(ByVal sender As System.Object, ByVal e

As System.EventArgs) Handles btnPrintBill.Click
Dim _rpt As New
CrystalDecisions.CrystalReports.Engine.ReportDocument
Dim ParamValue As New Hashtable
ParamValue.Add("@BillNo", BillNo)
Try
_rpt.Load(Application.StartupPath & "\rpt_PrintBill.rpt")
ReportLibrary.ApplyLoginInfo(_rpt)
ReportLibrary.ApplyParameter(ParamValue, _rpt)
Dim strFileName As String = IO.Path.GetTempPath &
"PrintedBill.pdf" '
Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData) &
"\receipt.pdf"
_rpt.ExportToDisk(CrystalDecisions.
[Shared].ExportFormatType.PortableDocFormat, strFileName)
Dim psi As New ProcessStartInfo(strFileName)
psi.Verb = "print"
psi.UseShellExecute = True
psi.RedirectStandardOutput = False
psi.CreateNoWindow = True
Dim p As Process = Process.Start(psi)
p.Close()
ObjectTable.UpdateTableStatus(3, BillNo)
Me.Close()
Catch ex As Exception
MsgBox(ex.Message)
Finally
_rpt.Close()
End Try
End Sub

Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles btnCancel.Click
Try
Database.ExecuteNonQuery("Update tblBillMaster set IsActive=0
where BillNo='" & BillNo & "'")
ObjectTable.UpdateTableStatus(1, BillNo)
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub

CMnaj Database Programming 107

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
Private Sub frmCashier_Load(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Me.Load
BillNo = Database.ExecuteScalar("select BillNo From tblTable where
TableNo='" & CurrentTable.Name & "'")
End Sub

Private Sub btnFree_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles btnFree.Click
Me.Close()
End Sub

Private Sub txtPayUSD_TextChanged(ByVal sender As System.Object, ByVal

e As System.EventArgs) Handles txtPayUSD.TextChanged
Try
Me.txtChangeUSD.Text = Me.txtPayUSD.Text - TotalU
Catch ex As Exception

End Try

End Sub

Private Sub frmCashier_KeyPress(ByVal sender As System.Object, ByVal e

As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress
If e.KeyChar = "F2" Then
Me.txtPayUSD.Text = "0"
Me.txtPayUSD.Enabled = False
Me.txtPayR.Enabled = True
txtPayR.Focus()
ElseIf e.KeyChar = "F3" Then
Me.txtPayR.Text = "0"
Me.txtPayUSD.Enabled = True
Me.txtPayR.Enabled = False
txtPayUSD.Focus()
End If
End Sub

Private Sub txtPayR_TextChanged(ByVal sender As System.Object, ByVal e

As System.EventArgs) Handles txtPayR.TextChanged
Try
Me.txtChangeR.Text = Me.txtPayR.Text - TotalR
Catch ex As Exception

End Try

End Sub

End Class

CMnaj Database Programming 108

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
All Moduels Code
Database

Imports System
Imports System.Data
Imports System.Data.SqlClient

Public Class Database

Private Shared _conString As String = ""
Private Shared _IsReady As Boolean = False
Public Shared strServer As String
Public Shared sPass As String
Public Shared sUser As String
Public Shared sDatabaseName As String

Public Shared ReadOnly Property ConnectionString() As String

Get
If String.IsNullOrEmpty(_conString) Then TryConnect()
Return _conString
End Get
End Property

Public Shared Sub ClearConnection()

_conString = ""
End Sub

Public Shared ReadOnly Property IsReady() As Boolean

Get
Return _IsReady
End Get
End Property

Private Shared Sub TryConnect()

Dim strCnn As String = "data source=" & My.Settings.ServerName &

";user id=" & My.Settings.UserID & ";password=" & My.Settings.Pwd &
";persist security info=False;initial catalog=" & My.Settings.DatabaseName

Dim cn As New System.Data.SqlClient.SqlConnection(strCnn)

Try
cn.Open()
_IsReady = True
_conString = strCnn
Catch ex As Exception
MsgBox(ex.Message.ToString)
_IsReady = False
_conString = ""
Finally
cn.Close()
cn.Dispose()
End Try
End Sub

Public Shared Function GetDataTable(ByVal strSQL As String) As

DataTable

CMnaj Database Programming 109

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
Dim cn As New SqlClient.SqlConnection(ConnectionString)
Dim da As New SqlClient.SqlDataAdapter(strSQL, cn)
Try
cn.Open()
Dim dt As New DataTable
da.Fill(dt)
Return dt
Catch ex As Exception
Return Nothing
Finally
da.Dispose()
cn.Close()
cn.Dispose()
End Try
End Function

Public Shared Sub FillDataToList(ByVal sqlString As String, ByVal

dgView As DataGridView)
Dim cn As New SqlClient.SqlConnection(ConnectionString)
Dim adapter As New SqlClient.SqlDataAdapter(sqlString, cn)
Dim dataSet As New DataSet()
Try
adapter.Fill(dataSet)
Catch ex As Exception
MsgBox(ex.Message.ToString)
End Try

dgView.DataSource = dataSet.Tables(0)
End Sub

Public Shared Function GetDataTable(ByVal strSQL As String, ByVal

TableName As String) As DataTable
Dim tb As DataTable = GetDataTable(strSQL)
If tb IsNot Nothing Then tb.TableName = TableName
Return tb
End Function

Public Shared Function GetDataReader(ByVal strSQL As String) As

SqlClient.SqlDataReader
Dim cn As New SqlClient.SqlConnection(ConnectionString)
Dim cm As New SqlClient.SqlCommand(strSQL, cn)
Try
cn.Open()
cm.CommandType = CommandType.Text
Return cm.ExecuteReader
Catch ex As Exception
Return Nothing
Finally
cm.Dispose()
End Try
End Function

Public Shared Function ExecuteNonQuery(ByVal strSQL As String) As Int32

Dim cn As New SqlClient.SqlConnection(ConnectionString)
Dim cm As New SqlClient.SqlCommand(strSQL, cn)
Try

CMnaj Database Programming 110

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
cn.Open()
cm.CommandType = CommandType.Text
Return cm.ExecuteNonQuery
Catch ex As Exception
Return 0
Finally
cm.Dispose()
cn.Close()
cn.Dispose()
End Try
End Function

Public Shared Function ExecuteScalar(ByVal strSQL As String) As Object

Dim cn As New SqlClient.SqlConnection(ConnectionString)
Dim cm As New SqlClient.SqlCommand(strSQL, cn)
Try
cn.Open()
cm.CommandType = CommandType.Text
Return cm.ExecuteScalar
Catch ex As Exception
Return Nothing
Finally
cm.Dispose()
cn.Close()
cn.Dispose()
End Try
End Function

Public Shared Function ExecuteNonQuery(ByVal SqlCommand As

SqlClient.SqlCommand) As Int32
Dim cn As New SqlClient.SqlConnection(ConnectionString)
Try
cn.Open()
SqlCommand.Connection = cn
Return SqlCommand.ExecuteNonQuery
Catch ex As Exception
Return 0
Finally
cn.Close()
cn.Dispose()
End Try

End Function

Public Shared Function IsExist(ByVal strSql As String) As Boolean

Dim dr As SqlDataReader
dr = GetDataReader(strSql)
If (dr.Read()) Then
Return True
Else
Return False
End If
End Function

End Class

CMnaj Database Programming 111

karbegáItRbB½næRKb;RKgkarlk;
saklviTüal½y PñMeBjGnþrCati mhaviTüal½y
viTüasaRsþkMuBüÚT½r nig visVrkmµ
Module 1
Imports System.Data.SqlClient
Module Module1
Public Conn As New SqlConnection(Database.ConnectionString)
Public ObjectFloor As New ObjFloor("select FloorID,FloorName From
tblFloor", Conn)
Public ObjectSubMenu As ObjSubMenu
Public ObjectMenuItem As ObjMenuItem
Public ObjectTable As ObjTable
Public CurrentTable As Button
Public AvailbleColor As Color = Color.Lavender
Public OccuppiedColor As Color = Color.Maroon
Public PrintedBillColor As Color = Color.NavajoWhite
Public DineType As String = "DI"
Public ChangeIn As Decimal = Database.ExecuteScalar("SELECT Value FROM
tblSpecialvariable WHERE SVID = 'CI'")
Public ChangeOut As Decimal = Database.ExecuteScalar("SELECT Value FROM
tblSpecialvariable WHERE SVID = 'CO'")
Public CurrentUser As String = ""
End Module

CMnaj Database Programming 112

karbegáItRbB½næRKb;RKgkarlk;