u_stagequery.~dfm

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

        FF00FFFFFF00FFFFFF00CECECE00FFFFFF00CECECE00FFFFFF0094CECE00FFFF
        FF00CECECE0094FFFF00CECECE00FFFFFF00FF00FF00FF00FF0084848400FFFF
        FF0063949400CEFFFF00FFFFFF00CECECE00FFFFFF0094CECE002963630094CE
        CE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0084848400FFFF
        FF00FFFFFF0063949400CEFFFF00FFFFFF0094CECE002963630094CECE002963
        6300639494006394940063949400FFFFFF00FF632900FF632900848484008484
        8400848484008484840063949400CEFFFF00FFFFFF0094CECE002963630094CE
        CE0094CECE0094CECE006394940063949400FF942900FF942900FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF0063949400CEFFFF00FFFFFF00CEFFFF00CEFF
        FF0094CECE0094CECE0094CECE0094CECE00FFCE2900FFCE2900FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF0063949400FFFFFF00FFFFFF00CEFF
        FF00CEFFFF00CEFFFF00CEFFFF0063949400FFFF9400FFFF9400FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF0063949400639494006394
        9400639494006394940063949400FF00FF00FF632900FF632900FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
    end
    object btnDele: TBitBtn
      Left = 424
      Top = 50
      Width = 75
      Height = 25
      Caption = #21024#38500
      TabOrder = 7
      OnClick = btnDeleClick
      Glyph.Data = {
        36040000424D3604000000000000360000002800000010000000100000000100
        2000000000000004000000000000000000000000000000000000FFFFFF00FFFF
        FF00FFFFFF001818180018181800181818001818180018181800000000001818
        180018181800181818001818180000000000FFFFFF00FFFFFF00FFFFFF00FFFF
        FF001818180084848400ADB5AD00BDBDBD00BDBDBD00000000004A4AFF000000
        0000BDBDBD00ADB5AD00000000002931FF0000000000FFFFFF00FFFFFF001818
        1800DEDEDE0018181800ADB5AD00DEDEDE00000000004A4AFF004A4AFF004A4A
        FF0000000000000000002931FF006363FF002931FF0000000000181818008484
        8400181818005A5A5A00DEDEDE00DEDEDE00DEDEDE00000000004A4AFF004A4A
        FF004A4AFF004A4AFF004A4AFF002931FF0000000000FFFFFF0018181800D6D6
        D600D6D6D600D6D6D600D6D6D600DEDEDE00DEDEDE00DEDEDE00000000004A4A
        FF004A4AFF004A4AFF004A4AFF0000000000FFFFFF00FFFFFF0018181800D6D6
        D600D6D6D600D6D6D600D6D6D600D6D6D600D6D6D600DEDEDE00DEDEDE000000
        00004A4AFF004A4AFF0000000000FFFFFF00FFFFFF00FFFFFF0018181800DEDE
        DE00D6D6D600D6D6D600D6D6D600D6D6D600D6D6D600D6D6D600000000006363
        FF004A4AFF004A4AFF004A4AFF0000000000FFFFFF00FFFFFF0018181800DEDE
        DE00CECECE00CECECE00D6D6D600D6D6D600D6D6D600000000006363FF002931
        FF002931FF004A4AFF004A4AFF004A4AFF0000000000FFFFFF0018181800DEDE
        DE00CECECE00CECECE00CECECE00D6D6D600000000006363FF002931FF006363
        FF0000000000000000004A4AFF004A4AFF004A4AFF000000000018181800DEDE
        DE00CECECE00CECECE00CECECE00CECECE00D6D6D600000000006363FF000000
        0000D6D6D600CECECE00000000004A4AFF0000000000FFFFFF0018181800DEDE
        DE00CECECE00CECECE00CECECE00CECECE00CECECE00CECECE0000000000D6D6
        D600D6D6D600D6D6D6001818180000000000FFFFFF00FFFFFF0018181800DEDE
        DE00BDBDBD00BDBDBD00CECECE00CECECE00CECECE00CECECE00CECECE00D6D6
        D600D6D6D600D6D6D60018181800FFFFFF00FFFFFF00FFFFFF0018181800DEDE
        DE00BDBDBD00BDBDBD00BDBDBD00CECECE00CECECE00CECECE00CECECE00CECE
        CE00CECECE00D6D6D60018181800FFFFFF00FFFFFF00FFFFFF0018181800DEDE
        DE00BDBDBD00BDBDBD00BDBDBD00BDBDBD00CECECE00CECECE00CECECE00CECE
        CE00CECECE00D6D6D60018181800FFFFFF00FFFFFF00FFFFFF0018181800DEDE
        DE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDE
        DE00DEDEDE00DEDEDE0018181800FFFFFF00FFFFFF00FFFFFF00181818001818
        1800181818001818180018181800181818001818180018181800181818001818
        1800181818001818180018181800FFFFFF00FFFFFF00FFFFFF00}
    end
  end
  object GroupBox2: TGroupBox
    Left = 0
    Top = 84
    Width = 682
    Height = 441
    Align = alClient
    TabOrder = 1
    object DBGrid1: TDBGrid
      Left = 2
      Top = 15
      Width = 678
      Height = 383
      Align = alClient
      DataSource = DataSource1
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      OnDblClick = DBGrid1DblClick
      OnTitleClick = DBGrid1TitleClick
      Columns = <
        item
          Expanded = False
          FieldName = 'date'
          Title.Caption = #26102#38388
          Width = 49
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'filmnumber'
          Title.Caption = #24433#20687#21495
          Width = 55
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'name'
          Title.Caption = #22995#21517
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'sex'
          Title.Caption = #24615#21035
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'age'
          Title.Caption = #24180#40836
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'filmstage'
          Title.Caption = #29031#29255#31561#32423
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'tel'
          Title.Caption = #30005#35805
          Width = 85
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'adress'
          Title.Caption = #22320#22336
          Width = 96
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'casehis'
          Title.Caption = #30149#21490
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'filminfer'
          Title.Caption = #24433#20687#25512#26029
          Width = 268
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'diagnose'
          Title.Caption = #20020#24202#35786#26029
          Width = 235
          Visible = True
        end>
    end
    object Panel1: TPanel
      Left = 2
      Top = 398
      Width = 678
      Height = 41
      Align = alBottom
      BevelOuter = bvNone
      TabOrder = 1
      object Label4: TLabel
        Left = 24
        Top = 17
        Width = 52
        Height = 13
        Caption = #24635#35760#24405#25968
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object count: TEdit
        Left = 80
        Top = 10
        Width = 121
        Height = 21
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ImeName = #32043#20809#25340#38899#36755#20837#27861
        ParentFont = False
        TabOrder = 0
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 296
    Top = 440
  end
  object ADOQuery1: TADOQuery
    Connection = Dm.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from filmrecord ')
    Left = 376
    Top = 440
  end
end