ufrmlivemarrowquery.dfm

一个简单得医院图像管理系统

object frmLiveMarrowQuery: TfrmLiveMarrowQuery
  Left = 202
  Top = 212
  Width = 472
  Height = 267
  Caption = #26597#35810
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Label4: TLabel
    Left = 15
    Top = 9
    Width = 48
    Height = 12
    Caption = #26816#39564#26085#26399
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label1: TLabel
    Left = 226
    Top = 8
    Width = 24
    Height = 13
    Alignment = taCenter
    AutoSize = False
    Caption = #9473
  end
  object dtpStart: TDateTimePicker
    Left = 70
    Top = 6
    Width = 157
    Height = 20
    Date = 37885.446218159720000000
    Time = 37885.446218159720000000
    DateFormat = dfLong
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    TabStop = False
  end
  object dtpEnd: TDateTimePicker
    Left = 248
    Top = 6
    Width = 157
    Height = 20
    Date = 37885.446218159720000000
    Time = 37885.446218159720000000
    DateFormat = dfLong
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    TabStop = False
  end
  object GroupBox4: TGroupBox
    Left = 7
    Top = 32
    Width = 222
    Height = 171
    Caption = #30149#20154#20449#24687
    Color = clBtnFace
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 2
    object Label6: TLabel
      Left = 8
      Top = 17
      Width = 48
      Height = 12
      Caption = #23601#35786#32534#21495
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label7: TLabel
      Left = 8
      Top = 39
      Width = 48
      Height = 12
      Caption = #22995'    '#21517
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label8: TLabel
      Left = 8
      Top = 61
      Width = 48
      Height = 12
      Caption = #24615'    '#21035
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label10: TLabel
      Left = 8
      Top = 83
      Width = 48
      Height = 12
      Caption = #31185'    '#21035
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label11: TLabel
      Left = 8
      Top = 104
      Width = 48
      Height = 12
      Caption = #30149'    '#21306
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label12: TLabel
      Left = 8
      Top = 126
      Width = 48
      Height = 12
      Caption = #24202'    '#21495
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label19: TLabel
      Left = 8
      Top = 148
      Width = 48
      Height = 12
      Caption = #20020#24202#35786#26029
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object edtCaseCode: TEdit
      Left = 115
      Top = 13
      Width = 102
      Height = 20
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 0
    end
    object edtName: TEdit
      Left = 60
      Top = 35
      Width = 157
      Height = 20
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 1
    end
    object edtSicknessBed: TEdit
      Left = 60
      Top = 121
      Width = 157
      Height = 20
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 5
    end
    object cboDepartment: TComboBox
      Left = 60
      Top = 78
      Width = 157
      Height = 20
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ItemHeight = 12
      ParentFont = False
      TabOrder = 3
      OnExit = cboDepartmentExit
    end
    object cboSex: TComboBox
      Left = 60
      Top = 56
      Width = 157
      Height = 20
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ItemHeight = 12
      ParentFont = False
      TabOrder = 2
      Items.Strings = (
        #30007
        #22899)
    end
    object cboDiagnosis: TComboBox
      Left = 60
      Top = 143
      Width = 157
      Height = 20
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ItemHeight = 12
      ParentFont = False
      TabOrder = 6
      OnExit = cboDiagnosisExit
    end
    object cboSicknessSection: TComboBox
      Left = 60
      Top = 100
      Width = 157
      Height = 20
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ItemHeight = 12
      ParentFont = False
      TabOrder = 4
      OnExit = cboSicknessSectionExit
    end
    object cboOutOrIn: TComboBox
      Left = 60
      Top = 13
      Width = 55
      Height = 20
      Style = csDropDownList
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ItemHeight = 12
      ParentFont = False
      TabOrder = 7
      Items.Strings = (
        #38376#35786
        #20303#38498
        '    ')
    end
  end
  object GroupBox5: TGroupBox
    Left = 233
    Top = 32
    Width = 222
    Height = 171
    Caption = #25253#21578#20449#24687
    Color = clBtnFace
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 3
    object Label14: TLabel
      Left = 8
      Top = 39
      Width = 48
      Height = 12
      Caption = #26631#26412#26469#28304
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label16: TLabel
      Left = 8
      Top = 61
      Width = 48
      Height = 12
      Caption = #36865#26816#21307#24072
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label18: TLabel
      Left = 8
      Top = 83
      Width = 48
      Height = 12
      Caption = #26816#39564#21307#24072
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label23: TLabel
      Left = 8
      Top = 104
      Width = 48
      Height = 12
      Caption = #22791'    '#27880
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label24: TLabel
      Left = 8
      Top = 17
      Width = 48
      Height = 12
      Caption = #26816#39564#32534#21495
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label13: TLabel
      Left = 168
      Top = 16
      Width = 6
      Height = 12
    end
    object cboSampleSource: TComboBox
      Left = 60
      Top = 35
      Width = 157
      Height = 20
      Color = clWhite
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ItemHeight = 12
      ParentFont = False
      TabOrder = 0
      Items.Strings = (
        #33016#39592
        #39618#39592
        #26840#31361
        '    ')
    end
    object cboSendDoctor: TComboBox
      Left = 60
      Top = 56
      Width = 157
      Height = 20
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ItemHeight = 12
      ParentFont = False
      TabOrder = 1
      OnExit = cboSendDoctorExit
    end
    object cboTestDoctor: TComboBox
      Left = 60
      Top = 78
      Width = 157
      Height = 20
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ItemHeight = 12
      ParentFont = False
      TabOrder = 2
      OnExit = cboTestDoctorExit
    end
    object edtTestNo: TEdit
      Left = 60
      Top = 13
      Width = 157
      Height = 20
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 3
    end
    object memReport: TMemo
      Left = 9
      Top = 118
      Width = 208
      Height = 47
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      Lines.Strings = (
        'memReport')
      ParentFont = False
      TabOrder = 4
    end
  end
  object btnQuery: TButton
    Left = 9
    Top = 210
    Width = 75
    Height = 25
    Caption = #26597#35810'(&Q)'
    Default = True
    TabOrder = 4
    OnClick = btnQueryClick
  end
  object btnReset: TButton
    Left = 106
    Top = 210
    Width = 75
    Height = 25
    Caption = #37325#32622'(&R)'
    TabOrder = 5
    OnClick = btnResetClick
  end
  object btnClose: TButton
    Left = 379
    Top = 210
    Width = 75
    Height = 25
    Cancel = True
    Caption = #20851#38381'(Esc)'
    TabOrder = 6
    OnClick = btnCloseClick
  end
end