u_filmrecord2.~dfm

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

object F_filmrecord2: TF_filmrecord2
  Left = 237
  Top = 61
  Width = 758
  Height = 671
  Caption = #28155#21152#29031#29255#35760#24405
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 32
    Top = 24
    Width = 39
    Height = 13
    Caption = #24433#20687#21495
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 288
    Top = 24
    Width = 40
    Height = 13
    Caption = #26085'  '#26399
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 504
    Top = 24
    Width = 52
    Height = 13
    Caption = #29255#23376#31561#32423
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label4: TLabel
    Left = 32
    Top = 64
    Width = 40
    Height = 13
    Caption = #22995'  '#21517
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label5: TLabel
    Left = 312
    Top = 64
    Width = 40
    Height = 13
    Caption = #24615'  '#21035
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label6: TLabel
    Left = 488
    Top = 64
    Width = 47
    Height = 13
    Caption = #24180'   '#40836
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label7: TLabel
    Left = 32
    Top = 112
    Width = 40
    Height = 13
    Caption = #30005'  '#35805
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label8: TLabel
    Left = 312
    Top = 112
    Width = 40
    Height = 13
    Caption = #22320'  '#22336
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label9: TLabel
    Left = 72
    Top = 160
    Width = 47
    Height = 13
    Caption = #30149'   '#21490
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label10: TLabel
    Left = 72
    Top = 304
    Width = 52
    Height = 13
    Caption = #24433#20687#25512#26029
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label11: TLabel
    Left = 72
    Top = 448
    Width = 52
    Height = 13
    Caption = #20020#24202#35786#26029
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object filmNumber: TEdit
    Left = 80
    Top = 16
    Width = 137
    Height = 21
    Color = clMoneyGreen
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 0
  end
  object date: TEdit
    Left = 344
    Top = 16
    Width = 121
    Height = 21
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 1
  end
  object name: TEdit
    Left = 80
    Top = 56
    Width = 169
    Height = 21
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 2
  end
  object age: TEdit
    Left = 576
    Top = 56
    Width = 121
    Height = 21
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 3
  end
  object tel: TEdit
    Left = 80
    Top = 104
    Width = 169
    Height = 21
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 4
  end
  object address: TEdit
    Left = 360
    Top = 104
    Width = 337
    Height = 21
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 5
  end
  object casehis: TMemo
    Left = 72
    Top = 184
    Width = 617
    Height = 73
    Lines.Strings = (
      'Memo1')
    TabOrder = 6
  end
  object filminfer: TMemo
    Left = 72
    Top = 328
    Width = 617
    Height = 89
    Lines.Strings = (
      'Memo2')
    TabOrder = 7
  end
  object diagnose: TMemo
    Left = 72
    Top = 480
    Width = 617
    Height = 81
    Lines.Strings = (
      'Memo3')
    TabOrder = 8
  end
  object filmStage: TComboBox
    Left = 576
    Top = 16
    Width = 121
    Height = 21
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ItemHeight = 13
    ParentFont = False
    TabOrder = 9
  end
  object Button1: TButton
    Left = 176
    Top = 589
    Width = 75
    Height = 25
    Caption = #30830'   '#23450
    TabOrder = 10
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 392
    Top = 589
    Width = 75
    Height = 25
    Caption = #21462'   '#28040
    TabOrder = 11
  end
  object sex: TComboBox
    Left = 355
    Top = 56
    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 = 12
  end
  object Button3: TButton
    Left = 224
    Top = 16
    Width = 41
    Height = 25
    Caption = #26597#25214
    TabOrder = 13
  end
  object qFilmRecord: TADOQuery
    Connection = Dm.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from filmrecord ')
    Left = 632
    Top = 152
    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