bs_whs.dfm

这是一个实用的软件

inherited fBs_whs: TfBs_whs
  Caption = #20179#24211#35774#32622
  PixelsPerInch = 96
  TextHeight = 13
  inherited ToolBar1: TToolBar
    inherited SpeedButton6: TSpeedButton
      Visible = False
    end
  end
  inherited PageControl1: TPageControl
    inherited TabSheet1: TTabSheet
      inherited DBEdit1: TDBEdit
        DataField = 'Whs_code'
        DataSource = baseSource
      end
      inherited DBEdit2: TDBEdit
        DataField = 'Whs_name'
        DataSource = baseSource
      end
      inherited DBMemo1: TDBMemo
        DataField = 'fmem'
        DataSource = baseSource
      end
    end
    inherited TabSheet2: TTabSheet
      inherited dxDBGrid: TdxDBGrid
        KeyField = 'Whs_code'
        Filter.Criteria = {00000000}
        OptionsDB = [edgoCancelOnExit, edgoCanDelete, edgoCanInsert, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoUseBookmarks]
        object dxDBGridWhs_code: TdxDBGridColumn
          Caption = #32534#21495
          Width = 61
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Whs_code'
          SummaryFooterType = cstCount
        end
        object dxDBGridWhs_name: TdxDBGridColumn
          Caption = #21517#31216
          Width = 87
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Whs_name'
        end
        object dxDBGridWhs_whs: TdxDBGridColumn
          Caption = #25152#23646#20301#32622
          Width = 110
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Whs_whs'
        end
        object dxDBGridfmem: TdxDBGridColumn
          Caption = #22791#27880
          Width = 167
          BandIndex = 0
          RowIndex = 0
          FieldName = 'fmem'
        end
      end
    end
  end
  inherited Qbaseinfo: TADOQuery
    Active = True
    CursorType = ctStatic
    SQL.Strings = (
      'select * from Bs_whs')
    object Qbaseinfoid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object QbaseinfoWhs_code: TWideStringField
      FieldName = 'Whs_code'
    end
    object QbaseinfoWhs_name: TWideStringField
      FieldName = 'Whs_name'
    end
    object QbaseinfoWhs_whs: TWideStringField
      FieldName = 'Whs_whs'
    end
    object Qbaseinfofmem: TWideStringField
      FieldName = 'fmem'
      Size = 255
    end
    object QbaseinfofSort: TWideStringField
      FieldName = 'fSort'
    end
  end
end