fmtscheckstocku.dfm

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

inherited FMTsCheckstock: TFMTsCheckstock
  Left = 60
  Top = 133
  Caption = 'FMTsCheckstock'
  PixelsPerInch = 96
  TextHeight = 12
  inherited BtnPanel: TPanel
    inherited btnPrint: TBitBtn
      OnClick = btnPrintClick
    end
  end
  inherited CenterPanel: TPanel
    inherited Splitter2: TSplitter
      Top = 138
    end
    inherited TopPanel: TPanel
      Height = 138
      inherited dbfMemo: TDBEdit
        Width = 461
      end
    end
    inherited GridDetail: TdxDBGrid
      Top = 143
      Height = 287
      Filter.Criteria = {00000000}
      inherited GridDetailfEntryId: TdxDBGridMaskColumn
        Width = 51
      end
      inherited GridDetailfProductNo: TdxDBGridButtonColumn
        Width = 96
      end
      inherited GridDetailfProductName: TdxDBGridColumn
        Width = 120
      end
      inherited GridDetailfSpec: TdxDBGridColumn
        Width = 65
      end
      inherited GridDetailfSaleUnit: TdxDBGridColumn
        Width = 44
      end
      object GridDetailfStock: TdxDBGridColumn [5]
        Caption = #24403#21069#24211#23384
        Color = clInfoBk
        DisableEditor = True
        Width = 60
        BandIndex = 0
        RowIndex = 0
        FieldName = 'fStock'
      end
      inherited GridDetailfQty: TdxDBGridMaskColumn
        Caption = #23454#30424#25968
        Width = 56
      end
      inherited GridDetailfItemBuyPrice: TdxDBGridMaskColumn [7]
        Width = 62
        FieldName = 'fBuyPrice'
      end
      inherited GridDetailfAmt: TdxDBGridCurrencyColumn [8]
        Width = 58
      end
      inherited GridDetailfItemSellPrice: TdxDBGridMaskColumn [9]
        DisableEditor = True
        Visible = False
        Width = 64
      end
    end
  end
  inherited cdsMain: TADODataSet
    CommandText = 'select * from ts_checkstock_head where 1=1'
  end
  inherited cdsDetail: TADODataSet
    CommandText = 'select * from ts_checkstock_detail where 1=2'
    inherited cdsDetailfProductId: TSmallintField
      OnChange = cdsDetailfProductIdChange
    end
    object cdsDetailfBuyPrice: TFloatField [11]
      FieldName = 'fBuyPrice'
    end
    object cdsDetailfStock: TIntegerField
      FieldName = 'fStock'
    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