uvip_m.dfm

在打沙场用的最简单

      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit8: TwwDBEdit
      Left = 64
      Top = 232
      Width = 121
      Height = 20
      DataField = 'flinkman'
      DataSource = frmvip.DSbaseinfo
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 9
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit9: TwwDBEdit
      Left = 64
      Top = 304
      Width = 225
      Height = 20
      DataField = 'fpersonid'
      DataSource = frmvip.DSbaseinfo
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 20
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit10: TwwDBEdit
      Left = 64
      Top = 256
      Width = 121
      Height = 20
      DataField = 'fintroduce'
      DataSource = frmvip.DSbaseinfo
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 10
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit12: TwwDBEdit
      Left = 248
      Top = 256
      Width = 121
      Height = 20
      DataField = 'ftel'
      DataSource = frmvip.DSbaseinfo
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 18
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit13: TwwDBEdit
      Left = 248
      Top = 184
      Width = 80
      Height = 20
      DataField = 'farrear'
      DataSource = frmvip.DSbaseinfo
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 15
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit15: TwwDBEdit
      Left = 64
      Top = 280
      Width = 121
      Height = 20
      DataField = 'fjob'
      DataSource = frmvip.DSbaseinfo
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 11
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit17: TwwDBEdit
      Left = 64
      Top = 328
      Width = 225
      Height = 20
      DataField = 'faddress'
      DataSource = frmvip.DSbaseinfo
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 21
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBLookupCombo1: TwwDBLookupCombo
      Left = 64
      Top = 64
      Width = 97
      Height = 21
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'fname'#9'20'#9#21517#31216#9#9
        'fcode'#9'12'#9#20195#30721#9#9)
      DataField = 'ftype'
      DataSource = frmvip.DSbaseinfo
      LookupTable = CDStype
      LookupField = 'fname'
      Options = [loColLines, loRowLines, loTitles, loFixedDropDownHeight, loSearchOnBackspace]
      TabOrder = 2
      AutoDropDown = False
      ShowButton = True
      PreciseEditRegion = False
      AllowClearKey = False
    end
    object wwDBLookupCombo2: TwwDBLookupCombo
      Left = 64
      Top = 88
      Width = 97
      Height = 21
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        #36873#39033#9'8'#9#36873#39033#9#9)
      DataField = 'flevel'
      DataSource = frmvip.DSbaseinfo
      LookupTable = CDSlevel
      LookupField = #36873#39033
      Options = [loColLines, loRowLines, loTitles, loFixedDropDownHeight, loSearchOnBackspace]
      TabOrder = 3
      AutoDropDown = False
      ShowButton = True
      PreciseEditRegion = False
      AllowClearKey = False
    end
    object wwDBDateTimePicker1: TwwDBDateTimePicker
      Left = 64
      Top = 184
      Width = 121
      Height = 21
      CalendarAttributes.Font.Charset = DEFAULT_CHARSET
      CalendarAttributes.Font.Color = clWindowText
      CalendarAttributes.Font.Height = -11
      CalendarAttributes.Font.Name = 'MS Sans Serif'
      CalendarAttributes.Font.Style = []
      DataField = 'fokdate'
      DataSource = frmvip.DSbaseinfo
      Epoch = 1950
      ShowButton = True
      TabOrder = 7
    end
    object wwDBDateTimePicker2: TwwDBDateTimePicker
      Left = 248
      Top = 160
      Width = 121
      Height = 21
      CalendarAttributes.Font.Charset = DEFAULT_CHARSET
      CalendarAttributes.Font.Color = clWindowText
      CalendarAttributes.Font.Height = -11
      CalendarAttributes.Font.Name = 'MS Sans Serif'
      CalendarAttributes.Font.Style = []
      DataField = 'fbirdate'
      DataSource = frmvip.DSbaseinfo
      Epoch = 1950
      ShowButton = True
      TabOrder = 14
    end
    object wwDBDateTimePicker3: TwwDBDateTimePicker
      Left = 64
      Top = 208
      Width = 121
      Height = 21
      CalendarAttributes.Font.Charset = DEFAULT_CHARSET
      CalendarAttributes.Font.Color = clWindowText
      CalendarAttributes.Font.Height = -11
      CalendarAttributes.Font.Name = 'MS Sans Serif'
      CalendarAttributes.Font.Style = []
      DataField = 'fopendate'
      DataSource = frmvip.DSbaseinfo
      Epoch = 1950
      ShowButton = True
      TabOrder = 8
    end
    object wwDBEdit16: TwwDBEdit
      Left = 248
      Top = 232
      Width = 80
      Height = 20
      DataField = 'favoirdupois'
      DataSource = frmvip.DSbaseinfo
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 17
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit7: TwwDBEdit
      Left = 248
      Top = 208
      Width = 80
      Height = 20
      DataField = 'fstature'
      DataSource = frmvip.DSbaseinfo
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 16
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit3: TwwDBEdit
      Left = 64
      Top = 136
      Width = 49
      Height = 20
      DataField = 'fagio'
      DataSource = frmvip.DSbaseinfo
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 5
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBLookupCombo3: TwwDBLookupCombo
      Left = 64
      Top = 112
      Width = 97
      Height = 21
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        #36873#39033#9'8'#9#36873#39033#9#9)
      DataField = 'fsex'
      DataSource = frmvip.DSbaseinfo
      LookupTable = CDSsex
      LookupField = #36873#39033
      Options = [loColLines, loRowLines, loTitles, loFixedDropDownHeight, loSearchOnBackspace]
      TabOrder = 4
      AutoDropDown = False
      ShowButton = True
      PreciseEditRegion = False
      AllowClearKey = False
    end
    object edit20: TwwDBEdit
      Left = 253
      Top = 42
      Width = 81
      Height = 20
      DataField = 'fpwdaffirm'
      DataSource = frmvip.DSbaseinfo
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      PasswordChar = '*'
      TabOrder = 13
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object edit10: TwwDBEdit
      Left = 253
      Top = 20
      Width = 81
      Height = 20
      DataField = 'fpassword'
      DataSource = frmvip.DSbaseinfo
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      PasswordChar = '*'
      TabOrder = 12
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBDateTimePicker4: TwwDBDateTimePicker
      Left = 64
      Top = 160
      Width = 121
      Height = 21
      CalendarAttributes.Font.Charset = DEFAULT_CHARSET
      CalendarAttributes.Font.Color = clWindowText
      CalendarAttributes.Font.Height = -11
      CalendarAttributes.Font.Name = 'MS Sans Serif'
      CalendarAttributes.Font.Style = []
      DataField = 'fcardstart'
      DataSource = frmvip.DSbaseinfo
      Epoch = 1950
      ShowButton = True
      TabOrder = 6
    end
    object wwDBEdit11: TwwDBEdit
      Left = 253
      Top = 65
      Width = 81
      Height = 20
      Color = 15530210
      DataField = 'fcomsumetotle'
      DataSource = frmvip.DSbaseinfo
      Enabled = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 23
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit14: TwwDBEdit
      Left = 253
      Top = 88
      Width = 81
      Height = 20
      Color = 15530210
      DataField = 'fbalance'
      DataSource = frmvip.DSbaseinfo
      Enabled = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 24
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit19: TwwDBEdit
      Left = 253
      Top = 111
      Width = 81
      Height = 20
      Color = 15530210
      DataField = 'fintegral'
      DataSource = frmvip.DSbaseinfo
      Enabled = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 25
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBDateTimePicker5: TwwDBDateTimePicker
      Left = 253
      Top = 135
      Width = 121
      Height = 21
      CalendarAttributes.Font.Charset = DEFAULT_CHARSET
      CalendarAttributes.Font.Color = clWindowText
      CalendarAttributes.Font.Height = -11
      CalendarAttributes.Font.Name = 'MS Sans Serif'
      CalendarAttributes.Font.Style = []
      Color = 15530210
      DataField = 'flastconsumed'
      DataSource = frmvip.DSbaseinfo
      Epoch = 1950
      Enabled = False
      ShowButton = True
      TabOrder = 26
    end
  end
  inherited Button1: TButton
    Left = 403
    Top = 14
    TabOrder = 0
  end
  inherited Button2: TButton
    Left = 403
    Top = 46
    TabOrder = 1
  end
  inherited Button3: TButton
    Left = 403
    Top = 366
    TabOrder = 2
  end
  object CDStype: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 120
    Top = 48
    object CDStypefname: TWideStringField
      DisplayLabel = #21517#31216
      DisplayWidth = 20
      FieldName = 'fname'
    end
    object CDStypefcode: TWideStringField
      DisplayLabel = #20195#30721
      DisplayWidth = 12
      FieldName = 'fcode'
      Size = 12
    end
    object CDStypefid: TAutoIncField
      DisplayWidth = 10
      FieldName = 'fid'
      ReadOnly = True
      Visible = False
    end
  end
  object CDSlevel: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 112
    Top = 88
    object CDSlevelField: TStringField
      DisplayWidth = 8
      FieldName = #36873#39033
      Size = 8
    end
  end
  object CDSsex: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 80
    Top = 120
    object CDSsexField: TStringField
      DisplayWidth = 8
      FieldName = #36873#39033
      Size = 8
    end
  end
end