VFP中完成电话拨号

    用ＶＦＰ管理名片簿、通信录时，经常要用到电话拨号程序。如直接使用Ｗｉｎｄｏｗｓ９８自带的拨号程序，ＶＦＰ程序的完整性和界面一致性都将受到影响。
  设计思想
  要实现拨号，只需让程序往串口写入ａｔ命令。利用ＶＦＰ对ＭｉｃｒｏｓｏｆｔＣｏｍｍＣｏｎｔｒｏｌ控件的支持可以方便地控制电话。假设有一数据表Ｃｏｍｍｕｎｉｃａｔｉｏｎ．ｄｂｆ，内容如下：姓名电话号码其他张三１２３４５６７ＥＴＣ……将上述表引入表单Ｆｏｒｍ１的数据环境之后，在Ｆｏｒｍ１上加入下列控件，如下所示：
控件名称控件类型控件属性值
Ｔｅｘｔ１ＴｅｘｔＣｏｎｔｒｏｌＳｏｕｒｃｅ＝ｃｏｍｍｕｎｉｃａｔｉｏｎ．姓名
Ｔｅｘｔ２ＴｅｘｔＣｏｎｔｒｏｌＳｏｕｒｃｅ＝ｃｏｍｍｕｎｉｃａｔｉｏｎ．电话号码
Ｃｏｍｍａｎｄ１ＣｏｍｍａｎｄＢｕｔｔｏｎＣａｐｔｉｏｎ＝“拨号”
Ｃｏｍｍａｎｄ２ＣｏｍｍａｎｄＢｕｔｔｏｎＣａｐｔｉｏｎ＝“挂断”
Ｃｏｍｍａｎｄ３ＣｏｍｍａｎｄＢｕｔｔｏｎＣａｐｔｉｏｎ＝“下条记录”
在表单中加入ＯＬＥ容器控件，当提示菜单出现时，选择ＩｎｓｅｒｔＣｏｎｔｒｏｌ，在ＣｏｎｔｒｏｌＴｙｐｅ（控件类型）栏内找到并双击ＭｉｃｒｏｓｏｆｔＣｏｍｍＣｏｎｔｒｏｌ，这时表单上会出现一个带电话标志的图标，设定该控件的名称为Ｔｅｌｅｐｈｏｎｅ，这就是在ＶＦＰ中实现电话拨号的核心部件。选择Ｔｅｌｅｐｈｏｎｅ控件，单击鼠标右键，选择ＭＳＣｏｍｍＰｒｏｐｅｒｔｉｅｓ菜单项，可以更加灵活地控制该控件。
  设定事件代码
在Ｆｏｒｍ１的Ｉｎｉｔ事件中加入下列代码：
ｇｏｔｏｐ
＊设定通讯端口号，可根据你的实际情况设定
＊笔者的Ｍｏｄｅｍ是接在Ｃｏｍ３上的ｔｈｉｓｆｏｒｍ．ｔｅｌｅｐｈｏｎｅ．ＣｏｍｍＰｏｒｔ＝３
＊设定端口的通讯速率（波特率）、通讯字长以及是否进行校验
ｔｈｉｓｆｏｒｍ．ｔｅｌｅｐｈｏｎｅ．Ｓｅｔｔｉｎｇｓ＝″９６００，ｎ，８，１″
在Ｃｏｍｍａｎｄ１的Ｃｌｉｃｋ事件中加入下述代码：
ｔｈｉｓ．ｅｎａｂｌｅｄ＝．ｎｏｔ．ｔｈｉｓ．ｅｎａｂｌｅｄ
ｔｈｉｓｆｏｒｍ．ｃｏｍｍａｎｄ２．ｅｎａｂｌｅｄ＝．ｔ．
＊打开通信端口，准备工作
ｔｈｉｓｆｏｒｍ．ｔｅｌｅｐｈｏｎｅ．ｐｏｒｔｏｐｅｎ＝．ｔ．
＊ＡＴＤＴ表示执行ＡＴ命令中的ＤＴ指令，Ｄ表
示首先挂断电话
＊Ｔ表示使用音频拨号，如果你的电话使用的
是脉冲方式拨号
＊请将Ｔ改为Ｐ，ＣＨＲ（１３）表示发送命令完毕
ｔｈｉｓｆｏｒｍ．ｔｅｌｅｐｈｏｎｅ．ｏｕｔｐｕｔ＝″ＡＴＤＴ″＋电话号码＋
ｃｈｒ（１３）
ｗａｉｔｗｉｎｄ″正在拨号，请稍候″ｎｏｗａ
在Ｃｏｍｍａｎｄ２的Ｃｌｉｃｋ事件中写入下列代码：
ｔｈｉｓｆｏｒｍ．ｃｏｍｍａｎｄ１．ｅｎａｂｌｅｄ＝．ｔ．
ｔｈｉｓｆｏｒｍ．ｃｏｍｍａｎｄ２．ｅｎａｂｌｅｄ＝．ｆ．
＊关闭通信端口
ｔｈｉｓｆｏｒｍ．ｔｅｌｅｐｈｏｎｅ．ｐｏｒｔｏｐｅｎ＝．ｆ．
在Ｃｏｍｍａｎｄ３的Ｃｌｉｃｋ事件中写入下列代码：
ｓｋｉｐ ｉｆｅｏｆ（）
ｇｏｔｏｐ
ｅｎｄｉ
ｔｈｉｓｆｏｒｍ．ｒｅｆｒｅｓｈ
经过上面几个步骤，大功告成了。戴上耳机，对着话筒。

（四川省新都县国家税务局６１０５００）

关键词： VFP中完成电话拨号