记录用友ERP二次开发全过程
以此为备忘录。
最好在机器上装好U8。
下一步把自定义权限及模块加入U8里,以方便外部程序调用,识别!
function erpLogin:boolean;
var loginObject:OleVariant;
bRetVal:boolean;
begin
try
loginObject:= CreateOleObject('UFSoft.U8.Framework.Login.UI.clsLogin');
if loginObject.login_2('DP') then
begin
///登陆成功
bRetVal:=true;
end else
begin
//登陆失败
bRetVal:=false;
end;
except
bRetVal:=false;
end;
erpLogin:=bRetVal;
end;