uinventory.dfm

来自「成本系统三层结构源码 开发工具：Delphi 7.0+SQLServer 20」· DFM 代码 · 共 111 行

inherited fmInventory: TfmInventory
  Caption = #24211#23384#20449#24687
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 12
  inherited OptionPanel: TPanel
    inherited PnlSelect: TPanel
      inherited dxBtnSelect: TdxButtonEdit
        StoredValues = 2
        ExistButtons = True
      end
    end
  end
  inherited PageControl: TPageControl
    inherited TabBrowse: TTabSheet
      inherited DBGrid1: TdxDBGrid
        KeyField = 'StockId'
        Filter.Criteria = {00000000}
        object DBGrid1StockId: TdxDBGridMaskColumn
          Visible = False
          BandIndex = 0
          RowIndex = 0
          FieldName = 'StockId'
        end
        object DBGrid1StockName: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'StockName'
        end
        object DBGrid1CategoryId: TdxDBGridMaskColumn
          Visible = False
          BandIndex = 0
          RowIndex = 0
          FieldName = 'CategoryId'
        end
        object DBGrid1CategoryName: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'CategoryName'
        end
        object DBGrid1PartNo: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'PartNo'
        end
        object DBGrid1PartNameE: TdxDBGridMaskColumn
          BandIndex = 1
          RowIndex = 0
          FieldName = 'PartNameE'
        end
        object DBGrid1PartNameC: TdxDBGridMaskColumn
          BandIndex = 1
          RowIndex = 0
          FieldName = 'PartNameC'
        end
        object DBGrid1Model: TdxDBGridMaskColumn
          BandIndex = 1
          RowIndex = 0
          FieldName = 'Model'
        end
        object DBGrid1Color: TdxDBGridMaskColumn
          BandIndex = 1
          RowIndex = 0
          FieldName = 'Color'
        end
        object DBGrid1UnitId: TdxDBGridMaskColumn
          Visible = False
          BandIndex = 1
          RowIndex = 0
          FieldName = 'UnitId'
        end
        object DBGrid1UnitName: TdxDBGridMaskColumn
          BandIndex = 1
          RowIndex = 0
          FieldName = 'UnitName'
        end
        object DBGrid1Price: TdxDBGridMaskColumn
          BandIndex = 1
          RowIndex = 0
          FieldName = 'Price'
        end
        object DBGrid1Qty: TdxDBGridMaskColumn
          BandIndex = 1
          RowIndex = 0
          FieldName = 'Qty'
        end
        object DBGrid1Locked: TdxDBGridCheckColumn
          DisableEditor = True
          Width = 100
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Locked'
          ValueChecked = 'True'
          ValueUnchecked = 'False'
        end
      end
    end
  end
  inherited DataSource1: TDataSource
    DataSet = DMINV.CInventory
  end
  inherited SubAction: TActionList
    inherited AApprove: TAction
      Visible = False
    end
    inherited AConfirm: TAction
      Visible = False
    end
  end
end