pb接受参数运行
PB程序运行时用CommandParm()来接受程序运行参数。
例如他们系统中有个类来解析这个参数；
类的名字叫u_suppertclass，解析方法是checkparm()
1、pb运行程序并传递参数例子：
//登陆到器械库
//1:user ;2:ini文件;3：登陆系统；4登录仓库
ls_rfile=uo_support.getuserid()+' '+'his.ini'+' '+'23'+' '+'04'
run("wzgl.exe " + ls_rfile,Maximized!)
2、被调用程序解析参数的例子：
if uo_support.checkparm()=false then
halt close
end if
其中uo_support.checkparm()的方法：
string ls_cmd, ls_arg[]//1:user ;2:ini文件;3：登陆系统；4登录仓库
integer i, li_argcnt
ls_cmd = Trim(CommandParm())
int a
li_argcnt = 1
DO WHILE Len(ls_cmd) > 0
i = Pos( ls_cmd, " ")
if i = 0 then i = Len(ls_cmd) + 1
ls_arg[li_argcnt] = Left(ls_cmd, i - 1)
li_argcnt = li_argcnt + 1
ls_cmd = Replace(ls_cmd, 1, i, "")
LOOP
for a=1 to UpperBound(ls_arg)
if trim(ls_arg[a])="" or isnull(trim(ls_arg[a])) then
messagebox('提示信息','参数传递不正确！程序将退出')
return false
exit
end if
next
//为登陆的系统设置一些全局变量
in_SystemID=integer(ls_arg[3])
is_UserID=ls_arg[1]
is_IniFileName=ls_arg[2]
is_Warehouse=ls_arg[4]
//药房code
in_yfcode=integer(ls_arg[4])
return true
发这段代码的目的是？
[解决办法]
是某家his公司的产品。他们的源代码满天飞。但是没有见到哪家公司使用这些源代码做起来的。关键是理念不一样
[解决办法]
这是给分让我们学习PB怎么执行带命令行参数程序么？
[解决办法]
