NEAR EAST UNIVERSITY

(1)

::;;--~ fJ6L~\_ '· \

..•

,/.\ ~ "\ '(',\\

(!

..,.ı'()'ô\ )"P\ \\ ),,.O-ı ;.ı ,. '/• . - \\ __, '!',·I ,l. l I j '>\v' . ::, '

NEAR EAST UNIVERSITY

3·

1~

Faculty of Engineering

Computer Engineering

Department

GRADUATION PROJECT

ACCOUNT&STOCKCONTROL

SUPERVISOR

•

• BESIMEERIN

PREPARED BY

Recep KÜRKCÜ ( 940139 )

Lefkoşa - 2001

(2)

ACKNOWLEDGEMENTS

2 INDEX

INTRODUCTION

3

CHAPTER 1

4 1. SETUP

4 1.1 FIRST STEP:

4 1.2 SECOND STEP:

4 1.3 TIDRD STEP:

5 1.4 FOURTH STEP:

5

CHAPTER 2

6 2. SCREENS

6 2.1 PASSWORD CONTROL SCREEN

6 2.1.1 PASSWORD CONTROL SCREEN DELPHİ SOURCE:

7 2.2 MAIN MENU

9 2.2.1 MAIN MENU SCREEN

9 2.2.1.1 MAIN MENU SCREEN SOURCE CODES

10 2.3 CUSTOMER

17 2.3.1 CUSTOMER REGISTRATION

17 2.3.1. 1 CUSTOMER REGISTRATION SCREEN SOURCE CODES

19 2.3.2 CUSTOMER SEARCH SCREEN

25 2.3.2.1 CUSTOMER SEARCH SCREEN SOURCE CODE

27 2.3.3 CUSTOMER REPORT SCREEN

32 2.3.3.1 CUSTOMER REPORT SCREEN SOURCE CODE

32 2.3.4 CUSTOMER CURRENT ACCOUNT SCREEN

33 2.3.4. 1 CUSTOMER CURRENT ACCOUNT SOURCE CODES

34 2.4 STOCK

38 2.4.1 STOCK REGISTRATION SCREEN

38 2.4.1.1 STOCK REGISTRATION SCREEN SOURCE CODES

39 2.4.2 STOCK SEARCH SCREEN

44 2.4.2.1 STOCK SEARCH SOURCE CODES

45 2.4.3 STOCK REPORT SCREEN

49 2.4.3.1 STOCK REPORT SOURCE CODES

49 2.5 GUARAN"TY

50 2.5.1 GUARAN"TYREGISTRATION SCREEN

50 2.5.1.1 GUARANTY REGISTRATION SCREEN SOURCE CODES

51 2.5.2 GUARAN"TYSEARCH SCREEN

54 2.5.2.1 GUARAN"TYSEARCH SCREEN SOURCE CODE.

55 2.5.3 GUARAN"TYREPORT SCREEN

57

(3)

2.6 FIRM 58

2.6.1 FIRM REGISTRATION SCREEN 58

2.6.1. lFIRM REGISTRATION SCREEN SOURCE CODES 59

2.6.2 FIRM SEARCH SCREEN 63

2.6.2.1 FIRM SEARCH SCREEN SOURCE CODE 64

2.6.3 FIRM REPORT SCREEN 67

2.6.3.1 FIRM REPORT SCREEN SOURCE CODES 67

2. 7 CHEQUE 68

2.7.1 TAKE CHEQUE REGISTRATION SCREEN 68 2.7.1.1 TAKE CHEQUE REGISTRATION SCREEN SOURCE CODES 69 2.7.2 GIVE CHEQUE REGISTRATION SCREEN 73 2.7.2.1 GIVE CHEQUE REGISTRATION SCREEN SOURCE CODES 74

2.7.3 CHEQUE SEARCH SCREEN 78

2.7.3.1 CHEQUE SEARCH SCREEN SOURCE CODE 79

2.7.4 CHEQUE REPORT SCREEN 86

2.7.4.1 CHEQUE REPORT SCREEN SOURCE CODES 87

2. 8 VOUCHER 88

2.8.1 TAKE VOUCHER REGISTRATION SCREEN 88 2. 8.1.1 TAKE VOUCHER REGISTRATION SCREEN SOURCE CODES .. 89 2.8.2 GIVE VOUCHER REGISTRATION SCREEN 93 2.8.2.1 GIVE VOUCHER REGISTRATION SCREEN SOURCE CODE 94

2.8.3 VOUCHER SEARCH SCREEN 98

2.8.3.1 VOUCHER SEARCH SCREEN SOURCE CODES 99

2.8.4 VOUCHER REPORT SCREEN 106

2.8.4.1 VOUCHER REPORT SCREEN SOURCE CODES 107

2.9 HELP 108

2.9.1 ABOUT SCREEN 108

2.9.1.1 ABOUT SCREEN SOURCE CODES 108

210 EXIT 109

2.10.1 EXIT SCREEN 109

2.10.1.1 EXIT SCREEN SOURCE CODES 109

CHAPTER 3

110 3. DATABASES

110 3.1 CUSTO'MER.DATABASE

110 3 .2 CURRENT CUSTOMER DATABASE

111 3.3 STOCK DATABASE

112 3.4 GUARANTY DATABASE

113 3.5 FIRM DATABASE

114 3.6 TAKE CHEQUE DATABASE

115 3.7 GIVE CHEQUE DATABASE

116 3.8 TAKE VOUCHER DATABASE

117 3.9 GIVE VOUCHER DATABASE

118

(4)

PRESENT

TO my parants

TO all my teachers

TO all my family

TO all my friends

TO my teacher BESİME ERİN

TO Asst. Prof. Dr ADNAN KHASHMAN

TO NEAR EAST UNIVERSITY

THANK YOU...

(5)

ACKNOWLEDGEMENTS

I would like to acknowledge my parents who support me during my education period

and who have patiently encouraged me to be the best every where.

I would like to thank my teacher BESİME ERİN who assisted me to get a full picture

about my project and she has a very strong reason

of understanding the topic of

database management.

I specially appreciate my friends who helped in preparing outputting,the project. I also

thank VEDAT YTI.,DJRIM who provided a healthy and quite environment during my

preparing the project.

I continue to thank all my department teachers who teached for usefully for

engineering everthing.

During the my training period in this university at faculty of engineering of computer

engineering. I have passed good information about software, hardware and other

important areas. I hope that these information are going to be much more useful and

benefit for me.

(6)

INTRODUCTION

This programme written language of DELPHI. This program is interested in customer

information, stock control, firm information, guaranty information, cheque and voucher

information and customer current account information for a all exhaust companys.

What Is Inside The Project ?

My project is about exhaust services account and stock program. I used different parts

on the menu, forty froms and seventeen paradox database.

• CUSTOMER: This part looking up customer registration, customer search

report and customer current accounts submenu.

• STOCK: This part looking up stock registration, stock search, and stock report

submenu.

• GUARANTY: This part looking up guaranty registration, guaranty search and

guaranty report submenu.

• FIRM: This part looking up firm registration, firm search and firm report

submenu.

• CHEQUE: This looking up take cheque registration, give cheque registration,

cheque search and cheque report submenu.

• VOUCHER: This looking up take voucher registration, give voucher

registration, voucher search and voucher report submenu.

• HELP: This looking up about to program submenu.

• EXIT: This part if you want to quit of the program you will be press here and

halt of the program.

(7)

CHAPTERl

1. SETUP

1.1 First step:

My

project setup information first screen.

1.2 Second step:

Program setup password control screen.

(8)

1.3 Third step:

My

project setup saved screen.

1.4 Fourth step:

(9)

CHAPTER2

2. SCREENS

2.1 PASSWORD CONTROL SCREEN

My program is first screen password control screen is for my program security and for firm information security. Enter the true password in editboxl program automaticly maın menu screen, enter the three times error password program automaticly all screen closed.

. ENTER

PASSWORD

,

1

1 :

l

(10)

2.1.1 PASSWORD CONTROL SCREEN DELPHİ SOURCE:

unit Unit31; interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, Buttons; type TPasswordDlg = class(TForm) GroupBoxl: TGroupBox; Label 1 : Tl.abel; PasswordEdit: TEdit; BitBtnl: TBitBtn; BitBtn2: TBitBtn;

procedure BitBtnl Click(Sender: TObject); procedure BitBtn2Click(Sender: TObject);

procedure PasswordEditKeyPress(Sender: TObject; var Key: Char); private { Private declarations } public { Public declarations } end; var PasswordDlg: TPasswordDlg; Sifre: String; Hak.Byte; implementation uses Unit2; {$R *.DFM}

procedure TPasswordDlg.BitBtn 1 Click( Sender: TObj ect); begin PassWordEdit.Text:="; Sifre:="; Hak:=Hak+ 1; IfHak=3 Then

7

(11)

procedure TPasswordDlg.PasswordEditKeyPress(Sender: TObject; var Key: Char);

begin Sifre:::::Sifre+Key;

If

Sifre='

I'

Then Begin form2. Show; Pass WordDlg.HIDE; end; end; end. Begin

Application.MessageBox('PLEASE CANCELED THE PROGRAM ... ',' KURKCUOGLU EXHAUST',mb _Ok);

Close; End;

Pass W ordEdit. SetF ocus; end;

procedure TPasswordDlg.BitBtn2Click(Sender: TObject); begin

Application.MessageBox('CANCELED THE PROGRAM',' KURKCUOGLU EXHAUST',mb _Ok);

Close; end;

(12)

2.2 MAIN MENU

2,2.1 MAIN MENU SCREEN

Second screen is main menu screen. Main menu all screen is the top available.

(13)

2.2.1.1 MAIN MENU SCREEN SOURCE CODES

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

Menus, jpeg, ExtCtrls;

type

TForm2 = class(TForın)

MainMenu1: TMainMenu;

CUSTOMERI: Tlvlenultem;

REGISTRATION I: TMenultem;

SEARCHl: TMenultem;

REPORTl: TMenultem;

STOCKI: TMenultem;

REGISTRATION2: TMenultem;

SEARCH2: TMenultem;

REPORT2: TMenultem;

GUARANTYl: TMenultem;

GUARANTYREGISTRATIONl: TMenultem;

