【正文】 (){ thisUpdateData()。 CString sql。 _bstr_t sql_。 _variant_t value。 CString s_value。 CString s_date。 CString ph。//開始取得時間，并將其加入票號中 CTime m_tRq。 this(m_tRq)。 this(s_date)。 CString y_date,m_date,d_date。 y_date=(%Y)。 (%02d,())。 (%02d,())。 ph=y_date++m_date++d_date。 if(thism_bXs) //判斷是銷售登記還是入庫登記 { ph=ph+xsd。//從數(shù)據(jù)庫中取得最大的編號 (select xs_ph from tabxsph where rq=%s order by xs_ph desc,s_date)。 if((sql)) { value=GetCollect(xs_ph)。 if(!=NULL) { s_value=(char*)(_bstr_t)value。 s_value=(()4,4)。 } } else { s_value=0。 } } else { ph=ph+rkd。 (select rk_ph from tabrkph where rq=%s order by rk_ph desc,s_date)。 if((sql)) { value=GetCollect(rk_ph)。 if(!=NULL) { s_value=(char*)(_bstr_t)value。 s_value=(()4,4)。 } } else { s_value=0。 } }//格式化產(chǎn)生的新編號 long l_value=atoi(s_value)+1。 (%04d,l_value)。 ph=ph+s_value。 return ph。 }創(chuàng)建列表控件。初始化列表控件，設置列表控件的大小、風格、列標題、可編輯的列號。，其中詳細介紹了功能強大的列表控件。bool CDlgXSDJ::InitnListXSDJ(){ CRect rect_nlist(10,300,700,650)。 thisGetClientRect(amp。rect_nlist)。 =210。 =480。 thism_plistXSDJ=new CListXSDJ(m_bXs)。 m_plistXSDJCreate(WS_CHILD|WS_VISIBLE|LVS_REPORT|WS_BORDER,rect_nlist,this,ID_NEWLISTLSXSDJ)。 thism_plistXSDJModifyStyle(LVS_EDITLABELS, 0L)。 //禁止標題編輯 m_plistXSDJModifyStyle(0L, LVS_REPORT)。 //設為Report類型 m_plistXSDJModifyStyle(0L, LVS_SHOWSELALWAYS)。 //始終高亮顯示被選中的項 m_plistXSDJModifyStyle(0L, LVS_NOSORTHEADER)。 m_plistXSDJModifyStyle( LVS_OWNERDRAWFIXED,0L)。 m_plistXSDJSetExtendedStyle( LVS_EX_FULLROWSELECT | //允許整行選中 LVS_EX_GRIDLINES | //畫出網(wǎng)格線 LVS_EX_FLATSB //扁平風格的滾動條 )。 CString str。 //先產(chǎn)生numTitle列 int i=0。 m_plistXSDJInsertColumn( i, 藥品編號 )。 m_plistXSDJInsertColumn( 1, 藥品名稱 )。 m_plistXSDJInsertColumn( 2, 倉庫名稱 )。 m_plistXSDJInsertColumn( 4, 數(shù)量 )。 } }//插入1行 m_plistXSDJInsertItem(0,)。 //調(diào)整列寬 RECT rect2。 m_plistXSDJGetWindowRect(amp。rect2)。 int wid = 。 for( i=0。 i7。 i++ ) { m_plistXSDJSetItemText(0,i,)。 m_plistXSDJSetColumnWidth( i, wid/7 )。 } m_plistXSDJSetSubItemCanEdited(0)。 m_plistXSDJSetSubItemCanEdited(1)。 m_plistXSDJSetSubItemCanEdited(2)。 m_plistXSDJSetSubItemCanEdited(3)。 m_plistXSDJSetSubItemCanEdited(4)。 m_plistXSDJSetSubItemCanEdited(5)。 m_plistXSDJSetSubItemCanEdited(6)。 m_plistXSDJInvalidate(false)。 return true。}實現(xiàn)目標系統(tǒng)自動生成入庫時間及入庫票號。確定用戶輸入數(shù)據(jù)完畢后，可提交給數(shù)據(jù)庫。自動核算入庫金額。刪除當前指針所對應的記錄信息。 入庫登記模塊運行結(jié)果設計步驟。新建一個對話框，對話框資源ID為IDD_DIALOG_RKDJ。在窗口中添加編輯框、組合框、靜態(tài)文本、按鈕、時間控件等資源。設置對話框標題屬性為“入庫登記”，其他控件屬性保持默認設置。代碼分析。設計對話框及相關(guān)資源。對話框及相關(guān)資源設置與銷售模塊相同。定義bool類型的變量m_bXs，在該類的構(gòu)造函數(shù)中對這兩個模塊加以區(qū)分。CDlgXSDJ::CDlgXSDJ(bool isxs,CWnd* pParent /*=NULL*/) : CDialog(CDlgXSDJ::IDD, pParent) {…… thism_bXs=isxs?！? } 創(chuàng)建左上角的標題信息。 顯示各種文本內(nèi)容。bool CDlgXSDJ::InitBaseInfo(){ CRect rect。CString str。 wf=new CWhiteFrame[5]。 CString strs[5]。 //該字符串保存靜態(tài)文本 if(m_bXs) //判斷當前是銷售登記，還是入庫登記 { strs[0]=客戶編號：。 strs[1]=客戶名稱：。 } else { thisGetDlgItem(IDC_STATIC_PH)SetWindowText(入庫登記票號：)。 thisSetWindowText(入庫登記:)。 strs[0]=供應商編號：。 strs[1]=供應商名稱：。 }……} 為供應商編號和供應商名稱編輯框連接自動提示窗口。在這里的區(qū)別是：提示的內(nèi)容來源不同，所以要進行不同的數(shù)據(jù)初始化。bool CDlgXSDJ::InitStringLists(){ CString sql。 _variant_t value。 m_strlistKh=new CStringList[2]。 if(m_bXs) { m_strlistKh[0].AddTail(客戶編號)。 m_strlistKh[1].AddTail(客戶全稱)。 (select DISTINCT kh_id,kh_name from tabkh order by kh_id asc)。 if(!this(sql))return false。 while(!adoEOF) { value=GetCollect(kh_id)。 if(!=VT_NULL) { thism_strlistKh[0].AddTail((char*)(_bstr_t)value)。 } value=GetCollect(kh_name)。 if(!=VT_NULL) { thism_strlistKh[1].AddTail((char*)(_bstr_t)value)。 } MoveNext()。 } } else { m_strlistKh[0].AddTail(供應商編號)。 m_strlistKh[1].AddTail(供應商全稱)。 (select DISTINCT gys_id,gys_name from tabgys order by gys_id asc)。 if(!this(sql))return false。 while(!adoEOF) { value=GetCollect(gys_id)。 if(!=VT_NULL) { thism_strlistKh[0].AddTail((char*)(_bstr_t)value)。 } value=GetCollect(gys_name)。 if(!=VT_NULL) { thism_strlistKh[1].AddTail((char*)(_bstr_t)value)。 } MoveNext()。 } } this(this)。 (2,thism_strlistKh)。 this(amp。m_popList)。 this(amp。m_popList)。 return true。} 自動產(chǎn)生入庫票號。CString CDlgXSDJ::ChanShengXSDJPH(){ thisUpdateData()。 CString sql。 _bstr_t sql_。 _variant_t value。 CString s_value。 CString s_date。 CString ph。 CTime m_tRq。 //開始取得時間，并將其加入票號中 this(m_tRq)。 this(s_date)。 CString y_date,m_date,d_date。 y_date=(%Y)。 (%02d,())。 (%02d,())。 ph=y_date++m_date++d_date。 if(thism_bXs) //判斷是銷售登記還是入庫登記 { ph=ph+xsd。//從數(shù)據(jù)庫中取得最大的編號 (select xs_ph from tabxsph where rq=’%s’ order by xs_ph desc,s_date)。 if((sql)) { value=GetCollect(xs_ph)。 if(!=NULL) { s_value=(char*)(_bstr_t)value。 s_value=(()4,4)。 } } else { s_value=0。 } } else { ph=ph+rkd。 (select rk_ph from tabrkph where rq=’%s’order by rk_ph desc,s_date)。 if((sql)) { value=GetCollect(rk_ph)。 if(!=NULL) { s_value=(char*)(_bstr_t)value。 s_value=(()4,4)。 } } else { s_value=0。 } } long l_value=atoi(s_value)+1。 //格式化產(chǎn)生的新編號 (%04d,l_value)。 ph=ph+s_value。 return ph。 } 創(chuàng)建列表控件。 對于列表控件，需要注意第3列標題不同。bool CDlgXSDJ::InitnListXSDJ(){…… return true。} 在對話框的初始化函數(shù)中進行數(shù)據(jù)初始化。BOOL CDlgXSDJ::OnInitDialog() { CDialog::OnInitDialog()。 CRect rect。 InitStringLists()。 InitnListXSDJ()。 if(!thisInitBaseInfo()) { MessageBox(初始化基本數(shù)據(jù)失敗)。 return true。 } thism_sXsPh=m_strPh=thisChanShengXSDJPH()。 thisUpdateData(false)。 ()。 return FALSE。 //return TRUE unless