基于B/S体系结构开发应用系统

]

interface IStudentScore : IDispatch{

[propget, id(1), helpstring("课程号")] HRESULT SubjNo([out, retval] BSTR *pVal);

[propput, id(1), helpstring("课程号")] HRESULT SubjNo([in] BSTR newVal);

//其它接口部分从略

[id(5), helpstring("method RequeryScores")] HRESULT RequeryScores(([out,retval]LPDISPATCH* ppRecordset));

};

STDMETHODIMP CStudentScore::RequeryScores()

{

HRESULT hr=S_OK;

IobjectContext* m_spObjectContext=NULL;

//利用ADO访问数据库

::CoInitialize(NULL);

_RecordsetPtr pRecordSet=NULL,pRecordSetClone=NULL;

BSTR bstrDSN=::SysAllocString(L"Provider=SQLOLEDB.1;Persist Security Info=True;\

Password=;Initial Catalog=pubs;Data Source=zhudamiing;User ID=sa");

BSTR bstrSQL;

try{

GetObjectContext(&m_spObjectContext);

pRecordSet.CreateInstance(__uuidof(Recordset));

//根据查询要求(查询所有课程、查询特定学期所有课程、查询指定课程、查询

//特定学期某一课程)进行不同操作生成相应SQL语句,程序具体处理从略

pRecordSet->CursorLocation = adUseClient;