Supervisor: Mr.Omit iLHAN Nicosia-2002 Recep KUTUK Faculty of Engineering Department of Computer Engineering HOSPITAL AUTOMATION PROGRAM Graduation Project COM-400 Student

Faculty of Engineering

Department of Computer Engineering

HOSPITAL AUTOMATION PROGRAM

Graduation Project

COM-400

Student : Recep KUTUK

Supervisor: Mr.Omit iLHAN

ACKNOWLEDGEMENTS

I am very greatfull to those who have given me the courge to finish the project

that my the teacher which I have looked upon gave me to complete.

My wonderful teacher Mr

Omit

iLHAN I can not explain how much this

project has tought me and how much usefull it will be in my life. I thank you very much

for assigning me for the project.

I can not thank enough my family for the things they had to put up with until

they bought me to the age that I am. Especially during the time of time of my life in the

faculty.

To all my friends I don't know how much and how to say thank you for

making me what I am.

Mean while I am a very forgetful person I would like to send a special thanks

to everyone which has helped me with the project and in life.

ABSTRACT

The hospital automation program will supply the user efficient usimg of the

time time and patient information. After very simple installation of the program and

later starting form is opened as the splash form. Later the main menu is opened. One

screen is displayed. There are time and date components are on the main menu.

The user record the new patient to the new patient registiration form. If there

are a patient in the hospital then user go to patient search menu and search the patient

according to patient's surname and name. User find the patient's protocol no and search

the protocol no and other information of the patient. Program is included very much

details of the hospital and patient's details. Also when the user bored, the user go to the

tools menu and listen the music or draw a figure on the paintbrush.

-·--··---

TABLE OF CONTENTS

A CKN O WLEDG EMENTS

.

i\JJS'flli\.C'f

11

T

i\JJLE OF CONTENTS...

111

INTRODUCTION...

1

What

is Delphi?...

I

CHAPTER 1: INSTALLATION OF THE PROGRAM

3

1.1 First

Step

3

1.2 Second

Step...

3

1.3

Third

Step...

4 1.4 Fourth

Step...

4 1.5

Fi~h Step

5 1.6

Sixth

Step ·... 6

CHAPTER 2: SCREENS...

7

2.1 Starting

Part...

7

2.2

Opening

Menu...

7

2.2.l Delphi Source Codes of the Opening Menu...

8

2.3 Main

Form...

9

2.4 New Patient Registiration... .. .. . . .. . .. . .. .•. . .. . .. •.. . . .. . .. . .. .•... 11

2.4.1 Delphi Source Codes of the New Patient Registiration screen... 16

2.5 Change

the Patientid

Record...

24

2.5.1 Delphi Source Codes of Change Patientid records screen... 25

2.6

Daily

Medicine...

26

2.6.1 Delphi Source Codes of the Daily Medicine screen... 28

2. 7 Patient

Analysing

Menu...

31

2.7.1 Delphi Source Codes of the Patient Analysing screen

32

2.8 Patient Search

Menu...

34

CHAPTER3:DATABASE 38

3.1 What is Paradox?...

3 8

3.2 Paradox Table Specifications...

39

3.3 Paradox 7 and above tables Specifications...

39

3.4 Paradox

Field Types...

40

3.4.1 Alpha.

. . . 40

3.4.2 Auto

increment...

40

3.4.3 BCD...

. . . .. 40

3.4.4 Binary...

40

3.4.5 Bytes...

40

3.4.6 Date...

40

3.4.7 Formatted

Memo

40

3.4.8 Graphic...

41

3.4.9 Logical...

. . . .. 41

3.4.10

Memo

41

3.4.11

Money

41

3.4.12

OLE

41

3.4.13

Number

41

3.4.14

Short

42

3.4.15 Time...

42

3.4.16 Timestamp...

42

3.5 Tables...

42

CONCLUSION...

46

REFERENCES...

47

*

INTRODUCTION

What is Delphi?

Delphi5 uses a 'visual' programming paradigm with ObjectPascal [ a derivate

of Pascal, with support for object oriented programming] as its underlying language.

This means you use the mouse to design the look of your application - arranging

'components' (buttons, scroll bars, menus etc) on skeleton windows ('forms'). This

leaves you with a series of files (ObjectPascal source code, forms definitions and

resources) to which you add the code which makes your application carry out its

function. The attributes of each component (size, position, font of lettering etc) are

specified interactively at design time, or can be modified dynamically by the program.

There is no need to master the complexities of Windows programming, as

the components act as an interface between your program and the operating system.

Borland Delphi is a sophisticated Windows programming environment,

suitable for beginners and professional programmers alike. Using Delphi you can easily

create self-contained, user friendly, highly efficient Windows applications in a very

short time - with a minimum of manual coding.

Delphi provides all the tools you need to develop, test and deploy Windows

applications, including a large number of so-called reusable components.

Borland Delphi, in it's latest version, provides a cross platform solution when used with

Borland Kylix - Borland's RAD tool for the Linux platform.

Delphi's roots lie in Borland's Turbo Pascal, introduced in the mid-1980s.

Object Pascal, the object-oriented extensions to Pascal, is the underlying language of

Delphi. The Visual Component Library, or VCL, is a hierarchy of Object Pascal objects

that allow you to design applications. A better way of describing Delphi is an Object

Pascal-based visual development environment

Most business applications need to store information in a database, and

software development therefore has two elements: constructing a database to support

the business process, and developing an application to access the database. Choice of

database should be determined on a project by project basis, as should choice of

interface. Therefore, if a Windows client application is the preferred user interface, we

call in our Delphi Centre of Excellence. We believe that Delphi is the best development

tool for Windows currently available, and have emphasised our skills and belief in the

Delphi is an incredibly versatile and easy to use development tool. It is more than just a programming language, because it has additional features that reduce development costs and improve productivity. For example, the user interface is so good that it makes developers much more productive than some others.

Delphi's versatilitity means that it genuinely can be used for most types of project: from real time control to Enterprise-wide multi-tier database systems. It is designed from the ground up to provide database functionality; we prefer to use it with Microsoft Access for low end projects, Microsoft SQL Server for middle range tasks and Oracle for high end projects. We are not tied to these, however, because any ODBC or OLE-DB database can be used. This means that we can work with clients' existing database infrastructure, protecting your investment, while developing first class front ends.

Delphi is fully object-oriented, and we tend to design most projects using components to improve reusability and maintainability. We avoid supplying bug-ridden software through thorough testing but prefer our development environment to support us: Delphi uses Object Pascal which helps our developers to write robust code, because Pascal is strongly-typed for example.

The main alternatives to Delphi are Visual Basic and Powerbuilder. Powerbuilder suffers from poor take-up, while VB suffers because it is still

