NaziyetBaşkut(20011494) Dr.YalçınAkçalıMiss.NadireÇavuş NEAREASTUNIVERSITYFACULTYOFECONOMICSANDADMINITRATIVESCIENCEDEPARTMENTOFCOMPUTERINFORMATIONSYSTEMS r

(1)

r

NEAR EAST UNIVERSITY

FACULTY OF ECONOMICS AND

ADMINITRATIVE SCIENCE

DEPARTMENT OF COMPUTER

INFORMATION SYSTEMS

2003/2004 FALL TERM CIS 400 (Graduation Project)

GLASSES SE.ll.I.N' SYSTEM

SUBMITTED TO :

Dr. Yalçın Akçalı

Miss. Nadire Çavuş

SUBMITTED BY :

Naziyet Başkut(20011494)

LEFKOŞA 2004

(2)

i

I

i

CONTENTS PAGE I.ACKNOWLEDGEMENTS I II. ABSTRACT 2 ID. IN'TRODUCTION 3

IV. EXPLANATION OF THE SYSTEM 4

-Data Flow Diagram 4

-System Block Diagram 10

-Database Design 11

V. USERMANUAL 16

VI.LIST OF SUB PROGRAMS ••••...••••...•..•.•..•...17

-Program Flow Chart 17

-SourcProgram 32

-Screen Output...•....94

(3)

i

I

i

I

i

I. ACKNOWLEDGEMENTS

I want to thank Dr. Yalçın Akçalı , Miss Nadire Çavuş,Mr.Mustafa

Menekay,Mr.İlham Hüseyinov,and my friend Vedat. Who are my teachers,

and they

helped my during making this projects.

I also would like to thank the people who create internet source

of "delphiogrenıyorum.com".This site helped my project.

(4)

l

I

II. ABSTRACT

This project is for recording the sale and inventory of glasses.This

project requires alot of inputs througth a user who passes these inputs througth

process to ultimatly retrieve or get an output according to his/her wish. The

inputs are as follows: product code , product name , product size , product piece

, buying place , buying price , selling price , buying date , customer name ,

customer list . These inputs are passed througth various process.These process

are follows: Record'ng to entered customer in to the database, the reduction of

the sold glasses from the inventory , the recording of the customer to whom the

product has been sold( The process of entering the name and other information

of the customer) . The procedure and process regarding wheter the customers

purchase has been cash or by installments In the accounting procedurs and

process , on the other hand , the revenues and expenses of the company are

calculated fallowing the cost calculation . Inthe reporting phase , though we can

see the main inventory report , cash sale report and installment report.

(5)

I

III.

INTRODUCTION

As I am introducing this project for glasses inventory system , I would like to explain the neccecary procedures followed in the programme.

First we entered the product purchase for , then following the entry of the user input , the recording procedures of the purchase product in to the database is completed .

Depending upon the request of the user , the searching of the record product deleteing the existing record of any product can also be done . We ca complete these procedures thougth entering the product code variable . Then , we enter the

sale form . Here , there exist two kinds of form being the cash and installment sale form . If the sale is in cash , then , we load on teh information related to the product and customer in to the database . If the sale is by installment , We load on the information of the product customers detail , again , but besides we also load on the information regarding the number of installment and amount of the installment. If I wish I can enter the list of the cash sale customer. If the sale is by installments , then I enter the counting number of the installment in to another received payment form .

In the accounting procedures , on the other hand , I enter the cost percentage with which the purchaseing cost of the glasses is replace by that percentage . From here on , the expences and revenues are calculated and the payroll of teh company is duly set up . Through the reports procedure though , I can see in the main inventory report , the code number and the name of glasses currently existing in the inventory . We can see the names of customer , their installments amounts , in a report form , througth the installment sale report .

In the cash sale report , on the other hand , we can see the list serial number , name of the product , name of the customer , the amount of the product sold, its total price and date.

(6)

I

Oil

t:

=

o •••• C.

= ~

_~~

ı..

~ ~ c.ı "O

....

_o

ı..

_o ••• ~

=

rl.l

....

₌

..c c.ı

~,

I

I~

....

ı..

~

=

o

-

rl.l

a,

·s

-

₌

~

=

•...

=

=--~ I

I

~ ~

ı·

~

==

o

~ ~ =--rJ:J =--:;;ı _:;;ı

u

rJ:J

(7)

I

~ ~

I

E-ı00 ~ 00

I

~·

u

o

E-ı 00

I

u

....

E-ı ~

o

I

~ ~

I

ı:ıı::

o

~ Q

I

~ Q ~

I

~

:s

~

o

I

E-ı

I

1/~

a)

----a-

₍₎

;,(-_ '6

a

>-J

0:1

~

ı:ıı:: ~ d-:, \ o

"'-r

~

Sj

E:i ~ ... ~ :..ı;

o

• ..;ı ~

l

E-ı ~~~J

oA

\ıl. --'ol...\X\\.~ N..,;ı 00 _r-l ;;;;;ı 00.

,s

u

~

'eti

r-:>

~ ılı

~ı~jl

5'

(8)

i

I

i

\

I

i

I

i

I

i

I

c-

C·

(9)

-I

I

I ,

I

(10)

i

I

i

I

i

(11)

I

i

I

i

(12)

I

- U'.l ~ ~ ~ (/) ~ ~ ~

_o

I

8

~

I

ıı.. ~ E-< ~ (/) (/) (/) ~ ~ ::ı:: (/) E-<

I

~ -c (/)

I

~ o

z

I

_I (/) (/) ~ o ~ ı:ı..

o

z

~ ~ o

I

~

i

o ~ E-< (/)

o

E-<

I

~ ••

I

~ ~ (/) (/) Ç,!) ~

i

o

<

~ ~ ~ c, (/)

I

~ ~(/)

I

u

(/) <ı::

o

c5

~ ~ E-<

=

