unit2.dfm

类似于安利公司的奖金制度下的会员层次关系、会员级别、会员奖金等

object Form2: TForm2
  Left = 45
  Top = 191
  Width = 763
  Height = 560
  Caption = #20250#21592#26426#26500#31649#29702#31995#32479' Ver 1.0'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 461
    Top = 89
    Width = 60
    Height = 13
    Caption = #20250#21592#32534#21495#65306
  end
  object Label2: TLabel
    Left = 461
    Top = 119
    Width = 60
    Height = 13
    Caption = #20250#21592#21517#31216#65306
  end
  object Label3: TLabel
    Left = 430
    Top = 148
    Width = 94
    Height = 13
    Caption = #19978#32423#20250#21592#32534#21495#65306
  end
  object Label4: TLabel
    Left = 473
    Top = 177
    Width = 48
    Height = 13
    Caption = #36127#36131#20154#65306
  end
  object Label5: TLabel
    Left = 485
    Top = 205
    Width = 36
    Height = 13
    Caption = #30005#35805#65306
  end
  object Label6: TLabel
    Left = 485
    Top = 236
    Width = 36
    Height = 13
    Caption = #25163#26426#65306
  end
  object Label9: TLabel
    Left = 460
    Top = 268
    Width = 60
    Height = 13
    Caption = #32564#27454#37329#39069#65306
  end
  object Label10: TLabel
    Left = 460
    Top = 299
    Width = 60
    Height = 13
    Caption = #32564#27454#26085#26399#65306
  end
  object Label11: TLabel
    Left = 461
    Top = 333
    Width = 36
    Height = 13
    Caption = #22791#27880#65306
  end
  object Label12: TLabel
    Left = 628
    Top = 270
    Width = 65
    Height = 13
    Caption = #20803#20154#27665#24065
  end
  object DBGrid1: TDBGrid
    Left = 10
    Top = 93
    Width = 402
    Height = 399
    DataSource = DataSource1
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'member_id'
        Title.Caption = #20250#21592#32534#21495
        Width = 69
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'name'
        Title.Caption = #20250#21592#21517#31216
        Width = 178
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'class'
        Title.Caption = #20250#21592#32423#21035
        Width = 77
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'person'
        Title.Caption = #36127#36131#20154
        Width = 55
        Visible = True
      end>
  end
  object DBNavigator1: TDBNavigator
    Left = 11
    Top = 62
    Width = 240
    Height = 25
    DataSource = DataSource1
    VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbRefresh]
    TabOrder = 1
  end
  object Button1: TButton
    Left = 518
    Top = 450
    Width = 162
    Height = 25
    Caption = #20445'   '#23384
    TabOrder = 2
  end
  object HeaderControl1: THeaderControl
    Left = 0
    Top = 0
    Width = 755
    Height = 17
    Sections = <>
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 495
    Width = 755
    Height = 19
    Panels = <>
  end
  object Edit1: TEdit
    Left = 535
    Top = 86
    Width = 121
    Height = 21
    TabOrder = 5
  end
  object Edit2: TEdit
    Left = 536
    Top = 115
    Width = 121
    Height = 21
    TabOrder = 6
  end
  object Edit3: TEdit
    Left = 537
    Top = 143
    Width = 121
    Height = 21
    TabOrder = 7
  end
  object Edit4: TEdit
    Left = 536
    Top = 174
    Width = 121
    Height = 21
    TabOrder = 8
  end
  object Edit5: TEdit
    Left = 537
    Top = 203
    Width = 121
    Height = 21
    TabOrder = 9
  end
  object Edit6: TEdit
    Left = 537
    Top = 231
    Width = 121
    Height = 21
    TabOrder = 10
  end
  object Edit9: TEdit
    Left = 537
    Top = 264
    Width = 85
    Height = 21
    TabOrder = 11
  end
  object Edit10: TEdit
    Left = 538
    Top = 293
    Width = 85
    Height = 21
    TabOrder = 12
  end
  object Memo1: TMemo
    Left = 517
    Top = 332
    Width = 166
    Height = 99
    TabOrder = 13
  end
  object MainMenu1: TMainMenu
    Left = 123
    Top = 165
    object N1: TMenuItem
      Caption = #21021#22987#35774#32622
      object N2: TMenuItem
        Caption = #24320#25299#22870#27604#29575#35774#32622
      end
      object N3: TMenuItem
        Caption = #36741#23548#27941#36148#27604#29575#35774#32622
      end
      object N4: TMenuItem
        Caption = #31649#29702#22870#27604#29575#35774#32622
      end
    end
    object N5: TMenuItem
      Caption = #20250#21592#31649#29702
      object N6: TMenuItem
        Caption = #26032#20250#21592#24405#20837
      end
      object N7: TMenuItem
        Caption = #20250#21592#26597#35810#31649#29702
      end
    end
    object N8: TMenuItem
      Caption = #27719#24635#32467#31639
      object N9: TMenuItem
        Caption = #26376#27719#24635#32467#31639
      end
      object N10: TMenuItem
        Caption = #24180#24230#27719#24635
      end
    end
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=MSDASQL.1;Persist Security Info=False;Data Source=jiang' +
      'jin;Initial Catalog=D:\1111\BIAOBANG\DATA\jiangjin'
    Left = 303
    Top = 211
  end
  object ADOTable1: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'member'
    Left = 217
    Top = 213
    object ADOTable1id: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object ADOTable1member_id: TWideStringField
      FieldName = 'member_id'
    end
    object ADOTable1name: TWideStringField
      FieldName = 'name'
      Size = 50
    end
    object ADOTable1class: TSmallintField
      FieldName = 'class'
    end
    object ADOTable1higher_id: TWideStringField
      FieldName = 'higher_id'
    end
    object ADOTable1person: TWideStringField
      FieldName = 'person'
    end
    object ADOTable1telephone: TWideStringField
      FieldName = 'telephone'
      Size = 30
    end
    object ADOTable1handphone: TWideStringField
      FieldName = 'handphone'
      Size = 30
    end
    object ADOTable1email: TWideStringField
      FieldName = 'email'
      Size = 50
    end
    object ADOTable1url: TWideStringField
      FieldName = 'url'
      Size = 50
    end
    object ADOTable1pay_amount: TBCDField
      FieldName = 'pay_amount'
      Precision = 19
    end
    object ADOTable1date: TDateTimeField
      FieldName = 'date'
    end
    object ADOTable1remarks: TMemoField
      FieldName = 'remarks'
      BlobType = ftMemo
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 263
    Top = 209
  end
end