NEAR EAST UNIVERSI

(1)

NEAR EAST UNIVERSI

· FACULTY OF ECONOMICS AND

ADMINISTRATIVE SCIENCES

DEPARTMENT OF COMPUTER

INFORMATION SYSTEMS

2007/2008 FALL TERM

CIS 200

(Graduation Project)

Film&Music Center Automation System

Submitted To: Department of C.I.S

Submitted By: UGUR KURU(20040588)

Lefkoşa

2008

(2)

1. ACKNOWLEDGEMENTS

3 2. ABSTRACT

4 3. INTRODUCTION

5 4. DESIGN OF THE SYSTEM

• Explanation

6-8

• Database Design

9-14

5. USER MANUAL

-• User Guidlines

15 • User Flow Charts

16-26

6. REFERENCES

27 APPENDIX I

• Screen Outputs

28-35

APPENDIX II

• Source Code

36-94

2

(3)

ACKNOWLEDGEMENTS

I want to thnak to;

My instructors Dr.Yalçın AKÇALI and Miss.Nadire ÇAVUŞ and Assoc.Prof.Dr.ilham Huseynov for their support in completion of my project.

My friend Mustafa Güler,Burak Martonaltı and Uğur Ersan for his technical and psychological contribution and support to conclude the project.

Also thanks to:

My family for providing me with financial support while

preparing the projet and their psychological support in all parts of

life by providing me comfort and the necessary conditions to develop myself and educate in high level

(4)

ABSTRACT

I chose "Delphi Programming Language" for my CIS 200 graduation project that causes by; programming languges that be visual , have an easy syntax , using speaking english is very to ease this programming language.In addition to identifying data types , special functions and procedures to ease and after as times as long using again them is very easy. These days "Delphi" improving software to enable in leading windows and linux , machintosh sections that is advanced

programming languages what to takes lead one of the programming languages and to prove itself in these area.there are lots of components about delphi i web base and these components to enable us that

writting flexible programmes too rapidly.I used these components for my project and i believe to be a successful.Delphi creates a flexible area to entirety assembler for user and to provide working high level languages depenence.I will explain that necessary things to working delphi in introductio section.

(5)

\

INTRODUCTION

The minimum requirements of the system are as follow;

Intel Pentium III processor 550 MHz. 128 MB of RAM 14" Monitor 30 Gb Harddisk Microsoft Windows 2000 LG CD-ROM CRD 8552B

DAVIDom 9102-Based PCI Fast Ethernet Adapter

The recommended requirements of the system as follow;

Intel Pentium IV processor 800 MHz

256MB of RAM 60 GB Harddisk

17'' Monitor

Microsoft Windows XP Professional LG CD-ROM CRD 8552B

DAVIDom 9102-Based PCI Fast Ethernet Adapter

I used Delphi programming language for writing this project and Ms Access 2003 database for keeping the data and maintaining it.

Besides, to be able to run this program , Delphi has installshield express wizard that encodes the program and gives the execution of program to the user.

(6)

DESIGN OF THE SYSTEM

Explanation:

I'm using password section for protect un-authorized person and protect for all information in program.Customer,supplier,selling

process,product informations and other process accessing form main menu section and to organize all procedure.For ex: delete,update,edit and other porcess.You watching most popular (I think) films trailer in "W ateh Film Trailer" section.You get information about

films,actors,directors and many information see "IMDB" section.I

think, you have a question. What is .the DELPHI 7 ? I 'm answering

now;

Object Pascal is an object oriented derivative of Pascal mostly known as the primary programming language of Borland Delphi. It is also known as the Delphi programming language when describing the dialect used by Borland Delphi.

Borland used the name "Object Pascal" for the programming language in the first versions of Borland Delphi, but later renamed it to the "Delphi programming language". However, compilers that claim to be Object Pascal compatible are often trying to be compatible with Delphi source code.

Borland sells integrated development environments (IDEs) that compile the Delphi programming language to Microsoft Windows, the Microsoft .NET Framework and Linux. The open source Free Pascal project allows the language to be compiled for Linux, Mac OS X, Win64, Windows CE, and others

Borland Delphi (now a product of Borland's subsidiary,

CodeGear) is a software development package created by Borland. The eleventh and latest version, Delphi 2007 supports the Delphi programming language (Object Pascal) and C++ for the 32 bit Microsoft Windows platform, as well as Delphi and C# for the Microsoft .NET platform.

(7)

Delphi's most popular use is the development of desktop and enterprise database applications, but as a general-purpose

development tool it is capable of, and is used for, most types of development projects.

The Delphi product is distributed as various suites: Personal, Professional, Enterprise (formerly Client/Server) and Architect.

-Advantages-Delphi exhibits the following advantages: Rapid Application Development (RAD)

Based on a well-designed language - high-level and strongly typed, with low-level escapes for experts (McConnell 1993:49).

A large community on Usenet and the web (e.g.

news://newsgroups.borland.com and Borland's web access to

Delphi newsgroups),

Can compile to a single executable, simplifying distribution and reducing DLL versioning issues.

Many VCL (Visual Component Library) and third-party

components (usually available with full source code) and tools (documentation, debug tools, etc.)

Quick optimizing compiler and ability to use assembler code Multiple platform native code from the same source code

High level of source compatibility between versions CrossKylix -a third-p-arty toolkit which -allows you to compile n-ative Kylix/Linux applications from inside the Windows Delphi IDE, hence easily enabling dual-platform development and development.

CrossFPC - a sister project to CrossKylix, which enables you to cross compile your Windows Delphi applications to multiplatform targets -supported by the Free Pascal compiler - without ever leaving the

Delphi IDE. Currently CrossFPC is in a closed beta test, only available to members of the development team. Class helpers to bridge functionality available natively in the Delphi RTL.

The language's object orientation features only class- and interface-based polymorphism

(8)

Delphi 2005, Delphi 2006 and Delphi 2007 all support advanced refactoring features such Method Extraction, etc.

-Disadvantages-Limited cross-platform capability for Delphi itself. A

reluctance to break any code has led to some convoluted language design choices, and orthogonality and predictability have suffered. The newer versions of Delphi have suffered some stability issues

(9)

Database Design

Database Name: MusicFilın.ındb

~ Database tables and relationships show as above pages;

(10)

(11)

T""" T"""

(12)

(13)

-~.~·.,--,

f

II

'~

(14)

..c CJ) C o +-'

_cu

Q) ,

s::::ı-a:

_I

_,- Q) CJ)

cu

..c

cu

+-'

_cu

o

(15)

USER MANUAL

User Guidlines :

On Main Menu

Customer Information : Click here to see the customers. Products Information: Click here to see products.

Selling Process: Click here to do selling process. Supplier Information : Click here to see suppliers.

Internet Movie Database: Click here to see information movie on

web.

Watch Film Trailer : Click here to see the most popular film trailer. Reports: Click here to see reports

