ulogin.dfm

本文阐述了目前CRM（Customer Relationship Management 客户关系管理）的管理方法

object Form2: TForm2
  Left = 366
  Top = 175
  BorderStyle = bsDialog
  Caption = #30331#38470
  ClientHeight = 177
  ClientWidth = 332
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 77
    Top = 52
    Width = 48
    Height = 13
    AutoSize = False
    Caption = #29992#25143#21517#65306
  end
  object Label2: TLabel
    Left = 91
    Top = 85
    Width = 36
    Height = 13
    AutoSize = False
    Caption = #23494#30721#65306
  end
  object Image1: TImage
    Left = 26
    Top = 52
    Width = 41
    Height = 41
    Picture.Data = {
      055449636F6E0000010002002020100000000000E80200002600000010101000
      00000000280100000E0300002800000020000000400000000100040000000000
      8002000000000000000000000000000000000000000000000000800000800000
      00808000800000008000800080800000C0C0C000808080000000FF0000FF0000
      00FFFF00FF000000FF00FF00FFFF0000FFFFFF00000000000000000000000000
      0000000000000000000000000003000000000000000000000000000037BB3000
      00000000000000000000000037BB3330000000000000000300300000037BBB30
      00000000000003003B0330000373B737000000000003003333BB03300037BB33
      30000000000033333BBBBB0300373BB3300000000000333333BBBB8B00037BB3
      37000000000033333BBBB001B00373BB330000000000333333BBB300B00037BB
      BB870000000033333BBBB303B0037BBB3BB800000000333333BB3001B0037BB3
      33B00000000033333BBB800030037B333BB800000000333333BB30003B0037B3
      BB370000000033BBBBBBB1003B0033777380000000003300BBBBBB33BBB00783
      870000000000B0878BBBBBBBBBB3000000000000000300878BBBBBBBBBB30000
      00000000000000878333BBBBBBB30000000000000000008783333300BB300000
      0000000000000087830B30888300000000000000000000878003308780000000
      0000000000000087800000878000000000000000000000808000008780000000
      0000000000000087800000878000000000000000000008877800008780000000
      0000000000000007080008808000000000000000000000880800887800000000
      0000000000000008708808080000000000000000000000008700008000000000
      0000000000000000088888000000000000000000FFFFFFFFFFFF0FFFFFFF07FF
      FFFF01FFFE1F81FFF80780FFE001C07FE000407FE000203FE000201FE000300F
      E000200FE000200FE000200FE000100FE000101FE000083FE0000FFFE0000FFF
      F8000FFFF8001FFFF8003FFFF8607FFFF8787FFFF9787FFFF8787FFFF8387FFF
      FCB17FFFFC80FFFFFE42FFFFFF3DFFFFFF83FFFF280000001000000020000000
      0100040000000000C00000000000000000000000000000000000000000000000
      000080000080000000808000800000008000800080800000C0C0C00080808000
      0000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0000030380
      000000000300330033300000003B3330BB30000003BB3310BB3330000B3B3310
      0B7B300003BB330000B733070B3BB333100BBBB003BBBBB33303B3BB3BB08BBB
      B307333B03078BB88B0BB3BB000783B078737BB3000780307807838700878800
      08000000007078080800000000087700870000000007888870000000E1FF0000
      801F0000001F0000000700000007000000000000000000000000000000000000
      80000000C0000000C4200000C2BF0000C0BF0000E33F0000E07F0000}
  end
  object ComboBox1: TComboBox
    Left = 136
    Top = 48
    Width = 145
    Height = 21
    ItemHeight = 13
    TabOrder = 0
    Text = 'chable'
  end
  object Edit1: TEdit
    Left = 136
    Top = 80
    Width = 145
    Height = 25
    Font.Charset = SYMBOL_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Webdings'
    Font.Style = []
    ParentFont = False
    PasswordChar = 'd'
    TabOrder = 1
    Text = '111'
  end
  object BitBtn1: TBitBtn
    Left = 56
    Top = 128
    Width = 75
    Height = 25
    Caption = #30331#38470'[&L]'
    TabOrder = 2
    OnClick = BitBtn1Click
    Kind = bkOK
  end
  object BitBtn2: TBitBtn
    Left = 184
    Top = 128
    Width = 75
    Height = 25
    Caption = #36864#20986'[&C]'
    TabOrder = 3
    OnClick = BitBtn2Click
    Kind = bkNo
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\chable\new\db1.m' +
      'db;Persist Security Info=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 88
    Top = 16
  end
  object ADOTable1: TADOTable
    Connection = ADOConnection1
    TableName = 'yonghu'
    Left = 120
    Top = 16
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 152
    Top = 16
  end
end