fmtssalereturnu.dfm

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

inherited FMTsSaleReturn: TFMTsSaleReturn
  Left = 105
  Top = 115
  Caption = 'FMTsSaleReturn'
  PixelsPerInch = 96
  TextHeight = 12
  inherited Splitter1: TSplitter
    Left = 256
  end
  inherited BtnPanel: TPanel
    inherited btnPrint: TBitBtn
      OnClick = btnPrintClick
    end
  end
  inherited CenterPanel: TPanel
    Left = 261
    Width = 631
    inherited Splitter2: TSplitter
      Top = 198
      Width = 631
    end
    inherited TopPanel: TPanel
      Width = 631
      Height = 198
      inherited Label3: TLabel
        Top = 140
      end
      object Label6: TLabel [3]
        Left = 16
        Top = 60
        Width = 48
        Height = 12
        Caption = #23458#25143#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 dbfCustNo: TRxDBComboEdit [8]
        Left = 72
        Top = 56
        Width = 121
        Height = 21
        DataField = 'fCustNo'
        DataSource = dsMain
        GlyphKind = gkEllipsis
        NumGlyphs = 1
        TabOrder = 2
        OnButtonClick = dbfCustNoButtonClick
      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 dbfCustName: TDBEdit [10]
        Left = 208
        Top = 56
        Width = 247
        Height = 20
        Color = clInfoBk
        DataField = 'fCustName'
        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
      Width = 631
      Height = 227
      Filter.Criteria = {00000000}
      inherited GridDetailfProductName: TdxDBGridColumn
        DisableEditor = True
      end
      inherited GridDetailfSpec: TdxDBGridColumn
        DisableEditor = True
        Width = 61
      end
      inherited GridDetailfSaleUnit: TdxDBGridColumn
        DisableEditor = True
      end
      inherited GridDetailfQty: TdxDBGridMaskColumn
        Width = 51
      end
      inherited GridDetailfItemBuyPrice: TdxDBGridMaskColumn [6]
        Width = 66
        FieldName = 'fBuyPrice'
      end
      inherited GridDetailfItemSellPrice: TdxDBGridMaskColumn [7]
        Width = 61
        FieldName = 'fSellPrice'
      end
      inherited GridDetailfAmt: TdxDBGridCurrencyColumn
        Caption = #20986#36135#37329#39069
        DisableEditor = True
        Width = 56
      end
    end
  end
  inherited GridMain: TDBGrid
    Width = 256
  end
  inherited cdsMain: TADODataSet
    CommandText = 'select * from ts_salereturn_head where 1=1'
    object cdsMainfEmpId: TSmallintField
      FieldName = 'fEmpId'
    end
    object cdsMainfEmpName: TStringField
      FieldKind = fkLookup
      FieldName = 'fEmpName'
      LookupDataSet = cdsEmp
      LookupKeyFields = 'fEmpId'
      LookupResultField = 'fEmpName'
      KeyFields = 'fEmpId'
      Lookup = True
    end
    object cdsMainfCustNo: TWideStringField
      FieldName = 'fCustNo'
      Size = 10
    end
    object cdsMainfCustName: TStringField
      FieldKind = fkLookup
      FieldName = 'fCustName'
      LookupDataSet = cdsSupplier
      LookupKeyFields = 'fCustNo'
      LookupResultField = 'fCustName'
      KeyFields = 'fCustNo'
      Lookup = True
    end
  end
  inherited cdsDetail: TADODataSet
    CommandText = 'select * from ts_salereturn_detail where 1=2'
    object cdsDetailfBuyPrice: TFloatField
      FieldName = 'fBuyPrice'
    end
    object cdsDetailfSellPrice: TFloatField
      FieldName = 'fSellPrice'
    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 fCustNo,fCustName  from ts_customer order by fCustNo'
    Parameters = <>
    Left = 432
    Top = 264
  end
  object cdsEmp: TADODataSet [15]
    Active = True
    Connection = fmDB.AdoHouse
    CursorType = ctStatic
    CommandText = 'select fEmpId,fEmpName from ts_employee order by fEmpid'
    Parameters = <>
    Left = 520
    Top = 264
  end
end