uvmadgpcomedicine.dfm

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

inherited VMADGPCOMedicine: TVMADGPCOMedicine
  inherited RzPanel1: TRzPanel
    inherited RzPanel2: TRzPanel
      inherited Grid: TcxGrid
        inherited GridDBTableView: TcxGridDBTableView
          DataController.Filter.Criteria = {FFFFFFFF0000000000}
          object GridDBTableViewPCOMEDICINEID: TcxGridDBColumn
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'PCOMEDICINEID'
          end
          object GridDBTableViewAPPROVEDATE: TcxGridDBColumn
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'APPROVEDATE'
          end
          object GridDBTableViewNEWPRICE: TcxGridDBColumn
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'NEWPRICE'
          end
          object GridDBTableViewOLDPRICE: TcxGridDBColumn
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'OLDPRICE'
          end
          object GridDBTableViewCREATED: TcxGridDBColumn
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'CREATED'
          end
          object GridDBTableViewUPDATED: TcxGridDBColumn
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'UPDATED'
          end
          object GridDBTableViewISAPPROVE: TcxGridDBColumn
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'ISAPPROVE'
          end
          object GridDBTableViewMEDICINESTOCKDETAILID: TcxGridDBColumn
            PropertiesClassName = 'TcxLookupComboBoxProperties'
            Properties.KeyFieldNames = 'MEDICINESTOCKDETAILID'
            Properties.ListColumns = <
              item
                FieldName = 'AMOUNT'
              end>
            Properties.ListSource = MaterialStockDetailID
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'MEDICINESTOCKDETAILID'
          end
          object GridDBTableViewCREATEBY: TcxGridDBColumn
            PropertiesClassName = 'TcxLookupComboBoxProperties'
            Properties.KeyFieldNames = 'EMPLOYEEID'
            Properties.ListColumns = <
              item
                FieldName = 'CNAME'
              end>
            Properties.ListSource = CreateBY
            Properties.ReadOnly = True
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'CREATEBY'
          end
          object GridDBTableViewUPDATEBY: TcxGridDBColumn
            PropertiesClassName = 'TcxLookupComboBoxProperties'
            Properties.KeyFieldNames = 'EMPLOYEEID'
            Properties.ListColumns = <
              item
                FieldName = 'CNAME'
              end>
            Properties.ListSource = UpdateBY
            Properties.ReadOnly = True
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'UPDATEBY'
          end
          object GridDBTableViewAPPROVEBY: TcxGridDBColumn
            PropertiesClassName = 'TcxLookupComboBoxProperties'
            Properties.KeyFieldNames = 'EMPLOYEEID'
            Properties.ListColumns = <
              item
                FieldName = 'CNAME'
              end>
            Properties.ListSource = ApproveBY
            Properties.ReadOnly = True
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            HeaderGlyphAlignmentHorz = taCenter
            Width = 100
            DataBinding.FieldName = 'APPROVEBY'
          end
        end
      end
    end
  end
  inherited ComponentPrinter: TdxComponentPrinter
    PreviewOptions.PreviewBoundsRect = {00000000000000002003000058020000}
  end
  inherited DataSource: TDataSource
    DataSet = MADPCOMedicine.ClientDataSet
  end
  object MaterialStockDetailID: TDataSource
    DataSet = MADMedicineStockDetail.ClientDataSet
    Left = 280
    Top = 128
  end
  object ApproveBY: TDataSource
    DataSet = MADEmployee.ClientDataSet
    Left = 240
    Top = 128
  end
  object UpdateBY: TDataSource
    DataSet = MADEmployee.ClientDataSet
    Left = 200
    Top = 128
  end
  object CreateBY: TDataSource
    DataSet = MADEmployee.DataSet
    Left = 160
    Top = 128
  end
end