NEAR EAST UNIVERSITY FACULTY OF ECONOMICS AND ADMINISTRATIVE SCIENCE DEPARTMENT OF COMPUTER INFORMATION SYSTEMS

•

NEAR EAST UNIVERSITY

FACULTY OF ECONOMICS AND

ADMINISTRATIVE SCIENCE

DEPARTMENT OF COMPUTER

INFORMATION SYSTEMS

2004/2005 SPRING TERM

CIS 400

(Graduation Project)

FURNITURE STORE SYSTEM

Submitted To Department of C.I.S

•

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

CONTENTS

Page I. ACKNOWLEDGEMENTS ! II. ABSTRACT 2 III. INTRODUCTION 3

IV. DESIGN OF THE SYSTEM 5

- Explanation 5

- Data Flow Diagram 6

- System Block Diagram 13

- Database Design 14

V. USERMANUAL 17

- User Guidelines 17

- User Flow Charts 21

VI. REFERANCES 53

APPENDIX I

- Screen Output (Figures) 54

APPENDIX II

•

ACKNOWLEDGEMENTS

On the preparation of this project I would like to thank everyone for their help and support.

Especially , I would like to thank Dr. Y alcm AK(;ALI , Mustafa MENEKA Y , Nadire (;A VUS, Assoc.Prof, Dr. Ilham HUSEYNOV for their support and help they proud me throughout this project.

I also would like to thank my family for their help and support potency for being next to me.

I especially thank them for their knowledge and potency they showed during the preparation of this project.

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

• ABSTRACT

This project is about computer technologies it's designed to hold the daily information of the company inputs and outputs of the business. It is designed to satisfy every department's request.

The project is made out of different department Customer, Supplier, Stock, Account, and Report departments enabled the store daily transactions of company.

•

INTRODUCTION

I want to prepare a project that is related a furniture company, which is called Furniture store system. This company does not a producer company. They are buying goods from producers company as istikbal, Bellona, Y atas etc. And they are selling to customers.

This program has five process; these are :

•

Customer Process

•

Stock Process

•

Account Process

•

Supplier Process

•

Report Process

Customer process include a form for entering the customer's data's like name,

address, phone number, etc., and Selling operation. All Selling operation also makes in this process. Each customer and firm will have an ID number that is called ID card in this program.

Stock process In this process, we can entered the product's data's like type, sort,

number, unit, feature, etc., and we can make the changes in selling price, stock minimum amount or profit, etc.

Supplier process In this process, we can entered the supplier's data's like name,

address, phone number, supplier account number, etc.

Account process has three sub-process, these are:

• Installment Payment • Account search • Invoice search

•

Report process has three sub-process, these are:

• Customer Information Process • Stock Information Process • Supplier Information Process

In this process, we can see the product's information like type, number, feature, etc. , and we can see the customer's information like name, phone number, accounts receivable from customer, customer's account receivables dates, etc. We can see the supplier's information like name, phone number, accounts payable to supplier and it's dates, etc.

In this project, I '11 use Visual Basic programming language that is related interface part, which will contribute that access related database part.

•

EXPLANATION

This organization buy the products from general distributor , sell to customer. General Distributor take account payments of organization as cash , but Sell as two type to customer which are cash and installment.

In this company, managers use two type systems:

1. One is First In First Out (F.I.F.O.) System:

Organisation often prefer this system, because Furnitures are like fashion. Fashion change very fastly if company keep the worth of products in the market, they must be use this system.

2. Second one is the Last In First Out (L.I.F.O.) System:

Managers must use this system in the organization, because customer has special desire and pleasure. In this sector customer are free when choosing the product. Sometimes, salespersons marketing tactics are unsuccessful or customer want special order. So, L.I.F.O. is not preferred but sometimes, that is used in the organization.

I

•

I

I

•.. 8

VJ

I

I

I

d

~

I

1

LJ

(")~

IQ

=

0 VJ

~ a

VJ 0 (I)

...,

~

a .,

~ (I) •••••

I

0 ., ::l oo" Q. (I) 3.

3

.,

o

I (I) Ill .,

..•

0

o·

I

I

::l

z

I

...,

_tn

I

I

0!:i=LIOJU[ :):JB!Xln DUO:JSID

q

d

'Tj

I ~

'Tj

c

I

VJ VJ~ ~

~..,

..,o ...

0

'Tj ~ '.J:lJ;J(l lOJ GI )J:lOlS

~~j

_'Tj

I

I

-' ~

I

~

I

~ ~

I

I

I

l

o:

...,

₀

VJ ~ VJ VJ

I

Cl) e ₀ C: 'O ., 'O 'O Q.

tr:

'O _~ (I) ~ ., .,

-<

., ~

tr:

....•

I

::l 0

...,

o' ., Q.

tn

., _(I)

a

1

~ a o·

I

::l

I

~ I

tTi :,:, I I

I

8

OJltlUUOJUI l~UIOisn:)--j [/J ,-i

0

i

,,/

~ ~ ~ d'>"' ..,_r-;,<» 6> ..,_o~ RC> ~

z

r-;,">r-;, " '<:

p

~ _o 0

I

r

%

_,., t: _"' 0 "' _"1 0 _s s Cl') 0 _" Cl')

6

~ .., " _~ .., />:1

\

tTl " ~ 0 0..

a.

" v .., ~ ['Tl ,-i ~ ~ v ~

_o

"Tl ~ v

\

::: [Fl _...•. 0 "Tl 0 c ₃ -e p. (I) '"'I o ~ 'rj &J ~ ,f; =.: ,-i 'o' so (I) 0

%

,S-, ..,,.,,

i

\:!,

1i"'

0

I

'"cl ':? r$-~ g ;:d ~ 0 0~ ~ o

%

['Tl

"

[/J 't:,,<:;-, _I!, [/J !J.,q_ v [/J (/') o" p ~ _{0 %} "' "' c:::: (') ~

_s

e 0 _..., :,;"

t

o E! _~ [/J ::r 9, :::.; ₀ "

i

0 g, (') ...., (') :,;" \:!· p r," :,;" '"cl

\

(') o

a

..., 0, :J1 ::r (') e _" (') "

s

.., "'

1

"' r, g,

l

"' Ci ::,.

I

i

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

00

I

• Supplier Informatio [fl

=

'O 'Tj 'O ::-: [fl ~ [fl ti ;:o 0 _t'n " Q.. ~ 0 8.. _"

"

1 _~ ti ti t:l 0 'Tl ,-._ 8 C/) Sa '"Ci r- ~ '"Ci ;:o 0 o t'n C/) C/)

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

_-

0

I

I

I

I

I

I

I

I

•

(") oi (")

I

..,

0 (") &i

i

C .., [/J 0

cl ~

~ ;,:, (") (") ;,:, r' _{'Tl oi oi} ~ 0 . _{r,, 0 0}

.., ..,

0

6

[/J -~ ~ ~ ;,:, tn 0 r;l ;,:, ~ - tn 0 - 0 Z r _{~ ~ ~} 'Tl gJ 0 tn

~ I~

..,

0 Z1 _I~ iO n o ;" ~ Ofil ffl _{gJ ,0} D: 3 [/J "'g ~ it

g

@ 0 r' [/J 0 ""C .., [/J

tl ~

n- c~ t- (") "O _~o ~ C C ~~ ~ [/J tn

..,

;,:, ~ ~

~-

[/J t- ~

..,

_fi~ ~ 0 ~ no r- o'Tl

z

~ ~ 'Tl ~ 0

..,

~ ~ "O ;i, ~ ~ Cl ~ 0 Cl .i,. Cl O. D; = 0 ~ "'a ~ _~ ~ )D3l-D )D()lS _I 00 )D3l-D )l:)()lS ,IO '1NIBG ~ 0

Noll vV'IBO.cINI DNIADS: 's s

,ii

_~

00

~

00

~ ~

1BmIO )D()lS A\aN - I (D =: I 1·, ICC~

)D()lS CE.LS3.fl, [/J [/J ~ ~ "O -o r r' - - tn ~ ;,:, ~ ~ 0 0 'Tl _~ ~ tn ~

[

r

_p

__J~

~ [/J 0 _~ ~ ~ "O tn C ~ _~ ~ • •....

• rJJ ~ ~ ~ t:) rJJ '"O 0 _~ rJJ

t

0 'Tl ~ z rJJ

I

C § ~ § s (1) ~ ~ 3 '<: _[ Q. (1) ~ (") (1) Q. (') Q. _~ (1) :; (1) 0 !!. '"O

-

-e (1) C (1) 'Tl ~ "'1 0 '"O 3

f5

~ Q rJJ rJJ 0

5i

_..., rJJ 0 0 t:) rJJ

t

'Tl ~ 0 rJJ 'Tl t:) C: rJJ

8

i

s

(1) ~ s· z st (1) Q. Q. § e:.. s· (1) -o ~ ~ rJJ (") ₍₁₎ (")

~Q..~e~

..., rJJ !!. ... !!. (1) (1) 0 tr: ~

i

~ 3 ~ ?;l ~ 0 _~

§

₌

rJJ

s

o

~ ~ rJJ ~ ..., 0 ~ O'Tl??~~ rJJ 0 z ..., ~ i!l[<'i""C.ci (1) ₀ (')

-

.., :; ~ u. ~ (D ₀ § ~ 0 _~ 0 ~ ~ rJJ ~ ~ ~ r:,:;.

z

0 ..., z ~ 0 0 'Tl

z

~ 0 ₀ 0 rJJ

6

0 § (1> § 0 ~ 0 .., :::,- s· rJJ ~ ~ ~ [ :l (1> Q. (")

n

(") 5' 0 (") (") ..., (1> (') !!. z § (1> ;,;- ~

-

:::,- tT1 (') - [Tj rJJ ~ 0 X

i

u: ~ 5' 3 ..., "O ~ (1) rJJ =r (') _tT1 (1>

I

0 ~ Q. ~ 0 3 t:) -l ::r: (1) ~ '"O ~ ::r: (1>

i

~

I

z ...,

•

DATABASE DESIGN Account.tbl

Field Name Type Size

rev Double 8 exp Double 8 idate Date/Time 8 binvno Single 4 sinvno Single 4 cusno Text 8 total Double 8 status Text 8 firmno Text 8 type Text 8 Customer.tbl

Field Name Type Size

J custno Text 8 custname Text 20 custsname Text 20 custadr Text 30 custtel Text 15 not Text 50 rdate Date/Time 8 Firm.th I

I

I

I

Field Name Type Size

frmno Text 8 frmname Text 30 frmadr Text 30 frmtel Text 15 frmcity Text 20 frmaccno Text 25 not Text 40 rdate Date/Time 8 14

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

• Installment.tbl

Field Name Type Size

custno Text 8 instno Single 4 instdate Date/Time 8 amount Double 8 status Text 8 cont Single 4 lnvoice.tbl

Field Name Type Size

custno Text 8 stkno Text 8 stkname Text 20 stkam Single 4 stksp Double 8 total Double 8 sdate Date/Time 8 sinvno Single 4 status Text 8 Stock .tbl

Field Name Type Size

stkno Text 8

stkname Text 20

User .tbl

Field Name Type Size

uname Text 20

up ass Text 8

I

I

I

I

I

I

I

I

I

I

I

I

I

I

USER MANUAL: USER GUIDLINES

1. Put the CD in to the cd-rom,

2. Run Setup [* - double click to the this icon *] from the CD.

Figure 1. .. : at this step click the next button for continue the setup. All cancel buttons that are

•

Figure 2 ••• : at this-step, enter the password then click the next button for continue the setup.

Figure 3 ..• : at this step, choose the directory and folder for install the components. If you don't

change anything please click the next button for continue the setup, else click browse button.

Figure 4 ... : at this step, setup will create a folder in to the start menu folder for user find the

program easily.we can change the place of this folder or folders name. Ifwe don't want to change anything, click the next button for continue the setup.

Figure 5 ••• : at this step, setup will create a shortcut on to desktop for user find the program easily. If we want to create this shortcut we must click the checkbox then, click the next button for continue the setup.

•

Figure 7 ... : at this step, setup installing the program to the your computer. Please wait...

Figure 8 ... :Congrulations! If you see this screen, it means setup finished the instaliation.

USER ENTER

USER FLOW CHARTS •

START ffi1JiR PASSWORD IF N USER NOT FOUND ---y·----, END

MAIN MENU STARf 1- CUS10Mm PROCISS 2- SUPPLim PROCISS 3- S10CKPROCISS 4- ACCOUNTPROCISS 5- RFPORTPROCISS 6- EXIT

y

·~ N

A__

y

·~ N

'

••...

y

.YG

N

A__

y

·~ N J..____

y

-0

N

-.

~

CUSTOMER PROCESS ' • 1-NEW 2- UPDA'IE 3- DELEIE 4- FIND 5- SALE 6- EXIT SELECT

B

I N

"'--

B

I N

-,

B

I N

"'--

B

I N

"'

B

NEW CUSTOMER ENRTY • FNilR INFO OF CUS10Mm IF SAVE ---y·---, N DATA STORED IF EXIT y N

I

I

CUSTOMER UPDATE ENTER CUSTOMER NO INFO OF CUS'IOMER N UPDATE CUSTOMER CUSTOMER NOT FOUND N DATA STORED y

CUSTOMER DELETE • ENTER CUSTOMER NO N CUS10MER NOT FOUND INFO OF CUS10MER N y CUSTOMffl DJJLEl'ID y

CUSTOMER FIND ENTER CUSTOMER NO • N CUSTOMER NOT FOUND

v

INFO OF CUSTOMER y

SALE ENTER CUSTOMER NO ~--y---, N IF _---y·--- CUS10MER NOT FOUND ffiTIRINFO OF STOCK

~ >-yo

<.

MO~LY >--Y

I

I

1

1 N I I INSTALLMENI

I

I_

I

I

<>

I

PRINDD

I

I

_I

I

N

6

I

I

28

SUPPLIER PROCESS • 1-NEW 2- UPDATE 3- DELEfE 4- FIND 5-BUY 6- EXIT N N

NEW SUPPLIER ENTRY • LIBRARY ffi1ffl. INFO OF SUPPLlffl IF SAVE '>----y---. N IF EXIT N

I

I

I

I

I

DATA S10RED y 30

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

SUPPLIER UPDATE ffiilR SUPPLim NO FOUND N SUPPLIER NOT FOUND INFO OF SUPPLIER UPDATE SUPPLIER N DATA S10RED y

SUPPLIER DELETE • INilR SUPPLim NO N SUPPLIER NOT FOUND y INFO OF SUPPLIER N y SUPPLIER Dll..EI'ID y 32

I

I

I

I

I

I

I

I

I

I

I

I

I

SUPPLIER FIND INllR SUPPLilR NO • N SUPPLIER NOT FOUND INFO OF SUPPLIER

•

I

BUY PROCESS

i

I

/ ffi'IER SUPPLIER NO

I

I

I

<

---

...

y

I

I

N

I

•

<

_---~

...

y , SUPPLIER

I

y

_A

_~"'°

CK

I

I

I

_<

_---

•...

>--Y--.

<

...

..

,... ;;--y

I

I ·1 N

8

I

I

I

I

I

I

I

34

I

r

•

I

STOCK MENU

I

I

/ 1-NEW 2- UPDA'IE

I

_\

3-DELEIE 4- FIND 5- EXIT '

I

I

I

I / <,

B

I

~ N

I

~->>-B

I

T N

»:

I

I

~~B

'--

I N I /

_"'"

B

I

~ N I

I

I « lI

-~

I

i

NEW STOCK ENTRY

i

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

•

ENTER INFO OF STOCK

N

C

MAJNMFMJ )

I

I

I

I

I

I

I

I

I

I

I

I

I

I

STOCK UPDATE FNTm. SlOCK NO FOUND INFO OF S10CK N UPDATE STOCK S10CK NOT FOUND y DATA S10RED

I

•

I

I

STOCK DELETE

I

_{ffiTER STOCK NO}

I

I

I

FOUND

I

I

INFO OF S10CK

I

S10CK NOT FOUND

I

I I <, -: y

I

I

I

N I

I

DllEI'ID STOCK

I

I

I

-:

J.J:'

>---Y--,

c

.•.•.

>--Y

--- ---

I

I

STOCK FIND ffiTIR STOCK NO N S10CK NOT FOUND INFO OF S10CK MAINMFNU

I

I

ACCOUNT PROCESS

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

" 1- INSTALLMENT PAYMENT 2- ACCOUNT SEARCH 3- INVOICE SEARCH 4- EXIT SELECT

B

I N ~ ·~ I N

-.

B

I ~~ 40

INSTALLMENT PAYMENT

1- FIND

2- CHECK EXPIRED DATE 3- EXIT

B

I N

~B

I N •

FIND • FN'IJ!.R INVOICE NO FOUND N INVOICE NOT FOUND DEfAILOF INSTALLMENT RECEIVE y DATA S'IORED N

CHECK EXPIRED DATE N EXPIRED INVOICE NOT FOUND

I

IF

I

I

• y

I

I

DEfAILOF EXPIRED INVOICE y

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

ACCOUNT SEARCH

• 1- NET INCO:tvffi 2- TOT AL NET INCOME 3- EXIT

N

'

• NET INCOME

I

I

I

/ ENTER.DA~

I

I

I

<

~~

/

y

I

I

I

N I _I /~oME OR

I

~ ~LOSS UND

I

I

I

I

<

IF ")--y---,

<

.1..1.'

>--Y

I

I

I

I

TOTAL NET INCOME

'IOTAL

NET INCOME

INVOICE SEARCH •

1- SEARCH

2- EXIT

SEARCH ENDR INVOICE NO • N INVOICE NOT FOUND DEfAILOF INVOICE 48

REPORT PROCESS

I

I

• 1- CUSTOMER REPORT 2- STOCK REPORT 3- SUPPLIER REPORT 4- EXIT N N

I

I

I

I

I

I

I

I

I

I

I

CUSTOMER REPORTS INFO OF CUSTOMERS N • PRINTED 5 50

STOCK REPORTS

l

I

I

I

INFO OF S10CKS N PRINTED y 5 •

SUPPLIER REPORTS INFO OF SUPPLIER N • PRINTED y 5 52

I

I

I

I

I

I

I

I

I

• REFERANCES Resources:

KARAGULLE, lhsan - PALA, Zeydin, "Microsoft ViSUAL BASiC 6.0 PRO", 2. Edition, Ti.irkmen Publishing House, istanbul, 2003

DASDEMiR, Yasar, " VERiTABANLARI & SQL", 1. Edition, Ti.irkmen Publishing House, istanbul, 2002 Websites: http://www.programlama.com/sys/c2html/view.php3?Doc1D=3153 http://www.programlama.com/sys/c2html/view.php3?Doc1D=3059 http://www.freevbcode.com/ShowCode.asp?ID=3717 http://www.freevbcode.com/

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

APPENDIX I SCREEN OUTPUTS •

Figure 1. .. : is the password screen which must be entered from user for run this program

each user has different usemame and different pasword.

Figure 2 ... :is the main menu screenshoot.

Figure 3 ••• : is the customer process menu screenshoot. In this Process, we entered customer information and then if we want, we can sell products to customer with use link of Sale button.

I

I

I

I

I

I

I

I

I

I

I

Figure 5 ... : is the Customer Selling Process Screen shot. In this Process, we prepare the

Invoice for Customer. This is the installmenttype selling.

Figure 6 ... : is the Supplier Process ScreenShot. In this Process, we entered Supplier

information and then if we want, we can buy products from customer with use link of Buy button.

Figure 7 ... : is the Supplier Buying Process ScreenShot. In this Process, we entered the Invoice that come from Sup£_lier.

I

I

I

I

I

I

I

I

I

I

I

Figure 9 ..• : is the Installment Payment sub_menu ScreenShot. We can see the Installments

which are unpaid and we can pay them from here.

Figure 10 ... : is the Day Search sub_menu ScreenShot. We can see the net income and total

•

Figure 11 ... : is the Account Invoice Search sub menu screenshot. In this process we can

•

Figure 12 ... : is Report Process screenshot. In this process we can see the all information

about customers,products,supplier.

,c··,·.· ··.'· ·.··.·· ····. .

-Custorner lhvoice [)eta

if

ss Stock Amount vucesov etejer· etejer 10 64.75 647.5 Total S,ale· 777 ss 12 2 12.12 24:24 Total Sole 24.24 1 · sahin

Figure 13 ... : is the Customer Reports screenshot. We can see the information about

f

I

l

I

•

Figure 14 .•. : is the Stock Reports screenshot. We can see the information about Products.

Sl.JPPLIERREPORJS

Supplier.Name·. · Supplier'Acidress Phone No Supllier Account No·

Saysoylor A;,: Mezltli • .3243584676 356726'66243776 16.06.2005 . 10695

cagaloglu a,r: sanay1 3922345438 7568-6756•7755

16.06.2005 5706 .5

qq qq

16.06.2005 158.4

._

APPENDIX II

FSS SOURCE CODE

Forml.frm

Option Explicit

Private conn As ADODB.Connection Private rec As ADODB.Recordset

Private ser As String Dim proc

Private Sub Commandl_Click()

Set conn= New ADODB.Connection conn.CursorLocation = adUseClient

proc = "provider=Microsoft.jet.oledb.3.51; Data Source=" & App.Path & "\fss.mdb" conn. Open proc

ser ="select* from user where uname="' & Textl & "' and upass="' & Text2 & ""' Set rec = conn.Execute( ser)

If rec.EOF Then

MsgBox ("Please Check Usemame or Password") Textl.Text = "" Text2.Text = "" Textl .SetFocus Else Unload Forml Form2.Show End If rec.Close End Sub

Private Sub Command2 _ Click() Unload Me

End Sub

Private Sub Form_Load() Textl .Text=""

Text2.Text = "" End Sub

I

I

I

I

I

I

I

I

I

I

Form2.frm Option Explicit

Private Sub Commandl_Click() Form3.Show

End Sub

Private Sub Command2 _ Click() Form4.Show

End Sub

Private Sub Command3 _ Click() Form5.Show

End Sub

Private Sub Command4_Click() Forml O.Show

End Sub

Private Sub Commands_ Click() Form14.Show

End Sub

Private Sub Command6 _ Click() Unload Me

•

Form3.frm

Option Explicit

Private conn As ADODB.Connection Private rec As ADODB.Recordset Private ser As String

Dimproc

Private Sub Commandl_Click() Unload Me

End Sub

Private Sub Command2 _ Click() Textl.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Textl .SetFocus End Sub

Private Sub Command3 _ Click()

Set conn= New ADODB.Connection conn.CursorLocation = adUseClient

proc = "provider=Microsoft.jet.oledb.3.51; Data Source=" & App.Path & "\fss.mdb" conn.Open proc

ser ="select* from customer where custno="' & Textl & ""'

Set rec = conn.Execute( ser) If Textl.Text <>""Then Ifrec.EOF Then

MsgBox ("Please Check Customer No") Textl .SetFocus

Else

ser = "update customer set custname="' & Text2.Text & "', custsname="' & Text3.Text & "',

custadr="' & Text3.Text & "', custtel="' & Text5.Text & "', not="' & Text6.Text & "',rdate="'

& DTPickerl.Value & "' where custno="' & Textl.Text & ""'

conn.Execute ( ser)

MsgBox ("Record Updated!") End If

Else

MsgBox ("Please write the customer no") Text 1. SetF ocus

End If rec.Close End Sub

Private Sub Command4_Click() Set conn= New ADODB.Connection

conn.CursorLocation = adUseClient

proc = "provider=Microsoft.jet.oledb.3.51; Data Source=" & App.Path & "\fss.mdb" conn. Open proc

ser ="select* from customer where custno="' & Textl & ""'

I

I

I

I

I

I

I

I

I

I

I

I

I

1·

I

Ifrec.EOF Then

MsgBox ("The Wanted Customer is Not Available!") Else

Text2.Text = rec![custname] Text3.Text = rec![custsname] Text4.Text = recl[custadr] Text5. Text= rec! [ custtel] Text6.Text = rec! [Not]

DTPickerl.Value = rec![rdate] End If

End Sub

Private Sub Command5 _ Click() Form7.Text8.Text = Textl.Text Form7.Text18.Text = Text2.Text Form7.Text19.Text = Text3.Text Form7.Show

End Sub

Private Sub Command6 _ Click() Set conn= New ADODB.Connection

conn.CursorLocation = adUseClient

proc = "provider=Microsoft.jet.oledb.3.51; Data Source=" & App.Path & "\fss.mdb" conn. Open proc

ser ="select* from customer where custno="' & Textl & ""'

Set rec = conn.Execute( ser) If Textl.Text <>""Then Ifrec.EOF Then

MsgBox ("Please check Customer No") Textl .SetFocus

Else

conn.Execute "DELETE FROM customer Where custno ="' & Textl & ""'

MsgBox ("Record Deleted!") End If

Else

MsgBox ("Please enter the customer No") Textl .SetFocus

End If rec.Close End Sub

Private Sub Command7 _ Click()

Set conn= New ADODB.Connection conn.CursorLocation = adUseClient

I

I

I

I

I

I

I

I

I

I

I

I

I

MsgBox ("Record Saved!") Else

MsgBox ("Please write the customer no") Textl .SetFocus

End If Else

MsgBox ("this record exist") Textl .SetFocus

End If rec.Close End Sub

Private Sub Form_Load() Textl.Text = "" Text2.Text = "" Text3.Text

= ""

Text4.Text = "" Text5.Text = '"' Text6.Text = "" End Sub •

•

Form4.frm

Option Explicit

Private conn As ADODB.Connection Private rec As ADODB.Recordset Private ser As String

Dim proc

Private Sub Commandl_Click() Textl .Text="" Text2.Text = '"' Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Text7.Text = "" Textl .SetFocus End Sub

Private Sub Command2 _ Click() Set conn= New ADODB.Connection

conn.CursorLocation = adUseClient

proc = "provider=Microsoft.jet.oledb.3.51; Data Source=" & App.Path & "\fss.mdb" conn. Open proc

ser ="select* from firm where frmno="' & Textl & ""'

Set rec= conn.Execute(ser) IfTextl.Text <>""Then If rec.EOF Then

MsgBox ("Please Check Supplier No") Text 1. SetF ocus

Else

ser= "update firm set frmname="' & Text2.Text & "', frmadr="' & Text3.Text & "', frmtel="'

& Text4.Text & "', frmcity="' & Text5.Text & "', frmaccno="' & Text6.Text & '",not="' &

Text7.Text & '", rdate="' & DTPickerl.Value & "' where frmno='" & Textl.Text & ""'

conn.Execute ( ser)

MsgBox ("Record Updated!") End If

Else

MsgBox ("Please write the Supplier no") Textl .SetFocus

End If rec.Close

• MsgBox ("Please check Supplier No")

Textl .SetFocus Else

conn.Execute "DELETE FROM firm Where frmno = "' & Textl & ""'

MsgBox ("Record Deleted!") End If

Else

MsgBox ("Please enter the Supplier No") Text 1. SetF ocus

End If rec.Close End Sub

Private Sub Command4_Click() Set conn= New ADODB.Connection

conn.CursorLocation = adUseClient

proc = "provider=Microsoft.jet.oledb.3.51; Data Source=" & App.Path & "\fss.mdb" conn. Open proc

lfTextl.Text <>""Then

ser ="select* from firm where frmno="' & Textl & ""'

Set rec= conn.Execute(ser) lfrec.EOF Then

MsgBox ("The Wanted Supplier is Not Available!") Else

Text2.Text = rec![frmname] T ext3. Text = rec! [ frmadr] Text4.Text = rec![frmtel] Text5.Text = rec![frmcity] Text6.Text = rec![frmaccno] Text7.Text = rec![Not] DTPickerl.Value = rec![rdate] End If Else

MsgBox ("Please enter Firm No") Textl .SetFocus

End If End Sub

Private Sub Command5 _ Click() Form6.Text8.Text = Textl.Text Form6.Show

End Sub

Private Sub Command6_Click() Unload Me

End Sub

Private Sub Command7 _ Click() Set conn= New ADODB.Connection

conn.CursorLocation = adUseClient

proc = "provider=Microsoft.jet.oledb.3.51; Data Source=" & App.Path & "\fss.mdb" conn. Open proc

ser ="select* from firm where frmno="' & Textl & ""'

Ifrec.EOF Then

If Textl.Text <>""Then

conn.Execute "INSERT INTO firm(frmno, frmname, frmadr, frmtel, frmcity,

frmaccno not rdate) values("' & Textl & "' "' & Text2 & "' "' & Text3 & "' "' & Text4 & "' "'

' ' ' ' ' '

& Text5 & "',"' & Text6 & "',"' & Text7 & "',"' & DTPickerl.Value & "')"

MsgBox ("Record Saved!") Else

MsgBox ("Please write the Supplier No") Textl .SetFocus

End If Else

MsgBox ("this record exist") Text 1. SetF ocus

End If rec.Close End Sub

Private Sub Form_Load() Textl .Text= '"' Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Text7.Text = "" End Sub

•

Form5.frm

Option Explicit

Private conn As ADODB.Connection Private rec As ADODB.Recordset Private ser As String

Dim proc, cl, cl l Dim a, b As Double

Private Sub Commandl_Click() Command3.Enabled = False Textl .Text="" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Text7.Text = "" Text8.Text = "" Textl .SetFocus End Sub

Private Sub Command3 _ Click() Framel .Visible= True

T ext9. SetF ocus Text9.Text = "" TextlO.Text = "" Textl l .Text= "" Text13.Text = "" Textl.Enabled = False Text2.Enabled = False Textx.Enabled = False End Sub

Private Sub Command4 _ Click() Set conn= New ADODB.Connection

conn.CursorLocation = adUseClient

proc = "provider=Microsoft.jet.oledb.3.51; Data Source=" & App.Path & "\fss.mdb" conn. Open proc

IfTextl.Text <>""Then

ser ="select* from stock where stkno="' & Textl & ""'

Set rec= conn.Execute(ser) If rec.EOF Then

MsgBox ("The Wanted Stock is Not Available!") Else Text2.Text = rec![stkname] Text3.Text = rec![stkam] Text4.Text = rec![stkma] Text5.Text = rec![stkbp] Text6.Text = rec![stksp] Text7.Text = rec![stkpp] DTPickerl.Value = rec![rdate] Text8.Text = rec![frmno] Command3 .Enabled = True

•

End If rec.Close Else

MsgBox ("Please enter Stock No") Textl .SetFocus

End If End Sub

Private Sub Command5 _ Click() Set conn= New ADODB.Connection

conn.CursorLocation = adUseClient

proc = "provider=Microsoft.jet.oledb.3 .51; Data Source=" & App.Path & "\fss.mdb" conn. Open proc

ser ="select* from stock where stkno="' & Textl & ""'

Set rec= conn.Execute(ser) If Textl.Text <>""Then If rec.EOF Then

MsgBox ("Please check Stock No") Textl .SetFocus

Else

conn.Execute "DELETE FROM stock Where stkno = "' & Textl & ""'

MsgBox ("Record Deleted!") End If

Else

MsgBox ("Please enter the Stock No") Textl .SetFocus

End If rec.Close End Sub

Private Sub Command6 _ Click() Framel.Visible = False Text9.Text = "" TextlO.Text = "" Textl l.Text = "" Textl3.Text = "" Textl .Text= "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = ""

Private Sub Command8 _ Click() Set conn= New ADODB.Connection

conn.CursorLocation = adUseClient

proc = "provider=Microsoft.jet.oledb.3.51; Data Source=" & App.Path & "\fss.mdb" conn. Open proc

cl= "paid" cl 1 = "expense"

a= (Val(TextlO)

*

Val(Textl 1))

conn.Execute "update stock set stkname="' & Text2.Text & "', stkam='" & Text3.Text & "', stkma="' & Text3.Text & "', stkbp="' & Text5.Text & '", stksp="' & Text6.Text & "',stkpp="' & Text7.Text & "', rdate="' & DTPickerl.Value & "', frmno="' & Text8.Text & "' where stkno="' & Textl.Text & ""'

conn.Execute "insert into account(rev,exp, idate, binvno, sinvno,cusno, total, status,

frmno,type) values("' & 0 & "',"' & a & "',"' & DTPickerl.Value & "',"' & Textl2.Text & "',"' & 0 & ,,, ,,, & 0 & "' ,,, & a & "' "' & cl & ,,, "' & 0 & "' "' & cl l & "')" _{' ' ' ' '}

MsgBox ("stock updated") Framel.Visible = False Textl .Enabled= True Text2.Enabled = True Text8.Enabled = True T extl . SetF ocus End Sub

Private Sub Form_Load() Command3.Enabled = False Framel.Visible = False Textl .Text="" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Text7.Text = "" Text8.Text = "" Text12.Text = "" End Sub

Private Sub TextlO_KeyPress(KeyAscii As Integer) If Key Ascii = 13 Then

KeyAscii = 0 SendKeys "{Tab}"

ElselflnStr(("1234567890" & vbBack & ""), Chr(KeyAscii)) = 0 Then KeyAscii = 0

End If End Sub

Private Sub TextlO_LostFocus()

If Val(Text3.Text) <= Val(TextlO.Text) Then

MsgBox ("Please Enter Minimum Amount Smaller Than Amount!") TextlO.SetFocus

Else

a= Val(TextlO.Text) Text4.Text = a

I

I

I

I

I

• End If End Sub

Private Sub Textl l_KeyPress(KeyAscii As Integer) If Key Ase ii = 13 Then

KeyAscii = 0 SendKeys "{Tab}"

ElseiflnStr(("1234567890" & vbBack & ""), Chr(KeyAscii)) = 0 Then KeyAscii = 0

End If End Sub

Private Sub Textl l_LostFocus() a= Val(Textl I.Text)

Text5.Text = a End Sub

Private Sub Text13_KeyPress(KeyAscii As Integer) If Key Ase ii = 13 Then

KeyAscii = 0 SendKeys "{Tab}"

ElseiflnStr(("1234567890" & vbBack & '"'), Chr(KeyAscii)) = 0 Then KeyAscii = 0

End If End Sub

Private Sub Text13_LostFocus() a= Val(Text13.Text)

Text7.Text = a End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer) If Key Ascii = 13 Then

KeyAscii = 0 SendKeys "{Tab}"

ElseiflnStr(("1234567890" & vbBack & ""), Chr(KeyAscii)) = 0 Then KeyAscii = 0

End If End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer) If Key Ase ii = 13 Then

KeyAscii = 0 SendKeys "{Tab}"

Elself InStr(("1234567890" & vbBack & ""), Chr(KeyAscii)) = 0 Then KeyAscii = 0

End If End Sub

I

I

I

I

I

•

Private Sub Text7 _ Change() Dim a, b

a= ((Val(Text5.Text)

*

Val(Text7.Text)) I 100) + Val(Text5.Text) Text6.Text = a

End Sub

Private Sub Text7 _KeyPress(KeyAscii As Integer) If Key Ase ii = 13 Then

KeyAscii = 0 SendKeys "{Tab}"

ElseiflnStr(("l234567890" & vbBack & '"'), Chr(KeyAscii)) = 0 Then KeyAscii = 0

End If End Sub

Private Sub Text9 _KeyPress(KeyAscii As Integer) If Key Ase ii = 13 Then

KeyAscii = 0 SendKeys 11

{Tab} 11

ElseiflnStr((111234567890" & vbBack & 1111),

Chr(KeyAscii)) = 0 Then KeyAscii = 0

End If End Sub

Private Sub Text9 _ LostFocus() a= Val(Text9.Text)

b = Val(Text3.Text) + a Text3.Text = b

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

• Form6.frm Option Explicit

Private conn As ADODB.Connection Private rec As ADODB.Recordset Private ser As String

Dim proc

Private Sub Commandl_Click()

If Textl.Text <>""And Text2.Text <> 1111

And Text3.Text <>""Then Listl (O).Addltem Textl.Text

List 1 ( 1 ).Addltem Text2. Text List1(2).Addltem Text3.Text Listl(3).Addltem Text4.Text Listl(4).Addltem Text5.Text Listl(5).Addltem Text6.Text List 1 ( 6).Addltem Text7. Text List 1 (7) .Addltem T ext8. Text Listl(8).Addltem DTPickerl.Value

List1(9).Addltem (Val(Text3.Text)

*

Val(Text5.Text)) Dim i, a, b For i = 0 To Listl(9).ListCount a= Val(Listl(9).List(i)) b=b+a Next Textl l .Text= b clear Textl.SetFocus Else

MsgBox ("Please Fill the texts") Text9. SetF ocus

End If

Text9.Enabled = False End Sub

Private Sub Command2_Click() Unload Me

Form4.Show End Sub

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

c4 = Val(Listl(2).List(i)) c5 = Val(List1(3).List(i)) c6 = Val(List1(4).List(i)) c7 = Val(List1(5).List(i)) c8

=

Val(Listl(6).List(i)) c9 = Val(List 1 (7).List(i)) c 10 = Listl (8).List(i)

conn.Execute "INSERT INTO stock(stkno, stkname, stkam, stkma, stkbp, stkpp, stksp, rdate, frmno) values("' & c2 & "',"' & c3 & "',"' & c4 & "',"' & c5 & "',"' & c6 & "',"' & c7 & "',"' &

c8 & "' "' & clO & "' "' & c9 & "')"

' '

Next

conn.Execute "insert into account(rev,exp, idate, binvno, sinvno,cusno, total, status, frmno,type) values("' & 0 & "',"' & TextlO.Text & "',"' & DTPickerl.Value & "',"' &

Text9.Text & "',"' & 0 & "',"' & 0 & "',"' & TextlO.Text & "',"' & cl & "',"' & Text8.Text & "',"' & cl 1 & "')"

MsgBox ("stock entry saved") Command2 Click

Else

MsgBox ("please enter the tax ratio") Text 13. SetF ocus

End If End Sub

Private Sub Command4_ Click() Dim ans, sec, i, j

Dim index As Integer sec

=

Listl (index).Listlndex If sec < 0 Then

MsgBox ("Select the removed item") Else

For i = 0 To 8

List 1 (i).Removeitem List 1 (i).Listlndex Next

MsgBox ("Record Deleted From List") End If

End Sub

Private Sub Form_Load() clear

Text9.Text = ""

TextlO.Text

= ""

End Sub

Private Sub Listl_Click(index As Integer) Dim sel, topin, j

On Error Resume Next sel = Listl(index).Listlndex

topin = Listl(index).Topindex For j = 0 To 8

I

I

I

I

I

I

I

I

I

Listltjj.Toplndex = topin Next End Sub

Private Sub Textl 3 _ Change()

Text12.Text = (Val(Textl I.Text)* Val(Text13.Text) I 100) TextlO.Text = Val(Textl2.Text) + (Textl I.Text)

End Sub

Private Sub Text13 KeyPress(KeyAscii As Integer) If Key Ascii = 13 Then

KeyAscii = 0 SendKeys "{Tab} 11

ElseiflnStr((111234567890" & vbBack & ""), Chr(KeyAscii)) = 0 Then

KeyAscii = 0 End If

End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer) If Key Ase ii = 13 Then

KeyAscii = 0 SendKeys "{Tab} 11

ElseiflnStr(("1234567890" & vbBack & ""), Chr(KeyAscii)) = 0 Then KeyAscii = 0

End If End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer) If Key Ase ii = 13 Then

KeyAscii = 0 SendKeys 11

{Tab} 11

ElseiflnStr(("123456789011 & vbBack & 11"),

Chr(KeyAscii)) = 0 Then KeyAscii = 0

End If End Sub

Private Sub Text5_KeyPress(KeyAscii As Integer) If Key Ascii = 13 Then

KeyAscii = 0 SendKeys "{Tab}"

ElseiflnStr(("1234567890" & vbBack & 11"),

Chr(KeyAscii)) = 0 Then KeyAscii = 0

I

I

I

I

I

I

I

I

I

•

Private Sub clear() Textl .Text="" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = '"' Text6.Text = "" Text7.Text = "" End Sub

Private Sub Text6_KeyPress(KeyAscii As Integer) If Key Ascii = 13 Then

KeyAscii = 0 SendKeys "{Tab}"

ElselflnStr(("1234567890" & vbBack & ""), Chr(KeyAscii)) = 0 Then KeyAscii = 0

End If End Sub

•

Form7.frm

Option Explicit

Private conn As ADODB.Connection Private rec, reel As ADODB.Recordset Private ser As String

Dimproc

Dim price, mont, ratio, rece, nprice As Long Private Sub Commandl_Click()

Form8.Show End Sub

Private Sub Command2_Click()

If Val(Text3.Text) < Val(Text6.Text) Then MsgBox ("Stock not enough to sell this amount ") Else

Listl(O).Addltem Textl.Text List 1 ( 1) .Addltem T ext2. Text List1(2).Addltem Text6.Text List1(3).Addltem Text4.Text

List1(4).Addltem (Val(Text4.Text)

* Val(Text6.Text))

Text6.Enabled = False Textl.Text = "" Textl .SetFocus Dim i, a, b For i = 0 To List1(4).ListCount a= Val(List1(4).List(i)) b=b+a Next Text7.Text = b End If End Sub

Private Sub Command3 _ Click() Dim ans, sec, i

Dim index As Integer sec= Listl(index).Listlndex If sec < 0 Then

ans = MsgBox("Select the removed item") Else

I

I

I

I

I

I

I

I

I

I

I

I

For i = 0 To Listl(O).ListCount - 1 sta = "unpaid" stal = "revenue" stk = Listl(O).List(i) stk2 = Listl(l).List(i) sq= Val(List1(2).List(i)) sql = Val(List1(3).List(i)) sq2 = Val(List1(4).List(i))

conn.Execute "INSERT INTO invoice(custno,stkno, stkname, stkam, stksp, total, sdate, sinvno, status) values('" & Text8.Text & "',"' & stk & "',"' & stk2 & "',"' & sq & "',"' & sql & "',"' & sq2 & "',"' & DTPickerl.Value & '"," & Text9 & ","' & sta & "')"

conn.Execute "update stock set stkam = stkam - " & sq & "where stkno="' & stk & ""'

Next

Set reel = conn.Execute("select cont from installment") If recl.EOF Orrecl.BOF Then

contt = 0 Else

Set reel = conn.Execute("select max(cont) as tot from installment") contt = recl![tot] + 1

End If

For i = 1 To Val(TextlO.Text) - 1

datl = Format(DateAdd(sur, i, dat), "short date") con= "Unpaid"

contt 1 = contt + i

Set conn= New ADODB.Connection conn.CursorLocation = adUseClient

proc = "provider=Microsoft.jet.oledb.3.51; Data Source=" & App.Path & "\fss.mdb" conn. Open proc

conn.Execute "insert into installment(invno,instno, instdate, amount, status,cont,paysta) values("' & Text9 & "',"' & i & "',"' & datl & '","' & rece & "',"' & con & "',"' & conttl & "','" & check & "')"

Next

conn.Execute "insert into account(rev,exp, idate, binvno, sinvno,cusno, total,

status,frmno,type) values("' & reve & "',"' & 0 & "',"' & DTPickerl.Value & "',"' & 0 & "',"' &

Text9.Text & "',"' & Text8.Text & "',"' & Text12.Text & "',"' & con & "',"' & 0 & "',"' &

"revenue" & "')"

End If

MsgBox ("Invoice Saved") Else

MsgBox ("please enter the tax ratio") Textl 5. SetF ocus

End If End Sub

Private Sub Command5 _ Click() Unload Me

Form3.Show End Sub

I

I

I

I

I

I

I

I

I

I

I

I

I

Dim X As Printer

Dim y, xl, x2, i, artim, yb, ys, x6, x5, x3, x4, k, x7 On Error Go To ass

Printer.ScaleMode = 6

Printer.FontName = "Courier New Tr" Printer.FontSize = 10

y = 10: xl

=

5: x2 = xl + 50: artim = 7 Printer. CurrentX = 1

Printer. Current Y = 2

Printer.Print "FSS Process Invoice" & " " & Format(Date, "Short Date") Printer.Line (0, 9)-(Printer.ScaleWidth, 9)

If Not IsNull(Text8.Text) Then y = y + artim

Printer.CurrentX = xl Printer. Current Y = y

Printer.Print "Customer No:" Printer.CurrentX = x2

Printer.CurrentY = y Printer.Print Text8.Text End If

IfNot IsNull(Text18.Text) Then y=y+artim

Printer.CurrentX = xl Printer. Current Y = y

Printer.Print "Customer Name : " Printer. CurrentX = x2

Printer. Current Y = y Printer.Print Textl 8.Text End If

IfNot IsNull(Text19.Text) Then y=y+artim

Printer. CurrentX = x 1 Printer. Current Y = y

Printer.Print "Customer Surname:" Printer.CurrentX = x2

Printer. Current Y = y Printer.Print Text19.Text End If

If Not IsNull(Text9.Text) Then y=y+artim

Printer. CurrentX = x 1 Printer.CurrentY = y

I

•

I

Printer.CurrentY = y Printer.Print "Invoice Date : " Printer. CurrentX = x2

I

Printer. Printer.Print DTPickerl .Value Current Y = y End If

I

If Not IsNull(Text15.Text) Then y = y + artim Printer.CurrentX = xl

I

Printer.CurrentY = y

Printer.Print "Tax Ratio:" Printer. CurrentX = x2

I

Printer. Current Y = y Printer .Print Text 15. Text End If

I

If Not IsNull(Textl 7.Text) Then y=y+artim

Printer.CurrentX = xl Printer. Current Y = y Printer.Print "Sub Total :"

I

Printer. CurrentX = x2 Printer. Current Y = y Printer.Print Textl 7.Text

I

End If IfNot IsNull(Text7.Text) Then y=y+artim

Printer.CurrentX = xl Printer.CurrentY = y Printer.Print "Total : "

I

Printer.CurrentX = x2 Printer. Current Y = y

Printer.Print Text7 .Text End If Printer.Print"" Printer.Print '"'

I

Printer.Print"" Printer.Print "" yb = Printer.CurrentY x7 = Printer.TextWidth(Space(70)) x6 = x7 + Printer.TextWidth(Space(25)) x5 = x6 + Printer.TextWidth(Space(25)) x3 = x5 + Printer.TextWidth(Space(25)) x4 = x3 + Printer.TextWidth(Space(25)) Printer.Line (30, yb)-(x4 - 30, yb) Printer.CurrentX = 30

Printer.Print "Stock No"; Printer.CurrentX = x7 + 30 Printer.Print "Stock Name"; Printer.CurrentX = x6 + 30 Printer.Print "Amount";

I

I

I

I

I

I

I

I

I

I

I

I

• Printer. CurrentX = x5 + 3 0 Printer.Print "Seeling Price"; Printer.CurrentX = x3 + 30 Printer.Print "Total Amount"

Printer.Line (30, Printer.CurrentY)-(x4 - 30, Printer.CurrentY) Fork= 0 To Listl(O).ListCount - 1

Printer.CurrentX = 30 Printer.Print Listl (O).List(k); Printer.CurrentX = x7 + 30 Printer.Print Listl (1 ).List(k); Printer.CurrentX = x6 + 30 Printer.Print Listl (2).List(k); Printer.CurrentX = x5 + 30 Printer.Print Listl(3).List(k); Printer.CurrentX = x3 + 30 Printer.Print Listl( 4).List(k)

Printer.Line (30, Printer.CurrentY)-(x4 - 30, Printer.CurrentY) Nextk

ys = Printer. Current Y Printer.Line (30, yb)-(30, ys)

Printer.Line (x7 + 30, yb)-(x7 + 30, ys) Printer.Line (x6 + 30, yb )-(x6 + 30, ys) Printer.Line (x5 + 30, yb)-(x5 + 30, ys) Printer.Line (x3 + 30, yb)-(x3 + 30, ys) Printer.Line (x4 + 30, yb )-(x4 + 30, ys) Printer .EndDoc

Exit Sub ass:

MsgBox "Error:" & Err.Description, 16, "Account" End Sub

Private Sub Form_ Load() Optionl.Value = Checked clear

Set conn= New ADODB.Connection conn.CursorLocation = adUseClient

proc = "provider=Microsoft.jet.oledb.3.51; Data Source=" & App.Path & "\fss.mdb" conn. Open proc

Private Sub Listl_Click(index As Integer) Dim sec, ttop, j

On Error Resume Next sec = Listl (index).Listlndex ttop = Listl(index).Toplndex For j = 0 To 4 Listl(j).Listlndex = sec Listl(j).Toplndex = ttop Next End Sub

Private Sub Optionl_Click() If Optionl = True Then Framel.Visible = False End If

End Sub

Private Sub Option2 _ Click() If Option2 = True Then Frame I.Visible= True Textl O. SetF ocus End If

End Sub

Private Sub Textl_KeyPress(KeyAscii As Integer) Dim i, a, b

If Key Ascii = 13 Then

If Len(Textl.Text) = 0 Then

MsgBox ("Please enter the stock code") Else

KeyAscii = 0 b = Textl .Text

For i = 0 To Listl(O).ListCount If (Listl(O).List(i)) = b Then

MsgBox ("You entered this stock before please enter another stock I for Re-enter remove stock=" & Textl & "from the list")

Textl.Text = "" Textl .SetFocus Exit Sub End If Next

Set conn= New ADODB.Connection conn.CursorLocation = adUseClient

proc = "provider=Microsoft.jet.oledb.3.51; Data Source=" & App.Path & "\fss.mdb" conn. Open proc

ser = "select

* from stock where stkno="' + Textl .Text+ '""

Set rec = conn.Execute( ser)

If rec.EOF Then

Textl .Text="" Textl .SetFocus Else Text2.Text = rec![stkname] Text3.Text = rec![stkam] Text4.Text = rec![stksp] Text5.Text = rec![stkma] rec.Close Text6.Enabled = True Text6.Text = '"' Text6.SetFocus End If End If

ElselflnStr(("l234567890" & vbBack & ""), Chr(KeyAscii)) = 0 Then KeyAscii = 0

End If End Sub

Private Sub TextlO_KeyPress(KeyAscii As Integer) If Key Ascii = 13 Then

KeyAscii = 0 SendKeys "(tab)"

ElselflnStr(("1234567890" & vbBack & ""), Chr(KeyAscii)) = 0 Then KeyAscii = 0

End If End Sub

Private Sub Textl l_Change() On Error Resume Next price= Text7.Text ratio= Val(Textl I.Text)

nprice = price + ( (price

*

ratio) I 100) Textl2.Text = nprice

mont = Val(TextlO.Text) rece = (nprice \ mont) Text13.Text = rece

Text14.Text = nprice - rece End Sub

b = (Val(Text15.Text) + 100) a= Val(Text7.Text) I b

Text16.Text = Val(Text15.Text)

* a

Textl 7.Text = 100

*

a

End Sub

Private Sub Text15_KeyPress(KeyAscii As Integer) If Key Ase ii = 13 Then

KeyAscii = 0 SendKeys "{Tab}"

ElseiflnStr(("1234567890" & vbBack & ""), Chr(KeyAscii)) = 0 Then KeyAscii = 0

End If End Sub

Private Sub Text6_KeyPress(KeyAscii As Integer) If Key Ascii = 13 Then

KeyAscii = 0 SendKeys "{Tab}"

ElseiflnStr(("1234567890" & vbBack & ""), Chr(KeyAscii)) = 0 Then KeyAscii = 0

End If End Sub

Private Sub clear() Textl .Text="" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Text7.Text = "" Text8.Text = "" End Sub

Form8.frm

Option Explicit

Private conn As ADODB.Connection Private rec As ADODB.Recordset Private ser As String

Dim proc

Private Sub Commandl_Click()

Set conn= New ADO DB.Connection conn.CursorLocation = adUseClient

proc = "provider=Microsoft.jet.oledb.3 .51; Data Source=" & App.Path & "\fss.mdb" conn. Open proc

If Len(Textl.Text) = 0 Then

MsgBox ("Please Enter The Stock Name") Textl.SetFocus

Else

•

ser = "select stkno, stkname,frmno from stock where stkname like"' & Textl .Text & "%" &

'""

Set rec= conn.Execute(ser) Ifrec.EOF Then

MsgBox ("Wanted Product Name Not Exist!") Textl .Text= ""

T extl . SetF ocus Else

Set DataGridl .DataSource = rec

DataGridl.Caption = "LIST OF Stock BY Stock NAME" DataGridl.Colurnns(O).Caption = "Stock No"

DataGridl.Colurnns(l).Caption = "Stock Name" DataGridl.Colurnns(2).Caption = "Supplier Name" Textl .Text=""

Textl .SetFocus End If

End If End Sub

Private Sub Command2 _ Click() Unload Me

End Sub

Private Sub Form_Load() Textl.Text = ""

•

Form9.frm

Private conn As ADODB.Connection

Private rec, reel, rec2 As ADODB.Recordset Private ser As String

Dimproc

Private Sub Commandl_Click() Dim sor, kim As String

Dim kontur2, odeme, ogmo If Len(Text3) = 0 Then

sor = MsgBox("You must enter Installment Number that will pay!", vbCritical, "Payment") T ext3. SetF ocus

Else

ogmo = Textl.Text

Set rec= conn.Execute("select

* from installment where invno='" + ogmo +"'and instno=" +

Text3 +" ")

If rec.EOF Then

sor = MsgBox("Installment Number not available !", vbCritical, "Payment") Text3.Text = ""

Text3. SetF ocus Else

If rec![Status] = "Paid" Then

sor = MsgBox("This Installment Number paid before ! ", vbCritical, "Payment") Text3.Text = ""

T ext3. SetF ocus Else

odeme = Val(rec![amount])

conn.Execute ("update installment set status="' & "Paid" & "' where invno="' + ogmo + "' and instno=" + Text3 + "")

conn.Execute "insert into account(rev,exp, idate, binvno, sinvno,cusno, total,

status,frmno,type) values("' & odeme & "',"' & 0 & "',"' & Label5.Caption & "',"' & 0 & "',"' & O & "' "' & Textl Text & '" "' & 0 & "' "' & "paid" & "' "' & 0 & "' "' & "revenue" & "')"

'

.

' ' ' '

DataGridl .Visible= False Framel.Visible = False

Set rec2 = conn.Execute("select rev from account") If rec2.EOF Then

Text2 = 0 Else

Set rec3 = conn.Execute("select sum(rev) as topl from account") Text2 = rec3![topl]

End If

sor = MsgBox("Payment completed", vblnformation, "Payment") End If

End If End If End Sub

Private Sub Command2_Click() Dim cev, kosul As String If Len(Text 1) = 0 Then

&

cev = MsgBox("You must enter student no", vbCritical, "Student Search") DataGridl .Visible= False

Framel.Visible = False Textl .SetFocus

Else

Set conn= New ADODB.Connection conn.CursorLocation = adUseClient

proc = "provider=Microsoft.jet.oledb.3.51; Data Source=" & App.Path & "\fss.mdb" conn. Open proc

Set rec= conn.Execute("select

*

from installment where invno="' + Textl + "' ") If rec.EOF Or rec.BOP Then

DataGridl.Visible = False Framel.Visible = False

cev = MsgBox("Student record not available", vbinformation, "Student search result") Textl.Text = ""

Text 1. SetF ocus Else

If rec![paysta] = "Cash" Then DataGridl.Visible = False Framel.Visible = False

cev = MsgBox("There is not dept of wanted Student", vblnformation, "Student search result")

Textl.Text = 1111

Textl .SetFocus Else

kosul = "Unpaid"

Set conn= New ADODB.Connection conn.CursorLocation = adUseClient

proc = "provider=Microsoft.jet.oledb.3.51; Data Source=" & App.Path & "\fss.mdb" conn. Open proc

Set reel = conn.Execute("Select invno, instno, instdate, amount, status from installment where invno=" & Textl.Text & "' and status=" & kosul & "' order by instno asc ")

If recl.EOF Or reel.BOP Then DataGridl.Visible = False Framel.Visible = False

cev = MsgBox("There is not dept of wanted student", vbinformation, "Student Search") Textl.Text = ""

Textl .SetFocus Else

T ext3. SetF ocus End If End If End If End If End Sub

Private Sub Command3 _ Click() Unload Me

FormlO.Show End Sub

Private Sub Command4 _ Click() Forml2.Show

Form9.Enabled

=

False End Sub

I

I

Private Sub Form_Load()

Set conn= New ADODB.Connection conn.CursorLocation

=

adUseClient

proc = "provider=Microsoft.jet.oledb.3.51; Data Source=" & App.Path & "\fss.mdb" conn. Open proc

Set rec = conn.Execute(" select rev from account") Ifrec.EOF Then

Text2 = 0 Else

Set reel

=

conn.Execute("select sum(rev) as topl from account") Text2 = reel ![topl]

End If Label5 = Date End Sub

I

I

I

I

I

I

I

I

1:

I

FormlO.frm

Private Sub Commandl_Click() F orrn9. Show

End Sub

Private Sub Command2_Click() Forrnl l .Show

End Sub

Private Sub Command3 _ Click() Unload Me

Forrn2.Show End Sub

Private Sub Command4 _ Click() Forrnl3.Show

l!ormll.frm

Private conn As ADODB.Connection

Private rec, reel, rec2 As ADODB.Recordset Private ser As String

Dim proc

Private Sub Commandl_Click() Dim baslangic_tarihi, bitis_tarihi

Dim sor

On Error Resume Next

Set conn== New ADODB.Connection conn.CursorLocation == adUseClient

proc ~ "provider=Microsoft.jet.oledb.3 .51; Data Source~" & App.Path & "\fss.mdb"

conn. Open proc

baslangic_tarihi ~ Mid$(DTPickerl, I, 2) & "/" & Mid$(DTPickerl, 4, 2) & "/" &

Mid$(DTPicker _{bi tis_ tarihi ~ Mid$(DTPicker2, l, 2) & "I" & Mid$(DTPicker2, 4, 2) & "/" &} i, 7, 4)

Mid$(DTPicker2, 7, 4) Set rec~ conn.Execute("select

*

from account where ((idate) Between datevalue("' &

baslangic_tarihi & '") AND datevalueC" & bitis_tarihi & '"))") If rec.EOF Or rec.BOF Then

Textl == ""

Text2 == ""

Text3 == '"'

Label6 == ""

LabelS.Caption _{MsgBox "No Record Between This Dates", vblnformation, "Net Income"} == "Net Income"

Else Set reel~ conn.Execute("Select sum(rev) as tpc, sum(exp) as tape from account where ( (idate) Between datevalue("' & baslangic _ tarihi & '") AND datevalueC" & bi tis , tarihi &

'"))")

Textl.Text == reel l(tpc) Text2 .Text == reel l ( tape

1

Text3.Text == Textl - Text2 IfVal(Text3) < 0 Then

Labels.Caption== "Net Loss " End If

Label6 ~ LabelS + " Between "

+

baslangic _ tarihi

+ "

and " + bi tis ; tarihi End If

End Sub

Private Sub Command2 _ Click() 'On Error Resume Next

Set conn== New ADODB.Connection conn.CursorLocation == adUseClient

proc ~ "providei=Microsoft.jet.oledb.3.51; Data Sourceaa" & App.Path & "\fss.mdb"

conn. Open proc

Set rec== conn.Execute("select

*

from account") Ifrec.EOF Or rec.BOF Then

Textl == ""

Text2 == ""

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

Text3

= ""

Label6

= ""

Label5. Caption

=

"Net Income " Text3

=

0

Else

Set rec2 = conn.Execute("Select sum(total) as tpc, sum(exp) as tape from account") Textl.Text = rec2![tpc]

Text2.Text = rec2![tapc]

Text3.Text = Textl - Text2 If V al(T ext3) < 0 Then

Label5.Caption

=

"Net Loss " End If

Label6 = ""

End If End Sub

Private Sub Command3 _ Click() Unload Me

FormlO.Show

FormlO.Enabled = True End Sub

Private Sub Form_Load() Textl = ""

Text2 = '"'

Text3 = ""