【MFC】学习MFC day4 vs2019 基于对话框的MFC应用程序&导出列表框控件(List Control)的数据到EXCEL文件
今天的目标：
1、收集数据到列表框控件
2、列表框控件的数据导出到EXCEL文件（.xls）
开始：
今天的代码文件Github的链接我也会放在博客的底部哟
偷个懒，我将我上一篇博客的项目改了一下。
将三个对话框窗体的界面设置成下图
列表框（List Control）的设置
将List Control 控件的View属性设置为Report（报表模式）
BOOL CMFCDialogDlg::OnInitDialog()
{
......
// TODO: 在此添加额外的初始化代码
}
将下面的代码放到上面OnInitDialog()里面
以下代码是初始列表框的样式
CRect mRect;
mList1.GetWindowRect(&mRect); //获取控件矩形区域
int kuan = mRect.Width();
mList1.InsertColumn(0, _T("姓名"), LVCFMT_CENTER, kuan/3, -1);//添加标题
mList1.InsertColumn(1, _T("职务"), LVCFMT_CENTER, kuan / 3, -1);//添加标题
mList1.InsertColumn(2, _T("自我介绍"), LVCFMT_CENTER, kuan / 3, -1);//添加标题
DWORD dwStyle = mList1.GetExtendedStyle(); //获取当前扩展样式
dwStyle |= LVS_EX_FULLROWSELECT; //选中某行使整行高亮（report风格时）
dwStyle |= LVS_EX_GRIDLINES; //网格线（report风格时）
dwStyle |= LVS_EX_CHECKBOXES; //item前生成checkbox控件
mList1.SetExtendedStyle(dwStyle); //设置扩展风格
List Control类的成员函数列表(一部分)：
int InsertItem(int nItem,LPCTSTR lpszItem)
nItem索引(从0开始；列表框标题不占索引) lpszItem 内容⬆
CString GetItemText(int nItem,int nSubItem)//nItem 索引 nSubItem子项索引(从0开始)
说人话就是：第nItem行 第nSubItem列⬆
BOOL SetItemText(int nItem,int nSubItem,LPTSTR lpszText)
这个就不用多说了吧，和上面对照来看就明白了⬆
int InsertColumn(int nCol,
LPCTSTR lpszColumnHeading,
int nFormat = LVCFMT_LEFT,
int nWidth = -1,
int nSubItem = -1
)
这个就举个例子：mList1.InsertColumn(0, _T(“姓名”), LVCFMT_CENTER, kuan/3, -1);//添加标题
标题为 导出为EXECLE文件 的按钮的点击事件代码：
首先先在CMFCDialogDlg.h文件中引用以下头文件
#include<afxdb.h> //用于建立数据库对象，包括CDatabase类
#include <odbcinst.h>
#pragma comment(lib,"odbc32.lib")
#pragma comment(lib,"odbccp32.lib")
#pragma comment(lib,"legacy_stdio_definitions.lib")
void CMFCDialogDlg::OnBnClickedButton4()
{
// TODO: 在此添加控件通知处理程序代码
//导出数据到EXCEL
CDatabase database;
//CString sDriver = CString("MICROSOFT EXCEL DRIVER (*.XLS)"); // Excel安装驱动
CString sDriver= GetExcelDriver(); // Excel安装驱动
CString sExcelFile, sPath;
CString sSql;
//AfxMessageBox(GetExcelDriver());
//获取主程序所在路径,存在sPath中
//CString TopIndex;
int ItemCount = this->mList1.GetItemCount();//获取列表项数量
//TopIndex.Format(CString("%d"), this->mList1.GetItemCount());
//AfxMessageBox(TopIndex);
GetModuleFileName(NULL, sPath.GetBufferSetLength(MAX_PATH + 1), MAX_PATH);
sPath.ReleaseBuffer();
int nPos;
nPos = sPath.ReverseFind('\\');
sPath = sPath.Left(nPos);
sExcelFile=sPath + CString("\\test.xls"); // 要建立的Excel文件
TRY
{
// 创建进行存取的字符串
sSql.Format(CString("DRIVER={%s};DSN='';FIRSTROWHASNAMES=1;READONLY=FALSE;CREATE_DB=\"%s\";DBQ=%s"),sDriver, sExcelFile, sExcelFile);
// 创建数据库 (既Excel表格文件)
if (database.OpenEx(sSql,CDatabase::noOdbcDialog))
{
sSql.Format(CString("CREATE TABLE Exceldemo (%s TEXT,%s TEXT,%s TEXT)"),
CString("名字"),
CString("职务"),
CString("自我介绍"));
database.ExecuteSQL(sSql);
for (int i = 0; i <=ItemCount-1;i++) {//索引从0开始所以需要ItemCount-1
// 插入数值
sSql.Format(CString("INSERT INTO Exceldemo (名字,职务,自我介绍) VALUES ('%s','%s','%s')"),
CString(mList1.GetItemText(i,0)),
CString(mList1.GetItemText(i, 1)),
CString(mList1.GetItemText(i, 2))
);
database.ExecuteSQL(sSql);
}
// 创建表结构(名字、职务、自我介绍)
}
// 关闭数据库
database.Close();
AfxMessageBox(CString("Excel文件写入成功！")+ sExcelFile);
}
CATCH_ALL(e)
{
TRACE1("Excel驱动没有安装: %s", sDriver);
}
END_CATCH_ALL;
}
GetExcelDriver()函数的代码：
CString CMFCDialogDlg::GetExcelDriver()//读取EXCEL文件//检索是否安装有Excel驱动
{
CString sDriver;
TCHAR szDrivers[4096];
memset(szDrivers, 0, sizeof(szDrivers));
WORD wRet = 0;
// 获取已安装驱动的名称(函数在odbcinst.h里)
if (SQLGetInstalledDrivers(szDrivers, _countof(szDrivers), &wRet))
{
LPTSTR pszDrv = szDrivers;
while (*pszDrv)
{
CString str = CString(pszDrv);
CStringA StrA = static_cast<CStringA>(str);
char* str2 = StrA.GetBuffer();
//LPTSTR -> char*
//MessageBox(pszDrv);
if (strstr(str2, "Excel") != 0) {
sDriver = CString(str2);
return sDriver;
}
pszDrv += _tcslen(pszDrv) + 1;
}
}
}
最后效果图：
最后
感谢大家的翻阅