uvmadgsiomedicinedetail.dfm

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

inherited VMADGSIOMedicineDetail: TVMADGSIOMedicineDetail
  inherited RzPanel1: TRzPanel
    inherited RzPanel2: TRzPanel
      inherited Grid: TcxGrid
        inherited GridDBTableView: TcxGridDBTableView
          DataController.Filter.Criteria = {FFFFFFFF0000000000}
          object GridDBTableViewSIOMEDICINEDETAILID: TcxGridDBColumn
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'SIOMEDICINEDETAILID'
          end
          object GridDBTableViewPSN: TcxGridDBColumn
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            DataBinding.FieldName = 'PSN'
          end
          object GridDBTableViewPRODUCED: TcxGridDBColumn
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'PRODUCED'
          end
          object GridDBTableViewMATURITY: TcxGridDBColumn
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'MATURITY'
          end
          object GridDBTableViewSPRICE: TcxGridDBColumn
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'SPRICE'
          end
          object GridDBTableViewPRICE: TcxGridDBColumn
            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
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'TOTAL'
          end
          object GridDBTableViewSTOCKINORDERID: TcxGridDBColumn
            PropertiesClassName = 'TcxLookupComboBoxProperties'
            Properties.KeyFieldNames = 'STOCKINORDERID'
            Properties.ListColumns = <
              item
                FieldName = 'MEMO'
              end>
            Properties.ListSource = StockinorderID
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'STOCKINORDERID'
          end
          object GridDBTableViewPOMEDICINEDETAILID: TcxGridDBColumn
            PropertiesClassName = 'TcxLookupComboBoxProperties'
            Properties.KeyFieldNames = 'POMEDICINEDETAILID'
            Properties.ListColumns = <
              item
                FieldName = 'PRICE'
              end>
            Properties.ListSource = POMedicineDetailID
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'POMEDICINEDETAILID'
          end
          object GridDBTableViewMANUFACTURERID: TcxGridDBColumn
            PropertiesClassName = 'TcxLookupComboBoxProperties'
            Properties.KeyFieldNames = 'MANUFACTURERID'
            Properties.ListColumns = <
              item
                FieldName = 'CAPTION'
              end>
            Properties.ListSource = ManufacturerID
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'MANUFACTURERID'
          end
          object GridDBTableViewPROVIDERID: TcxGridDBColumn
            PropertiesClassName = 'TcxLookupComboBoxProperties'
            Properties.KeyFieldNames = 'PROVIDERID'
            Properties.ListColumns = <
              item
                FieldName = 'CAPTION'
              end>
            Properties.ListSource = ProviderID
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'PROVIDERID'
          end
          object GridDBTableViewMEDICINEID: TcxGridDBColumn
            PropertiesClassName = 'TcxLookupComboBoxProperties'
            Properties.KeyFieldNames = 'MEDICINEID'
            Properties.ListColumns = <
              item
                FieldName = 'CAPTION'
              end>
            Properties.ListSource = MedicineID
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'MEDICINEID'
          end
        end
      end
    end
  end
  inherited DataSource: TDataSource
    DataSet = MADSIOMedicineDetail.ClientDataSet
  end
  object ManufacturerID: TDataSource
    DataSet = MADManufacturer.ClientDataSet
    Left = 136
    Top = 16
  end
  object MedicineID: TDataSource
    DataSet = MADMedicine.ClientDataSet
    Left = 192
    Top = 24
  end
  object POMedicineDetailID: TDataSource
    DataSet = MADPOMedicineDetail.ClientDataSet
    Left = 256
    Top = 24
  end
  object ProviderID: TDataSource
    DataSet = MADProvider.ClientDataSet
    Left = 296
    Top = 24
  end
  object StockinorderID: TDataSource
    DataSet = MADStockInOrder.ClientDataSet
    Left = 336
    Top = 24
  end
end