About Programmer : Click here to see information about myself. About Programmer : Click here to see information about my project.

(16)

User Flow Charts :

(17)

E

co

~ O)

o

~

o,

o

...-Cl) Cl) (]) Q. (.)

o

<(

.•.... (/) "O Q)

ı...

::J

o

ı...

C

_3:

I-"O O) Cl)

ı...

o

Cl)

t:H

o

_J

co

..,., C

co

3:

o

o,

co

•••••• Cl) .•.... Q) O) (/) Cl) .Y..

.c

co

(.) .•....

o,

·-

ı...

C"

Ü _.•....Q) I-C

uı

(18)

C

o

+-'

_cu

_+-'

cu

E

Cl)

o

cu

ı...

o

Q) _~

.•...

E

ı...

:::::s C

cu

C

-

o

"'C Cl)

t:H

m

ı...

+-' "'C

ııı

H

mH

o,

Q) Cl)

cu

~

_E

:::::s ~ Ü Ü "'C

o

..., C

_o

~ Q) "'C

ci5

(/)

·-

+-' ~ Ü

z

-

cu

Cl) ~ :::::s

o

Ü Q) Ü ..c_(/) ..c_+-'

ı...

Q)

ı...

+-' Q) C +-'_C UJ _UJ co

(19)

,-+-'_(.)

:::J

"'C

o

~

o,

"'C "'C

<(

co

+-'

co

o

Cf) Cf)

c"

+-' +-'

_co

::J

Ü Ü C

::J

"O Cf)

tH©

"O "O "O

~H~H

o,

co

~

o

ı....

o

ı.... ~ Ü "O

o

+-' C

o,

~ Q) "O

U)

Cl) ·- ı.... Ü

z

<(

co

Q)

3:

·-~ +-'

o

Q) C _..c ..c

uı

Cl) +-'ı.... Q) +-' C

uı

O)

(20)

,--co

+J

co

o

~

C'

Q)

co

Cl. "O CJ) "O

OOH~

t:H-H

~H

CL ~ Q) Q)

co

~

:J :J (.) "O +J C Cf) Cf) _.Y. Q) "O Cf) ·- ~

3:

(.)

z

_<(

o

_o

Q) ..c ..c Cf) +J_~ Q) +J C

uı

· -

_a.

a.

:::J

CJ)

'"'O '"'O

<(

o C\J

(21)

en

+,,I (.)

:,

"'O

o

,.__

o,

..c

(.)

,.__

ctı

Cl) Cf) ..•...• (.) :J '"C

o

:...

a..

s

o

..c Cf) Cl)

I

CJ)

~I

I

E

co

~

z

:... ..•...•

tH

co

E

'"C:J

co

..•....

o

_o

O) Cf) ..•..•• :...

co

CJ)

a..

~ :J Ü

co

_:... I-Cl) ..•...• C

uı

o.

o

..•...• Cf) ,-C\J

(22)

~ Q)

--

_Cl. Cl.

:::J

(f)

..c

(.) ~ ~ Q) (f) lı... (l) Q. Q. :J CJ) ~

o

..c CJ) Q.

o

.•...•

CJ) (l)

I

Cl)

o

E

co

~

-

C

z

-

lı... lı... _(l) C

t:H

_co

w

_E

Q.

co

.•....

o

Q. O) CJ) .•...• :J

co

Cl) _CJ)

e-:J Ü

co

I-lı... (l)

.•...•

C

w

N N

(23)

II!

,_

Q)

E

o

••••••

Cl)

:::J

Ü

..c

(.)

,_

~ Q) I ~ (J) (1)

E

o

I

00 ::J

lô

o

_,

I _I _Ü

lf)

s

C')

_,

C\J

o

s:

,;;,

I

en

-:,,._ ••• (1)

E

I

en

~I

I

(U ~

z

~ ~ (1)

t:H

w

E

~

E

o

Cf) _+-'

o

+-'

en

::J

Ü Ü (U ~ (1) +-' C UJ

(24)

+-' (.)

::::,

"'C

o

_~

o.

Q) +-' Q)

-

_Q)

o

"O Q) .•....• Q) Q)

o

Q.

o

.•....• Cl)

en

~ I

o

-Q)

o

_C "+- .•....•

z

C Q)

·-

_ccs

tH::

Q) O) ccs Ü

o

ccs .•... ::J

l

::: ~ Cl) "O ~

o

Ü I-),...

o,

Ü

(25)

o.

:J

Cf) Q)

+-'

Q)

-

_Q)

o

Cf) ~ I ,

o

-Q)

o

_C '+- +..ı C Q)

z

_co

-tH~

Q) O)

co

.

Q)

o

'+-co

+..ı -

-Cf)

o,

l

.::ı:.

_C"

o,

Ü I-::::::; Cf) _Ü I.{) C\J

(26)

~ (])

E

o

+-'

Cl)

:J

Ü

(])

+-'

_(])

-

_(])

o

~Ho..

+-'

o

(l) +-' (l) Cf)

o

en

~I

12

1 ~

tH~

(l)

o

co

(l) (l)

z

C

·-....

E

o

co

Cf)

o

1

:::: O) +-' ~

co

en

Ü ~ ::::,

·-Ü Ü

r-(O N

(27)

REFERENCES

Programs: Delphi 7

Ms Access 2003 AAA Logo

The Logo Creator 5.0

Web Site: www .programlama.com www .delphi3000.com www .delphiturk.com www .delphiturkiye.com www.film.gen.tr www.sinemalarim.com Books:

BALKAN Ezel, Borlan Delphi 7 .O ,Seçkin Yayıncılık San. ve Tic. A.Ş. , Ocak-2006

PALA Zeydin,Borland Delphi 7 Uygulama Geliştirme Rehberi 34 Konuda Delphi 7,Türkmen Kitabevi,2003

PALA Zeydin,24 Derste Access 2003, Türkmen Kitabevi,2004

KURNAZ Sefer,Veri Yapıları ve Algoritma Temelleri,Papatya Yayıncılık,2004

KÖSEOGLU Kerem,Programcılık Mantığı,Pusula Yayınları, Temmuz-2005

(28)

APPENDIX I

Screen Outputs:

MAIN PAGE(Figurel)

CUSTOMER INFORMATION(Figure 2)

PRODUCT INFORMATION (Figure 3)

SUPPLIER INFORMATION (Figure 4)

SELLING PROCESS (Figure 5)

REPORTS (Figure 6)

WATCH FILM TRAILER(Figure 7)

INTERNET MOVIE DATABASE(Figure 8)

(29)

(30)

C\J Q)

ı...

:::J

O) LL O) C\J

(31)

l

i i

I

N N N

o

(32)

t "i E

j ~

Q, ~ ~ eıı;: ·"'1 "' ~

11

N "O ı-. ~ ro .~ ı... _'6 _"O ro

]

'?c N "' CX) "Cl ~ ,... z lıı

₊

I .Q e

•

