mainfrm.dfm

醫院管理 還不錯 醫院管理 還不錯 醫院管理 還不錯

object frmMain: TfrmMain
  Left = 208
  Top = 163
  Width = 719
  Height = 492
  Caption = 'frmMain'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = '宋体'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  WindowState = wsMaximized
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 711
    Height = 65
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 0
    object dtpFndDate: TDateTimePicker
      Left = 8
      Top = 24
      Width = 177
      Height = 24
      CalAlignment = dtaLeft
      Date = 38034.0811271991
      Time = 38034.0811271991
      DateFormat = dfShort
      DateMode = dmComboBox
      ImeName = '中文 (简体) - 极点中文'
      Kind = dtkDate
      ParseInput = False
      TabOrder = 0
      OnChange = dtpFndDateChange
    end
    object btnAllBill: TButton
      Left = 208
      Top = 24
      Width = 90
      Height = 24
      Caption = '所有资料(&A)'
      TabOrder = 1
      OnClick = btnAllBillClick
    end
    object cboCondition: TComboBox
      Left = 320
      Top = 26
      Width = 145
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 2
      Items.Strings = (
        '员工姓名'
        '就诊日期'
        '体检日期')
    end
    object edtValue: TEdit
      Left = 472
      Top = 26
      Width = 121
      Height = 21
      TabOrder = 3
      OnKeyPress = edtValueKeyPress
    end
    object btnSearch: TButton
      Left = 608
      Top = 22
      Width = 83
      Height = 25
      Caption = '搜索(&S)'
      TabOrder = 4
      OnClick = btnSearchClick
    end
  end
  object stsMain: TStatusBar
    Left = 0
    Top = 427
    Width = 711
    Height = 19
    Panels = <
      item
        Text = 'EasyHIS Beta 0.91'
        Width = 100
      end
      item
        Text = '登陆用户'
        Width = 60
      end
      item
        Width = 50
      end
      item
        Width = 180
      end
      item
        Text = '就诊记录 %d '
        Width = 100
      end
      item
        Text = '就诊记录 %d '
        Width = 100
      end>
    SimplePanel = False
  end
  object Panel3: TPanel
    Left = 0
    Top = 65
    Width = 711
    Height = 191
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 2
    object Splitter1: TSplitter
      Left = 420
      Top = 0
      Width = 2
      Height = 189
      Cursor = crHSplit
      Align = alRight
    end
    object Splitter2: TSplitter
      Left = 0
      Top = 189
      Width = 711
      Height = 2
      Cursor = crVSplit
      Align = alBottom
    end
    object grdClientInf: TDBGrid
      Left = 0
      Top = 0
      Width = 420
      Height = 189
      Align = alClient
      DataSource = dsEmployee
      ImeName = '中文 (简体) - 极点中文'
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      PopupMenu = pmEmployeeInf
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      OnCellClick = grdClientInfCellClick
      OnDblClick = grdClientInfDblClick
      OnKeyUp = grdClientInfKeyUp
      Columns = <
        item
          Expanded = False
          FieldName = 'Name'
          Title.Caption = '姓名'
          Width = 62
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Sex'
          Title.Caption = '性别'
          Width = 33
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Birth'
          Title.Caption = '出生年月'
          Width = 70
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Department'
          Title.Caption = '部门'
          Width = 76
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Profession'
          Title.Caption = '职业'
          Width = 68
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Tele'
          Title.Caption = '电话'
          Width = 76
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'PlaceOfBirth'
          Title.Caption = '籍贯'
          Width = 79
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'EmployeeNo'
          Title.Caption = '工号'
          Width = 51
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'EmergencyName'
          Title.Caption = '紧急联系人'
          Width = 72
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'EmergencyTele'
          Title.Caption = '紧急联系电话'
          Width = 91
          Visible = True
        end>
    end
    object Panel5: TPanel
      Left = 422
      Top = 0
      Width = 289
      Height = 189
      Align = alRight
      BevelOuter = bvNone
      TabOrder = 1
      object Panel6: TPanel
        Left = 0
        Top = 0
        Width = 289
        Height = 189
        Align = alClient
        BevelOuter = bvNone
        TabOrder = 0
        object Panel7: TPanel
          Left = 0
          Top = 0
          Width = 289
          Height = 15
          Align = alTop
          BevelOuter = bvNone
          TabOrder = 0
          object Label1: TLabel
            Left = 0
            Top = 0
            Width = 52
            Height = 13
            Caption = '资料备注'
          end
        end
        object rtfRemark: TDBRichEdit
          Left = 0
          Top = 15
          Width = 289
          Height = 174
          Align = alClient
          DataField = 'remark'
          DataSource = dsEmployee
          TabOrder = 1
        end
      end
    end
  end
  object pcRecord: TPageControl
    Left = 0
    Top = 256
    Width = 711
    Height = 171
    ActivePage = TabSheet2
    Align = alClient
    TabOrder = 3
    object TabSheet1: TTabSheet
      Caption = '就诊记录'
      object Splitter4: TSplitter
        Left = 417
        Top = 0
        Width = 3
        Height = 143
        Cursor = crHSplit
        Align = alRight
      end
      object mmoMedical: TDBMemo
        Left = 420
        Top = 0
        Width = 283
        Height = 143
        Align = alRight
        DataField = 'Remark'
        DataSource = dsMedical
        TabOrder = 0
      end
      object grdMedical: TDBGrid
        Left = 0
        Top = 0
        Width = 417
        Height = 143
        Align = alClient
        DataSource = dsMedical
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
        PopupMenu = PopupMenu1
        ReadOnly = True
        TabOrder = 1
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -13
        TitleFont.Name = '宋体'
        TitleFont.Style = []
        OnDblClick = miModiMedicalClick
        Columns = <
          item
            Expanded = False
            FieldName = 'MedicalDate'
            Title.Caption = '就诊日期'
            Width = 82
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'IsDrug'
            Title.Caption = '用药'
            Width = 31
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'IsInjection'
            Title.Caption = '注射'
            Width = 30
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'IsOxygen'
            Title.Caption = '氧气疗法'
            Width = 56
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'IsPregnancy'
            Title.Caption = '早孕测试'
            Width = 56
            Visible = True
          end