REPORT3: TMenultem;

FIRMl: TMenultem;

FIRMREGISTRATIONl: TMenultem;

REPORT4: TMenultem;

CHEQUE1: TMenultem;

TAKECHEQUEREGISTRATIONl: TMenultem;

, GIVECHEQUEREGISTRATIONl: TMenultem;

SEARCH3: TMenultem;

REPORTS: TMenultem;

VOUCHERI: TMenultem;

TAKEVOUCHERREGISTRATIONl: TMenultem;

GIVEVOUCHERREGISTRATIONl: TMenultem;

SEARCH4: TMenultem;

10

(14)

REPORT6: TMenultem; HELP 1: TMenultem; REPORT?: TMenultem; GUARANTYREGISTRATION2: TMenultem; FIRMREGISTRATION2: TMenultem; EXITI: TMenuitem; EXIT2: TMenultem; CARI 1: TMenultem;

procedure REGISTRATIONIClick(Sender: !Object); procedure SEARCHIClick(Sender: !Object);

procedure REPORT 1 Click(Sender: TObject);

procedure REGISTRATION2Click(Sender: TObject); procedure EXIT2Click(Sender: !Object);

procedure SEARCH2Click(Sender: !Object); procedure REPORT2Click(Sender: !Object);

procedure GU ARANTYREGISTRA TION2Click(Sender: !Object); procedure GUARANTYREGISTRATIONIClick(Sender: !Object); procedure REPORT3Click(Sender: TObject);

procedure FIRMREGISTRATION2Click(Sender: TObject); procedure FIRMREGISTRATIONIClick(Sender: !Object); procedure REPORT4Click(Sender: !Object);

procedure TAKECHEQUEREGISTRATIONI Click(Sender: TObject); procedure GIVECHEQUEREGISTRA TIO NI Click(Sender: !Object); procedure SEARCH3Click(Sender: TObject);

procedure REPORT5Click(Sender: TObject);

procedure TAKEVOUCHERREGISTRATIONI Click(Sender: !Object); procedure GIVEVOUCHERREGISTRATIONIClick(Sender: !Object); procedure SEARCH4Click(Sender: !Object);

procedure REPORT6Click(Sender: !Object); procedure HELP2Click(Sender: !Object); procedure REPORT7Click(Sender: !Object); procedure CARI 1 Click(Sender: TObject); private

(15)

public { Public declarations } end; var Form2: TForm2; implementation

uses Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9, Unit 10, Unitl 1, Unitl2, Unitl3, Unitl4, Unitl5, Unitl6, Unitl7, Unitl8, Unitl9, Unit20, Unit21, Unit22, Unit23, Unit24, Unitl, Unit43;

{$R *.DFM}

procedure TForm2.REGISTRATION1Click(Sender: TObject); begin

FORM3.SHOW; FORM2.HIDE; end;

procedure TForm2.SEARCH1Click(Sender: TObject); begin

FORM4.SHOW; FORM2.Hide; end;

procedure TForm2.REPORT1Click(Sender: TObject); begin

FORMS.SHOW; FORM2.HIDE; end;

procedure TForm2.REGISTRATION2Click(Sender: TObject); begin

Form6.Show; Form2.hide;

form6. Table

I .Insert;

(16)

procedure TF orm2. GU ARANTYREGISTRA TION2Click(Sender: TObject ); begin FORM9.SHOW; FORM2.HIDE; end; end;

procedure TF orm2.EXIT2Click(Sender: TObj.ect); begin

SHOWMESSAGE('PLEASE C:\DBF FILE BACKUP TO FLOPPY DISK DONT FORGET');

HALT; end;

FORM7.SHOW; FORM2.HIDE;

end;

procedure TForm2.GUARANTYREGISTRATION1Click(Sender: TObject); begin

FORMlO.SHOW; FORM2.HIDE;

end;

procedure TForm2.REPORT3Click(Sender: TObject);

(17)

begin

FORMl I.SHOW; FORM2.HIDE;

end;

procedure TForm2.FIRMREGISTRATION2Click(Sender: TObject ); begin

end;

procedure TForm2.FIRMREGISTRATION1Click(Sender: TObject); begin

end;

procedure TF orm2. TAKECHEQUEREGISTRA TIONl Click(Sender: TObject ); begin

procedure TF orm2. GIVECHEQUEREGISTRATIONl Click(Sender: TObject ); begin FORM16.SHOW; FORM2.Hide; end; 14

I

(18)

FORM! 7.SHOW; FORM2.HIDE; end;

procedure TForm2. TAKEVOUCHERREGISTRATIONl Click(Sender: TObject); begin

procedure TForm2. GIVEVOUCHERREGISTRATIONI Click(Sender: TObject); begin

FORM20. SHOW; FORM2.HIDE; end;

procedure TF orm2. SEARCH4Click(Sender: TObject ); begin

(19)

FORM2.IIlDE; end·

.

'

procedure TF orm2.HELP2Click(Sender: TObject ); begin

FORM23.SHOW; FORM2.IIlDE; end;

FORM24.SHOW; FORM2.IIlDE; end;

procedure TForm2.CARI1Click(Sender: TObject); begin FORM43.SHOW; FORM2.IIlDE; end; end.

16

(20)

2.3 CUSTOMER

2.3.1 CUSTOMER REGISTRATION

New customer information registration,but same customer number not saved datebase. For not be confusion.

PJSTO:MER NO: 18:34:67 ~TE ,,4 ~CLE PLAQUE: 119EK454 fOSTAL CODE: ~~S;

(21)

18 If record saved, show message screen;

If press button delete, show confirm message evet or hayır?

If record deleted,show message screen;

(22)

ara=true; Tablel .Next; end;

If (ara= True) Then begin

Table I.First;

While not Tablel.EofDO begin

If (TablelCUS_NO.Text =

Editl.Text) Then

begin

ShowMessage('RECORD NUMBER ANOTHER RECORD FOR USE! .. !');

end;

Tablel.Next;

end;

If (ara = false) Then

begin

TABLEI.APPEND;

TablelCUS_NO.TEXT:= EDITI.TEXT;

TablelNAME.TEXT:= EDIT2.TEXT;

TableI SURNAME.TEXT::::::

EDIT3.TEXT;

~.3.1.1 CUSTOMER REGISTRATION SCREEN SOURCE CODES

procedure TForm3.BitBtn1Click(Sender: TObject);

VAR

ara : boolean;

begin

ara := False;

TableI.First;

While not Tablel.EofDo

begin

(23)

20 TablelDATE. VALUE:=DATETIMEPICKERl .DATE;

TablelV PLAQUE.TEXT:= EDIT4.TEXT;

TablelPHONE.TEXT:= EDITS.TEXT;

TablelPOSTAL_CODE.TEXT:= EDIT6.TEXT;

TablelADDRESS.TEXT:= EDIT7.TEXT;

TablelTOTAL.TEXT:=INTTOSTR(O);

TablelDEBT. TEXT:=INTTOSTR(O);

TablelPAYNIBNT.TEXT:=INTTOSTR(O);

TablelNOTE.TEXT:= EDITS.TEXT;

TABLEI.POST;

BEGIN

SHOWMESSAGE(' RECORD SAVED');

END;

TABLEI.APPEND;

EDITl.TEXT:=";

EDIT2.TEXT:=";

EDIT3.TEXT:=";

EDIT4.TEXT:=";

EDITS.TEXT:=";

EDIT6.TEXT:=";

EDIT7.TEXT:=";

EDITS.TEXT:=";

EDIT 1. SetFocus;

end;

procedure TForm3.BitBtn3Click(Sender: TObject);

begin

TABLEI.APPEND;

EDITl.TEXT:=";

EDIT2.TEXT:=";

EDIT3.TEXT:=";

(24)

EDIT4.TEXT:="; EDITS.TEXT:="; EDIT6.TEXT:="; EDIT7.TEXT:="; EDIT8. TEXT:="; EDITl.SetFocus; end;

procedure TF orrn3 .BitBtn4Click(Sender: TObject ); begin

TABLE I.NEXT;

EDITl.TEXT:= TablelCUS_NO.TEXT; EDIT2.TEXT:= TablelNAME.TEXT; EDIT3.TEXT:= TablelSURNAME.TEXT; EDIT4.TEXT:= TablelV _PLAQUE.TEXT; EDITS.TEXT:= TablelPHONE.TEXT;

EDIT6. TEXT:= Table lPOST AL_ CODE. TEXT; EDIT7.TEXT:= TablelADDRESS.TEXT;

EDITS.TEXT:= TablelNOTE.TEXT;

DATETIMEPICKERl.DATE:=TABLElDATE.VALUE;

end; ·

procedure TForrn3.BitBtnSClick(Sender: TObject); begin

TABLE I.PRIOR;

EDITl.TEXT:= TablelCUS_NO.TEXT; EDIT2.TEXT:= TablelNAME.TEXT; EDIT3.TEXT:= TablelSURNAME.TEXT; EDIT4.TEXT:= TablelV _PLAQUE.TEXT; EDITS.TEXT:= TablelPHONE.TEXT;

EDIT6.TEXT:= TablelPOSTAL_CODE.TEXT; EDIT7.TEXT:= TablelADDRESS.TEXT; EDITS.TEXT:= TablelNOTE.TEXT;

(25)

22 DATETIMEPICKERl .DATE:=T ABLE ID ATE.VALUE;

end;

procedure TForm3.BitBtn6Click(Sender: TObject); begin

BITBTNl .ENABLED:=F ALSE; BITBTN2.ENABLED:=F ALSE; BITBTN3 .ENABLED:=F ALSE; BITBTN4.ENABLED:=F ALSE; BITBTN5 .ENABLED:=F ALSE; BITBTN6. VISIBLE:=F ALSE; BITBTN7.ENABLED:=F ALSE; BITBTN8.VISIBLE:=TRUE; BITBTN9. VISIBLE:=TRUE;

end;

procedure TForm3.BitBtn7Click(Sender: TObject); var

tus: INTEGER; begin

TUS:=APPLICATION.MESSAGEBOX('ARE YOU SURE DELETE RECORD?', 'KURKCUOGLU EXHAUST SERVICES',MB _YESNO);

IF TUS=IDYES THEN begin

