unit1.dfm

一个简易型的客户信息管理

            Title.Alignment = taCenter
            Title.Caption = #20256#30495
            Width = 90
          end
          item
            EditButtons = <>
            FieldName = 'mobil'
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #25163#26426
            Width = 100
          end
          item
            EditButtons = <>
            FieldName = 'fzr'
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #36127#36131#20154
            Width = 60
          end
          item
            EditButtons = <>
            FieldName = 'lxr'
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #32852#31995#20154
            Width = 60
          end
          item
            EditButtons = <>
            FieldName = 'remark'
            Footers = <>
          end>
      end
    end
    object TabSheet2: TTabSheet
      Caption = #35814#32454#20449#24687
      ImageIndex = 1
      PopupMenu = PopupMenu1
      object Label1: TLabel
        Left = 40
        Top = 16
        Width = 24
        Height = 14
        Caption = #21306#22495
      end
      object Label2: TLabel
        Left = 152
        Top = 16
        Width = 48
        Height = 14
        Caption = #21333#20301#21517#31216
        FocusControl = DBEdit2
      end
      object Label3: TLabel
        Left = 387
        Top = 16
        Width = 24
        Height = 14
        Caption = #22320#22336
        FocusControl = DBEdit3
      end
      object Label4: TLabel
        Left = 587
        Top = 16
        Width = 24
        Height = 14
        Caption = #37038#32534
        FocusControl = DBEdit4
      end
      object Label5: TLabel
        Left = 152
        Top = 64
        Width = 48
        Height = 14
        Caption = #32852#31995#30005#35805
        FocusControl = DBEdit5
      end
      object Label6: TLabel
        Left = 387
        Top = 64
        Width = 24
        Height = 14
        Caption = #20256#30495
        FocusControl = DBEdit6
      end
      object Label7: TLabel
        Left = 587
        Top = 64
        Width = 24
        Height = 14
        Caption = #25163#26426
        FocusControl = DBEdit7
      end
      object Label8: TLabel
        Left = 152
        Top = 208
        Width = 24
        Height = 14
        Caption = #22791#27880
      end
      object Label9: TLabel
        Left = 152
        Top = 160
        Width = 36
        Height = 14
        Caption = #32852#31995#20154
        FocusControl = DBEdit9
      end
      object Label10: TLabel
        Left = 152
        Top = 112
        Width = 36
        Height = 14
        Caption = #36127#36131#20154
        FocusControl = DBEdit10
      end
      object DBEdit2: TDBEdit
        Left = 152
        Top = 32
        Width = 217
        Height = 22
        DataField = 'company'
        DataSource = DataSource1
        TabOrder = 1
      end
      object DBEdit3: TDBEdit
        Left = 387
        Top = 32
        Width = 181
        Height = 22
        DataField = 'address'
        DataSource = DataSource1
        TabOrder = 2
      end
      object DBEdit4: TDBEdit
        Left = 587
        Top = 32
        Width = 114
        Height = 22
        DataField = 'U_code'
        DataSource = DataSource1
        TabOrder = 3
      end
      object DBEdit5: TDBEdit
        Left = 152
        Top = 80
        Width = 217
        Height = 22
        DataField = 'tel'
        DataSource = DataSource1
        TabOrder = 4
      end
      object DBEdit6: TDBEdit
        Left = 387
        Top = 80
        Width = 181
        Height = 22
        DataField = 'fax'
        DataSource = DataSource1
        TabOrder = 5
      end
      object DBEdit7: TDBEdit
        Left = 587
        Top = 80
        Width = 114
        Height = 22
        DataField = 'mobil'
        DataSource = DataSource1
        TabOrder = 6
      end
      object DBEdit9: TDBEdit
        Left = 152
        Top = 176
        Width = 153
        Height = 22
        DataField = 'lxr'
        DataSource = DataSource1
        TabOrder = 8
      end
      object DBEdit10: TDBEdit
        Left = 152
        Top = 128
        Width = 153
        Height = 22
        DataField = 'fzr'
        DataSource = DataSource1
        TabOrder = 7
      end
      object DBComboBox1: TDBComboBox
        Left = 40
        Top = 32
        Width = 89
        Height = 22
        DataField = 'QuYu'
        DataSource = DataSource1
        ItemHeight = 14
        Items.Strings = (
          #27743#33487
          #27827#21271
          #22825#27941
          #36797#23425
          #23433#24509
          #27993#27743
          #21271#20140
          #23665#19996
          #22235#24029
          #24191#35199
          #27743#35199
          #27827#21335
          #28246#21335
          #28246#21271
          #38485#35199
          #23665#35199
          #19978#28023
          #26032#30086
          #20869#33945#21476
          #38738#28023
          #21513#26519
          #40657#40857#27743
          #29976#32899
          #23425#22799)
        TabOrder = 0
      end
      object DBMemo1: TDBMemo
        Left = 152
        Top = 232
        Width = 537
        Height = 113
        DataField = 'remark'
        DataSource = DataSource1
        ScrollBars = ssVertical
        TabOrder = 9
      end
    end
  end
  object ADODataSet1: TADODataSet
    Active = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\myCustom.mdb;Pers' +
      'ist Security Info=False'
    CursorType = ctStatic
    BeforeEdit = ADODataSet1BeforeEdit
    CommandText = 'select * from Mycustom order by quyu'
    Parameters = <>
    Left = 280
    Top = 40
    object ADODataSet1ID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object ADODataSet1QuYu: TWideStringField
      FieldName = 'QuYu'
      Size = 50
    end
    object ADODataSet1company: TWideStringField
      FieldName = 'company'
      Size = 50
    end
    object ADODataSet1address: TWideStringField
      FieldName = 'address'
      Size = 50
    end
    object ADODataSet1U_code: TWideStringField
      FieldName = 'U_code'
      Size = 50
    end
    object ADODataSet1tel: TWideStringField
      FieldName = 'tel'
      Size = 50
    end
    object ADODataSet1fax: TWideStringField
      FieldName = 'fax'
      Size = 50
    end
    object ADODataSet1mobil: TWideStringField
      FieldName = 'mobil'
      Size = 50
    end
    object ADODataSet1lxr: TWideStringField
      FieldName = 'lxr'
      Size = 50
    end
    object ADODataSet1fzr: TWideStringField
      FieldName = 'fzr'
      Size = 50
    end
    object ADODataSet1remark: TMemoField
      FieldName = 'remark'
      BlobType = ftMemo
    end
  end
  object DataSource1: TDataSource
    DataSet = ADODataSet1
    Left = 200
    Top = 49
  end
  object PopupMenu1: TPopupMenu
    Left = 404
    Top = 250
    object N1: TMenuItem
      Caption = #36820#22238
      OnClick = N1Click
    end
  end
  object ExcelApplication1: TExcelApplication
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    AutoQuit = False
    Left = 420
    Top = 130
  end
  object ExcelWorkbook1: TExcelWorkbook
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    Left = 484
    Top = 146
  end
  object ExcelWorksheet1: TExcelWorksheet
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    Left = 444
    Top = 186
  end
end