u_filmrecord.dfm

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

      Left = 72
      Top = 108
      Width = 121
      Height = 21
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 6
    end
    object address: TEdit
      Left = 308
      Top = 104
      Width = 312
      Height = 21
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 7
    end
    object filmStage: TComboBox
      Left = 504
      Top = 19
      Width = 115
      Height = 21
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ItemHeight = 13
      ParentFont = False
      TabOrder = 2
    end
    object sex: TComboBox
      Left = 307
      Top = 59
      Width = 94
      Height = 21
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ItemHeight = 13
      ParentFont = False
      TabOrder = 4
    end
    object date: TDateTimePicker
      Left = 304
      Top = 19
      Width = 137
      Height = 21
      CalAlignment = dtaLeft
      Date = 38982.8788903356
      Time = 38982.8788903356
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 1
    end
    object beizhu: TEdit
      Left = 72
      Top = 144
      Width = 553
      Height = 21
      TabOrder = 8
    end
    object button3: TBitBtn
      Left = 193
      Top = 20
      Width = 29
      Height = 25
      TabOrder = 9
      TabStop = False
      OnClick = Button3Click
      Glyph.Data = {
        42010000424D4201000000000000760000002800000011000000110000000100
        040000000000CC00000000000000000000001000000010000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        77777000000077777777777777777000000070000077777000007000000070B0
        00777770F0007000000070F000777770B0007000000070000000700000007000
        0000700B000000B0000070000000700F000700F0000070000000700B000700B0
        0000700000007700000000000007700000007770B00070B00077700000007770
        0000700000777000000077770007770007777000000077770B07770B07777000
        0000777700077700077770000000777777777777777770000000777777777777
        777770000000}
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 531
    Width = 644
    Height = 41
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 2
    object button1: TBitBtn
      Left = 392
      Top = 8
      Width = 97
      Height = 25
      Caption = #30830#23450#20445#23384
      TabOrder = 0
      OnClick = Button1Click
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777777700007777777777777777777700007777700777777777777700007777
        0990777777777777000077709999077777777777000077799999907777777777
        00007709999999077777777700007799999999907777777700007799997B9999
        07777777000077999977B99990777777000077B999777B99990777770000777B
        997777B99990777700007777BB77777B999907770000777777777777B9999077
        00007777777777777B999977000077777777777777B999770000777777777777
        777B997700007777777777777777777700007777777777777777777700007777
        77777777777777770000}
    end
    object button2: TBitBtn
      Left = 544
      Top = 8
      Width = 89
      Height = 25
      Caption = #21462#28040#36864#20986
      TabOrder = 1
      OnClick = Button2Click
      Glyph.Data = {
        36040000424D3604000000000000360000002800000010000000100000000100
        2000000000000004000000000000000000000000000000000000FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000031DE000031DE00FFFFFF000031
        DE000031DE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF000031DE000031DE00FFFFFF00FFFFFF000031
        DE000031DE000031DE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF000031DE000031DE00FFFFFF00FFFFFF00FFFFFF000031
        DE000031DE000031DE000031DE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF000031DE000031DE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF000031EF000031DE000031DE000031DE00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF000031DE000031DE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF000031DE000031DE000031DE00FFFFFF000031DE000031
        DE000031DE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF000031DE000031E7000031E7000031EF000031
        DE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000031E7000031E7000031EF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF000031DE000031EF000031EF000031EF000031
        F700FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF000031F7000031EF000031EF00FFFFFF00FFFFFF000031
        F7000031FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF000031FF000031EF000031FF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF000031FF000031FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF000031FF000031FF000031FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF000031FF000031FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000031
        FF000031FF000031FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF000031FF00FFFFFF00FFFFFF000031FF000031
        FF000031FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000031FF000031
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00}
    end
    object Button4: TBitBtn
      Left = 24
      Top = 8
      Width = 97
      Height = 25
      Caption = #36755#20837#27861#35774#32622
      TabOrder = 2
      OnClick = Button4Click
      Glyph.Data = {
        36040000424D3604000000000000360000002800000010000000100000000100
        2000000000000004000000000000000000000000000000000000FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF0000000000FFFF000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF0000000000000000000000000000000000000000000000
        000000000000FFFF0000FFFF000000000000FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF0000000000FFFF0000FFFF0000FFFF0000FFFF0000FFFF
        0000FFFF0000FFFF0000FFFF0000FFFF000000000000FFFFFF00000000000000
        0000000000000000000000000000FFFF0000FFFF0000FFFF0000FFFF0000FFFF
        0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF00000000000000000000FFFF
        FF00FFFFFF00FFFFFF0000000000FFFF0000FFFF0000FFFF0000FFFF0000FFFF
        0000FFFF0000FFFF0000FFFF0000FFFF000000000000FFFFFF0000000000FFFF
        FF00848484008484840000000000000000000000000000000000000000000000
        000000000000FFFF0000FFFF000000000000FFFFFF00FFFFFF0000000000FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFF
        FF0000000000FFFF000000000000FFFFFF00FFFFFF00FFFFFF0000000000FFFF
        FF008484840084848400848484008484840084848400FFFFFF0000000000FFFF
        FF000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFF
        FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00840000008400
        000084000000840000008400000084000000840000008400000084000000FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00840000008400
        000084000000840000008400000084000000840000008400000084000000FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00}
    end
  end
  object qFilmRecord: TADOQuery
    Active = True
    Connection = Dm.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from filmrecord ')
    Left = 16
    Top = 200
    object qFilmRecordfilm_id: TAutoIncField
      FieldName = 'film_id'
      ReadOnly = True
    end
    object qFilmRecordfilmnumber: TWideStringField
      FieldName = 'filmnumber'
      Size = 50
    end
    object qFilmRecorddate: TDateTimeField
      FieldName = 'date'
    end
    object qFilmRecordname: TWideStringField
      FieldName = 'name'
      Size = 10
    end
    object qFilmRecordsex: TWideStringField
      FieldName = 'sex'
      Size = 4
    end
    object qFilmRecordage: TWideStringField
      FieldName = 'age'
      Size = 5
    end
    object qFilmRecordadress: TWideStringField
      FieldName = 'adress'
      Size = 50
    end
    object qFilmRecordtel: TWideStringField
      FieldName = 'tel'
      Size = 50
    end
    object qFilmRecorddiagnose: TWideStringField
      FieldName = 'diagnose'
      Size = 150
    end
    object qFilmRecordfilmstage: TWideStringField
      FieldName = 'filmstage'
      Size = 10
    end
    object qFilmRecordfilminfer: TWideStringField
      FieldName = 'filminfer'
      Size = 150
    end
    object qFilmRecordcasehis: TWideStringField
      FieldName = 'casehis'
      Size = 200
    end
    object qFilmRecordfilm: TMemoField
      FieldName = 'film'
      BlobType = ftMemo
    end
    object qFilmRecordbeiyong: TWideStringField
      FieldName = 'beiyong'
      Size = 50
    end
  end
end