consumptionsum.dfm

餐饮管理源代码 使用BDE Administrator在本地机器上添加一个Paradox数据库别名命名为WorkData

object frmConsumptionSum: TfrmConsumptionSum
  Left = 210
  Top = 119
  BorderStyle = bsDialog
  Caption = #20250#21592#28040#36153#37329#39069#26597#35810
  ClientHeight = 415
  ClientWidth = 715
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 8
    Top = 0
    Width = 169
    Height = 145
    Caption = #26597#35810#20449#24687
    TabOrder = 0
    object Label1: TLabel
      Left = 16
      Top = 24
      Width = 48
      Height = 13
      Caption = #20250#21592#32534#21495
    end
    object memberId: TEdit
      Left = 72
      Top = 20
      Width = 81
      Height = 21
      TabOrder = 0
    end
    object GroupBox2: TGroupBox
      Left = 16
      Top = 46
      Width = 145
      Height = 49
      Caption = #28040#36153#37329#39069
      TabOrder = 1
      object Label2: TLabel
        Left = 64
        Top = 20
        Width = 12
        Height = 13
        Caption = #33267
      end
      object lowMoney: TEdit
        Left = 8
        Top = 16
        Width = 57
        Height = 21
        TabOrder = 0
      end
      object highMoney: TEdit
        Left = 80
        Top = 16
        Width = 57
        Height = 21
        TabOrder = 1
      end
    end
    object Button2: TButton
      Left = 16
      Top = 104
      Width = 65
      Height = 25
      Caption = #26597'  '#35810
      TabOrder = 2
      OnClick = Button2Click
    end
    object Button3: TButton
      Left = 88
      Top = 104
      Width = 65
      Height = 25
      Caption = #28165'  '#23631
      TabOrder = 3
      OnClick = Button3Click
    end
  end
  object GroupBox3: TGroupBox
    Left = 8
    Top = 144
    Width = 169
    Height = 265
    Caption = #26597#35810#32467#26524
    TabOrder = 1
    object DBGrid1: TDBGrid
      Left = 8
      Top = 15
      Width = 153
      Height = 242
      Color = clBtnShadow
      DataSource = DataSource2
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
  end
  object GroupBox4: TGroupBox
    Left = 184
    Top = 0
    Width = 529
    Height = 409
    Caption = #28040#36153#26126#32454
    TabOrder = 2
    object DBGrid2: TDBGrid
      Left = 8
      Top = 16
      Width = 513
      Height = 385
      Color = clBtnShadow
      DataSource = DataSource1
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
  end
  object sqlConsumptionInfo: TQuery
    DatabaseName = 'WorkData'
    Left = 296
    Top = 160
  end
  object DataSource1: TDataSource
    DataSet = sqlConsumptionInfo
    Left = 328
    Top = 160
  end
  object sqlConsumptionSum: TQuery
    DatabaseName = 'WorkData'
    Left = 24
    Top = 232
  end
  object DataSource2: TDataSource
    DataSet = sqlConsumptionSum
    Left = 80
    Top = 232
  end
end