main.dfm

PatientRunner 20 Source

object MainForm: TMainForm
  Left = 370
  Top = 124
  Width = 342
  Height = 526
  ActiveControl = PatientListView
  Caption = 'PatientRunner x.y.z'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object StatusBar: TStatusBar
    Left = 0
    Top = 453
    Width = 334
    Height = 19
    Panels = <
      item
        Width = 150
      end>
  end
  object PatientListView: TListView
    Left = 0
    Top = 0
    Width = 334
    Height = 453
    Align = alClient
    Columns = <
      item
        AutoSize = True
        Caption = 'Patient'
        MinWidth = 160
      end
      item
        AutoSize = True
        Caption = 'Last Seen Date'
        MaxWidth = 90
      end
      item
        AutoSize = True
        Caption = 'Provider'
        MaxWidth = 80
      end>
    GridLines = True
    HideSelection = False
    ReadOnly = True
    RowSelect = True
    PopupMenu = PatientListPopupMenu
    TabOrder = 1
    ViewStyle = vsReport
    OnClick = PatientListViewClick
    OnColumnClick = PatientListViewColumnClick
    OnDblClick = ExplorePatientClick
  end
  object PatientListPopupMenu: TPopupMenu
    Left = 24
    Top = 248
    object NewPatient: TMenuItem
      Caption = 'New Patient'
      OnClick = NewPatientClick
    end
    object EditPatient: TMenuItem
      Caption = 'Edit Patient'
      OnClick = EditPatientClick
    end
    object ExplorePatient: TMenuItem
      Caption = 'Explore Patient'
      OnClick = ExplorePatientClick
    end
    object DeletePatient: TMenuItem
      Caption = 'Delete Patient'
      OnClick = DeletePatientClick
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object Refresh: TMenuItem
      Caption = 'Refresh'
      OnClick = RefreshPatientsDBClick
    end
  end
  object MainMenu: TMainMenu
    Left = 56
    Top = 248
    object N1: TMenuItem
      Caption = 'Patients'
      object NewPatientMenuItem: TMenuItem
        Caption = 'New'
        OnClick = NewPatientClick
      end
      object EditPatientMenuItem: TMenuItem
        Caption = 'Edit'
        OnClick = EditPatientClick
      end
      object ExplorePatientMenuItem: TMenuItem
        Caption = 'Explore'
        OnClick = ExplorePatientClick
      end
      object DeletePatientMenuItem: TMenuItem
        Caption = 'Delete '
        OnClick = DeletePatientClick
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object RefreshMenuItem: TMenuItem
        Caption = 'Refresh'
        OnClick = RefreshPatientsDBClick
      end
    end
    object SelectionCriteria1: TMenuItem
      Caption = 'Selection Criteria'
      object ShowOnlyMyPatientsCheckBox: TMenuItem
        AutoCheck = True
        Caption = 'Show only my patients'
        OnClick = RefreshPatientsDBClick
      end
      object ShowOnlyActivePatientsCheckBox: TMenuItem
        AutoCheck = True
        Caption = 'Show only active patients'
        Checked = True
        OnClick = RefreshPatientsDBClick
      end
      object Status1: TMenuItem
        Caption = 'Status'
        object ActiveDutyStatus: TMenuItem
          Caption = 'Active duty'
          GroupIndex = 1
          RadioItem = True
          OnClick = RadioItemClick
        end
        object FamilyMemberStatus: TMenuItem
          Caption = 'Family members'
          GroupIndex = 1
          RadioItem = True
          OnClick = RadioItemClick
        end
        object RetireesStatus: TMenuItem
          Caption = 'Retirees'
          GroupIndex = 1
          RadioItem = True
          OnClick = RadioItemClick
        end
        object TDRLStatus: TMenuItem
          Caption = 'TDRL'
          GroupIndex = 1
          RadioItem = True
          OnClick = RadioItemClick
        end
        object OtherStatus: TMenuItem
          Caption = 'Other'
          GroupIndex = 1
          RadioItem = True
          OnClick = RadioItemClick
        end
        object AllStatus: TMenuItem
          Caption = 'All'
          Checked = True
          GroupIndex = 1
          RadioItem = True
          OnClick = RadioItemClick
        end
      end
      object LastSeenDate1: TMenuItem
        Caption = 'Last Seen Date'
        object Time180Days: TMenuItem
          Caption = '<= 180 days'
          GroupIndex = 2
          RadioItem = True
          OnClick = RadioItemClick
        end
        object Time1Year: TMenuItem
          Caption = '<= 1 year'
          Checked = True
          GroupIndex = 2
          RadioItem = True
          OnClick = RadioItemClick
        end
        object Time2Years: TMenuItem
          Caption = '<= 2 years'
          GroupIndex = 2
          RadioItem = True
          OnClick = RadioItemClick
        end
        object TimeAll: TMenuItem
          Caption = 'All dates'
          GroupIndex = 2
          RadioItem = True
          OnClick = RadioItemClick
        end
      end
    end
    object Sort1: TMenuItem
      Caption = 'Sort'
      object byName: TMenuItem
        Caption = 'by Name'
        Checked = True
        GroupIndex = 10
        RadioItem = True
        OnClick = RadioItemClick
      end
      object byLastSeenDate: TMenuItem
        Caption = 'by Last Seen Date'
        GroupIndex = 10
        RadioItem = True
        OnClick = RadioItemClick
      end
      object byProvider: TMenuItem
        Caption = 'by Provider'
        GroupIndex = 10
        RadioItem = True
        OnClick = RadioItemClick
      end
    end
    object ools1: TMenuItem
      Caption = 'Tools'
      object TemplateManager: TMenuItem
        Caption = 'Template Manager'
        OnClick = TemplateManagerClick
      end
      object EncounterReportGenerator: TMenuItem
        Caption = 'Patient Encounter Report Generator'
        OnClick = EncounterReportGeneratorClick
      end
    end
  end
  object SQLConnection: TSQLConnection
    ConnectionName = 'MySQLConnection'
    DriverName = 'MySQL'
    GetDriverFunc = 'getSQLDriverMYSQL'
    LibraryName = 'dbexpmysql.dll'
    LoginPrompt = False
    Params.Strings = (
      'DriverName=MySQL'
      'HostName=localhost'
      'Database=patientrunner'
      'User_Name='
      'Password='
      'BlobSize=-1'
      'ErrorResourceFile='
      'LocaleCode=0000')
    VendorLib = 'libmysql.dll'
    AfterConnect = EditPatientClick
    Left = 56
    Top = 216
  end
  object SQLQuery: TSQLQuery
    MaxBlobSize = -1
    Params = <>
    SQLConnection = SQLConnection
    Left = 24
    Top = 216
  end
end