cyyd.dfm

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

        33333337F337F337F333333CCCC94444733333373337F3373F3333CCCCC94444
        4333337F3337FF337F3333CCCCC94444473333733F7773FF73F33CCCCC393444
        443337F37737F773F7F33CCC33393374447337F73337F33737FFCCC333393333
        444377733337F333777FC3333339333337437333333733333373}
      NumGlyphs = 2
      OnClick = SpeedButton5Click
    end
    object SpeedButton6: TSpeedButton
      Left = 156
      Top = 51
      Width = 51
      Height = 37
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003C3333339333
        337437FFF3337F3333F73CCC33339333344437773F337F33377733CCC3339337
        4447337F73FF7F3F337F33CCCCC3934444433373F7737F773373333CCCCC9444
        44733337F337773337F3333CCCCC9444443333373F337F3337333333CCCC9444
        473333337F337F337F333333CCCC94444333333373F37F33733333333CCC9444
        7333333337F37F37F33333333CCC944433333333373F7F373333333333CC9447
        33333333337F7F7F3333333333CC94433333333333737F7333333333333C9473
        33333333333737F333333333333C943333333333333737333333333333339733
        3333333333337F33333333333333933333333333333373333333}
      NumGlyphs = 2
      OnClick = SpeedButton6Click
    end
    object SpeedButton7: TSpeedButton
      Left = 156
      Top = 88
      Width = 51
      Height = 37
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333393333
        333333333337F3333333333333397333333333333337FF333333333333C94333
        3333333333737F333333333333C9473333333333337373F3333333333CC94433
        3333333337F7F7F3333333333CC94473333333333737F73F33333333CCC94443
        333333337F37F37F33333333CCC94447333333337337F373F333333CCCC94444
        33333337F337F337F333333CCCC94444733333373337F3373F3333CCCCC94444
        4333337F3337FF337F3333CCCCC94444473333733F7773FF73F33CCCCC393444
        443337F37737F773F7F33CCC33393374447337F73337F33737FFCCC333393333
        444377733337F333777FC3333339333337437333333733333373}
      NumGlyphs = 2
      OnClick = SpeedButton7Click
    end
    object SpeedButton8: TSpeedButton
      Left = 255
      Top = 50
      Width = 51
      Height = 37
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003C3333339333
        337437FFF3337F3333F73CCC33339333344437773F337F33377733CCC3339337
        4447337F73FF7F3F337F33CCCCC3934444433373F7737F773373333CCCCC9444
        44733337F337773337F3333CCCCC9444443333373F337F3337333333CCCC9444
        473333337F337F337F333333CCCC94444333333373F37F33733333333CCC9444
        7333333337F37F37F33333333CCC944433333333373F7F373333333333CC9447
        33333333337F7F7F3333333333CC94433333333333737F7333333333333C9473
        33333333333737F333333333333C943333333333333737333333333333339733
        3333333333337F33333333333333933333333333333373333333}
      NumGlyphs = 2
      OnClick = SpeedButton8Click
    end
    object SpeedButton9: TSpeedButton
      Left = 255
      Top = 87
      Width = 51
      Height = 37
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333393333
        333333333337F3333333333333397333333333333337FF333333333333C94333
        3333333333737F333333333333C9473333333333337373F3333333333CC94433
        3333333337F7F7F3333333333CC94473333333333737F73F33333333CCC94443
        333333337F37F37F33333333CCC94447333333337337F373F333333CCCC94444
        33333337F337F337F333333CCCC94444733333373337F3373F3333CCCCC94444
        4333337F3337FF337F3333CCCCC94444473333733F7773FF73F33CCCCC393444
        443337F37737F773F7F33CCC33393374447337F73337F33737FFCCC333393333
        444377733337F333777FC3333339333337437333333733333373}
      NumGlyphs = 2
      OnClick = SpeedButton9Click
    end
    object Edit1: TEdit
      Left = 10
      Top = 77
      Width = 46
      Height = 24
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      Text = '0'
    end
    object Edit2: TEdit
      Left = 110
      Top = 77
      Width = 46
      Height = 24
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      Text = '0'
    end
    object Edit3: TEdit
      Left = 209
      Top = 76
      Width = 46
      Height = 24
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      Text = '0'
    end
    object BitBtn9: TBitBtn
      Left = 80
      Top = 140
      Width = 75
      Height = 31
      Caption = #30830#35748
      Default = True
      TabOrder = 3
      OnClick = BitBtn9Click
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333330000333333333333333333333333F33333333333
        00003333344333333333333333388F3333333333000033334224333333333333
        338338F3333333330000333422224333333333333833338F3333333300003342
        222224333333333383333338F3333333000034222A22224333333338F338F333
        8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
        33333338F83338F338F33333000033A33333A222433333338333338F338F3333
        0000333333333A222433333333333338F338F33300003333333333A222433333
        333333338F338F33000033333333333A222433333333333338F338F300003333
        33333333A222433333333333338F338F00003333333333333A22433333333333
        3338F38F000033333333333333A223333333333333338F830000333333333333
        333A333333333333333338330000333333333333333333333333333333333333
        0000}
      NumGlyphs = 2
    end
    object BitBtn10: TBitBtn
      Left = 168
      Top = 140
      Width = 75
      Height = 31
      Caption = #21462#28040
      TabOrder = 4
      OnClick = BitBtn10Click
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333333333000033338833333333333333333F333333333333
        0000333911833333983333333388F333333F3333000033391118333911833333
        38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
        911118111118333338F3338F833338F3000033333911111111833333338F3338
        3333F8330000333333911111183333333338F333333F83330000333333311111
        8333333333338F3333383333000033333339111183333333333338F333833333
        00003333339111118333333333333833338F3333000033333911181118333333
        33338333338F333300003333911183911183333333383338F338F33300003333
        9118333911183333338F33838F338F33000033333913333391113333338FF833
        38F338F300003333333333333919333333388333338FFF830000333333333333
        3333333333333333333888330000333333333333333333333333333333333333
        0000}
      NumGlyphs = 2
    end
  end
  object ExcelApplication1: TExcelApplication
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    AutoQuit = False
    Left = 256
    Top = 32
  end
  object ExcelWorksheet1: TExcelWorksheet
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    Left = 288
    Top = 32
  end
  object ExcelWorkbook1: TExcelWorkbook
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    Left = 320
    Top = 32
  end
  object ADOQuery1: TADOQuery
    Connection = mainForm.RJSADO
    CursorType = ctStatic
    AfterScroll = ADOQuery1AfterScroll
    Parameters = <>
    SQL.Strings = (
      'select *'
      'from ctyd'
      'where zxbz=0')
    Left = 416
    Top = 8
    object ADOQuery1ID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object ADOQuery1rq: TDateTimeField
      FieldName = 'rq'
    end
    object ADOQuery1ct: TStringField
      FieldName = 'ct'
      Size = 10
    end
    object ADOQuery1th: TStringField
      FieldName = 'th'
      Size = 10
    end
    object ADOQuery1qssj: TDateTimeField
      FieldName = 'qssj'
    end
    object ADOQuery1zzsj: TDateTimeField
      FieldName = 'zzsj'
    end
    object ADOQuery1rs: TIntegerField
      FieldName = 'rs'
    end
    object ADOQuery1yq: TStringField
      FieldName = 'yq'
      Size = 100
    end
    object ADOQuery1jbr: TStringField
      FieldName = 'jbr'
    end
    object ADOQuery1ydr: TStringField
      FieldName = 'ydr'
    end
    object ADOQuery1ydsj: TDateTimeField
      FieldName = 'ydsj'
    end
    object ADOQuery1lxfs: TStringField
      FieldName = 'lxfs'
      Size = 50
    end
    object ADOQuery1bz: TStringField
      FieldName = 'bz'
      Size = 100
    end
    object ADOQuery1zxbz: TBooleanField
      FieldName = 'zxbz'
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 448
    Top = 8
  end
  object ADOQuery2: TADOQuery
    Connection = mainForm.RJSADO
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select *'
      'from canting')
    Left = 168
    Top = 64
  end
  object ADOQuery3: TADOQuery
    Connection = mainForm.RJSADO
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'ctbh'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = '0001'
      end>
    SQL.Strings = (
      'select *'
      'from cantai'
      'where ctbh=:ctbh')
    Left = 216
    Top = 64
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery2
    Left = 168
    Top = 96
  end
  object DataSource3: TDataSource
    DataSet = ADOQuery3
    Left = 224
    Top = 96
  end
  object ADOQuery4: TADOQuery
    Connection = mainForm.RJSADO
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'cs1'
        Attributes = [paNullable]
        DataType = ftDateTime
        Precision = 16
        Size = 16
        Value = Null
      end
      item
        Name = 'cs2'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = Null
      end
      item
        Name = 'cs3'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = Null
      end
      item
        Name = 'cs4'
        Attributes = [paNullable]
        DataType = ftDateTime
        Precision = 16
        Size = 16
        Value = Null
      end
      item
        Name = 'cs5'
        Attributes = [paNullable]
        DataType = ftDateTime
        Precision = 16
        Size = 16
        Value = Null
      end>
    SQL.Strings = (
      'select *'
      'from ctyd'
      'where zxbz=0 and rq=:cs1 and ct=:cs2 and th=:cs3'
      '      and qssj<=:cs4 and zzsj>=:cs5')
    Left = 416
    Top = 73
  end
end