uvmadgpomedicinedetail.dfm

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

inherited VMADGPOMedicineDetail: TVMADGPOMedicineDetail
  inherited RzPanel1: TRzPanel
    inherited RzPanel2: TRzPanel
      inherited Grid: TcxGrid
        inherited GridDBTableView: TcxGridDBTableView
          DataController.Filter.Criteria = {FFFFFFFF0000000000}
          object GridDBTableViewPOMEDICINEDETAILID: TcxGridDBColumn
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'POMEDICINEDETAILID'
          end
          object GridDBTableViewPSN: TcxGridDBColumn
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'PSN'
          end
          object GridDBTableViewCHECKINAMOUNT: TcxGridDBColumn
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'CHECKINAMOUNT'
          end
          object GridDBTableViewPRICE: TcxGridDBColumn
            PropertiesClassName = 'TcxCurrencyEditProperties'
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'PRICE'
          end
          object GridDBTableViewAMOUNT: TcxGridDBColumn
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'AMOUNT'
          end
          object GridDBTableViewTOTAL: TcxGridDBColumn
            PropertiesClassName = 'TcxCurrencyEditProperties'
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Options.Editing = False
            Width = 100
            DataBinding.FieldName = 'TOTAL'
          end
          object GridDBTableViewPURCHASEORDERID: TcxGridDBColumn
            PropertiesClassName = 'TcxLookupComboBoxProperties'
            Properties.KeyFieldNames = 'PURCHASEORDERID'
            Properties.ListColumns = <
              item
                FieldName = 'PURCHASEORDERID'
              end>
            Properties.ListSource = PURChaseOrder
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'PURCHASEORDERID'
          end
          object GridDBTableViewMEDICINEID: TcxGridDBColumn
            PropertiesClassName = 'TcxLookupComboBoxProperties'
            Properties.KeyFieldNames = 'MEDICINEID'
            Properties.ListColumns = <
              item
                FieldName = 'CAPTION'
              end>
            Properties.ListSource = Medicine
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'MEDICINEID'
          end
          object GridDBTableViewPROVIDERID: TcxGridDBColumn
            PropertiesClassName = 'TcxLookupComboBoxProperties'
            Properties.KeyFieldNames = 'PROVIDERID'
            Properties.ListColumns = <
              item
                FieldName = 'CAPTION'
              end>
            Properties.ListSource = Provider
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'PROVIDERID'
          end
          object GridDBTableViewISACTIVE: TcxGridDBColumn
            PropertiesClassName = 'TcxCheckBoxProperties'
            Properties.DisplayUnchecked = 'False'
            Properties.ValueChecked = 1
            Properties.ValueUnchecked = 0
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'ISACTIVE'
          end
        end
      end
    end
  end
  inherited ComponentPrinter: TdxComponentPrinter
    PreviewOptions.PreviewBoundsRect = {00000000000000002003000058020000}
  end
  object Medicine: TDataSource
    DataSet = MADMedicine.ClientDataSet
    Left = 88
    Top = 104
  end
  object PURChaseOrder: TDataSource
    DataSet = MADPURChaseOrder.ClientDataSet
    Left = 128
    Top = 104
  end
  object Provider: TDataSource
    DataSet = MADProvider.ClientDataSet
    Left = 168
    Top = 112
  end
end