main.~dfm

Delphi 控件源码

    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Caption = #24180')'
  end
  object IWLabel30: TIWLabel
    Left = 288
    Top = 56
    Width = 519
    Height = 41
    ZIndex = 0
    Font.Color = clMenuHighlight
    Font.Enabled = True
    Font.Size = 20
    Font.Style = []
    AutoSize = False
    Caption = #24515#34880#31649#30142#30149#30340#20998#23376#20998#22411#19982#20010#24615#21270#35786#30103
  end
  object IWDBEdit4: TIWDBEdit
    Left = 304
    Top = 469
    Width = 49
    Height = 21
    ZIndex = 0
    BGColor = clNone
    DoSubmitValidation = True
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'IWDBEdit4'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 3
    AutoEditable = False
    DataField = 'patient_xb'
    DataSource = FFDatamodule.dsrcMain
    PasswordPrompt = False
  end
  object IWDBEdit5: TIWDBEdit
    Left = 304
    Top = 509
    Width = 121
    Height = 21
    ZIndex = 0
    BGColor = clNone
    DoSubmitValidation = True
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'IWDBEdit5'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 4
    AutoEditable = False
    DataField = 'patient_csrq'
    DataSource = FFDatamodule.dsrcMain
    PasswordPrompt = False
  end
  object IWDBEdit6: TIWDBEdit
    Left = 304
    Top = 549
    Width = 153
    Height = 21
    ZIndex = 0
    BGColor = clNone
    DoSubmitValidation = True
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'IWDBEdit6'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 5
    AutoEditable = False
    DataField = 'patient_zy'
    DataSource = FFDatamodule.dsrcMain
    PasswordPrompt = False
  end
  object IWDBEdit8: TIWDBEdit
    Left = 304
    Top = 629
    Width = 369
    Height = 21
    ZIndex = 0
    BGColor = clNone
    DoSubmitValidation = True
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'IWDBEdit8'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 6
    AutoEditable = False
    DataField = 'patient_jtzz'
    DataSource = FFDatamodule.dsrcMain
    PasswordPrompt = False
  end
  object IWDBEdit7: TIWDBEdit
    Left = 304
    Top = 589
    Width = 369
    Height = 21
    ZIndex = 0
    BGColor = clNone
    DoSubmitValidation = True
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'IWDBEdit7'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 7
    AutoEditable = False
    DataField = 'patient_gzdw'
    DataSource = FFDatamodule.dsrcMain
    PasswordPrompt = False
  end
  object IWDBEdit9: TIWDBEdit
    Left = 272
    Top = 717
    Width = 121
    Height = 21
    ZIndex = 0
    BGColor = clNone
    DoSubmitValidation = True
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'IWDBEdit9'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 8
    AutoEditable = False
    DataField = 'patient_zyh'
    DataSource = FFDatamodule.dsrcMain
    PasswordPrompt = False
  end
  object IWDBEdit10: TIWDBEdit
    Left = 472
    Top = 717
    Width = 65
    Height = 21
    ZIndex = 0
    BGColor = clNone
    DoSubmitValidation = True
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'IWDBEdit10'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 9
    AutoEditable = False
    DataField = 'patient_sg'
    DataSource = FFDatamodule.dsrcMain
    PasswordPrompt = False
  end
  object IWDBEdit11: TIWDBEdit
    Left = 608
    Top = 717
    Width = 65
    Height = 21
    ZIndex = 0
    BGColor = clNone
    DoSubmitValidation = True
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'IWDBEdit11'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 10
    AutoEditable = False
    DataField = 'patient_tz'
    DataSource = FFDatamodule.dsrcMain
    PasswordPrompt = False
  end
  object IWDBEdit12: TIWDBEdit
    Left = 760
    Top = 717
    Width = 65
    Height = 21
    ZIndex = 0
    BGColor = clNone
    DoSubmitValidation = True
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'IWDBEdit12'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 11
    AutoEditable = False
    DataField = 'patient_tzzs'
    DataSource = FFDatamodule.dsrcMain
    PasswordPrompt = False
  end
  object IWDBEdit13: TIWDBEdit
    Left = 272
    Top = 757
    Width = 73
    Height = 21
    ZIndex = 0
    BGColor = clNone
    DoSubmitValidation = True
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'IWDBEdit13'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 12
    AutoEditable = False
    DataField = 'patient_yw'
    DataSource = FFDatamodule.dsrcMain
    PasswordPrompt = False
  end
  object IWDBEdit14: TIWDBEdit
    Left = 424
    Top = 757
    Width = 73
    Height = 21
    ZIndex = 0
    BGColor = clNone
    DoSubmitValidation = True
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'IWDBEdit14'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 13
    AutoEditable = False
    DataField = 'patient_tw'
    DataSource = FFDatamodule.dsrcMain
    PasswordPrompt = False
  end
  object IWDBEdit15: TIWDBEdit
    Left = 576
    Top = 757
    Width = 121
    Height = 21
    ZIndex = 0
    BGColor = clNone
    DoSubmitValidation = True
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'IWDBEdit15'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 14
    AutoEditable = False
    DataField = 'patient_ytb'
    DataSource = FFDatamodule.dsrcMain
    PasswordPrompt = False
  end
  object IWDBEdit16: TIWDBEdit
    Left = 272
    Top = 797
    Width = 73
    Height = 21
    ZIndex = 0
    BGColor = clNone
    DoSubmitValidation = True
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'IWDBEdit16'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 15
    AutoEditable = False
    DataField = 'patient_xy'
    DataSource = FFDatamodule.dsrcMain
    PasswordPrompt = False
  end
  object IWDBEdit17: TIWDBEdit
    Left = 424
    Top = 797
    Width = 73
    Height = 21
    ZIndex = 0
    BGColor = clNone
    DoSubmitValidation = True
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'IWDBEdit17'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 16
    AutoEditable = False
    DataField = 'patient_xl'
    DataSource = FFDatamodule.dsrcMain
    PasswordPrompt = False
  end
  object IWDBEdit18: TIWDBEdit
    Left = 576
    Top = 797
    Width = 121
    Height = 21
    ZIndex = 0
    BGColor = clNone
    DoSubmitValidation = True
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'IWDBEdit18'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 17
    AutoEditable = False
    DataField = 'patient_xlzt'
    DataSource = FFDatamodule.dsrcMain
    PasswordPrompt = False
  end
  object IWDBEdit19: TIWDBEdit
    Left = 272
    Top = 833
    Width = 81
    Height = 21
    ZIndex = 0
    BGColor = clNone
    DoSubmitValidation = True
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'IWDBEdit19'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 18
    AutoEditable = False
    DataField = 'patient_xys'
    DataSource = FFDatamodule.dsrcMain
    PasswordPrompt = False
  end
  object IWDBEdit20: TIWDBEdit
    Left = 408
    Top = 833
    Width = 33
    Height = 21
    ZIndex = 0
    BGColor = clNone
    DoSubmitValidation = True
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'IWDBEdit20'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 19
    AutoEditable = False
    DataField = 'patient_yjs_bjr'
    DataSource = FFDatamodule.dsrcMain
    PasswordPrompt = False
  end
  object IWDBEdit21: TIWDBEdit
    Left = 496
    Top = 833
    Width = 41
    Height = 21
    ZIndex = 0
    BGColor = clNone
    DoSubmitValidation = True
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'IWDBEdit21'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 20
    AutoEditable = False
    DataField = 'patient_xys_n'
    DataSource = FFDatamodule.dsrcMain
    PasswordPrompt = False
  end
  object IWDBEdit22: TIWDBEdit
    Left = 632
    Top = 833
    Width = 41
    Height = 21
    ZIndex = 0
    BGColor = clNone
    DoSubmitValidation = True
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'IWDBEdit22'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 21
    AutoEditable = False
    DataField = 'patient_xys_jy_n'
    DataSource = FFDatamodule.dsrcMain
    PasswordPrompt = False
  end
  object IWDBEdit23: TIWDBEdit
    Left = 272
    Top = 873
    Width = 81
    Height = 21
    ZIndex = 0
    BGColor = clNone
    DoSubmitValidation = True
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'IWDBEdit23'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 22
    AutoEditable = False
    DataField = 'patient_yjs'
    DataSource = FFDatamodule.dsrcMain
    PasswordPrompt = False
  end
  object IWLabel31: TIWLabel
    Left = 368
    Top = 875
    Width = 39
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Caption = '('#30333#37202
  end
  object IWLabel32: TIWLabel
    Left = 448
    Top = 875
    Width = 41
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Caption = #26085#20004'; '
  end
  object IWLabel33: TIWLabel
    Left = 496
    Top = 875
    Width = 17
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Caption = #21608
  end
  object IWLabel34: TIWLabel
    Left = 560
    Top = 875
    Width = 24
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Caption = #20004'; '
  end
  object IWDBEdit24: TIWDBEdit
    Left = 408
    Top = 873
    Width = 33
    Height = 21
    ZIndex = 0
    BGColor = clNone
    DoSubmitValidation = True
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'IWDBEdit20'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 23
    AutoEditable = False
    DataField = 'patient_yjs_bjz'
    DataSource = FFDatamodule.dsrcMain
    PasswordPrompt = False
  end
  object IWDBEdit25: TIWDBEdit
    Left = 520
    Top = 873
    Width = 33
    Height = 21
    ZIndex = 0
    BGColor = clNone
    DoSubmitValidation = True
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'IWDBEdit21'
    MaxLength = 0
    ReadOnly = False
    Required = False