bs_whs.dfm

来自「一个门诊系统程序代码一个门诊系统程序代码一个门诊系统程序代码一个门诊系统程序代码」· DFM 代码 · 共 89 行

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