dm.dfm

一个delphi开发的库存管理系统源代码

object fdm: Tfdm
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 492
  Top = 164
  Height = 455
  Width = 532
  object conn: TADOConnection
    Left = 32
    Top = 10
  end
  object q: TADOQuery
    Connection = conn
    Parameters = <>
    Left = 98
    Top = 12
  end
  object tuser: TADOTable
    Connection = conn
    TableName = '[userlist]'
    Left = 154
    Top = 12
  end
  object dsuser: TDataSource
    DataSet = tuser
    Left = 190
    Top = 12
  end
  object dssort: TDataSource
    DataSet = qsort
    Left = 288
    Top = 14
  end
  object qsort: TADOTable
    Connection = conn
    TableName = 'sortlist'
    Left = 258
    Top = 12
  end
  object qvendor: TADOQuery
    Connection = conn
    Filtered = True
    Parameters = <>
    SQL.Strings = (
      'select * from vendorlist')
    Left = 34
    Top = 78
  end
  object dsvendor: TDataSource
    DataSet = qvendor
    Left = 82
    Top = 78
  end
  object qvlist: TADOQuery
    Connection = conn
    Parameters = <>
    SQL.Strings = (
      'select name from vendor where flag=0 group by name order by name')
    Left = 152
    Top = 76
  end
  object dsqvlist: TDataSource
    DataSet = qvlist
    Left = 200
    Top = 76
  end
  object qgoods: TADOQuery
    Connection = conn
    Filtered = True
    Parameters = <>
    SQL.Strings = (
      'select * from goodslist3')
    Left = 32
    Top = 148
  end
  object dsgoods: TDataSource
    DataSet = qgoods
    Left = 80
    Top = 148
  end
  object qslist: TADOQuery
    Connection = conn
    Parameters = <>
    SQL.Strings = (
      'select name from sort where flag=0 and type='#39'O'#39' order by name')
    Left = 152
    Top = 144
  end
  object dslist: TDataSource
    DataSet = qslist
    Left = 200
    Top = 144
  end
  object qslist1: TADOQuery
    Connection = conn
    Parameters = <>
    SQL.Strings = (
      'select name from sort where flag=0 and type='#39'S'#39' order by name')
    Left = 256
    Top = 144
  end
  object dsqslist1: TDataSource
    DataSet = qslist1
    Left = 304
    Top = 144
  end
  object qrk: TADOQuery
    Connection = conn
    Parameters = <>
    Left = 30
    Top = 232
  end
  object dsrk: TDataSource
    DataSet = qrk
    Left = 78
    Top = 232
  end
  object qdan: TADOQuery
    Connection = conn
    Parameters = <>
    SQL.Strings = (
      'select * from danlist')
    Left = 156
    Top = 230
  end
  object dsdan: TDataSource
    DataSet = qdan
    Left = 204
    Top = 230
  end
  object q2: TADOQuery
    Connection = conn
    Parameters = <>
    Left = 364
    Top = 18
  end
  object qdlist: TADOQuery
    Connection = conn
    Parameters = <>
    SQL.Strings = (
      'select * from danview')
    Left = 272
    Top = 220
  end
  object dsdlist: TDataSource
    DataSet = qdlist
    Left = 320
    Top = 220
  end
  object qkc: TADOQuery
    Connection = conn
    Filtered = True
    Parameters = <>
    SQL.Strings = (
      'select * from kclist4')
    Left = 36
    Top = 300
  end
  object dskc: TDataSource
    DataSet = qkc
    Left = 84
    Top = 300
  end
end