//窗口最大化
m_pMainWnd->ShowWindow(SW_SHOWMAXIMIZED);
m_pMainWnd->UpdateWindow();
//////////////////////////////////////////////////////////////////
//扩展风格:使 List 带有 整行选择、表格、整行预选 功能
DWORD dwStyleEx;
dwStyleEx = LVS_EX_FULLROWSELECT | LVS_REPORT | LVS_EX_ONECLICKACTIVATE;
m_GndDzStatusList.SetExtendedStyle( dwStyleEx );
//////////////////////////////////////////////////////////////////
//设置光标
SetCursor(AfxGetApp()->LoadCursor(IDC_CrossArrow));
//菜单加对勾
pCmdUI->SetCheck(m_bIsDrawLine);
//颜色
pDC->SetTextColor(RGB(0, 0, 0));
//背景颜色
pDC->SetBkColor(RGB(192, 255, 192));
//得到CString的长度
CClientDC dc(this);
CString sTextWord;
CSize cSize;
cSize = dc.GetTextExtent(m_strBaseWord[m_BaseWordID].TextWord,
m_strBaseWord[m_BaseWordID].TextWord.GetLength());
//得到当前字体的信息
TEXTMETRIC tm;
CClientDC dc(this);
dc.GetTextMetrics(&tm);
//创建光标宽度,高度
CreateSolidCaret(tm.tmAveCharWidth/8, tm.tmHeight);
//设置光标
SetCaretPos(m_pPoint);
//显示光标
ShowCaret();
//////////////////////////////////////////////////////////////////
AfxMessageBox(_T("删除 ") + Purpose + _T(" 失败!"), MB_ICONSTOP);
//选中一项
m_ExpenseList.SetSelectionMark(0);
//插入首一项
m_ExpenseList.InsertItem(nIndex, m_Purpose, 0);
//自动选中一项
m_GndDzStatusList.SetItemState(nItem, LVIS_SELECTED, LVIS_SELECTED);
//自动滚动确保选中项能见
m_ContractList.EnsureVisible(nIndex, 1);
//删除CString中的%号
CString sString.Remove('%');
//防止添加Box重复
while (pStockMsgSet->IsEOF() == FALSE)
{
if ( m_StockTypeBox.FindStringExact(-1, pStockMsgSet->m_StockType) < 0 )
m_StockTypeBox.AddString(pStockMsgSet->m_StockType);
pStockMsgSet->MoveNext();
}
//打开数据库
TRY
{
pStationNameSet->Open();
}
CATCH(CDBException, e)
{
AfxMessageBox("不能打开[StationName]表, \n 导出厂站失败!");
delete pStationNameSet;
return FALSE;
}
END_CATCH
//////////////////////////////////////////////////////////////////
//取当前目录
char Path[255];
GetCurrentDirectory(255, Path);
//////////////////////////////////////////////////////////////////
//用对话框找文件
CString sSelectPathName;
CString sSelectName;
CString sSelectExt;
CFileDialog dlg(TRUE);
dlg.m_ofn.Flags = OFN_NOCHANGEDIR;
dlg.m_ofn.lpstrFilter = "Micrsoft Acess 数据库 (*.mdb)\0*.mdb\0\0";
if (dlg.DoModal() == IDCANCEL)
return FALSE;
//创建 ODBC ,选择数据库
sSelectPathName = dlg.GetPathName();
sSelectName = dlg.GetFileTitle();
sSelectExt = dlg.GetFileExt();
if (sSelectExt.CompareNoCase("mdb") != 0) 本文章更多内容:1 - 2 - 3 - 4 - 5 - 6 - 下一页>> |