not fully

object-oriented, even version 6, whereas Delphi has been from version 1. Delphi does

not require that any DLLs are distributed with compiled applications, unlike VB.

-- ----

--

- ···---

CHAPTER-I

INSTALLATION OF THE PROGRAM

When the hospital program setup the run,first step is to insert the CD into the

CD

ROM. If the computer is set tostart automatically the CD will start to install. If not

start it,then the user must open hospital from the CD manually. Once this process is

done the installation will begin. Installation procedures are completed in five steps and

these are as follows.

1.1 First Step

The screen below gives the details of the licence for the program and tell us

about warning oflicence concerning(as Figure 1-1).

Software License Agreement - --

13

Please reed the folb..ying Licen~ Agreemenl Press- the PAGE DOWN key fo see

ttie"rest of lhe: agreement.

JHI~ PAOCiRAt,,{WAS BUILT BY RECEP KUTlJK.UCENCE AGRrEMENT' ONL

y

CO,NCEFl'NING'THE RECl::f!KUTUKSOFT COMPANY.IF U COPi''.l:INLICENGES THIS PR.OGRAM.U CAN FINDJlY THE·eDUCESAND U CAN ARREST:

WARNING'B't'.

RECE~

KUTUK. . . PRODUCUElf 2002JUNE.

--

- -

-

- .:J

Do

_you

accept all the terms

ot

the precedng L.icenseAgeeme,t? If .YOU choose No. Setup

will cloie. To.installhospiat information s,stem. _you rwst accept

lm

agreement.

<

aack

I

Yes

I ,

1

Ho

Figure 1-1

1.2 Second Step

The registration of the new user is completed in the screen shown below. You

enter the user name in the first edit box, you enter the your company's name to the

second edit box( as Figure 1-2)

..

--~ ---- - --·---

[~

LI sci Information

'13.

Type your name below. Yo1;1 must also type the name of the

company you work for.

N.Qme:

[J:l~~Ef='KDTDK

,Compmiy. fBURHAN NALBANTOGLU HOSPiT AL

< .ftack

I

Next >

I

Cancel

1.3 Third Step

Figure 1-2.

The screen in the below shows us choosing the destination locations. The user

can specify the locatioun wherever who want to copy it (as Figure 1-3)

..

f:hons1r~ ()estiir11<,itiion Loc-.dtion f:J

Setup wil inst<IIII hospiat information *V*tem in the folowing directory.

To install to this cirector)'. click Neid.

To install to a different directory. click Browse and select another

directory.

You eai, ehoo&e o,ot to ilutall f>o.spiat ir,forrnatioo, .sy.st~rn by

clicking Ca-tceHo exit Setup.

fl

Destination Directory

IJ C: \ .. , \hospiat information -system

I

r·

aei"ci··>:···]I

:mr::um--wr··r:::·-- u

Figure 1-3

1.4 Fourth Step

Select Program Folder

.:.Q.·

?etup)vifadd prf>QrclfJl icoi:,s to the Program Folder listed below,

You may"type anew folcter,name, or select one from the ellisting

Folders 6st. Click Ne~Uo continue.

t,l!istng Folders: Ba~lang11; 11 Borland Delphi 5

Donatilar

I H

u s

F'I T/.1.L

Microsoft Office Tools

office

<

~ack

I

1.5 Fifth Step

Figurel-4

The setup is preparing the files the copying to harddiscks(as Figure 1-5).

: !.tart Copying riles

Ei

S~ has e~ information to start CC!pying t!"e progam files. If you wa[lt to·review or change any settings, click Back. If }'bu are .sufied with the settings. click NeHt to begin copying fies.

Current Settings:

Setup Type: Complete Target Folder

C: \Program Files\receplq.ituksoft\ho$piat informatioti ~,ys

''User Information

Name: RECEPKOTUK

Gdmpany: BU'RHAN NALB-6.N:r:o.(;lLLJ HOSPiT AL

1.6 Sixth Step

Now setup is finished and when u clicked finish you can open the hospital

folders(as Figure 1-6 and 1-7).

Setup has fihished instaling the application on yaur computer. ¥ou may launch the appl~ation by selecting the icons instaled.

Click Finish to cOIJ¥)1ete Setup,

::,

f

Finish

Figure 1-6.

tr') Geri Al C)zelldeo

l~

001

~ ~

$'

~ ~

Hosp:ttal

_dei$reg.t:t, Delsl...1.is:u ho~al TABLE1."'1 Table1.pw

---,·~--

~ ~

A1w1klemasin1

gOrilntOlemek i~n bir T eble 1 . xg() Table 1 ._yg() Oi!e se~n.

."1.IEJi~_!"'tm

CHAPTER-2

SCREENS

2.1 Starting Part

In this form(Figure2-1) is starting form of the program.Thif form display us

name of the project,lecture name and programmer name. When we clicked the go

buttons,we will go to next page. The next page is splash form

.

. r

STARTING FORM

£t

NEAR EAST UNIVERSITY

DEPARTMENT OF COMPUTER ENGINEERING

COM-400 HOSPITAL AUTOMATION SYSTEM

PROJECT

PREPARED BY RECEP Kl.lTUK

Figure 2-1

2-2 Opening menu

In this(Figure2-2) form shows us as the splah form opening of program. Tha

gauge progress bar menu is used by the programmer. This splash ramdom is designed

randomize. When the gauge egual to

%

100 splash is closed and mainform is opened. I

used the gauge progress bar component in this program. Because, when we first looked

the program,program is displaying us nicely and most important is shows us opening of

the program. The form(Figure2-2) is in the other page.

---- -" --

PROGRAM IS OPENING N0\11 , ~

BURHAN NALBANTOGLU HOSPiTAL

AUTOMATION SYSTEM

PROGRAM IS OPENING NOW

F,E,', -

Figure2-2

2.2.1 Delphi Opening Menu form Source codes

type

Form2

=

class(TForm)

Panell: TPanel;

Labell : TLabel;

Label2: TLabel;

Timerl: TTimer;

Gauge 1: TGauge;

Label3: TLabel;

Image

I: Tlmage;

Label4: TLabel;

procedure Timer I Timer(Sender: TObject);

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

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

: TForm2; lementation

Unit3; R *.DFM}

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

randomize;

gaugel.progress:=gaugel.progress

+

random(23);

if gaugel.progress >= gaugel.MaxValue then

begin

mainform.show;

form2.close;

end;

end;

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

begin

free;

end;

2.3

Main Form

The main form of the program includes four main menu files. The first one is

patient information. The patient information has two submenus. First one is new patient.

When the newpatient is clicked,it goes the for a new patient registeration form. The

