主题:我有一个可以在BCB中直接解释执行的脚本组件, 非常棒, 需要的就联系我呀我的QQ94543331
我有一个非常棒的可以在BCB应用程序里直接解释执行的脚本组件, 使用起来非常方便, 只要将组件拖到你的应用程序窗口上即可, 脚本的书写语法与BCB差不多, 功能非常强大, 有了这个脚本组件, 你就可以把配置以脚本的形式放在配置里. 下面是一段脚本的例子:
这个例子是从实际应用这个脚本开发的一个应用里截下来的一段程序, 这个脚本响应一个按钮的点击事件:
function OnClick(Sender/*TSysFunction*/)
{
private tForm=pubSystem.CreateInputPassword();
if(tForm==0)return 0;
if(tForm.ShowModal()!=1)return 0;
private RServer=pubRServer;
private Result=RServer.GetSqlValue(RServer.DbName,"declare @Ret int exec @Ret=ispChangePassword '"+pubServiceApp.GetUserCode()+"','"+tForm.OldPwd.Text+"','"+tForm.NewPwd.Text+"' select @Ret");
delete tForm;
if(Result=="succeed"){
if(RServer.LastError.ToIntDef(0)==0){
ShowMess("密码修改失败:原密码不正确或用户不存在");
return 0;
}
}else{
ShowMess("密码修改失败",RServer.LastError);
return 0;
}
ShowMess("密码修改成功");
return 0;
}
这个例子是从实际应用这个脚本开发的一个应用里截下来的一段程序, 这个脚本响应一个按钮的点击事件:
function OnClick(Sender/*TSysFunction*/)
{
private tForm=pubSystem.CreateInputPassword();
if(tForm==0)return 0;
if(tForm.ShowModal()!=1)return 0;
private RServer=pubRServer;
private Result=RServer.GetSqlValue(RServer.DbName,"declare @Ret int exec @Ret=ispChangePassword '"+pubServiceApp.GetUserCode()+"','"+tForm.OldPwd.Text+"','"+tForm.NewPwd.Text+"' select @Ret");
delete tForm;
if(Result=="succeed"){
if(RServer.LastError.ToIntDef(0)==0){
ShowMess("密码修改失败:原密码不正确或用户不存在");
return 0;
}
}else{
ShowMess("密码修改失败",RServer.LastError);
return 0;
}
ShowMess("密码修改成功");
return 0;
}