电话有套餐，我的程序有也套餐，注册、时间、次数集于一身的程序

hdlyt11

大哥，能不能给发个源码啊！hdlyt11@163.com，多谢，哈哈

QUAN2518

问下 对话框用什么写的

我现在学OPENDCL但是看不动英文

辛苦啊 例里面都看不怎么明白.

yxp

算是一个创新。

dnnlog

大哥，能不能给发个源码啊！dnnlog@163.com，多谢，哈哈

lhg

中途没办法改套餐？

xiaoyaobest

兄弟

是用VB写的吧

用DCL写好麻烦哦

英雄无敌

MAIN_DCLmain_dcl: dialog{
label="程序使用套餐对话框";
:boxed_radio_column{
label="亲爱的用户，请选一种套餐";
:button{label="注册-->能在本机永久使用";key="bb1";}
:button{label="试用-->能使用一个月时间";key="bb2";}
:button{label="试用-->能使用两百次上限";key="bb3";}
}
:boxed_radio_row{
label="Information";
:button{label="程序员资料";key="bb4";}
:button{label="程序资料";key="bb5";}
}:text{
label="Version: 007";
alignment=right;
}
:text{
label="Copyright 2008年 by Koyote, Inc";
alignment=right;
}:row{:button{label="取消";key="Ca";is_default=true;}}
}
koyote: dialog{
label="程序员资料";
:text{
label="程序开发者:李敏. 英文名字:Koyote";
}:text{
label="工作单位：东莞方中集团房地产部";
}:text{
label="生于:广东省湛江市硇洲岛津前村";
}
:text{
label="邮箱:liminnet@foxmail.com";
}:text{
label="QQ:294721356 or 599017495";
}ok_only;
}
program: dialog{
label="程序资料";
:text{
label="程序命令:rect，采用lsp语言编译";
}:text{
label="程序功能：三点画矩形和平行四边形";
}:text{
label="如果用户要选注册套餐，则联系本人，";
}:text{
label="本人会给出授权码让用户注册，";
}
:text{
label="选套餐第二或第三种，程序第一运行";
}:text{
label="时会有详细提示用户，以免造成不解";
}ok_only;
}
machinenumber: dialog{
label="注册对话框";
:edit_box{
label="本机机器码是:";
edit_width=16;
key="bb3";
}:boxed_radio_row{
label="输入注册授权码";
:row{
:edit_box{
edit_width=5;
}
:edit_box{
edit_width=5;
}
:edit_box{
edit_width=5;
}
:edit_box{
edit_width=5;
}
}
}
ok_cancel;
}
这是对话框文件