other submenu of the patient information is change the patientid. The change the

patientrecords menu is clicked by the user and come to patientid form.

The secondpart of the main menu is doctor parts. Doctor part is includes three

-

submenu. The first one is daily medicine. The daily medicine shows the necessary

drinking medicine for a patient. The second submenu is patient analyzing. This shows

the information about patient analysis,labarotory test and etc .... The third submenu of

the docotor menu is patient report. The patient report is shows the report documentation

of the patient.

The third menu is the search menu. It has one submenu patientsearch. The

llltieDt

search is the find the registering patient.

The fourth menu is the exit. The aim of the exit menu is the exiting of the

1110jU3111S.

When the user clicked he exit menu. Program is automatically will be closed.

There are a figure of the KKTC MINISTIRY OF THE HEALTH on the main

There are time and date box on the mainform.

The mainform is shows the below the menu at Figure2-3

2.4 New Patient Registiration

The Figure 2.4 below shows the details of a new patient records. First user

clicked the patient information and later enter the patient identity and later click new

patient and show the below the Figure2.4

IQ() f __ s_.f:"_ARC!{

TELEPHONE

NAME IRECEP

;:;;::====-

SURNAME

11<:~-riJ~

..

I

BIR.TH DATE jo4.1D.1~00 '

JOBS

I:!'- ~ -· -

ADRESS lklUilYl!lka rnahaUesi 162. sok no:5.

SEX {MALE

CML STATUSj r-S-IN_G_LE---a-,

EDUCATION (HIGH SCHOOL

PATIENT ACCEPTANCE

PROTOCOL...NR NURSE NAME

lb!_!g~~1m

DEPARTMENT )HEACllt-,~

DOCTOR NAME

ROOM_NR

••••

Figure2-5

The leads the user to the above form which details of the new patients records

are entered or old records can deleted. New patient form is also search the patient

protocolno. The tabsheets are used the new patient form. There are four pages on the tab

sheets. First page is includes the patient name,surname,birthdate,sex,job,education,civil

status,address,new protocolno,doctor name,first sysmtomatics,nurse name,patient

department and room nr. The program user is entered the according to their particulary

value.

There are save, new patient buttons and patient protocolno searching area on the

top of the page. The save button is saved the patient records according to patient's

protocol no. When the user want to add new patient then user can click the newpatient

button and can add the new patient information. The same protocol no never used to

same protocol no for the patient. And so the user could search the patient protocol no.

Al.LERGV ~.~ ...

_Ell

WEIGHT

f

m.ooo GRoupl8 RH+

1:]i

RESPIRATION

f,es

BODVHEAT

L

361 BLOOD PRESSURE

I

PULSATION

L.

~ 75 USED MEDICINES IPANACETAMDL

HEIGHT

I -

~a~,

PROTOCOLNO

f

1 DD

79,

87

ANAMNESIS

BEFORE THE AFFECTIONS fevet_~ru _{•••••••.•.••••••••••••••••...••••••••••.•••..••..•••••.•.•.••••••••••••..••••••••••. ..__ __J}

COMPlAINTS (dcldddddd~dddilcl~~~ _{...;...;...,...;;;;;.;;;.==.l}

•••••

+

Figure2-6

Later go to the

2nd

page of the tabsheets. The second page of the tabshhets menu

are includes details of the patients. The page 2 is shows the above the form. Allergy part

is add to database patient allery as yes or no.

The user can add the blood group, can add the body heat,pulsation,height,patient

weight.patient blood pressure,medicines,anamnesis( it means that patient whose have

the history of health or operations),include before the affections and includes

complaints parts.

The user or doctor can change the this records the over their clinical tests results.

Of course these data are add to patient whose have same protocol no. I demonstrated it

according to protocol no is on the all pages.

The below the figure .... are includes the healthly details of the patient. Add the prosthesis contolleable.hearing tools.reactions.add the mother tongue of the patient, ache,acheplace, cougher,heard pulse,last job declaration,smoking,drug,.hiv,alchol and surgicial intervention are on the third page of the tabsheets form The user add,control or change the patient records to their clinical specification.

There are all includes below the Figure 2.7

HEARD PULSE

I=····=-=·=·

==

ALCHOL ~~·~··· .:)

PROSTHESIS lnCJI .

I

99

HEARING TOOLS 1e!~t "~' . . .... 1

REACTIONS

f

noooqo - ~-·. ----···---

.~·,

LAST JOB DECLARATION

)~~"tl!I

__

MOTHER TONGUE Jdeutsch

fl

ACHE

j~CJ

_

_

E]

El

g

SMOKING

DRUG

fv~s

PLACE OF ACHE

jiiii.1>111:1~

COUGHER

~~X __

E~---··--· . PROTOCOLNO j100

:...

••...•..•...•.••...•....•.•.•...•.•..

no HIV

El

SURGICIAL INTERVEN11IAHY •••• •••

••

+

Figure2-7

The page four is include the patient room recors. Must the patient room have the ~~smoking,caller service,telephone and 24 hrs caller center. The below the figure is control the these criterias.

And later user can save the all recors the patient.

100

rPATIENT INFORMA_!ION · · . • .· ,

= ~ . - 1

