untcustomer_m.dfm

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

inherited frmCustomer_M: TfrmCustomer_M
  Left = 203
  Top = 176
  Caption = #23458#25143#20449#24687
  ClientHeight = 455
  ClientWidth = 471
  PixelsPerInch = 96
  TextHeight = 13
  object Label22: TLabel [0]
    Left = 243
    Top = 171
    Width = 26
    Height = 13
    Caption = #29366#24577
  end
  inherited pnedit: TPanel [1]
    Width = 471
    Height = 399
    inherited Label1: TLabel
      Left = 19
      Width = 52
      Caption = #23458#25143#32534#21495
    end
    inherited Label2: TLabel
      Left = 19
      Width = 26
      Caption = #21517#31216
    end
    object Label9: TLabel [2]
      Left = 19
      Top = 77
      Width = 26
      Height = 13
      Caption = #20840#31216
    end
    object Label11: TLabel [3]
      Left = 19
      Top = 104
      Width = 52
      Height = 13
      Caption = #33521#25991#21517#31216
    end
    object Label3: TLabel [4]
      Left = 275
      Top = 23
      Width = 52
      Height = 13
      Caption = #23458#25143#31867#22411
    end
    object Label4: TLabel [5]
      Left = 275
      Top = 50
      Width = 52
      Height = 13
      Caption = #25152#23646#22320#21306
    end
    object Label5: TLabel [6]
      Left = 19
      Top = 157
      Width = 26
      Height = 13
      Caption = #22320#22336
    end
    object Label6: TLabel [7]
      Left = 275
      Top = 159
      Width = 26
      Height = 13
      Caption = #37038#32534
    end
    object Label7: TLabel [8]
      Left = 19
      Top = 210
      Width = 39
      Height = 13
      Caption = #36523#20221#35777
    end
    object Label8: TLabel [9]
      Left = 19
      Top = 184
      Width = 39
      Height = 13
      Caption = #32852#31995#20154
    end
    object Label10: TLabel [10]
      Left = 19
      Top = 237
      Width = 52
      Height = 13
      Caption = #39550#39542#35777#21495
    end
    object Label12: TLabel [11]
      Left = 275
      Top = 268
      Width = 26
      Height = 13
      Caption = #20256#30495
    end
    object Label13: TLabel [12]
      Left = 275
      Top = 240
      Width = 26
      Height = 13
      Caption = #25163#26426
    end
    object Label14: TLabel [13]
      Left = 275
      Top = 213
      Width = 26
      Height = 13
      Caption = #30005#35805
    end
    object Label15: TLabel [14]
      Left = 275
      Top = 77
      Width = 26
      Height = 13
      Caption = #31246#21495
    end
    object Label16: TLabel [15]
      Left = 19
      Top = 130
      Width = 52
      Height = 13
      Caption = #24320#25143#38134#34892
    end
    object Label17: TLabel [16]
      Left = 275
      Top = 131
      Width = 52
      Height = 13
      Caption = #38134#34892#24080#21495
    end
    object Label25: TLabel [17]
      Left = 275
      Top = 104
      Width = 52
      Height = 13
      Caption = #21551#29992#26085#26399
    end
    object Label18: TLabel [18]
      Left = 19
      Top = 371
      Width = 26
      Height = 13
      Caption = #29366#24577
    end
    object Label19: TLabel [19]
      Left = 19
      Top = 290
      Width = 26
      Height = 13
      Caption = #22791#27880
    end
    object Label20: TLabel [20]
      Left = 275
      Top = 186
      Width = 26
      Height = 13
      Caption = #32844#21153
    end
    object Label21: TLabel [21]
      Left = 19
      Top = 264
      Width = 42
      Height = 13
      Caption = 'E_Mail'
    end
    object Label23: TLabel [22]
      Left = 19
      Top = 317
      Width = 52
      Height = 13
      Caption = #23458#25143#29031#29255
    end
    object SpeedButton1: TSpeedButton [23]
      Left = 433
      Top = 317
      Width = 23
      Height = 22
      Glyph.Data = {
        D6000000424DD60000000000000076000000280000000B0000000C0000000100
        04000000000060000000C40E0000C40E00001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888880
        0000888888888880000088800000888000008888888888800000888880888880
        0000888800088880000088700000888000008800000008800000888800088880
        0000888800088880000088880008888000008888888888800000}
      OnClick = SpeedButton1Click
    end
    object Label24: TLabel [24]
      Left = 19
      Top = 344
      Width = 52
      Height = 13
      Caption = #36164#26009#29031#29255
    end
    object SpeedButton2: TSpeedButton [25]
      Left = 433
      Top = 341
      Width = 23
      Height = 22
      Glyph.Data = {
        D6000000424DD60000000000000076000000280000000B0000000C0000000100
        04000000000060000000C40E0000C40E00001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888880
        0000888888888880000088800000888000008888888888800000888880888880
        0000888800088880000088700000888000008800000008800000888800088880
        0000888800088880000088880008888000008888888888800000}
      OnClick = SpeedButton2Click
    end
    inherited DBEDITcode: TwwDBEdit
      Left = 79
      Width = 97
    end
    inherited wwDBEdit1: TwwDBEdit
      Left = 79
      Top = 48
      Width = 190
    end
    object wwDBEdit8: TwwDBEdit
      Left = 79
      Top = 75
      Width = 190
      Height = 21
      Hint = 'ffullname'
      TabOrder = 2
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit12: TwwDBEdit
      Left = 79
      Top = 102
      Width = 190
      Height = 21
      Hint = 'fename'
      TabOrder = 3
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBLookupCombo1: TwwDBLookupCombo
      Left = 335
      Top = 20
      Width = 120
      Height = 21
      Hint = 'fcustomertype'
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'fname'#9'20'#9#31867#22411#21517#31216#9'F'
        'fcode'#9'10'#9#20195#30721#9'F')
      LookupTable = CDSType
      LookupField = 'fname'
      Options = [loColLines, loRowLines, loTitles, loFixedDropDownHeight, loSearchOnBackspace]
      TabOrder = 5
      AutoDropDown = False
      ShowButton = True
      PreciseEditRegion = False
      AllowClearKey = False
    end
    object wwDBLookupCombo2: TwwDBLookupCombo
      Left = 335
      Top = 47
      Width = 120
      Height = 21
      Hint = 'farea'
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'fName'#9'26'#9#22320#21306#21517#31216#9'F'
        'fCode'#9'16'#9#32534#30721#9'F')
      LookupTable = CDSArea
      LookupField = 'fname'
      Options = [loColLines, loRowLines, loTitles, loFixedDropDownHeight, loSearchOnBackspace]
      TabOrder = 6
      AutoDropDown = False
      ShowButton = True
      PreciseEditRegion = False
      AllowClearKey = False
    end
    object wwDBEdit2: TwwDBEdit
      Left = 335
      Top = 155
      Width = 121
      Height = 21
      Hint = 'fpost'
      TabOrder = 11
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit3: TwwDBEdit
      Left = 79
      Top = 155
      Width = 190
      Height = 21
      Hint = 'faddress'
      TabOrder = 10
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit4: TwwDBEdit
      Left = 79
      Top = 182
      Width = 190
      Height = 21
      Hint = 'fconnect'
      TabOrder = 12
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit5: TwwDBEdit
      Left = 79
      Top = 208
      Width = 190
      Height = 21
      Hint = 'fidno'
      TabOrder = 14
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit6: TwwDBEdit
      Left = 79
      Top = 235
      Width = 190
      Height = 21
      Hint = 'fdriveidno'
      TabOrder = 16
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit7: TwwDBEdit
      Left = 335
      Top = 263
      Width = 121
      Height = 21
      Hint = 'ffax'
      TabOrder = 19
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit9: TwwDBEdit
      Left = 335
      Top = 209
      Width = 120
      Height = 21
      Hint = 'ftel'
      TabOrder = 15
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit10: TwwDBEdit
      Left = 335
      Top = 236
      Width = 121
      Height = 21
      Hint = 'fmobile'
      TabOrder = 17
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit11: TwwDBEdit
      Left = 335
      Top = 74
      Width = 120
      Height = 21
      Hint = 'ftax'
      TabOrder = 7
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit13: TwwDBEdit
      Left = 79
      Top = 128
      Width = 190
      Height = 21
      Hint = 'fbank'
      TabOrder = 4
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit14: TwwDBEdit
      Left = 335
      Top = 128
      Width = 121
      Height = 21
      Hint = 'fbankno'
      TabOrder = 9
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object DBDateTimeEditEh2: TDBDateTimeEditEh
      Left = 335
      Top = 101
      Width = 120
      Height = 21
      Hint = 'fstartdate'
      EditButtons = <>
      Kind = dtkDateEh
      TabOrder = 8
      Visible = True
    end
    object wwCheckBox1: TwwCheckBox
      Left = 79
      Top = 369
      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 = 23
    end
    object wwDBEdit15: TwwDBEdit
      Left = 79
      Top = 288
      Width = 377
      Height = 21
      Hint = 'fremark'
      TabOrder = 20
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit16: TwwDBEdit
      Left = 79
      Top = 262
      Width = 190
      Height = 21
      Hint = 'femail'
      TabOrder = 18
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit17: TwwDBEdit
      Left = 335
      Top = 182
      Width = 121
      Height = 21
      Hint = 'fposition'
      TabOrder = 13
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit18: TwwDBEdit
      Left = 79
      Top = 315
      Width = 346
      Height = 21
      Hint = 'fPicture'
      TabOrder = 21
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit19: TwwDBEdit
      Left = 79
      Top = 342
      Width = 346
      Height = 21
      Hint = 'fPicture1'
      TabOrder = 22
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
  end
  inherited Panel1: TPanel [2]
    Top = 399
    Width = 471
    inherited Bevel1: TBevel
      Width = 451
    end
    inherited btnExit: TButton
      Left = 385
    end
    inherited btnSave: TButton
      Left = 308
    end
  end
  object CDSType: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 368
    Top = 8
    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 = 368
    Top = 64
    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 OpenPictureDialog1: TOpenPictureDialog
    Filter = 
      'All (*.jpg;*.jpeg;*.bmp;*.ico;*.emf;*.wmf)|*.jpg;*.jpeg;*.bmp;*.' +
      'ico;*.emf;*.wmf|JPEG Image File (*.jpg)|*.jpg|JPEG Image File (*' +
      '.jpeg)|*.jpeg'
    Left = 184
    Top = 304
  end
end