uvadgmedicinecatalog.dfm

来自「一整套的源代码」· DFM 代码 · 共 68 行

inherited VADGMedicineCatalog: TVADGMedicineCatalog
  inherited RzPanel1: TRzPanel
    inherited RzPanel2: TRzPanel
      inherited Grid: TcxGrid
        inherited GridDBTableView: TcxGridDBTableView
          DataController.Filter.Criteria = {FFFFFFFF0000000000}
          object GridDBTableViewMEDICINECATALOGID: TcxGridDBColumn
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'MEDICINECATALOGID'
          end
          object GridDBTableViewCODE: TcxGridDBColumn
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            DataBinding.FieldName = 'CODE'
          end
          object GridDBTableViewPARENTID: TcxGridDBColumn
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'PARENTID'
          end
          object GridDBTableViewCHARGECATALOGCODE: TcxGridDBColumn
            PropertiesClassName = 'TcxLookupComboBoxProperties'
            Properties.KeyFieldNames = 'CHARGECATALOGCODE'
            Properties.ListColumns = <
              item
                FieldName = 'CAPTION'
              end>
            Properties.ListSource = SourceChargeCatalog
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'CHARGECATALOGCODE'
          end
          object GridDBTableViewPINYIN: TcxGridDBColumn
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'PINYIN'
          end
          object GridDBTableViewCAPTION: TcxGridDBColumn
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'CAPTION'
          end
        end
      end
    end
  end
  inherited DataSource: TDataSource
    DataSet = MADMedicineCatalog.ClientDataSet
  end
  object SourceChargeCatalog: TDataSource
    DataSet = MADChargeCatalog.ClientDataSet
    Left = 144
    Top = 16
  end
end