TABLEl .DELETE; TABLE I.PRIOR;

EDITl.TEXT:= TablelCUS_NO.TEXT; EDIT2. TEXT:= Table lNAME. TEXT; EDIT3.TEXT:= TablelSURNAME.TEXT; EDIT4.TEXT:= TablelV _PLAQUE.TEXT; EDITS.TEXT:= TablelPHONE.TEXT;

EDIT6.TEXT:= TablelPOSTAL_CODE.TEXT; EDIT7.TEXT:= TablelADDRESS.TEXT;

(26)

EDITS.TEXT:= TablelNOTE.TEXT;

DATETIMEPICKERl .DATE:=T ABLEIDATE. VALUE; SHOWMESSAGE('RECORD DELETED');

end; end;

procedure TF orm3 .BitBtn8Click(Sender: TObject ); begin BITBTNl .ENABLED:=TRUE; BITBTN2.ENABLED:=TRUE; BITBTN3 .ENABLED:=TRUE; BITBTN4.ENABLED:=TRUE; BITBTNS .ENABLED:=TRUE; BITBTN6.VISIBLE:=TRUE; BITBTN6.ENABLED:=TRUE; BITBTN7 .ENABLED:=TRUE; BITBTN8. VISIBLE:=F ALSE; BITBTN9.VISIBLE:=FALSE; end;

TABLEl.EDIT;

TablelCUS_NO.TEXT:= EDIT I .TEXT; TablelNAME.TEXT:= EDIT2.TEXT; TablelSURNAME.TEXT:= EDIT3.TEXT;

TablelDATE.V ALUE:=DATETIMEPICKERl .DATE; TablelV _PLAQUE.TEXT:= EDIT4.TEXT;

TablelPHONE.TEXT:= EDITS.TEXT;

Table lPOST AL_ CODE. TEXT:= EDIT6. TEXT; TablelADDRESS.TEXT:= EDIT7.TEXT; TablelNOTE.TEXT:= EDITS.TEXT; TABLEl .UPDATERECORD; BITBTNl .ENABLED:=TRUE; BITBTN2.ENABLED:=TRUE; BITBTN3 .ENABLED:=TRUE;

(27)

24 BITBTN4.ENABLED:=TRUE; BITBTN5 .ENABLED:=TRUE; BITBTN6. VISIBLE:=TRUE; BITBTN7 .ENABLED:=TRUE; BITBTN8.VISIBLE:=FALSE; BITBTN9. VISIBLE:=F ALSE;

end; end.

(28)

Customer search screen is customer surname, customer number and customer vehicle plaque search. This find records take list and print.

2.3.2 CUSTOMER SEARCH SCREEN

~

C

SURNAM:E

r.:,

....•...

NO

_-

... ~

C

V_l'LAQUE

lıo

Arahk 2000

Pazar..

i

IJ•ı

ioRHAN

!YILMAZ

!m.12._.

]54-ovısıı

lıs33

ls..

.

hh,.,.,.,.,.,..,,.•••. ,.Mn,.', ..M,,M-",,.,.,.n,M,u,.L.-.MMMhM,-'-••'-n•n- A•A•••- • ••n- -·-· ••M- •••n\M.MHMM••-··-•MM•hMMhA• Hh••·- ••n•··-····••n••••••'-•••·· •n••••-·ChhhM,hhh ...•••• -:.,,.. '"'··'·" • .• ,M.Mh.,.,,.

(29)

~--

_

..

_~~~~

_·-

...,...

-

--

...•....

..,

_-

_··..z

.

..,...

'""'"tKı-

-

---

..,..,,

••.•..

...

....,.,.

••••

-

•••• 1UIU001

.,

__

....

.

'8!D- .t'4JQlıOJ.6

-

...•.

-

m.1Z2111>

...

_

...•••.•..•

--·

.,

_-

..

...,,

