uvadgdatservice.dfm

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

inherited VADGDATService: TVADGDATService
  inherited RzPanel1: TRzPanel
    inherited RzPanel2: TRzPanel
      inherited Grid: TcxGrid
        inherited GridDBTableView: TcxGridDBTableView
          DataController.Filter.Criteria = {FFFFFFFF0000000000}
          object GridDBTableViewDATSERVICEID: TcxGridDBColumn
            Width = 100
            DataBinding.FieldName = 'DATSERVICEID'
          end
          object GridDBTableViewISACTIVE: TcxGridDBColumn
            PropertiesClassName = 'TcxCheckBoxProperties'
            Properties.DisplayUnchecked = 'False'
            Properties.ReadOnly = True
            Properties.ValueChecked = 1
            Properties.ValueUnchecked = 0
            Width = 100
            DataBinding.FieldName = 'ISACTIVE'
          end
          object GridDBTableViewISTEMPORARY: TcxGridDBColumn
            PropertiesClassName = 'TcxCheckBoxProperties'
            Properties.DisplayUnchecked = 'False'
            Properties.ReadOnly = True
            Properties.ValueChecked = 1
            Properties.ValueUnchecked = 0
            Width = 100
            DataBinding.FieldName = 'ISTEMPORARY'
          end
          object GridDBTableViewISVALID: TcxGridDBColumn
            PropertiesClassName = 'TcxCheckBoxProperties'
            Properties.DisplayUnchecked = 'False'
            Properties.ReadOnly = True
            Properties.ValueChecked = 1
            Properties.ValueUnchecked = 0
            Width = 100
            DataBinding.FieldName = 'ISVALID'
          end
          object GridDBTableViewCREATED: TcxGridDBColumn
            Width = 100
            DataBinding.FieldName = 'CREATED'
          end
          object GridDBTableViewUPDATED: TcxGridDBColumn
            Width = 100
            DataBinding.FieldName = 'UPDATED'
          end
          object GridDBTableViewDATEMPLATEID: TcxGridDBColumn
            PropertiesClassName = 'TcxLookupComboBoxProperties'
            Properties.KeyFieldNames = 'DATEMPLATEID'
            Properties.ListColumns = <
              item
                FieldName = 'CAPTION'
              end>
            Properties.ListSource = DatemplateId
            Width = 100
            DataBinding.FieldName = 'DATEMPLATEID'
          end
          object GridDBTableViewSERVICEID: TcxGridDBColumn
            PropertiesClassName = 'TcxLookupComboBoxProperties'
            Properties.KeyFieldNames = 'SERVICEID'
            Properties.ListColumns = <
              item
                FieldName = 'CAPTION'
              end>
            Properties.ListSource = ServiceId
            Width = 100
            DataBinding.FieldName = 'SERVICEID'
          end
        end
      end
    end
  end
  inherited DataSource: TDataSource
    DataSet = MADDATService.ClientDataSet
  end
  object DatemplateId: TDataSource
    DataSet = MADDATemplate.ClientDataSet
    Left = 136
    Top = 16
  end
  object ServiceId: TDataSource
    DataSet = MADService.ClientDataSet
    Left = 184
    Top = 16
  end
end