⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 dgsdm.dfm

📁 有需要的同仁载回去慢慢研究
💻 DFM
📖 第 1 页 / 共 3 页
字号:
🔍
123 
    end
    object QryTodayByBmField: TStringField
      FieldKind = fkCalculated
      FieldName = #31867#22411
      Size = 12
      Calculated = True
    end
    object QryTodayByBmBDEDesigner6: TStringField
      FieldName = #22995#21517
      Origin = 'DBGSGL.'#21592#24037#20449#24687'.'#22995#21517
      FixedChar = True
      Size = 10
    end
  end
  object DsTodayByBm: TDataSource
    DataSet = QryTodayByBm
    Left = 176
    Top = 248
  end
  object QryTemp1: TQuery
    DatabaseName = 'DbGsgl'
    Left = 136
    Top = 8
  end
  object QryYg: TQuery
    DatabaseName = 'DbGsgl'
    SQL.Strings = (
      'select '#21592#24037#20449#24687'.*,'#37096#38376#20449#24687'.'#37096#38376#21517#31216
      'from '#21592#24037#20449#24687','#37096#38376#20449#24687
      'where '#21592#24037#20449#24687'.'#37096#38376#32534#21495'='#37096#38376#20449#24687'.'#37096#38376#32534#21495' and '#21592#24037#20449#24687'.'#37096#38376#32534#21495' like :pbmbh')
    Left = 56
    Top = 72
    ParamData = <
      item
        DataType = ftString
        Name = 'pbmbh'
        ParamType = ptInput
      end>
    object QryYgBDEDesigner: TStringField
      FieldName = #24037#21495
      Origin = 'DBGSGL.'#21592#24037#20449#24687'.'#24037#21495
      FixedChar = True
      Size = 4
    end
    object QryYgBDEDesigner2: TStringField
      FieldName = #22995#21517
      Origin = 'DBGSGL.'#21592#24037#20449#24687'.'#22995#21517
      FixedChar = True
      Size = 10
    end
    object QryYgBDEDesigner3: TStringField
      FieldName = #37096#38376#32534#21495
      Origin = 'DBGSGL.'#21592#24037#20449#24687'.'#37096#38376#32534#21495
      FixedChar = True
      Size = 30
    end
    object QryYgBDEDesigner4: TBooleanField
      FieldName = #24615#21035
      Origin = 'DBGSGL.'#21592#24037#20449#24687'.'#24615#21035
      DisplayValues = #30007';'#22899
    end
    object QryYgBDEDesigner5: TBooleanField
      FieldName = #20154#21592#31867#21035
      Origin = 'DBGSGL.'#21592#24037#20449#24687'.'#20154#21592#31867#21035
      DisplayValues = #27491#24335#24037';'#22806#21253#24037
    end
    object QryYgBDEDesigner6: TIntegerField
      FieldName = #20998#32452#32534#21495
      Origin = 'DBGSGL.'#21592#24037#20449#24687'.'#20998#32452#32534#21495
    end
    object QryYgBDEDesigner7: TStringField
      FieldName = #37096#38376#21517#31216
      Origin = 'DBGSGL.'#37096#38376#20449#24687'.'#37096#38376#21517#31216
      FixedChar = True
      Size = 30
    end
  end
  object QryBmFzGzxmTj: TQuery
    DatabaseName = 'DbGsgl'
    SQL.Strings = (
      'select '#21592#24037#20449#24687'.'#24037#21495','#22995#21517','#20154#21592#31867#21035',sum('#24037#26102') '#24635#24037#26102
      'from '#21592#24037#20449#24687','#27599#26085#24037#26102
      'where '#21592#24037#20449#24687'.'#24037#21495'='#27599#26085#24037#26102'.'#24037#21495' and '#21592#24037#20449#24687'.'#24037#21495
      
        'in (select '#24037#21495' from '#21592#24037#20449#24687' where '#20998#32452#32534#21495'=:myfzdm) and '#26085#26399' between :myda' +
        'te1 and :mydate2'
      'and '#27599#26085#24037#26102'.'#37096#38376#24037#20316#39033#30446#32534#21495'=:mygzxm'
      'group by '#21592#24037#20449#24687'.'#24037#21495','#22995#21517','#20154#21592#31867#21035
      'order by '#21592#24037#20449#24687'.'#24037#21495
      ' ')
    Left = 392
    Top = 192
    ParamData = <
      item
        DataType = ftInteger
        Name = 'myfzdm'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'mydate1'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'mydate2'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'mygzxm'
        ParamType = ptInput
      end>
    object QryBmFzGzxmTjBDEDesigner: TStringField
      FieldName = #24037#21495
      FixedChar = True
      Size = 4
    end
    object QryBmFzGzxmTjBDEDesigner2: TStringField
      FieldName = #22995#21517
      FixedChar = True
      Size = 10
    end
    object QryBmFzGzxmTjBDEDesigner3: TBooleanField
      FieldName = #20154#21592#31867#21035
      DisplayValues = #27491#24335#24037';'#22806#21253#24037
    end
    object QryBmFzGzxmTjBDEDesigner4: TFloatField
      FieldName = #24635#24037#26102
    end
  end
  object DSBmFzGzxmTj: TDataSource
    DataSet = QryBmFzGzxmTj
    Left = 392
    Top = 248
  end
  object QryBmFzTj: TQuery
    DatabaseName = 'DbGsgl'
    SQL.Strings = (
      'select '#21592#24037#20449#24687'.'#24037#21495','#22995#21517','#20154#21592#31867#21035',sum('#24037#26102') '#24635#24037#26102
      'from '#27599#26085#24037#26102','#21592#24037#20449#24687
      
        'where '#27599#26085#24037#26102'.'#24037#21495'='#21592#24037#20449#24687'.'#24037#21495' and '#27599#26085#24037#26102'.'#24037#21495' in (select '#24037#21495' from '#21592#24037#20449#24687' where ' +
        #20998#32452#32534#21495'=:myfzdm) and '#26085#26399' between :mydate1 and :mydate2'
      'group by '#21592#24037#20449#24687'.'#24037#21495','#22995#21517','#20154#21592#31867#21035
      'order by '#21592#24037#20449#24687'.'#24037#21495)
    Left = 456
    Top = 192
    ParamData = <
      item
        DataType = ftInteger
        Name = 'myfzdm'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'mydate1'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'mydate2'
        ParamType = ptInput
      end>
    object QryBmFzTjBDEDesigner: TStringField
      FieldName = #24037#21495
      FixedChar = True
      Size = 4
    end
    object QryBmFzTjBDEDesigner2: TStringField
      FieldName = #22995#21517
      FixedChar = True
      Size = 10
    end
    object QryBmFzTjBDEDesigner3: TBooleanField
      FieldName = #20154#21592#31867#21035
      DisplayValues = #27491#24335#24037';'#22806#21253#24037
    end
    object QryBmFzTjBDEDesigner4: TFloatField
      FieldName = #24635#24037#26102
    end
  end
  object DsBmFztj: TDataSource
    DataSet = QryBmFzTj
    Left = 456
    Top = 248
  end
  object QryGsGzxmTj: TQuery
    DatabaseName = 'DbGsgl'
    SQL.Strings = (
      'select '#37096#38376#24037#20316#39033#30446#21517#31216'  '#24037#20316#39033#30446',SumGroup.*'
      'From '#37096#38376#24037#20316#39033#30446','
      '(select '#37096#38376#24037#20316#39033#30446#32534#21495','#39#22806#21253#24037#39' '#20154#21592#31867#21035',sum('#24037#26102') '#24635#24037#26102','
      'SUM(CASE '#19978#29677#31867#22411' WHEN 1 THEN '#24037#26102' ELSE 0 END) AS '#27491#24120#19978#29677','
      'SUM(CASE '#19978#29677#31867#22411' WHEN 2 THEN '#24037#26102' ELSE 0 END) AS '#24310#38271#21152#29677','
      'SUM(CASE '#19978#29677#31867#22411' WHEN 3 THEN '#24037#26102' ELSE 0 END) AS '#20241#24687#26085#21152#29677','
      'SUM(CASE '#19978#29677#31867#22411' WHEN 4 THEN '#24037#26102' ELSE 0 END) AS '#33410#26085#21152#29677
      'from '#27599#26085#24037#26102
      'where ('#26085#26399' between :mydate1 and :mydate2) AND'
      
        #24037#21495' in (select '#24037#21495' from '#21592#24037#20449#24687' where '#37096#38376#32534#21495' like :mydepno AND '#20154#21592#31867#21035'='#39'0'#39 +
        ')'
      'GROUP BY '#37096#38376#24037#20316#39033#30446#32534#21495
      'UNION'
      'select '#37096#38376#24037#20316#39033#30446#32534#21495','#39#27491#24335#24037#39' '#20154#21592#31867#21035',sum('#24037#26102') '#24635#24037#26102','
      'SUM(CASE '#19978#29677#31867#22411' WHEN 1 THEN '#24037#26102' ELSE 0 END) AS '#27491#24120#19978#29677','
      'SUM(CASE '#19978#29677#31867#22411' WHEN 2 THEN '#24037#26102' ELSE 0 END) AS '#24310#38271#21152#29677','
      'SUM(CASE '#19978#29677#31867#22411' WHEN 3 THEN '#24037#26102' ELSE 0 END) AS '#20241#24687#26085#21152#29677','
      'SUM(CASE '#19978#29677#31867#22411' WHEN 4 THEN '#24037#26102' ELSE 0 END) AS '#33410#26085#21152#29677
      'from '#27599#26085#24037#26102
      'where ('#26085#26399' between :mydate1 and :mydate2) AND'
      
        #24037#21495' in (select '#24037#21495' from '#21592#24037#20449#24687' where '#37096#38376#32534#21495' like :mydepno AND '#20154#21592#31867#21035'='#39'1'#39 +
        ')'
      'GROUP BY '#37096#38376#24037#20316#39033#30446#32534#21495') As SumGroup'
      'where  '#37096#38376#24037#20316#39033#30446'.'#37096#38376#24037#20316#39033#30446#32534#21495'=SumGroup.'#37096#38376#24037#20316#39033#30446#32534#21495
      '')
    Left = 248
    Top = 192
    ParamData = <
      item
        DataType = ftString
        Name = 'mydate1'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'mydate2'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'mydepno'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'mydate1'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'mydate2'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'mydepno'
        ParamType = ptInput
      end>
    object QryGsGzxmTjBDEDesigner: TStringField
      FieldName = #24037#20316#39033#30446
      FixedChar = True
      Size = 30
    end
    object QryGsGzxmTjBDEDesigner2: TIntegerField
      FieldName = #37096#38376#24037#20316#39033#30446#32534#21495
    end
    object QryGsGzxmTjBDEDesigner3: TStringField
      FieldName = #20154#21592#31867#21035
      FixedChar = True
      Size = 6
    end
    object QryGsGzxmTjBDEDesigner4: TFloatField
      FieldName = #24635#24037#26102
    end
    object QryGsGzxmTjBDEDesigner5: TFloatField
      FieldName = #27491#24120#19978#29677
    end
    object QryGsGzxmTjBDEDesigner6: TFloatField
      FieldName = #24310#38271#21152#29677
    end
    object QryGsGzxmTjBDEDesigner7: TFloatField
      FieldName = #20241#24687#26085#21152#29677
    end
    object QryGsGzxmTjBDEDesigner8: TFloatField
      FieldName = #33410#26085#21152#29677
    end
  end
  object DSGsGzxmTj: TDataSource
    DataSet = QryGsGzxmTj
    Left = 248
    Top = 248
  end
  object QryGsZxTj: TQuery
    DatabaseName = 'DbGsgl'
    SQL.Strings = (
      'select '#27599#26085#24037#26102'.'#24037#21495','#22995#21517','#20154#21592#31867#21035',sum('#24037#26102') '#24635#24037#26102' from '#27599#26085#24037#26102','#21592#24037#20449#24687
      
        'where '#27599#26085#24037#26102'.'#24037#21495'='#21592#24037#20449#24687'.'#24037#21495' and '#27599#26085#24037#26102'.'#24037#21495' in (select '#24037#21495' from '#21592#24037#20449#24687' where ' +
        #37096#38376#32534#21495' like :mydepno1 and '#20154#21592#31867#21035'=:mylb)'
      
        ' and '#37096#38376#24037#20316#39033#30446#32534#21495' in (select '#37096#38376#24037#20316#39033#30446#32534#21495' from '#37096#38376#24037#20316#39033#30446' where '#37096#38376#32534#21495'=:mydepn' +
        'o2 and '#20844#21496#24037#20316#39033#30446#32534#21495' in (select '#20844#21496#24037#20316#39033#30446#32534#21495' from '#20844#21496#24037#20316#39033#30446' where '#26159#21542#22312#32447'=:myzx' +
        'flag))'
      ' and '#26085#26399' between :mydate1 and :mydate2'
      'group by '#27599#26085#24037#26102'.'#24037#21495','#22995#21517','#20154#21592#31867#21035
      'order by '#27599#26085#24037#26102'.'#24037#21495' '
      ' '
      ' ')
    Left = 320
    Top = 192
    ParamData = <
      item
        DataType = ftString
        Name = 'mydepno1'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'mylb'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'mydepno2'
        ParamType = ptInput
      end
      item
        DataType = ftBoolean
        Name = 'myzxflag'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'mydate1'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'mydate2'
        ParamType = ptInput
      end>
    object QryGsZxTjBDEDesigner: TStringField
      FieldName = #24037#21495
      FixedChar = True
      Size = 4
    end
    object QryGsZxTjBDEDesigner2: TStringField
      FieldName = #22995#21517
      FixedChar = True
      Size = 10
    end
    object QryGsZxTjBDEDesigner3: TBooleanField
      FieldName = #20154#21592#31867#21035
      DisplayValues = #27491#24335#24037';'#22806#21253#24037
    end
    object QryGsZxTjBDEDesigner4: TFloatField
      FieldName = #24635#24037#26102
    end
  end
  object DsGsZxTj: TDataSource
    DataSet = QryGsZxTj
    Left = 320
    Top = 248
  end
  object QryXtgn: TQuery
    DatabaseName = 'DbGsgl'
    SQL.Strings = (
      'select * from '#31995#32479#21151#33021)
    Left = 200
    Top = 8
  end
  object QryUser: TQuery
    DatabaseName = 'DbGsgl'
    SessionName = 'Default'
    RequestLive = True
    SQL.Strings = (
      'select * from '#25805#20316#29992#25143#20449#24687
      'where '#29992#25143#24037#21495'<>'#39'Administrator'#39
      'order by '#29992#25143#24037#21495)
    Left = 16
    Top = 72
    object QryUserBDEDesigner: TStringField
      FieldName = #29992#25143#24037#21495
      Origin = 'DBGSGL.'#25805#20316#29992#25143#20449#24687'.'#29992#25143#24037#21495
      FixedChar = True
      Size = 15
123

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -