【正文】 SetWindowText(strTitle)。CADOConn adoMain。//}}AFX_DATA_MAP}在對話框的初始化函數(shù) OnInitDialog 中，設(shè)置 CGridCtrl 控件的屬性，并將報表數(shù)據(jù)添加到 CGridCtrl 控件中，代碼如下。void CDlgPrint::DoDataExchange(CDataExchange* pDX){CDialog::DoDataExchange(pDX)?！瓆。CListCtrl *m_ListMain。 // standard constructorCString strSql。在 CDlgPrint 類的頭文件中，新創(chuàng)建一個 CGridCtrl 對象，代碼如下。系統(tǒng)設(shè)計了一個通過打印對話框，在其對話框資源模板中添加了 3 個按鈕控件和一個用戶自定義控件，該自定義控件用于實現(xiàn)46 / 69CGridCtrl 控件，其對應(yīng)的對話框類為 CDlgPrint。//退出 Excel 對象} 打印對話框設(shè)計開發(fā)系統(tǒng)對所有的統(tǒng)計報表都提供了打印功能。//自動設(shè)置 Excel 列(())。}}(i+3,1,(TRUE))。j()GetItemCount()。i()。}()。i()GetItemCount()。//添加標題(strSql)。//添加 Sheet 頁()。//獲取當前時間if(()==IDOK){()。CADOConn adoMain。//Excel 操作對象CMyTime time1。void CDLgReport::OnButton1() {// TODO: Add your control notification handler code hereint i=0,j=0。} “導出”按鈕可實現(xiàn)將報表數(shù)據(jù)導出到 Excel 文件中，按鈕響應(yīng)函數(shù)實現(xiàn)代碼如下。m_listMain。//對話框標題=strSql。void CDLgReport::OnButton2() //打印{// TODO: Add your control notification handler code hereCDlgPrint dlg。return TRUE。if(0==biaozhi){str=strSql。m_listMain。//設(shè)置標題文本字體GetDlgItem(IDC_STATIC1)SetWindowText(strTitle)。//打印按鈕GetDlgItem(IDC_STATIC1)SetFont(amp。(IDI_ICONBUTTON)。(%d,())。44 / 69if(0==biaozhi||0!=m_globalAreaInt)(FALSE)。BOOL CDLgReport::OnInitDialog() {CDialog::OnInitDialog()。在通用報表對話框資源模板中，添加了一個列表控件用于顯示報表數(shù)據(jù)，一個靜態(tài)文本控件用于顯示報表標題，還有兩個按鈕控件，即“導出”按鈕和“打印”按鈕，分別用于導出報表和打印報表。在 CShopManageDlg 類的初始化函數(shù) OnInitDialog 中，初始化菜單和位圖按鈕的設(shè)置，這里菜單和按鈕的設(shè)置分別采用自定義擴展類 CMyMenu 和 CMyButton，它們對基本菜單和按鈕控件的外觀作了定制，從而美化了程序界面。CMyButton m_ctrStore。CString strNo,strName。class CShopManageDlg : public CDialog{// Constructionpublic:CShopManageDlg(CWnd* pParent = NULL)。按鈕控件則直接添加到主對話框模板中，需要設(shè)置 Flat 屬性。系統(tǒng)中為對話框窗口添加了菜單項，為了方便進行常用操作，在對話框中還添加了一些位圖按鈕。()。()。(strSql)。IPAddressOrigin=\\\\+(1,0)。(sqlstr)。//關(guān)閉對話框//根據(jù)用戶區(qū)域標志獲得區(qū)域站點的 ip 地址CADOConn adoIP(3)。//用戶區(qū)域m_globalAreaInt=(7)。//用戶姓名strNo=m_str1。(strSql)。 and pwd=39。//數(shù)據(jù)連接對象,用戶信息表只有總站上有，所以連接 SQL 數(shù)據(jù)庫strSql=select * from AdminInfo where code=39。CString strSql。}登錄用戶的驗證操作在登錄對話框類 CDlgLogo 的“確定”按鈕響應(yīng)函數(shù) OnOK 中實現(xiàn)。()。//管理員姓名m_pMainWnd = amp。//銷售開單對話框}else//管理員{=。dlgXiao。//執(zhí)行查詢語句if(!())//結(jié)果集不為空{(diào)if(()){i=(2)。strSql=strSql++39。//退出程序CADOConn adoMain(3)。CString strSql。//主對話框CDlgXiaoShouKanDan dlgXiao。CDlgLogo dlgLog。IPAddressOrigin=MainIP。BOOL CShopManageApp::InitInstance(){MainIP=。系統(tǒng)啟動時，首先運行的是 CShopManageApp 類的 InitInstance函數(shù)，在這里創(chuàng)建登陸對話框，登陸后根據(jù)用戶的權(quán)限彈出相應(yīng)的對話框窗口。} 界面窗口設(shè)計系統(tǒng)主框架是使用 MFC 創(chuàng)建向?qū)?chuàng)建的基于對話框的應(yīng)用程序，工程名為“ShopManage ”。}}}()。}()。}else//區(qū)域站點添加成功{//總站和區(qū)域站點同時提交事務(wù)40 / 69CommitTrans()。if(!success)//區(qū)域站點沒有添加成功{//總站撤銷事務(wù)，寫下撤銷事務(wù)日志RollbackTrans()。success=(strSQL)。}else//數(shù)據(jù)沒有 copy 則不用更新區(qū)域站點數(shù)據(jù)，總站提交事務(wù){(diào)CommitTrans()。()。IPAddress = strIP。CommitTrans()。}else//區(qū)域站點添加成功{//總站和區(qū)域站點同時提交事務(wù)CommitTrans()。RollbackTrans()。if(!success)//區(qū)域站點沒有添加成功{RollbackTrans()。success)//區(qū)域站點添加成功，處理朝陽區(qū){success=(strSQL,2)。}//區(qū)域站點添加成功，需等待區(qū)域添加成功再提交事務(wù)}if(2==iamp。if(!success)//區(qū)域站點沒有添加成功，這時總站撤銷事務(wù){(diào)RollbackTrans()。if(1==i)//處理海淀區(qū)數(shù)據(jù)庫{success=(strSQL,1)。strIP = IPAddress。int i=0。//這里只有海淀和朝陽兩個站點，所以預(yù)先申請兩個 CADIConn 對象CADOConn adoAcess1。CString sqlstr=select * from IPInfo where area!=0。HandleError(success,0)。//用于判斷 SQL 語句是否執(zhí)行成功//首先更新總站數(shù)據(jù)庫中的相應(yīng)記錄，因為所有的信息都會在總公司中存在CADOConn adoMain(3)。38 / 69下面以 bool OperationAdd(CString strSQL)為例介紹了為維護數(shù)據(jù)庫一致性，對數(shù)據(jù)庫更新規(guī)則的詳細實現(xiàn)。CString ErrorMessage。bool IsDone1。CString tableName。int copy。//處理總站或者區(qū)域站點故障void HandleError(bool success,int area)。bool OperationSelectInital(CString strSQL)。bool OperationSelect(CString strSQL,int nColumn)。//根據(jù)表的分片和分配信息，按增加規(guī)則執(zhí)行數(shù)據(jù)庫修改操作bool OperationModify(CString strSQL)。bool OperationOpen(CString strSQL,int nColumn)。~tablePartInfo()。class tablePartInfo :public CWnd{public:tablePartInfo()。因此，對數(shù)據(jù)庫的增、刪、改、查要制定一定的規(guī)則，來保證數(shù)據(jù)的一致性，而這種規(guī)則不因為表的不同而不同。}}return TRUE。if(listWidth()){listWidth=()/11。listMainGetWindowRect(amp。listWidth=listWidth+listMainGetColumnWidth(i)。ilMax。}}else{listMainSetColumnWidth(i,LVSCW_AUTOSIZE_USEHEADER)。//獲取列寬listMainSetColumnWidth(i,LVSCW_AUTOSIZE_USEHEADER)。i++){listMainSetColumnWidth(i,LVSCW_AUTOSIZE)。//移向記錄集開頭36 / 69}if(listMainGetItemCount()0)//列表框含有列{if(ColOpenEnd0)//要展開的列{for(int i=0。//下一記錄iRow=iRow+1。//添加行elselistMainSetItemText(iRow,i,strValue)。}if(m_DataType==2)//Excel 文件strValue=GetValueString(i,0)。default:strValue=。case strValue=GetValueString(i,0)。case 型strValue=GetValueByteStr(i,0)。case 型strValue=GetValueDoubleStr(i,0,2)。case 型strValue=GetValueFloatStr(i,0,2)。case 型strValue=GetValueIntStr(i,0)。case strValue=GetValueLongStr(i,0)。switch(iType){case ado_Field_Str:case strValue=GetValueString(i,0)。=i。ilMax。//刪除列表控件各列的值if(!m_pRecordsetadoEOF)//遍歷記錄集{MoveFirst()。//記錄集字段數(shù)目=VT_I2。//var 類型索引long lMax=0。}FillList 函數(shù)用于向列表框中添加記錄BOOL CADOConn::FillList(CListCtrl *listMain,int ColOpenEnd){int i,iType,iRow=0,listWidth=0。listMainSetColumnWidth(i,listMainGetColumnWidth(i)+intWidth)。rectList)。//計算列寬總和}RECT rectList。i++)//遍歷列表框中添加列{//根據(jù)字段標題自動設(shè)置列寬listMainSetColumnWidth(i,LVSCW_AUTOSIZE_USEHEADER)。//列表框列的寬度for(i=0。//在列表框中添加列l(wèi)istMainInsertColumn(i,strTitle,LVCFMT_CENTER,100,0)。=i。ilMax。//獲取記錄集字段數(shù)//設(shè)置列表框控件風格listMainSetExtendedStyle(LVS_EX_GRIDLINES|LVS_EX_FULLROWSELECT)。int i。_variant_t vIndex。其中 InitList 函數(shù)實現(xiàn)初始化列表控件。//獲取值}return iValue。//賦值break。//賦值break。//賦值break。vValue=m_pRecordsetFieldsGetItem(vIndex)Value。//數(shù)值返回值=VT_I2。//var 型返回值_variant_t vIndex。GetValueInt 實現(xiàn)了從記錄集中獲取不同類型的字段值函數(shù)，以獲取整形字段值。return FALSE。return TRUE。m_pConnectionExecute(_bstr_t(strSQL),NULL,adCmdText)。()。（3）執(zhí)行數(shù)據(jù)庫操作語句ExecuteSQL 函數(shù)實現(xiàn)執(zhí)行 SQL 數(shù)據(jù)操作語句，如 INSERT/UPDATE/DELETE 語句等。// 返回記錄集return m_pRecordset。}// 捕捉異常catch(__error e){// 顯示錯誤信息AfxMessag