用C++语言编写加权平均分公式: 平均分=(A门成绩*A门学分+B门成绩*B门...

发布网友 发布时间：2024-09-27 01:41

我来回答

共1个回答

热心网友 时间：3分钟前

首先新建一个表单Form1，保存单元文件Unit1.cpp，保存工程文件Project1.bpr。然后在表单中加入数据访问控件TTable，将Name属性设为Table1，DatabaseName属性设为BCDEMOS，TableName属性设为Country.db。在表单中加入一个按钮控件TButton，将其Name属性设为Button1，Caption属性设为 “转换为Excel文件”。双击Button1，在Button1Click()函数中加入如下代码：

Variant ex,newxls; int i,j=1; try { ex=CreateOleObject(″Excel.Application″); //启动Excel } catch(...) { ShowMessage(″无法启动Excel″); } ex.OlePropertySet(″Visible″,(Variant)true); //使Excel启动后可见 newxls=(ex.OleFunction(″Workbooks″)).OleFunction(″Add″);//新建一个工作薄 Table1－〉Active=true; //打开数据库 Table1－〉First(); for(i=0;i〈Table1－〉FieldCount;i＋＋) //将字段名写到工作薄的第一行 { (ex.OleFunction(″Cells″)).OlePropertySet(″Item″,(Variant)1,(Variant)(i＋1),(Variant)Table1－〉Fields[i]－〉FieldName); } while(!Table1－〉Eof) //将数据库中的记录依次写到工作薄中 { jj=j＋1; for(i=0;i〈Table1－〉FieldCount;i＋＋) { (ex.OleFunction(″Cells″)).OlePropertySet(″Item″,(Variant)j,(Variant)(i＋1), (Variant)Table1－〉Fields[i]－〉AsString); } Table1－〉Next(); } newxls.OleFunction(″SaveAs″,(Variant)filename); //保存工作薄，filename是工作薄的全文件名 ex.OleFunction(″Quit″); //退出Excel，释放OLE对象
注意，要使用OLE自动化对象，在编译之前还必须在Unit1.cpp文件前面加上＃include ″ComObj.hpp″。