adodata.dfm

劳保用品管理系统

object adodm: Tadodm
  OldCreateOrder = False
  Left = 45
  Top = 35
  Height = 500
  Width = 720
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=lklb.' +
      'mdb;Mode=ReadWrite;Extended Properties="";Persist Security Info=' +
      'False;Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Je' +
      't OLEDB:Database Password="";Jet OLEDB:Engine Type=5;Jet OLEDB:D' +
      'atabase Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet O' +
      'LEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password=' +
      '"";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Data' +
      'base=False;Jet OLEDB:Don'#39't Copy Locale on Compact=False;Jet OLED' +
      'B:Compact Without Replica Repair=False;Jet OLEDB:SFP=False'
    LoginPrompt = False
    Mode = cmReadWrite
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 40
    Top = 8
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select * from ygglb')
    Left = 40
    Top = 64
  end
  object ADOQuery2: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 112
    Top = 64
  end
  object ADOQuery3: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select lbmc,ffzq,ffrq from ffjl')
    Left = 184
    Top = 64
    object ADOQuery3lbmc: TWideStringField
      DisplayLabel = #21171#20445#21517#31216
      FieldName = 'lbmc'
      ReadOnly = True
      Size = 12
    end
    object ADOQuery3ffzq: TSmallintField
      DisplayLabel = #21457#25918#21608#26399
      DisplayWidth = 8
      FieldName = 'ffzq'
      ReadOnly = True
    end
    object ADOQuery3ffrq: TDateTimeField
      DisplayLabel = #19978#27425#21457#25918#26085#26399
      DisplayWidth = 12
      FieldName = 'ffrq'
    end
  end
  object ADOTable1: TADOTable
    Connection = ADOConnection1
    Left = 128
    Top = 8
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 40
    Top = 128
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery2
    Left = 112
    Top = 128
  end
  object DataSource3: TDataSource
    DataSet = ADOQuery3
    Left = 184
    Top = 128
  end
  object loadquery: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 264
    Top = 64
  end
  object loadsource: TDataSource
    DataSet = loadquery
    Left = 264
    Top = 128
  end
  object ADOQuery4: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    LockType = ltReadOnly
    Parameters = <>
    SQL.Strings = (
      'select bmbh,bmmc from bm order by bmbh')
    Left = 336
    Top = 64
    object ADOQuery4bmbh: TWideStringField
      DisplayLabel = #32534#21495
      DisplayWidth = 4
      FieldName = 'bmbh'
      Size = 3
    end
    object ADOQuery4bmmc: TWideStringField
      DisplayLabel = #37096#38376#21517#31216
      DisplayWidth = 12
      FieldName = 'bmmc'
    end
  end
  object DataSource4: TDataSource
    DataSet = ADOQuery4
    Left = 336
    Top = 128
  end
  object ADOQuery5: TADOQuery
    Connection = ADOConnection1
    LockType = ltReadOnly
    Parameters = <>
    SQL.Strings = (
      'select bmmc,ygbh,xm,lbmc,gg,sl from fftmp')
    Left = 408
    Top = 64
    object ADOQuery5xm: TWideStringField
      DisplayLabel = #22995#21517
      DisplayWidth = 6
      FieldName = 'xm'
      Size = 8
    end
    object ADOQuery5lbmc: TWideStringField
      DisplayLabel = #21171#20445#21517#31216
      FieldName = 'lbmc'
      Size = 12
    end
    object ADOQuery5gg: TWideStringField
      DisplayLabel = #35268#26684
      DisplayWidth = 4
      FieldName = 'gg'
      Size = 4
    end
    object ADOQuery5sl: TFloatField
      DisplayLabel = #25968#37327
      DisplayWidth = 4
      FieldName = 'sl'
    end
  end
  object DataSource5: TDataSource
    DataSet = ADOQuery5
    Left = 408
    Top = 128
  end
  object ADOQuery6: TADOQuery
    Connection = ADOConnection1
    LockType = ltReadOnly
    Parameters = <
      item
        Name = 'p1'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'select lbmc,gg,sum(sl) as zsl from fftmp'
      'where bmbh=:p1 group by lbmc,gg')
    Left = 480
    Top = 64
    object ADOQuery6lbmc: TWideStringField
      DisplayLabel = #21171#20445#21517#31216
      DisplayWidth = 8
      FieldName = 'lbmc'
      Size = 12
    end
    object ADOQuery6gg: TWideStringField
      DisplayLabel = #35268#26684
      DisplayWidth = 4
      FieldName = 'gg'
      Size = 4
    end
    object ADOQuery6zsl: TFloatField
      DisplayLabel = #25968#37327
      DisplayWidth = 4
      FieldName = 'zsl'
    end
  end
  object DataSource6: TDataSource
    DataSet = ADOQuery6
    Left = 480
    Top = 128
  end
  object DataSource7: TDataSource
    DataSet = ADOQuery7
    Left = 560
    Top = 128
  end
  object ADOQuery8: TADOQuery
    Connection = ADOConnection1
    LockType = ltReadOnly
    Parameters = <>
    SQL.Strings = (
      'select bmmc,bmbh from fftmp group by bmmc,bmbh')
    Left = 640
    Top = 64
    object ADOQuery8bmmc: TWideStringField
      DisplayLabel = #37096#38376#21517#31216
      DisplayWidth = 12
      FieldName = 'bmmc'
      Size = 24
    end
    object ADOQuery8bmbh: TWideStringField
      DisplayLabel = #32534#21495
      DisplayWidth = 3
      FieldName = 'bmbh'
      Size = 3
    end
  end
  object DataSource8: TDataSource
    DataSet = ADOQuery8
    Left = 640
    Top = 128
  end
  object ADOQuery9: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      '')
    Left = 40
    Top = 192
  end
  object DataSource9: TDataSource
    DataSet = ADOQuery9
    Left = 40
    Top = 256
  end
  object ADOQuery7: TADOQuery
    Connection = ADOConnection1
    LockType = ltReadOnly
    Parameters = <
      item
        Name = 'p1'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'select lbmc,gg,sum(sl) as zsl from fftmp'
      'where bmbh=:p1 group by lbmc,gg')
    Left = 560
    Top = 64
    object WideStringField1: TWideStringField
      DisplayLabel = #21171#20445#21517#31216
      DisplayWidth = 8
      FieldName = 'lbmc'
      Size = 12
    end
    object WideStringField2: TWideStringField
      DisplayLabel = #35268#26684
      DisplayWidth = 4
      FieldName = 'gg'
      Size = 4
    end
    object FloatField1: TFloatField
      DisplayLabel = #25968#37327
      DisplayWidth = 4
      FieldName = 'zsl'
    end
  end
  object ADOQuery10: TADOQuery
    Connection = ADOConnection1
    LockType = ltReadOnly
    Parameters = <>
    SQL.Strings = (
      'select * from gz order by gzbh')
    Left = 112
    Top = 200
    object ADOQuery10gzbh: TWideStringField
      DisplayLabel = #32534#21495
      FieldName = 'gzbh'
      Size = 3
    end
    object ADOQuery10gzmc: TWideStringField
      DisplayLabel = #24037#31181#21517#31216
      DisplayWidth = 16
      FieldName = 'gzmc'
      Size = 24
    end
  end
  object DataSource10: TDataSource
    DataSet = ADOQuery10
    Left = 112
    Top = 256
  end
  object ADOQuery11: TADOQuery
    Connection = ADOConnection1
    LockType = ltReadOnly
    Parameters = <>
    Left = 184
    Top = 200
    object ADOQuery11gzbh: TWideStringField
      DisplayLabel = #24037#31181#32534#21495
      FieldName = 'gzbh'
      Size = 3
    end
    object ADOQuery11lbmc: TWideStringField
      DisplayLabel = #21171#20445#21517#31216
      DisplayWidth = 8
      FieldName = 'lbmc'
      Size = 12
    end
    object ADOQuery11ffzq: TSmallintField
      DisplayLabel = #21457#25918#21608#26399
      DisplayWidth = 8
      FieldName = 'ffzq'
    end
  end
  object DataSource11: TDataSource
    DataSet = ADOQuery11
    Left = 192
    Top = 256
  end
  object ADOQuery12: TADOQuery
    Connection = ADOConnection1
    LockType = ltReadOnly
    Parameters = <>
    SQL.Strings = (
      'select lbmc from gzlb group by lbmc')
    Left = 256
    Top = 200
  end
  object DataSource12: TDataSource
    DataSet = ADOQuery12
    Left = 256
    Top = 256
  end
  object ADOQuery13: TADOQuery
    Connection = ADOConnection1
    LockType = ltReadOnly
    Parameters = <>
    SQL.Strings = (
      'select * from bm order by bmbh')
    Left = 328
    Top = 200
    object ADOQuery13bmbh: TWideStringField
      DisplayLabel = #37096#38376#32534#21495
      FieldName = 'bmbh'
      Size = 3
    end
    object ADOQuery13bmmc: TWideStringField
      DisplayLabel = #37096#38376#21517#31216
      DisplayWidth = 16
      FieldName = 'bmmc'
    end
  end
  object DataSource13: TDataSource
    DataSet = ADOQuery13
    Left = 328
    Top = 256
  end
  object ADOQuery14: TADOQuery
    Connection = ADOConnection1
    LockType = ltReadOnly
    Parameters = <>
    SQL.Strings = (
      'select * from bm order by bmbh')
    Left = 408
    Top = 200
    object ADOQuery14bmbh: TWideStringField
      DisplayLabel = #37096#38376#32534#21495
      FieldName = 'bmbh'
      Size = 3
    end
    object ADOQuery14bmmc: TWideStringField
      DisplayLabel = #37096#38376#21517#31216
      DisplayWidth = 16
      FieldName = 'bmmc'
    end
  end
  object DataSource14: TDataSource
    DataSet = ADOQuery14
    Left = 408
    Top = 256
  end
  object ADOQuery15: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select * from lkyg')
    Left = 488
    Top = 200
    object ADOQuery15bmbh: TWideStringField
      DisplayLabel = #37096#38376#32534#21495
      FieldName = 'bmbh'
      ReadOnly = True
      Size = 3
    end
    object ADOQuery15ygbh: TWideStringField