.::ııı: 'Ô !

z

~ 'Q H I.\!

I

.;Q _ı:Z. q/

+

Q I .~ .ı:: Al o..

(33)

ıh L() _N ...• I Ct) Q) ı.... I

::J

:r; O)

·-LL I ffl

(34)

(O Q) C") ~ C") :::::, O) LL

(35)

(36)

·t/J

I

;)%..·.:

•• iti

I:

il

·. ' ; Jj

:ıi. [Tl'··....'

...ı:ı

.·•·.·....·.··.··.·.··...·.·.··..···•.·•.·

! • t.1111

•

il • ,s'

_{.;· I}

-.· ..

I ;

ı

I

a

1-iı

1

.ı t&

co

Q) ıo ı.... Cf)

:J

O) LJ..

(37)

#APPENDIX

II#

Source Codes:

Unitl . pas(Password)

unit Unitl; interface uses

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

Dialogs, StdCtrls, Buttons, jpeg, ExtCtrls; type TForml =class(TForm) Editl: TEdit; BitBtnl: TBitBtn; BitBtn2: TBitBtn; Label2: TLabel; Timerl: TTimer; Imagel: Tlmage;

procedure BitBtnlClick(Sender: TObject);

procedure BitBtn2Click(Sender: TObject); procedure Timerl Timer(Sender: TObject); procedure FormCreate(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction); private { Private declarations } public { Public declarations } end· ' var Forml: TForml; implementation uses Unit2; {$R *.dfm} 36

(38)

procedure TForml.BitBtnlClick(Sender: TObject); begin if editl.Text='uur84' then begin showmessage('Password Accepted'); forml.hide; form.2.show; end else

showmessage('WRONG PASSWORD!! !TRY AGAIN'); end·

'

procedure TForml .BitBtn2Click(Sender: TObject); begin

close; end·

'

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

CAPTION:=COPY(CAPTION,2,LENGTH(CAPTION) l)+CAPTION[l];

end·

'

procedure TForml .FormCreate(Sender: TObject); begin

forml .Caption:=('***P AS S WORD***'); end·

'

procedure TForml .FormClose(Sender: TObject; var Action: TCloseAction);

var

x:integer; begin

(39)

x:=messagedlg('Do Want to Exit to Program',mtwarning,[mbyes,mbno],0); if x=mrno then action: =canone else end· ' end. Unit2.pas(Main Menu) unit Unit2; interface uses

Dialogs, StdCtrls, Buttons, ComCtrls, ExtCtrls, jpeg; type TForm2 = class(TForm) Labell: TLabel; BitBtnl: TBitBtn; BitBtn2: TBitBtn; BitBtn3: TBitBtn; BitBtn4: TBitBtn; BitBtn6: TBitBtn; DateTimePicker 1: TDateTimePicker; Imagel: Tlmage; Timer 1: TTimer; BitBtn5: TBitBtn; BitBtn7: TBitBtn; BitBtn8: TBitBtn; BitBtn9: TBitBtn; BitBtnlO: TBitBtn;

procedure BitBtn 1 Click(Sender: Tübject);

(40)

