sms1.dfm

短信发送平台的源码

        ParentShowHint = False
        ShowWorkAreas = True
        ShowHint = True
        SortType = stText
        TabOrder = 0
        ViewStyle = vsReport
        OnChange = dianbo_listview_change
        OnEnter = diaobo_chaxun
      end
      object Memo8: TMemo
        Left = 88
        Top = 360
        Width = 633
        Height = 73
        MaxLength = 1023
        TabOrder = 1
      end
      object add_dianbo: TBitBtn
        Left = 384
        Top = 304
        Width = 65
        Height = 49
        Caption = '增加'
        TabOrder = 2
        OnClick = add_dianboClick
      end
      object change_diaobo: TBitBtn
        Left = 582
        Top = 304
        Width = 60
        Height = 49
        Caption = '修改'
        TabOrder = 3
        OnClick = change_diaoboClick
      end
      object del_dianbao: TButton
        Left = 666
        Top = 304
        Width = 57
        Height = 49
        Caption = '删除'
        TabOrder = 4
        OnClick = diaobo_chaxun
        OnEnter = del_dianbaoClick
      end
      object Edit7: TEdit
        Left = 88
        Top = 312
        Width = 273
        Height = 24
        MaxLength = 128
        TabOrder = 5
      end
      object ChaXun_DianBoBitBtn1: TBitBtn
        Left = 488
        Top = 304
        Width = 65
        Height = 49
        Caption = '查询'
        TabOrder = 6
        OnClick = ChaXun_DianBoBitBtn1Click
      end
    end
    object TabSheet7: TTabSheet
      Caption = '客户信息维护'
      ImageIndex = 6
      object Label13: TLabel
        Left = 10
        Top = 300
        Width = 39
        Height = 16
        Caption = '姓名     '
      end
      object Label15: TLabel
        Left = 205
        Top = 304
        Width = 51
        Height = 16
        Caption = '手机号     '
      end
      object Label16: TLabel
        Left = 12
        Top = 352
        Width = 30
        Height = 16
        Caption = '客户  '
      end
      object Label17: TLabel
        Left = 11
        Top = 371
        Width = 45
        Height = 16
        Caption = '信息       '
      end
      object Memo13: TMemo
        Left = 56
        Top = 344
        Width = 689
        Height = 81
        MaxLength = 1023
        ScrollBars = ssVertical
        TabOrder = 0
      end
      object add_kehu_button: TBitBtn
        Left = 504
        Top = 296
        Width = 49
        Height = 41
        Caption = '增加'
        TabOrder = 1
        OnEnter = add_kehu_buttonClick
      end
      object change_kehu_BitBtn2: TBitBtn
        Left = 632
        Top = 296
        Width = 49
        Height = 41
        Caption = '修改'
        TabOrder = 2
        OnEnter = change_kehu_BitBtn2Click
      end
      object del_keHU_BitBtn4: TBitBtn
        Left = 696
        Top = 296
        Width = 46
        Height = 41
        Caption = '删除'
        TabOrder = 3
        OnEnter = del_keHU_BitBtn4Click
      end
      object Edit5: TEdit
        Left = 56
        Top = 298
        Width = 137
        Height = 24
        MaxLength = 128
        TabOrder = 4
      end
      object Edit6: TEdit
        Left = 264
        Top = 300
        Width = 217
        Height = 24
        MaxLength = 128
        TabOrder = 5
      end
      object ListView5: TListView
        Left = 16
        Top = 0
        Width = 729
        Height = 281
        Columns = <
          item
            Width = 1
          end
          item
            Caption = '序号'
          end
          item
            Caption = '姓名'
            Width = 100
          end
          item
            Caption = '手机号'
            Width = 100
          end
          item
            Caption = '客户信息'
            Width = 420
          end>
        TabOrder = 6
        ViewStyle = vsReport
        OnChange = kehu_listvi_chang
        OnEnter = kehuxinxi_enter
      end
      object ChaXun_BitBtn1: TBitBtn
        Left = 568
        Top = 296
        Width = 49
        Height = 41
        Caption = '查询'
        TabOrder = 7
        OnClick = ChaXun_BitBtn1Click
      end
    end
    object TabSheet4: TTabSheet
      Caption = '系统设置'
      ImageIndex = 6
      object Label18: TLabel
        Left = 72
        Top = 60
        Width = 90
        Height = 16
        Caption = '串口  COM  ：    '
        OnClick = SheZhi_enter
      end
      object Label19: TLabel
        Left = 88
        Top = 120
        Width = 69
        Height = 16
        Caption = '波特率 ：      '
      end
      object Label20: TLabel
        Left = 76
        Top = 176
        Width = 78
        Height = 16
        Caption = '短信中心：      '
      end
      object Edit1: TEdit
        Left = 160
        Top = 56
        Width = 65
        Height = 24
        TabOrder = 0
        Text = 'COM1'
        OnClick = SheZhi_enter
      end
      object Edit2: TEdit
        Left = 160
        Top = 120
        Width = 65
        Height = 24
        TabOrder = 1
        Text = '19200'
      end
      object Button1: TButton
        Left = 112
        Top = 256
        Width = 105
        Height = 33
        Caption = '确      定'
        TabOrder = 2
        OnClick = Button1Click
      end
      object Edit3: TEdit
        Left = 160
        Top = 176
        Width = 105
        Height = 24
        TabOrder = 3
      end
      object GroupBox1: TGroupBox
        Left = 296
        Top = 40
        Width = 441
        Height = 313
        TabOrder = 4
        object Label24: TLabel
          Left = 13
          Top = 24
          Width = 48
          Height = 16
          Caption = 'Label24'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clTeal
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label25: TLabel
          Left = 15
          Top = 163
          Width = 404
          Height = 16
          Caption = 
            '7.等待出现 " 设备正常，设备参数保存正确，可以正常工作!"         ' +
            '                    '
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Button2: TButton
          Left = 98
          Top = 213
          Width = 169
          Height = 41
          Caption = '设备测试并保存参数'
          TabOrder = 0
          OnClick = Button2Click
        end
      end
    end
    object TabSheet8: TTabSheet
      Caption = '信息监控'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ImageIndex = 7
      ParentFont = False
      object Label21: TLabel
        Left = 8
        Top = 376
        Width = 296
        Height = 35
        Caption = '谢谢使用中正软件'
        Font.Charset = GB2312_CHARSET
        Font.Color = clGreen
        Font.Height = -35
        Font.Name = '隶书'
        Font.Style = [fsBold, fsItalic]
        ParentFont = False
      end
      object Label22: TLabel
        Left = 400
        Top = 387
        Width = 227
        Height = 20
        Caption = 'SMS CENTER:13013558092     '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGreen
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label23: TLabel
        Left = 400
        Top = 408
        Width = 201
        Height = 20
        Caption = 'http://www.duanxiaoxi.com    '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGreen
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Memo7: TMemo
        Left = 8
        Top = 8
        Width = 745
        Height = 353
        Color = clBackground
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWhite
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        Lines.Strings = (
          '中正短信网关系统与客户关系管理'
          ''
          '短信的发展'
          
            '2001年初，有关人士就预料中文短信息会火起来，当时的估计是1年发送1' +
            '00亿条短信息。现在看来，这一估计保守了许多。举个例子'
          
            '，仅北京申奥成功当天，北京地区短信息发送量就超过2000万条／小时。' +
            '实际上中国移动2001年的短信发送达到259亿条，收入26亿'
          
            '元人民币。超额完成年计划的50%，仅2001年12月一个月，业务量就达到3' +
            '0亿条，2002年中国移动短信发送达到959亿条，完全超'
          '出了专家的估计，速度发展之快令专家大跌眼镜。'
          ''
          ''
          '短信发展为什么会如此迅猛？'
          '。手机的普及。已经完全平民化，不再是身份和地位的象征。'
          '。费用的低廉。人们更喜欢少花钱。'
          
            '。是文本方式。和电话的语音方式相比， 不用人工接听记录，不用人工' +
            '听录音再整理成文本（还有方言的困扰）。收发信息完全计算机'
          '自动完成。'
          ''
          ''
          '短信的应用'
          
            '在各大短信运营商“跑马圈地”的同时基于短信息的新应用也层出不穷。' +
            '在广州推出了使用短信的问路服务，通过发短信到收有大量位置信'
          
            '息的数据服务系统，系统根据手机用户的要求迅速查找出相关信息，然后' +
            '发回给手机用户；北京西单科技广场的短信售货机可以用手机短'
          
            '信购置预售商品，购物费计入用户手机费；而英格兰查姆斯福特皇家法院' +
            '为了减少法庭延误时间，最近开始实行一个向审判证人发送手机'
          
            '文本短信的试验计划，这个新系统的设计者希望因此能减少在审判中浪费' +
            '的时间，节省纳税人的钱。总的来说，短信的应用可以分为以下'
          '几种。'
          '。查询类业务：短信的气象信息、航班、股票、外汇牌价和新闻等'
          '。交易类服务：炒股、转帐、外汇买卖等'
          
            '。信息收集和发布：公司公告，产品广告，公司通知。客户资料的收集，' +
            '用户的反馈，外地员工的工作汇报等。'
          
            '。定位业务：查询本人或员工的位置，实现外地员工的考勤，重要设备定' +
            '位。'
          ' '
          ''
          ''
          '从客户关系管理看企业的发展'
          
            '一般看来，企业有2个最重要的生命线：钱和客户关系。钱可以用财务软' +
            '件来管理，客户关系怎么管理呢？怎样培养新客户？怎样使新客'
          
            '户成为老客户？怎样使老客户引来更多得客户？怎样培养客户的忠诚度？' +
            '诸多问题的解决，最重要的一点是沟通。我们的短信软件正好可'
          
            '以提供廉价和方便的沟通方式，并收集客户的资料，使公司更好得了解客' +
            '户，让客户更快更好的了解公司及公司产品。更好的提高公司的'
          '竞争力。'
          ''
          ''
          '附加一：应用举例'
          '应用举例1：商场、超市、俱乐部 　 　 　 　'
          ''
          
            '顾客询问：通过本系统，顾客可以询问某一类商品的品牌、型号、价格的' +
            '情况，商场即可将已存储好的数据发送至顾客手机，使顾客在来'
          '商场之前对所需商品已有相当的了解。坚定购买信心，增加商场销售量。'
          ''
          '会员通知：将商场打折、优惠等消息发送到多个会员，并可接收回复。'
          ''
          
            '售后服务调查：调节器配会员对商场的满意程度，如售货员服务态度、商' +
            '品价格等。'
          '应用举例2：批发公司 　 　 　 　'
          
            '您的企业是北京一家卫生纸批发公司，您的下游企业有几十家零售商，如' +
            '果某种产品促销或者某产品刚刚到货，需要通知零售商，如果你'
          
            '打电话一一通知，不仅麻烦，而且费用高（如果您的客户分布在全国各地' +
            '，就更省了：），这时，就需要用短消息通知他们了。可用我们'
          
            '的短信网关系统一次性把您的产品信息发到所有的零售商业务人员的手机' +
            '。'
          '　　您也可在过年的时候给您的零售商一个问候，拜个年……'
          '　　'
          '　　这时候您就需要短消息群发'
          ''
          '应用举例3：旅游公司'
          
            '又开发了一条新的旅游路线，赶紧通知没有去过而又喜欢旅游的客户吧！' +
            '群发！'
          ''
          '应用举例4：保险公司'
          
            #9'今年的保费又该缴了，不用再一一写信通知了，太麻烦。还是用短信系' +
            '统方便！'
          ''
          '应用举例5：银行。。。。。。。用处太多了！'
          ''
          ''
          ''
          '附加二：适用行业'
          ''
          '证券营业部、证券经纪'
          '　　发送股评、即时行情等。'
          '　　发送公告信息、通知等。'
          '　　发送资金异动信息。'
          '大型企业、事业单位 '
          '　　发送内部通知、业务变更等。'
          '　　与本单位业务人员、出差人员联系。'
          '　　与各地经销商、重点客户联系，发布产品信息及新品通告 '
          '　　发送行业特定信息，如水费、周费、年检通知、税费等。'
          '商场、超市'
          '　　作商业活动广告、新品宣传、打折及联谊活动通告。'
          '　　向客户发送特价、促销信息。'
          '　　供货商、商场、超市企业内部联系。'
          '保险公司'
          '　　保费摧缴、结算通知等。'
          '　　业务员联系'
          '　　发送新业务通告、保费调整等信息。'
          '广告公司、其它媒体'
          '　　发送广告报价，广告播出/刊出通知。'
          '　　代理客户短消息广告。'
          '旅行社'
          '　　发布旅游线路信息、报价等广告。'
          '　　与外地导游联系'
          '销票中心、汽车站、火车站、飞机场 '
          
            '　　对重点、固定客源（如旅行社、外贸公司、各定点定票单位等）公布' +
            '票务及相关情况（如高速公路情况、火车临时加快列车及晚点情'
          '况、飞机增加航班及天气原因延时开航等）。 '
          '　　企业内部联系。（如长途汽车司机、列车长相互联络）'
          '需要向公众或内部人员大量传送信息的各行各业。'
          ' '
          ''
          '附加三：新闻'
          '(记者王正鹏)昨天，信息产业部首次公布2003年的宏观调控目标。 '
          
            '　　吴基传说，今年通信业的收入要保证11个百分点的增长。通信业固定' +
            '资产投资2100个亿，比去年少6个亿。还有一个引人注目的数'
          
            '字是，信息产业部认为今年移动电话的普及率要达到20.1%，手机用户增' +
            '长5200万，月均433万（青年人中的已基本普及）。'
          ''
          ' ')
        ParentFont = False
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
  end
  object BitBtn5: TBitBtn
    Left = 603
    Top = 0
    Width = 79
    Height = 21
    Caption = '停止收发进程'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = ddd
  end
  object BitBtn3: TBitBtn
    Left = 681
    Top = 0
    Width = 81
    Height = 21
    Caption = '启动收发进程'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGreen
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 2
    OnClick = BitBtn3Click
  end
end