编写一个ActiveX DLL,其中一个实现类声明如下TRFUser = class(TTypedComObject, IRFUser)
private
ADOConnection1: TADOConnection;
ADOQu_Temp: TADOQuery; protected
{Declare IRFUser methods here}
function AddDepart(pParentDptName, pDptName, pManager, pPhone, pFax,
pAddress: PChar): SYSINT; stdcall;
function AddOneUser(pDptName, pEmplyID, pEmplyName, pIDCardNo,
pUserTypeName, pEmpSex, pEmpBirthDay, pDuty, pNation, pDegree,
pAddress, pTel, pEmpPass, pComeDate, pRe: PChar;
iGz_Grade: Integer): SYSINT; stdcall;
function ChngDpttoDpt(pDptName, pNewParentDptName: PChar): SYSINT; stdcall;
function ChngUserDpt(pEmplyID, pNewDptName: PChar): SYSINT; stdcall;
function ConnectDB: SYSINT; stdcall;
function DeleteDepart(pDptName: PChar): SYSINT; stdcall;
function DeleteOneUser(pEmplyID: PChar): SYSINT; stdcall;
function DisConnectDB: SYSINT; stdcall;
function GetDepartInfo(pDptName, pParentDptName, pManager, pPhone, pFax,
pAddress: PChar): SYSINT; stdcall;
function GetPYM(input_str: PChar): PChar; stdcall;
function GetUserInfo(pEmplyID, pDptName, pEmplyName, pIDCardNo,
pUserTypeName, pEmpSex, pEmpBirthday, pDuty, pNation, pDegree,
pAddress, pTel, pEmpPass, pComeDate, pRe: PChar;
var iGz_Grade: HResult): SYSINT; stdcall;
function IsExistUser(pEmplyID: PChar): SYSINT; stdcall;
function ModifyDepart(pParentDptName, pOldDptName, pNewDptName, pManager,
pPhone, pFax, pAddress: PChar): SYSINT; stdcall;
function ModifyOneUser(pEmplyID, pDptName, pEmplyName, pIDCardNo,
pUserTypeName, pEmpSex, pEmpBirthday, pDuty, pNation, pDegree,
pAddress, pTel, pEmpPass, pComeDate, pRe: PChar;
var iGz_Grade: HResult): SYSINT; stdcall;
function ModifyUserType(pOldTypeName, pNewTypeName: PChar): SYSINT;
stdcall;
public end;请问,COM对象初始化时执行的代码应该放在这个实现类的构造函数中还是其他地方?
constructor TRFUser.Create(onwer:TComponent);
请指点
private
ADOConnection1: TADOConnection;
ADOQu_Temp: TADOQuery; protected
{Declare IRFUser methods here}
function AddDepart(pParentDptName, pDptName, pManager, pPhone, pFax,
pAddress: PChar): SYSINT; stdcall;
function AddOneUser(pDptName, pEmplyID, pEmplyName, pIDCardNo,
pUserTypeName, pEmpSex, pEmpBirthDay, pDuty, pNation, pDegree,
pAddress, pTel, pEmpPass, pComeDate, pRe: PChar;
iGz_Grade: Integer): SYSINT; stdcall;
function ChngDpttoDpt(pDptName, pNewParentDptName: PChar): SYSINT; stdcall;
function ChngUserDpt(pEmplyID, pNewDptName: PChar): SYSINT; stdcall;
function ConnectDB: SYSINT; stdcall;
function DeleteDepart(pDptName: PChar): SYSINT; stdcall;
function DeleteOneUser(pEmplyID: PChar): SYSINT; stdcall;
function DisConnectDB: SYSINT; stdcall;
function GetDepartInfo(pDptName, pParentDptName, pManager, pPhone, pFax,
pAddress: PChar): SYSINT; stdcall;
function GetPYM(input_str: PChar): PChar; stdcall;
function GetUserInfo(pEmplyID, pDptName, pEmplyName, pIDCardNo,
pUserTypeName, pEmpSex, pEmpBirthday, pDuty, pNation, pDegree,
pAddress, pTel, pEmpPass, pComeDate, pRe: PChar;
var iGz_Grade: HResult): SYSINT; stdcall;
function IsExistUser(pEmplyID: PChar): SYSINT; stdcall;
function ModifyDepart(pParentDptName, pOldDptName, pNewDptName, pManager,
pPhone, pFax, pAddress: PChar): SYSINT; stdcall;
function ModifyOneUser(pEmplyID, pDptName, pEmplyName, pIDCardNo,
pUserTypeName, pEmpSex, pEmpBirthday, pDuty, pNation, pDegree,
pAddress, pTel, pEmpPass, pComeDate, pRe: PChar;
var iGz_Grade: HResult): SYSINT; stdcall;
function ModifyUserType(pOldTypeName, pNewTypeName: PChar): SYSINT;
stdcall;
public end;请问,COM对象初始化时执行的代码应该放在这个实现类的构造函数中还是其他地方?
constructor TRFUser.Create(onwer:TComponent);
请指点
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货