procedure BitBtn2Click(Sender: TObject); procedure BitBtn3Click(Sender: TObject); procedure BitBtn4Click(Sender: TObject): procedure BitBtn5Click(Sender: TObject); procedure BitBtn6Click(Sender: TObject); procedure FormCreate(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure Timerl Timer(Sender: TObject);

procedure BitBtn7Click(Sender: TObject); procedure BitBtn8Click(Sender: TObject); procedure BitBtn9Click(Sender: TObject);

procedure BitBtnlOClick(Sender: TObject);

private { Private declarations } public { Public declarations } end· ' var Form2: TForm2; implementation

uses Unit3, Unit4, Unit5, Unit6, Unit7, Unitl, Unit8, Unit9, Unitlü, Unit20, Unit22;

{$R *.dfm}

procedure TForm2.BitBtn1Click(Sender: TObject);

begin

form2.Hide; form3.Show; end·

'

begin form2.Hide; form4.show; end· ' 39

(41)

procedure TForm2.BitBtn3Click(Sender: TObject); begin form2.Hide; form5.Show; end· '

begin

form2.Hide; form6.show; end·

'

begin

form2.Hide; form7 .show; end·

'

begin

forml .close; end·

'

procedure TForm2.FormCreate(Sender: TObject);

begin

form2.Caption:=('***M A I N***M EN U***'); datetimepickerl .Date'Timer=now;

end·

'

procedure TForm2.FormClose(Sender: TObject; var Action:

TCloseAction);

(42)

var

z:integer; begin

z:=messagedlg('Do Want to Exit to Program' ,mtwarning,[mbyes,mbno ],O); if z=mrno then

action.ecanorıe else

end·

'

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

CAPTION:=COPY(CAPTION,2,LENGTH(CAPTION)-1 )+CAPTION[ CAPTION:=COPY(CAPTION,2,LENGTH(CAPTION)-1];

end·

'

begin

form2.hide; form8. show; end·

'

begin

form2.hide; form22.show; end·

'

begin form2.Hide; formlü.show; end· ' 41

(43)

procedure TForm.2.BitBtnlOClick(Sender: TObject); begin form.2.Hide; form.20.show; end· '

end.

Unit3. pas( Customer Information)

unit Unit3; interface uses

Dialogs, StdCtrls, Buttons, Grids, DBGrids, ExtCtrls, DBCtrls, Mask, DB,

ADODB, ComCtrls, jpeg, OleCtnrs, RpDefine, RpCon, RpConDS; type TForm3 =class(TForm) DateTimePickerl: TDateTimePicker; Label8: TLabel; OpenDialog 1: TOpenDialog; Timer 1: TTimer; Imagel: Tlmage; GroupBoxl: TGroupBox; Label12: TLabel; Labell: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; Label7: TLabel; Label9: TLabel; 42

(44)

DBEditl: TDBEdit; DBEdit2: TDBEdit; DBEdit3: TDBEdit; DBEdit4: TDBEdit; DBEdit5: TDBEdit; DBEdit6: TDBEdit; DBEdit7: TDBEdit; DBEdit8: TDBEdit; BitBtn3: TBitBtn; BitBtn4: TBitBtn; BitBtn5: TBitBtn; BitBtn6: TBitBtn; BitBtn7: TBitBtn; BitBtn8: TBitBtn; GroupBox2: TGroupBox; DBGridl: TDBGrid; Labell O: TLabel; Editl: TEdit; BitBtn2: TBitBtn; DBGrid2: TDBGrid; ADOConnectionl: TADOConnection; ADOTable 1: TADOTable; Dataxource 1: TDataSource; AD0Queryl: TAD0Query; DataSource2: TDataSource;

procedure FormCreate(Sender: TObject);

procedure DBEditlClick(Sender: TObject);

procedure BitBtn4Click(Sender: TObject); procedure BitBtn5Click(Sender: TObject); procedure BitBtn8Click(Sender: TObject); procedure BitBtn7Click(Sender: TObject); procedure BitBtn6Click(Sender: TObject); procedure BitBtn3Click(Sender: TObject); procedure BitBtn2Click(Sender: TObject); private

{ Private declarations }

(45)

public { Public declarations } end· ' var Form3: TForm3; implementation uses Unit2; {$R *.dfm}

begin

Form3.close; form2.show; end·

'

begin

form3.Caption:=('***C U S TOMER ***INF ORM AT I O

N***');

datetimepickerl .DateTime:=now; editl.Text:=' ';

end·

'

TCloseAction); begin

form2.Show; end·

'

procedure TForm3.Timerl Timer(Sender: TObject); begin CAPTION:=COPY(CAPTION,2,LENGTH(CAPTION) l)+CAPTION[l]; end· ' 44

(46)

procedure TForm3.DBEdit1Click(Sender: TObject); begin

dbeditl.Text := intToStr(ADOTablel.RecordCount + l);

end;

begin

adotable 1 .Next; end·

'

begin

adotable 1 .Prior; end·

'

var a:word; begin

a:=messagedlg('Do You Want to Delete This Record?',mtwarning,[mbyes,mbno],O);

if a=mr Yes Then adotable 1 .Delete; end·

'

begin

dbeditl.Text := intToStr(ADOTablel.RecordCount

+

l);

adotable 1 .Insert; end·

'

begin

(47)

adotable 1 .Edit; end·

'

procedure TForm3.BitBtn3Click(Sender: Tübject);

begin

adotable 1. UpdateRecord; end·

'

procedure TForm3.BitBtn2Click(Sender: Tübject);

begin

with adoqueryl do begin

close; sqI.Clear;

sql.Add('select

*

from customer');

sql.Add('where customer_name="'+editl.text+""); execsql; open; end· ' end· ' end.

Unit4. pas(Product Information)

Dialogs, StdCtrls, Buttons, Grids, DBGrids, ExtCtrls, DBCtrls, Mask,

ComCtrls, DB, ADODB, jpeg; type

TForm4 = class(TForm)

(48)

DateTimePickerl: TDateTimePicker; Imagel: Tlrnage; Label3: TLabel; Timerl: TTimer; DBimagel: TDBimage; BitBtn2: TBitBtn; OpenDialog 1: TOpenDialog; GroupBoxl: TGroupBox; Label5: TLabel; Label6: TLabel; Label13: TLabel; DBRadioGroupl: TDBRadioGroup; Label7: TLabel; Label9: TLabel; Labell 1: TLabel; GroupBox2: TGroupBox; Labell: TLabel; DBEdit4: TDBEdit; Label2: TLabcl; DBEdit5: TDBEdit; Label4: TLabel; DBEdit6: TDBEdit; Label8: TLabel; Label12: TLabel; DBEdit9: TDBEdit; DBGridl: TDBGrid; DBEdit8: TDBEdit; BitBtn3: TBitBtn; BitBtn4: TBitBtn; BitBtn5: TBitBtn; BitBtn6: TBitBtn; BitBtn7: TBitBtn; BitBtn8: TBitBtn; GroupBox3: TGroupfsox; Label14: TLabel: Editl: TEdit; DBGrid2: TDBGrid; BitBtn9: TBitBtn; ADOConnection 1: TADOConnection; 47

(49)

ADOTable 1: T ADOTable; DataSourcel: TDataSource; ADOQueryl: TADOQuery; DataSource2: TDataSource; DBEditl: TDBEdit; DBComboBoxl: TDBComboBox; DBComboBox2: TDBComboBox; DBEdit3: TDBEdit; DBEdit7: TDBEdit; DBComboBox3: TDBComboBox;

procedure DBRadioGroup

1

Change(Sender: TObject);

procedure FormCreate(Sender: TObject):

procedure DBComboBox3Click(Sender: TObject);

procedure DBComboBox3Change(Sender: TObject);

procedure FormClose(Sender: TObjecı; var Action: TCloseAction); procedure Timerl Timer(Sender: TObject):

procedure BitBtn2Click(Sender: TObject);

procedure DBEditlClick(Sender: TObject);

procedure BitBtn3Click(Sender: TObject); procedure BitBtn4Click(Sender: TObject); procedure BitBtn7Click(Sender: TObject); procedure BitBtn6Click(Sender: TObject); procedure BitBtn5Click(Sender: TObject): procedure BitBtn8Click(Sender: TObject); procedure BitBtn9Click(Sender: TObject); private { Private declarations } public { Public declarations } end· ' var Form4: TForm4; implementation uses Unit2; {$R *.dfm 48

(50)

procedure TForm4.BitBtn1Click(Sender: TObject); begin Form4.Hide; Form2.Show; end· '

procedure TForm4.DBRadioGroup1Change(Sender: TObject);

begin

dbcombobox2.Visible:=false; end·

'

begin

editl.Text:=' ';

form4.Caption:=('***P ROD UC T S***I NF ORM AT I O N***');

datetimepickerl .Date'Timc.enow; if dbcombobox3.Text = ('Film') then begin dbcombobox 1. visible:=true; dbedit7 .visible.etrue; label7 .Visible.etrue; dbcombobox2.visible:=false; label9 .Visible:=false; end· '

if dbcombobox3.text = ('Music') then begin dbcombobox 1.visibler=false; dbedit7. visible:=false; label7. visible.efalse; dbcombobox2.visible:=true; label9. Visible:=true; end· ' end· ' 49

(51)

procedure TForm4.DBComboBox3Click(Sender: TObject); begin

if dbcombobox3. Text = ('Film') then begin

dbcombobox lvisibler=tnıc; dbedit7. visible.etrue;

dbcombobox2. visible: =false; label9. Visible: =false;

label7. Visible.etrue; end·

'

if dbcombobox3.text = ('Music') then begin dbcombobox 1. visibler=false; dbedit7. visible:=false; dbcombobox2.visible:=true; label9. Visible.etrue; label7. visible:=false; end· ' end· '

procedure TForm4.DBComboBox3Change(Sender: TObject);

begin

if dbcombobox3. Text = ('Film') then begin dbcombobox 1 .Enabled:=true; dbedit7 .Enabled.etrue; dbcomboboxz.Enabled.efalse; label9 .Enabled.efalse; labell 1.Enabled:=true; end· '

if dbcombobox3.text = ('Music') then begin dbcombobox 1 .enabled.efalse; dbedit7 .enabled.etrue; dbcombobox2.enabled:=true; labell 1 .Enabled.etrue; end· ' end· ' 50

(52)

procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction); begin form2.Show; end· '

end·

'

begin

opendialog 1 .execute;

dbimage 1 .Picture.LoadFromFile( opendialog 1 .FileN ame); end·

'

procedure TForm4.DBEdit1Click(Sender: TObject);

begin

dbeditl.Text := intToStr(ADOTablel.RecordCount + 1);

end·

'

begin

adotable 1 .Prior;

if dbcombobox3.Text = ('Film') then begin

dbcomboboxl .visible.etrue; dbedit7. visible=truc;

label 7.Visible: =true;

dbcombobox2.visible:=false; label9. Visible.efalse;

ı

labell 1.Visible:=true;

•

(53)

end·

'

if dbcombobox3.text = ('Music') then begin dbcombobox 1. visibleı=false; dbedit7 .visible:=true; dbcombobox2.visible:=true; label9 .Visible:=true; label7. visibler=false; end· ' end· '

begin

adotable 1 .Next;

if dbcombobox3.Text = ('Film') then begin dbcombobox 1.visible:=true; dbedit7. visiblc.=true: label7. Visible.etrue; dbcombobox2.visible:=false; label9. Visible:=false; labell lVisiblec=truc: end· '

if dbcombobox3.text = ('Music') then begin dbcombobox 1 .visible:=false; dbedit7 .visible:=true; dbcombobox2.visible:=true; label9 .Visible:=true; label7. visible:=false; end· ' end· '

var e:word; begin

(54)

e:=messagedlg('Do You Want to Delete This Record?',mtwarning,[mbyes,mbno],0);

if e=mr Yes Then adotable 1 .Delete; end·

'

begin

adotable 1 .Insert;

dbeditl.Text := intToStr(ADOTablel.RecordCount + l);

end·

'

begin

'

begin

adotablel .UpdateRecord; end·

'

begin

with adoqueryl do begin

close; sql.Clear;

sql.Add('select

*

from products');

sql.Add('where product_name="'+editl.text+""); execsql; open; end· ' end· ' 53

,

(55)

end.

Unit5. pas(Selling Process)

unit Unit5; interface

uses

Dialogs, StdCtrls, Buttons, DBCtrls, Grids, DBGrids, ExtCtrls, Mask, DB,

ADODB, ComCtrls, jpeg; type TForm5

=

class(TForm) Labell: TLabel; GroupBox 1: TGroupBox; Label2: TLabel; Label3: TLabel; DBEditl: TDBEdit; Label4: TLabel; DBEdit3: TDBEdit; DBEdit4: TDBEdit; DBEdit5: TDBEdit; Label5: TLabel; Label6: TLabel; Label7: TLabel; Label8: TLabel; GroupBox2: TGroupBox; Label9: TLabel; LabellO: TLabel; Label 11: TLabel; DBEdit9: TDBEdit; DBEditl 1: TDBEdit; Label13: TLabel; 54

(56)

Label14: TLabel; Label15: TLabel; Label18: TLabel; GroupBox3: TGroupBox; Label19: TLabel; DBEditl 3: TDBEdit; Label20: TLabel; DBEdit14: TDBEdit; Label21: TLabel; Label22: TLabel; Label23: TLabel; Label24: TLabel; Label25: TLabel; Label26: TLabel; DBEdit15: TDBEdit; DBEdit16: TDBEdit; DBEditl 7: TDBEdit; DBEdit18: TDBEdit; DBEdit19: TDBEdit; ADOConnection 1: TADOConnection; ADOTable 1: TADOTable; DataSourcel: TDataSource; DBEdit8: TDBEdit; DBEdit21: TDBEdit; DBimagel: TDBimage; Label12: TLabel; BitBtn2: TBitBtn; Timerl: TTimer; DBEdit12: TDBEdit; Label27: TLabel; BitBtnl: TBitBtn; . DateTimePickerl: TDateTimePicker; BitBtn3: TBitBtn; DBEdit2: TDBEdit; DBLookupComboBox2: TDBLookupComboBox; DBEdit7: TDBEdit; DBLookupComboBoxl: TDBLookupComboBox; DBGridl: TDBGrid; BitBtn4: TBitBtn; 55

(57)

BitBtn5: TBitBtn; BitBtn6: TBitBtn; BitBtn7: TBitBtn; BitBtn8: TBitBtn; BitBtn9: TBitBtn; BitBtnlO: TBitBtn; DBEdit6: TDBEdit; GroupBox5: TGroupBox; DBEditlO: TDBEdit; Label16: TLabel; BitBtnl 1: TBitBtn; BitBtn12: TBitBtn; DBEdit20: TDBEdit; DBEdit22: TDBEdit; DBEdit23: TDBEdit; Labell 7: TLabel; Label28: TLabel; Label29: TLabel; AD0Table2: TADOTable; DataSource2: TDataSource; DataSource3: TDataSource; AD0Table3: TADOTable; GroupBox4: TGroupBox; RadioButtonl: TRadioButton; RadioButton2: TRadioButton;

procedure FormCreate(Sender: TObject); procedure BitBtn2Click(Sender: TObject); procedure Timerl Timer(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure DBEdit13Click(Sender: TObject);

procedure DateTimePickerl Change(Sender: TObject); procedure BitBtn3Click(Sender: Tübject);

procedure BitBtn4Click(Sender: TObject); procedure BitBtn5Click(Sender: TObject); procedure BitBtn7Click(Sender: TObject); procedure BitBtn6Click(Sender: TObject); procedure BitBtn8Click(Sender: TObject); procedure BitBtn9Click(Sender: TObject);

(58)

procedure BitBtnlOClick(Sender: 'I'Objccı);

procedure RadioButton2Click(Sender: TObject);

procedure RadioButtonl Click(Sender: TObjecı): procedure BitBtnl lClick(Sender: TObject);

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

procedure TForm5 .BitBtnl Click(Sender: TObject); begin

form5 .Hide; form3.show; end·

'

begin groupbox5. Visible:=false; form5.Caption:=('***SELLING***PROCESS***'); datetimepickerl .Date'Time.enow; end· '

var

vergi.integer; sayi.real; begin

(59)

dbeditl 7.Text:=inttostr(strtoint( dbeditl 6. Text)*strtoint( dbedit15. Text) );

sayi:=strtoint(dbeditl 7 .Text)*O.18; vergi:= trunc(sayi);

dbeditl 8.text:=inttostr(vergi);

dbeditl 9 .text:=inttostr(strtoint( dbeditl 7 .text)+vergi); form4.adotablel .Edit;

form4. adotable 1. UpdateRecord;

form4.dbedit6.Text:=intToStr(strToint(form4.dbedit6.text) strToint(dbedit16.text));

form4.adotablel .post;

if strtoint(dbedit12.Text)

<

3 then

showmessage(' Warnning! ! ! ! Critical Stock Level'); end·

'

end·

'

procedure TForm5 .FormClose(Sender: TObject: var Action: TCloseAction);

begin

form2.Show; end·

'

procedure TForm5 .DBEditl 3Click(Sender: TObject); begin

dbedit13.Text := intToStr(ADOTablel.RecordCount + l);

end·

'

procedure TForm5 .DateTimePickerl Change(Sender: TObject); begin

dbedit 14.Text: =datetostr( datetimepicker 1 .Date);

(60)

end;

begin

formô.Hide; forma.show: end·

'

begin

adotable 1 .Prior; end;

begin

adotable

1

.Next; end·

'

begin

ado table

1 .Insert;

end·

'

var e.word; begin

e:=messagedlg('Do You Want to Delete This Record?',mtwarning,[mbyes,mbno],0);

'

(61)

begin

'

begin

adotable 1.UpdateRecord; end·

'

begin

form21.show; end·

'

procedure TForm5 .RadioButton2Click(Sender: TObject);

begin

groupbox5.Visible:=true; end·

'

procedure TForm5.RadioButton1Click(Sender: TObject);

begin

groupbox5.Visible:=false;

' end·

'

procedure TForm5.BitBtnl lClick(Sender: Tübject); var

x,y ,z,a:integer; begin

dbedit23 .Visible.efalse; x:=strtoint(dbedit19.Text); y:=strtoint( dbeditl O.Text); z:=x-y;

a:=z div 2;

dbedit20.Text:=inttostr(a);

(62)

I-dbedit22.Text:=inttostr(a); end·

'

var

x,y .z.a.integer; begin

dbedit23.Visible:=false; x:=strtoint(dbedit19.Text); y:=strtoint( dbeditl O.Text); z.ex-y;

a=z

div 2;

dbedit20.Text:=inttostr(a); dbedit22.Text:=inttostr(a); dbedit23. Text: =inttostr( a) end·

'

end.

Unit6. pas(Suppl

ier Information)

unit Unitô; interface uses

Dialogs, StdCtrls, Buttons, Grids, DBGrids, DBCtrls, ExtCtrls, Mask, DB,

ADODB, ComCtrls, jpeg; type TForm6 = class(TForm) DateTimePickerl: TDateTimePicker; Image 1: Tlmage; Labell: Tl.abel; 61

(63)

Timerl: TTimer; GroupBoxl: TGroupBox; Label2: TLabel; Label3: TLabel; DBEdit2: TDBEdit; DBComboBoxl: TDBComboBox; Label5: TLabel; Labellü: TLabel; DBEdit3: TDBEdit; DBEdit4: TDBEdit; DBEdit5: TDBEdit; DBEdit6: TDBEdit; Label4: TLabel; Label6: TLabel; Label7: TLabel; DBGridl: TDBGrid; BitBtn2: TBitBtn; BitBtn3: TBitBtn; BitBtn4: TBitBtn; BitBtn5: TBitBtn; BitBtn6: TBitBtn; BitBtn7: TBitBtn; GroupBox2: TGroupBox; Edit 1: TEdit; Label9: TLabel; DBGrid2: TDBGrid; BitBtn8: TBitBtn; DataSource 1: TDataSource; ADOConnection 1: TADOConnection; ADOTable 1: TADOTable; ADOQueryl: TADOQuery; DataSource2: TDataSource; DBComboBox2: TDBComboBox;

procedure BitBtnlClick(Sender: Tübject);

procedure FormCreate(Sender: Tübject);

procedure FormClose(Sender: Tübject; var Action: TCloseAction); procedure Timerl Timer(Sender: Tübject);

procedure BitBtn2Click(Sender: Tübject); procedure BitBtn3Click(Sender: Tübject);

(64)

procedure BitBtn4Click(Sender: TObject); procedure BitBtn5Click(Sender: TObject); procedure BitBtn6Click(Sender: TObject); procedure BitBtn7Click(Sender: TObject); procedure BitBtn8Click(Sender: TObject); private { Private declarations } public { Public declarations } end· ' var Form6: TForm6; implementation uses Unit2; {$R *.dfm}

begin

form6.Hide; form2.show; end·

'

begin

datetimepickerl .DateTime:=now;

FORM6.Caption:=('***S UPP LIER ***INF ORM AT I O

N***');

editl.Text:=' '; end·

'

TCloseAction); begin form2.Show; end· ' 63

(65)

procedure TForm6.Timerl Timer(Sender: TObject); begin CAPTION:=COPY(CAPTION,2,LENGTH(CAPTION) l)+CAPTION[l]; end· '

begin

'

begin

'

begin

dbcombobox2.Text := intToStr(ADOTablel.RecordCount + 1);

adotable

1

.Insert; end·

'

var l:word; begin

l:=messagedlg('Do You Want to Delete This

Record?' ,mtwarning, [mbyes,mbno] ,O);

if l=mrYes Then adotable 1 .Delete; end·

'

(66)

procedure TForm6.BitBtn6Click(Sender: TObject); begin

'

procedure TForm6.BitBtn7Click(Sender: TObject):

begin

'

begin

with adoquery

1

do

begin close; sqI.Clear;

sql.Add('select

*

from supplier');

sql.Add('where supplier_name="'+editl.text+""); execsql; open; end· ' end· ' end.

Unit7. pas(About Program)

(67)

Dialogs, DB, ADODB, ComCtrls, StdCtrls, DBCtrls, ExtCtrls, Mask, Buttons,

Grids, DBGrids, jpeg; type

TForm7 = class(TForm) Memol: TMemo; Timerl: TTimer; Label 1: TLabel;

procedure Timerl Timer(Sender: TObject); procedure FormCreate(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction); private { Private declarations } public { Public declarations } end· ' var Form7: TForm7; implementation uses Unit2, Unit8;

{$R *.dfm}

begin

Form7.Hide; form2.show; end·

'

procedure TForm7 .Timerl Timer(Sender: Tübject); begin

end·

'

procedure TForm7 .FormCreate(Sender: TObject);

(68)

begin

FORM7.Caption:=('*** AB OU T***P ROG RAM***'); end·

'

procedure TForm7 .FormClose(Sender: TObject; var Action: TCloseAction); begin form2.Show; end· ' end.

Unit8. pas(About Programmer)

Dialogs, StdCtrls, jpeg, ExtCtrls, Buttons, ComCtrls; type TForm8 = class(TForm) Labell: TLabel; Imagel: Tlmage; Memo2: TMemo; Timerl: TTimer;

procedure FormCreate(Sender: Tübject); procedure Timerl Timer(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction); private

{ Private declarations } public

{ Public declarations }

(69)

end· ' var Form8: TForm8; implementation uses Unit2; {$R *.dfm}

begin

form8 .Hide;; form2.Show; end·

'

begin

FORMS.Caption:=('*** AB OU T***P ROG RAMMER***'); end·

'

end·

'

TCloseAction); begin form2.Show; end· ' end.

Unit9. pas(Instalment Process)

(70)

Dialogs, StdCtrls, Buttons, Grids, DBGrids, DB, DBTables, RpRave, RpDefine, RpCon, RpConDS, ADODB, ExtCtrls, Mask, DBCtrls, ComCtrls; type TForm9 = class(TForm) DBGridl: TDBGrid; lmagel: Tlmage; Labell: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; GroupBox 1: TGroupBox; Label6: TLabel; Label7: TLabel; Label8: TLabel; Editl: TEdit; Edit2: TEdit; Edit3: TEdit; BitBtn7: TBitBtn; BitBtn8: TBitBtn; BitBtn9: TBitBtn; BitBtnl: TBitBtn; BitBtn2: TBitBtn; BitBtn3: TBitBtn; BitBtn4: TBitBtn; BitBtn5: TBitBtn; BitBtn6: TBitBtn; DBEditl: TDBEdit; DBEdit2: TDBEdit; DBEdit3: TDBEdit; 69

(71)

DBEdit4: TDBEdit; DBEdit5: TDBEdit; DataSourcel: TDataSource; ADOConnection 1: TADOConnection; ADOTablel: TADOTable; timer 1: T'I'imer; DBEdit6: TDBEdit; DBEdit7: TDBEdit; DBEdit8: TDBEdit; DateTimePicker 1: TDateTimePicker;

procedure BitBtn2Click(Sender: TObject); procedure BitBtn3Click(Sender: TObject); procedure BitBtn4Click(Sender: TObject); procedure BitBtn5Click(Sender: TObject); procedure timerl Timer(Sender: TObject); procedure FormCreate(Sender: 'I'Object);

procedure FormClose(Sender: TObjecı; var Action: TCloseAction); procedure BitBtn7Click(Sender: TObject);

procedure BitBtn8Click(Sender: TObject); procedure BitBtn9Click(Sender: TObject);

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

begin

'

(72)

procedure TForm9.BitBtn2Click(Sender: TObject); begin

'

begin

adotable

1

.Edit; end;

var e:word; begin

e:=messagedlg('Do You Want to Delete This Record?',mtwarning,[mbyes,mbno],O);

'

begin

'

procedure TForm9.timerl Timer(Sender: TObject); begin CAPTION:=COPY(CAPTION,2,LENGTH(CAPTION) l)+CAPTION[l]; end· ' 71

(73)

pro~edure TForm9 .FormCreate(Sender: TObject)·

n~~ın

·

form3.Caption:=('***INSTALMENT***PROCESS***'); dbedit6.Visible:=false; dbedit7. Visible.efalse; dbedit8.Visible:=false; editl.Text:="; edit2. Text:="; editô.Text.e"; end· '

procedure TForm9 .FormClose(Sender: TObject; var Action: TCloseAction);

begin

form2.show; end·

'

var

~ x,y ,z:integer;

~ a:word;

begin

x.estrtointt editl .text); z:=strtoint(dbedit6.Text); if x=z then

begin y:=0;

form9 .ADO Table 1 .Edit;

form9 .ADOTable 1. UpdateRecord; form9 .Editl .Text:='Instalment Paid'; form9.DBEdit5.Text:=inttostr(y); form9 .ADOTable 1 .Post;

end else

a:=messagedlg('Instalment Amount Wrong',mterror,[mbok],O);

editl.SetFocus; end·

'

(74)

procedure TForm9.BitBtn8Click(Sender: TObject); var x,y,z:integer; a:word; begin x.estrtoinu edit2.text); z:=strtoint(dbedit7.Text); if x=z then begin y:=0;

form9 .ADOTable 1 .Edit;

form9 .ADOTable 1. UpdateRecord; form9 .Editl. Text:='Instalment Paid'; form9 .DBEdit7. Text:=inttostr(y); form9 .ADOTable 1 .Post;

end else

a:=messagedlg('Instalment Amount Wrong' ,mterror, [mbok],O);

editl .SetFocus; end·

'

var

x,y,z:integer; a:word; begin

x:=strtoint( edit3. text); z:=strtoint( dbedit8.Text); if x=z then

begin y:=0;

form9 .ADOTablel .Edit;

form9.AD0Table1.UpdateRecord;

form9.Editl.Text:='Instalment Paid';

form9.DBEdit8.Text:=inttostr(y); form9 .ADOTable 1 .Post;

(75)

end else

a:=messagedlg('Instalment Amount Wrong',mterror,[mbok],O);

editl .SetFocus; end· ' end.

Unit10.pas(Films Trailer)

unit UnitlO; interface uses

Dialogs, StdCtrls, Buttons, ExtCtrls, jpeg, ComCtrls; type TForml O = class(TForm) Timerl: TTimer; Imagel: Tlmage; BitBtn3: TBitBtıi; BitBtnl: TBitBtn; BitBtn7: TBitBtn; BitBtn5: TBitBtn; BitBtn8: TBitBtn; BitBtn6: TBitBtn; BitBtn2: TBitBtn; BitBtn4: TBitBtn; Label 1: TLabel; DateTimePickerl: TDateTimePicker; BitBtnlO: TBitBtn;

procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure BitBtn2Click(Sender: TObject);

(76)

procedure FormCreate(Sender: TObject); procedure Timerl Timer(Sender: TObject);

procedure BitBtn5Click(Sender: TObject); procedure BitBtn7Click(Sender: TObject); procedure BitBtn8Click(Sender: TObject);

procedure BitBtnlOClick(Sender: TObject);

private { Private declarations } public { Public declarations } end· ' var Formlü: TFormlO; implementation

uses Unitl 1, Unit2, Unit12, Unit13, Unit14, Unit15, Unit16, Unitl 7, Unit18,

Unit19, Unit22; {$R *.dfm}

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

formlü.Hide; forml 1 .show; end·

'

procedure TFormlO.FormClose(Sender: TObject; var Action:

form2.show; end·

'

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

(77)

formlO.Hide; form12.show; end·

'

formlü.Hide; form13.show; end·

'

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

formlO.Caption:=('***Films Trailer***');

end·

'

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

CAPTION:=COPY(CAPTION,2,LENGTH(CAPTION)-l)+CAPTION[l];

end·

'

formlü.Hide; form14.show; end·

'

formlü.Hide; forml 5. show; end·

'

procedure TForml O.BitBtn5Click(Sender: TObject);

(78)

begin

formlü.Hide; forml 6.show; end·

'

formlü.Hide; form22.show end·

'

procedure TForml O.BitBtnl OClick(Sender: TObject); begin formlü.hide; form19.show; end· ' end.

Unit 11. pas(Reguimfor a Dream)

(79)

unit Unitl 1; interface uses

Dialogs, OleCtrls, WMPLib_TLB, ExtCtrls; type

TForml 1 = class(TForm)

WindowsMediaPlayer 1: TWindowsMediaPlayer; Timer 1: TTimer;

procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end· ' var Forml 1: TForml 1; implementation uses UnitlO; {$R *.dfm}

procedure TForml 1 .FormClose(Sender: TObject; var Action: TCloseAction); begin formlO.show; end; I > ) >

•

procedure TForml 1.Timerl Timer(Sender: Tübject); begin CAPTION:=COPY(CAPTION,2,LENGTH(CAPTION)-l)+CAPTION[l]; end· ' 78

(80)

procedure TForml 1 .FormCreate(Sender: TObject); begin

forml 1.Caption:=('***Requim For A Dream***'); end· ' end.

Unitl 2. pas(Deja-Vu)

unit Unit12; interfac uses

WindowsMediaPlayerl: TWindowsMediaPlayer;

Timerl: TTimer;

procedure FormCreate(Sender: Tübject); private { Private declarations } public { Public declarations } end; var Form12: TForm12; implementation uses UnitlO; {$R *.dfm} 79

(81)

procedure TForm12.FormClose(Sender: TObject; var Action: TCloseAction); begin formlü.show; end· '

end·

'

begin

form12.Caption:=('***DEJA-VU***'); end·

'

end.

Unitl 3. pas(Resident Evil: Extinction)

WindowsMediaPlayer 1: TWindowsMediaPla yer; Timer 1: TTimer;

procedure FormClose(Sender: TObject; var Action: TCloseAction);

(82)

procedure Timerl Timer(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end· ' var Form13: TForm13; implementation uses Unitlü; {$R *.dfm}

procedure TForml3.FormClose(Sender: TObject; var Action:

formlO.show; end·

'

end·

'

begin

forml3.Caption:=('***Resident Evil:Extinction***');

end·

'

end.

Unitl 3. pas(Recep İvedik)

(83)

Dialogs, ExtCtrls, OleCtrls, WMPLib_TLB; type

Timer 1: TTimer;

procedure FormClose(Sender: TObject; var Action: 'I'CloseAction); procedure Timerl Timer(Sender: TObject);

procedure FormCreate(Sender: TObject): private { Private declarations } public { Public declarations } end; var Form14: TForm14; implementation uses

Unit

l

O:

{$R *.dfm}

forml Gshow; end·

'

procedure TForm14.Timerl Timer(Sender: TObjecı): begin

(84)

end·

'

procedure TForm14.FormCreate(Sender: Tübject);

begin form14.Caption:=('***Recep İvedik***'); end· ' end.

Unit14.pas(Recep İvedik)

WindowsMediaPlayer 1: TWindowsMediaPlayer; Timerl: TTimer;

procedure FormClose(Sender: Tübject; var Action: TCloseAction); procedure Timerl Timer(Sender: TObject);

procedure FormCreate(Sender: TObject); private { Private declarations } public· { Public declarations } end· ' var Form14: TForm14; implementation uses Unitlü; {$R *.dfm} 83

(85)

procedure TForml 4.FormClose(Sender: TObject; var Action: TCloseAction); begin formlü.show; end· '

end·

'

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

form14.Caption:=('***Recep İvedik***');

end·

'

end.

Unitl 5. pas(300: Sparta)

TForm15 = class(TForm)

Timer 1: TTimer;

procedure Timerl Timer(Sender: TObject);

(86)

procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject);

private { Private declarations } public { Public declarations } end; var Form15: TForm15; implementation uses Unitlü, Unit!;

{$R *.dfm}

procedure TForml5.Timerl Timer(Sender: Tübject);

begin

end·

'

procedure TForml5.FormClose(Sender: TObject; var Action:

formlü.show; end·

'

procedure TForml5.FormCreate(Sender: Tübject);

begin formlS.Caption:=('***300:Sparta***'); end· ' end.

Unit 16. pas(Prestige)

85

(87)

unit Unitl6; interface uses

Timerl: TTimer;

private { Private declarations } public { Public declarations } end· ' var Form16: TForm16; implementation uses UnitlO; {$R *.dfm}

end·

'

procedure TForml 6.FormClose(Sender: TObject; var Action: TCloseAction); begin formlO.show; end· ' 86

(88)

forml 6. Caption:=('** *Prestige***'); end·

'

end.

Unitl 7. pas(Inside Man)

unit Unitl 7; interface uses

WindowsMediaPlayer 1: TWindowsMediaPlayer; Timer 1: TTirner;

procedure FormClose(Sender: TObjcct; var Action: 'I'CloseAction); procedure FormCreate(Sender: 'I'Object);

private { Private declarations } public { Public declarations } end· ' var Forml 7: TForml 7; implementation 87

(89)

uses Unitl O; {$R *.dfm}

procedure TForml 7.Timerl Timer(Sender: TObject);

begin

end·

'

procedure TForml 7.FormClose(Sender: TObject; var Action: TCloseAction);

begin

forml G.show; end;

forml 7.Caption:=('***Inside Man***'); end; end.

Unitl 8. pas(Hokkabaz)

unit Unitl8; interface uses 88

(90)

Timerl: TTimer;

uses UnitlO, Unitl 7; {$R *.dfm}

end·

'

procedure TForml 8.FormClose(Sender: TObject; var Action: TCloseAction);

begin

formlO.show; end·

'

form 18. Caption:=('** *Hokkabaz***');

(91)

end· ' end.

Unit19.pas(City

of God)

Timer 1: TTimer;

procedure Timerl Timer(Sender: TObject): procedure FormCreate(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction); private { Private declarations } public { Public declarations } end· ' var Form19: TForm19; implementation uses Unitlü; {$R *.dfm} 90

(92)

procedure TForm19.Timerl Timer(Sender: TObject); begin CAPTION:=COPY(CAPTION,2,LENGTH(CAPTION)-1 )+CAPTION[ CAPTION:=COPY(CAPTION,2,LENGTH(CAPTION)-1]; end· '

form19.Caption:=('***City of God***');

end·

'

procedure TForml 9 .FormClose(Sender: 'I'Object; var Action: TCloseAction); begin forml G.show; end· ' end.

Unit20. pas(IMDB)

Dialogs, OleCtrls, SHDocVw, ExtCtrls;

(93)

type

TForm20 = class(TForm) Timerl: TTimer;

WebBrowserl: TWebBrowser;

procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end· ' var Form20: TForm20; implementation uses Unit2; {$R *.dfm}

form2.show; end·

'

end·

'

begin

form20. Caption:=('** *IMD B Online***'); try

webbrowser 1 .Navigate('http://www.imdb.com');

(94)

except

ShowMessage('Doğrulama Sayfasına ulaşamadım');

exit; end· ' end; end.

Unit21 . pas(Bill)

Dialogs, ExtCtrls, StdCtrls, Buttons, Mask, DBCtrls; type TForm21 = class(TForm) Image I: Tlmage; Image2: Tlmage; BitBtnl: TBitBtn; BitBtn2: TBitBtn;

procedure BitBtnlClick(Sender: Tübject);

procedure BitBtn2Click(Sender: Tübject); private { Private declarations } public { Public declarations } end· ' var Form21: TForm21; implementation uses Unit5; {$R *.dfm}

(95)

begin

form21 .Print end·

'

procedure TForm21 .BitBtn2Click(Sender: TObject); begin form21 .Hide; form5.show; end· ' end. 94

NEAR EAST UNIVERSI