VFP中实现电话拨号

当使用VFP管理名片簿和地址簿时，通常使用电话拨号程序。如果直接使用Windows 98自带的拨号程序，VFP程序的完整性和界面一致性都会受到影响。
设计思路
要拨号，就让程序把AT命令写到串口上。借助VFP对微软CommControl控件的支持，你可以轻松控制手机。假设在有一个数据表communication.dbf，其内容如下:的姓名，电话号码，其他的张三1234567等...在将上表引入Form 1的数据环境后，在Form 1中添加了以下控件，如下图所示:
控件名称控件类型控件属性值
text 1 text control source = communication。姓名
text 2 text control source = communication。电话号码
1命令按钮caption = " dial "
命令2命令按钮caption = " hang up "
命令3命令按钮caption = " next record "
将ole容器控件添加到表单中，当出现提示菜单时，选择插入控件，找到并双击控件类型列中的Microsoft commcontrol，表单上将出现一个带有电话标志的图标，控件名称将设置为电话，这是实现电话拨入的核心组件选择电话控件，单击鼠标右键，选择MSComm属性菜单项，可以更灵活地控制控件。
设置事件代码
在Form 1的init事件中添加以下代码:
Go Top
*设置通信端口号，根据您的实际情况，可以设置
*作者的调制解调器是thisform.telephone.com port = 3
*设置通信速率(波特率)、通信字长以及是否检查
thisform.telephone。Settings =″9600，n，8，1 ″ 
将以下代码添加到command1的click事件中:
this . enabled = . not . this . enabled
this form . command 2 . enabled = . t .
*打开通信端口，准备
this form . telephone . port Open =。t . ATDT
*表示执行AT命令中的DT指令，表D
表示先挂断电话。
* T表示通过音频拨号。如果您的手机使用
脉冲拨号
*，请将T改为P，CHR (13)表示命令发送到
this form . telephone . output = " atdt "+电话号码+
CHR (13) 
请等待“现在
在Command2的click事件中写入以下代码:
this form . command 1 . enabled =。t .
this form . command 2 . enabled =。F.
*关闭通讯端口
此表单。telephone.portopen =。f .
在Command3的click事件中写了以下代码:
跳过if eof()
去顶
迪恩
这个表单。刷新

请多关注考试大计算机等级站