adodata.dfm

劳保用品管理系统

      DisplayLabel = #21592#24037#32534#21495
      FieldName = 'ygbh'
      ReadOnly = True
      Size = 6
    end
    object ADOQuery15xm: TWideStringField
      DisplayLabel = #22995#21517
      DisplayWidth = 6
      FieldName = 'xm'
      Size = 8
    end
    object ADOQuery15xmdm: TWideStringField
      DisplayLabel = #22995#21517#25340#38899
      FieldName = 'xmdm'
      Size = 4
    end
    object ADOQuery15xb: TWideStringField
      DisplayLabel = #24615#21035
      FieldName = 'xb'
      Size = 2
    end
    object ADOQuery15gzbh: TWideStringField
      DisplayLabel = #24037#31181#32534#21495
      FieldName = 'gzbh'
      ReadOnly = True
      Size = 3
    end
  end
  object DataSource15: TDataSource
    DataSet = ADOQuery15
    Left = 488
    Top = 256
  end
  object ADOQuery16: TADOQuery
    Connection = ADOConnection1
    LockType = ltReadOnly
    Parameters = <>
    SQL.Strings = (
      'select * from bm order by bmbh')
    Left = 568
    Top = 200
    object ADOQuery16bmbh: TWideStringField
      DisplayLabel = #37096#38376#32534#21495
      FieldName = 'bmbh'
      Size = 3
    end
    object ADOQuery16bmmc: TWideStringField
      DisplayLabel = #37096#38376#21517#31216
      DisplayWidth = 16
      FieldName = 'bmmc'
    end
  end
  object DataSource16: TDataSource
    DataSet = ADOQuery16
    Left = 568
    Top = 256
  end
  object ADOQuery17: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select * from lkyg')
    Left = 648
    Top = 200
  end
  object DataSource17: TDataSource
    DataSet = ADOQuery17
    Left = 648
    Top = 264
  end
  object ADOQuery19: TADOQuery
    Connection = ADOConnection1
    LockType = ltReadOnly
    Parameters = <>
    SQL.Strings = (
      'select * from bm order by bmbh')
    Left = 128
    Top = 320
    object WideStringField3: TWideStringField
      DisplayLabel = #37096#38376#32534#21495
      FieldName = 'bmbh'
      Size = 3
    end
    object WideStringField4: TWideStringField
      DisplayLabel = #37096#38376#21517#31216
      DisplayWidth = 16
      FieldName = 'bmmc'
    end
  end
  object DataSource19: TDataSource
    DataSet = ADOQuery19
    Left = 128
    Top = 384
  end
  object ADOQuery20: TADOQuery
    Connection = ADOConnection1
    LockType = ltReadOnly
    Parameters = <>
    SQL.Strings = (
      'select * from lkyg')
    Left = 216
    Top = 320
    object WideStringField5: TWideStringField
      DisplayLabel = #37096#38376
      FieldName = 'bmbh'
      ReadOnly = True
      Size = 3
    end
    object WideStringField6: TWideStringField
      DisplayLabel = #22995#21517
      DisplayWidth = 6
      FieldName = 'xm'
      Size = 8
    end
    object WideStringField7: TWideStringField
      DisplayLabel = #25340#38899
      FieldName = 'xmdm'
      Size = 4
    end
    object WideStringField8: TWideStringField
      DisplayLabel = #32534#21495
      FieldName = 'ygbh'
      ReadOnly = True
      Size = 6
    end
    object WideStringField9: TWideStringField
      DisplayLabel = #24615#21035
      FieldName = 'xb'
      Size = 2
    end
    object WideStringField10: TWideStringField
      DisplayLabel = #24037#31181#32534#21495
      FieldName = 'gzbh'
      ReadOnly = True
      Size = 3
    end
    object WideStringField11: TWideStringField
      FieldName = #24037#20316#26381
      Size = 5
    end
    object WideStringField12: TWideStringField
      FieldName = #26825#34915
      Size = 5
    end
    object WideStringField13: TWideStringField
      FieldName = #30333#32593#38795
      Size = 5
    end
    object WideStringField14: TWideStringField
      FieldName = #24067#33014#38795
      Size = 5
    end
    object WideStringField15: TWideStringField
      FieldName = #33014#38772
      Size = 5
    end
    object WideStringField16: TWideStringField
      FieldName = #32477#32536#38795
      Size = 5
    end
    object WideStringField17: TWideStringField
      FieldName = #34924#34915
      Size = 5
    end
    object WideStringField18: TWideStringField
      FieldName = #25991#21270#34923
      Size = 5
    end
    object WideStringField19: TWideStringField
      FieldName = #35199#35013
      Size = 5
    end
  end
  object DataSource20: TDataSource
    DataSet = ADOQuery20
    Left = 216
    Top = 384
  end
  object ADOQuery21: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select * from ffjl')
    Left = 304
    Top = 320
    object ADOQuery21id: TAutoIncField
      DisplayWidth = 6
      FieldName = 'id'
      ReadOnly = True
    end
    object WideStringField20: TWideStringField
      DisplayLabel = #21171#20445#21517#31216
      FieldName = 'lbmc'
      ReadOnly = True
      Size = 12
    end
    object SmallintField1: TSmallintField
      DisplayLabel = #21457#25918#21608#26399
      DisplayWidth = 8
      FieldName = 'ffzq'
      ReadOnly = True
    end
    object DateTimeField1: TDateTimeField
      DisplayLabel = #19978#27425#21457#25918#26085#26399
      DisplayWidth = 12
      FieldName = 'ffrq'
    end
  end
  object DataSource21: TDataSource
    DataSet = ADOQuery21
    Left = 304
    Top = 384
  end
  object ADOQuery18: TADOQuery
    Connection = ADOConnection1
    LockType = ltReadOnly
    Parameters = <>
    SQL.Strings = (
      'select * from lkyg')
    Left = 40
    Top = 320
    object WideStringField21: TWideStringField
      DisplayLabel = #37096#38376#32534#21495
      FieldName = 'bmbh'
      Size = 3
    end
    object WideStringField22: TWideStringField
      DisplayLabel = #22995#21517
      DisplayWidth = 6
      FieldName = 'xm'
      Size = 8
    end
    object WideStringField23: TWideStringField
      DisplayLabel = #21592#24037#32534#21495
      FieldName = 'ygbh'
      Size = 6
    end
  end
  object DataSource18: TDataSource
    DataSet = ADOQuery18
    Left = 40
    Top = 376
  end
  object ADOQuery22: TADOQuery
    Connection = ADOConnection1
    LockType = ltReadOnly
    Parameters = <>
    SQL.Strings = (
      'select * from bm order by bmbh')
    Left = 392
    Top = 328
    object WideStringField24: TWideStringField
      DisplayLabel = #37096#38376#32534#21495
      FieldName = 'bmbh'
      Size = 3
    end
    object WideStringField25: TWideStringField
      DisplayLabel = #37096#38376#21517#31216
      DisplayWidth = 14
      FieldName = 'bmmc'
    end
  end
  object DataSource22: TDataSource
    DataSet = ADOQuery22
    Left = 392
    Top = 392
  end
  object ADOQuery23: TADOQuery
    Connection = ADOConnection1
    LockType = ltReadOnly
    Parameters = <>
    SQL.Strings = (
      'select * from lkyg')
    Left = 480
    Top = 328
    object WideStringField26: TWideStringField
      DisplayLabel = #37096#38376
      FieldName = 'bmbh'
      ReadOnly = True
      Size = 3
    end
    object WideStringField27: TWideStringField
      DisplayLabel = #22995#21517
      DisplayWidth = 6
      FieldName = 'xm'
      Size = 8
    end
    object WideStringField28: TWideStringField
      DisplayLabel = #25340#38899
      FieldName = 'xmdm'
      Size = 4
    end
    object WideStringField29: TWideStringField
      DisplayLabel = #32534#21495
      FieldName = 'ygbh'
      ReadOnly = True
      Size = 6
    end
    object WideStringField30: TWideStringField
      DisplayLabel = #24615#21035
      FieldName = 'xb'
      Size = 2
    end
    object WideStringField31: TWideStringField
      DisplayLabel = #24037#31181#32534#21495
      FieldName = 'gzbh'
      ReadOnly = True
      Size = 3
    end
  end
  object DataSource23: TDataSource
    DataSet = ADOQuery23
    Left = 480
    Top = 392
  end
  object ADOQuery24: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select  *  from fftmp')
    Left = 552
    Top = 328
    object ADOQuery24ygbh: TWideStringField
      DisplayLabel = #21592#24037#32534#21495
      DisplayWidth = 8
      FieldName = 'ygbh'
      Size = 6
    end
    object WideStringField41: TWideStringField
      DisplayLabel = #22995#21517
      FieldName = 'xm'
      Size = 8
    end
    object WideStringField42: TWideStringField
      DisplayLabel = #21171#20445#21517#31216
      FieldName = 'lbmc'
      Size = 12
    end
    object WideStringField43: TWideStringField
      DisplayLabel = #35268#26684
      FieldName = 'gg'
      Size = 4
    end
    object FloatField2: TFloatField
      DisplayLabel = #25968#37327
      DisplayWidth = 4
      FieldName = 'sl'
    end
  end
  object DataSource24: TDataSource
    DataSet = ADOQuery24
    Left = 552
    Top = 392
  end
  object ADOQuery25: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select lbmc,gg,sum(sl) as zsl from fftmp group by lbmc,gg')
    Left = 632
    Top = 328
    object ADOQuery25lbmc: TWideStringField
      DisplayLabel = #21171#20445#21517#31216
      FieldName = 'lbmc'
      Size = 12
    end
    object ADOQuery25gg: TWideStringField
      DisplayLabel = #35268#26684
      FieldName = 'gg'
      Size = 4
    end
    object ADOQuery25zsl: TFloatField
      DisplayLabel = #25968#37327
      FieldName = 'zsl'
    end
  end
  object DataSource25: TDataSource
    DataSet = ADOQuery25
    Left = 632
    Top = 392
  end
  object ADOTable2: TADOTable
    Connection = ADOConnection1
    TableName = 'lkyg'
    Left = 192
    Top = 8
  end
  object ADOQuery26: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    LockType = ltReadOnly
    Parameters = <>
    Left = 40
    Top = 440
  end
  object DataSource26: TDataSource
    DataSet = ADOQuery26
    Left = 128
    Top = 440
  end
end