unitpatientinfo.~dfm

Delphi 控件源码

object patientMain: TpatientMain
  Left = 0
  Top = 0
  Width = 598
  Height = 422
  VertScrollBar.Position = 1
  Background.Fixed = False
  HandleTabs = False
  SupportedBrowsers = [brIE, brNetscape6]
  DesignLeft = 246
  DesignTop = 161
  object IWDBGrid1: TIWDBGrid
    Left = 16
    Top = 15
    Width = 553
    Height = 305
    ZIndex = 0
    BorderColors.Color = clNone
    BorderColors.Light = clNone
    BorderColors.Dark = clNone
    BGColor = clNone
    BorderSize = 1
    BorderStyle = tfDefault
    CellPadding = 0
    CellSpacing = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FrameBuffer = 40
    Lines = tlAll
    UseFrame = True
    UseWidth = True
    Columns = <>
    FooterRowCount = 0
    FromStart = True
    HighlightColor = clNone
    HighlightRows = False
    Options = [dgShowTitles]
    RefreshMode = rmAutomatic
    RowLimit = 0
    RollOver = False
    RowClick = False
    RollOverColor = clNone
    RowHeaderColor = clNone
    RowAlternateColor = clNone
    RowCurrentColor = clNone
  end
  object IWDB3Navigator1: TIWDBNavigator
    Left = 296
    Top = 351
    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 = 484
    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 = 484
    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 = 479
    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 = 359
    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 = 407
    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 = 447
    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