main.~dfm

Delphi 控件源码

object formMain: TformMain
  Left = 0
  Top = 0
  Width = 962
  Height = 553
  Visible = False
  Background.Fixed = False
  HandleTabs = False
  Title = 'FishFact Edit Demo'
  VLinkColor = clSkyBlue
  SupportedBrowsers = [brIE, brNetscape6]
  TemplateProcessor = IWTemplateProcessorHTML1
  DesignLeft = 304
  DesignTop = 159
  object IWDB3Navigator1: TIWDBNavigator
    Left = 639
    Top = 560
    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 IWDBGrid1: TIWDBGrid
    Left = 455
    Top = 248
    Width = 410
    Height = 205
    ZIndex = 0
    BorderColors.Color = clNone
    BorderColors.Light = clNone
    BorderColors.Dark = clNone
    BGColor = clSkyBlue
    BorderSize = 1
    BorderStyle = tfDefault
    CellPadding = 0
    CellSpacing = 0
    Font.Color = clBlue
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FrameBuffer = 40
    Lines = tlAll
    UseFrame = True
    UseWidth = True
    Columns = <
      item
        Alignment = taLeftJustify
        BGColor = clNone
        DoSubmitValidation = True
        Font.Color = clNone
        Font.Enabled = True
        Font.Size = 10
        Font.Style = []
        Header = False
        Height = '0'
        VAlign = vaMiddle
        Visible = True
        Width = '0'
        Wrap = False
        BlobCharLimit = 0
        CompareHighlight = hcNone
        DataField = 'patient_bl_id'
        Title.Alignment = taCenter
        Title.BGColor = clNone
        Title.DoSubmitValidation = True
        Title.Font.Color = clNone
        Title.Font.Enabled = True
        Title.Font.Size = 10
        Title.Font.Style = []
        Title.Header = False
        Title.Height = '0'
        Title.Text = #30149#21382#21495
        Title.VAlign = vaMiddle
        Title.Visible = True
        Title.Width = '0'
        Title.Wrap = False
      end
      item
        Alignment = taLeftJustify
        BGColor = clNone
        DoSubmitValidation = True
        Font.Color = clNone
        Font.Enabled = True
        Font.Size = 10
        Font.Style = []
        Header = False
        Height = '0'
        VAlign = vaMiddle
        Visible = True
        Width = '0'
        Wrap = False
        BlobCharLimit = 0
        CompareHighlight = hcNone
        DataField = 'patient_rxsj'
        Title.Alignment = taCenter
        Title.BGColor = clNone
        Title.DoSubmitValidation = True
        Title.Font.Color = clNone
        Title.Font.Enabled = True
        Title.Font.Size = 10
        Title.Font.Style = []
        Title.Header = False
        Title.Height = '0'
        Title.Text = #20837#36873#26102#38388
        Title.VAlign = vaMiddle
        Title.Visible = True
        Title.Width = '0'
        Title.Wrap = False
      end
      item
        Alignment = taLeftJustify
        BGColor = clNone
        DoSubmitValidation = True
        Font.Color = clNone
        Font.Enabled = True
        Font.Size = 10
        Font.Style = []
        Header = False
        Height = '0'
        VAlign = vaMiddle
        Visible = True
        Width = '0'
        Wrap = False
        BlobCharLimit = 0
        CompareHighlight = hcNone
        DataField = 'patient_xm'
        Title.Alignment = taCenter
        Title.BGColor = clNone
        Title.DoSubmitValidation = True
        Title.Font.Color = clNone
        Title.Font.Enabled = True
        Title.Font.Size = 10
        Title.Font.Style = []
        Title.Header = False
        Title.Height = '0'
        Title.Text = #22995#21517
        Title.VAlign = vaMiddle
        Title.Visible = True
        Title.Width = '0'
        Title.Wrap = False
      end>
    DataSource = FFDatamodule.dsrcMain
    FooterRowCount = 0
    FromStart = True
    HighlightColor = clNone
    HighlightRows = True
    Options = [dgShowTitles]
    RefreshMode = rmAutomatic
    RowLimit = 0
    RollOver = False
    RowClick = False
    RollOverColor = clNone
    RowHeaderColor = clNone
    RowAlternateColor = clNone
    RowCurrentColor = clNone
  end
  object IWDBEdit1: TIWDBEdit
    Left = 304
    Top = 336
    Width = 128
    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 = 0
    AutoEditable = False
    DataField = 'patient_bl_id'
    DataSource = FFDatamodule.dsrcMain
    PasswordPrompt = False
  end
  object IWDBEdit2: TIWDBEdit
    Left = 304
    Top = 376
    Width = 128
    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 = 1
    AutoEditable = False
    DataField = 'patient_rxsj'
    DataSource = FFDatamodule.dsrcMain
    PasswordPrompt = False
  end
  object IWDBEdit3: TIWDBEdit
    Left = 304
    Top = 424
    Width = 89
    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 = 2
    AutoEditable = False
    DataField = 'patient_xm'
    DataSource = FFDatamodule.dsrcMain
    PasswordPrompt = False
  end
  object IWLabel1: TIWLabel
    Left = 216
    Top = 336
    Width = 52
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Caption = #30149#21382#21495
  end
  object IWLabel2: TIWLabel
    Left = 216
    Top = 376
    Width = 70
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Caption = #20837#36873#26102#38388
  end
  object IWLabel3: TIWLabel
    Left = 216
    Top = 424
    Width = 51
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Caption = #22995'     '#21517
  end
  object IWLabel4: TIWLabel
    Left = 216
    Top = 472
    Width = 51
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Caption = #24615'     '#21035
  end
  object IWLabel5: TIWLabel
    Left = 216
    Top = 512
    Width = 70
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Caption = #20986#29983#24180#26376
  end
  object IWLabel6: TIWLabel
    Left = 216
    Top = 552
    Width = 48
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Caption = #32844'    '#19994
  end
  object IWLabel7: TIWLabel
    Left = 216
    Top = 592
    Width = 70
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Caption = #24037#20316#21333#20301
  end
  object IWHRule1: TIWHRule
    Left = 152
    Top = 664
    Width = 712
    Height = 17
    ZIndex = 0
  end
  object IWLabel8: TIWLabel
    Left = 216
    Top = 631
    Width = 70
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    AutoSize = False
    Caption = #23478#24237#20303#22336
  end
  object IWLabel9: TIWLabel
    Left = 160
    Top = 255
    Width = 70
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Caption = #30149#20154#20449#24687
  end
  object IWLabel10: TIWLabel
    Left = 168
    Top = 676
    Width = 88
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Caption = #30149#29616#29366#20449#24687
  end
  object IWLabel11: TIWLabel
    Left = 400
    Top = 476
    Width = 55
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Caption = #23398'      '#21382
  end
  object IWLabel12: TIWLabel
    Left = 216
    Top = 716
    Width = 52
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Caption = #20303#38498#21495
  end
  object IWLabel13: TIWLabel
    Left = 424
    Top = 716
    Width = 38
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Caption = #36523' '#39640
  end
  object IWLabel14: TIWLabel
    Left = 560
    Top = 716
    Width = 38
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Caption = #20307' '#37325
  end
  object IWLabel15: TIWLabel
    Left = 688
    Top = 716
    Width = 70
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Caption = #20307#37325#25351#25968
  end
  object IWLabel16: TIWLabel
    Left = 216
    Top = 756
    Width = 38
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Caption = #33136' '#22260
  end
  object IWLabel17: TIWLabel
    Left = 368
    Top = 756
    Width = 38
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Caption = #33216' '#22260
  end
  object IWLabel18: TIWLabel
    Left = 520
    Top = 756
    Width = 52
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Caption = #33136#33216#27604
  end
  object IWLabel19: TIWLabel
    Left = 216
    Top = 796
    Width = 38
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Caption = #34880' '#21387
  end
  object IWLabel20: TIWLabel
    Left = 368
    Top = 796
    Width = 38
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Caption = #24515' '#29575
  end
  object IWLabel21: TIWLabel
    Left = 520
    Top = 796
    Width = 38
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Caption = #24515' '#24459
  end
  object IWLabel22: TIWLabel
    Left = 216
    Top = 836
    Width = 52
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Caption = #21560#28895#21490
  end
  object IWLabel23: TIWLabel
    Left = 216
    Top = 876
    Width = 52
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Caption = #39278#37202#21490
  end
  object IWHRule2: TIWHRule
    Left = 170
    Top = 939
    Width = 655
    Height = 17
    ZIndex = 0
  end
  object IWLabel24: TIWLabel
    Left = 368
    Top = 835
    Width = 39
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Caption = '('#27599#26085
  end
  object IWLabel25: TIWLabel
    Left = 448
    Top = 835
    Width = 24
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Caption = #25903'; '
  end
  object IWLabel26: TIWLabel
    Left = 480
    Top = 835
    Width = 17
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Caption = #20849
  end
  object IWLabel27: TIWLabel
    Left = 544
    Top = 835
    Width = 24
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Caption = #24180'; '
  end
  object IWLabel28: TIWLabel
    Left = 576
    Top = 835
    Width = 52
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Caption = #24050#25106#28895
  end
  object IWLabel29: TIWLabel
    Left = 680
    Top = 835
    Width = 22