fmbizmulu.dfm

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

      end
      object GridDetailfSaleUnit: TdxDBGridColumn
        Caption = #21333#20301
        Color = clInfoBk
        DisableEditor = True
        Width = 50
        BandIndex = 0
        RowIndex = 0
        FieldName = 'fSaleUnit'
      end
      object GridDetailfQty: TdxDBGridMaskColumn
        Caption = #25968#37327
        BandIndex = 0
        RowIndex = 0
        FieldName = 'fQty'
      end
      object GridDetailfItemSellPrice: TdxDBGridMaskColumn
        Caption = #21806#20215
        Width = 70
        BandIndex = 0
        RowIndex = 0
        FieldName = 'fItemSellPrice'
      end
      object GridDetailfItemBuyPrice: TdxDBGridMaskColumn
        Caption = #25104#26412
        Width = 74
        BandIndex = 0
        RowIndex = 0
        FieldName = 'fItemBuyPrice'
      end
      object GridDetailfAmt: TdxDBGridCurrencyColumn
        Caption = #37329#39069
        Color = clInfoBk
        DisableEditor = True
        BandIndex = 0
        RowIndex = 0
        FieldName = 'fAmt'
        SummaryFooterType = cstSum
        SummaryFooterField = 'fAmt'
        SummaryFooterFormat = #65509',0.00;-'#65509',0.00'
      end
      object GridDetailCount: TdxDBGridColumn
        DisableEditor = True
        BandIndex = 1
        RowIndex = 0
        FieldName = 'fEntryId'
        SummaryFooterType = cstMax
        SummaryFooterField = 'fEntryId'
        SummaryFooterFormat = '#0'
      end
    end
  end
  object GridMain: TDBGrid [3]
    Tag = 1
    Left = 0
    Top = 38
    Width = 265
    Height = 430
    Align = alLeft
    DataSource = dsMain
    TabOrder = 2
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'fBillNo'
        Title.Caption = #21333#25454#32534#21495
        Width = 85
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'fAccDate'
        Title.Caption = #35760#36134#26085#26399
        Width = 85
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'fStateName'
        ReadOnly = True
        Title.Caption = #21333#25454#29366#24577
        Width = 67
        Visible = True
      end>
  end
  inherited QrySQL: TADOQuery
    Left = 160
    Top = 128
  end
  inherited cdsMain: TADODataSet
    OnNewRecord = cdsMainNewRecord
    CommandText = 'select * from ts_receive_head where 1=1'
    Left = 32
    Top = 72
    object cdsMainfBillId: TSmallintField
      FieldName = 'fBillId'
    end
    object cdsMainfBillNo: TWideStringField
      FieldName = 'fBillNo'
    end
    object cdsMainfAccDate: TDateTimeField
      FieldName = 'fAccDate'
    end
    object cdsMainfCreUser: TWideStringField
      FieldName = 'fCreUser'
      Size = 10
    end
    object cdsMainfMemo: TWideStringField
      FieldName = 'fMemo'
      Size = 50
    end
    object cdsMainfState: TSmallintField
      FieldName = 'fState'
    end
    object cdsMainfFFU: TWideStringField
      FieldName = 'fFFU'
      Size = 10
    end
    object cdsMainfUserName: TStringField
      FieldKind = fkLookup
      FieldName = 'fUserName'
      LookupDataSet = cdsUser
      LookupKeyFields = 'fUserNo'
      LookupResultField = 'fUserName'
      KeyFields = 'fCreUser'
      Lookup = True
    end
    object cdsMainfStateName: TStringField
      FieldKind = fkLookup
      FieldName = 'fStateName'
      LookupDataSet = cdsState
      LookupKeyFields = 'fdictno'
      LookupResultField = 'fdictname'
      KeyFields = 'fState'
      Lookup = True
    end
  end
  inherited dsMain: TDataSource
    Left = 88
    Top = 72
  end
  inherited SingleMenu: TPopupMenu
    Left = 160
    Top = 72
  end
  inherited cdsDetail: TADODataSet
    CursorType = ctStatic
    BeforePost = cdsDetailBeforePost
    OnCalcFields = cdsDetailCalcFields
    OnNewRecord = cdsDetailNewRecord
    CommandText = 'select * from ts_receive_detail where 1=2'
    Left = 32
    Top = 128
    object cdsDetailfBillId: TSmallintField
      FieldName = 'fBillId'
    end
    object cdsDetailfEntryId: TSmallintField
      FieldName = 'fEntryId'
    end
    object cdsDetailfProductId: TSmallintField
      FieldName = 'fProductId'
    end
    object cdsDetailfQty: TFloatField
      FieldName = 'fQty'
    end
    object cdsDetailfFFU: TWideStringField
      FieldName = 'fFFU'
      Size = 10
    end
    object cdsDetailfProductNo: TStringField
      FieldKind = fkLookup
      FieldName = 'fProductNo'
      LookupDataSet = cdsItem
      LookupKeyFields = 'fProductId'
      LookupResultField = 'fProductNo'
      KeyFields = 'fProductId'
      OnSetText = cdsDetailfProductNoSetText
      Lookup = True
    end
    object cdsDetailfProductName: TStringField
      FieldKind = fkLookup
      FieldName = 'fProductName'
      LookupDataSet = cdsItem
      LookupKeyFields = 'fProductId'
      LookupResultField = 'fProductName'
      KeyFields = 'fProductId'
      Lookup = True
    end
    object cdsDetailfSpec: TStringField
      FieldKind = fkLookup
      FieldName = 'fSpec'
      LookupDataSet = cdsItem
      LookupKeyFields = 'fProductId'
      LookupResultField = 'fSpec'
      KeyFields = 'fProductId'
      Lookup = True
    end
    object cdsDetailfSaleUnit: TStringField
      FieldKind = fkLookup
      FieldName = 'fSaleUnit'
      LookupDataSet = cdsItem
      LookupKeyFields = 'fProductId'
      LookupResultField = 'fSaleUnit'
      KeyFields = 'fProductId'
      Lookup = True
    end
    object cdsDetailfAmt: TFloatField
      FieldKind = fkCalculated
      FieldName = 'fAmt'
      Calculated = True
    end
    object cdsDetailfItemBuyPrice: TFloatField
      FieldKind = fkLookup
      FieldName = 'fItemBuyPrice'
      LookupDataSet = cdsItem
      LookupKeyFields = 'fProductId'
      LookupResultField = 'fBuyPrice'
      KeyFields = 'fProductId'
      Lookup = True
    end
    object cdsDetailfItemSellPrice: TFloatField
      FieldKind = fkLookup
      FieldName = 'fItemSellPrice'
      LookupDataSet = cdsItem
      LookupKeyFields = 'fProductId'
      LookupResultField = 'fSellPrice'
      KeyFields = 'fProductId'
      Lookup = True
    end
  end
  inherited dsDetail: TDataSource
    Left = 88
    Top = 128
  end
  object cdsState: TADODataSet
    Connection = fmDB.AdoHouse
    CommandText = 
      'select fdictno,fdictname from ts_dict where fdicttype=1008 order' +
      ' by fdictno'
    Parameters = <>
    Left = 32
    Top = 248
  end
  object cdsUser: TADODataSet
    Connection = fmDB.AdoHouse
    CommandText = 'SELECT fUserNo, fUserName'#13#10'FROM ts_User  ORDER BY fUserNo'
    Parameters = <>
    Left = 88
    Top = 248
  end
  object GridPopMenu: TPopupMenu
    Left = 152
    Top = 312
    object nAdd: TMenuItem
      Caption = #26032#22686
      ShortCut = 115
      OnClick = nAddClick
    end
    object nDel: TMenuItem
      Caption = #21024#38500
      ShortCut = 117
      OnClick = nDelClick
    end
  end
  object cdsItem: TADODataSet
    Connection = fmDB.AdoHouse
    CommandText = 
      'select fProductId,fProductNo,fProductName,fSpec,fSaleUnit,fSellP' +
      'rice,fBuyPrice,fStockDown from ts_item order by fProductId'
    Parameters = <>
    Left = 144
    Top = 248
  end
  object Qry: TADOQuery
    Connection = fmDB.AdoHouse
    Parameters = <>
    Left = 216
    Top = 128
  end
  object dsState: TDataSource
    DataSet = cdsState
    Left = 32
    Top = 312
  end
  object dsUser: TDataSource
    DataSet = cdsUser
    Left = 88
    Top = 312
  end
end