会用Activex控件的进来看一下,这个会计凭证控件在VC下能不能用

[yang6130]

会计凭证输入ActiveX控件是本人用Delphi 6.0做出来的一个控件，在Delphi下使用一切正常，但本人不会VC，会用Activex控件的进来看一下,这个会计凭证控件在VC下能不能用正常使用：
1）、控件使用了4个自定义事件On_GetAccText(取会计科目代码对应的科目名称),On_GetCy(取科目核算币别),On_GetRate(取科目汇率),On_validCy(验证科目有否核算指定币别)，在VC下如何使用，其中On_GetAccText在Delphi 6.0代码如下：
procedure TForm1.CNPZGridPro1_GetAccText(Sender: TObject;
const sAccID: WideString; var sResult: WideString);
begin
sResult:=sAccID+' 会计科目';//作用是在用户输入的科目代码后加上科目名称，这里以' 会计科目'代替；
end;
On_GetAccText在VC6.0代码如下：
void CTest04Dlg::OnGetAccTextCnpzgridpro1(LPCTSTR sAccID, BSTR FAR* sResult)
{
// TODO: Add your control notification handler code here
//sResult:=sAccID+' 会计科目' 用VC怎么写？
}
4个事件的VC代码，能写一个的得25分；
2）、控件DEMO下有用Delphi6.0写的DEMO，能用VC重写的另开贴独得200分。
控件下载地址：http://www.delphifans.com/SoftView/SoftView_610.html
谢谢各位，分数先搞定的先得，绝不食言！！！

[吹泡泡的小猫]

CString strTmp;
strTmp = sAccID;
strTmp += "会计科目";
*sResult = strTmp.AllocSysString(这个函数具体名字忘了)


C语言的字符串操作比较麻烦

[菜牛]

新建一个对话框工程，在对话框上插入一个ActiveX控件，即你的CNPZGRID控件，在控件上点鼠标右键，选择“添加事件处理程序”，利用VC类向导添加事件处理，“消息类型”选择“_GetAccText”，默认的函数处理程序名称为“_GetAccTextCnpzgrid1”，“类列表”中选择你的对话框类，然后点击“添加编辑”，在代码中

void CA...lg::_GetAccTextCnpzgrid1(LPCTSTR sAccID, BSTR* sResult)
{
// TODO: 在此处添加消息处理程序代码
CString strResult;
CString strAccID(sAccID);
if (strAccID == "1001")
strResult = _T("1001 现金");
else if (strAccID == "1002")
strResult = _T("1002 转帐");
else
strResult = _T("错误");

*sResult = strResult.AllocSysString();
}

[yang6130]

to Mackz(在相互)
哇，看来你对会计还挺熟的，我是注册会计师，有会计方面问题可以交流一下^_^

[yang6130]

谢谢楼上的二位，对VC的字符串操作有点感觉了，同时贴出另三个自定义事件的DELPHI码，以兑现承诺。

procedure TForm1.CNPZGridPro1_GetCy(ASender: TObject;
const sAccID: WideString; var sResult: WideString);//sAccID为会计科目代码
begin
sresult:='RMB';
if upperCase(copy(sAccID,1,1))='W' then //代码首位为W则可以核算外币，否则只能核算人民币
sresult:='USD';
end;

procedure TForm1.CNPZGridPro1_GetRate(ASender: TObject;
const sCy: WideString; var fResult: Double);//sCy为币别
begin
fresult:=1;//RMB VS 记账本位币 为1
if uppercase(sCy)='USD' then fresult:=8.2767;USD VS RMB 为8.2767
end;

procedure TForm1.CNPZGridPro1_ValidCy(ASender: TObject; const sAccID,
sCy: WideString; var bResult: WordBool);
begin
bresult:=false;
if uppercase(sCy)='RMB' then bresult:=true;//所有科目均可核算RMB
if upperCase(copy(sAccID,1,1))='W' then //W开头的科目可核算USD
if uppercase(sCy)='USD' then
bresult:=true
else
bresult:=false;
end;

[菜牛]

我没有搞过会计，只是知道一些编程原理而已。其他几个事件差不多吧。

[smcity]

偶试一下，先谢了

[yang6130]

up

[yang6130]

问题一搞定了，散分，up有分！
明天开始休假，下星期二准时结贴

[djfu]

楼主好像不是搞IT的吧？竟然是注册会计师？日子过的挺悠闲的哦