chongzhi.dfm

健身会馆会员管理,实现了部分财务管理和,报表统计功能

object chongzhifrm: Tchongzhifrm
  Left = 317
  Top = 162
  Width = 391
  Height = 353
  BorderIcons = [biSystemMenu]
  Caption = #20250#21592#20914#20540
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 71
    Top = 159
    Width = 100
    Height = 24
    Caption = #20914#20540#25968#39069#65306
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 272
    Top = 160
    Width = 30
    Height = 24
    Caption = #20803'  '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label10: TLabel
    Left = 144
    Top = 216
    Width = 3
    Height = 13
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label11: TLabel
    Left = 40
    Top = 208
    Width = 142
    Height = 20
    Caption = #21487#20351#29992#22825'('#27425')'#25968#65306'     '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object GroupBox1: TGroupBox
    Left = 16
    Top = 24
    Width = 353
    Height = 121
    Caption = #20250#21592#21345#20449#24687
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    object Label3: TLabel
      Left = 8
      Top = 32
      Width = 66
      Height = 13
      Caption = #20250#21592#21345#21495':     '
      FocusControl = DBEdit1
    end
    object Label4: TLabel
      Left = 192
      Top = 32
      Width = 66
      Height = 13
      Caption = #20250#21592#22995#21517':     '
      FocusControl = DBEdit2
    end
    object Label5: TLabel
      Left = 192
      Top = 96
      Width = 66
      Height = 13
      Caption = #21097#20313#27425#25968':     '
      FocusControl = DBEdit3
    end
    object Label6: TLabel
      Left = 192
      Top = 64
      Width = 81
      Height = 13
      Caption = #20250#21592#21345#32423#21035':      '
      FocusControl = DBEdit4
    end
    object Label7: TLabel
      Left = 8
      Top = 64
      Width = 78
      Height = 13
      Caption = #20250#21592#21345#31867#22411':     '
      FocusControl = DBEdit5
    end
    object Label8: TLabel
      Left = 8
      Top = 96
      Width = 63
      Height = 13
      Caption = #21040#26399#26085#26399':    '
      FocusControl = DBEdit6
    end
    object DBEdit1: TDBEdit
      Left = 72
      Top = 32
      Width = 113
      Height = 21
      BorderStyle = bsNone
      Color = clBtnFace
      DataField = #20250#21592#21345#21495
      DataSource = DataSource1
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 3
      OnChange = DBEdit1Change
    end
    object DBEdit2: TDBEdit
      Left = 256
      Top = 32
      Width = 73
      Height = 21
      BorderStyle = bsNone
      Color = clBtnFace
      DataField = #20250#21592#22995#21517
      DataSource = DataSource1
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 0
    end
    object DBEdit3: TDBEdit
      Left = 256
      Top = 96
      Width = 89
      Height = 21
      BorderStyle = bsNone
      Color = clBtnFace
      DataField = #21097#20313#27425#25968
      DataSource = DataSource1
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 1
    end
    object DBEdit4: TDBEdit
      Left = 272
      Top = 64
      Width = 65
      Height = 21
      BorderStyle = bsNone
      Color = clBtnFace
      DataField = #20250#21592#21345#32423#21035
      DataSource = DataSource1
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 2
    end
    object DBEdit5: TDBEdit
      Left = 84
      Top = 64
      Width = 97
      Height = 21
      BorderStyle = bsNone
      Color = clBtnFace
      DataField = #20250#21592#21345#31867#22411
      DataSource = DataSource1
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 4
    end
    object DBEdit6: TDBEdit
      Left = 72
      Top = 96
      Width = 113
      Height = 21
      BorderStyle = bsNone
      Color = clBtnFace
      DataField = #21040#26399#26085#26399
      DataSource = DataSource1
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 5
    end
  end
  object BitBtn1: TBitBtn
    Left = 80
    Top = 264
    Width = 75
    Height = 25
    Caption = #20445#23384
    Enabled = False
    TabOrder = 2
    OnClick = BitBtn1Click
  end
  object BitBtn2: TBitBtn
    Left = 216
    Top = 264
    Width = 75
    Height = 25
    Caption = #21462#28040
    TabOrder = 3
    OnClick = BitBtn2Click
  end
  object Edit1: TEdit
    Left = 176
    Top = 152
    Width = 89
    Height = 32
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnChange = Edit1Change
    OnKeyPress = Edit1KeyPress
  end
  object ComboBox1: TComboBox
    Left = 179
    Top = 200
    Width = 73
    Height = 32
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 24
    ParentFont = False
    TabOrder = 4
    OnChange = ComboBox1Change
    OnKeyPress = ComboBox1KeyPress
    Items.Strings = (
      '30'
      '90'
      '180'
      '360')
  end
  object ComboBox2: TComboBox
    Left = 264
    Top = 200
    Width = 81
    Height = 32
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 24
    ItemIndex = 0
    ParentFont = False
    TabOrder = 5
    Text = #22825'('#27425')'
    Items.Strings = (
      #22825'('#27425')'
      #21608)
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 192
  end
  object ADOQuery1: TADOQuery
    Connection = MainForm.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from '#20250#21592#34920)
    Left = 144
  end
  object ADODataSet1: TADODataSet
    Connection = MainForm.ADOConnection1
    CursorType = ctStatic
    CommandText = 'select '#35745#27425#21345', '#35745#26102#21345' from '#36153#29575#34920
    Parameters = <>
    Left = 240
  end
  object ADOQuery2: TADOQuery
    Connection = MainForm.ADOConnection1
    Parameters = <>
    Left = 336
    Top = 144
  end
end