data.dfm

劳保用品管理系统

object dm: Tdm
  OldCreateOrder = False
  Left = 65452
  Top = 79
  Height = 568
  Width = 812
  object Table1: TTable
    DatabaseName = 'lklb'
    IndexFieldNames = 'bmmc'
    TableName = 'bm'
    Left = 8
    Top = 8
  end
  object Table2: TTable
    DatabaseName = 'lklb'
    IndexFieldNames = 'gzmc'
    TableName = 'gz'
    Left = 40
    Top = 8
  end
  object Table3: TTable
    OnPostError = Table3PostError
    DatabaseName = 'lklb'
    IndexName = 'bmbh'
    TableName = 'lkyg'
    Left = 80
    Top = 8
  end
  object Table4: TTable
    DatabaseName = 'lklb'
    IndexName = 'bmbh'
    TableName = 'ffjl'
    Left = 120
    Top = 8
  end
  object DataSource4: TDataSource
    DataSet = Query15
    Left = 168
    Top = 288
  end
  object Query2: TQuery
    DatabaseName = 'lklb'
    RequestLive = True
    SQL.Strings = (
      'select * from ffjl')
    Left = 8
    Top = 109
    object Query2lbmc: TStringField
      DisplayLabel = #21171#20445#21517#31216
      FieldName = 'lbmc'
      Origin = 'LKLB.ffjl.lbmc'
      Size = 12
    end
    object Query2ffrq: TDateTimeField
      DisplayLabel = #19978#27425#21457#25918
      DisplayWidth = 10
      FieldName = 'ffrq'
      Origin = 'LKLB.ffjl.ffrq'
    end
    object Query2ffzq: TSmallintField
      DisplayLabel = #21457#25918#21608#26399
      FieldName = 'ffzq'
      Origin = 'LKLB.ffjl.ffzq'
    end
  end
  object DataSource2: TDataSource
    DataSet = Query2
    Left = 8
    Top = 157
  end
  object DataSource1: TDataSource
    DataSet = Query14
    Left = 96
    Top = 288
  end
  object Query17: TQuery
    DatabaseName = 'lklb'
    SQL.Strings = (
      'select * from gz order by gzmc')
    Left = 304
    Top = 235
    object Query17gzbh2: TStringField
      DisplayLabel = #32534#21495
      DisplayWidth = 4
      FieldName = 'gzbh'
      Origin = 'LKLB.gz.gzbh'
      Size = 3
    end
    object Query17gzmc2: TStringField
      DisplayLabel = #24037#31181#21517#31216
      DisplayWidth = 20
      FieldName = 'gzmc'
      Origin = 'LKLB.gz.gzmc'
      Size = 24
    end
  end
  object DataSource23: TDataSource
    DataSet = Query26
    Left = 384
    Top = 403
  end
  object Query26: TQuery
    DatabaseName = 'lklb'
    SQL.Strings = (
      'select lbmc  from gzlb group by lbmc')
    Left = 384
    Top = 355
  end
  object DataSource15: TDataSource
    DataSet = Query17
    Left = 308
    Top = 292
  end
  object DataSource14: TDataSource
    DataSet = Query16
    Left = 236
    Top = 289
  end
  object Query16: TQuery
    DatabaseName = 'lklb'
    SQL.Strings = (
      'select * from lkyg')
    Left = 236
    Top = 234
    object StringField1: TStringField
      DisplayLabel = #37096#38376#32534#21495
      FieldName = 'bmbh'
      Origin = 'LKLB.lkyg.bmbh'
      Size = 3
    end
    object StringField3: TStringField
      DisplayLabel = #22995#21517
      FieldName = 'xm'
      Origin = 'LKLB.lkyg.xm'
      Size = 8
    end
    object StringField4: TStringField
      DisplayLabel = #22995#21517#25340#38899
      FieldName = 'xmdm'
      Origin = 'LKLB.lkyg.xmdm'
      Size = 4
    end
    object StringField5: TStringField
      DisplayLabel = #21592#24037#32534#21495
      FieldName = 'ygbh'
      Origin = 'LKLB.lkyg.ygbh'
      Size = 6
    end
    object StringField6: TStringField
      DisplayLabel = #24615#21035
      FieldName = 'xb'
      Origin = 'LKLB.lkyg.xb'
      Size = 2
    end
    object StringField8: TStringField
      DisplayLabel = #24037#31181#32534#21495
      FieldName = 'gzbh'
      Origin = 'LKLB.lkyg.gzbh'
      Size = 3
    end
    object StringField9: TStringField
      DisplayLabel = #24037#20316#26381
      FieldName = 'gzfgg'
      Origin = 'LKLB.lkyg.gzfgg'
      Size = 3
    end
    object StringField10: TStringField
      DisplayLabel = #26825#34915
      FieldName = 'mygg'
      Origin = 'LKLB.lkyg.mygg'
      Size = 3
    end
    object StringField11: TStringField
      DisplayLabel = #34924#34915
      FieldName = 'cygg'
      Origin = 'LKLB.lkyg.cygg'
      Size = 3
    end
    object StringField12: TStringField
      DisplayLabel = #30333#32593#38795
      FieldName = 'bwx'
      Origin = 'LKLB.lkyg.bwx'
      Size = 4
    end
    object StringField13: TStringField
      DisplayLabel = #24067#33014#38795
      FieldName = 'bjx'
      Origin = 'LKLB.lkyg.bjx'
      Size = 4
    end
    object StringField14: TStringField
      DisplayLabel = #33014#38772
      FieldName = 'jx'
      Origin = 'LKLB.lkyg.jx'
      Size = 4
    end
    object StringField15: TStringField
      DisplayLabel = #32477#32536#38795
      FieldName = 'jyx'
      Origin = 'LKLB.lkyg.jyx'
      Size = 4
    end
    object StringField16: TStringField
      DisplayLabel = #30701#34966
      FieldName = 'xz'
      Origin = 'LKLB.lkyg.xz'
      Size = 4
    end
  end
  object Query8: TQuery
    DatabaseName = 'lklb'
    Left = 68
    Top = 64
  end
  object Query27: TQuery
    DatabaseName = 'lklb'
    Left = 264
    Top = 64
  end
  object DataSource11: TDataSource
    DataSet = Query13
    Left = 24
    Top = 288
  end
  object Query13: TQuery
    DatabaseName = 'lklb'
    SQL.Strings = (
      'select * from bm order by bmbh')
    Left = 20
    Top = 233
    object Query13bmbh: TStringField
      DisplayLabel = #32534#21495
      FieldName = 'bmbh'
      Origin = 'LKLB.bm.bmbh'
      Size = 3
    end
    object Query13bmmc: TStringField
      DisplayLabel = #37096#38376#21517#31216
      DisplayWidth = 12
      FieldName = 'bmmc'
      Origin = 'LKLB.bm.bmmc'
      Size = 24
    end
  end
  object Query21: TQuery
    DatabaseName = 'lklb'
    SQL.Strings = (
      'select * from fftmp')
    Left = 96
    Top = 352
    object Query21bmmc: TStringField
      DisplayLabel = #37096#38376#21517#31216
      DisplayWidth = 12
      FieldName = 'bmmc'
      Origin = 'LKLB.fftmp.bmmc'
      Size = 24
    end
    object Query21ygbh: TStringField
      DisplayLabel = #21592#24037#32534#21495
      DisplayWidth = 8
      FieldName = 'ygbh'
      Origin = 'LKLB.fftmp.ygbh'
      Size = 6
    end
    object Query21xm: TStringField
      DisplayLabel = #21592#24037#22995#21517
      FieldName = 'xm'
      Origin = 'LKLB.fftmp.xm'
      Size = 8
    end
    object Query21lbmc: TStringField
      DisplayLabel = #21171#20445#21517#31216
      FieldName = 'lbmc'
      Origin = 'LKLB.fftmp.lbmc'
      Size = 12
    end
    object Query21gg: TStringField
      DisplayLabel = #35268#26684
      FieldName = 'gg'
      Origin = 'LKLB.fftmp.gg'
      Size = 4
    end
    object Query21sl: TFloatField
      DisplayLabel = #25968#37327
      FieldName = 'sl'
      Origin = 'LKLB.fftmp.sl'
    end
  end
  object DataSource19: TDataSource
    DataSet = Query21
    Left = 96
    Top = 408
  end
  object Query22: TQuery
    DatabaseName = 'lklb'
    SQL.Strings = (
      'select lbmc,gg,sum(sl) as zsl from fftmp group by lbmc,gg')
    Left = 168
    Top = 352
    object Query22lbmc: TStringField
      DisplayLabel = #21171#20445#21517#31216
      FieldName = 'lbmc'
      Origin = 'LKLB.fftmp.lbmc'
      Size = 12
    end
    object Query22gg: TStringField
      DisplayLabel = #35268#26684
      FieldName = 'gg'
      Origin = 'LKLB.fftmp.gg'
      Size = 4
    end
    object Query22zsl: TFloatField
      DisplayLabel = #24635#25968#37327
      FieldName = 'zsl'
      Origin = 'LKLB.fftmp.sl'
    end
  end
  object DataSource20: TDataSource
    DataSet = Query22
    Left = 168
    Top = 408
  end
  object DataSource21: TDataSource
    DataSet = Query23
    Left = 240
    Top = 400
  end
  object Query23: TQuery
    DatabaseName = 'lklb'
    SQL.Strings = (
      'select lbmc,gg,sum(sl) as zsl from fftmp group by lbmc,gg')
    Left = 240
    Top = 352
    object Query23lbmc: TStringField
      DisplayLabel = #21171#20445#21517#31216
      FieldName = 'lbmc'
      Origin = 'LKLB.fftmp.lbmc'
      Size = 12
    end
    object Query23gg: TStringField
      DisplayLabel = #35268#26684
      FieldName = 'gg'
      Origin = 'LKLB.fftmp.gg'
      Size = 4
    end
    object Query23zsl: TFloatField
      DisplayLabel = #24635#25968#37327
      FieldName = 'zsl'
      Origin = 'LKLB.fftmp.sl'
    end
  end
  object DataSource18: TDataSource
    DataSet = Query20
    Left = 21
    Top = 409
  end
  object Query20: TQuery
    DatabaseName = 'lklb'
    SQL.Strings = (
      'select * from fftmp')
    Left = 21
    Top = 353
    object Query20bmmc: TStringField
      DisplayLabel = #37096#38376#21517#31216
      DisplayWidth = 12
      FieldName = 'bmmc'
      Origin = 'LKLB.fftmp.bmmc'
      Size = 24
    end
    object Query20bmbh: TStringField
      DisplayLabel = #37096#38376#32534#21495
      FieldName = 'bmbh'
      Origin = 'LKLB.fftmp.bmbh'
      Size = 3
    end
  end
  object DataSource8: TDataSource
    DataSet = Query10
    Left = 340
    Top = 159
  end
  object Query10: TQuery
    DatabaseName = 'lklb'
    SQL.Strings = (
      'select * from bm order by bmbh')
    Left = 340
    Top = 111
  end
  object Query12: TQuery
    DatabaseName = 'lklb'
    SQL.Strings = (
      'select *  from  bm order by bmbh')
    Left = 412
    Top = 109
    object Query12bmbh: TStringField
      FieldName = 'bmbh'
      Origin = 'LKLB.bm.bmbh'
      Size = 3
    end
    object Query12bmmc: TStringField
      FieldName = 'bmmc'
      Origin = 'LKLB.bm.bmmc'
      Size = 24
    end
  end
  object DataSource10: TDataSource
    DataSet = Query12
    Left = 412
    Top = 157
  end
  object Table7: TTable
    DatabaseName = 'lklb'
    IndexName = 'bmbh'
    TableName = 'ffjl'
    Left = 160
    Top = 8
  end
  object Table8: TTable
    DatabaseName = 'lklb'
    IndexName = 'ygbh'
    TableName = 'lkyg'
    Left = 192
    Top = 8
  end
  object Table9: TTable
    DatabaseName = 'lklb'
    IndexName = 'bmbh'
    TableName = 'fftmp'
    Left = 232
    Top = 8
  end
  object DataSource3: TDataSource
    DataSet = Query3
    Left = 76
    Top = 159
  end
  object Query3: TQuery
    DatabaseName = 'lklb'
    SQL.Strings = (
      'select xm,ygbh,bmbh from lkyg')
    Left = 76
    Top = 111
    object Query3bmbh: TStringField
      DisplayLabel = #37096#38376#32534#21495
      FieldName = 'bmbh'
      Origin = 'LKLB.lkyg.bmbh'
      Size = 3
    end
    object Query3xm: TStringField
      DisplayLabel = #22995#21517
      FieldName = 'xm'