skycwbb1.dfm

来自「日昌餐饮管理系统是用Delphi7+SQL写的管理系统」· DFM 代码 · 共 1,020 行 · 第 1/3 页

        Size = -1
        Value = Null
      end
      item
        Name = 'cs10'
        Size = -1
        Value = Null
      end
      item
        Name = 'cs11'
        Size = -1
        Value = Null
      end
      item
        Name = 'cs12'
        Size = -1
        Value = Null
      end
      item
        Name = 'cs13'
        Size = -1
        Value = Null
      end
      item
        Name = 'cs14'
        Size = -1
        Value = Null
      end
      item
        Name = 'cs15'
        Size = -1
        Value = Null
      end
      item
        Name = 'cs16'
        Size = -1
        Value = Null
      end
      item
        Name = 'cs17'
        Size = -1
        Value = Null
      end
      item
        Name = 'cs18'
        Size = -1
        Value = Null
      end
      item
        Name = 'cs19'
        Size = -1
        Value = Null
      end
      item
        Name = 'cs20'
        Size = -1
        Value = Null
      end
      item
        Name = 'cs21'
        Size = -1
        Value = Null
      end
      item
        Name = 'cs22'
        Size = -1
        Value = Null
      end
      item
        Name = 'cs23'
        Size = -1
        Value = Null
      end
      item
        Name = 'cs24'
        Size = -1
        Value = Null
      end
      item
        Name = 'cs25'
        Size = -1
        Value = Null
      end
      item
        Name = 'cs26'
        Size = -1
        Value = Null
      end
      item
        Name = 'cs27'
        Size = -1
        Value = Null
      end
      item
        Name = 'cs28'
        Size = -1
        Value = Null
      end
      item
        Name = 'cs29'
        Size = -1
        Value = Null
      end
      item
        Name = 'cs30'
        Size = -1
        Value = Null
      end
      item
        Name = 'cs31'
        Size = -1
        Value = Null
      end
      item
        Name = 'cs32'
        Size = -1
        Value = Null
      end
      item
        Name = 'cs33'
        Size = -1
        Value = Null
      end
      item
        Name = 'cs34'
        Size = -1
        Value = Null
      end
      item
        Name = 'cs1'
        Size = -1
        Value = Null
      end
      item
        Name = 'cs2'
        Size = -1
        Value = Null
      end>
    Left = 296
    Top = 40
  end
  object prtsetQ: TADOQuery
    Connection = mainForm.RJSADO
    Parameters = <
      item
        Name = 'cs1'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 1
        Value = Null
      end>
    SQL.Strings = (
      'select *'
      'from prtset where type=:cs1')
    Left = 152
    Top = 39
  end
  object ExcelApplication1: TExcelApplication
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    AutoQuit = False
    Left = 232
    Top = 24
  end
  object ExcelWorksheet1: TExcelWorksheet
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    Left = 272
    Top = 24
  end
  object ExcelWorkbook1: TExcelWorkbook
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    Left = 320
    Top = 32
  end
  object ADODataSet2: TADODataSet
    Connection = mainForm.RJSADO
    CursorType = ctStatic
    CommandText = 
      'select  '#39'000'#39' as '#21495#30721', '#39'*'#20840#37096'*'#39' as '#25910#38134#21592','#13#10'"'#27880#20876#38144#21806'" = (select sum(je) fr' +
      'om dcd where rq>=:cs5 and rq <=:cs6 and fkbz=1),'#13#10'"'#20248#24800#25968#37327'" = (sele' +
      'ct count(djh) from dcd where je<>dj and zfbz=0 and fkbz=1 and rq' +
      '>=:cs7 and rq <=:cs8),'#13#10'"'#20248#24800#37329#39069'" = (select sum(dj - je ) from dcd ' +
      'where je<>dj and zfbz=0 and fkbz=1 and rq>=:cs9 and rq <=:cs10),' +
      #13#10'"'#31614#21333#25968#37327'" = 0,'#13#10'"'#31614#21333#37329#39069'" = 0,'#13#10'"'#24223#21333#25968#37327'" = (select count(distinct djh)' +
      ' from dcd where  zfbz=1 and fkbz=0 and rq>=:cs11 and rq <=:cs12)' +
      ','#13#10'"'#24223#21333#37329#39069'" = (select sum( je ) from dcd where  zfbz=1 and fkbz=0 ' +
      'and rq>=:cs13 and rq <=:cs14),'#13#10'"'#36864#21333#25968#37327'" = (select count(distinct ' +
      'djh) from dcd where  zfbz=1 and fkbz=1 and rq>=:cs15 and rq <=:c' +
      's16),'#13#10'"'#36864#21333#37329#39069'" = (select sum( je ) from dcd where  zfbz=1 and fkb' +
      'z=1 and rq>=:cs17 and rq <=:cs18),'#13#10'"'#20854#20182'"        = (select sum(ml' +
      'je) from new_djh,dcd  where new_djh.djh=dcd.djh  and dcd.rq>=:cs' +
      '19 and dcd.rq <=:cs20),'#13#10'"'#23454#25910#37329#39069'" =(select sum( fkje) from fkwj wh' +
      'ere rq>=:cs21 and rq <=:cs22),'#13#10'"'#22530#39135#25968#37327'" = (select count(djh) from' +
      ' dcd where  zfbz=0 and fkbz=1 and wmbz=0  and rq>=:cs23 and rq <' +
      '=:cs24),'#13#10'"'#22530#39135#37329#39069'" = (select sum( je ) from dcd where  zfbz=0 and ' +
      'fkbz=1 and wmbz=0  and rq>=:cs25 and rq <=:cs26),'#13#10'"'#22806#21334#25968#37327'" = (sel' +
      'ect count(djh) from dcd where  zfbz=0 and fkbz=1 and wmbz=1  and' +
      ' rq>=:cs27 and rq <=:cs28),'#13#10'"'#22806#21334#37329#39069'" = (select sum( je ) from dcd' +
      ' where  zfbz=0 and fkbz=1 and wmbz=1  and rq>=:cs29 and rq <=:cs' +
      '30),'#13#10'"'#21333#22343#20132#26131#39069'" = (select sum( je ) / count(distinct djh )  from d' +
      'cd where  zfbz=0 and fkbz=1  and rq>=:cs31 and rq <=:cs32),'#13#10'"'#20154#22343 +
      #20132#26131#39069'" = (select sum( dcd.je ) / sum(distinct new_djh.xfrs )  from' +
      ' dcd,  new_djh where  new_djh.djh=dcd.djh and dcd.zfbz=0 and dcd' +
      '.fkbz=1  and dcd.rq>=:cs33 and dcd.rq <=:cs34)'#13#10#13#10'from dcd a'#13#10'ha' +
      'ving  (select sum(je) from dcd where rq>=:cs1 and rq <=:cs2 and ' +
      'fkbz=1) >0'#13#10
    Parameters = <
      item
        Name = 'cs5'
        Attributes = [paNullable]
        DataType = ftDateTime
        Precision = 16
        Size = 16
        Value = Null
      end
      item
        Name = 'cs6'
        Attributes = [paNullable]
        DataType = ftDateTime
        Precision = 16
        Size = 16
        Value = Null
      end
      item
        Name = 'cs7'
        Attributes = [paNullable]
        DataType = ftDateTime
        Precision = 16
        Size = 16
        Value = Null
      end
      item
        Name = 'cs8'
        Attributes = [paNullable]
        DataType = ftDateTime
        Precision = 16
        Size = 16
        Value = Null
      end
      item
        Name = 'cs9'
        Attributes = [paNullable]
        DataType = ftDateTime
        Precision = 16
        Size = 16
        Value = Null
      end
      item
        Name = 'cs10'
        Attributes = [paNullable]
        DataType = ftDateTime
        Precision = 16
        Size = 16
        Value = Null
      end
      item
        Name = 'cs11'
        Attributes = [paNullable]
        DataType = ftDateTime
        Precision = 16
        Size = 16
        Value = Null
      end
      item
        Name = 'cs12'
        Attributes = [paNullable]
        DataType = ftDateTime
        Precision = 16
        Size = 16
        Value = Null
      end
      item
        Name = 'cs13'
        Attributes = [paNullable]
        DataType = ftDateTime
        Precision = 16
        Size = 16
        Value = Null
      end
      item
        Name = 'cs14'
        Attributes = [paNullable]
        DataType = ftDateTime
        Precision = 16
        Size = 16
        Value = Null
      end
      item
        Name = 'cs15'
        Attributes = [paNullable]
        DataType = ftDateTime
        Precision = 16
        Size = 16
        Value = Null
      end
      item
        Name = 'cs16'
        Attributes = [paNullable]
        DataType = ftDateTime
        Precision = 16
        Size = 16
        Value = Null
      end
      item
        Name = 'cs17'
        Attributes = [paNullable]
        DataType = ftDateTime
        Precision = 16
        Size = 16
        Value = Null
      end
      item
        Name = 'cs18'
        Attributes = [paNullable]
        DataType = ftDateTime
        Precision = 16
        Size = 16
        Value = Null
      end
      item
        Name = 'cs19'
        Attributes = [paNullable]
        DataType = ftDateTime
        Precision = 16
        Size = 16
        Value = Null
      end
      item
        Name = 'cs20'
        Attributes = [paNullable]
        DataType = ftDateTime
        Precision = 16
        Size = 16
        Value = Null
      end
      item
        Name = 'cs21'