PA~T[~IJ>'\.~51!

PAGE4 '---

_ ~" ...

SMOKE IN THE ROOM i'. BANQUET

r:

SERVICES

P.

TELEPHONEC

CALLER

Pl

CALLING SYSTEM

P

iV-VCO PROTOCOLNO J100

!..-. ..••.••...•.•...•...•...

+

Figure2-8

_confirm

EJ

J

©

~nging is saved?.

1 Delphi Source Codes of New Patient Registiration

- lows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

JUn.Ails,

DBCtrls, ComCtrls, ExtCtrls, Mask, Buttons, Menus, Db, DBTables;

jpe

Tnewpatient

=

class(TForm)

~enul:TMainMenu;

patient 1 : TMenultem;

save 1: TMenultem;

exit: TMenultem;

Panell: TPanel;

BitBtnl: TBitBtn;

Labell: TLabel;

BitBtn5: TBitBtn;

RadioGroup 1: TRadioGroup;

PageControll: TPageControl;

TabSheetl: TTabSheet;

TabSheet2: TTabSheet;

TabSheet3: TTabSheet;

TabSheet4: TTabSheet;

Label2: TLabel;

DBEdit2: TDBEdit;

Label3: TLabel;

DBEdit3: TDBEdit;

Label4: TLabel;

DBEdit4: TDBEdit;

Label5: TLabel;

DBComboBoxl: TDBComboBox;

Label6: TLabel;

DBEdit5: TDBEdit;

Label7: TLabel;

DBEdit6: TDBEdit;

Label8: TLabel; DBComboBox2: TDBComboBox; Label9: TLabel; DBComboBox3: TDBComboBox; Labell 0: TLabel; DBComboBox4: TDBComboBox; Labell l: TLabel; Labell 5: TLabel; Label16: TLabel; Label2 l : TLabel; DBEdit7: TDBEdit; DBEdit8: TDBEdit; DBEditlO: TDBEdit; DBEdit9: TDBEdit; DBComboBox5: TDBComboBox; DBEditl 1: TDBEdit; Label13: TLabel; Label23: TLabel; Label24: TLabel; Label12: TLabel; Label14: TLabel; Labell 7: TLabel; Labell8: TLabel; Labell 9: TLabel; DBComboBox6: TDBComboBox; Label20: TLabel; DBComboBox7: TDBComboBox; Label22: TLabel; DBEditl2: TDBEdit; Label25: TLabel; DBEditl 3: TDBEdit; DBEdit14: TDBEdit;

DBEdit18: TDBEdit; DBEdit19: TDBEdit; DBComboBox9: TDBComboBox; Label26: TLabel; Label27: TLabel; Label28: TLabel; Label29: TLabel; Label30: TLabel; Label3 l: TLabel; Label32: TLabel; DBEdit20: TDBEdit; Label33: TLabel; DBEdit21: TDBEdit; DBEdit22: TDBEdit; DBEdit23: TDBEdit; DBComboBoxl 0: TDBComboBox; DBComboBoxl 1: TDBComboBox; DBComboBox12: TDBComboBox; Label34: TLabel; Label35: TLabel; Labe136: TLabel; Label3 7: TLabel; Label39: TLabel; Label40: TLabel; Label41 : TLabel; DBEdit25: TDBEdit; Label42: TLabel; DBComboBox13: TDBComboBox; Label43: TLabel; Label44: TLabel; Label45: TLabel; Label46: TLabel; Label47: TLabel; DBEdit26: TDBEdit;

omboBox14: TDBComboBox; DBComboBoxl 5: TDBComboBox; DBEdit27: TDBEdit; DBComboBoxl 6: TDBComboBox; 148: TLabel; Label49: TLabel; Label50: TLabel; Label51: TLabel; Label52: TLabel; Label53: TLabel; Label54: TLabel; Label55: TLabel; DBNavigator2: TDBNavigator; DataSourcel: TDataSource; Tablel: TTable; Table2: TTable; DataSource2: TDataSource; Table3: TTable; DataSource3: TDataSource; Tablet SURNAME: TStringField; TablelNAME: TStringField; Tablel TELEPHONE: TFloatField; TablelJOB: TStringField;

Tablel SEX: TStringField; TablelADRESS: TStringField; TablelCITY: TStringField; TablelBIRTHPLACE: TStringField; TablelBIRTHDATE: TDateField; TablelCIVILSTATUS: TStringField; TablelEDUCATION: TStringField; Table 1 DOCTORNAME: TStringField; TablelNURSENAME: TStringField;

IROOMNR: TStringField; IPROTOCOLNO: TStringField; .--::Lr

ROTOCOLNO: TStringField;

LPERTOOLS: TStringField;

2BLOODGROUP: TStringField;

:2HEARINGTOOLS:

TStringField;

2ALLERGY: TStringField;

,le2HEIGHT:

TFloatField;

fo2WEIGHT: TFloatField;

,le2BODYHEAT:

TFloatField;

Table2ESTIMA

TION: TStringField;

Table2PULSATION: TFloatField;

Table2BLOODPRESSURE: TFloatField;

I able20THERILLNESS: TStringField;

Table2BEFOREMEDICINE: TStringField;

Table2ACHE: TStringField;

Table2ACHEPLACE: TStringField;

Table2SMOKE: TStringField;

Table2ALCHOL: TStringField;

Table2HEARDPULSA

TION: TFloatField;

Table3PROTOCOLNO: TStringField;

~·

Table3SMOKE: TBooleanField;

Table3TELEPHONE: TBooleanField;

Table3SERVICES: TBooleanField;

Table3EATING: TBooleanField;

Table3TV

_

VCD: TBooleanField;

Table3CALLINGSYSTEM: TBooleanField;

Table3SPECIALROOM: TBooleanField;

Table2RESPIRATION: TStringField;

Table2ANAMNESIS: TStringField;

Table2COMPLAINT: TStringField;

Table2BEFOREAFFECTION: TStringField;

Table2PROSTHESIS: TStringField;

Table2REACTIONS: TStringField;

Table2MOTHERTONGUE: TStringField; Table2COUGHER: TStringField; Table2LASTJOBDECLARATION: TStringField; Table2DRUG: TStringField; Table2HIV: TStringField; Table2SURGICIALINTERVENTION: TStringField; DBCheckBoxl: TDBCheckBox; DBCheckBox2: TDBCheckBox; DBCheckBox3: TDBCheckBox; DBCheckBox4: TDBCheckBox; DBCheckBox5: TDBCheckBox; DBCheckBox6: TDBCheckBox; DBCheckBox7: TDBCheckBox; newpatient 1: TMenultem; BitBtn6: TBitBtn; DBComboBoxl 7: TDBComboBox; Edit2: TEdit; DBEditl: TDBEdit; Label38: TLabel; DBEdit24: TDBEdit; Label56: TLabel; DBEdit28: TDBEdit; Label57: TLabel; TablelLABARATORY: TStringField; TablelCASE: TStringField; TablelCERTAINTY: TStringField; Table 1 CLINICAL TEST: TStringField; Table 1 COMMITTING: TStringField; DBComboBox8: TDBComboBox; procedure exitClick(Sender: TObject);

procedure DBNavigator2Click(Sender: TObject; Button: TNavigateBtn); procedure BitBtnlClick(Sender: TObject);

Dr()Cedure newpatientl Click(Sender: TObject ); wwnrP.rlure save 1 Click(Sender: TObject );

procedure TabSheet4ContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean);

ate { Private declarations } public { Public declarations } end; var newpatient: Tnewpatient; implementation

{$R

*.DFM}

procedure Tnewpatient.exitClick(Sender: TObject); begin

NEWP ATIENT.CLOSE; end;

procedure Tnewpatient.DBNavigator2Click(Sender: TObject; Button: TNavigateBtn); begin table2protocolno:=tablelprotocolno; table3protocolno:=tablelprotocolno; dbedit7.Text:=TablelPROTOCOLNO.AsString; end;

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

if table l .active=false then begin

showmessage('choosed the correct patient'); abort;

end else begin

if messagedlg('changing is saved?',mtconfirmation,[ mbyes,mbno ],O)=mryes then begin

