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