uvadgdaoperation.dfm

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

inherited VADGDAOperation: TVADGDAOperation
  inherited RzPanel1: TRzPanel
    inherited RzPanel2: TRzPanel
      inherited Grid: TcxGrid
        inherited GridDBTableView: TcxGridDBTableView
          DataController.Filter.Criteria = {FFFFFFFF0000000000}
          object GridDBTableViewDAOPERATIONID: TcxGridDBColumn
            Width = 100
            DataBinding.FieldName = 'DAOPERATIONID'
          end
          object GridDBTableViewOPDATE: TcxGridDBColumn
            Width = 100
            DataBinding.FieldName = 'OPDATE'
          end
          object GridDBTableViewISACTIVE: TcxGridDBColumn
            PropertiesClassName = 'TcxCheckBoxProperties'
            Properties.DisplayUnchecked = 'False'
            Properties.ValueChecked = 1
            Properties.ValueUnchecked = 0
            Width = 100
            DataBinding.FieldName = 'ISACTIVE'
          end
          object GridDBTableViewISTEMPORARY: TcxGridDBColumn
            PropertiesClassName = 'TcxCheckBoxProperties'
            Properties.DisplayUnchecked = 'False'
            Properties.ValueChecked = 1
            Properties.ValueUnchecked = 0
            Width = 100
            DataBinding.FieldName = 'ISTEMPORARY'
          end
          object GridDBTableViewISVALID: TcxGridDBColumn
            PropertiesClassName = 'TcxCheckBoxProperties'
            Properties.DisplayUnchecked = 'False'
            Properties.ValueChecked = 1
            Properties.ValueUnchecked = 0
            Width = 100
            DataBinding.FieldName = 'ISVALID'
          end
          object GridDBTableViewUPDATED: TcxGridDBColumn
            Width = 100
            DataBinding.FieldName = 'UPDATED'
          end
          object GridDBTableViewCREATED: TcxGridDBColumn
            Width = 100
            DataBinding.FieldName = 'CREATED'
          end
          object GridDBTableViewOPERATIONID: TcxGridDBColumn
            PropertiesClassName = 'TcxLookupComboBoxProperties'
            Properties.KeyFieldNames = 'OPERATIONID'
            Properties.ListColumns = <
              item
                FieldName = 'CAPTION'
              end>
            Properties.ListSource = OperationId
            Width = 100
            DataBinding.FieldName = 'OPERATIONID'
          end
          object GridDBTableViewDOCTORADVICEID: TcxGridDBColumn
            PropertiesClassName = 'TcxLookupComboBoxProperties'
            Properties.KeyFieldNames = 'DOCTORADVICEID'
            Properties.ListColumns = <
              item
                FieldName = 'DOCTORADVICETYPEID'
              end>
            Properties.ListSource = DoctorAdviceId
            DataBinding.FieldName = 'DOCTORADVICEID'
          end
        end
      end
    end
  end
  inherited DataSource: TDataSource
    DataSet = MADDAOperation.ClientDataSet
  end
  object DoctorAdviceId: TDataSource
    DataSet = MADDoctorAdvice.ClientDataSet
    Left = 144
    Top = 16
  end
  object OperationId: TDataSource
    DataSet = MADOperation.ClientDataSet
    Left = 184
    Top = 16
  end
end