unitpatientinfo.dfm

Delphi 控件源码

object patientMain: TpatientMain
  Left = 0
  Top = 0
  Width = 1024
  Height = 708
  Background.Fixed = False
  HandleTabs = False
  SupportedBrowsers = [brIE, brNetscape6]
  DesignLeft = -4
  DesignTop = -4
  object IWDB3Navigator1: TIWDBNavigator
    Left = 296
    Top = 352
    Width = 230
    Height = 25
    ZIndex = 0
    Confirmations.Delete = 'Are you sure you want to delete this record?'
    Confirmations.Post = 'Are you sure you want to update this record?'
    Confirmations.Cancel = 'Are you sure you want to cancel your changes to this record?'
    DataSource = FFDatamodule.dsrcMain
    ImageHeight = 21
    ImageWidth = 21
    VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel, nbRefresh]
    Orientation = orHorizontal
  end
  object IWButton1: TIWButton
    Left = 419
    Top = 485
    Width = 75
    Height = 25
    ZIndex = 0
    ButtonType = btButton
    Caption = ' Page > '
    Color = 13160660
    DoSubmitValidation = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    ScriptEvents = <>
    TabOrder = 0
  end
  object IWButton2: TIWButton
    Left = 312
    Top = 485
    Width = 75
    Height = 25
    ZIndex = 0
    ButtonType = btButton
    Caption = ' < Page '
    Color = 13160660
    DoSubmitValidation = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    ScriptEvents = <>
    TabOrder = 1
  end
  object IWDBLookupComboBox1: TIWDBLookupComboBox
    Left = 88
    Top = 480
    Width = 121
    Height = 21
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    ItemsHaveValues = False
    NoSelectionText = '-- No Selection --'
    RequireSelection = True
    ScriptEvents = <>
    UseSize = False
    DoSubmitValidation = True
    Editable = True
    TabOrder = 2
    AutoEditable = False
    DataField = 'xueli_id'
    DataSource = FFDatamodule.dsrcMain
    KeyField = 'xueli_id'
    ListField = 'xueli_name'
    ListSource = FFDatamodule.DataSource1
  end
  object IWDBEdit1: TIWDBEdit
    Left = 88
    Top = 360
    Width = 121
    Height = 21
    ZIndex = 0
    BGColor = clNone
    DoSubmitValidation = True
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'IWDBEdit1'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 3
    AutoEditable = False
    DataField = 'bingli_code'
    DataSource = FFDatamodule.dsrcMain
    PasswordPrompt = False
  end
  object IWDBEdit2: TIWDBEdit
    Left = 88
    Top = 408
    Width = 121
    Height = 21
    ZIndex = 0
    BGColor = clNone
    DoSubmitValidation = True
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'IWDBEdit2'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 4
    AutoEditable = False
    DataField = 'bingli_id'
    DataSource = FFDatamodule.dsrcMain
    PasswordPrompt = False
  end
  object IWDBEdit3: TIWDBEdit
    Left = 88
    Top = 448
    Width = 121
    Height = 21
    ZIndex = 0
    BGColor = clNone
    DoSubmitValidation = True
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'IWDBEdit3'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 5
    AutoEditable = False
    DataField = 'bingli_name'
    DataSource = FFDatamodule.dsrcMain
    PasswordPrompt = False
  end
end