patienteditor.dfm

PatientRunner 20 Source

object PatientEditorForm: TPatientEditorForm
  Left = 145
  Top = 201
  ActiveControl = LastnameEdit
  BorderStyle = bsSingle
  Caption = 'Patient Editor'
  ClientHeight = 378
  ClientWidth = 640
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 117
    Top = 10
    Width = 46
    Height = 13
    Caption = 'Lastname'
  end
  object Label2: TLabel
    Left = 259
    Top = 10
    Width = 45
    Height = 13
    Caption = 'Firstname'
  end
  object Label3: TLabel
    Left = 402
    Top = 10
    Width = 108
    Height = 13
    Caption = 'SSN (pp/nnn-nn-nnnn)'
  end
  object Label4: TLabel
    Left = 361
    Top = 70
    Width = 38
    Height = 13
    Caption = 'Birthday'
  end
  object Label6: TLabel
    Left = 226
    Top = 130
    Width = 36
    Height = 13
    Caption = 'Service'
  end
  object Label5: TLabel
    Left = 64
    Top = 130
    Width = 23
    Height = 13
    Caption = 'Rate'
  end
  object Label7: TLabel
    Left = 390
    Top = 130
    Width = 98
    Height = 13
    Caption = 'Pay Entry Base Date'
  end
  object Label8: TLabel
    Left = 88
    Top = 192
    Width = 47
    Height = 13
    Caption = 'Command'
  end
  object Label9: TLabel
    Left = 253
    Top = 192
    Width = 79
    Height = 13
    Caption = 'Point of Contact '
  end
  object Label10: TLabel
    Left = 93
    Top = 70
    Width = 30
    Height = 13
    Caption = 'Status'
  end
  object Label11: TLabel
    Left = 170
    Top = 256
    Width = 39
    Height = 13
    Caption = 'Allergies'
  end
  object Label12: TLabel
    Left = 146
    Top = 130
    Width = 26
    Height = 13
    Caption = 'Rank'
  end
  object OKButton: TButton
    Left = 238
    Top = 344
    Width = 75
    Height = 25
    Caption = 'OK'
    Default = True
    TabOrder = 0
    OnClick = OKButtonClick
  end
  object CancelButton: TButton
    Left = 326
    Top = 344
    Width = 75
    Height = 25
    Caption = 'Cancel'
    TabOrder = 1
    OnClick = CancelButtonClick
  end
  object LastnameEdit: TEdit
    Left = 117
    Top = 30
    Width = 121
    Height = 21
    TabOrder = 2
  end
  object FirstnameEdit: TEdit
    Left = 259
    Top = 30
    Width = 121
    Height = 21
    TabOrder = 3
  end
  object SSNEdit: TEdit
    Left = 402
    Top = 30
    Width = 121
    Height = 21
    MaxLength = 14
    TabOrder = 4
    OnKeyPress = SSNEditKeyPress
  end
  object MaleCheckBox: TCheckBox
    Left = 275
    Top = 88
    Width = 60
    Height = 17
    Caption = 'Male'
    TabOrder = 6
  end
  object BirthdatePicker: TDateTimePicker
    Left = 361
    Top = 88
    Width = 186
    Height = 21
    Date = 37440.023050231500000000
    Time = 37440.023050231500000000
    TabOrder = 7
    OnChange = BirthdatePickerChange
  end
  object RateEdit: TEdit
    Left = 64
    Top = 152
    Width = 60
    Height = 21
    TabOrder = 8
  end
  object ServiceComboBox: TComboBox
    Left = 226
    Top = 152
    Width = 145
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    ItemIndex = 0
    TabOrder = 10
    Text = 'USN'
    Items.Strings = (
      'USN'
      'USA'
      'USAF'
      'USCG'
      'USMC')
  end
  object PayDatePicker: TDateTimePicker
    Left = 390
    Top = 152
    Width = 186
    Height = 21
    Date = 37440.023127303200000000
    Time = 37440.023127303200000000
    TabOrder = 11
    OnChange = PayDatePickerChange
  end
  object CommandEdit: TEdit
    Left = 88
    Top = 212
    Width = 140
    Height = 21
    TabOrder = 12
  end
  object POCEdit: TEdit
    Left = 253
    Top = 212
    Width = 300
    Height = 21
    TabOrder = 13
  end
  object StatusComboBox: TComboBox
    Left = 93
    Top = 88
    Width = 160
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    ItemIndex = 0
    TabOrder = 5
    Text = 'active duty service member'
    Items.Strings = (
      'active duty service member'
      'family member'
      'retiree'
      'TDRL'
      'other')
  end
  object AllergiesEdit: TEdit
    Left = 170
    Top = 276
    Width = 300
    Height = 21
    TabOrder = 14
  end
  object InactiveCheckBox: TCheckBox
    Left = 275
    Top = 312
    Width = 60
    Height = 17
    Caption = 'Inactive'
    TabOrder = 15
  end
  object RankEdit: TEdit
    Left = 146
    Top = 152
    Width = 60
    Height = 21
    TabOrder = 9
  end
  object SQLQuery: TSQLQuery
    MaxBlobSize = -1
    Params = <>
    SQLConnection = MainForm.SQLConnection
    Left = 544
    Top = 304
  end
end