fmtslostu.dfm

小型库存管理,希望有帮助,小型库存管理,希望有帮助

inherited FMTsLost: TFMTsLost
  Left = 125
  Top = 129
  Caption = 'FMTsLost'
  PixelsPerInch = 96
  TextHeight = 12
  inherited BtnPanel: TPanel
    inherited btnPrint: TBitBtn
      OnClick = btnPrintClick
    end
  end
  inherited CenterPanel: TPanel
    inherited GridDetail: TdxDBGrid
      Filter.Criteria = {00000000}
      inherited GridDetailfItemBuyPrice: TdxDBGridMaskColumn [6]
      end
      inherited GridDetailfAmt: TdxDBGridCurrencyColumn [7]
        Width = 70
      end
      inherited GridDetailfItemSellPrice: TdxDBGridMaskColumn [8]
        DisableEditor = True
        Visible = False
        Width = 71
      end
    end
  end
  inherited cdsMain: TADODataSet
    CommandText = 'select * from ts_lost_head where 1=1'
  end
  inherited cdsDetail: TADODataSet
    CommandText = 'select * from ts_lost_detail where 1=2'
    object cdsDetailfBuyPrice: TFloatField
      FieldName = 'fBuyPrice'
    end
  end
  inherited cdsState: TADODataSet
    Active = True
    CursorType = ctStatic
  end
  inherited cdsUser: TADODataSet
    Active = True
    CursorType = ctStatic
  end
  inherited cdsItem: TADODataSet
    Active = True
    CursorType = ctStatic
  end
end