untvip_m.dfm

用delphi编写的数据库管理软件

      TabOrder = 15
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit4: TwwDBEdit
      Left = 79
      Top = 255
      Width = 180
      Height = 21
      Hint = 'fconnect'
      TabOrder = 9
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit5: TwwDBEdit
      Left = 79
      Top = 281
      Width = 180
      Height = 21
      Hint = 'fidno'
      TabOrder = 10
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit6: TwwDBEdit
      Left = 79
      Top = 307
      Width = 180
      Height = 21
      Hint = 'fdriveidno'
      TabOrder = 11
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit7: TwwDBEdit
      Left = 335
      Top = 307
      Width = 180
      Height = 21
      Hint = 'ffax'
      TabOrder = 23
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit9: TwwDBEdit
      Left = 335
      Top = 254
      Width = 180
      Height = 21
      Hint = 'ftel'
      TabOrder = 21
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit10: TwwDBEdit
      Left = 335
      Top = 280
      Width = 180
      Height = 21
      Hint = 'fmobile'
      TabOrder = 22
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit11: TwwDBEdit
      Left = 335
      Top = 123
      Width = 180
      Height = 21
      Hint = 'ftax'
      TabOrder = 16
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit13: TwwDBEdit
      Left = 335
      Top = 70
      Width = 180
      Height = 21
      Hint = 'fbank'
      TabOrder = 14
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit14: TwwDBEdit
      Left = 335
      Top = 175
      Width = 180
      Height = 21
      Hint = 'fbankno'
      TabOrder = 18
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object DBDateTimeEditEh2: TDBDateTimeEditEh
      Left = 335
      Top = 149
      Width = 180
      Height = 21
      Hint = 'fstartdate'
      EditButtons = <>
      Kind = dtkDateEh
      TabOrder = 17
      Visible = True
    end
    object wwCheckBox1: TwwCheckBox
      Left = 79
      Top = 385
      Width = 89
      Height = 17
      Hint = 'fstate'
      DisableThemes = False
      AlwaysTransparent = False
      ValueChecked = 'True'
      ValueUnchecked = 'False'
      DisplayValueChecked = 'True'
      DisplayValueUnchecked = 'False'
      NullAndBlankState = cbUnchecked
      Caption = #26469#24448#29366#24577
      TabOrder = 26
    end
    object wwDBEdit15: TwwDBEdit
      Left = 79
      Top = 333
      Width = 437
      Height = 21
      Hint = 'fremark'
      TabOrder = 24
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit16: TwwDBEdit
      Left = 335
      Top = 18
      Width = 180
      Height = 21
      Hint = 'femail'
      TabOrder = 12
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit17: TwwDBEdit
      Left = 335
      Top = 228
      Width = 180
      Height = 21
      Hint = 'fposition'
      TabOrder = 20
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit18: TwwDBEdit
      Left = 79
      Top = 151
      Width = 180
      Height = 21
      Hint = 'fvipno'
      TabOrder = 5
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit20: TwwDBEdit
      Left = 79
      Top = 203
      Width = 180
      Height = 21
      Hint = 'fvipkilometre'
      TabOrder = 7
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit21: TwwDBEdit
      Left = 79
      Top = 229
      Width = 180
      Height = 21
      Hint = 'fvipagio'
      TabOrder = 8
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBLookupCombo3: TwwDBLookupCombo
      Left = 79
      Top = 177
      Width = 180
      Height = 21
      Hint = 'fviptype'
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'ftype'#9'20'#9#31867#22411#36873#39033#9'F')
      LookupTable = CDSVIP
      LookupField = 'ftype'
      Options = [loColLines, loRowLines, loTitles, loFixedDropDownHeight, loSearchOnBackspace]
      Style = csDropDownList
      TabOrder = 6
      AutoDropDown = False
      ShowButton = True
      PreciseEditRegion = False
      AllowClearKey = False
    end
    object wwDBEdit19: TwwDBEdit
      Left = 79
      Top = 359
      Width = 410
      Height = 21
      Hint = 'fPicture'
      TabOrder = 25
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
  end
  inherited Panel1: TPanel [2]
    Top = 403
    Width = 533
    inherited Bevel1: TBevel
      Width = 505
      Height = 3
    end
    inherited btnExit: TButton
      Left = 441
    end
    inherited btnSave: TButton
      Left = 364
    end
  end
  object CDSType: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 128
    Top = 96
    object CDSTypefname: TWideStringField
      DisplayLabel = #31867#22411#21517#31216
      DisplayWidth = 20
      FieldName = 'fname'
      Size = 32
    end
    object CDSTypefcode: TWideStringField
      DisplayLabel = #20195#30721
      DisplayWidth = 10
      FieldName = 'fcode'
    end
    object CDSTypefid: TAutoIncField
      DisplayWidth = 10
      FieldName = 'fid'
      ReadOnly = True
      Visible = False
    end
    object CDSTypefremark: TWideStringField
      DisplayWidth = 50
      FieldName = 'fremark'
      Visible = False
      Size = 50
    end
  end
  object CDSArea: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 136
    Top = 128
    object CDSAreafName: TWideStringField
      DisplayLabel = #22320#21306#21517#31216
      DisplayWidth = 26
      FieldName = 'fName'
      Size = 50
    end
    object CDSAreafCode: TWideStringField
      DisplayLabel = #32534#30721
      DisplayWidth = 16
      FieldName = 'fCode'
      Size = 50
    end
    object CDSAreafID: TIntegerField
      DisplayWidth = 10
      FieldName = 'fID'
      Visible = False
    end
    object CDSAreafParentID: TIntegerField
      DisplayWidth = 10
      FieldName = 'fParentID'
      Visible = False
    end
    object CDSAreafParentCode: TWideStringField
      DisplayWidth = 50
      FieldName = 'fParentCode'
      Visible = False
      Size = 50
    end
    object CDSAreafNotes: TWideStringField
      DisplayWidth = 80
      FieldName = 'fNotes'
      Visible = False
      Size = 80
    end
  end
  object CDSVIP: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 160
    Top = 176
    object CDSVIPftype: TStringField
      DisplayLabel = #31867#22411#36873#39033
      DisplayWidth = 20
      FieldName = 'ftype'
    end
  end
  object OpenPictureDialog1: TOpenPictureDialog
    Left = 184
    Top = 304
  end
end