mainfrm.dfm

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

          item
            Expanded = False
            FieldName = 'IsEkg'
            Title.Caption = '心电图'
            Width = 45
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'IsSplint'
            Title.Caption = '夹板固定'
            Width = 55
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'IsVaccination'
            Title.Caption = '疫苗接种'
            Width = 55
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'IsWound'
            Title.Caption = '清创包扎'
            Width = 55
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'IsReferral'
            Title.Caption = '建议转诊'
            Width = 56
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'IsSickLeave'
            Title.Caption = '病假休息'
            Width = 56
            Visible = True
          end>
      end
    end
    object TabSheet2: TTabSheet
      Caption = '体检记录'
      ImageIndex = 1
      object Splitter3: TSplitter
        Left = 417
        Top = 0
        Width = 3
        Height = 143
        Cursor = crHSplit
        Align = alRight
      end
      object grdExam: TDBGrid
        Left = 0
        Top = 0
        Width = 417
        Height = 143
        Align = alClient
        DataSource = dsExam
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
        PopupMenu = pmExam
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -13
        TitleFont.Name = '宋体'
        TitleFont.Style = []
        OnDblClick = miModiExamClick
        Columns = <
          item
            Expanded = False
            FieldName = 'ExamDate'
            Title.Caption = '体检日期'
            Width = 82
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'ExamTime'
            Title.Caption = '体检时间'
            Width = 67
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Kind'
            Title.Caption = '体检种类'
            Width = 67
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Result'
            Title.Caption = '体检结果'
            Width = 60
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'ExamOpinon'
            Title.Caption = '医生意见'
            Width = 143
            Visible = True
          end>
      end
      object DBMemo1: TDBMemo
        Left = 420
        Top = 0
        Width = 283
        Height = 143
        Align = alRight
        DataField = 'ExamRemark'
        DataSource = dsExam
        TabOrder = 1
      end
    end
  end
  object Panel2: TPanel
    Left = 144
    Top = 258
    Width = 81
    Height = 17
    BevelOuter = bvNone
    TabOrder = 4
    object btnMedicalAdd: TSpeedButton
      Left = 0
      Top = 0
      Width = 18
      Height = 17
      Caption = '+'
      Flat = True
      OnClick = btnMedicalAddClick
    end
    object btnMedicalRemove: TSpeedButton
      Left = 20
      Top = 0
      Width = 18
      Height = 17
      Caption = '-'
      Flat = True
      OnClick = btnMedicalRemoveClick
    end
  end
  object MainMenu1: TMainMenu
    AutoHotkeys = maManual
    Left = 24
    Top = 64
    object miEmployeeInf: TMenuItem
      Caption = '员工资料'
      object miAddEmployee: TMenuItem
        Caption = '添加'
        OnClick = miAddEmployeeClick
      end
      object miModiEmployee: TMenuItem
        Caption = '修改'
        OnClick = miModiEmployeeClick
      end
      object miDeleEmployee: TMenuItem
        Caption = '删除'
        OnClick = miDeleEmployeeClick
      end
    end
    object miMedicalInf: TMenuItem
      Caption = '就诊记录'
      object miAddMedical: TMenuItem
        Caption = '添加'
        OnClick = miAddMedicalClick
      end
      object miModiMedical: TMenuItem
        Caption = '修改'
        OnClick = miModiMedicalClick
      end
      object miDeleMedical: TMenuItem
        Caption = '删除'
        OnClick = miDeleMedicalClick
      end
    end
    object miExam: TMenuItem
      Caption = '体检记录'
      object miAddExam: TMenuItem
        Caption = '添加'
        OnClick = miAddExamClick
      end
      object miModiExam: TMenuItem
        Caption = '修改'
        OnClick = miModiExamClick
      end
      object miDeleExam: TMenuItem
        Caption = '删除'
        OnClick = miDeleExamClick
      end
    end
    object miSetup: TMenuItem
      Caption = '设置'
      object miLogonInf: TMenuItem
        Caption = '登陆设置'
        object miLogonAccount: TMenuItem
          Caption = '登陆帐号'
          OnClick = miLogonAccountClick
        end
        object miWorkInf: TMenuItem
          Caption = '岗位信息'
          OnClick = miWorkInfClick
        end
        object miModiPersonalInf: TMenuItem
          Caption = '资料修改'
          Visible = False
          object miLononPW: TMenuItem
            Caption = '登陆密码'
            OnClick = miLononPWClick
          end
        end
        object miPersonalInf: TMenuItem
          Caption = '个人资料'
          Visible = False
          OnClick = miPersonalInfClick
        end
      end
      object miSetHospital: TMenuItem
        Caption = '医院信息'
        OnClick = miSetHospitalClick
      end
      object miSystemSetup: TMenuItem
        Caption = '系统设置'
      end
      object miTableMan: TMenuItem
        Caption = '库表管理'
        OnClick = miTableManClick
      end
      object miLanguageSwitch: TMenuItem
        Caption = '语种'
        object miSimChinese: TMenuItem
          Caption = '汉语'
          OnClick = miSimChineseClick
        end
        object miUSEnglish: TMenuItem
          Caption = '英语'
          OnClick = miUSEnglishClick
        end
      end
    end
    object N16: TMenuItem
      Caption = '病历报废'
      Visible = False
      object N15: TMenuItem
        Caption = '病历报废'
      end
      object N17: TMenuItem
        Caption = '查看报废'
        OnClick = N17Click
      end
    end
    object miSend: TMenuItem
      Caption = '病历传送'
      Visible = False
      OnClick = miSendClick
    end
    object miExport: TMenuItem
      Caption = '病历导出'
      Visible = False
    end
    object miAbout: TMenuItem
      Caption = '关于'
      OnClick = miAboutClick
    end
    object miExit: TMenuItem
      Caption = '退出'
      OnClick = miExitClick
    end
  end
  object dsEmployee: TDataSource
    DataSet = dmMain.qryClientInfo
    Left = 24
    Top = 166
  end
  object qryEmployee: TADOQuery
    CacheSize = 1500
    Connection = dmMain.cnnDB
    Parameters = <>
    Prepared = True
    Left = 24
    Top = 115
  end
  object dsMedical: TDataSource
    DataSet = dmMain.qryMedical
    Left = 48
    Top = 312
  end
  object dlgSave: TSaveDialog
    DefaultExt = 'dat'
    FileName = 'noname'
    Filter = 'dat|*.dat|all|*.*'
    Left = 24
    Top = 217
  end
  object pmEmployeeInf: TPopupMenu
    AutoHotkeys = maManual
    Left = 56
    Top = 113
    object N19: TMenuItem
      Caption = '添加资料'
      OnClick = miAddEmployeeClick
    end
    object N20: TMenuItem
      Caption = '修改资料'
      OnClick = miModiEmployeeClick
    end
    object N21: TMenuItem
      Caption = '删除资料'
      OnClick = miDeleEmployeeClick
    end
  end
  object PopupMenu1: TPopupMenu
    AutoHotkeys = maManual
    Left = 20
    Top = 360
    object N25: TMenuItem
      Caption = '添加'
      OnClick = miAddMedicalClick
    end
    object N26: TMenuItem
      Caption = '修改'
      OnClick = miModiMedicalClick
    end
    object N27: TMenuItem
      Caption = '删除'
      OnClick = miDeleMedicalClick
    end
  end
  object pmExam: TPopupMenu
    AutoHotkeys = maManual
    Left = 188
    Top = 344
    object MenuItem1: TMenuItem
      Caption = '添加'
      OnClick = miAddExamClick
    end
    object MenuItem2: TMenuItem
      Caption = '修改'
      OnClick = miModiExamClick
    end
    object MenuItem3: TMenuItem
      Caption = '删除'
      OnClick = miDeleExamClick
    end
  end
  object dsExam: TDataSource
    DataSet = dmMain.qryExam
    Left = 340
    Top = 304
  end
end