APPENDIX
PROGRAM SOURCE CODES
4.1 Form 1
Patient Observation Program v.I Pasword Entry Screen object Form1: TForm1
Left = 371 Top = 231 Width = 448 Height = 253
BorderIcons = [biSystemMenu, biMinimize]
Caption = 'Patient Observation Program v.I Pasword Entry Screen' Color = clWindow
Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif' Font.Style = []
OldCreateOrder = False OnActivate = FormActivate OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 24
Top = 88
Width = 32 Height = 13 Caption = 'Label1' end
object Image3: TImage Left = 353
Top = 112 Width = 32 Height = 41
end
object Label4: TLabel Left = 10
Top = 117 Width = 138 Height = 14
Caption = 'Private Question Answer' Font.Charset =
TURKISH_CHARSET
Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold]
ParentFont = False end
object Label2: TLabel Left = 6
Top = 115 Width = 61 Height = 16
Caption = 'Password' Font.Charset = TURKISH_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold]
ParentFont = False end
object Label3: TLabel Left = 8
Top = 85 Width = 69 Height = 16
Caption = 'User Name' Font.Charset =
TURKISH_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold]
ParentFont = False end
object Image2: TImage Left = 313
Top = 90 Width = 112 Height = 87 end
object Image4: TImage Left = 40
Top = 0 Width = 361 Height = 57 end
object Label5: TLabel Left = 110
Top = 33 Width = 189 Height = 12
Caption = 'Your Password is' Font.Charset = ANSI_CHARSET Font.Color = clRed
Font.Height = -19 Font.Name = 'POP ' Font.Style = [fsBold]
ParentFont = False end
object Panel1: TPanel Left = 328
Top = 184 Width = 97 Height = 33
Cursor = crHandPoint BevelInner = bvSpace BevelOuter = bvLowered Caption = ' Password?' Color = clWindow
DragCursor = crHandPoint Font.Charset =
TURKISH_CHARSET Font.Color = clRed Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold]
ParentFont = False TabOrder = 4
OnClick = Panel1Click object Image1: TImage Left = 1
Top = 2 Width = 32 Height = 31 end
end
object Edit1: TEdit Left = 152
Top = 83 Width = 121 Height = 22
CharCase = ecLowerCase Color = clMoneyGreen
Font.Charset = ANSI_CHARSET Font.Color = clMaroon
Font.Height = -12 Font.Name = 'Tahoma' Font.Style = [fsBold]
ParentFont = False TabOrder = 0
OnKeyPress = Edit1KeyPress end
object BitBtn1: TBitBtn Left = 104
Top = 147 Width = 76 Height = 25
Cursor = crHandPoint Caption = 'Ok'
Default = True
DragCursor = crHandPoint Font.Charset =
DEFAULT_CHARSET Font.Color = clMaroon Font.Height = -12
Font.Name = 'MS Sans Serif' Font.Style = [fsBold]
ModalResult = 1 ParentFont = False TabOrder = 2
OnClick = BitBtn1Click NumGlyphs = 2
end
object BitBtn2: TBitBtn Left = 199
Top = 147 Width = 76 Height = 25
Cursor = crHandPoint DragCursor = crHandPoint Font.Charset =
DEFAULT_CHARSET Font.Color = clMaroon Font.Height = -12
Font.Name = 'MS Sans Serif' Font.Style = [fsBold]
ParentFont = False TabOrder = 3
OnClick = BitBtn2Click Kind = bkCancel
end
object Edit2: TEdit Left = 151
Top = 114 Width = 121 Height = 22
CharCase = ecLowerCase Color = clWhite
Font.Charset = ANSI_CHARSET Font.Color = clMaroon
Font.Height = -12 Font.Name = 'Tahoma' Font.Style = [fsBold]
ParentFont = False PasswordChar = '#' TabOrder = 1
OnKeyPress = Edit2KeyPress end
object BitBtn3: TBitBtn Left = 64
Top = 146 Width = 113 Height = 27
Cursor = crHandPoint Caption = 'Find Password' DragCursor = crHandPoint Font.Charset =
DEFAULT_CHARSET Font.Color = clMaroon Font.Height = -11
Font.Name = 'MS Sans Serif' Font.Style = [fsBold]
ParentFont = False TabOrder = 5
OnClick = BitBtn3Click
NumGlyphs = 2 end
object Panel2: TPanel Left = 121
Top = 49 Width = 185 Height = 33
BevelInner = bvLowered BevelOuter = bvSpace Color = clWhite Font.Charset = TURKISH_CHARSET Font.Color = clMaroon Font.Height = -19 Font.Name = 'Tahoma' Font.Style = [fsBold]
ParentFont = False TabOrder = 6 end
object BitBtn4: TBitBtn Left = 200
Top = 146 Width = 108 Height = 27
Cursor = crHandPoint Caption = '&Exit'
DragCursor = crHandPoint Font.Charset =
TURKISH_CHARSET Font.Color = clMaroon Font.Height = -13 Font.Name = 'Tahoma' Font.Style = [fsBold]
ParentFont = False TabOrder = 7
OnClick = BitBtn4Click
end
object ComboBox1: TComboBox Left = 150
Top = 84 Width = 126 Height = 22 Color = clWhite Font.Charset = TURKISH_CHARSET Font.Color = clMaroon Font.Height = -12 Font.Name = 'Tahoma' Font.Style = [fsBold]
ItemHeight = 14 ParentFont = False TabOrder = 8
OnChange = ComboBox1Change end
object Query1: TQuery Active = True
DatabaseName = 'prdx' RequestLive = True SQL.Strings = (
'select * from kullanici') Left = 376
Top = 101 end
object DataSource1: TDataSource DataSet = Query1
Left = 352 Top = 101 end
object DataSource2: TDataSource DataSet = Query2
Left = 336
Top = 16 end
object Query2: TQuery Active = True
DatabaseName = 'IPCFG' RequestLive = True SQL.Strings = (
'select * from serinum') Left = 360
Top = 8 end
object NMFTP1: TNMFTP Port = 21
ReportLevel = 0 Vendor = 2411 ParseList = False ProxyPort = 0 Passive = False
FirewallType = FTUser FWAuthenticate = False Left = 288
Top = 112 end
object Query3: TQuery Active = True
DatabaseName = 'prdx' RequestLive = True SQL.Strings = ( 'select * from yetki') Top = 136
end
object DataSource3: TDataSource DataSet = Query3
Left = 65533 Top = 160
end
object XPMenu1: TXPMenu DimLevel = 30
GrayLevel = 10 Font.Charset = DEFAULT_CHARSET Font.Color = clMenuText Font.Height = -11
Font.Name = 'Tahoma' Font.Style = []
Color = clBtnFace
IconBackColor = clBtnFace MenuBarColor = clBtnFace SelectColor = clHighlight SelectBorderColor = clHighlight SelectFontColor = clMenuText DisabledColor = clInactiveCaption SeparatorColor = clBtnFace CheckedColor = clHighlight IconWidth = 24
DrawSelect = True UseSystemColors = True OverrideOwnerDraw = False Gradient = False
FlatMenu = False AutoDetect = False Active = True Left = 64 Top = 16 end end
4.2 Form2 Main Screen
object Panel1: TPanel Left = 344
Top = 78 Width = 9 Height = 3
BevelInner = bvLowered BevelOuter = bvSpace Color = clWhite Font.Charset = TURKISH_CHARSET Font.Color = clRed Font.Height = -15 Font.Name = 'Tahoma' Font.Style = [fsBold]
ParentFont = False TabOrder = 3 end
object BitBtn1: TBitBtn Left = 368
Top = 336 Width = 81 Height = 17
Caption = 'Make Icon' Font.Charset = TURKISH_CHARSET Font.Color = clMaroon Font.Height = -13 Font.Name = 'Tahoma' Font.Style = [fsBold]
ParentFont = False TabOrder = 2
OnClick = BitBtn1Click end
object Panel2: TPanel Left = 257
Top = 336 Width = 328 Height = 30
BevelInner = bvLowered BevelOuter = bvLowered Color = clWhite
Font.Charset = DEFAULT_CHARSET Font.Color = clMaroon Font.Height = -13
Font.Name = 'MS Sans Serif' Font.Style = [fsBold]
ParentFont = False TabOrder = 0 end
object Edit1: TEdit Left = 336
Top = 72 Width = 121 Height = 21 TabOrder = 1 Visible = False end
object MainMenu1: TMainMenu OwnerDraw = True
Left = 16 Top = 136
object HastaKayt1: TMenuItem Caption = 'Record Patient' object DosyaA1: TMenuItem Caption = 'Open File' OnClick = DosyaA1Click end
object MuayeneKayit1: TMenuItem Caption = 'Inspection Record' OnClick = MuayeneKayit1Click end
end
object HastaKaytListeleri1:
TMenuItem
Caption = 'Listing Panel' object KaytlHastaListesi1:
TMenuItem
Caption = 'Recorded Patient List' OnClick =
KaytlHastaListesi1Click end
object HastaMuayeneListesi1:
TMenuItem
Caption = 'Inspection List' OnClick =
HastaMuayeneListesi1Click end
end
object KaytArama1: TMenuItem Caption = 'Record Search Panel' object KaytlHastaGre1: TMenuItem Caption = 'Search Recorded Patient'
OnClick = KaytlHastaGre1Click end
object HastaMuayeneArama1:
TMenuItem
Caption = 'Inspection Search' OnClick =
HastaMuayeneArama1Click end
end
object KaytDzeltme1: TMenuItem Caption = 'Correction Panel' object KaytlHastaDzeltme1:
TMenuItem
Caption = 'Recorded Patient Correction'
OnClick =
KaytlHastaDzeltme1Click
end
object HastaMuayeneDzeltme1:
TMenuItem
Caption = 'Inspection Correction' OnClick =
HastaMuayeneDzeltme1Click end
end
object RaporveYazdrma1:
TMenuItem
Caption = 'Erasing Panel' object KaytlHastaSilme1:
TMenuItem
Caption = 'Erase Recorded Patient' OnClick = KaytlHastaSilme1Click end
object HastaMuayeneSilme1:
TMenuItem
Caption = 'Inspection Erase' OnClick =
HastaMuayeneSilme1Click end
end
object Yardm1: TMenuItem Caption = 'Tools'
object YeniKullancEkle1:
TMenuItem
Caption = 'User Process Panel(Add/Delete/Chance User)'
OnClick = YeniKullancEkle1Click end
object laEklemeBlm1: TMenuItem Caption = 'Adding Medicine' OnClick = laEklemeBlm1Click end
object ProgramdaykenYetkiAlma1:
TMenuItem
Caption = 'Authority Taking Panel'
OnClick =
ProgramdaykenYetkiAlma1Click end
end
object RandevuBlm1: TMenuItem Caption = 'Engagement Panel' object RandevuEkle1: TMenuItem Caption = 'Engagement Record ' OnClick = RandevuEkle1Click end
object RandevuSil1: TMenuItem Caption = 'Engagement Erase' OnClick = RandevuSil1Click end
object RandevuDzelt1: TMenuItem Caption = 'Engagement Correction' OnClick = RandevuDzelt1Click end
object RandevuListesineBak1:
TMenuItem
Caption = 'Engagement List' OnClick =
RandevuListesineBak1Click end
end
object yardm2: TMenuItem Caption = 'Dear ATAT'#220'RK' OnClick = Yardm2Click
end
object Hakknda1: TMenuItem Caption = 'About POP' OnClick = Hakknda1Click end
object Programdank1: TMenuItem Caption = 'EXIT'
OnClick = Programdank1Click
end end
object Timer1: TTimer OnTimer = Timer1Timer Left = 496
Top = 264 end
object Timer2: TTimer OnTimer = Timer2Timer Left = 496
Top = 240 end
object XPMenu1: TXPMenu DimLevel = 30
GrayLevel = 10 Font.Charset = DEFAULT_CHARSET Font.Color = clMenuText Font.Height = -11
Font.Name = 'Tahoma' Font.Style = []
Color = clBtnFace
IconBackColor = clBtnFace MenuBarColor = clBtnFace SelectColor = clHighlight SelectBorderColor = clHighlight SelectFontColor = clMenuText DisabledColor = clInactiveCaption SeparatorColor = clBtnFace CheckedColor = clHighlight IconWidth = 24
DrawSelect = True UseSystemColors = True OverrideOwnerDraw = False Gradient = False
FlatMenu = False AutoDetect = False Active = True Left = 44 Top = 136 end
object Query1: TQuery Active = True
DatabaseName = 'prdx' RequestLive = True SQL.Strings = ( 'select * from yetki') Left = 184
Top = 53 end
object DataSource1: TDataSource DataSet = Query1
Left = 184 Top = 80 end
object DataSource2: TDataSource DataSet = Query2
Left = 528 Top = 112 end
object Query2: TQuery Active = True
DatabaseName = 'prdx' RequestLive = True SQL.Strings = (
'select * from randevu') Left = 558
Top = 114 end
end
4.3 Form 3
User Process Panel object Form3: TForm3 Left = 465
Top = 152 Width = 339 Height = 271
BorderIcons = [biMinimize]
Caption = ' User Process Panel' Color = clWhite
Font.Charset =
DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11
Font.Name = 'MS Sans Serif' Font.Style = []
OldCreateOrder = False Position = poScreenCenter PixelsPerInch = 96
TextHeight = 13
object PageControl1: TPageControl Left = 2
Top = 0 Width = 329 Height = 237
ActivePage = TabSheet2 Align = alRight
Font.Charset = TURKISH_CHARSET Font.Color = clMaroon Font.Height = -12 Font.Name = 'Tahoma' Font.Style = [fsBold]
ParentFont = False TabIndex = 1 TabOrder = 0
object TabSheet1: TTabSheet Caption = 'New User' object Label4: TLabel Left = 2
Top = 16 Width = 63 Height = 13
Caption = 'User Name' Font.Charset =
DEFAULT_CHARSET Font.Color = clMaroon Font.Height = -11
Font.Name = 'MS Sans Serif' Font.Style = [fsBold]
ParentFont = False end
object Label5: TLabel Left = 2
Top = 74 Width = 95 Height = 13
Caption = 'Verify Password ' Font.Charset =
DEFAULT_CHARSET Font.Color = clMaroon Font.Height = -11
Font.Name = 'MS Sans Serif' Font.Style = [fsBold]
ParentFont = False end
object Label7: TLabel Left = 2
Top = 45 Width = 55 Height = 13
Caption = 'Password'
Font.Charset = DEFAULT_CHARSET Font.Color = clMaroon Font.Height = -11
Font.Name = 'MS Sans Serif' Font.Style = [fsBold]
ParentFont = False end
object Label9: TLabel Left = 2
Top = 96 Width = 131 Height = 15
Caption = 'Answer Private Question'
Font.Charset = TURKISH_CHARSET Font.Color = clMaroon Font.Height = -12
Font.Name = 'Times New Roman' Font.Style = [fsBold]
ParentFont = False end
object Label11: TLabel Left = 0
Top = 128 Width = 85 Height = 14
Caption = 'Authorization' Font.Charset =
TURKISH_CHARSET Font.Color = clMaroon Font.Height = -12 Font.Name = 'Tahoma' Font.Style = [fsBold]
ParentFont = False
end
object BitBtn1: TBitBtn Left = 48
Top = 168 Width = 76 Height = 25
Cursor = crHandPoint TabOrder = 5
OnClick = BitBtn1Click Kind = bkOK
end
object BitBtn2: TBitBtn Left = 185
Top = 167 Width = 76 Height = 25
Cursor = crHandPoint TabOrder = 6
OnClick = BitBtn2Click Kind = bkCancel
end
object Edit5: TEdit Left = 132
Top = 12 Width = 121 Height = 22
CharCase = ecLowerCase TabOrder = 0
end
object Edit6: TEdit Left = 132
Top = 40 Width = 121 Height = 22
CharCase = ecLowerCase
PasswordChar = '*' TabOrder = 1 end
object Edit7: TEdit Left = 132
Top = 67 Width = 121 Height = 22
CharCase = ecLowerCase PasswordChar = '*' TabOrder = 2 end
object Edit9: TEdit Left = 133
Top = 92 Width = 121 Height = 22
CharCase = ecLowerCase TabOrder = 3
end
object ComboBox1: TComboBox Left = 132
Top = 119 Width = 129 Height = 22 ItemHeight = 14 TabOrder = 4 Items.Strings = ( 'Super User' 'Restricted User') end
end
object TabSheet2: TTabSheet Caption = 'Change Password' ImageIndex = 1
object Label3: TLabel Left = 6
Top = 72 Width = 84 Height = 13
Caption = 'New Password' Font.Charset =
DEFAULT_CHARSET Font.Color = clMaroon Font.Height = -11
Font.Name = 'MS Sans Serif' Font.Style = [fsBold]
ParentFont = False end
object Label2: TLabel Left = 10
Top = 44 Width = 55 Height = 13
Caption = 'Password' Font.Charset = DEFAULT_CHARSET Font.Color = clMaroon Font.Height = -11
Font.Name = 'MS Sans Serif' Font.Style = [fsBold]
ParentFont = False end
object Label1: TLabel Left = 9
Top = 16 Width = 63 Height = 13
Caption = 'User Name' Font.Charset =
DEFAULT_CHARSET
Font.Color = clMaroon Font.Height = -11
Font.Name = 'MS Sans Serif' Font.Style = [fsBold]
ParentFont = False end
object Label8: TLabel Left = 2
Top = 100 Width = 91 Height = 13
Caption = 'Verify Password' Font.Charset =
DEFAULT_CHARSET Font.Color = clMaroon Font.Height = -11
Font.Name = 'MS Sans Serif' Font.Style = [fsBold]
ParentFont = False end
object BitBtn4: TBitBtn Left = 179
Top = 134 Width = 76 Height = 25
Cursor = crHandPoint TabOrder = 5
OnClick = BitBtn4Click Kind = bkCancel
end
object Edit1: TEdit Left = 132
Top = 12 Width = 121 Height = 22
CharCase = ecLowerCase TabOrder = 0
end
object Edit2: TEdit Left = 132
Top = 40 Width = 121 Height = 22
CharCase = ecLowerCase PasswordChar = '*' TabOrder = 1 end
object Edit3: TEdit Left = 132
Top = 67 Width = 121 Height = 22
CharCase = ecLowerCase PasswordChar = '*' TabOrder = 2 end
object BitBtn3: TBitBtn Left = 54
Top = 136 Width = 76 Height = 23
Cursor = crHandPoint TabOrder = 4
OnClick = BitBtn3Click Kind = bkOK
end
object Edit8: TEdit Left = 131
Top = 95 Width = 121
Height = 22
CharCase = ecLowerCase PasswordChar = '*' TabOrder = 3 end
end
object TabSheet3: TTabSheet Caption = 'Delete User' ImageIndex = 2
object Label6: TLabel Left = 34
Top = 41 Width = 63 Height = 13
Caption = 'User Name' Font.Charset =
DEFAULT_CHARSET Font.Color = clMaroon Font.Height = -11
Font.Name = 'MS Sans Serif' Font.Style = [fsBold]
ParentFont = False end
object Label10: TLabel Left = 41
Top = 80 Width = 59 Height = 14
Caption = 'Password' Font.Charset = TURKISH_CHARSET Font.Color = clMaroon Font.Height = -12 Font.Name = 'Tahoma' Font.Style = [fsBold]
ParentFont = False
end
object Edit4: TEdit Left = 108
Top = 37 Width = 121 Height = 22
CharCase = ecLowerCase TabOrder = 0
end
object BitBtn5: TBitBtn Left = 49
Top = 131 Width = 76 Height = 25
Cursor = crHandPoint TabOrder = 2
OnClick = BitBtn5Click Kind = bkOK
end
object BitBtn6: TBitBtn Left = 167
Top = 131 Width = 76 Height = 25
Cursor = crHandPoint TabOrder = 3
OnClick = BitBtn6Click Kind = bkCancel
end
object Edit10: TEdit Left = 108
Top = 74 Width = 121 Height = 22
PasswordChar = '$'
TabOrder = 1 end
end end
object Query1: TQuery Active = True
DatabaseName = 'prdx' RequestLive = True SQL.Strings = (
'select * from kullanici') Left = 264
Top = 104 end
object DataSource1: TDataSource DataSet = Query1
Left = 256 Top = 40 end
object DataSource2: TDataSource DataSet = Query2
Left = 24 Top = 48 end
object Query2: TQuery Active = True
DatabaseName = 'prdx' RequestLive = True SQL.Strings = ( 'select * from yetki') Left = 24
Top = 176 end
end
4.4 Form 4
Patient Record Panel
object Form4: TForm4 Left = 249
Top = 14
BorderIcons = []
BorderStyle = bsSingle
Caption = ' PATIENT RECORD PANEL'
ClientHeight = 672 ClientWidth = 714 Color = clWhite Font.Charset =
DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11
Font.Name = 'MS Sans Serif' Font.Style = []
KeyPreview = True OldCreateOrder = False Position = poScreenCenter OnKeyPress = FormKeyPress OnShow = FormShow
PixelsPerInch = 96 TextHeight = 13
object GroupBox1: TGroupBox Left = 5
Top = 1 Width = 706 Height = 305
Caption = 'Patient ID'#39's' Color = clWhite
Font.Charset = TURKISH_CHARSET Font.Color = clMaroon Font.Height = -12 Font.Name = 'Tahoma' Font.Style = [fsBold]
ParentColor = False ParentFont = False TabOrder = 0
object Label2: TLabel Left = 8
Top = 53 Width = 81 Height = 14
Caption = 'Name...:' Font.Charset =
TURKISH_CHARSET Font.Color = clBlack Font.Height = -12 Font.Name = 'Tahoma' Font.Style = [fsBold]
ParentFont = False end
object Label3: TLabel Left = 8
Top = 78 Width = 82 Height = 14
Caption = 'Surname...:' Font.Charset =
TURKISH_CHARSET Font.Color = clBlack Font.Height = -12 Font.Name = 'Tahoma' Font.Style = [fsBold]
ParentFont = False end
object Label4: TLabel Left = 8
Top = 106 Width = 80 Height = 14
Caption = 'Age...:' Font.Charset =
TURKISH_CHARSET Font.Color = clBlack Font.Height = -12 Font.Name = 'Tahoma' Font.Style = [fsBold]
ParentFont = False end
object Label5: TLabel Left = 8
Top = 135 Width = 80 Height = 14
Caption = 'Sexuality...:' Font.Charset =
TURKISH_CHARSET Font.Color = clBlack Font.Height = -12 Font.Name = 'Tahoma' Font.Style = [fsBold]
ParentFont = False end
object Label6: TLabel Left = 8
Top = 163 Width = 82 Height = 14
Caption = 'Job...:' Font.Charset =
TURKISH_CHARSET Font.Color = clBlack Font.Height = -12 Font.Name = 'Tahoma' Font.Style = [fsBold]
ParentFont = False
end
object Label7: TLabel Left = 229
Top = 21 Width = 73 Height = 14
Caption = 'Date...:' Font.Charset =
TURKISH_CHARSET Font.Color = clBlack Font.Height = -12 Font.Name = 'Tahoma' Font.Style = [fsBold]
ParentFont = False end
object Label8: TLabel Left = 229
Top = 48 Width = 75 Height = 14
Caption = 'Phone...:' Font.Charset =
TURKISH_CHARSET Font.Color = clBlack Font.Height = -12 Font.Name = 'Tahoma' Font.Style = [fsBold]
ParentFont = False end
object Label9: TLabel Left = 9
Top = 194 Width = 77 Height = 14
Caption = 'Address...:'
Font.Charset = TURKISH_CHARSET Font.Color = clBlack Font.Height = -12 Font.Name = 'Tahoma' Font.Style = [fsBold]
ParentFont = False end
object Label10: TLabel Left = 7
Top = 24 Width = 85 Height = 14
Caption = 'File ID...:' Font.Charset =
TURKISH_CHARSET Font.Color = clBlack Font.Height = -12 Font.Name = 'Tahoma' Font.Style = [fsBold]
ParentFont = False end
object Edit2: TEdit Left = 93
Top = 48 Width = 121 Height = 22
CharCase = ecUpperCase Font.Charset =
TURKISH_CHARSET Font.Color = clMaroon Font.Height = -12 Font.Name = 'Tahoma' Font.Style = [fsBold]
ParentFont = False TabOrder = 1
end
object Edit3: TEdit Left = 94
Top = 74 Width = 121 Height = 22
CharCase = ecUpperCase Font.Charset =
TURKISH_CHARSET Font.Color = clMaroon Font.Height = -12 Font.Name = 'Tahoma' Font.Style = [fsBold]
ParentFont = False TabOrder = 2 end
object Edit4: TEdit Left = 94
Top = 101 Width = 41 Height = 22
CharCase = ecUpperCase Font.Charset =
TURKISH_CHARSET Font.Color = clMaroon Font.Height = -12 Font.Name = 'Tahoma' Font.Style = [fsBold]
MaxLength = 3 ParentFont = False TabOrder = 3 end
object MaskEdit2: TMaskEdit Left = 308
Top = 43 Width = 119
Height = 22
CharCase = ecUpperCase
EditMask = '!\(999\)000-0000;1;_' Font.Charset =
TURKISH_CHARSET Font.Color = clMaroon Font.Height = -12 Font.Name = 'Tahoma' Font.Style = [fsBold]
MaxLength = 13 ParentFont = False TabOrder = 8 Text = '( ) - ' end
object ComboBox1: TComboBox Left = 94
Top = 129 Width = 89 Height = 22 Font.Charset = TURKISH_CHARSET Font.Color = clMaroon Font.Height = -12 Font.Name = 'Tahoma' Font.Style = [fsBold]
ItemHeight = 14 ParentFont = False TabOrder = 4 Text = 'Choose' Items.Strings = ( 'Male'
'Female') end
object Memo1: TMemo Left = 93
Top = 189
Width = 197 Height = 108 Font.Charset = TURKISH_CHARSET Font.Color = clMaroon Font.Height = -12 Font.Name = 'Tahoma' Font.Style = [fsBold]
ParentFont = False ScrollBars = ssVertical TabOrder = 6
end
object Edit5: TEdit Left = 94
Top = 157 Width = 192 Height = 22
CharCase = ecUpperCase Font.Charset =
TURKISH_CHARSET Font.Color = clMaroon Font.Height = -12 Font.Name = 'Tahoma' Font.Style = [fsBold]
ParentFont = False TabOrder = 5 end
object Edit6: TEdit Left = 309
Top = 20 Width = 123 Height = 22
CharCase = ecUpperCase Font.Charset =
TURKISH_CHARSET Font.Color = clMaroon
Font.Height = -12 Font.Name = 'Tahoma' Font.Style = [fsBold]
ParentFont = False TabOrder = 7 end
object DBImage1: TDBImage Left = 490
Top = 17 Width = 119 Height = 137 DataField = 'Resim'
DataSource = DataSource1 Font.Charset =
TURKISH_CHARSET Font.Color = clBlack Font.Height = -12
Font.Name = 'Times New Roman' Font.Style = [fsBold]
ParentFont = False Stretch = True TabOrder = 9 TabStop = False end
object Edit7: TEdit Left = 93
Top = 20 Width = 97 Height = 22
CharCase = ecUpperCase Font.Charset =
TURKISH_CHARSET Font.Color = clMaroon Font.Height = -12 Font.Name = 'Tahoma' Font.Style = [fsBold]
ParentFont = False TabOrder = 0 end
object BitBtn4: TBitBtn Left = 483
Top = 162 Width = 137 Height = 25
Cursor = crHandPoint Caption = 'Patient Picture' TabOrder = 10
OnClick = BitBtn4Click end
end
object Panel3: TPanel Left = 2
Top = 308 Width = 709 Height = 42
BevelInner = bvLowered BevelOuter = bvSpace Color = clWindow TabOrder = 1
object BitBtn1: TBitBtn Left = 3
Top = 5 Width = 89 Height = 29
Cursor = crHandPoint Caption = '&Save' Font.Charset = TURKISH_CHARSET Font.Color = clMaroon Font.Height = -13 Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False TabOrder = 0
OnClick = BitBtn1Click end
object BitBtn2: TBitBtn Left = 94
Top = 5 Width = 115 Height = 29
Cursor = crHandPoint Caption = '&Clear Form' Font.Charset =
TURKISH_CHARSET Font.Color = clMaroon Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold]
ParentFont = False TabOrder = 1
OnClick = BitBtn2Click end
object BitBtn3: TBitBtn Left = 556
Top = 5 Width = 123 Height = 29
Cursor = crHandPoint Caption = '&MainMenu' Font.Charset =
TURKISH_CHARSET Font.Color = clMaroon Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
OnClick = BitBtn3Click End
object BitBtn5: TBitBtn Left = 211
Top = 5 Width = 124 Height = 29
Cursor = crHandPoint Caption = 'Edit Record' Font.Charset =
TURKISH_CHARSET Font.Color = clMaroon Font.Height = -12 Font.Name = 'Tahoma' Font.Style = [fsBold]
ParentFont = False TabOrder = 3
OnClick = BitBtn5Click end
object BitBtn6: TBitBtn Left = 338
Top = 5 Width = 105 Height = 29
Cursor = crHandPoint Caption = 'Erase Record' Font.Charset =
TURKISH_CHARSET Font.Color = clMaroon Font.Height = -12 Font.Name = 'Tahoma' Font.Style = [fsBold]
ParentFont = False TabOrder = 4
OnClick = BitBtn6Click End
object BitBtn7: TBitBtn Left = 445
Top = 5 Width = 105 Height = 29
Cursor = crHandPoint Caption = 'Find Record' Font.Charset =
TURKISH_CHARSET Font.Color = clMaroon Font.Height = -12 Font.Name = 'Tahoma' Font.Style = [fsBold]
ParentFont = False TabOrder = 5
OnClick = BitBtn7Click end
object BitBtn8: TBitBtn Left = 558
Top = 5 Width = 123 Height = 29
Cursor = crHandPoint Caption = 'Main Menu' Font.Charset =
TURKISH_CHARSET Font.Color = clMaroon Font.Height = -12 Font.Name = 'Tahoma' Font.Style = [fsBold]
ParentFont = False TabOrder = 6
OnClick = BitBtn8Click end
end
object DBGrid1: TDBGrid Left = 848
Top = 528 Width = 25 Height = 0 TabOrder = 2 TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif' TitleFont.Style = []
end
object DBGrid2: TDBGrid Left = 1
Top = 344 Width = 713 Height = 321 Color = clWhite
DataSource = DataSource2 FixedColor = clMaroon Font.Charset =
TURKISH_CHARSET Font.Color = clMaroon Font.Height = -12 Font.Name = 'Tahoma' Font.Style = [fsBold]
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection,
dgConfirmDelete, dgCancelOnExit]
ParentFont = False ParentShowHint = False
ReadOnly = True ShowHint = True TabOrder = 3 TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif' TitleFont.Style = []
OnDblClick = DBGrid2DblClick Columns = <
item
Expanded = False FieldName = 'dosyano' Title.Caption = 'F'#305'le ID' Title.Color = clWhite
Title.Font.Charset = TURKISH_CHARSET
Title.Font.Color = clMaroon Title.Font.Height = -12 Title.Font.Name = 'Tahoma' Title.Font.Style = [fsBold]
Width = 119 Visible = True end
item
Expanded = False FieldName = 'adi' Title.Caption = 'Name' Title.Color = clWhite Title.Font.Charset = TURKISH_CHARSET
Title.Font.Color = clMaroon Title.Font.Height = -12 Title.Font.Name = 'Tahoma' Title.Font.Style = [fsBold]
Visible = True end
item
Expanded = False FieldName = 'soyadi' Title.Caption = 'Surname' Title.Color = clWhite Title.Font.Charset = TURKISH_CHARSET
Title.Font.Color = clMaroon Title.Font.Height = -12 Title.Font.Name = 'Tahoma' Title.Font.Style = [fsBold]
Visible = True end
item
Expanded = False FieldName = 'yasi' Title.Caption = 'Age' Title.Color = clWhite Title.Font.Charset = TURKISH_CHARSET
Title.Font.Color = clMaroon Title.Font.Height = -12 Title.Font.Name = 'Tahoma' Title.Font.Style = [fsBold]
Visible = True end
item
Expanded = False FieldName = 'cinsiyeti' Title.Caption = 'Sex' Title.Color = clWhite Title.Font.Charset = TURKISH_CHARSET
Title.Font.Color = clMaroon
Title.Font.Height = -12 Title.Font.Name = 'Tahoma' Title.Font.Style = [fsBold]
Visible = True end
item
Expanded = False FieldName = 'tarih' Title.Caption = 'Date' Title.Color = clWhite Title.Font.Charset = TURKISH_CHARSET
Title.Font.Color = clMaroon Title.Font.Height = -12 Title.Font.Name = 'Tahoma' Title.Font.Style = [fsBold]
Width = 86 Visible = True end
item
Expanded = False FieldName = 'tel' Title.Caption = 'Phone' Title.Color = clWhite Title.Font.Charset = TURKISH_CHARSET
Title.Font.Color = clMaroon Title.Font.Height = -12 Title.Font.Name = 'Tahoma' Title.Font.Style = [fsBold]
Visible = True end>
end
object OpenPictureDialog1:
TOpenPictureDialog Left = 530
Top = 197 end
object Timer2: TTimer OnTimer = Timer2Timer Left = 32
Top = 232 end
object Query1: TQuery Active = True
DatabaseName = 'prdx' RequestLive = True SQL.Strings = (
'select * from dosyakayit') Left = 336
Top = 48 end
object DataSource1: TDataSource DataSet = Query1
Left = 408 Top = 40 end
object Query2: TQuery Active = True
DatabaseName = 'prdx' RequestLive = True SQL.Strings = (
'select
dosyano,adi,soyadi,yasi,cinsiyeti,tarih,te l from dosyakay' +
'it order by dosyano asc') Left = 248
Top = 56 end
object DataSource2: TDataSource DataSet = Query2
Left = 312 Top = 64 end
object Query3: TQuery Active = True
DatabaseName = 'prdx' RequestLive = True SQL.Strings = (
'select * from muayenekayit') Left = 160
Top = 96 end
object DataSource3: TDataSource DataSet = Query3
Left = 192 Top = 112 end
object Query4: TQuery Active = True
DatabaseName = 'prdx' RequestLive = True SQL.Strings = (
'select * from labratuvar') Left = 616
Top = 24 end
object DataSource4: TDataSource DataSet = Query4
Left = 648 Top = 32 end
object Query5: TQuery Active = True
DatabaseName = 'prdx' RequestLive = True
SQL.Strings = (
'select * from kontrolyatis') Left = 640
Top = 104 end
object DataSource5: TDataSource DataSet = Query5
Left = 640 Top = 144 end
object Query6: TQuery Active = True
DatabaseName = 'prdx' RequestLive = True SQL.Strings = ( 'select * from recete') Left = 432
Top = 56 end
object DataSource6: TDataSource DataSet = Query6
Left = 456 Top = 96 end end
4.5 Form 5
Erasing Recorded Patient Part object Form5: TForm5
Left = 340 Top = 282 Width = 475 Height = 125
BorderIcons = [biMinimize]
Caption = 'File Care Part' Color = clWhite
Font.Charset =
DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11
Font.Name = 'MS Sans Serif' Font.Style = []
OldCreateOrder = False Position = poScreenCenter OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13
object BitBtn1: TBitBtn Left = 35
Top = 18 Width = 75 Height = 22
Cursor = crHandPoint Caption = '&START' Font.Charset = TURKISH_CHARSET Font.Color = clMaroon Font.Height = -12 Font.Name = 'Tahoma' Font.Style = [fsBold]
ParentFont = False TabOrder = 0
OnClick = BitBtn1Click Kind = bkYes
end
object BitBtn2: TBitBtn Left = 331
Top = 19 Width = 75 Height = 22
Cursor = crHandPoint Caption = 'CANCEL' Font.Charset = TURKISH_CHARSET Font.Color = clMaroon Font.Height = -12 Font.Name = 'Tahoma' Font.Style = [fsBold]
ParentFont = False TabOrder = 1
OnClick = BitBtn2Click Kind = bkCancel
end
object ProgressBar1: TProgressBar Left = 16
Top = 67 Width = 425 Height = 12 Min = 0 Max = 100 TabOrder = 2 end
end
4.6 Form 6 Engagement Part object Form6: TForm6 Left = 259
Top = 20 Width = 706 Height = 730
BorderIcons = [biMinimize]
Caption = ' Engagement ' Color = clWhite
Font.Charset =
DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11
Font.Name = 'MS Sans Serif' Font.Style = []
KeyPreview = True OldCreateOrder = False Position = poScreenCenter OnActivate = FormActivate OnKeyPress = FormKeyPress PixelsPerInch = 96
TextHeight = 13
object DBGrid1: TDBGrid Left = 5
Top = 549 Width = 690 Height = 140 Color = clWhite
DataSource = DataSource2 FixedColor = clMaroon Font.Charset =
TURKISH_CHARSET Font.Color = clMaroon Font.Height = -12 Font.Name = 'Tahoma' Font.Style = [fsBold]
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect,
dgAlwaysShowSelection,
dgConfirmDelete, dgCancelOnExit]
ParentFont = False TabOrder = 0 TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif' TitleFont.Style = []
OnDblClick = DBGrid1DblClick Columns = <
item
Expanded = False FieldName = 'Dosyano' Title.Caption = 'File ID' Title.Color = clWhite Title.Font.Charset = TURKISH_CHARSET
Title.Font.Color = clMaroon Title.Font.Height = -12 Title.Font.Name = 'Tahoma' Title.Font.Style = [fsBold]
Visible = True end
item
Expanded = False FieldName = 'Adi' Title.Caption = 'Name' Title.Color = clWhite Title.Font.Charset = TURKISH_CHARSET
Title.Font.Color = clMaroon Title.Font.Height = -12 Title.Font.Name = 'Tahoma' Title.Font.Style = [fsBold]
Visible = True end
item
Expanded = False FieldName = 'Soyadi' Title.Caption = 'Surname' Title.Color = clWhite Title.Font.Charset = TURKISH_CHARSET
Title.Font.Color = clMaroon Title.Font.Height = -12 Title.Font.Name = 'Tahoma' Title.Font.Style = [fsBold]
Visible = True end
item
Expanded = False FieldName = 'Tarih'
Title.Caption = 'Lab. Record Date' Title.Color = clWhite
Title.Font.Charset = TURKISH_CHARSET
Title.Font.Color = clMaroon Title.Font.Height = -12 Title.Font.Name = 'Tahoma' Title.Font.Style = [fsBold]
Visible = True end>
end
object Panel1: TPanel Left = 3
Top = 2 Width = 692 Height = 551
BorderStyle = bsSingle Color = clWhite