fmtsreceiveu.dfm

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

inherited FMTsReceive: TFMTsReceive
  Left = 11
  Top = 121
  Caption = 'FMTsReceive'
  PixelsPerInch = 96
  TextHeight = 12
  inherited BtnPanel: TPanel
    inherited btnPrint: TBitBtn
      OnClick = btnPrintClick
    end
  end
  inherited CenterPanel: TPanel
    inherited Splitter2: TSplitter
      Top = 198
    end
    inherited TopPanel: TPanel
      Height = 198
      inherited Label3: TLabel
        Top = 140
      end
      object Label6: TLabel [3]
        Left = 16
        Top = 60
        Width = 48
        Height = 12
        Caption = #21378#21830#32534#21495
      end
      object Label7: TLabel [4]
        Left = 28
        Top = 100
        Width = 36
        Height = 12
        Caption = #32463#21150#20154
      end
      inherited dbfMemo: TDBEdit
        Top = 136
        Width = 461
        TabOrder = 6
      end
      object dbfSupNo: TRxDBComboEdit [8]
        Left = 72
        Top = 56
        Width = 121
        Height = 21
        DataField = 'fSupNo'
        DataSource = dsMain
        GlyphKind = gkEllipsis
        NumGlyphs = 1
        TabOrder = 2
        OnButtonClick = dbfSupNoButtonClick
      end
      object dbfEmpId: TRxDBComboEdit [9]
        Left = 72
        Top = 96
        Width = 121
        Height = 21
        DataField = 'fEmpId'
        DataSource = dsMain
        GlyphKind = gkEllipsis
        NumGlyphs = 1
        TabOrder = 4
        OnButtonClick = dbfEmpIdButtonClick
      end
      object dbfSupName: TDBEdit [10]
        Left = 208
        Top = 56
        Width = 247
        Height = 20
        Color = clInfoBk
        DataField = 'fSupName'
        DataSource = dsMain
        TabOrder = 3
      end
      object dbfEmpName: TDBEdit [11]
        Left = 208
        Top = 96
        Width = 247
        Height = 20
        Color = clInfoBk
        DataField = 'fEmpName'
        DataSource = dsMain
        TabOrder = 5
      end
      inherited PubPanel: TPanel
        Top = 163
        TabOrder = 7
      end
    end
    inherited GridDetail: TdxDBGrid
      Top = 203
      Height = 227
      Filter.Criteria = {00000000}
      inherited GridDetailfItemBuyPrice: TdxDBGridMaskColumn [6]
        FieldName = 'fBuyPrice'
      end
      inherited GridDetailfAmt: TdxDBGridCurrencyColumn [7]
        Width = 69
      end
      inherited GridDetailfItemSellPrice: TdxDBGridMaskColumn [8]
        DisableEditor = True
        Visible = False
      end
    end
  end
  inherited cdsMain: TADODataSet
    object cdsMainfSupNo: TWideStringField
      FieldName = 'fSupNo'
      Size = 10
    end
    object cdsMainfEmpId: TSmallintField
      FieldName = 'fEmpId'
    end
    object cdsMainfSupName: TStringField
      FieldKind = fkLookup
      FieldName = 'fSupName'
      LookupDataSet = cdsSupplier
      LookupKeyFields = 'fSupNo'
      LookupResultField = 'fSupName'
      KeyFields = 'fSupNo'
      Lookup = True
    end
    object cdsMainfEmpName: TStringField
      FieldKind = fkLookup
      FieldName = 'fEmpName'
      LookupDataSet = cdsEmp
      LookupKeyFields = 'fEmpId'
      LookupResultField = 'fEmpName'
      KeyFields = 'fEmpId'
      Lookup = True
    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
  object cdsSupplier: TADODataSet [14]
    Connection = fmDB.AdoHouse
    CommandText = 'select fSupNo,fSupName from ts_supplier order by fSupNo'
    Parameters = <>
    Left = 432
    Top = 264
  end
  object cdsEmp: TADODataSet [15]
    Connection = fmDB.AdoHouse
    CommandText = 'select fEmpId,fEmpName from ts_employee order by fEmpid'
    Parameters = <>
    Left = 520
    Top = 264
  end
end