u_filmrecord.dfm

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

object F_filmrecord: TF_filmrecord
  Left = 314
  Top = 278
  Width = 652
  Height = 599
  Caption = #28155#21152#29031#29255#35760#24405
  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
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 0
    Top = 187
    Width = 644
    Height = 344
    Align = alClient
    Caption = #35786#26029#31561#20449#24687
    TabOrder = 1
    object Label9: TLabel
      Left = 40
      Top = 32
      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 = 24
      Top = 224
      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 = 24
      Top = 124
      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 casehis: TMemo
      Left = 24
      Top = 56
      Width = 553
      Height = 57
      Lines.Strings = (
        'Memo1')
      TabOrder = 0
    end
    object filminfer: TMemo
      Left = 24
      Top = 248
      Width = 553
      Height = 65
      Lines.Strings = (
        'Memo2')
      TabOrder = 2
    end
    object diagnose: TMemo
      Left = 24
      Top = 144
      Width = 553
      Height = 57
      Lines.Strings = (
        'Memo3')
      TabOrder = 1
    end
    object BitBtn1: TBitBtn
      Left = 81
      Top = 220
      Width = 29
      Height = 25
      TabOrder = 3
      TabStop = False
      OnClick = BitBtn1Click
      Glyph.Data = {
        42010000424D4201000000000000760000002800000011000000110000000100
        040000000000CC00000000000000000000001000000010000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        77777000000077777777777777777000000070000077777000007000000070B0
        00777770F0007000000070F000777770B0007000000070000000700000007000
        0000700B000000B0000070000000700F000700F0000070000000700B000700B0
        0000700000007700000000000007700000007770B00070B00077700000007770
        0000700000777000000077770007770007777000000077770B07770B07777000
        0000777700077700077770000000777777777777777770000000777777777777
        777770000000}
    end
  end
  object GroupBox2: TGroupBox
    Left = 0
    Top = 0
    Width = 644
    Height = 187
    Align = alTop
    Caption = #30149#20154#22522#26412#20449#24687
    TabOrder = 0
    object Label1: TLabel
      Left = 24
      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 = 256
      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 = 446
      Top = 23
      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 = 24
      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 = 256
      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 = 450
      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 = 24
      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 = 256
      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 Label12: TLabel
      Left = 24
      Top = 152
      Width = 40
      Height = 13
      Caption = #22791'  '#27880
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object filmNumber: TEdit
      Left = 72
      Top = 19
      Width = 121
      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 name: TEdit
      Left = 72
      Top = 59
      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 age: TEdit
      Left = 504
      Top = 59
      Width = 113
      Height = 21
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 5
    end
    object tel: TEdit