skycwbb2.dfm

日昌餐饮管理系统是用Delphi7+SQL写的管理系统

      C0C0C0C0C0C0C0C0000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF808080
      FFFFFFFFFFFFFFFFFFC0C0C0FFFFFFFFFFFFFFFFFFC0C0C0FFFFFFFFFFFFFFFF
      FFC0C0C0FFFFFFFFFFFFFFFFFF000080C0C0C0FFFFFFC0C0C0000080FFFFFFFF
      FFFFFFFFFFC0C0C0000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF808080
      FFFFFFFFFFFFFFFFFFC0C0C0FFFFFFFFFFFFFFFFFFC0C0C0FFFFFFFFFFFFFFFF
      FFC0C0C0FFFFFFFFFFFFFFFFFF000080FFFFFFFFFFFFFFFFFF000080FFFFFFFF
      FFFFFFFFFFC0C0C0000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF808080
      FFFFFFFFFFFFFFFFFFC0C0C0FFFFFFFFFFFFFFFFFFC0C0C0FFFFFFFFFFFFFFFF
      FFC0C0C0FFFFFFFFFFFFFFFFFF000080C0C0C0FFFFFFC0C0C0000080FFFFFFFF
      FFFFFFFFFFC0C0C0000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF808080
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0000080000080000080C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF808080
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0FFFFFFFFFFFFFFFFFFC0C0C0FFFFFFFFFFFFFFFFFFC0C0C0FFFFFFFF
      FFFFFFFFFFC0C0C0000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF808080
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0FFFFFFFFFFFFFFFFFFC0C0C0FFFFFFFFFFFFFFFFFFC0C0C0FFFFFFFF
      FFFFFFFFFFC0C0C0000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF808080
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0FFFFFFFFFFFFFFFFFFC0C0C0FFFFFFFFFFFFFFFFFFC0C0C0FFFFFFFF
      FFFFFFFFFFC0C0C0000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF808080
      8080808080808080808080808080808080808080808080808080808080808080
      8080808080808080808080808080808080808080808080808080808080808080
      8080808080808080000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF808080
      8000008000008000008000008000008000008000008000008000008000008000
      0080000080808080808080808080808080808080808080808080808080808080
      8080808080808080000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF808080
      8000008000008000008000008000008000008000008000008000008000008000
      0080000080808080808080808080808080808080808080808080808080808080
      8080808080808080000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF808080
      8080808080808080808080808080808080808080808080808080808080808080
      8080808080808080808080808080808080808080808080808080808080808080
      8080808080808080000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
  end
  object DBGrid1: TDBGrid
    Left = 1
    Top = 43
    Width = 227
    Height = 320
    DataSource = DataSource2
    ReadOnly = True
    TabOrder = 7
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
  end
  object DataSource1: TDataSource
    DataSet = adodataset1
    Left = 336
    Top = 53
  end
  object adodataset1: TADODataSet
    Connection = mainForm.RJSADO
    CursorType = ctStatic
    OnCalcFields = adodataset1CalcFields
    OnFilterRecord = adodataset1FilterRecord
    CommandText = 
      'select canting.ctmc '#39184#21381#21517#31216', lbbm.lbmc '#31867#21035#21517#31216', dcd.mc '#33756#21697#21517#31216', sum(sl) '#25968 +
      #37327', sum(je) '#37329#39069#13#10'from canting, lbbm,dcd'#13#10'where dcd.lb=lbbm.lbbm an' +
      'd dcd.th=canting.ctbh'#13#10'           and dcd.rq>=:cs1 and dcd.rq<=:' +
      'cs2'#13#10'           and dcd.fkbz=1 and dcd.zfbz=0'#13#10'group by canting.' +
      'ctmc,lbbm.lbmc,dcd.mc'
    DataSource = DataSource2
    Parameters = <
      item
        Name = 'cs1'
        Attributes = [paNullable]
        DataType = ftDateTime
        Precision = 16
        Size = 16
        Value = Null
      end
      item
        Name = 'cs2'
        Attributes = [paNullable]
        DataType = ftDateTime
        Precision = 16
        Size = 16
        Value = Null
      end>
    Left = 296
    Top = 40
    object adodataset1DSDesigner: TStringField
      DisplayWidth = 10
      FieldName = #39184#21381#21517#31216
      Size = 50
    end
    object adodataset1DSDesigner2: TStringField
      DisplayWidth = 10
      FieldName = #31867#21035#21517#31216
      Size = 50
    end
    object adodataset1DSDesigner3: TStringField
      DisplayWidth = 20
      FieldName = #33756#21697#21517#31216
      Size = 50
    end
    object adodataset1DSDesigner4: TBCDField
      DisplayWidth = 10
      FieldName = #25968#37327
      ReadOnly = True
      Precision = 32
      Size = 2
    end
    object adodataset1DSDesigner5: TBCDField
      DisplayWidth = 10
      FieldName = #37329#39069
      ReadOnly = True
      Precision = 19
    end
    object adodataset1Field: TFloatField
      FieldKind = fkCalculated
      FieldName = #21344#38144#21806'%'
      Calculated = True
    end
  end
  object prtsetQ: TADOQuery
    Connection = mainForm.RJSADO
    CursorType = ctStatic
    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
    AfterScroll = ADODataSet2AfterScroll
    OnCalcFields = ADODataSet2CalcFields
    CommandText = 
      'select canting.ctmc '#39184#21381#21517#31216', lbbm.lbmc '#31867#21035#21517#31216', sum(je) '#37329#39069#13#10'from canti' +
      'ng, lbbm,dcd'#13#10'where dcd.lb=lbbm.lbbm and dcd.th=canting.ctbh'#13#10'  ' +
      '         and dcd.rq>=:cs1 and dcd.rq<=:cs2'#13#10'           and dcd.f' +
      'kbz=1 and dcd.zfbz=0'#13#10'group by canting.ctmc,lbbm.lbmc'
    Parameters = <
      item
        Name = 'cs1'
        Attributes = [paNullable]
        DataType = ftDateTime
        Precision = 16
        Size = 16
        Value = Null
      end
      item
        Name = 'cs2'
        Attributes = [paNullable]
        DataType = ftDateTime
        Precision = 16
        Size = 16
        Value = Null
      end>
    Left = 112
    Top = 90
    object ADODataSet2DSDesigner: TStringField
      DisplayWidth = 10
      FieldName = #39184#21381#21517#31216
      Size = 50
    end
    object ADODataSet2DSDesigner2: TStringField
      DisplayWidth = 10
      FieldName = #31867#21035#21517#31216
      Size = 50
    end
    object ADODataSet2DSDesigner3: TBCDField
      DisplayWidth = 10
      FieldName = #37329#39069
      ReadOnly = True
      Precision = 19
    end
    object ADODataSet2Field: TFloatField
      FieldKind = fkCalculated
      FieldName = #21344#38144#21806'%'
      Calculated = True
    end
  end
  object DataSource2: TDataSource
    DataSet = ADODataSet2
    Left = 144
    Top = 104
  end
end