tablel.post; end else abort; end; end;

procedure Tnewpatient.BitBtn5Click(Sender: TObject ); begin

if ( edit2. text<>") then begin table 1.open;

table2.open; table3 .open;

if not tablel.FindKey([edit2.text]) then begin table 1.close;

table2.close; table3 .close;

messagedlg('PATIENT WAS NOT FOUND',mterror,[mbok],O); end;

end else begin

showmessage('ENTER THE PROTOCOL NO'); abort;

end; end;

procedure Tnewpatient.BitBtn6Click(Sender: TObject); begin

TABLE I .APPEND;

T ABLE2.APPEND;

T ABLE3.APPEND; end;

procedure Tnewpatient.newpatientl Click(Sender: TObject ); begin

end;

procedure Tnewpatient.savelClick(Sender: TObject); begin

if table l .active=false then begin

showmessage('choosed the correct patient'); abort;

end else begin

if messagedlg('changing is saved?',mtconfirmation, [ mbyes,mbno ],O)=mryes then begin tablel.post; end else abort; end; end;

2.5 Change the patientid records

The below the Figure 2.10 is show the recording patientidentity records.

Patient identity forms is shows the patient name,sumame,adress,city,phonenr,education

and civil status. If the user wants to change the concerning the patient identity records

the user can change from this screen.

,r l'A Ill. N 1 ID ll!ili!)i £1

SURNAME I SEX (MALE PROTOCOL NO (1 OD

========

JOB !STUDENT

1:::f

AORESS CITY TELEPHONE 31821i63389 +

_I

-

_I

.•.

_I

~

I,

21! 11, (!'

---r--

;----r··--

IKUTUK MALE SifNGLE KIRIKKALE

SEN MA'I.E MARR'IED kiilahya

URAL MALE MARRIED KKTC KIPER MALE SINGLE adan-a

MALE StNGLE KIRIKIKAL.E

~

2.5.1 Delphi a part of the source codes of the patientid

procedure Tpatientid.FINDClick(Sender: TObject); begin

if ( edit2. text<>") then begin tablel.open;

if not table l.FindKey([ edit2. text]) then begin table I .close;

messagedlg('PATIENT WAS NOT FOUND',mterror,[mbok],O); end;

end else begin

showmessage('ENTER THE PROTOCO NO'); abort;

end; END;

procedure Tpatientid. patient 1 Click(Sender: TObject ); begin

form9. table I .open; FORM9.SHOW; end;

procedure Tpatientid.BitBtn6Click(Sender: TObject); begin

TABLE I .APPEND; end;

procedure Tpatientid.SAVEClick(Sender: TObject); begin

if table l .active=false then begin

showmessage('choosed the correct patient'); abort;

end else begin table 1. post;

then begin end else abort; end; end;

procedure Tpatientid.savelClick(Sender: TObject); begin

if table 1.active=false then begin

showmessage('choosed the correct patient'); abort;

end else begin

if messagedlg('changing is saved?' ,mtconfirmation,[ mbyes,mbno ],O)=mryes then begin

end else abort; end; end;

procedure Tpatientid.exitl Click(Sender: TObject); begin

patientid.close; end;

procedure T patientid.newpatientl Click(Sender: TObject ); begin

TABLE I .APPEND; end;

2.6

Daily medicine

In now, the user goto doctor menu and later click the daily medicine sub menu

and then enter the daily medicine. The daily medicine is includes to must taken the

medicine lists and information about registeration patient record. Name,surname etc ...

Figure2.11

IPA1fllENT NAME

f

recep

PATiENT·SURNAME f1cutt1k PROTOCOLINO :r 1 0-0 IKUTUK IPENIOILIN 1SeN _{- ivrTAMiN C}

-fvuML

·

·

--1

---- -

..

j .. ·- - ·-· ---- 1 1<:IPE;l'l SE KER

Figure2.12

out(as the Figure2.13). First the user search the patient according to patient's

protocolno then the patient's name,patient's surname and protocol no is shows on the

menu. Later the user can enter the patient's medicine name, medicine drinking

ways,medicine drink time interval and medicine drink total dose are included on the

daily medicines menu.

-•r'

Print Preview

1:±J(Q]~

PATIENT M::IDICltE REAPORT

I

IMIE: 1111:1:U' IURI .•• E: KUIU< 1-.C:IOCX:UC:

••

IA:l.,...fl t.Wiff

_..,

ICXZING

••

--.~ PUICLN LHliffllNwYIA"""f I 1(.1.111. UC.:'=I:. _AI.IDNI 111 •••. INlt:INAI. I

I

IMIII: ..,._, IUIINAMII: '51.N n«:ICXX.."LN.. _••• IAl •••• fl P.'l:NI t,\lt,'S, l«K.P.IINC m

--

...•

u,.aWNt: '-'A""'

•

1(:1.111. Lit:'*

--

111.llklNI tlll'M.

"'

I

UJIIE: QCUUH IURUJIIE: 'AIRN. t,«ilCTJtiLf«i •az

I lr..lNI IIINAL

!

UME: ,...,,. _{IU RIME: "'IPER}

tlf .••. lNIWNAL

I

IMIE: ,,.,,. IU RNIIME:

-.,.iw,

,-,Page 1 of 2

Figure2.13

2.6.1 Delphi Source Codes of the Daily Medicine Menu

procedure TForm8.Button1Click(Sender: TObject);

begin

if (edit2.text<>") then begin

table I.open;

if not tablel.FindKey([edit2.text]) then begin table I .close;

messagedlg('Aranan Kisi Bulunamadi'.mterror.] mbok ],O); end; end else begin showmessage('protokol no giriniz'); abort; end; end;

procedure TForm8.SpeedButton3Click(Sender: TObject); begin

if table I .active=false then begin

showmessage('choosed the correct patient'); abort;

end else begin tablel.post;

if messagedlg('changing is saved?' ,mtconfirmation, [ mbyes,mbno] ,O)=mryes then begin

end else abort; end; end;

procedure TForm8.SpeedButtonIClick(Sender: TObject); begin

table I .append; end;

procedure TForm8.SpeedButton6Click(Sender: TObject); begin

form7.tableI .open;

procedure TForm8.SpeedButton7Click(Sender: TObject); begin

form7.tablel.open;

FORM7. QuickRep I .Print; form7.tablel.Close;

end;

procedure TF orm.8. Table 1 BeforePost(DataSet: TDataSet ); begin

if (DBEdit5.text=") or (DBedit6.Text=") or (DBedit7.Text=") or (DBComboBox2.Text=") then begin

Messagefrlgf'Bos

ilac

alanlanm giriniz!', mtWarning, [mbOK],

O);

abort; end; end;

procedure TForm.8.klClick(Sender: TObject); begin

form8.close; end;

procedure TF orm.8.HastaAramal Click(Sender: TObject ); begin

form9.tablel .open; FORM9.SHOW; end;

procedure TF orm.8.nizleme 1 Click(Sender: TObject ); begin

form7. table l .open;

FORM7. QuickRep l .Preview; form7. table 1.close;

end;

procedure TForm.8.YazdrlClick(Sender: TObject); begin

form7 .table l .open;

FORM7 .QuickRep l .Print; form7.tablel.Close;

end;

procedure TForm8.YeniKayt1Click(Sender: TObject); begin

table l .append; end;

procedure TForm8.Kaydet1Click(Sender: TObject); begin

if table l .active=false then begin

showmessage('choosed the correct patient'); abort;

end else begin tablel.post;

if messagedlg('changing is saved?' ,mtconfirmation, [ mbyes,mbno], O)=mryes then begin

end else abort; end; end;

2.

7 Patient Analysing Menu

In this form is included the patient name,surname,protocolno,patient

birthdate,department,clinical test result,rontgen result ana labarotory tests results. The

user is search the patient according to patient's protocolno and later user can change or

add the patient analysing the results as the technical health results. This form is shows

below the Figure 2.14.

fie

i:

exit

-- --- ---· ---

l!BD

---. -- ·-·~-

IDENTITY-;::=======--~~~~~~~--;:==::::==_...~~--,

NAME lrecep PROTOCOLNO

1

1 OO

SURNAME jkutiik DEPARTMENT Jii"EADING

BIRTH DATE jo,1.10.1930 ROOMNR jo1

CLINICAL F\ESULSTS hert,ey normal olculerde

LABO RA TORY RES UL TS standard bulgulara rastlanmamyt,tyr

RONGEN RESULTS gayet diizgiindiir.m

Figure 2.14.

2.7.1 Delphi Source Codes of the Patient Analysing Form

procedure TForm6.Speed.Button3Click(Sender: TObject); begin

if table 1.active=false then begin

showmessage('choosed the correct patient'); abort;

end else begin table 1. post;

if messagedlg('changing is saved ?',mtconfirmation,[ mbyes.mbno ],O)=mryes then begin

end else abort; END; end;

procedure TForm6.SpeedButton5Click(Sender: TObject); begin

table I .append; end;

procedure TForm.6.KaydetlClick(Sender: TObject); begin

if table l .active=false then begin

showmessage('choosed the correct patient'); abort;

end else begin table 1. post;

if messagedlg('changing is saved?' ,mtconfirmation, [ mbyes,mbno ], O)=mryes then begin

end else abort; end; end;

procedure TF orm.6.KaytDzelt 1 Click(Sender: TObject ); begin

table I .append; end;

procedure TForm.6.ButtonlClick(Sender: TObject); begin

if ( edit 1. text<>") then begin tablel.open;

if not tablel.FindKey([editl.text]) then begin table I.close;

messagedlg('Aranan Kisi Bulunamadi'.mterror.] mbok ],O); end;

end else begin

end; end;

procedure TForm6.DBNavigator 1 Click(Sender: TObject; Button: TNavigateBtn); begin

dbedit3.Text:=TablelPROTOCOLNO.AsString; end;

procedure TForm6.kl Click(Sender: TObject); begin

form6.close; end;

2.8 The Patient Search Form

The patient search form is included the searching part according to patient surname or name. When user enter the surname or name of the patient automatically,if the patient is in the recording in the hospital will be show. As the

Figure2.15.

ltATI ~NT Sf.ARCH

f.8.:1

IKiiiu1:

•

PROTOCOl_NR

f

1w

B~RTtlOA'fE

j

lM Ill, •.

:SEX

JJMtt

3

.

KIPER

:MAlE

SEKER

MALE

Z

FATVM SOY.ALAN ;MA!i

'~~~~~~,-,-~-,-~~-1

' ERGUN

OlDEMYR

IMAlE 0

- .. -- . ' ----·· - -- ~ 1--·-. - -

HAKYEl'\!trf

l>AHYN

MALE 0

•y

PEKDODAN

.

MA.lE

1 --

V

2.8.1 Delphi Source Codes of the Patient Search

.ne

unit Unit9;

interface

uses

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

Dialozs,

Grids, DBGrids, StdCtrls, Buttons, ExtCtrls, DBTables, Db, Menus,

ComCtrls, DBCtrls, Mask;

type

TForm9 = class(TForm)

Panel3: TPanel;

SpeedButtonl: TSpeedButton;

Panel2: TPanel;

Labell: TLabel;

Label2: TLabel;

Label4: TLabel;

Label6: TLabel;

Labels: TLabel;

Panell: TPanel;

DBGridl: TDBGrid;

DataSource 1: TDataSource;

Tablel: TTable;

TablelPROTOCOLNO: TStringField;

TablelSURNAME: TStringField;

TablelNAME: TStringField;

Table

1

SEX: TStringField;

TablelBIRTHDATE: TDateField;

Editl: TEdit;

Label3: TLabel;

Label5: TLabel;

Edit2: TEdit;

Edit4: TEdit;

Edit6: TEdit; Edit7: TEdit;

procedure exit 1 Click(Sender: TObject ); procedure Edit 1

Change(Sender: TObject

);

procedure Edit2Change(Sender: TObject);

procedure SpeedButtonl Click(Sender: TObject

);

procedure Panel3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form.9:

TForm9;

implementation

{$R *.DFM}

procedure TForm.9.exitlClick(Sender: TObject);

begin

form9.close;

end;

procedure TForm.9.EditlChange(Sender: TObject);

begin

Table

I

.First;

While not Tablel.EofDo

Begin

If (Tablelname.Text=Editl.Text) then

Begin

Edit4.Text:=Tablelname.Text;

edit5

.text:=table

1

surname.

text;

edit6.text:=table

1

protocolno.text;

edit7

.text:=table

1

birthdate.

text;

comboboxl.text:=tablelsex.text;

end;

end; end;

procedure TF orm9 .Edit2Change(Sender: TObject ); begin

Tablel.First;

While not Tablel.EofDo Begin

If (Table 1 surname. T ext=Edit2. Text) then Begin

Edit4.Text:=Tablelname.Text; edit5 .text:=table 1 surname. text; edit 6. text:=table 1 protocolno. text; edit?. text:=table 1 birthdate. text; comboboxl .text:=tablelsex.text; end;

table I .next; end;

end;

procedure TForm9.SpeedButton1Click(Sender: TObject); begin

FORM9.CLOSE; end;

CHAPTER-3

DATABASES

3.1 What is the Paradox?

The Paradox standard table format was introduced in Paradox for

version 4. Other products that use the standard format include Paradox for DOS

version 4.5, ObjectVision 2.1, and Paradox for Windows versions 1.0 and 4.5.

Earlier versions of the Paradox table type are referred to as the Compatible table type. In the BDE Configuration Utility, the level option for the Paradox driver dictates what default table type is created by Paradox for Windows. Use 3 for Compatible tables, 4 for Standard tables (the default). Following are the specifications for standard Paradox tables.

• 256MB file size limit if the table is in Paradox format and using a 4K block size.

• Up to 255 fields per record. • Up to 64 validity checks per table.

• A primary index can have up to 16 fields.

• Tables can have up to 127 secondary indexes.

• Up to two billion records per file. Because of the 256MB file size limit and other factors such as block size, however, the limit is much smaller. Tables of 190,000 records are easily achievable (and you can have more if you don't use up the 1,350-bytes-per-record limit for a keyed table). Tables with close to a million records are common.

• Block size can be 1024, 2048, 3072, or 4096. Paradox stores data in fixed

records. Even if part or all of the record is empty, the space is claimed.

Knowing the interworkings can save you disk space. Paradox stores records

in fixed blocks of1024 2048, 3072, 4096 in size.

After a block size is set for a table, that size is fixed, and all blocks in the table will be of that size. To conserve disk space, you want to try to get your record size as close to a multiple of block size as possible (minus 6 bytes, which are used by Paradox to manage the table).

• Record size. 1,350 for keyed tables and 4,000 for unkeyed tables. When

figuring out the size (the number of bytes or characters) of a table,

bytes), numeric field types take up 8 bytes, short number field type5 take

up 2 bytes, money takes up 8, and dates take up 4 bytes.

• Memos, BLOBS, and so on take 10 bytes plus however much of the memo is stored

the .DB. For example, MlS takes 25 bytes .

•

3.2 ParadoxS Table Specifications

The Paradox 5 table format was Introduced In Paradox for Windows versl

5. Following are the specifications for Paradox 5 tables. • Up to two billion records per file.

• File size is limited to two gigabytes. • Up to 255 fields per record.

• Record size: Up to 10,800 bytes per record for indexed tables and 32,750 bytes per record for nonindexed tables. When figuring out the size (the

number of bytes or characters) of a table, remember that Alpha fields take up their size (for example, an A10 = 10 bytes), numertc field types take up

8 bytes, short number field types take up 2 bytes, money takes up 8, and

dates take up 4 bytes.

• Memos, BLOBs, and so on take 10 bytes plus however much of the memo Is

stored in the .DB. For example, M15 takes 25 bytes.

• Up to 64 validity checks per table for Paradox for Windows tables. • A primary index can have up to 16 fields.

• Tables can have up to 127 secondary indexes.

• Block size can be from 1K to 32K in steps of 1K. For example, 1024, 2048,

3072, 4096, 5120 ... 32768.

3.3 Paradox 7 and above Table Specifications

The Paradox 7 table format was introduced in Paradox version 7 for Windows 95/NT. The Paradox 7 table format has all the same specifications as the Paradox 5 table format with two additions. Following are the specification additions for the

Paradox 7 table format.

• Added descending secondary indexes.

3.4 Paradox Field Types

3.4.lAlpha (A)

Paradox 3.5, 4, 5, and 7 field type that can contain up to 255 letters and numbers. This field type was called Alphanumeric in versions of Paradox before version 5. It is similar to the Character field type in dBASE.

3.4.2 Autoincrement (

+)

Field type introduced in the Paradox 5 table format that adds one to the highest number in the table whenever a record is inserted. The starting range can from -2,147,483,647 to 2,147,483,647. Deleting a record does not change the field values of other records.

3.4.3 BCD(#)

Paradox 5 and 7 field type which is provided only for compatibility with other applications that use BCD data. Paradox correctly interprets BCD data from other

applications that use the BCD type. When Paradox performs calculations on BCD

data, it converts the data to the numeric float type, then converts the result back to BCD. When this field type is fully supported, it will support up to 32 significant digits.

3.4.4 Binary (B)

Paradox 1, 5, and 7 field type that can store binary data up to 256MB per field.

3.4.5 Bytes (Y)

Paradox 5 and 7 field type for storing binary data up to 255 bytes. Unlike binary fields, bytes fields are stored in the Paradox table (rather than in the separate .MB file), allowing for faster access.

3.4.6 Date (D)

Paradox 3.5, 4, 5, and 7 as well as dBASE III+, IV, and V. dBASE tables can

store dates from January 1, 100, to December 31, 9999. Paradox 5 tables can store

from 12/31/9999 B.C. to 12/31/9999 A.D.

3.4. 7 Formatted Memo (F)

Paradox 1, 4.5, 5, and 7 field type is like a memo field except that you can format the text. You can alter and store the text attributes of typeface, style, color, and size. This rich text document has a variable-length up to 256MB per field.

3.4.8 Graphic (G)

Paradox 1, 5, and 7 field type can contain pictures in .BMP (up to 24 bit), .TIF (up to 256 color), .GIF (up to 256 color), .PCX, and .EPS file formats. Not all graphic variations are available. For example, currently you cannot store a 24-bit .TIF graphic. When you paste a graphic into a graphic field, Paradox converts the graphic into the .BMP format.

3.4.9 Logical (L)

Paradox 5 and 7 and dBASE Ill+, IV, and V field type can store values representing True or False (yes or no). By default, valid entries include T and F (case is not important).

3.4.10 Memo (M)

Paradox 4, 5, and 7 as well as dBASE Ill+, IV, and V field. A Paradox field type is an Alpha variable-length field up to 256MB per field. dBASE Memo fields can contain binary as well as memo data.

For Paradox tables, the file is divided into blocks of 512 characters. Each block is referenced by a sequential number, beginning at zero. Block O begins with a 4- byte number in hexadecimal format, in which the least significant byte comes first. This number specifies the number of the next available block. It is, in effect, a

pointer to the end of the memo file. The remainder of Block O isn't used.

3.4.11 Money

($)

Paradox 3.5, 4, 5, and 7 field type, like number fields, can contain only numbers. They can hold positive or negative values. Paradox recognizes up to six decimal places when performing internal calculations on money fields. This field type was called Currency in previous versions of Paradox.

3.4.12 OLE

(0)

Paradox 1, 5, and 7 as well as dBASE V field type that can store OLE data.

3.4.13 Number (N)

Paradox 3.5, 4, 5, and 7 as well as dBASE Ill+, IV, and V field type can store up to 15 significant digits -10307 to + 10308 with up to 15 significant digits.

dBASE number fields contain numeric data in a Binary Coded Decimal (BCD)

greater precision than are calculations on float number

nei::s

number field can be from 1 to 20. Remember, however, and 7 only for compatibility and is mapped directly to the

3.4.14 Short (S)

Paradox 3.5, 4, 5, and 7 field type that can contain integers through 32,767 (no decimal).

3.4.15 Time (T)

Paradox

5

and

7

field type that can contain time times of day, stored. ·..,_ milliseconds since midnight and limited to 24 hours.

This field type does not store duration which is the difference between two

times

For example, if you need to store the duration of a song, use an Alpha field. Whenever you need to store time, make a distinction between clock time and duration. The Time field type is perfect for clock time. Duration can be stored in a

Alpha field and manipulated with code.

3.4.16TimeStamp (@)

Paradox 5 field type comprised of both date and time values. Rules for this field type are the same as those for date fields and time fields.

3.5 Tables

astructure Paradox 7 Table: TABLE1.db ~

Field roster: Field Name ,---·--· - - -~ ~- PROTtJCOLNO 1 2 l-su_R_N_A_M_E 3 NAME 4 TELEPHONE

:irt:

7tAD~ESS ElLCITY 9 BIRTHPLACE 10 BIRTHDATE 11 · .divtLSJ A TUS Table properties: Size

1y

=

A A A N A A

A

A A

·o

A

~ ·- ?;;;:i,~Jl-1

~:i (

Validity Checks

D~tme.,

f

r

1. Required Field. 2. Minimum value: 20 6 60 20 20 3. Maximum value: 4. Default value: 10

!Enter a field name up_to 25 charac.ters long. 5: Picture:

r

pack T'able Assist...

t

,a.ave

I

Save As ... Cancel Help

Above the Figure 3.1,tablel is used the newapatient,patientid and some menus will call the data from table 1. I used the unique according to protocl no and so the same protocol never used to other patient's protocolno. I used to for table 1 datasourcel. Because I used to usually dbedit component,dbmemo on the program and I call from datasource.

Restructure Paradox 7Table: TABLE2.db

__ _,/

Field Name

Table properties:

,T

~r

Size20

J, ~

jvaldl,

Checks

...

. . • = Dehne...

I

A 20 .

~ • ~I •. ·

r

1 R..,..dfeld A i 20 I , 2. Minimum value. N N

II

II

u

3. Maximum value: N

~ it

50

Ji

111

4. Default value: N Field roster:

PRC~OCOLNO

~

1 2 !-H-EL_P_E-RT_O_O_LS

3

!BLOODGROUP 4· HEARINGTOOLS

5

ALLERGY

6

HEIGHT 7[WEIGHT slsooYHEAT 9 tESTIMATION 1otPULSATION 11 iBLOODPRESSURE

[Enter a field name up to 25 characters long. 5. Picture:

~av~

I

Save

as ...

Assist...

j

Cancel

I

Help

r

Pack. Table

Figure 3.2

The above the Figure3.2 is used to other tabshhets page on the new patient

form. The user call the table2 other tabsheets form.

Restructure Paradox 7 Table: TABLE2.db

fix

Field roster. Table •.••.• -.

FielilName :Type Size IIKey

OTHEF'.ILLNE::s A A

A

A A A A N

A

A A 12, __ , __ 13 )BEFOREMEDICINE

14

~SLEEPING 151ACHE 16 (ACH_EPLACE 17 SMOKE 18~ALCHOL 19_

1

HEARDPULSATION 20 !RESPIRATION 21 · [ANAMNESIS L2 tCOMPLAINT 50 50

40

25 30 15 10 ue

r

1. R ecµred Field ",j[ _2._M_im_·mum __ v_aue:_· ...=..,.. 3. Maximum value: 20 70 70 4. Default value:

I

IE"'"'

a field neme up to 25 oharaclel• ion!>

1,.s_.

Pi_·c_tur_e: _

r

PeckT able Assist...

Save Help

Figure 3.3

Restructure Paradox

J

Table: TABLE2.db ~

Table· properties:

iTypel Size !Key! .~

I

validity Checks

A

I

70 .

:1

Defin~

I

A. 70 · - A • 10

1

r

1. Required Field A _A

I

40

;

..

15 , , ~ 2. Minimum :,,,alue: A 10

A 30j!

_Iii

3. Maximum value:

1,

15 15

~1

~u

111

4. Default value: 30 Field roster: Field Name COlv1PU\INT ] 22 _ 23IBEFOREAFFECTION 24: !PROSTHESIS 25 !REACTIONS 26 MOTHERTONGUE 27 COUGHER 28 ,LASTJOBDECLARATION 29 DRUG 30 HIV

3t

,SURGICIAUNTERVENTION 32 ,MEDICINENAMES

Enter e field Mine up to 25_ cherecters long. 5. Picture:

r

P eek Table Save

..••...

_I

s·aveAs: ..

J

Assist...

J

Cancel

j

H8')

Figure 3.4

Field roster:

Field Name

If

yp~U

Si~~ Key

,,. l .. - 20

~I

30 40 A~ ₄₀ A 40 "' A 40 A 40 f-'h'U l Ul ULNU

,

_

2 iRONTGENTESTS 3

r ..

lABAROTORYTEST 41CASE 5 !CERTAINTY

6

rcLiNICA[TESTs ?\COMMITTING

!Enter a field n{lm.e up to 25 characters long.

r Pack Table

4. Defd

5. Pich.le:

Assist ...

! .

.~ave

J

SaveBs ...

I

Cancel

Figure 3.5

I used the four databases tables in the databases system in the programs,

table is used to patient analysing form. And I called this table from the datasouree,

I used a lot of datasource on the prgram. Because I connected database ~.

with datasources components. Because this is more easily and more usefull ·

database programming system.

CONCLUSION

I have demonstrated a small program which details with

them. This demonstration has been valuable and helpful for the future -

write programmes much more acurate than the first attempt.

I have discovered that once a program is needed to be wrinec

firstly we must discover the needs and wants of the user. Once the fl.on.-:-~

system is in the picture half of the program is counted as done. We have di

to do something well you must understand and apply to your work. With De

construct programmes which can help a lot of users.

This program also has started to writing program in our life and this

nm:-:r-

will help us to our future programming or workink life.

The most important point in this program which used the hospital or

hi

REFERENCES

[l] Memik Yamk, Borland Delphi 5 ile Gorsel Programlama Teknikleri, Beta Yayun

dagitim San. Ve Tic. Ltd ~ti

[2] Marcu Cantu, Delphi 5(pratic to develop the guide), Alfa Basim Y

ayun dagrtim

A.~. istanbul/ Turkey, January 2000.