basicdata.dfm

delphi框架可以学习, 写的很好的

inherited frmBaseData: TfrmBaseData
  Left = 50
  Top = 239
  Caption = #22522#30784#25968#25454#31649#29702
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 12
  inherited RzToolbar1: TRzToolbar
    ToolbarControls = (
      btnOpen
      RzSpacer1
      BtnNew
      BtnSave
      BtnUndo
      BtnDelete
      RzSpacer2
      BtnCheck
      BtnUnCheck
      RzSpacer3
      BtnSelReport
      BtnPreview
      BtnPrint
      BtnDesigen
      RzSpacer4
      BtnOther
      BtnHelp
      BtnExit
      RzSpacer5
      Btn1
      Btn2
      Btn3
      Btn4
      Btn5
      Btn6
      Btn7)
    inherited BtnCheck: TRzToolButton
      Visible = False
    end
    inherited BtnUnCheck: TRzToolButton
      Visible = False
    end
    inherited RzSpacer3: TRzSpacer
      Visible = False
    end
    inherited Btn1: TRzToolButton
      Visible = False
    end
    inherited Btn2: TRzToolButton
      Visible = False
    end
    inherited Btn3: TRzToolButton
      Visible = False
    end
    inherited Btn4: TRzToolButton
      Visible = False
    end
    inherited Btn5: TRzToolButton
      Visible = False
    end
    inherited Btn6: TRzToolButton
      Visible = False
    end
    inherited Btn7: TRzToolButton
      Visible = False
    end
  end
  object dbgridList: TDBGridEh [1]
    Left = 0
    Top = 68
    Width = 1028
    Height = 378
    IntervalColor = clMoneyGreen
    Indicator = 11
    Align = alClient
    AllowedOperations = [alopUpdateEh]
    DataSource = dm.dsBasicData
    Flat = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    FooterColor = 10931184
    FooterFont.Charset = GB2312_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -12
    FooterFont.Name = #23435#20307
    FooterFont.Style = []
    FooterRowCount = 1
    OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghEnterAsTab, dghRowHighlight]
    ParentFont = False
    RowHeight = 18
    SumList.Active = True
    TabOrder = 1
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = [fsBold]
    TitleHeight = 18
    OnTitleBtnClick = dbgridListTitleBtnClick
    Columns = <
      item
        CharCase = ecNormal
        StringMask = smNormal
        EditButtons = <>
        FieldName = 'Number'
        Footer.Value = #20849#35745
        Footer.ValueType = fvtStaticText
        Footers = <>
        Title.Alignment = taCenter
      end
      item
        CharCase = ecNormal
        StringMask = smNormal
        EditButtons = <>
        FieldName = 'Code'
        Footer.DisplayFormat = '#'#26465#35760#24405
        Footer.ValueType = fvtCount
        Footers = <>
        Title.Alignment = taCenter
        Width = 76
      end
      item
        CharCase = ecNormal
        StringMask = smNormal
        EditButtons = <>
        FieldName = 'Name'
        Footers = <>
        Title.Alignment = taCenter
        Width = 233
      end
      item
        CharCase = ecNormal
        StringMask = smNormal
        EditButtons = <>
        FieldName = 'SecCode'
        Footers = <>
        Title.Alignment = taCenter
        Width = 233
      end
      item
        CharCase = ecNormal
        StringMask = smNormal
        Checkboxes = True
        EditButtons = <>
        FieldName = 'IsOK'
        Footers = <>
        KeyList.Strings = (
          '1'
          '0')
        Title.Alignment = taCenter
      end>
  end
  object RzPanel1: TRzPanel [2]
    Left = 0
    Top = 44
    Width = 1028
    Height = 24
    Align = alTop
    BorderOuter = fsNone
    Caption = '['#22522#30784#25968#25454#21015#34920']'
    TabOrder = 2
    UseGradients = True
  end
  object ppBasicData: TppDBPipeline
    DataSource = dm.dsBasicData
    OpenDataSource = False
    AutoCreateFields = False
    SkipWhenNoRecords = False
    UserName = 'BasicData'
    Left = 750
    Top = 96
    object ppBasicDatappField1: TppField
      FieldAlias = #27969#27700#21495
      FieldName = 'Ser'
      FieldLength = 0
      DataType = dtNotKnown
      DisplayWidth = 0
      Position = 0
      Searchable = False
      Sortable = False
    end
    object ppBasicDatappField2: TppField
      FieldAlias = #20195#30721
      FieldName = 'Code'
      FieldLength = 0
      DataType = dtNotKnown
      DisplayWidth = 0
      Position = 1
      Searchable = False
      Sortable = False
    end
    object ppBasicDatappField3: TppField
      FieldAlias = #21517#31216
      FieldName = 'Name'
      FieldLength = 0
      DataType = dtNotKnown
      DisplayWidth = 0
      Position = 2
      Searchable = False
      Sortable = False
    end
    object ppBasicDatappField4: TppField
      FieldAlias = #26159#21542#21487#29992
      FieldName = 'IsOK'
      FieldLength = 0
      DataType = dtNotKnown
      DisplayWidth = 0
      Position = 3
      Searchable = False
      Sortable = False
    end
    object ppBasicDatappField5: TppField
      FieldAlias = #20998#32452#31867#22411
      FieldName = 'FZLX'
      FieldLength = 0
      DataType = dtNotKnown
      DisplayWidth = 0
      Position = 4
      Searchable = False
      Sortable = False
    end
    object ppBasicDatappField6: TppField
      FieldAlias = #20108#32423#20195#30721
      FieldName = 'SecCode'
      FieldLength = 0
      DataType = dtNotKnown
      DisplayWidth = 0
      Position = 5
      Searchable = False
      Sortable = False
    end
    object ppBasicDatappField7: TppField
      FieldAlias = #36755#20837#26085#26399
      FieldName = 'SRRQ'
      FieldLength = 0
      DataType = dtNotKnown
      DisplayWidth = 0
      Position = 6
      Searchable = False
      Sortable = False
    end
    object ppBasicDatappField8: TppField
      FieldAlias = #25805#20316#21592
      FieldName = 'CZY'
      FieldLength = 0
      DataType = dtNotKnown
      DisplayWidth = 0
      Position = 7
      Searchable = False
      Sortable = False
    end
    object ppBasicDatappField9: TppField
      FieldAlias = #24207#21495
      FieldName = 'Number'
      FieldLength = 0
      DataType = dtNotKnown
      DisplayWidth = 0
      Position = 8
      Searchable = False
      Sortable = False
    end
  end
end