【正文】 對話框(Menu Item Properties)。}5 主要功能模塊設(shè)計 主窗體主窗體主要是對客戶管理系統(tǒng)的各個模塊進行調(diào)用，主要有菜單調(diào)用和工具欄調(diào)用兩種，如圖 3 所示。m_pConnectionClose()。void ado::ExecuteSQL(CString TSQL){try{m_pConnectionExecute((_bstr_t)TSQL,NULL,adCmdText)。}catch(__error e){AfxMessageBox(())。return false。}return true。}指向記錄集的游標向下移一條。}m_pRecordsetMove(nRecordNum)。return false。}return temp。if(==VT_EMPTY ||==VT_NULL)temp=。}}獲取記錄集指定列的值。void ado::rstOpen(CString TSQL){try{ _bstr_t bstrSQL=()。ipErrorsGetCount()。}這個函數(shù)用來獲取執(zhí)行 SQL 語句時的出錯信息。while (!m_pRecordsetadoEOF){m_pRecordsetMoveNext()。int ado::GetRecordCount(){int nCount=0。e){thisGetErrors(e)。}catch(__error e){AfxMessageBox(())。Database=db_client。ado::ado(){ ::CoInitialize(NULL)。//移動記錄void ExecuteSQL(CString SQL)。//獲得記錄個數(shù) bool Open(CString srecordset, UINT adCmd)。//向上移動bool MoveLast()。public:ado()。4 技術(shù)準備 數(shù)據(jù)庫的封裝調(diào)用數(shù)據(jù)庫的方式有很多，主要有 DAO、ODBC、ADO，但使用起來比較靈活的是 ADO，直接引用 ADO 的方法是在頭文件 中加入如下代碼：import E:\Program Files\Common Files\System\ado\ no_namespace rename(EOF,adoEOF)rename(BOF,adoBOF)然后在要用的 ADO 的類中加入兩個指針的定義就可以應(yīng)用 ADO 了_ConnectionPtr m_pConnection。數(shù)據(jù)庫db_SCGL 中包含 19 張數(shù)據(jù)表。數(shù)據(jù)庫管理系統(tǒng)軟件：SQL Server 2022。? 管理員可以設(shè)置操作員的權(quán)限? 對用戶輸入的數(shù)據(jù)，系統(tǒng)進行嚴格的數(shù)據(jù)檢驗，盡可能排除人為的錯誤。? 系統(tǒng)采用良好的人機對話模式，界面設(shè)計美觀友好，信息查詢靈活、方便、快捷、準確，數(shù)據(jù)存儲安全可靠。? 幫助信息模塊幫助信息模塊主要包括關(guān)于、幫助 2 個部分。? 客戶信息維護模塊客戶信息維護模塊主要包括客戶信息、聯(lián)系人信息、業(yè)務(wù)往來、客戶呼叫中心 4 個部分。? 對客戶和企業(yè)進行分類，方便管理。前臺采用 Microsoft 公司的 Visual C++ 作為主要的開發(fā)工具，其可與 SQL Server 2022 數(shù)據(jù)庫無縫鏈接。在市場經(jīng)濟競爭如此激烈的環(huán)境之下，企業(yè)要想立于不敗之地，就必須和與之生存發(fā)展息息相關(guān)的客戶，建立起良好的關(guān)系，在現(xiàn)有客戶資源的基礎(chǔ)之上，維護好和老客戶的關(guān)系，并且不斷的發(fā)展新的客戶，用企業(yè)高品質(zhì)的產(chǎn)品、優(yōu)質(zhì)的服務(wù)、良好的信譽樹立企業(yè)在客戶心目中的良好形象；并以客戶需求為己任，不斷的創(chuàng)新與發(fā)展自身的產(chǎn)品，以滿足客戶新需求，并規(guī)范企業(yè)內(nèi)部的客戶資源的管理方式、提升企業(yè)的客戶服務(wù)質(zhì)量。計算機管理系統(tǒng)滿足了企業(yè)對自身客戶資源管理的新要求，減少了客戶資源管理過程中的浪費的大量人力、物力和財力等。1 系統(tǒng)需求分析通過調(diào)查，要求系統(tǒng)需要有以下功能：? 詳細全面記錄并管理客戶信息和聯(lián)系人信息。? 設(shè)置業(yè)務(wù)往來的商品數(shù)量統(tǒng)計功能。? 客戶服務(wù)模塊客戶服務(wù)模塊主要包括客戶反饋、客戶投訴 2 個部分。 系統(tǒng)功能結(jié)構(gòu)客戶管理系統(tǒng)的功能結(jié)構(gòu)如圖 1 所示。? 鍵盤操作，快速響應(yīng)。? 數(shù)據(jù)保密性強，為每個用戶設(shè)置權(quán)限級別。運行平臺：Windows xp/ Windows 2022。下面分別給出數(shù)據(jù)表概要說明和主要數(shù)據(jù)表的結(jié)構(gòu)。_RecordsetPtr m_pRecordset。virtual ~ado()。//最后一條bool MoveNext()。void GetErrors(__error eErrors)。//執(zhí)行SQL語句void rstOpen(CString TSQL)。 // ADO是基于COM技術(shù)要進行初始化try{(__uuidof(Connection))。uid=sa。}}利用連接指針打開數(shù)據(jù)庫，這樣的方式打開的記錄集，無法回滾，可以打開空記錄集。return false。try{m_pRecordsetMoveFirst()。nCount=nCount+1。void ado::GetErrors(__error eErrors){ErrorsPtr pErrors=m_pConnectionGetErrors()。i++)//如果有多條語句，將用這個循環(huán)輸出所有錯誤{_bstr_t desc=pErrorsGetItem((long)i)GetDescription()。(__uuidof(Recordset))。CString ado::GetFieldValue(CString Field){ _variant_t Thevalue。else{temp=(char*)(_bstr_t)Thevalue。}指向記錄集的游標向上移一條。}return true。}catch(__error e){AfxMessageBox(())。bool ado::MoveNext(){try{m_pRecordsetMoveNext()。}將指向記錄集的游標移到頂部。}return true。return false。}catch(__error e){AfxMessageBox(())。m_pRecordset=NULL。圖 3 主窗體運行效果1．菜單設(shè)計（1）首先要用到工作區(qū)窗口，默認情況下工作區(qū)窗體是打開的，如果沒打開可以從菜單中選擇 View/Workspace 此時工作區(qū)窗體會彈出，具體如圖 4 所示。工作區(qū)窗口圖 4 工作區(qū)選項卡及菜單編輯器圖 5 菜單屬性窗口（4）設(shè)置菜單文本，可以在 Caption（標題）編輯框內(nèi)輸入即可，關(guān)閉屬性窗體后一個菜單項就生成了。圖 6 系統(tǒng)執(zhí)行時的菜單效果2．工具欄設(shè)計工具欄資源可以利用 VC 自帶的 ToolBar 編輯器生成，也可以采用 MFC 提供的CToolBarCtrl 類動態(tài)生成，這里我們用語句動態(tài)生成。下面給出一個在程序中用到生成工具欄的實例代碼。button[0].dwData=0。button[0].iString =(pString)。如果要在工具欄中添加分隔符，就要使 button[0].fsStyle=TBSTYLE_SEP，因為分隔符也是一個按鈕，并且此時 button[0].idCommand 必須為 0。(32,32,ILC_COLOR32|ILC_MASK,0,0)。 rect, CWnd* pParentWnd, UINT nID )；在程序中可以編寫如下的語句創(chuàng)建狀態(tài)條：(WS_CHILD|WS_VISIBLE,CRect(0,0,0,0),this,ID_STATU)。weith[1]=150。weith[0])。// Add函數(shù)是向圖象列表中添加圖表(::LoadIcon(::AfxGetResourceHandle(),MAKEINTRESOURCE(IDI_ICON13)))。(::LoadIcon(::AfxGetResourceHandle(),MAKEINTRESOURCE(IDI_ICON20)))。imagelist2)。i++){button[i].dwData=0。button[0].iBitmap=0。button[2].iBitmap=2。button[4].iBitmap=4。TCHAR *pString。int nStringLength= () + 1。}(6,button)。 // return TRUE unless you set the focus to a control // EXCEPTION: OCX Property Pages should return FALSE} 客戶信息1．實現(xiàn)目標主要實現(xiàn)客戶基本信息的添加、刪除和修改，能夠進行上一條，下一條，第一條和最后一條的操作，能夠用列表顯示數(shù)據(jù)表中全部信息，使用分頁的方式。圖 8 添加新類的系統(tǒng)對話框這時，只需要單擊“OK”按鈕就會彈出添加新類的對話框，如圖 9所示。只要將 中在代碼中調(diào)用 TabSheet類既可實現(xiàn)。表 1 主要資源屬性設(shè)置資源 ID 類型 成員變量 描述IDC_EDIT1 CEdit m_edit1 客戶編號IDC_COMBO1 CComboBox m_1 企業(yè)類型3．代碼分析實現(xiàn)分頁機制的 TabSheet 類的代碼如下：在構(gòu)造函數(shù)中定義添加的對話框的個數(shù)變量，當前對話框索引的變量。BOOL CTabSheet::AddPage(LPCTSTR title, CDialog *pDialog,UINT ID){if( MAXPAGE == m_nNumOfPages )return FALSE。m_Title[m_nNumOfPages1] = title。int nX, nY, nXc, nYc。itemRect)。 nYc=。 nCount m_nNumOfPages。}用來設(shè)置指定對話框資源在 Tab 控件中的位置。tabRec