fmordu.dfm

来自「小型库存管理,希望有帮助,小型库存管理,希望有帮助」· DFM 代码 · 共 101 行

inherited FMOrd: TFMOrd
  Caption = 'FMOrd'
  PixelsPerInch = 96
  TextHeight = 12
  inherited BtnPanel: TPanel
    inherited btnPrint: TBitBtn
      OnClick = btnPrintClick
    end
  end
  inherited CenterPanel: TPanel
    inherited Splitter2: TSplitter
      Top = 162
    end
    inherited TopPanel: TPanel
      Height = 162
      inherited Label3: TLabel
        Top = 140
      end
      inherited Label4: TLabel
        Top = 100
      end
      inherited Label5: TLabel
        Top = 100
      end
      object Label6: TLabel [5]
        Left = 16
        Top = 56
        Width = 48
        Height = 12
        Caption = #20379#21830#32534#21495
        FocusControl = DBEdit1
      end
      inherited dbfMemo: TDBEdit
        Top = 136
      end
      inherited dbfUserName: TDBLookupComboBox
        Top = 96
      end
      inherited dbfStateName: TDBLookupComboBox
        Top = 96
      end
      object DBEdit1: TDBEdit
        Left = 72
        Top = 52
        Width = 124
        Height = 20
        DataField = 'fSupNo'
        DataSource = dsMain
        TabOrder = 5
      end
    end
    inherited GridDetail: TdxDBGrid
      Top = 167
      Height = 263
      Filter.Criteria = {00000000}
      inherited GridDetailfProductName: TdxDBGridColumn
        DisableEditor = True
      end
      inherited GridDetailfSpec: TdxDBGridColumn
        DisableEditor = True
      end
      inherited GridDetailfSaleUnit: TdxDBGridColumn
        DisableEditor = True
      end
      inherited GridDetailfItemBuyPrice: TdxDBGridMaskColumn [6]
        FieldName = 'fBuyPrice'
      end
      inherited GridDetailfAmt: TdxDBGridCurrencyColumn [7]
        DisableEditor = True
      end
      inherited GridDetailfItemSellPrice: TdxDBGridMaskColumn [8]
        DisableEditor = True
        Visible = False
      end
    end
  end
  inherited cdsMain: TADODataSet
    object cdsMainfSupNo: TWideStringField
      FieldName = 'fSupNo'
      Size = 10
    end
  end
  inherited cdsDetail: TADODataSet
    object cdsDetailfBuyPrice: TFloatField [11]
      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