tj2_caizepeng042_04.dfm

这个是我的数据库的课程设计:超市商品数据管理系统的设计,,采用面向C/S模式的通用开发工具Delphi设计其前台的操作

object Form9: TForm9
  Left = 196
  Top = 188
  Width = 757
  Height = 444
  Caption = #38144#21806#32479#35745
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 8
    Top = 24
    Width = 185
    Height = 345
    Caption = #19968#22825#20869#25490#21517'100'
    TabOrder = 0
    object DBGrid1: TDBGrid
      Left = 8
      Top = 24
      Width = 161
      Height = 321
      DataSource = DataSource1
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
  end
  object GroupBox2: TGroupBox
    Left = 200
    Top = 24
    Width = 545
    Height = 345
    Caption = #19968#21608#20869#27809#26377#38144#21806#30340#21830#21697
    TabOrder = 1
    object DBGrid2: TDBGrid
      Left = 8
      Top = 24
      Width = 529
      Height = 313
      DataSource = DataSource2
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
  end
  object ADOQuery1: TADOQuery
    Tag = 1
    Active = True
    Connection = Form1.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select '#38144#21806#27425#25968','#21830#21697#32534#21495' from (select top 2 count('#21830#21697#32534#21495') as '#38144#21806#27425#25968','#21830#21697#32534#21495' fro' +
        'm sell_caizepeng042_04 where '#38144#21806#26102#38388'>=DATEADD (day,-1,getdate()) an' +
        'd '#38144#21806#26102#38388'<=getdate() group by '#21830#21697#32534#21495') '#38144#21806#27425#25968' where '#38144#21806#27425#25968' in(select '#38144#21806#27425#25968' ' +
        'from (select count('#21830#21697#32534#21495') as '#38144#21806#27425#25968' from sell_caizepeng042_04 group' +
        ' by '#21830#21697#32534#21495') '#38144#21806#27425#25968' group by '#38144#21806#27425#25968') order by '#38144#21806#27425#25968' desc')
    Left = 160
    Top = 376
  end
  object ADOQuery2: TADOQuery
    Active = True
    Connection = Form1.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select * from product_caizepeng042_04 where '#21830#21697#32534#21495' not in(select '#21830 +
        #21697#32534#21495' from sell_caizepeng042_04 where '#38144#21806#26102#38388'<=getdate() and '#38144#21806#26102#38388'>=(s' +
        'elect dateadd(day,-7,getdate())))')
    Left = 200
    Top = 376
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 248
    Top = 376
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery2
    Left = 288
    Top = 376
  end
end