问各位前辈,从网上下的pb源码怎样用pb打开并运行

问各位前辈,从网上下的pb源码怎样用pb打开并运行,第1张

源码如果有pbw文件,可以直接在PB中打开
没有PBW,需要创建一个workspace,然后导入,pbt或PBL,或者用早期版本的PB打开。
因为早期版本的PB没有workspace

这个是直接导入的。还有一种方法,就是逐行逐列读取excel表格,这个方法效率不高,但是有个好处就是excel的数据文件和数据窗口不要求对应,就相当于excel是一个数据窗口,从这里取值,赋值到目标数据窗口一样的 *** 作。如果你需要我也可以帮你写一个例子。
先传一个直接导入的:这种导入要求excel和数据窗口的字段对应。
OLEObject ExcelServer
long excelok
string str_savename
string str_filename
string named
integer value
value = GetFileOpenName("打开文件",str_filename, named, "DOC", &
"文本文件 (TXT),TXT," &
+ "EXCEL 文件 (XLS),XLS,"+"EXCEL 文件 (XLSX),XLSX")
if value = 1 then
ExcelServer = CREATE OLEObject
ExcelOK = ExcelServerConnectToNewObject( "excelapplication" )
if excelok < 0 then
messagebox("连接excel失败,检查你的系统是否安装了office",string(excelok))
return
else
dw_1reset()
ExcelServerWorkbooksOpen(str_filename)
str_savename="c:\temptxt"
excelserveractiveworkbooksaveas(str_savename,3)
excelserverdisplayalerts=false
ExcelServerquit()
ExcelServerDisconnectObject()
DESTROY ExcelServer
dw_1ImportFile(str_savename)
filedelete(str_savename)
end if
end if

在 File 菜单中有一个导入工程的菜单项吧!选择导入“ pbw ”的文件进行导入,就可以打开工程了。或者是在库文件中,加入“ pbl ”文件,就可以在类文件导航栏中,打开源码了。
我都N年没有用过PB了,回答不详细,请谅解。


欢迎分享,转载请注明来源:内存溢出

原文地址: http://www.outofmemory.cn/yw/13380214.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-07-25
下一篇 2023-07-25

发表评论

登录后才能评论

评论列表(0条)

保存