u_stagetongji.dfm

对于医院的影像室的资料进行管理,主要方便查阅,特别是对于病人的照片的病前后比较对于病情的发展很有价值

object F_stagetongji: TF_stagetongji
  Left = 284
  Top = 164
  Width = 671
  Height = 491
  Caption = #25353#29031#29255#31561#32423#32479#35745
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnKeyDown = FormKeyDown
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 663
    Height = 93
    Align = alTop
    Caption = #32479#35745#26465#20214#21306
    TabOrder = 0
    object Lbegindate: TLabel
      Left = 57
      Top = 26
      Width = 64
      Height = 16
      Caption = #24320#22987#26102#38388
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Lendate: TLabel
      Left = 388
      Top = 28
      Width = 64
      Height = 16
      Caption = #32467#26463#26102#38388
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Button1: TBitBtn
      Left = 462
      Top = 58
      Width = 75
      Height = 25
      Caption = #32479#35745
      TabOrder = 0
      OnClick = Button1Click
      Glyph.Data = {
        42020000424D4202000000000000420000002800000010000000100000000100
        1000030000000002000000000000000000000000000000000000007C0000E003
        00001F0000001F7C1F7C1F7C630C630C630C630C630C630C630C630C630C630C
        1F7C1F7C1F7C1F7C1F7C630C1042D5565A6B5A6B5A6B5A6B5A6B5A6B3967630C
        630C630C1F7C1F7C630C7B6F630CD5567B6F7B6F7B6F7B6F7B6F7B6F6B2DC064
        457EC048630C630C1042630C6B2D7B6F7B6F7B6F7B6F7B6F7B6F6B2DC064327F
        527EC064630C630C5A6B7B6F7B6F7B6F7B6F5A6B744E744E6B2DC064327F527E
        C064630C1F7C630C7B6F7B6F7B6FF75E8C31630C630C630C630C327F527EC064
        630C1F7C1F7C630C7B6F7B6FF75E8C313F333F333F333F175F32857DC064630C
        1F7C1F7C1F7C630C7B6FF75E8C31744E3D53FF4BFF4B3F333F175F32630C630C
        1F7C1F7C1F7C630C7B6FF75E8C313D53FF67FF4BFF4BFF4B3F333F17630C630C
        1F7C1F7C1F7C630C7B6FF75E8C313D53FF67FF4BFF4BFF4BFF4B3F17630C630C
        1F7C1F7C1F7C630C7B6FF75E8C313D53FF67FF4BFF4BFF4BFF4B3F17630C630C
        1F7C1F7C1F7C630C7B6F5A6B8C31F75E3D53FF67FF4BFF4B3D53744E630C630C
        1F7C1F7C1F7C630C7B6F5A6BF75E8C31F75E3D533D533D53744E630CF75E630C
        1F7C1F7C1F7C630C7B6F5A6B5A6BF75E8C318C318C318C318C31F75E7B6F630C
        1F7C1F7C1F7C630C7B6F7B6F7B6F7B6F7B6FF75EF75EF75EF75E7B6F7B6F630C
        1F7C1F7C1F7C630C630C630C630C630C630C630C630C630C630C630C630C630C
        1F7C1F7C1F7C}
    end
    object btnClose: TBitBtn
      Left = 539
      Top = 58
      Width = 75
      Height = 25
      Caption = #20851#38381
      TabOrder = 1
      OnClick = btnCloseClick
      Glyph.Data = {
        42020000424D4202000000000000420000002800000010000000100000000100
        1000030000000002000000000000000000000000000000000000007C0000E003
        00001F0000001F7C0000EF3D0000EF3D0000EF3DFF03EF3DFF0300001F7CEF01
        00000000EF3D1F7C0000000000000000000000000000FF03EF3D0000FF7FEF3D
        EF01000000001F7C1F7C1F7C1F7C0000000000000000000000000000FF7FEF01
        EF01EF0100001F7C1F7C1F7C1F7C0000007C0000FF03FF7F003C0000FF7FEF3D
        EF01EF3D000000000000000000000000007C007C0000FF03003C0000FF7FEF01
        EF3DEF0100000000007C007C007C007C007C007C007C0000003C0000FF7FEF3D
        0000EF3D00000000007C007C007C007C007C007C007C0000003C0000FF7F0000
        0000EF01000000000000000000000000007C007C0000FF03003C0000FF7FEF01
        0000EF3D00001F7C1F7C1F7C1F7C0000007C0000FF03FF7F003C0000FF7FEF3D
        EF01EF0100001F7C1F7C1F7C1F7C000000000000FF7FFF03003C0000FF7FEF3D
        EF01EF3D00001F7C1F7C1F7C1F7C00001F7C0000FF03FF7F003C0000FF7FEF01
        EF01EF0100001F7C1F7C1F7C1F7C1F7C1F7C0000FF7FFF03003C0000FF7FEF3D
        EF01EF3D00001F7C1F7C1F7C1F7C1F7C1F7C0000FF03FF7FFF03FF7F0000FF7F
        EF3DEF0100001F7C1F7C1F7C1F7C1F7C1F7C0000FF7FFF03FF7FFF03FF7FFF03
        FF7FEF3D00001F7C1F7C1F7C1F7C1F7C1F7C0000000000000000000000000000
        0000000000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
        1F7C1F7C1F7C}
    end
    object DateTimePicker1: TDateTimePicker
      Left = 129
      Top = 22
      Width = 145
      Height = 24
      CalAlignment = dtaLeft
      Date = 38982.8121310764
      Time = 38982.8121310764
      DateFormat = dfShort
      DateMode = dmComboBox
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Kind = dtkDate
      ParseInput = False
      ParentFont = False
      TabOrder = 2
    end
    object DateTimePicker2: TDateTimePicker
      Left = 460
      Top = 25
      Width = 137
      Height = 24
      CalAlignment = dtaLeft
      Date = 38982.8125824653
      Time = 38982.8125824653
      DateFormat = dfShort
      DateMode = dmComboBox
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Kind = dtkDate
      ParseInput = False
      ParentFont = False
      TabOrder = 3
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 93
    Width = 663
    Height = 371
    Align = alClient
    BevelOuter = bvLowered
    Caption = 'Panel1'
    TabOrder = 1
    object GroupBox2: TGroupBox
      Left = 1
      Top = 1
      Width = 256
      Height = 369
      Align = alLeft
      Caption = 'GroupBox2'
      TabOrder = 0
      object Panel3: TPanel
        Left = 2
        Top = 326
        Width = 252
        Height = 41
        Align = alBottom
        BevelOuter = bvNone
        TabOrder = 0
        object Label1: TLabel
          Left = 8
          Top = 12
          Width = 39
          Height = 13
          Caption = #35760#24405#25968
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object count1: TEdit
          Left = 57
          Top = 9
          Width = 113
          Height = 21
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 0
        end
      end
      object DBGrid1: TDBGrid
        Left = 2
        Top = 15
        Width = 252
        Height = 311
        Align = alClient
        DataSource = DataSource1
        ReadOnly = True
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -13
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'count1'
            Title.Caption = #25968#37327
            Width = 106
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'filmstage'
            Title.Caption = #29031#29255#31561#32423
            Width = 109
            Visible = True
          end>
      end
    end
    object GroupBox3: TGroupBox
      Left = 257
      Top = 1
      Width = 405
      Height = 369
      Align = alClient
      Caption = 'GroupBox2'
      TabOrder = 1
      object Panel4: TPanel
        Left = 2
        Top = 326
        Width = 401
        Height = 41
        Align = alBottom
        BevelOuter = bvNone
        TabOrder = 0
        object Label3: TLabel
          Left = 5
          Top = 15
          Width = 39
          Height = 13
          Caption = #35760#24405#25968
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object count2: TEdit
          Left = 57
          Top = 12
          Width = 113
          Height = 21
          BevelEdges = [beRight, beBottom]
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 0
        end
      end
      object DBGrid2: TDBGrid
        Left = 2
        Top = 15
        Width = 401
        Height = 311
        Align = alClient
        DataSource = DataSource2
        ReadOnly = True
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -13
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'count2'
            Title.Caption = #25968#37327
            Width = 86
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'diagnose'
            Title.Caption = #30142#30149#31867#22411
            Width = 263
            Visible = True
          end>
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 8
    Top = 128
  end
  object ADOQuery1: TADOQuery
    Connection = Dm.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select filmstage,count(*) as count1 from filmrecord group by fil' +
        'mstage')
    Left = 8
    Top = 160
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery2
    Left = 280
    Top = 136
  end
  object ADOQuery2: TADOQuery
    Connection = Dm.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select diagnose,count(*) as count2 from filmrecord group by diag' +
        'nose')
    Left = 280
    Top = 176
  end
end