code22.txt

来自「一个用数据库编写的学生信息管理系统！做课程设计的同学可以做为参考！」· 文本 代码 · 共 20 行

程序段22
这段程序用于DDE服务向客户发送数据。

int return_value
string data,item
data=sle_1.text
int flag
//给 DDE 客户返回值
lab:
return_value=setdatadde(data,"my_appl","ny_topic","DDE通信")
//服务器向客户发送数据
if return_value=-2 then 
    flag=messageBox("提示信息","数据没接受",information!,YesNo!)
    if flag=1 then
       goto lab;
     else
       return
     end if
end if