ulmfrmmain.dfm

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

object frmLiveMarrowMain: TfrmLiveMarrowMain
  Left = -4
  Top = -4
  Width = 808
  Height = 580
  Caption = #39592#39635#27963#26816#23376#31995#32479
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 800
    Height = 47
    Anchors = [akLeft, akTop, akRight, akBottom]
    AutoSize = True
    ButtonHeight = 43
    ButtonWidth = 43
    Caption = 'ToolBar1'
    EdgeBorders = [ebLeft, ebTop, ebRight, ebBottom]
    Flat = True
    Images = ImageList1
    ShowCaptions = True
    TabOrder = 0
    Wrapable = False
    object ToolButton2: TToolButton
      Left = 0
      Top = 0
      Caption = ' '#28155#21152' '
      ImageIndex = 1
      OnClick = ToolButton2Click
    end
    object ToolButton3: TToolButton
      Left = 43
      Top = 0
      Caption = #21024#38500
      ImageIndex = 7
      OnClick = ToolButton3Click
    end
    object ToolButton1: TToolButton
      Left = 86
      Top = 0
      Caption = #23384#30424
      ImageIndex = 8
      OnClick = ToolButton1Click
    end
    object ToolButton11: TToolButton
      Left = 129
      Top = 0
      Width = 8
      ImageIndex = 12
      Style = tbsSeparator
    end
    object ToolButton4: TToolButton
      Left = 137
      Top = 0
      Caption = #31532#19968
      ImageIndex = 5
      OnClick = ToolButton4Click
    end
    object ToolButton5: TToolButton
      Left = 180
      Top = 0
      Caption = #19978#19968
      ImageIndex = 2
      OnClick = ToolButton5Click
    end
    object ToolButton6: TToolButton
      Left = 223
      Top = 0
      Caption = #19979#19968
      ImageIndex = 4
      OnClick = ToolButton6Click
    end
    object ToolButton7: TToolButton
      Left = 266
      Top = 0
      Caption = #26411#23614
      ImageIndex = 6
      OnClick = ToolButton7Click
    end
    object ToolButton14: TToolButton
      Left = 309
      Top = 0
      Width = 8
      Caption = 'ToolButton14'
      ImageIndex = 12
      Style = tbsSeparator
    end
    object ToolButton13: TToolButton
      Left = 317
      Top = 0
      Caption = #24403#22825
      ImageIndex = 0
      OnClick = ToolButton13Click
    end
    object ToolButton8: TToolButton
      Left = 360
      Top = 0
      Caption = #26597#35810
      ImageIndex = 9
      OnClick = ToolButton8Click
    end
    object ToolButton9: TToolButton
      Left = 403
      Top = 0
      Caption = #25171#21360
      ImageIndex = 10
      OnClick = ToolButton9Click
    end
    object ToolButton10: TToolButton
      Left = 446
      Top = 0
      Caption = #39044#35272
      ImageIndex = 11
      OnClick = ToolButton10Click
    end
    object ToolButton12: TToolButton
      Left = 489
      Top = 0
      Caption = #36864#20986
      ImageIndex = 3
      OnClick = ToolButton12Click
    end
  end
  object pgcPatient: TPageControl
    Left = 0
    Top = 47
    Width = 232
    Height = 506
    ActivePage = TabSheet2
    Align = alLeft
    TabOrder = 1
    TabPosition = tpBottom
    object TabSheet1: TTabSheet
      Caption = #26816#39564#25253#21578#21015#34920'     '
      object dbgLiveMarrow: TDBGrid
        Left = 0
        Top = 0
        Width = 224
        Height = 481
        Align = alClient
        Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection]
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        OnKeyUp = dbgLiveMarrowKeyUp
        OnMouseUp = dbgLiveMarrowMouseUp
        Columns = <
          item
            Expanded = False
            Title.Caption = #26816#39564#26085#26399
            Width = 71
            Visible = True
          end
          item
            Expanded = False
            Title.Caption = #26816#39564#32534#21495
            Width = 53
            Visible = True
          end
          item
            Expanded = False
            Title.Caption = #22995#21517
            Width = 73
            Visible = True
          end>
      end
    end
    object TabSheet2: TTabSheet
      Caption = #25253#21578#35814#32454#20449#24687'     '
      ImageIndex = 1
      object GroupBox4: TGroupBox
        Left = 2
        Top = 2
        Width = 222
        Height = 214
        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 = 0
        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 = 38
          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 = 59
          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 Label9: TLabel
          Left = 8
          Top = 81
          Width = 48
          Height = 12
          Caption = #24180'    '#40836
          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 = 101
          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 = 122
          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 = 144
          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 = 168
          Width = 48
          Height = 12
          Caption = #20020#24202#21021#35786
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object Label14: TLabel
          Left = 8
          Top = 189
          Width = 48
          Height = 12
          Caption = #21462#26448#37096#20301
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object edtCaseCode: TEdit
          Left = 114
          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 = []