consumptionsumunit.dfm

一个很不错的系统! 查询模块方面是我编的最好的一次.几乎完美!!!!.

object frm_consumptionsum: Tfrm_consumptionsum
  Left = 297
  Top = 279
  BorderStyle = bsDialog
  Caption = #20250#21592#28040#36153#37329#39069#26597#35810'.....'
  ClientHeight = 512
  ClientWidth = 659
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 8
    Top = 8
    Width = 169
    Height = 161
    Caption = #26597#35810#20449#24687
    TabOrder = 0
    object Label1: TLabel
      Left = 16
      Top = 32
      Width = 63
      Height = 13
      Caption = #20250#21592#32534#21495'     '
    end
    object memberId: TEdit
      Left = 80
      Top = 28
      Width = 81
      Height = 21
      ImeName = #26497#21697#20116#31508#36755#20837#27861
      TabOrder = 0
      OnChange = memberIdChange
      OnDblClick = memberIdDblClick
      OnKeyPress = memberIdKeyPress
    end
    object GroupBox2: TGroupBox
      Left = 8
      Top = 62
      Width = 153
      Height = 49
      Caption = #28040#36153#37329#39069
      TabOrder = 1
      object Label2: TLabel
        Left = 72
        Top = 20
        Width = 12
        Height = 13
        Caption = #33267
      end
      object lowMoney: TEdit
        Left = 8
        Top = 16
        Width = 57
        Height = 21
        ImeName = #26497#21697#20116#31508#36755#20837#27861
        TabOrder = 0
        OnChange = lowMoneyChange
        OnKeyPress = lowMoneyKeyPress
      end
      object highMoney: TEdit
        Left = 88
        Top = 16
        Width = 57
        Height = 21
        ImeName = #26497#21697#20116#31508#36755#20837#27861
        TabOrder = 1
        OnChange = highMoneyChange
        OnKeyPress = highMoneyKeyPress
      end
    end
    object b_query: TButton
      Left = 8
      Top = 120
      Width = 65
      Height = 25
      Caption = #26597'  '#35810
      TabOrder = 2
      OnClick = b_queryClick
    end
    object b_clear: TButton
      Left = 88
      Top = 120
      Width = 65
      Height = 25
      Caption = #28165'  '#23631
      TabOrder = 3
      OnClick = b_clearClick
    end
  end
  object GroupBox3: TGroupBox
    Left = 8
    Top = 168
    Width = 169
    Height = 337
    Caption = #26597#35810#32467#26524
    TabOrder = 1
    object DBGrid1: TDBGrid
      Left = 8
      Top = 15
      Width = 153
      Height = 314
      Color = clBtnShadow
      DataSource = ds_sum
      ImeName = #26497#21697#20116#31508#36755#20837#27861
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
      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 = 8
    Width = 473
    Height = 497
    Caption = #20132#26131#26126#32454
    TabOrder = 2
    object DBGrid2: TDBGrid
      Left = 8
      Top = 16
      Width = 457
      Height = 473
      Color = clAppWorkSpace
      DataSource = ds_info
      ImeName = #26497#21697#20116#31508#36755#20837#27861
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = #21830#21697#32534#21495
          Width = 50
          Visible = True
        end
        item
          Expanded = False
          FieldName = #21830#21697#21517#31216
          Width = 70
          Visible = True
        end
        item
          Expanded = False
          FieldName = #21407#20215
          Width = 50
          Visible = True
        end
        item
          Expanded = False
          FieldName = #21333#20301
          Width = 30
          Visible = True
        end
        item
          Expanded = False
          FieldName = #36141#20080#25968#37327
          Width = 50
          Visible = True
        end
        item
          Expanded = False
          FieldName = #20132#26131#37329#39069
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = #28040#36153#26085#26399
          Width = 124
          Visible = True
        end>
    end
  end
  object midname: TPanel
    Left = 239
    Top = 273
    Width = 154
    Height = 265
    Caption = 'midname'
    TabOrder = 3
    Visible = False
    object DBGrid3: TDBGrid
      Left = 1
      Top = 9
      Width = 152
      Height = 263
      Color = clAppWorkSpace
      DataSource = ds_member
      ImeName = #26497#21697#20116#31508#36755#20837#27861
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnDblClick = DBGrid3DblClick
      Columns = <
        item
          Expanded = False
          FieldName = #20250#21592#32534#21495
          Visible = True
        end
        item
          Expanded = False
          FieldName = #20250#21592#22995#21517
          Visible = True
        end>
    end
  end
  object q_sum: TADOQuery
    Connection = DataModule1.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    Left = 56
    Top = 112
  end
  object q_info: TADOQuery
    Connection = DataModule1.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    Left = 368
    Top = 65528
  end
  object ds_sum: TDataSource
    DataSet = q_sum
    Left = 104
    Top = 112
  end
  object ds_info: TDataSource
    DataSet = q_info
    Left = 336
    Top = 65528
  end
  object t_member: TADOTable
    Connection = DataModule1.ADOConnection1
    CursorType = ctStatic
    TableName = 'member'
    Left = 80
  end
  object ds_member: TDataSource
    DataSet = t_member
    Left = 104
  end
end