[:,

~ (/) ~ E-< _~

I

~ (/)

C,

-i

~ ~ ~ ~

C,

~ :j ~ ~ 00 ~ _~

I

~ (/) ~ ~ u 00 (/) (/)

-

I

(/) (/) ~ u

o

i

I

8:

(/) E-< - ~_(/)

ö

E-< (/)

!

~ (/)

i

-c ~

-I

c5

~ ~

[:,

i

~

i

~

::s

::ı::

I

(/) u ~ ~ ~ ~ o ~ -~ (/)

i

I

i

1.0

(13)

i

I

i

DATABASE DESING

FRAME STOCK .DB

il.

(14)

I

i

I

i

I

i

ACCOUNTING.DB

(15)

i

CASH SELLING.DB

i

~

I

i

~

I

i

.,

I

i

I

i

i~

(16)

i

GLASSES STOCK.DB

i

I

i

I

i

14

(17)

I

i

I

i

INSTALLMENT .DB

ı..s

(18)

i

I

i

I

i

I

• I

i

V.USER MANUAL

How to install this program:

1. Put the CD into the CD-ROM. The click the my computer icon. 2. Click CD-ROM icon to open CD.Than click the project icon. 3. Now click the set up icon

4. This set up page, click this icon to start installation.

5. The set up will guide you to install program successfully. But you may see the some messags title this.Click OK to update some system files.

6. They you will see message again ask you restart your computer .Click OK again.If everything okey the set up will start run the program.

NOTE: Delphi 6.0 must be install in your computer.

If you click project icon ,you can see the maın menu :figure 1

If you add the product in database , you click add entry form : figure2 Search the product in database ,you click search /list button:figure 3 Delete and edit product in database, you click delete/edit button:figure4

If you control the product minimum stock level, you click stck control button:figure 5 If You want to quite menu, you click quite menu button : figure 6

If you want to selling product cash or ınstallment ,click selling form:figure 7 The product is selling cash click cash selling button:figure 8

The product is selling ınstallment click installment selling button:figure 9 If you want to se cash selling all list ,click cash selling all list button: figure 10

If you want to see list by customer ,click list by customer b button: figure 11 If you want to see list by date ,click list by date button: figure 12

If you want to quıt menu ,click quit menu button:figure13

If you want to see installment selling all list ,click installment selling all list button: figure 14 If you want to see installment list by customer ,click list by customer b button: figure 15 If you want to see list by date ,click list by date button: figure 16

If you want to quıt menu ,click quit menu button:figure17

If you want to calculate percentage of cost price ,click cost limit button:figure 18 If you want to see expense and revenue of this company figure 19

If you want to quit menu, click quit menu button:figure20

If you collect installment payment of customer ,click coming installment button figure 21 If you want to see all report in program,you click report button figure22

If you want to see main stock report ,clickmain stock report button figure 23 If you want to see cash selling report ,click cash selling report button figure 24

If you want to see installment selling report ,click installment selling report button figure25

(19)

VI.LIST OF SUBPROGRAM USER FLOWCHART

I

i

START

I .Purchase of glasses process 2.Selling of glasses process

3.Accounting Process 4 .Report Process 5.Close Program CHO

i

I

i

I

i

I

<r=>

8 i

/ tf'

"-I

~/

STOP

I

₀

I

17 ~

I

(20)

I

i

1. I.ENTRY FORM

1 .2. SEARCH/LIST RECORDS

1.3.DELETE/EDIT RECORDS

1 .4QUIT MAIN MENU

i

cho

I

i

I

i

I

i

~o-1~

0 I

I

i

₁₈

i

(21)

i

I

_I product code product name product piece Size

I

Buying priceSelling price

buying date =r.i:ı 1 notes

i

I

N .ı,

I

I N

I

i

I

i

₁₉

I

i

I

SAVE ~ RECORD

(22)

i

I

i

I

i

I

i

product code product name 'I Search/list record 20

(23)

I

_I

product code

I

<ffclick_delete/edit

>~

_'-/ Delete /edit_records

button

I

-o

I

....I ,

I

i

I

i

I

i

₂₁

I

(24)

i

I

i

I

i

2.1.SELLING FORM 2.2.SELLING LIST 2.3.COMING INSTALUvlENT cho 22

(25)

2,2.1.9ASH SELLING TABLE 2-.2-.-2:'INST ALLMENT SELLING TABLE

l

'\.

I

/ cho

I

-

~n"= .I .I I .I'==

I

i

I

i

I

23

i

I

(26)

I

i

I

i

I

listno product code product name Piece of selling Selling price Total price Selling charger buying price Do sailing 24

(27)

I

Glasses codeSelling price

Customer name Glasses name Selling price Total price Selling date Cash payment c~n;-~

~ı..~-~~-i

I

Selling the product

I

i

I

<

If click_{turn to}

)--O

₁

main

I

25

I

(28)

I

2.2.1 '{ _list cash selling Enter name List customer If click list by date button Enter date List by date C) /'

(29)

I

i

I

i

List installment selling Enter name List customer Enter date List by date .!l"J.

(30)

I

2.3 Enter customer no or customer name Find record e

-~·

CJ o

(31)

Enter list or piece of payment 'f Save the install 29

(32)

3.1 cost 3.2table

Enter cost pnce

Calculatecost: price: cost2 *Ttlbuying

Show the

J

/ C'hnİC'P=1 ') ~ "I tııhlf'

I

_,,.

I

30

I

(33)

4

4. 1 .MAIN STOCK REPORT 4.2.CASH SALING REPORT

4.3.INSTALLMENT RECEIVE

REPORT

CHO

S8J?

31

Show the marn stock reporty Cash selling print preview report Installment selling print previw report

(34)

SOURCE PROGRAM

unit Unitl; interface uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, Buttons;

type TForml = class(TForm) GroupBoxl: TGroupBox; StaticText 1: TStaticText; StaticText2: TStaticText; BitBtnl: TBitBtn; BitBtn4: TBitBtn; BitBtnS: TBitBtn; BitBtn6: TBitBtn; BitBtn7: TBitBtn; BitBtn8: TBitBtn; BitBtn9: TBitBtn; BitBtnlO: TBitBtn; BitBtnl l: TBitBtn; BitBtn12: TBitBtn; Panel3: TPanel; BitBtn13: TBitBtn; BitBtn14: TBitBtn; BitBtnlS: TBitBtn; BitBtn16: TBitBtn; BitBtnl 7: TBitBtn; BitBtn18: TBitBtn; Panel4: TPanel;

procedure BitBtnl lClick(Sender: TObject); procedure BitBtn18Click(Sender: TObject); procedure BitBtnl 4Click(Sender: TObject); procedure BitBtnl 7Click(Sender: TObject); procedure BitBtn7Click(Sender: TObject); procedure BitBtn8Click(Sender: TObject); procedure BitBtn9Click(Sender: TObject); procedure BitBtn12Click(Sender: TObject); procedure BitBtnlOClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var Forml: TForml;

(35)

I

I,

l

implementation

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

procedure TForml.BitBtnl lClick(Sender: TObject); begin

HALT; end;

procedure TForm1.BitBtn18Click(Sender: TObject); begin

Form2.Show;

Form.I.Visible:= False; end;

procedure TForml.BitBtn14Click(Sender: TObject); begin

Form2.Show;

Forml.Visible := False; end;

procedure TForml .BitBtnl 7Click(Sender: TObject); begin

Form2.Show;

Form5.Show;

Forml.Visible := False; end;

Form.8.Show;

Form.I.Visible := False; end;

procedure TForml .BitBtn9Click(Sender: TObject); begin

Form.9.Show;

(36)

FormlO.Show;

Form I .Visible :=False; end;

procedure TF orm 1.BitBtn 1 OClick(Sender: TObject ); begin

Form14.Show;

Forml.Visible :=False; end;

(37)

unit Unit2; interface uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, DBClient, ExtCtrls, DBCtrls, Grids, DBGrids,

Buttons, ComCtrls, DBTables, Mask; type TForm2 = class(TForm) PageControl1: TPageControl; TabSheetl: TTabSheet; TabSheet2: TTabSheet; TabSheet3: TTabSheet; Edit 1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; EditS: TEdit; Edit7: TEdit; Edit8: TEdit; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: Tl.abel; Labels: TLabel; Label6: TLabel; Label?: TLabel; Label8: TLabel; BitBtnl: TBitBtn; BitBtn2: TBitBtn; DBGrid1: TDBGrid; DataSource 1 : TDataSource; GroupBox 1: TGroupBox; Label9: TLabel; Edit9: TEdit; BitBtn3: TBitBtn; TabSheet4: TTabSheet; BitBtn4: TBitBtn; BitBtnS: TBitBtn; BitBtn6: TBitBtn; BitBtn7: TBitBtn; BitBtn8: TBitBtn; BitBtn9: TBitBtn; BitBtnlO: TBitBtn; BitBtnl 1: TBitBtn; BitBtn12: TBitBtn; BitBtn 13: TBitBtn; BitBtn14: TBitBtn;

35

(38)

I

'

i

I

begin

If (TableI PRODUCT_CODE.Text = Editl. Text) Then begin

Aranan:= True;

ShowMessage('BY SEARCHING ON TABLE IT SHOWED FROM, '+TablelPRODUCT CODE.Text+' THIS PRODUCT CODE AND '+TablelPRODUCT NAME.Text+' NAMED PRODUCT

'+TablelPRODUCTPEACE.Text+' PEACE IS FOUNDED!'); end;

Tablel.Next; end;

If (Aranan= False) Then begin

ShowMessage('THE PRODUCT IS NOT FOUNDED!'); end;

end;

procedure TForm2.BitBtn23Click(Sender: TObject); begin Editl.Text := "; Edit5.Text := "; Edit2.Text := "; Edit7.Text := "; Edit3.Text := "; Edit7.Text := "; Edit4.Text := "; Edit8.Text := "; Editl7.Text:= "; Edit18.Text:= "; end;

FormIO.Show;

Form2.Visible := False; end;

Forml 1.QuickRepl.Preview; end;

end.

(39)

Tablel .Edit;

TablelPRODUCT CODE.Text := Edit13.Text; TablelPRODUCT_NAME.Text := Edit12.Text; TablelPRODUCTSIZE.Text := Edit IO.Text; TablelBUYINGPLACE.Text := Edit14.Text; TablelSPECIALNOTES.Text := Edit20.Text; TablelLISTNO.Value := Strtolnt(Edit19.Text);

TablelPRODUCTPEACE.Value := Strtolnt(Editl 1.Text); TablelBUYINGPRICE.Value := Strtolnt(Edit15.Text); TablelCELLINGPRICE.Value := Strtolnt(Edit16.Text); TablelCONTROLUNIT.Value := Strtolnt(Edit17.Text); TablelBUYINGDATE.Value := DateTimePickerl.Date; Tablel .UpdateRecord; Tablel .Refresh; Editl9.Text := "; Edit15.Text := "; Edit12.Text := "; Edit16.Text := "; Edit13.Text := "; Editll.Text := "; Edit14.Text := "; EditlO.Text := "; Editl 7.Text := "; Edit18.Text := ";

ShowMessage('RERECORD PROCESS IS COMPLETED!');

end;

Tablel .Next; end;

end; end;

Formô.Show;

procedure TForm2.Edit21Change(Sender: TObject); begin

if (Edit21. Text=") then begin exit;end

else

Form2. Table 1.Locate('PRODUCT _NAME',Edit21. Text,[Locaseinsensitive,Lopartialkey ]); end;

procedure TForm2.BitBtn1Click(Sender: TObject); Var

Aranan : Boolean; begin

Aranan:= False; Table I .First;

While not Tablel.EofDo

(40)

31-begin

Aranan:= False;

IfMessageDlg('ARE YOU SURE THAT YOU WANT TO DELETE THE RECORD FROM

THE TABLE!..',

mtconfırmation, [mbYES, mbNO], O)= mrYES Then begin

Table I .First;

While not Tablel .EofDo begin

If(Edit9.Text = TableIPRODUCT_CODE.Text) Then begin Aranan:= True; Tablel .Delete; Tablel.Refresh; Edit19.Text := "; Editl5.Text := "; Editl2.Text := "; Edit16.Text := "; Editl3.Text := "; Editl I.Text:="; EditI4.Text := "; EditlO.Text := "; EditI 7.Text := "; EditI8.Text := ";

ShowMessage('THE RECORD IS DELETED!'); end;

Tablel.Next; end;

end;

If (Aranan= False ) Then begin

end;

procedure TForm2.BitBtnI9Click(Sender: TObject); Var

Aranan: Boolean; begin

Aranan:= False;

IfMessageDlg('ARE YOU SURE THAT YOU WANT TO CHANGE THE RECORD

FROM THE TABLE!..',

mtconfirmation, [mbYES, mbNO], O)= mrYES Then begin

Table I.First;

While not Tablel.EofDo begin

If(Edit9.Text = TablelPRODUCT_CODE.Text) Then begin

(41)

begin

if (Edit6. Text=") then begin exit;end

else

Form2.Tablel.Locate('PRODUCT_CODE',Edit6.Text,[Locaseinsensitive,Lopartialkey]); end;

Aranan : Boolean; begin

Aranan:= False; Table I .First;

If(Edit9.Text = TablelPRODUCT_CODE.Text) Then begin Aranan := True; Editl3.Text := TablelPRODUCT_CODE.Text; Edit12.Text := TablelPRODUCT_NAME.Text; EditlO.Text := TablelPRODUCTSIZE.Text; Edit14.Text := TablelBUYINGPLACE.Text; Edit20.Text := TablelSPECIALNOTES.Text; Edit19.Text := InttoStr(TablelLISTNO.Value);

Edit! I.Text := InttoStr(TablelPRODUCTPEACE.Value); Edit15.Text := InttoStr(TablelBUYINGPRICE.Value); Edit16.Text := InttoStr(TablelCELLINGPRICE.Value); Editl 7.Text := InttoStr(Tablel CONTROLUNIT.Value); Editl.Text := InttoStr(TablelLISTNO.Value);

DateTimePickerl.Date := TablelBUYINGDATE.Value; ShowMessage('THE PRODUCT IS FOUNDED!'); end;

Table I.Next; end;

end;

(42)

While not Tablel .EofDo begin

If(Editl.Text = TablelPRODUCT_CODE.Text) Then begin

AyniKod := True;

ShowMessage('SAME PRODUCT CODE IS ENTERED, PLEASE CHANGE IT!');

end;

Tablel.Next; end;

If (AyniKod =False) Then begin

Table l.Refresh; Table! .First;

While not Tablel.EofDo begin Table l.Next; end; If (Tablel.Eot) Then begin ListNo := (TablelLISTNO.Value + 1); end; Tablel.Apperıd; TablelLISTNO.Value := ListNo;

TablelPRODUCT_CODE.Text := Edit l.Text; TablelPRODUCT_NAME.Text :=Edit2.Text; TablelPRODUCTSIZE.Text :=Edit-l.Text; TablelBUYINGPLACE.Text := Edit5.Text; TablelSPECIALNOTES.Text :=Edit18.Text; TablelPRODUCTPEACE.Value := Strtoint(Edit3.Text); TablelBUYINGPRICE.Value := Strtolnt(Edit7.Text); TablelCELLINGPRICE.Value :=Strtolnt(Edit8.Text); TablelCONTROLUNIT.Value :=Strtolnt(Edit17.Text); TablelBUYINGDATE.Value :=DateTimePickerl.Date; Tablel .Post; Editl.Text := "; Edit5.Text := "; Edit2.Text := "; Edit7.Text := "; Edit3.Text := "; Edit7.Text := "; Edit4.Text := "; Edit8.Text := "; Edit17.Text:= "; Edit18.Text:= ";

ShowMessage('RECORD PROCESS IS COMPLETED!');

end;

(43)

TablelPRODUCT _CODE: TStringField; TablelPRODUCT _NAME: TStringField; Table lPRODUCTPEACE: TlntegerField; Table lPRODUCTSIZE: TStringField; Table 1 CONTROL UNIT: TlntegerField; TablelBUYINGPRICE: TlntegerField; Table lBUYINGPLACE: TStringField; Table 1 CELLINGPRICE: TlntegerField; TablelBUYINGDATE: TDateField; TablelSPECIALNOTES: TStringField; procedure BitBtn8Click(Sender: TObject); procedure BitBtn22Click(Sender: TObject); procedure Edit6Change(Sender: TObject); procedure BitBtn3Click(Sender: TObject); procedure BitBtn20Click(Sender: TObject); procedure BitBtn19Click(Sender: TObject); procedure BitBtn13Click(Sender: TObject); procedure Edit21 Change(Sender: TObject ); procedure BitBtnlClick(Sender: TObject); procedure BitBtn23Click(Sender: TObject); procedure BitBtn18Click(Sender: TObject); procedure BitBtn24Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form2: TForm2; implementation

uses Unitl, Unit5, UnitlO, Unitl 1, Unit12; {$R *.dfm}

Forml.Show;

AyniKod: Boolean; ListNo: Integer; begin

AyniKod := False; ListNo := O; Table I .First;

(44)

BitBtn15: TBitBtn; BitBtnl 6: TBitBtn; BitBtnl 7: TBitBtn; BitBtn18: TBitBtn; Editl O: TEdit; Edit I I : TEdit; Edit12: TEdit; Edit 13: TEdit; LabellO: TLabel; Label I 1: TLabel; Label12: TLabel; Label13: TLabel; Labell4: TLabel; Label I 5: TLabel; Label16: TLabel; Labell 7: TLabel; Edit 14: TEdit; Edit 15: TEdit; Edit 16: TEdit; DateTimePicker 1: TDateTimePicker; DateTimePicker2: TDateTimePicker; BitBtn19: TBitBtn; BitBtn20: TBitBtn; GroupBox2: TGroupBox; Label 18: TLabel; Label20: TLabel; Editl 7: TEdit; Label19: TLabel; BitBtn22: TBitBtn; BitBtn23: TBitBtn; BitBtn24: TBitBtn; GroupBox3: TGroupBox; GroupBox4: TGroupBox; GroupBox5: TGroupBox; GroupBox6: TGroupBox; GroupBox7: TGroupBox; Label2 I: TLabel; Edit 18: TEdit; GroupBox8: TGroupBox; GroupBox9: TGroupBox; Edit6: TEdit; Edit19: TEdit; Label22: TLabel; Label23: TLabel; Edit20: TEdit; DBNavigatorl: TDBNavigator; Label24: TLabel; Edit21: TEdit; Tablel: TTable; TablelLISTNO: TlntegerField;

(45)

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, ComCtrls, ExtCtrls, DB, DBTables;

type TForm3 = class(TForm) BitBtnl: TBitBtn; Label1: TLabel; Edit 1: TEdit; Label2: TLabel; Edit2: TEdit; Labels: TLabel; EditS: TEdit; Label8: TLabel; GroupBoxl: TGroupBox; Panel1: TPanel; Label6: TLabel; Edit6: TEdit; Label7: TLabel; Edit?: TEdit; BitBtn2: TBitBtn; DateTimePicker 1: TDateTimePicker; BitBtn3: TBitBtn; BitBtn4: TBitBtn; Label3: TLabel; Edit3: TEdit; Label4: TLabel; Edit4: TEdit; BitBtnS: TBitBtn; BitBtn6: TBitBtn; Label9: TLabel; Edit8: TEdit; Table2: TTable; Table2LISTNO: TlntegerField; Table2CUSTOMERNAME: TStringField; Table2PRODUCTCODE: TStringField; Table2PRODUCTNAME: TStringField; Table2PIECEOFSALING: TlntegerField; Table2SALINGPRICE: TlntegerField; Table2TOTALPRICE: TlntegerField; Table2COMPANYNAME: TStringField; Table2SALINGCHARGER: TStringField; Table2SALINGDATE: TDateField; Tablel: TTable; TablelLISTNO: TlntegerField;

(46)

begin Form6.Show; Form3.Visible := False; end; end.

44

(47)

l

I

TableI .First;

If(Edit6.Text = TableIPRODUCT_CODE.Text) Then begin Edit3.Text := TableIPRODUCT_NAME.Text; Edit5.Text := InttoStr(TablelCELLINGPRICE.Value); end; TableI.Next; end; end;

TableI .First;

If (TableIPRODUCT_NAME.Text = Edit3.Text) Then begin Edit6.Text := TablelPRODUCT_CODE.Text; Edit5.Text := InttoStr(TablelCELLINGPRICE.Value); end; TableI .Next; end; end;

procedure TForm3.Edit7Change(Sender: TObject); Var

Price : Integer; begin

If (Edit7.Text <>")Then begin

Price:= ((Strtolnt(Edit7.Text))

*

(Strtolnt(Edit5.Text))); Edit4.Text := InttoStr(Price);

end; end;

FormI.Show;

(48)

While not Tablet .EofDo begin

If (Edit6.Text = TablelPRODUCT_CODE.Text) Then begin Table l.Refresh; Tablet .Edit; TablelPRODUCTPEACE.Value := ((TablelPRODUCTPEACE.Value) -(Strtolnt(Edit7. Text))); Tablet .UpdateRecord; Tablet .Refresh; end; Tablel.Next; end; Tablet .Refresh; Table 1.First;

While not Tablet .EofDo begin Table l.Next; end; If (Tablel.Eof) Then begin ListNo :=(TablelLISTNO.Value + 1); end; Table2.Append; Table2LISTNO.Value :=ListNo;

Table2PRODUCTCODE. Text :=Edit6. Text; Table2PRODUCTNAME. Text := Edit3 .Text; Table2CUSTOMERNAME. Text :=Edit2. Text; Table2PIECEOFSALING.Text := Edit7.Text; Table2COMPANYNAME.Value :=Edit l.Text; Table2SALINGCHARGER. Text := Edit8. Text; Table2SALINGPRICE.Value := Strtolnt(Edit5.Text); Table2TOTALPRICE.Value := Strtolnt(Edit4.Text); Table2SALINGDATE.Value := DateTimePickerl.Date; Table2.Post; Table l.Refresh; Editl.Text := "; Edit5.Text := "; Edit2.Text := "; Edit6. Text := "; Edit3.Text := "; Edit8.Text := ";

Edit4.Text := "; Edit8.Text := ";

ShowMessage('PRODUCT CASH CELLING PROCESS IS COMPLETED!');

end;

(49)

TablelPRODUCT _NAME: TStringField; TablelPRODUCTPEACE: TintegerField; Table lPRODUCTSIZE: TStringField; Table 1 CONTROL UNIT: TintegerField; TablelBUYINGPRICE: TintegerField; TablelBUYINGPLACE: TStringField; Table 1 CELLINGPRICE: TintegerField; TablelBUYINGDATE: TDateField; Tablel SPECIALNOTES: TStringField; Table2BUYINGPRICE: TintegerField; procedure BitBtnlClick(Sender: TObject); procedure BitBtn2Click(Sender: TObject); procedure Edit6Change(Sender: TObject); procedure Edit3Change(Sender: TObject); procedure Edit7Change(Sender: TObject); procedure BitBtn4Click(Sender: TObject); procedure BitBtn6Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var F orm3: TForm3; implementation uses Unitl, Unit6;

{$R *.dfm}

Forml.Show;

Aranan : Boolean; ListNo : Integer; begin

Aranan:= False;

If MessageDlg('ARE YOU SURE THAT YOU WANT TO DO TIIlS CELLING

PROCESS!..',

mtconfırmation, [mbYES, mbNO], O)= mrYES Then begin

(50)

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, DBTables, ComCtrls, ExtCtrls, StdCtrls, Buttons;

type TForm4 = class(TForm) Label 1: TLabel; Label2: TLabel; Label5: TLabel; Label8: TLabel; Label6: TLabel; Label7: TLabel; Label3: TLabel; Label4: TLabel; BitBtnl: TBitBtn; Edit 1: TEdit; Edit2: TEdit; Edit5: TEdit;

Group Box 1: TGroupBox; Panell: TPanel; Edit6: TEdit; Edit7: TEdit; BitBtn2: TBitBtn; DateTimePicker 1: TDateTimePicker; BitBtn3: TBitBtn; BitBtn4: TBitBtn; Edit3: TEdit; Edit4: TEdit; Label9: TLabel; Edit8: TEdit; Edit9: TEdit; Label 1 O: TLabel; BitBtn5: TBitBtn; BitBtn6: TBitBtn; Label1 1: TLabel; Edit 1O: TEdit; Label12: TLabel; Edit 1 1 : TEdit; Table1: TTable; TablelLISTNO: TlntegerField;

TableI PRODUCT_CODE: TStringField; TableI PRODUCT_NAME: TStringField; TablelPRODUCTPEACE: TlntegerField; TablelPRODUCTSIZE: TStringField; Table1 CONTROLUNIT: TlntegerField; TablelBUYINGPRICE: TlntegerField;

(51)

procedure TF orm4 .Edit8Change(Sender: TObject ); Var Rest : Integer; begin If (Edit8.Text <>")Then begin

Rest:= ((Strtolnt(Edit4.Text)) - (Strtolnt(Edit8.Text))); Edit9. Text : = InttoStr(Rest );

end; end;

Form7.Show;

(52)

Table2.Refresh; Table2.First;

While not Table2.Eof Do begin

Table2.Next; end;

If (Table2.Eof) Then begin

ListNo :=(Table2LISTNUMBER. Value + 1 ); end;

Table2.Append;

Table2LISTNUMBER.Value := ListNo;

Table2BUYINGPRICE.Value := BPrice;

Table2COMPANYNAME.Text := Editl.Text;

Table2CUSTOMERNAME. Text :=Edit2. Text; Table2PRODUCTNAME. Text := Edit3. Text; Table2PRODUCTCODE. Text :=Edit6. Text; Table2SAILINGCHARGER.Text := Edit IO.Text; Table2CUSTOMERCODE.Text :=Editl 1.Text; Table2CASHPAYMENT.Value := Strtolnt(Edit8.Text); Table2TOTALPAYMENT.Value := Strtolnt(Edit8.Text); Table2TOTALPRICE.Value := Strtolnt(Edit4.Text); Table2SAILINGPRICE.Value :=Strtolnt(Edit5.Text); Table2PIECEOFSAILING.Value := Strtolnt(Edit7.Text); Table2REMAININGPAYMENT.Value :=Strtolnt(Edit9.Text); Table2SAILINGDA TE. Value :=DateTimePicker I .Date; Table2Result. Text :='OPEN';

Table2.Post; Table2.Refresh; Editl.Text := "; Edit6.Text := "; Edit2.Text := "; Edit7.Text := "; Edit3.Text := "; Edit8.Text := "; Edit4.Text := "; Edit9.Text := ";

Edit5.Text := "; EditlO.Text := "; Editl 1.Text := ";

ShowMessage('PRODUCT INSTALLMENT SAILING PROCESS IS COMPLETED!');

end; end; end;

Forml.Show;

Form4.Visible :=False; end;

(53)

I

Edit6.Text := TablelPRODUCT_CODE.Text;Edit5.Text := InttoStr(TablelCELLINGPRICE.Value); end; TableI.Next; end;

I

i

end;

ListNo, BPrice : Integer; Aranan, AyniKod : Boolean; begin

Aranan := False; AyniKod := False; ListNo := O;

If MessageDlg('ARE YOU SURE THAT YOU WANT TO DO THIS CELLING PROCESS!..',

mtconfırmation, [mbYES~mbNO],O)= mrYES Then begin

r

Table2.First;

While not Table2.Eof Do begin

If(Editl 1.Text = Table2CUSTOMERCODE.Text) Then begin

AyniKod := True;

ShowMessage('SAME CUSTOMER CODE IS ENTERED, PLEASE CHANGE IT!'); end;

Table2.Next; end;

If (AyniKod= False) Then begin

Tablel.Refresh; TableI .First;

If(Edit6.Text = TablelPRODUCT_CODE.Text) Then begin TableI .Refresh; TableI .Edit; BPrice := TablelBUYINGPRICE.Value; TablelPRODUCTPEACE.Value := ((Table1PRODUCTPEACE.Value)-(Strtolnt(Edit7.Text))); TableI .Post; Tablel.Refresh; end; Tablel.Next; end; Si

(54)

procedure Edit8Change(Sender: TObject); procedure BitBtn6Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form4: TForm4; implementation uses Unitl, Unit7; {$R *.dfm}

procedure TF orm4 .Edit7Change(Sender: TObject ); Var

Price : Integer; begin

If (Edit7.Text <>")Then begin

Price:= ((Strtolnt(Edit7.Text))

*

(Strtolnt(Edit5.Text))); Edit4.Text := InttoStr(Price);

end; end;

TableI .First;

If (TableI PRODUCT_CODE.Text= Edit6.Text) Then begin Edit3.Text := TablelPRODUCT_NAME.Text; Edit5.Text := InttoStr(TablelCELLINGPRICE.Value); end; TableI.Next; end; end;

TableI.First;

If (TablelPRODUCT_NAME.Text = Edit3.Text) Then begin

(55)

I

i

I

[

TablelBUYINGPLACE: TStringField; TablelCELLINGPRICE: TintegerField; TablelBUYINGDATE: TDateField; Table1 SPECIALNOTES: TStringField; Table2: TTable; Table2LISTNUM8ER: TintegerField; Table2CUSTOMERCODE: TStringField; Table2CUSTOMERNAME: TStringField; Table2PRODUCTCODE: TStringField; Table2PRODUCTNAME: TStringField; Table2COMPANYNAME: TStringField; Table2SAILINGCHARGER: TStringField; Table2SAILINGDATE: TDateField; Table2PIECEOFSAILING: TintegerField; Table2SAILINGPRICE: TintegerField; Table2TOTALPRICE: TintegerField; Table2TOTALPAYMENT: TintegerField; Table2REMAININGPAYMENT: TintegerField; Table2CASHPAYMENT: TintegerField; Table2PAYMENT1: TintegerField; Table2DATE1: TDateField; Table2PAYMENT2: TintegerField; Table2DATE2: TDateField; Table2PAYMENT3: TintegerField; Table2DATE3: TDateField; Table2PAYMENT4: TintegerField; Table2DATE4: TDateField; Table2PAYMENT5: TintegerField; Table2DATE5: TDateField; Table2PAYMENT6: TintegerField; Table2DATE6: TDateField; Table2PAYMENT7: TintegerField; Table2DATE7: TDateField; Table2PAYMENT8: TintegerField; Table2DATE8: TDateField; Table2PAYMENT9: TintegerField; Table2DATE9: TDateField; Table2PAYMENT 1O: TintegerField; Table2DATE10: TDateField; Table2PAYMENTl 1: TintegerField; Table2DATE11: TDateField; Table2PAYMENT12: TintegerField; Table2DATE12: TDateField; Table2RESULT: TStringField; Table2BUYINGPRICE: TintegerField; procedure Edit7Change(Sender: TObject); procedure Edit6Change(Sender: TObject); procedure Edit3Change(Sender: TObject); procedure BitBtn2Click(Sender: TObject); procedure BitBtn4Click(Sender: TObject);

(56)

nit Unit5; interface uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, ExtCtrls;

type TForm5 = class(TForm) GroupBoxl: TGroupBox; GroupBox2: TGroupBox; Panel 1: TPanel; Panel2: TPanel; BitBtnl: TBitBtn; BitBtn2: TBitBtn;

procedure BitBtnlClick(Sender: TObject); procedure BitBtn2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var F orm5: TForm5; implementation uses Unit3, Unit4; {$R *.dfm}

procedure TForm5.BitBtnlClick(Sender: TObject); begin

Form3.Show;

Form4.Show;

(57)

I

r

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls, Buttons, DB, DBTables, Grids, DBGrids, ExtCtrls, DBCtrls; type TForm7= class(TForm) PageControl1: TPageControl; TabSheetl: TTabSheet; TabSheet2: TTabSheet; TabSheet3: TTabSheet; TabSheet4: TTabSheet; DataSource 1 : TDataSource; DBGridl: TDBGrid; GroupBoxl: TGroupBox; Label1: TLabel; Edit 1: TEdit; BitBtnl: TBitBtn; BitBtn9: TBitBtn; DBGrid2: TDBGrid; DBGrid3: TDBGrid; GroupBox2: TGroupBox; Label2: TLabel; Label3: TLabel; Label4: TLabel; DateTimePicker 1: TDateTimePicker; DateTimePicker2: TDateTimePicker; BitBtn2: TBitBtn; BitBtn5: TBitBtn; BitBtn3: TBitBtn; BitBtn7: TBitBtn; BitBtn4: TBitBtn; DataSource2: TDataSource; DBNavigator2: TDBNavigator; DBNavigatorl: TDBNavigator; DBNavigator3: TDBNavigator; BitBtn6: TBitBtn; TableI: TTable; Table2: TTable; TableILISTNUMBER: TintegerField; TableI CUSTOMERCODE: TStringField; TablelCUSTOMERNAME: TStringField; TablelPRODUCTCODE: TStringField; TablelPRODUCTNAME: TStringField; TablelCOMPANYNAME: TStringField; Table1 SAILINGCHARGER: TStringField;

(58)

I

i

I

i

Table2PAYMENT12.Value := Table1PAYMENT12.Value; Table2DATE12.Value := Table1DATE12.Value; Table2RESULT.Text := TablelRESULT.Value; Table2REMAININGPAYMENT.Value := TableIREMAININGPAYMENT.Value; Table2.Post; Table2.Refresh; end; Tablel.Next; end;

ShowMessage('THE RECORD IS NOT FOUNDED!'); end;

end;

Form4.Show;

Forml3.QuickRepl.Preview; end;

end.

(59)

Table2.Refresh; Table2.First;

While not (Table2.IsEmpty) Do begin Table2.Delete; Table2.Next; end; Table2.Refresh; TableI .First;

If((StrtoDate(TablelSAILINGDATE.Text) > DateTimePickerl.Date) AND ((StrtoDate(TablelSAILINGDATE.Text)) < DateTimePicker2.Date)) Then

begin Aranan := True; Table2.Append; Table2LISTNUMBER.Value := TablelLISTNUMBER.Value; Table2PRODUCTCODE.Text := TablelPRODUCTCODE.Text; Table2PRODUCTNAME.Text := TablelPRODUCTNAME.Text; Table2CUSTOMERNAME.Text := TableI CUSTOMERNAME.Text; Table2PIECEOFSAILING.Text := TableIPIECEOFSAILING.Text; Table2COMPANYNAME.Value := TablelCOMPANYNAME.Value; Table2SAILINGCHARGER.Value:= Table1 SAILINGCHARGER.Value; Table2SAILINGPRICE.Value : = Table1 SAILINGPRICE.Value;

Table2TOTALPRICE.Value := Table1 TOTALPRICE.Value;

Table2TOTALPAYMENT.Value := TablelTOTALPAYMENT.Value; Table2SAILINGDATE.Value := TablelSAILINGDATE.Value; Table2PAYMENT1.Value := TablelPAYMENTl.Value; Table2DATE1.Value := TablelDATEl.Value; Table2PAYMENT2.Value := Table1PAYMENT2.Value; Table2DATE2.Value := Table1DATE2.Value; Table2PAYMENT3.Value := Table1PAYMENT3.Value; Table2DATE3.Value := Table1DATE3.Value; Table2PAYMENT4.Value := Table1PAYMENT4.Value; Table2DATE4.Value := Table1DATE4.Value; Table2PAYMENT5.Value := Table1PAYMENT5.Value; Table2DATE5.Value := Table1DATE5.Value; Table2PAYMENT6.Value := Table1PAYMENT6.Value; Table2DATE6.Value := Table1DATE6.Value; Table2PAYMENT7.Value := Table1PAYMENT7.Value; Table2DATE7.Value := Table1DATE7.Value; Table2PAYMENT8.Value := Table1PAYMENT8.Value; Table2DATE8.Value := Table1DATE8.Value; Table2PAYMENT9.Value := Table1PAYMENT9.Value; Table2DATE9.Value := Table1DATE9.Value; Table2PAYMENT10.Value := TablelPAYMENTIO.Value; Table2DATE10.Value := TablelDATEIO.Value;

Table2PAYMENT1l.Value := TablelPAYMENTl 1.Value; Table2DATE11.Value := TablelDATEl 1.Value;

(60)

Table2TOTALPRICE.Value := Tablel TOTALPRICE.Value;

Table2TOT ALP AYMENT. Value := Tablel TOT ALP AYMENT. Value; Table2SAILINGDATE.Value := TablelSAILINGDATE.Value; Table2PAYMENT1.Value := TablelPAYMENTl.Value; Table2DATE1.Value := TablelDATEl.Value; Table2PAYMENT2.Value := Table1PAYMENT2.Value; Table2DATE2.Value := Table1DATE2.Value; Table2PAYMENT3.Value := Table1PAYMENT3.Value; Table2DATE3.Value :=Table1DATE3.Value; Table2PAYMENT4.Value := Table1PAYMENT4.Value; Table2DATE4.Value := Table1DATE4.Value; Table2PAYMENT5.Value := Table1PAYMENT5.Value; Table2DATE5.Value := Table1DATE5.Value; Table2PAYMENT6.Value := Table1PAYMENT6.Value; Table2DATE6.Value := Table1DATE6.Value; Table2PAYMENT7.Value := Table1PAYMENT7.Value; Table2DATE7.Value := Table1DATE7.Value; Table2PAYMENT8.Value := Table1PAYMENT8.Value; Table2DATE8.Value := Table1DATE8.Value; Table2PAYMENT9.Value := Table1PAYMENT9.Value; Table2DATE9.Value := Table1DATE9.Value; Table2PAYMENT10.Value := TablelPAYMENTlO.Value; Table2DATE10.Value := TablelDATElO.Value;

Table2PAYMENT1I.Value := TablelPAYMENTl I.Value; Table2DATE1I.Value := TablelDATEl I.Value;

Table2PAYMENT12.Value := Table1PAYMENT12.Value; Table2DATE12.Value := Table1DATE12.Value; Table2RESULT.Text :=TablelRESULT.Value; Table2REMAININGPAYMENT.Value := TablelREMAININGPAYMENT.Value; Table2.Post; Table2.Refresh; end; Tablel .Next; end;

end;

Aranan: Boolean; begin

(61)

Form2.Show;

Form3.Show;

Form4.Show;

Form7. Visible := False; end;

procedure TForm7.BitBtn1Click(Sender: TObject); Var Aranan : Boolean; begin Aranan:= False; Table2.Refresh; Table2.First;

While not (Table2.IsEmpty) Do begin Table2.Delete; Table2.Next; end; Table2.Refresh; Table I .First;

If(TablelCUSTOMERNAME.Text = Editl.Text) Then begin

Aranan:= True; Table2.Append;

Table2LISTNUMBER.Value := TablelLISTNUMBER.Value; Table2PRODUCTCODE.Text := TablelPRODUCTCODE.Text;

Table2PRODUCTNAME. Text := TablelPRODUCTNAME. Text;

Table2CUSTOMERNAME. Text := Table I CUSTOMERNAME. Text; Table2PIECEOFSAILING. Text := Table IPIECEOFSAILING. Text;

Table2COMPANYNAME.Value := TablelCOMPANYNAME.Value;

Table2SAILINGCHARGER. Value:= Table 1 SAILINGCHARGER. Value; Table2SAILINGPRICE. Value := Table 1 SAILINGPRICE. Value;

(62)

Table2P AYMENT3: TintegerField; Table2DATE3: TDateField;

Table2P AYMENT 4: TlntegerField; Table2DATE4: TDateField;

Table2PA YMENT5: TintegerField; Table2DATE5: TDateField;

Table2P AYMENT 1 O: TintegerField; Table2DATE10: TDateField;

Table2P AYMENT 1 1: TlntegerField; Table2DATE1 l: TDateField;

Table2PAYMENT12: TintegerField; Table2DATE12: TDateField;

Table2RESUL T: TStringField;

Table lBUYINGPRICE: TlntegerField; Table2BUYINGPRICE: TlntegerField; BitBtnl O: TBitBtn;

procedure BitBtn4Click(Sender: TObject); procedure BitBtn3Click(Sender: TObject); procedure BitBtn7Click(Sender: TObject); procedure BitBtn8Click(Sender: TObject); procedure BitBtnlClick(Sender: TObject); procedure BitBtn2Click(Sender: TObject); procedure BitBtn6Click(Sender: TObject); procedure BitBtnlOClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form7: TForm7; implementation

uses Unitl, Unit2, Unit3, Unit4, Unit13; {$R *.dfm}

Form I.Show;

(63)

TablelSAILINGDATE: TDateField; TablelPIECEOFSAILING: TlntegerField; Table 1 SAILINGPRICE: TintegerField; Table 1 TOT ALPRICE: TlntegerField; Tablel TOT ALPA YMENT: TlntegerField; TablelREMAININGPA YMENT: TlntegerField; Table 1 CASHP AYMENT: TlntegerField;

TablelPA YMENTl: TlntegerField; TablelDATEl: TDateField;

TablelPA YMENT2: TlntegerField; Table1DATE2: TDateField;

Table1PAYMENT3: TlntegerField; Table1DATE3: TDateField;

Table lP AYMENT5: TlntegerField; Table1DATE5: TDateField;

Table lP AYMENT6: TintegerField; Table1DATE6: TDateField;

Table1PAYMENT7: TintegerField; Table1DATE7: TDateField;

Table lP AYMENT9: TlntegerField; Table1DATE9: TDateField;

Table lP AYMENT 1 O: TlntegerField; TablelDATElO: TDateField;

Table lP AYMENT 11: TlntegerField; TablelDATEl 1: TDateField;

Table lP AYMENT 12: TlntegerField; Table1DATE12: TDateField;

Table lRESUL T: TStringField;

Table2LISTNUMBER: TlntegerField; Table2CUSTOMERCODE: TStringField; Table2CUSTOMERNAME: TStringField; Table2PRODUCTCODE: TStringField; Table2PRODUCTNAME: TStringField; Table2COMP ANYNAME: TStringField; Table2SAILINGCHARGER: TStringField; Table2SAILINGDATE: TDateField; Table2PIECEOFSAILING: TlntegerField; Table2SAILINGPRICE: TlntegerField; Table2TOT ALPRICE: TlntegerField; Table2TOT ALP AYMENT: TlntegerField; Table2REMAININGP AYMENT: TlntegerField; Table2CASHP AYMENT: TlntegerField;

Table2P AYMENTI: TlntegerField; Table2DATE1: TDateField;

Table2P AYMENT2: TlntegerField; Table2DATE2: TDateField;

(64)

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, ExtCtrls;

type TForm8 = class(TForm) GroupBoxl: TGroupBox; GroupBox2: TGroupBox; Panell: TPanel; BitBtnl: TBitBtn; Panel2: TPanel; BitBtn2: TBitBtn;

procedure BitBtn 1 Click(Sender: TObject); procedure BitBtn2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form8: TForm8; implementation uses Unit6, Unit?;

{$R *.dfm}

procedure TForm8.BitBtnlClick(Sender: TObject); begin

Form6.Show;

Form7.Show;

(65)

I

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, Grids, DBGrids, ComCtrls, DB, DBTables; type TForm9 = class(TForm) DataSource I: TDataSource; PageControlI: TPageControl; TabSheetl: TTabSheet; TabSheet2: TTabSheet; TabSheet3: TTabSheet; DBGridI: TDBGrid; BitBtn6: TBitBtn; BitBtn4: TBitBtn; BitBtn3: TBitBtn; BitBtnl: TBitBtn; Edit I : TEdit; Label 1: TLabel; Label2: TLabel; BitBtn2: TBitBtn; BitBtn5: TBitBtn; Label3: TLabel; Table2: TTable; Table3: TTable; Table2LISTNO: TlntegerField; Table2CUSTOMERNAME: TStringField; Table2PRODUCTCODE: TStringField; Table2PRODUCTNAME: TStringField; Table2PIECEOFSALING: TlntegerField; Table2SALINGPRICE: TlntegerField; Table2TOTALPRICE: TlntegerField; Table2COMPANYNAME: TStringField; Table2SALINGCHARGER: TStringField; Table2SALINGDATE: TDateField; Table3LISTNUMBER: TlntegerField; Table3CUSTOMERCODE: TStringField; Table3CUSTOMERNAME: TStringField; Table3PRODUCTCODE: TStringField; Table3PRODUCTNAME: TStringField; Table3COMPANYNAME: TStringField; Table3SAILINGCHARGER: TStringField; Table3SAILINGDATE: TDateField; Table3PIECEOFSAILING: TlntegerField; Table3SAILINGPRICE: TlntegerField; Table3TOTALPRICE: TlntegerField; Table3TOTALPAYMENT: TlntegerField;

(66)

i

I

i

I

i

Table I INST ALLMENTSAILING. Value :=InttoStr(Ttllnstallment); Table I .Post;

end;

(67)

i

I

TtlBuying := (Strtolnt64(Table1BUYINGPRICE.Text)+ TtlBuying); Cost2 := (Strtolnt64(TablelBUYINGPRICE.Text) +

(Trunc(Strtolnt64(Table1BUYINGPRICE.Text) I 100)

*

(Strtolnt(Editl.Text)))); TtlCost := (Cost2 + TtlBuying);

TableI.Edit; TablelCOSTPRICE.Text := InttoStr(Cost2); Table1 .Post; Tablel .Next; end; Tablel .First;

While not (Table1 .Eot) Do begin

If (TablelCASHSAILING.Text <>")Then begin

TtlCash := (Strtolnt64(Table1CASHSAILING.Text)+ TtlCash); TableI.Edit;

TablelPROFITLIMIT. Text := InttoStr(Strtolnt64(Table 1 CASHSAILING.Text) -Strtolnt64(Tablel COSTPRICE.Text));

TtlProfıt := (Strtolnt64(Table1PROFITLIMIT.Value)+ (TtlProfıt)); Table1 .Post; end; lf(TablelINSTALLMENTSAILING.Text <>")Then begin Table1 .Edit; Ttllnstallment := (Strtolnt64(Table1INSTALLMENTSAILING.Text) + Ttllnstallment); TablelPROFITLIMIT.Text :=

InttoStr(Strtolnt64(Table lINST ALLMENTSAILING.Text) -Strtolnt64(Table 1 COSTPRICE.Text));

TtlProfıt := (Strtolnt64(Table1PROFITLIMIT.Text) + (TtlProfıt)); Tablel.Post; end; TableI.Next; end; Table1 .Append; Tablel .Post; Tablel .Append; TableI .Post; Tablel .Append; TablelPRODUCTCODE. Text TablelBUYINGPRICE. Text Tablel COSTPRICE.Text TablelPROFITLIMIT. Text Table1 CASHSAILING.Value := 'TOTALS'; := InttoStr(TtlBuying); := InttoStr(TtlCost); := InttoStr(TtlProfıt); := InttoStr(TtlCash);

6S

(68)

i

I

i

I

i

I

i

I

i

begin

Cost := O; TtlCash := O; Ttllnstallment := O; Profit := O; TtlProfıt := O; TtlBuying := O; TtlCost :=O; ListNo := 1;

TableI .Refresh; TableI .First;

While not (TableI.IsEmpty) Do begin

TableI .Delete; Tablel.Next; end;

Table2.First;

While not Table2.Eof Do begin Tablel.Append; TableILISTNO.Value := ListNo; ListNo := TableILISTNO.Value + I; TablelPRODUCTNAME.Text := Table2PRODUCTNAME.Text; TablelPRODUCTCODE.Text := Table2PRODUCTCODE.Text; TableI CASHSAILING.Text := Table2TOTALPRICE.Text; TableIBUYINGPRICE.Text := Table2BUYINGPRICE.Text; TableISAILINGDATE.Value := Table2SALINGDATE.Value;

TableI SAILINGCHARGER.Value := Table2SALINGCHARGER.Value; TableI .Post;

Table2.Next; end;

TableI .Refresh; Table3.First;

While not Table3.EofDo begin

TableI .Append;

TableILISTNO.Value := ListNo;

ListNo := TableILISTNO.Value + I;

TableIPRODUCTNAME. Text := Table3PRODUCTNAME.Text; TableIPRODUCTCODE.Text := Table3PRODUCTCODE.Text; TableIBUYINGPRICE. Text := Table3BUYINGPRICE.Text; TableIINSTALLMENTSAILING.Text := Table3TOTALPRICE.Text; TableI SAILINGDATE.Value := Table3SAILINGDATE.Value;

TablelSAILINGCHARGER.Value := Table3SAILINGCHARGER.Value; TableI.Post; Table3.Next; end; TableI .Refresh; TableI .First;

66

(69)

I

i

I

Table1 SAILINGCHARGER: TStringField; Tablel SAILINGDATE: TDateField; procedure BitBtn4Click(Sender: TObject); procedure BitBtn3Click(Sender: TObject); procedure BitBtnl Click(Sender: TObject); procedure BitBtn6Click(Sender: TObject); procedure BitBtnSClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form9: TForm9; implementation

uses Unitl, Unit2, Unit3, Unit4; {$R *.dfm}

Form 1. Show;

Form2.Show;

Form3.Show;

Form4.Show;

Cost, TtlCash, Ttllnstallment, Profit, TtlProfıt, ListNo, ListNo2, Cost2, TtlCost, TtlBuying: Int64;

(70)

i

I

i

I

i

I

i

I

Table3REMAININGPAYMENT: TlntegerField; Table3CASHPAYMENT: TlntegerField; Table3PAYMENTl: TlntegerField; Table3DATE1: TDateField; Table3PAYMENT2: TlntegerField; Table3DATE2: TDateField; Table3PAYMENT3: TlntegerField; Table3DATE3: TDateField; Table3PAYMENT4: TlntegerField; Table3DATE4: TDateField; Table3PAYMENTS: TlntegerField; Table3DATE5: TDateField; Table3PAYMENT6: TlntegerField; Table3DATE6: TDateField; Table3PAYMENT7: TlntegerField; Table3DATE7: TDateField; Table3PAYMENT8: TlntegerField; Table3DATE8: TDateField; Table3PAYMENT9: TlntegerField; Table3DATE9: TDateField; Table3PAYMENT 1O: TlntegerField; Table3DATE10: TDateField; Table3PAYMENTl 1: TlntegerField; Table3DATE11: TDateField; Table3PAYMENT 12: TlntegerField; Table3DATE12: TDateField; Table3RESULT: TStringField; Table4: TTable; Table4LISTNO: TlntegerField; Table4PRODUCT_CODE: TStringField; Table4PRODUCT_NAME: TStringField; Table4PRODUCTPEACE: TlntegerField; Table4PR0DUCTS1ZE: TStringField; Table4CONTROLUNIT: TlntegerField; Table4BUY1NGPRICE:TlntegerField; Table4BUY1NGPLACE:TStringField; Table4CELLINGPRICE: TlntegerField; Table4BUY1NGDATE:TDateField; Table4SPECIALNOTES: TStringField; Table2BUY1NGPRICE:TlntegerField; Table3BUY1NGPRICE:TlntegerField; TableI: TTable; TableILISTNO: TlntegerField; TableIPRODUCTNAME: TStringField; TablelPRODUCTCODE: TStringField; TablelBUYINGPRICE: TStringField; TablelCOSTPRICE: TStringField; TableI CASHSAILING: TStringField;

TableI INSTALLMENTSAILING: TStringField; TableIPROFITLIMIT: TStringField;

(71)

I

i

I

i

I

i

I

i

I

i

I

i

nit UnitlO; interface uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, DBTables, DBCtrls, Grids, DBGrids, StdCtrls, Buttons,

ExtCtrls, ComCtrls; type TForml O= class(TForm) Panel 1: TPanel; Editl: TEdit; Edit2: TEdit; Label 1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; BitBtnl: TBitBtn; DataSource 1: TDataSource; DBGridl: TDBGrid; DBNavigatorl: TDBNavigator; BitBtn2: TBitBtn; BitBtn3: TBitBtn; BitBtn4: TBitBtn; GroupBoxl: TGroupBox; Edit3: TEdit; Label5: TLabel; BitBtn5: TBitBtn; BitBtn6: TBitBtn; Label6: TLabel; Label7: TLabel; GroupBox2: TGroupBox; Label8: TLabel; Edit4: TEdit; GroupBox3: TGroupBox; Check:Boxl: TCheck:Box; Check:Box2: TCheck:Box; Check:Box3: TCheck:Box; Check:Box4: TCheck:Box; Check:Box5: TCheck:Box; Check:Box6: TCheck:Box; Check:Box7: TCheck:Box; Check:Box8: TCheck:Box; Check:Box9: TCheck:Box; Check:BoxlO: TCheck:Box; Check:Box 11: TCheck:Box; Check:Box12: TCheck:Box; Label9: TLabel; DateTimePicker 1: TDateTimePicker;

(72)

begin

Table1PAYMENT3.Value := Strtolnt(Edit4.Text);

Table 1DATE3. Text := DatetoStr(DateTimePickerl.Date ); end;

If(CheckBox4.Checked = True) Then begin

TablelPAYMENT4.Value := Strtolnt(Edit4.Text);

Table1DATE4.Text := DatetoStr(DateTimePickerl.Date); end;

TablelPAYMENTS.Value := Strtolnt(Edit4.Text);

TablelDATES.Text := DatetoStr(DateTimePickerl.Date); end;

TablelDATE6.Text := DatetoStr(DateTimePickerl.Date); end;

Table1DATE9.Text := DatetoStr(DateTimePickerl.Date); end;

If (CheckBoxlO.Checked = True) Then begin

TablelPAYMENTIO.Value := Strtolnt(Edit4.Text);

TablelDATEIO.Text := DatetoStr(DateTimePickerl.Date); end;

If(CheckBoxl I.Checked= True) Then begin

TablelPAYMENTl I.Value:= Strtolnt(Edit4.Text);

(73)

I

i

I

i

end;

If (Aranan= False ) Then begin

end;

procedure TForml0.BitBtn5Click(Sender: TObject); Var

ListNo : Boolean; begin

ListNo := False;

IfMessageDlg('ARE YOU SURE THAT YOU WANT TO MAKE PAYMENT EVENT FROM THE TABLE!..',

mtconfırmation, [mbYES, mbNO], O) = mrYES Then begin

Tablel .First;

While not Tablel .Eof Do begin

If (TablelLISTNUMBER.Value = StrTolnt(Edit3.Text)) Then begin ListNo := True; Tablel.Refresh; TableI .Edit; TablelREMAININGPAYMENT.Value := ((TablelREMAININGPAYMENT.Value) -(Strtolnt(Edit4.Text))); If (TablelREMAININGPAYMENT.Value <= O) Then begin TablelRESULT.Text := 'CLOSED' end;

If(CheckBoxl.Checked = True) Then begin

TablelPAYMENTl.Value := Strtolnt(Edit4.Text);

TablelDATEl.Text :=DatetoStr(DateTimePickerl.Date); end;

(74)

l

I

i

I

i

I

i

I

il

I

If (TablelCUSTOMERNAME.Text = Edit2.Text) Then begin

Aranan:= True; Table2.Append;

Table2LISTNUMBER.Value := TablelLISTNUMBER.Value; Table2PRODUCTCODE.Text := TablelPRODUCTCODE. Text; Table2PRODUCTNAME.Text := TablelPRODUCTNAME.Text; Table2CUSTOMERCODE.Text := TableI CUSTOMERCODE.Text; Table2CUSTOMERNAME.Text := TablelCUSTOMERNAME.Text; Table2PIECEOFSAILING.Text := TablelPIECEOFSAILING. Text; Table2COMPANYNAME.Value := TablelCOMPANYNAME.Value; Table2SAILINGCHARGER.Value:= Table1 SAILINGCHARGER.Value; Table2SAILINGPRICE.Value := TableI SAILINGPRICE.Value;

Table2TOTALPRICE.Value := TablelTOTALPRICE.Value; Table2TOTALPAYMENT.Value := TablelTOTALPAYMENT.Value; Table2SAILINGDATE.Value := TablelSAILINGDATE.Value; Table2CASHPAYMENT.Value := TablelCASHPAYMENT.Value; Table2PAYMENT1.Value := TablelPAYMENTl.Value; Table2DATE1.Text := TablelDATEl.Text; Table2PAYMENT2.Value := Table1PAYMENT2.Value; Table2DATE2.Text := TablelDATE2.Text; Table2PAYMENT3.Value := TablelPAYMENT3.Value; Table2DATE3.Text := Table1DATE3.Text; Table2PAYMENT4.Value := Table1PAYMENT4.Value; Table2DATE4.Text := Table1DATE4.Text; Table2PAYMENT5.Value := TablelPAYMENTS.Value; Table2DATE5.Text := TablelDATES.Text; Table2PAYMENT6.Value := Table1PAYMENT6.Value; Table2DATE6.Text := Table1DATE6.Text; Table2PAYMENT7.Value := Table1PAYMENT7.Value; Table2DATE7.Text := Table1DATE7.Text; Table2PAYMENT8.Value := Table1PAYMENT8.Value; Table2DATE8.Text := Table1DATE8.Text; Table2PAYMENT9.Value := TablelPAYMENT9.Value; Table2DATE9.Text := Table1DATE9.Text; Table2PAYMENT10.Value := TablelPAYMENTIO.Value; Table2DATE10.Text := TablelDATEIO.Text;

Table2PAYMENT11.Value := TablelPAYMENTl I.Value; Table2DATE11.Text := TablelDATEl 1.Text;

Table2PAYMENT12.Value := Table1PAYMENT12.Value; Table2DATE12.Text := Table1DATE12.Text;

Table2RESULT.Text := TablelRESULT.Value;

Table2REMAININGPAYMENT.Value := TablelREMAININGP AYMENT.Value; Table2.Post;

Table2.Refresh; end;

TableI .Next; end;

(75)

I

i

I

Table2LISTNUMBER. Value :

=

Table 1 LISTNUMBER. Value; Table2PRODUCTCODE. Text := Table IPRODUCTCODE. Text; Table2PRODUCTNAME. Text := Table IPRODUCTNAME. Text; Table2CUSTOMERCODE. Text := Table 1 CUSTOMERCODE. Text; Table2CUSTOMERNAME. Text := Table I CUSTOMERNAME. Text; Table2PIECEOFSAILING. Text := TablelPIECEOFSAILING. Text;

Table2COMPANYNAME.Value := TablelCOMPANYNAME.Value;

Table2SAILINGCHARGER. Value:= Table 1 SAILINGCHARGER. Value; Table2SAILINGPRICE. Value := Table 1 SAILINGPRICE. Value;

Table2TOTALPRICE.Value := TablelTOTALPRICE.Value;

Table2TOTALPAYMENT.Value := TablelTOTALPAYMENT.Value; Table2SAILINGDATE. Value := Table 1 SAILINGDATE. Value; Table2CASHP AYMENT. Value := Table I CASHP AYMENT. Value; Table2PAYMENTI.Value := TablelPAYMENTI.Value; Table2DATEI.Value := TablelDATEI.Value; Table2PAYMENT2.Value := Table1PAYMENT2.Value; Table2DATE2.Value := Table1DATE2.Value; Table2PAYMENT3.Value := Table1PAYMENT3.Value; Table2DATE3.Value := Table1DATE3.Value; Table2PAYMENT4.Value := Table1PAYMENT4.Value; Table2DATE4.Value := Table1DATE4.Value; Table2PAYMENT5.Value := Table1PAYMENT5.Value; Table2DATE5.Value :=Table1DATE5.Value; Table2PAYMENT6.Value := Table1PAYMENT6.Value; Table2DATE6.Value := Table1DATE6.Value; Table2PAYMENT7.Value := Table1PAYMENT7.Value; Table2DATE7.Value := Table1DATE7.Value; Table2PAYMENT8.Value :=Table1PAYMENT8.Value; Table2DATE8.Value :=Table1DATE8.Value;

Table2P AYMENT9. Value := Table IP AYMENT9. Value; Table2DATE9.Value := Table1DATE9.Value;

Table2PAYMENT10.Value := TablelPAYMENTIO.Value; Table2DATE10.Value :=TablelDATEIO.Value;

Table2PAYMENT1 I.Value :=TablelPAYMENTl 1.Value; Table2DATE11.Value := TablelDATEl 1.Value;

Table2PAYMENT12.Value := Table1PAYMENT12.Value; Table2DATE12.Value := Table1DATE12.Value; Table2RESULT.Text :=TablelRESULT.Value; Table2REMAININGPAYMENT.Value := TablelREMAININGPAYMENT.Value; Table2.Post; Table2.Refresh; end; Tablel.Next; end; end; If (Edit2.Text <>")Then begin Table2.Refresh; Table I .First;

(76)

I

i

I

i

I

i

I

{$R *.dfm}

Forml.Show;

FormlO.Visible := False; end;

GroupBoxl. Visible := True; GroupBox2.Visible := False; BitBtn5.Enabled := False; end;

BitBtn5.Enabled := True; end;

GroupBoxl.Visible := False; GroupBox2.Visible := True; BitBtn5.Enabled := False; end;

procedure TFormlO.BitBtnlClick(Sender: TObject); Var Aranan: Boolean; begin Aranan := False; Table2.Refresh; Table2.First;

While not (Table2.IsEmpty) Do begin

Table2.Delete; Table2.Next; end;

If (Edit 1. Text <> ") Then begin

Table2.Refresh; TableI.First;

If (TablelCUSTOMERCODE.Text = Editl.Text) Then begin

Aranan := True; Table2.Append;

(77)

I

i

I

i

I

TablelSAILINGPRICE: TlntegerField; TableI TOTALPRICE: TlntegerField; Table1 TOTALPAYMENT: TlntegerField; TablelREMAININGP AYMENT: TlntegerField; TableI CASHPAYMENT: TlntegerField;

TableIPAYMENTl: TlntegerField; TablelDATEl: TDateField;

TableIP AYMENT2: TlntegerField; Table1DATE2: TDateField; TableIPAYMENT3: TlntegerField; Table1DATE3: TDateField; Table1PAYMENT4: TlntegerField; TableIDATE4: TDateField; Table1PAYMENT5: TlntegerField; Table1DATE5: TDateField;

TableIP AYMENT6: TlntegerField; TableIDATE6: TDateField; TableIPAYMENT7: TlntegerField; Table1DATE7: TDateField; TableIPAYMENT8: TlntegerField; Table1DATE8: TDateField; TableIPAYMENT9: TlntegerField; TableIDATE9: TDateField; TablelPAYMENTlO: TlntegerField; TableIDATElO: TDateField; TableIPAYMENTl 1: TlntegerField; TablelDATEl 1: TDateField; TableIPAYMENT12: TlntegerField; Table1DATE12: TDateField; TableIRESULT: TStringField;

procedure BitBtn4Click(Sender: TObject); procedure BitBtn2Click(Sender: TObject); procedure Edit3Change(Sender: TObject); procedure BitBtn6Click(Sender: TObject); procedure BitBtnlClick(Sender: TObject); procedure BitBtn5Click(Sender: TObject); procedure BitBtn3Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var ForınIO: TFormlO; implementation uses Unitl, Unit4;