_{••••••••• "'"'-}

If print button pressed; print preview come to screen

(30)

2.3.2.1 CUSTOMER SEARCH SCREEN SOURCE CODE

procedure TF orm4 .BitBtn2Click(Sender: TObject); begin

Table2.First;

While not Table2.EofDO begin Table2.Delete; end; form2.show; form4.Hide; end;

procedure TForm4.BitBtn1Click(Sender: TObject); Var

ara : Boolean; begin

Table2.First;

While not Table2.Eof DO begin

Table2.Delete; end;

If Radiobutton 1. Checked Then begin

ara

:=

False; Tablel .First;

While not Tablel.EofDo begin

If (TablelSURNAME.Text = Editl.Text) Then

ara=true;

Tablel .Next; end;

If (ara = True) Then begin

(31)

Table

I

.First;

While not Tablel.EofDO

begin

If (TablelSURNAME.Text = Editl.Text) Then

begin

Table2.Append;

Table2CUS_NO.Text

:=

TablelCUS_NO.Text;

Table2NAME.Text

:=

TablelNAME.Text;

Table2SURNAME.Text := TablelSURNAME.Text;

Table2DATE.Text

:= TablelDATE.Text;

Table2V_PLAQUE.Text:= TablelV _PLAQUE.Text;

Table2PHONE.Text := TablelPHONE. Text;

Table2POSTAL_CODE.Text := TablelPOSTAL_CODE.Text;

Table2ADDRESS.Text := TableI ADDRESS.Text;

Table2DEBT.Text

:= TablelDEBT.Text;

Table2PAYMENT.Text := TablelPAYMENT.Text;

Table2TOTAL.Text := TablelTOTAL.Text;

Table2NOTE.Text

:=

TablelNOTE.Text;

Table2.Post;

end;

Tablel.Next;

end;

IfRadiobutton2.Checked Then

begin

ara := False;

Tablel .First;

While not Tablel.EofDo

begin

If (TablelCUS_NO.Text = Editl.Text) Then

ara:=true;

(32)

end;

Tablel.First;

While not Tablel .Eof DO begin

If (TablelCUS_NO.Text = Editl.Text) Then begin Table2.Append; Table2CUS_NO.Text := TablelCUS_NO.Text; Table2NAME.Text := TablelNAME.Text; Table2SURNAME.Text := TablelSURNAME.Text; Table2DATE.Text := TablelDATE.Text;

Table2V PLAQUE.Text:=

_-

TablelV

_-

PLAQUE.Text; Table2PHONE.Text := TablelPHONE.Text;

Table2POSTAL_CODE.Text := TablelPOSTAL_CODE.Text; Table2ADDRESS.Text := TablelADDRESS.Text;

Table2DEBT.Text := TablelDEBT.Text;

Table2PAYMENT.Text := TablelPAYMENT.Text; Table2TOTAL.Text := Tablel TOTAL.Text; Table2NOTE.Text := TablelNOTE.Text; Table2.Post; end; Table l.Next; end; end; end;

If Radiobutton3. Checked Then begin

ara := False; Table I .First;

While not Table I .EofDo

(33)

begin

If (TablelV _PLAQUE.Text= Editl.Text) Then ara:=true;

Table I .Next; end;

Table I .First;

While not TableI.EofDO begin

If(TableIV _PLAQUE.Text= Editl.Text) Then begin Table2.Append; Table2CUS_NO.Text := TableICUS_NO.Text; Table2NAME.Text := TablelNAME.Text; Table2SURNAME.Text :=

TableISURNAME.Text;

Table2DATE.Text

:= TableIDATE.Text;

Table2V_PLAQUE.Text:= TableIV_PLAQUE.Text;

Table2PHONE.Text := TableIPHONE.Text;

Table2POSTAL CODE.Text:= TableIPOSTAL CODE.Text;

_-

-Table2ADDRESS.Text := TableIADDRESS.Text;

Table2DEBT.Text

:= TablelDEBT.Text;

Table2PAYMENT.Text := TableIPAYMENT.Text;

Table2TOTAL.Text

:=

TableITOTAL.Text;

Table2NOTE.Text

:= TablelNOTE.Text;

Table2.Post;

end;

TableI .Next;

end;

If (ara = false) Then

begin

ShowMessage('RECORD IS NOT FOUND!... ');

(34)

end; end;

FORM25. TABLE 1. OPEN;

FORM25. QUICKREP I.PREVIEW; FORM25. TABLE I. CLOSE;

end; END.

(35)

2.3.3 CUSTOMER REPORT SCREEN

Customer report screen, all customer record information screen and print list.

Wl2 IXX!i

ır

rJ HH (JJl ..

[0533

•

07500

KADiR iKURKOJ 08.12.2(0) i1SKK454 ..

!~

1S200 RECEP iKURKOJ .

too.tim ....

i1!3FİK01!3

r

:o

:O

2.3.3.1 CUSTOMER REPORT SCREEN SOURCE CODE

procedure TF ormS .BitBtn I Click(Sender: TObject

t

begin

FORM27. TABLE I. OPEN;

FORM27. QUICKREPl .PREVIEW; FORM27.TABLE1.CLOSE;

end;

(36)

2.3.4 CUSTOMER CURRENT ACCOUNT SCREEN

Customer current screen, customer hold to debt, payment and total. If calculate button is pressed for one customer total debt,total payment and general total give list to screen and print. ~OMER.NO

-.ll.1000 ~PLAQlJE: OT.AL. NOTE:

33

(37)

2.3.4.1 CUSTOMER CURRENT ACCOUNT SOURCE CODES

procedure TForm43.Edit1Change(Sender: TObject); Var

DBNA VIGATORl .ALIGN:=ALBOTTOM; DBGRIDl.ALIGN:=ALBOTTOM;

Table2.First;

While not Table2.Eof DO begin Table2.Delete; end; begin ara := False; Table3 .First;

While not Table3.EofDo begin

If (Table3cus_no.Text = Editl.Text) Then ara:=true;

Table3 .Next; end;

Table3 .First;

While not Table3.EofD0 begin

If (Table3cus_no.Text = Editl.Text) Then begin Table2.Append; Table2DATE.Text := Table3DATE.Text; Table2DEBT.Text := Table3DEBT.Text; Table2PAYMENT.Text := Table3PAYMENT.Text; Table2TOTAL.Text

:=

Table3TOTAL.Text; Table2NOTE.Text := Table3NOTE.Text; Table2.Post; end; Table3.Next; end; end;

if (edit 1. text=") then begin exit.end

else

form43. table 1.Locate('CUS _NO',edit 1. text,[locaseinsensitive,lopartialkey ]); end;

end;

(38)

Table2.First;

While not Table2.EofDO begin Table2.Delete; end; FORM43 .IIlDE; FORM2.SHOW; end;

procedure TForm4J.BitBtnlClick(Sender: TObject); begin

TABLE3 .APPEND;

Table3CUS_NO.TEXT:= EDITl.TEXT; Table3NAME. TEXT:= DBEDIT2. TEXT; Table3 SURNAME. TEXT:= DBEDIT3. TEXT;

Table3DATE. VALUE:=DATETIMEPICKERl .DATE; Table3V _PLAQUE.TEXT:= DBEDIT4.TEXT;

Table3DEBT.TEXT:= EDIT3.TEXT; Table3PAYMENT.TEXT:= EDIT2.TEXT; Table3TOTAL.TEXT:= EDIT4.TEXT; Table3NOTE. TEXT:= EDITS. TEXT; TABLE3.POST;

BEGIN

SHOWMESSAGE(' RECORD SAVED'); END; TABLE I .APPEND; EDITl.TEXT:="; DBEDIT2.TEXT:="; DBEDIT3.TEXT:="; DBEDIT4.TEXT:="; EDIT3.TEXT:='O'; EDIT2.TEXT:='O'; EDIT4.TEXT:='0'; EDITS.TEXT:="; EDIT 1. SetF ocus; end;

procedure TForm43.Edit2Change(Sender: TObject); var A,B,C : REAL; begin A:=StrTofloat(Edit3 .text); B:=StrTofloat(Edit2.text); C:=(A-B);

(39)

Edit4.text:=FloattoStr(C); end;

tus:INTEGER; begin

TABLE3 .DELETE;

EDITl.TEXT:= Table3CUS_NO.TEXT; DBEDIT2. TEXT:= Table3NAME. TEXT; DBEDIT3.TEXT:= Table3SURNAME.TEXT; DBEDIT4.TEXT:= Table3V PLAQUE.TEXT; EDIT3.TEXT:= Table3DEBT.TEXT; EDIT2.TEXT:= Table3PAYMENT.TEXT; EDIT4.TEXT:= Table3TOTAL.TEXT; EDITS.TEXT:= Table3NOTE.TEXT; DATETIMEPICKER1.DATE:=TABLE3DATE.V ALUE; SHOWMESSAGE('RECORD DELETED'); TABLE 1.APPEND; EDITl.TEXT:="; DBEDIT2.TEXT:="; DBEDIT3.TEXT:="; DBEDIT4.TEXT:="; EDIT3.TEXT:='O'; EDIT2. TEXT:='O'; EDIT4.TEXT:='O'; EDITS.TEXT:="; EDITl.SetFocus; end; end;

procedure TForm43.BitBtn4Click(Sender: TObject); var ttotal: int64; PTOTAL:INT64; DTOT AL:INT64; begin ttotal.=O; PTOTAL:=O; DTOTAL:=O; begin table2. append; table2note.text:='ZZTOT AL';

Table2DEBT.Text :='DEBT TOTAL';

(40)

37 Table2PAY:MENT.Text :='PAY. TOTAL';

Table2TOTAL.Text :='GEN. TOTAL'; T ABLE2.POST;

END;

Table2 .First;

While Table2NOTE.Text

<> 'ZZTOTAL' Do

begin

ttotal :=(Strtolnt64(Table2total.Text)

+

ttotal);

Ptotal :=(Strtolnt64(Table2PAYMENT.Text)

+

PTOTAL);

Dtotal :=(Strtolnt64(Table2DEBT.Text)

+

Dtotal);

Table2.Next;

end;

If (Table2NOTE.Text = 'ZZTOTAL') Then

begin

Table2.Append;

Table2note.Text :='TOTAL';

Table2TOTAL.Text := Inttostr(TTOTAL);

Table2PAYMENT.Text := Inttostr(PTOTAL);

Table2DEBT.Text := Inttostr(DTOTAL);

Table2.Post;

end;

procedure TForm43.BitBtnSClick(Sender:TObject);

. egin

FORM26.TABLE1.0PEN;

FORM26.QUICKREP1.PREVIEW;

FORM26.TABLE1.CLOSE;

end;

END.

(41)

2.4 STOCK

2.4.1 STOCK REGISTRATION SCREEN

New stock information registration,but same stock number not saved datebase. For not be confusion. STOCKNO ~l UNIT

ııso

NOTE 18:37:45 SU>CKNAME 1REN011 CAUTIONLIMIT ~

TAX SA.LE PRICE

(42)

2.4.1.1 STOCK REGISTRATION SCREEN SOURCE CODES

procedure TForm6.BitBtn1Click(Sender: 'I'Object);

VAR

ara : boolean;

begin

ara := False;

TableI .First;

While not Tablel.EofDo

begin

If (TablelSTOCK_NO.Text = Editl.Text) Then

ara=true;

Tablel.Next;

end;

If (ara= True) Then

begin

Tablel.First;

While not Tablel .Eof DO

begin

If (TablelSTOCK_NO.Text

=

Editl.Text) Then

begin

ShowMessage('RECORD NUMBER ANOTHER RECORD FOR USE!..

n,

end;

Tablel.Next;

end;

If (ara = false) Then

begin

TABLEl .APPEND;

TablelSTOCK_NO.TEXT:=EDITl.TEXT;

TablelS_NAME.TEXT:=EDIT2.TEXT;

TablelS_TYPE.TEXT:=COMBOBOXl.TEXT;

TablelDATE.V ALUE:=DATETIMEPICKERl .DATE;

Table1UNIT.TEXT:=EDIT4.TEXT;

TablelMARK. TEXT:=COMBOBOX2.TEXT;

TablelCAUTION_LIMIT.TEXT:=EDIT6.TEXT;

TablelPURCHASE PRICE.TEXT:=EDIT7.TEXT;

TablelSALE_PRICE.TEXT:=EDITlO.TEXT;

Tablel TAX.TEXT:=EDIT8.TEXT;

TablelNOTE.TEXT:=EDITl 1.TEXT;

TABLEl .POST;

BEGIN

SHOWMESSAGE(' RECORD SAVED');

END;

TABLE

I

.APPEND;

EDIT I.TEXT:=";

(43)

40

EDIT2.TEXT:=";

EDIT4.TEXT:=";

EDIT6.TEXT:=";

EDIT7.TEXT:='O';

EDITS.TEXT:='O';

EDIT9.TEXT:=";

EDIT 1 O. TEXT:='O';

EDITl l.TEXT:=";

EDITl.SetFocus;

end;

procedure TForm6.BitBtn5Click(Sender: TObject);

begin

TABLE

I

.PRIOR;

EDIT I. TEXT:= Table

l

STOCK_NO.TEXT;

EDIT2.TEXT:= TablelS_NAME.TEXT;

COMBOBOXl.TEXT:= TablelS_TYPE.TEXT;

EDIT4.TEXT:= TablelUNIT.TEXT;

COMBOBOX2.TEXT:= Table

I

MARK.TEXT;

EDIT6.TEXT:= Table

1

CAUTION_LIMIT.TEXT;

EDIT7.TEXT:= TablelPURCHASE_PRICE.TEXT;

EDITlO.TEXT:= TablelSALE_PRICE.TEXT;

EDITS.TEXT:= Tablel TAX.TEXT;

EDITl I.TEXT:= TablelNOTE.TEXT;

DATETIMEPICKERl .DATE:=TABLElDATE.V ALUE;

end;

procedure TForm6.BitBtn4Click(Sender: TObject);

begin

TABLEI.NEXT;

EDITl.TEXT:= TablelSTOCK_NO.TEXT;

EDIT2.TEXT:= TablelS_NAME.TEXT;

COMBOBOXl.TEXT:= TablelS_TYPE.TEXT;

EDIT4.TEXT:= TablelUNIT.TEXT;

COMBOBOX2.TEXT:= TablelMARK.TEXT;

EDIT6.TEXT:= TablelCAUTION_LIMIT.TEXT;

EDIT7.TEXT:= TablelPURCHASE_PRICE.TEXT;

EDITlO.TEXT:= TablelSALE_PRICE.TEXT;

EDITS.TEXT:= Tablel TAX.TEXT;

EDITl I.TEXT:= TablelNOTE.TEXT;

DATETIMEPICKERl .DATE:=TABLElDATE.V ALUE;

end;

procedure TForm6.BitBtn3Click(Sender: TObject);

begin

TABLEI.APPEND;

EDITl.TEXT:=";

(44)

EDIT2.TEXT:="; COMBOBOXl. TEXT:="; EDIT4.TEXT:="; COMBOBOX2. TEXT:="; EDIT6.TEXT:="; EDIT7. TEXT:='O'; EDIT8.TEXT:='O'; EDITlO.TEXT:='0'; EDIT! I.TEXT:="; ED IT 1. SetF ocus; end;

tus: INTEGER; begin

TUS:=APPLICATION.MESSAGEBOX('ARE YOU SURE DELETE RECORD?', 'KURKCUOGLU EXHAUST SER VICES',MB _YESNO);

TABLE I .DELETE; TABLE I.PRIOR;

EDIT!. TEXT:= Table! STOCK_ NO. TEXT; EDIT2.TEXT:= TablelS_NAME.TEXT;

COMBOBOXl.TEXT:= TablelS TYPE.TEXT; EDIT4.TEXT:= TablelUNIT.TEXT;

COMBOBOX2. TEXT:= Table I MARK. TEXT; EDIT6.TEXT:= TablelCAUTION_LIMIT.TEXT; EDIT7. TEXT:= Table !PURCHASE _PRICE. TEXT; EDITIO.TEXT:= TablelSALE_PRICE.TEXT;

EDITS.TEXT:= Table! TAX.TEXT; EDITl I.TEXT:= TablelNOTE.TEXT;

DATETIMEPICKERl.DATE:=TABLElDATE.VALUE; SHOWMESSAGE('RECORD DELETED');

end; end;

BITBTNl.ENABLED:=FALSE; BITBTN2.ENABLED:=F ALSE; BITBTN3 .ENABLED:=F ALSE; BITBTN4.ENABLED:=F ALSE; BITBTNS .ENABLED:=F ALSE; BITBTN6. VISIBLE:=F ALSE; BITBTN7 .ENABLED:=F ALSE; BITBTN8. VISIBLE:=TRUE; BITBTN9. VISIBLE:=TRUE; end;

(45)

procedure TFonn6.BitBtn2Click(Sender: TObject); begin

procedure TF orm6.BitBtn8Click(Sender: TObject ); begin BITBTNl .ENABLED:=TRUE; BITBTN2.ENABLED:=TRUE; BITBTN3 .ENABLED:=TRUE; BITBTN4.ENABLED:=TRUE; BITBTNS.ENABLED:=TRUE; BITBTN6.VISIBLE:=TRUE; BITBTN7.ENABLED:=TRUE; BITBTN8.VISIBLE:=F ALSE; BITBTN9. VISIBLE:=F ALSE; end;

procedure TForm6. Timerl Timer(Sender: TObject); begin

EDIT9.TEXT:=TIMETOSTR(TIME); end;

procedure TForm6.BitBtn9Click(Sender: TObject); BEGIN

TABLEl.EDIT;

Table1STOCK_NO.TEXT:=ED1T1.TEXT; Table1S_NAME.TEXT:=EDIT2.TEXT;

Tablel S_TYPE. TEXT:=CO:MBOBOXl. TEXT;

TablelDATE.V ALUE:=DATETIMEPICKERI .DATE; Tablel UNIT. TEXT:=EDIT4. TEXT;

TablelMARK.TEXT:=COMBOBOX2.TEXT; Table1CAUTION_LIMIT.TEXT:=EDIT6.TEXT; Table lPURCHASE _PRICE. TEXT:=ED1T7. TEXT; TablelSALE_PRICE.TEXT:=EDITlO.TEXT;

Table 1 TAX. TEXT:=EDIT8. TEXT; TablelNOTE.TEXT:=EDITl 1.TEXT; TABLEl.UPDATERECORD; BITBTNl .ENABLED:=TRUE; BITBTN2.ENABLED:=TRUE; BITBTN3 .ENABLED:=TRUE; BITBTN4.ENABLED:=TRUE; BITBTNS .ENABLED:=TRUE; BITBTN6.VISIBLE:=TRUE; BITBTN7.ENABLED:=TRUE; BITBTN8.VISIBLE:=F ALSE; BITBTN9. VISIBLE:=F ALSE; end;

(46)

procedure TFcirm6.Edit8Change(Sender: TObject); var A,B,C: REAL; begin A: =StrTolnt(Edit7. text); B:=StrToint(Edit8.text); C:=(A*B)/100

+

A; EditlO.text:=FloattoStr(C); end;

(47)

2.4.2 STOCK SEARCH SCREEN

Stock search screen is stock no, stock name, stock type and stock mark search. This

find records take list and print.

18:38:39

SEARCH

6ooı

_L _. ,'!'. STOCKNO C STOCKNAME

c

STOK TYPE CMARK

44

(48)

2.4.2.1 STOCK SEARCH SOURCE CODES

procedure TForm7.Timerl Timer(Sendeı:: TObject); egin

EDIT9.TEXT:=TIMETOSTR(TIME); end;

I able2.First;

Table2.Delete; end;

procedure TForm7.BitBtn1Click(Sender: TObject); - 'ar

Table2.First;

While not Table2.EofDO begin

Table2.Delete; end;

If Radiobutton 1. Checked Then begin

ara := False; Tablel .First;

If (TablelSTOCK NO.Text= Editl.Text) Then

ara=true;

Table l.Next; end;

Table I .First;

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

Table2.Append;

Table2STOCK_NO.Text := TablelSTOCK_NO.Text; Table2S_NAME.Text := TablelS_NAME.Text;

(49)

Table2S_TYPE.Text := TablelS_TYPE.Text; Table2DATE.Text := TablelDATE.Text; Table2UNIT.Text:= TablelUNIT.Text~ Table2MARK.Text := TablelMARK.Text; Table2CAUTION_LIMIT.Text :=

TablelCAUTION_LIMIT.Text;

Table2PURCHASE_PRICE.Text := TablelPURCHASE_PRICE.Text;

Table2SALE_PRICE.Text

:= TablelSALE_PRICE.Text;

Table2TAX.Text := TableI TAX.Text;

Table2NOTE.Text

:= TablelNOTE.Text;

Table2.Post;

end;

Tablel.Next;

end;

IfRadiobtıtton2.Checked Then

begin

ara :

=

False;

Table

I

.First;

While not Tablel.EofDo

begin

If(TablelS_NAME.Text

=

Edit I.Text) Then

ara=true;

Tablel.Next;

end;

If (ara

=

True) Then

begin

TableI .First;

While not Tablel.EofDO

begin

If (TablelS_NAME.Text = Editl.Text) Then

begin.

Table2.Append;

Table2STOCK NO.Text

_-

:=

TablelSTOCK NO.Text;

-Table2S NAME.Text

_-

:= TablelS NAME.Text;

-Table2S_TYPE.Text := TablelS_TYPE.Text;

Table2DATE.Text

:= TablelDATE.Text;

Table2UNIT.Text:= TablelUNIT.Text;

Table2MARK.Text := TablelMARK.Text;

Table2CAUTION_LIMIT.Text := TablelCAUTION_LIMIT.Text;

Table2PURCHASE PRICE.Text:= TablelPURCHASE PRICE.Text;

_-

-Table2SALE PRICE.Text

_-

:= TablelSALE PRICE.Text;

-Table2TAX.Text := Tablel TAX.Text;

Table2NOTE.Text

:= TablelNOTE.Text;

Table2.Post;

end;

TableI.Next;

end;

46

(50)

end; end;

While not Tablel.Eof Do begin

If (TableIS_TYPE.Text = Editl.Text) Then ara.=true;

'I'able l.Next; end;

If (ara= True) Then begin ,

Table I .First;

While not Tablel .EofDO begin

If (TableIS_TYPE.Text = Editl.Text) Then begin Table2.Append; Table2STOCK_NO.Text := TableISTOCK_NO.Text; Table2S_NAME.Text := TableIS_NAME.Text; Table2S_TYPE.Text := TablelS_TYPE.Text; Table2DATE.Text := TableIDATE.Text; Table2UNIT.Text:= TableIUNIT.Text; Table2MARK.Text := TablelMARK.Text; Table2CAUTION_LIMIT.Text := TablelCAUTION_LIMIT.Text; Tabl~2PURCHASE_PRICE.Text := TablelPURCHASE_PRICE.Text; Table2SALE_PRICE.Text := TablelSALE_PRICE.Text; Table2TAX.Text := TablelTAX.Text; Table2NOTE.Text := TablelNOTE.Text; Table2.Post; end; Tablel.Next; end; end; end;

ara:= False; Table I .First;

While not TableI.EofDo begin

If (TableIMARK.Text = Editl.Text) Then ara:=true;

Table I.Next; end;

(51)

Tablel.First;

While not Tablel .Eof DO begin

If (TablelMARK.Text

=

Editl.Text) Then begin Table2.Append; Table2STOCK_NO.Text := TablelSTOCK_NO.Text; Table2S_NAME.Text := TablelS_NAME.Text; Table2S_TYPE.Text := TablelS_TYPE.Text; Table2DATE.Text := TablelDATE.Text; Table2UNIT.Text:= TablelUNIT.Text; Table2MARK.Text := TablelMARK.Text; Table2CAUTION_LIMIT.Text := TablelCAUTION_LIMIT.Text; Table2PURCHASE_PRICE.Text := TablelPURCHASE_PRICE.Text; Table2SALE_PRICE.Text := TablelSALE_PRICE.Text;

Table2TAX.Text := Tablel TAX.Text; Table2NOTE.Text := TablelNOTE.Text; Table2.Post; end; Table! .Next; end; end; end;

If (ara = false) Then begin

ShowMessage('RECORD IS NOT FOUND! ... '); end;

end;

FORM28.TABLE1.0PEN;

FORM28.QUICKREP1.PREVIEW; FORM28. TABLE 1. CLOSE; end;

(52)

2.4.3 STOCK REPORT SCREEN

procedure TForm.8.BitBtn3Click(Sender:TObject);

· egin

FORM29.TABLE1.0PEN;

FORM29.QUICKREP1.PREVIEW;

FORM29.TABLE1.CLOSE;

end;

Stock report screen, all stock record information screen and print list

AEN012 TOFAS131

RECEP

:os.12.2000 ,50 :EGSAN :15

.r~1~~hf

loo$~···

,5

2.4.3.1 STOCK REPORT SOURCE COl)ES

(53)

2.5 GUARANTY

2.5.1 GUARANTY REGISTRATION SCREEN

Guaranty registration screen,the selling all vehicle exhaust one year for guaranty record database saved. But same card number not saved datebase. For not be-confusion.

VMAKK

jcı~VEC~···

~t~~···

...i

C TBROAT_PIPE C FRO:NT_l'lPE P'MIDDLE_l'JPE R: BACK_EXHAUSt E_MAHK CARD_NO

[ıı@.

Jl

p,ôinJ

!

50

(54)

2.5.1.1 GUARANTY REGISTRATION SCREEN SOURCE CODES

procedure TF orm9 .BitBtn3 Click(Sender: TObject ); begin TABLE 1 .APPEND; EDIT I.TEXT:="; EDIT2. TEXT:="; EDIT4.TEXT:="; CHECKBOXI.Checked:=FALSE; CHECKBOX2.Checked:=FALSE; CHECKBOX3. Checked:=F ALSE; CHECKBOX4.Checked:=FALSE; CHECKBOXS .Checked:=F ALSE; EDIT

I.

SetFocus;

end;

FORM2.SHOW; FORM9 .HIDE; end;

procedure TForm9.BitBtn1Click(Sender: TObject); VAR

ara : boolean; begin

While not Table 1.Eof Do begin

If (TablelCARD _NO.Text= Edit4.Text) Then ara=true;

Tablel .Next; end;

Table I .First;

If (Table ICARD _NO.Text= Edit4.Text) Then begin

ShowMessage('RECORD NUMBER ANOTHER RECORD FOR USE! .. !'); end;

Table l.Next; end;

end;

If (ara

=

false) Then

(55)

begin

TABLEl .APPEND;

Table1PLAQUE.TEXT:=ED1Tl.TEXT; Table 1 V_MARK.TEXT:=ED1T2. TEXT;

TablelDATE.V ALUE:=DATETIMEPICKERl .DATE; TablelE _MARK. TEXT:=COMBOBOXl. TEXT; Table1CARD _NO.TEXT:=ED1T4.TEXT;

IF CHECKBOXl .Checked THEN BEGIN Tablel THROAT_PIPE.text:='TRUE'; end ELSE begin · TablelTHROAT_PIPE.text:='FALSE'; END; IF CHECKBOX2.Checked THEN BEGIN TablelFRONT_PIPE.text:='TRUE'; end ELSE begin TablelFRONT_PIPE.text:='FALSE'; END; IF CHECKBOX3.Checked THEN BEGIN TablelMIDDLE_EXHAUST.text:='TRUE'; end ELSE begin

Table !MIDDLE_ EXHAUST .text:='F ALSE'; END; IF CHECKBOX4.Checked THEN BEGIN Tablel.MIDDLE PIPE.text:='TRUE'; end ELSE begin Tablel THROAT_PIPE.text:='FALSE'; END; IF CHECKBOX5.Checked THEN BEGIN TablelBACK_EXHAUST.text:='TRUE'; end ELSE begin 52

(56)

Table I BACK_ EXHAUST .text:='F ALSE'; END;

TABLEl.POST; BEGIN

SHOWMESSAGE(' RECORD SAVED'); END; TABLE I .APPEND; EDITl.TEXT:="; EDIT2. TEXT:="; COMBOBOXl .TEXT:="; EDIT4.TEXT:=";

CHECKBOXl. Checked:=F ALSE; CHECKBOX2. Checked:=F ALSE; CHECKBOX3. Checked:=F ALSE; CHECKBOX4. Checked:=F ALSE; CHECKBOXS. Checked:=F ALSE; EDITl.SetFocus;

end; END;

(57)

2.5.2 GUARANTY SEARCH SCREEN

Guaranty search screen is vehicle plaque and card no search. This find records take list

and print.

-

_ll.12.2000 G;, PLAQUE (''< CARD_NO :ı

54

(58)

2.5.2.1 GUARANTY SEARCH SCREEN SOURCE CODE

procedure TFormlO.SEARCHClick(Sender: TObject);

Var

ara : Boolean;

begin

Table2.First;

While not Table2.EofD0

begin

Table2.Delete;

end;

If PLAQUE.Checked Then

begin

ara

:=

False;

TableI .First;

While not Tablel.EofDo

begin

If (TablelPLAQUE.Text

=

Editl.Text) Then

ara:=true;

Table

I

.Next;

end;

If (ara

=

True) Then

begin

Tablel.First;

While not Tablel.EofDO

begin

If (TablelPLAQUE.Text

=

Editl.Text) Then

begin

Table2.Append;

Table2PLAQUE.Text := TablelPLAQUE.Text;

Table2V_MARK.Text

:=

TablelV _MARK.Text~

Table2E_MARK.Text

:=

TablelE_MARK.Text;

Table2DATE.Text

:= TablelDATE.Text;

Table2CARD_NO.Text:= TablelCARD _NO.Text;

Table2THROAT_PIPE.Text := TablelTHROAT_PIPE.Text;

Table2FRONT_PIPE.Text := Table

I

FRONT_PIPE.Text;

Table2MIDDLE EXHAUST.Text := TablelMIDDLE EXHAUST.Text;

_-

-Table2MIDDLE_PIPE.Text := TablelMIDDLE_PIPE.Text;

Table2BACK_EXHAUST.Text := TablelBACK_EXHAUST.Text;

Table2.Post;

end;

Tablel .Next;

end;

END;

If CARD NO.Checked Then

begin

(59)

While not Tablel .Eof Do begin

If(TablelCARD_NO.Text = Editl.Text} 1,'hen ara=true;

Tablel.Next; end;

If (ara = True} Then begin

Tablel.First;

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

Table2.Append;

Table2PLAQUE. Text := Table I PLAQUE. Text; Table2V _MARK.Text := TablelV _MARK.Text; Table2E MARK.Text:=

_-

TablelE _-MARK.Text; Table2DATE.Text := TablelDATE.Text;

Table2CARD _NO.Text:= TablelCARD _NO.Text;

Table2THROAT_PIPE.Text := TablelTHROAT_PIPE.Text; Table2FRONT_PIPE.Text := TablelFRONT_PIPE.Text;

Table2MIDDLE_EXHAUST.Text := TablelMIDDLE_EXHAUST.Text; Table2MIDDLE _-PIPE.Text := Tablel:MIDDLE _-PIPE.Text;

Tabl~2BACK_EXHAUST.Text := TablelBACK_EXHAUST.Text; Table2.Post; end; Tablel .Next; end; END; END;

ShowMessage('RBCORD IS NOT FOUND! ... '); end;

END;

procedure TFormlO.CLOSEClick(Sender: TObject); begin

FORM2.SHOW; FORM IO.HIDE; Table2.First;

Table2.Delete; end;

END;

(60)

2.5.3 GUARANTY REPORT SCREEN

Guaranty report screen, all guaranty record information screen and print list

2.5.3.1 GUARANTY REPORT SCREEN SOURCE CODE

procedure TForml 1.BitBtn3Click(Sender:TObject);

begin

FORM32.TABLE1.0PEN;

FORM32.QUICKREP1.PREVIEW;

FORM32.TABLE1.CLOSE;

end;

57

(61)

2.6 FIRM

2.6.1 FIRM REGISTRATION SCREEN

~-·

.

~''ı ,,

,;:>7

New firm information registration,but same firm number not saved datebase. For nof;{j_.~ı·-ı\~

confusion.

-

·

FIRMNAME ~AUTHORITY

~OSAL j

cm

BEY

I

~YEll.01..2001

[I

P08TALCODE

?485Ô .

ADDRESS jİsTANBUL NOTE. 58

(62)

2.6.1.lFIRM

REGISTRATION

SCREEN SOURCE CODES

procedure TForml2.BitBtn5Click(Sender: TObject);

begin

TABLE

I

.PRIOR;

EDITl.TEXT:= TablelFIRM_NO.TEXT;

EDIT2.TEXT:= TableIF_NAME.TEXT;

:ŞDIT3.TEXT:= TablelF _AUTHORITY.TEXT;

EDIT4.TEXT:= TableIPHONE.TEXT;

EDITS.TEXT:= TablelFAX.TEXT;

EDIT6.TEXT:= TablelPOST AL_CODE.TEXT;

EDIT7.TEXT:= TablelADDRESS.TEXT;

EDIT8.TEXT:= TablelNOTE.TEXT;

DATETIMEPICKERl.DATE:=TABLElDATE.VALUE;

end;

procedure TFormI2.BitBtn4Click(Sender: TObject);

begin

TABLEI.NEXT;

EDITl.TEXT:= TablelFIRM_NO.TEXT;

EDIT2.TEXT:= TableIF_NAME.TEXT;

EDIT3.TEXT:= TablelF _AUTHORITY.TEXT;

EDIT4.TEXT:= TablelPHONE.TEXT;

EDITS.TEXT:= TablelFAX.TEXT;

EDIT6.TEXT:= TablelPOSTAL_CODE.TEXT;

EDIT7.TEXT:= TablelADDRESS.TEXT;

EDIT8.TEXT:= TablelNOTE.TEXT;

DATETIMEPICKERl .DATE:=TABLEIDATE.VALUE;

end;

procedure TForm12.BitBtn3Click(Sender: TObject);

begin

TABLEI .APPEND;

EDITI.TEXT:=\

EDIT2.TEXT:=";

EDIT3.TEXT:=";

EDIT4.TEXT:=";

EDIT5.TEXT:=";

EDIT6.TEXT:=";

EDIT7.TEXT:=";

EDIT8.TEXT:=";

EDITl.SetFocus;

end;

procedure TFormI 2.BitBtn7Click(Sender: TObject);

var

tus:INTEGER;

begin

TUS:=APPLICATION.MESSAGEBOX('ARE YOU SURE DELETE RECORD?',

59

(63)

'KURKCUOGLU EXHAUST SERVICES',MB YESNO); IF TUS=IDYES THEN BEGIN TABLE 1 .DELETE; TABLE I.PRIOR; EDITI.TEXT:= TablelFIRM_NO.TEXT; EDIT2.TEXT:= TablelF _NAME.TEXT;

EDIT3. TEXT:= Table IF_AUTHORITY. TEXT; EDIT4.TEXT:= TablelPHONE.TEXT;

EDITS.TEXT:= TablelFAX.TEXT;

EDIT6. TEXT:= Table !POST AL_ CODE. TEXT; EDIT7.TEXT:= TablelADDRESS.TEXT; EDITS.TEXT:= TablelNOTE.TEXT; DATETIMEPICKERI.DATE:=TABLEIDATE.VALUE; SHOWMESSAGE('RECORD DELETED'); end; END;

procedure TF orm 12 .BitBtn6Click(Sender: TObject); begin

BITBTNI .ENABLED:=F ALSE; BITBTN2.ENABLED:=F ALSE; BITBTN3 .ENABLED:=F ALSE; BITBTN4.ENABLED:=F ALSE; BITBTNS .ENABLED:=F ALSE; BITBTN6. VISIBLE:=F ALSE; BITBTN7.ENABLED:=F ALSE; BITBTN8.VISIBLE:=TRUE; BITBTN9. VISIBLE:=TRUE; end;

ara:= False; Table I.First;

While not Tablel .Eof Do begin

If (TablelFIRM_NO.Text = Edit I.Text) Then ara:=true;

Table l.Next; end;

Table l .First;

If (TablelFIRM_NO.Text = Edit I.Text) Then begin

(64)

ShowMessage('RECORD NUMBER ANOTHER RECORD FOR USE! .. !'); end;

Table I.Next; end;

end;

TABLEl.APPEND;

TablelFIRM_NO.TEXT:=EDITI.TEXT; TablelF _NAME.TEXT:= EDIT2.TEXT;

Table IF_ AUTHORITY. TEXT:= EDIT3. TEXT;

TablelDATE.V ALUE:=DATETIMEPICKERl .DATE; TablelPHONE.TEXT:= EDIT4.TEXT; TablelFAX.TEXT:= EDITS.TEXT; TablelPOSTAL_CODE.TEXT:= EDIT6.TEXT; TablelADDRESS.TEXT:= EDIT7.TEXT; TablelNOTE.TEXT:= EDITS.TEXT; TABLE I.POST; BEGIN

SHOWMESSAGE(' RECORD SAVED'); END; TABLE I .APPEND; EDITl.TEXT:="; EDIT2. TEXT:="; EDIT3. TEXT:="; EDIT4. TEXT:="; EDITS.TEXT:="; EDIT6.TEXT:="; EDIT7.TEXT:="; EDITS.TEXT:="; EDITl.SetFocus; end; end;

procedure TF orm l 2.BitBtn8Click(Sender: TObject ); begin BITBTNl .ENABLED:=TRUE; BITBTN2.ENABLED:=TRUE; BITBTN3 .ENABLED:=TRUE; BITBTN4.ENABLED:=TRUE; BITBTN5 .ENABLED:=TRUE; BITBTN6.VISIBLE:=TRUE; BITBTN6.ENABLED:=TRUE; BITBTN7.ENABLED:=TRUE; BITBTN8. VISIBLE:=F ALSE; BITBTN9. VISIBLE:=F ALSE; end;

(65)

procedure TForml2.BitBtn2Click(Sender: TObject); begin

procedure TForml2.BitBtn9Click(Sender: TObject); begin

TABLEl.EI)IT;

TablelFIRM_NO.TEXT:= EDITl.TEXT; TablelF _NAME.TEXT:= EDIT2.TEXT;

Table IF _AUTHORITY.TEXT:= EDIT3.TEXT; TablelDATE.V ALUE:=DATETIMEPICKERl.DATE; TablelPHONE.TEXT:= EDIT4.TEXT;

Table IF AX.TEXT:= EDITS.TEXT;

Table lPOST AL_ CODE. TEXT:= EDIT6. TEXT; TablelADDRESS.TEXT:= EDIT7.TEXT; TablelNOTE.TEXT:= EDITS.TEXT; TABLEl.UPDATERECORD; BITBTNl .ENABLED:=TRUE; BITBTN2.ENABLED:=TRUE; BITBTN3.ENABLED:=TRUE; BITBTN4.ENABLED:=TRUE; BITBTNS.ENABLED:=TRUE; BITBTN6. VISIBLE:=TRUE; BITBTN7.ENABLED:=TRUE; BITBTN8. VISIBLE:=F ALSE; BITBTN9.VISIBLE:=FALSE; end;

(66)

2.6.2 FIRM SEARCH SCREEN

Firm search screen is firm no and firm name search. This find records take list and

print.

SEARCH

löôoı

! L---··-··---··--··----·---··---··-' ~FIRMNO CFIRMNAın

63

(67)

2.6.2.1 FIRM SEARCH SCREEN SOURCE CODE

procedure TF orm

13

.BitBtn

1

Click(Sender: TObject ); Var

ara: Boolean; begin

Table2 .First;

Table2.Delete; end;

IfRadiobuttonl .Checked Then begin

ara

:=

False; Table

I .First;

While not Table I.EofDo begin

If (TablelFIRM_NQ.Text = Editl.Text) Then

ara=true;

Table l.Next; end;

Table I .First;

If (TablelFlRM_NO.Text

=

Editl.Text) Then begin

Table2.Append;

Table2FlRM_NO.Text := TablelFIRM_NO.Text; Table2F_NAME.Text := TablelF_NAME.Text;

Table2F _AUTHORITY.Text:= TablelF _AUTHORITY.Text; Table2DATE.Text := TablelDATE.Text; Table2PHONE.Text:= TablelPHONE.Text; 1able2FAX.Text := TablelFAX.Text; Table2POSTAL_CODE.Text := TablelPOSTAL_CODE.Text; Table2ADDRESS.Text

:=

TablelADDRESS.Text; Table2NOTE.Text := TablelNOTE.T~xt; Table2.Post; end; Tablel.Next; end; end; end;

ara

:=

False;

(68)

Table I .First;

If (TableIF _NAME.Text= Editl.Text) Then ara=true;

Table l.Next; end;

Table I .First;

If (TablelF _NAME.Text= Editl.Text) Then begin

Table2.Append;

Table2FIRM_NO.Text := TablelFIRM_NO.Text; Table2F _NAME.Text := TablelF _NAME.Text;

Table2F _AUTHORITY.Text:= TablelF _AUTHORITY.Text; Table2DATE.Text := TableIDATE.Text; Table2PHONE.Text:= TablelPHONE.Text; Table2FAX.Text := TablelFAX.Text; Table2POSTAL_CODE.Text := TablelPOSTAL_CODE.Text; Table2ADDRESS.Text := TablelADDRESS.Text; Table2NOTE.Text := TablelNOTE.T~xt; Table2.Post; end; Table l.Next; end; end; end;

If (ara

=

false) Then begin

ShowMessage('RECORD IS NOT FOUND!.,.'); end;

end;

procedure TForml3.BitBtn2Click(Sender: TObiect); begin

Table2.First;

While not Table2.EofDO begin

Table2.Delete; end;

(69)

form2.show; form 13 .Hide; end;

procedure TForm 13 .BitBtn3Click(Sender: TObject ); begin

FORM33. TABLE 1. OPEN; FORM33.QUICKREP1.PREVIEW; FORM33.TABLE1.CLOSE; end;

66 ..

i'

I

C

(70)

2.6.3 FIRM REPORT SCREEN

Firm report screen, all firm record information screen and print list

2.6.3.l FIRM REPORT SCREEN SOURCE CO:PES

procedure TForml 4.BitBtn3Click(Sender: TObject); begin

FORM34. TABLE 1. OPEN; FORM34.QUICKREP1.PREVIEW; FORM34. TABLE 1. CLQSE; end;

(71)

2.7 CHEQUE

2.7.1 TAKE CHEQUE REGISTRATION SCREEN

New take cheque information registration,but same take cheque number not saved datebase. For not be confusion.

TAKECHEQUENO TAKEFIRM NAME

IDVCEP KUHKCU • L---·---··---: D1JEDATE

,~~~~

JI

IDCCHANGE BANK

I

·ı I

(72)

2.7.1.1 TAKE CHEQUE REGISTRATION SCREEN SOURCE

COJ;)ES

procedure TF orm 15 .BitBtn5Click(Sender: TObject ); begin

TABLE I .PRIOR;

EDITLTEXT:= Table lT _CHEQUE_ NO. TEXT; EDIT2.TEXT:= Tablel T_FIRM_NAME.TEXT; EDIT3.TEXT:= Tablel TOTAL.TEXT;

Et>H4.TEXT:= TablelEXCHANGE_BANK.TEXT; EDITS. TEXT:= Table lBANK _NAME.TEXT;

DATETIMEPICKERl.DATE:=T ABLEl T_DATE.V ALUE; DATETIMEPICKER2.DATE:=TABLE1DUE_DATE.V ALUE; end;

procedure TForm15.BitBtn4Click(Sender: 'I'Object); begin

TAB-LEI.NEXT;

EDIT I.TEXT:= Tablel T_ CHEQUE_NO.TE:XT; EDIT2. TEXT:= Table 1 T_FIRM_ NAME. TEXT; EDIT3.TEXT:= TablelTOTAL.TEXT;

EDIT4.TEXT:= TablelEXCHANGE_BANK.TEXT; EDITS.TEXT:= TablelBANK_NAME.TEXT;

DATETIMEPICKERl.DATE:=TABLElT_DATE.VALUE;

DATETIMEPIC.KER2.DATE:=T ABLE lDUE _DATE. VM,UE; end;

procedure TForm15.BitBtn3Click(Sender: TObject); begin TABLE I.APPEND; EDITl.TEXT:="; EDIT2.TEXT:="; EDIT3. TEXT:="; EDIT4.TEXT:="; EDITS. TEXT:="; EDITl.SetFocus; end;

tus:INTEGER; begin

IF TUS=IDYES- THEN begin

TABLEl .DELETE; TABLE I .PRIOR;

EDITl.TEXT:= TablelT_CHEQUE_NO.TEXT; EDIT2. TEXT:= Table 1 T_FIRM_ NAME. TEXT;

(73)

EDIT3.TEXT:= Table I TOTAL.TEXT;

EDIT4. TEXT:= TablelEXCHANGE _BANK.TEXT; EDITS.TEXT:= TablelBANK NAME.TEXT;

DATETIMEPICKERl.DATE:=TABLElT_DATE.VALUE;

DATETIMEPICKER2.DATE:=TABLEIDUE_DATE.V ALUE; SHOWMESSAGE('RECORD DELETED');

end; end;

procedure TForml5.BitBtn6Click(Sender: 'I'Object); begin

BITBTNl .ENABLED:=F ALSE; BITBTN2.ENABLED:::F ALSE; BITBTN3 .ENABLED:::F ALSE; BITBTN4.ENABLED:=F ALSE; BITBTNS.ENABLED:=F ALSE; BITBTN6. VISIBLE:::F ALSE; BIIBTN7.ENABLED:=F ALSE; BITBTN8.VISIBLE:=TRUE; BITBTN9. VISIBLE:=TRUE; end; ·ı I

procedure TF orm

15

.BitBtn

1

Click(Sender: TObject); VAR

ara := False; Table

I .First;

If (Table IT_CHEQUE_NO.Text = Edit I.Text} Then ara:=true;

Table l.Next; end;

Table I.First;

If (Table1T_CHEQUE_NO. Text = Edit1.Text} Then begin

ShowMessage('RECORD NUMBER ANOTHER RECORD FOR USE!..!'); end;

Table I .Next; end;

end;

If (ara= false} Then

(74)

begin

TABLEl .APPEND;

TablelT _-CHEQUE NO.TEXT:= EDITl.TEXT;

-Tablel T_FIRM_NAME.TEXT:= EDIT2.TEXT;

TableIT_DATE.VALUE:=DATETIMEPICKERI .DATE;

TableI DUE_DATE.VALUE:=DATETIMEPICKER2.DATE;

Tablel TOTAL.TEXT:= EDIT3.TEXT;

TablelEXCHANGE _BANK.TEXT:= EDIT4.TEXT;

TablelBANK_NAME.TEXT:= EDITS.TEXT;

TABLEI.POST;

BEGIN

SHOWMESSAGE(' RECORD SAVED');

END;

TABLEI.APPEND;

EDITl.TEXT:=";

EDIT2.TEXT:=";

EDIT3. TEXT:=";

EDIT4.TEXT:=";

EDITS.TEXT:=";

EDITl.SetFocus;

end;

procedure TFormlS.BitBtn8Click(Sender: TObject);

begin

BITBTNl .ENABLED:=TRUE;

BITBTN2.ENABLED:=TRUE;

BITBTN3.ENABLED:=TRUE;

BITBTN4.ENABLED:=TRUE;

BITBTNS.ENABLED:=TRUE;

BITBTN6.VISIBLE:=TRUE;

BITBTN6.ENABLED:=TRUE;

BITBTN7.ENABLED:=TRUE;

BITBTN8.VISIBLE:=FALSE;

BITBTN9.VISIBLE:=FALSE;

end;

procedure TFormlS.BitBtn2Click(Sender: TObject);

begin

FORM2.SHOW;

FORMIS.HIDE;

end;

procedure TFormlS.BitBtn9Click(Sender: TObject);

begin

TABLEI.EDIT;

TablelT_CHEQUE_NO.TEXT:= EDITI.TEXT;

Table1 T_FIRM_NAME.TEXT:= EDIT2.TEXT;

Table

I

T_DATE.VALUE:=DATETIMEPICKERI.DATE;

Table1DUE_DATE.VALUE:=DATETIMEPICKER2.DATE;

71

·ı

(75)

Tablel TOTAL.TEXT:= EDIT3.TEXT;

TablelEXCHANGE_BANK.TEXT:= EDIT4.TEXT; Table I BANK_ NAME. TEXT:= EDITS. TEXT;

TABLE 1.UPDATERECORD; BITBTNl .ENABLED:=TRUE; BITBTN2.ENABLED:=TRUE; BITBTN3 .ENABLED:=TRUE; BITBTN4.ENABLED:=TRUE; BITBTNS.ENABLED:=TRUE; BITBTN6.VISIBLE:=TRUE; BITBTN6.ENABLED:=TRUE; BITBTN7.ENABLED:=TRUE; BITBTN8.VISIBLE:=F ALSE; BITBTN9.VISIBLE:=FALSE; end; 72

(76)

2.7.2 GIVE CHEQUE REGISTRATION SCREEN

New give cheque information registration,but same give cheque number not saved datebase. For not be confusion.

OM. cm:OUE..N..,Q [MFIRMNAME

L

.

µ_IVE DATE lll.Dl.2001

Om:DAIE

[ıı.ouooı

_I

(77)

2.7.2.1 GIVE CHEQUE REGISTRATION SCREEN SOURCE

CODES

procedure TForml6.BitBtnSClick(Sender: TObject);

begin

TABLE1 .PRIOR;

EDITl.TEXT:= TablelG CHEQUE NO.TEXT;

_-

-EDIT2.TEXT:= TablelG_FIRM_NAME.TEXT;

EDIT3.TEXT:= TablelTOTAL.TEXT;

EDIT4.TEXT:= TablelEXCHANGE _BANK.TEXT;

EDITS.TEXT:= TablelBANK_NAME.TEXT;

DATETIMEPICKERl.DATE:=TABLElG_DATE.VALUE;

DATETIMEPICKER2.DATE:=TABLE1DUE_DATE.VALUE;

end;

procedure TForml6.BitBtn4Click(Sender: TObject);

begin

TABLEI.NEXT;

EDIT

J. TEXT:= Tablel G_CHEQUE_NO.TEXT;

EDIT2.TEXT:= TablelG_FIRM_NAME.TEXT;

EDIT3.TEXT:= Tablel TOTAL.TEXT;

EDIT4.TEXT:= TablelEXCHANGE_BANK.TEXT;

EDITS.TEXT:= TablelBANK_NAME.TEXT;

DATETIMEPICKERl.DATE:=TABLElG_DATE.VALUE;

DATETIMEPICKER2.DATE:=TABLE1DUE_DATE.VALUE;

end;

procedure TForml6.BitBtn3Click(Sender: TObject);

begin

TABLE

I

.APPEND;

EDITl.TEXT:=";

EDIT2.TEXT:=";

EDIT3.TEXT:=";

EDIT4.TEXT:=";

EDITS.TEXT:=";

EDITl.SetFocus;

end;

procedure TForml6.BitBtn7Click(Sender: TObject);

var

tus:INTEGER;

begin

TUS:=APPLICATION.MESSAGEBOX('ARE YOU SURE DELETE RECORD?',

'KURKCUOGLU EXHAUST SERVICES',MB YESNO);

IF TUS=IDYES THEN

begin

TABLEl .DELETE;

TABLEI.PRIOR;

EDITl.TEXT:= TablelG_CHEQUE_NO.TEXT;

EDIT2.TEXT:= Tablel G_FIRM_NAME.TEXT;

(78)

EDIT3.TEXT:= Tablel TOTAL.TEXT;

EDIT4.TEXT:= TablelEXCHANGE_BANK.TEXT; EDITS. TEXT:= Table lBANK _NAME.TEXT;

DATETIMEPICKERl .DATE:=TABLEl G_DATE.VALUE; DATETIMEPICKER2.DATE:=TABLE1DUE _DATE.VALUE;

SHOWMESSAGE('RECORD DELETED'); end;

end;

BITBTNl .ENABLED:=F ALSE; BITBTN2.ENABLED:=F ALSE; BITBTN3 .ENABLED:=F ALSE; BITBTN4.ENABLED:=F ALSE; BITBTNS.ENABLED:=FALSE; BITBTN6.VIS1BLE:=FALSE; BITBTN7.ENABLED:=F ALSE; BITBTN8.VIS1BLE:=TRUE; BITBTN9. VISIBLE:=TRUE; end;

ara :=

False;

TableI .First;

While not Table

I

.Eof Do

begin

If (TabtelG_CHEQUE_NO.Text

=

Editl.Text) Then

ara=true;

Table

l.Next;

end;

If (ara

=

True) Then

begin

TableI .First;

While not Tablel.EofDO

begin

If (TablelG_CHEQUE_NO.Text

=

Editl.Text) Then

begin

ShowMessage('RECORD NUMBER ANOTHER RECORD FOR USE!.. !');

end;

Table! .Next;

end;

(79)

TABLE I .APPEND;

TablelG_CHEQUE_NO.TEXT:= EDITI.TEXT; Table I G_FIRM_ NAME. TEXT:= EDIT2.TEXT; TablelG_DATE.VALUE:=DATETIMEPICKERl.DATE; TablelDUE_DATE.V ALUE:=DATETIMEPICKER2.DATE; Table1TOTAL.TEXT:=EDIT3.TEXT; TablelEXCHANGE_BANK.TEXT:= EDIT4.TEXT; TablelBANK_NAME.TEXT:= EDITS.TEXT; TABLE I.POST; BEGIN

SHOWMESSAGE(' RECORD SAVED'); END; TABLE 1 .APPEND; EDITI.TEXT:="; EDIT2.TEXT:="; EDIT3. TEXT:="; EDIT4.TEXT:="; EDITS.TEXT:="; EDITI .SetFocus; end; end;

procedure TForm16.BitBtn8Click(Sender: TObject); begin BITBTNI .ENABLED:=TRUE; BITBTN2.ENABLED:=TRUE; BITBTN3 .ENABLED:=TRUE; BITBTN4.ENABLED:=TRUE; BITB~S.ENABLED:=TR,UE; BITBTN6. VISIBLE:=TRUE; BITBTN6.ENABLED:=TRUE; BITBTN7.ENABLED:=TRUE; BITBTN8. VISIBLE:=F ALSE; BITBTN9. VISIBLE:=F ALSE; end;

FORM2.SHOW; FORM I 6.HIDE; end;

TABLE I.EDIT;

TablelG_CHEQUE_NO.TEXT:= EDITI.TEXT; TablelG_FIRM_NAME.TEXT:= EDIT2.TEXT;

Table I G_DATE. VALUE:=DATETIMEPICKERl .DATE;

(80)

TablelDUE_DATE.V ALUE:=DATETIMEPICKER2.DATE; Table 1 TOT AL. TEXT:= EDIT3. TEXT;

TablelEXCHANGE_BANK.TEXT:= EDIT4.TEXT; TablelBANK_NAME.TEXT::::; EDITS.TEXT; TABLEl .UPDATERECORD; BITBTNl .ENABLED:=TRUE; BITBTN2.ENABLED::::;TRUE; BITBTN3.ENABLED:=TRUE; BITBTN4.ENABLED:=TRUE; BITBTN5 .ENABLED::::;TRUE; BITBTN6. VISIBLE::::;TRUE; BITBTN6.ENABLED:=TRUE; BITBTN7.ENABLED:=TRUE; BITBTN8. VISIBLE:=F ALSE; BITBTN9. VISIBLE:=F ALSE; end;

(81)

2.7.3 CHEQUE SEARCH SCREEN

Cheque search screen is take cheque no, take firm name,take due date, give cheque no,

give firm name and give due date search.Take and give cheque due date search,first

date and last date between search. This find records take list and print.

SEAR.ı

0001

FIRST DATE LAST DATE

[10.01.2001

Jı]

lıo.oı.ıooı

j

,;, TAKE CHEQUE NO

r

TAKE FIRM NAME

C TAKE DUE DATE

C GIVECHEQUENO

r GIVEFIRM NAME

C GIVEDUE DATE

(82)

2.7.3.1 CHEQUE SEARCH SCREEN SOURCE CODE

procedure TForml 7.BitBtnlClick(Sender: TObject);

Var

ara: Boolean;

begin

DBNAVIGATORl.VISIBLE:=FALSE;

DBNAVIGATOR2.VISIBLE:= FALSE;

DBGRID

1.