【正文】 eBox(添加成功！ )。 return。 return。更改資源的屬性，并為資源設(shè)置相對(duì)應(yīng)的變量，如下表 所示 ：（ Static、 Group Box、 Picture 控件略） 表 資源設(shè)置 ID Properties Member Variables Type Member IDC_GM CString m_guming IDC_GPDM CString m_stockID IDC_GPLX Enter listbox items 上海 A股 上海 B 股 深圳 A股 深圳 B 股 CString m_stockstyle IDC_JRKP CString m_todaykp IDC_ZD CString m_zd IDC_DATETIMEPICKER1 Format選 Short Date CDateTimeCtrl m_date IDC_JYSL CString m_jysl IDC_JYJG CString m_jyjg IDC_STATE CString m_state IDC_LIST1 View 選 Report CListCtrl m_ctrList IDC_ADD_STOCK Caption 買入 IDC_DEL_STOCK Caption 賣出 IDC_CANCEL Caption 退出 第 12 頁 共 27 頁 3．代碼分析略，與“管理員設(shè)置模塊”類似。 2．設(shè)計(jì)步驟 （ 1）向項(xiàng)目中添加一個(gè)新 Dialog資源，資源 ID 為 IDD_STOCKJOBBING，文本框內(nèi)容為“ 個(gè)人股票交易 ”，為該資源添加名為 StockDlg的類。 mSqlStr = SELECT * FROM ShangHaiStock。amp。 } //數(shù)據(jù)表中不存在 符合查詢條件的股票信息 if(()) { //彈出提示對(duì)話框 MessageBox(該股票不是上海股票 !跳轉(zhuǎn)至深圳股票查詢頁面 )。 UpdateData(false)。 、股市新聞模塊 1．實(shí)現(xiàn)目標(biāo) 股市 模塊用于 查詢網(wǎng)絡(luò)上的股市新聞 ， 上股市新 聞 對(duì)話框的設(shè)計(jì)如下圖所示。 (szURL)。 第 17 頁 共 27 頁 （ 2）從 Controls 面板上向 Dialog資源中添加 21 個(gè) Static， 2個(gè) Button,10 個(gè) Edit Box， 6 個(gè) Radio Button，4 個(gè) Group Box。 double mrje=m_mrjg*m_mrsl。 double ghf1=。 yhs1=opdata(mrje*buyyhsbl/100)。 yj2=yj210?yj2:10。 mcje=opdata(m_mcjg*(m_mrsl+m_gpgl))。 mcje=opdata(m_mcjg*(m_mrsl+m_gpgl))。 m_mcjg=opdata((m_xjglm_mrjg*m_mrslm_mrcb)/((m_mrsl+m_gpgl)*(m_yjbl/100+buyyhsbl/100+jsfbl/100)(m_mrsl+m_gpgl)))。 } m_mrcb=opdata(yj1+yhs1+ghf1+jsf1)。 、走勢(shì)分析模塊 第 20 頁 共 27 頁 1．實(shí)現(xiàn)目標(biāo) 走勢(shì)分析模塊 用于 從 Stock 表讀取相符的數(shù)據(jù)，顯示在對(duì)話框上。 (Static 控件和 Group Box控件略 ) 表 資源設(shè)置 ID Properties Member Variables Type Member ID_SEARCH Caption 查詢 ID_ANALYSIS Caption 分析 IDCANCEL Caption 退出 IDC_SEARCHNAME CString m_stockName IDC_SEARCHID CString m_stockID IDC_IID CString m_stockID1 IDC_NName CString m_stockName1 IDC_DTIME CString m_dtime IDC_1PRICE double m_price1 IDC_2PRICE double m_price2 IDC_3PRICE double m_price3 IDC_4PRICE double m_price4 IDC_5PRICE double m_price5 IDC_NAME Caption 按股票名稱 選中 Group IDC_ID Caption 按股票代碼 第 21 頁 共 27 頁 ．代碼分析 （ 1）在頭文件添加頭文件 include include include (1) 為“ 查詢 ”按鈕添加 :OnSearch()函數(shù)，用于 查詢某只股票的價(jià)格情況 。 } //選擇查詢方式為按股票名稱 if(i==IDC_NAME) { ()。//去左邊空格 ()。 m_price3=atof()。 } if(==m_stockID) { m_stockName1=。 UpdateData(false)。 s5=15:00。 =m_stockName1。 =m_stockID1。 =s3。 =m_price4。 ()。} ()。更改資源的屬性，并為資源設(shè)置相對(duì)應(yīng)的變量，如下表所示。果然， 在打開對(duì)話框時(shí)彈出 The ActiveX control Grid Control could not be instantiated because it requires a designtime license。只要把要查詢的股名兩邊去掉空格后在查詢即可得到想要的股票代碼。 通過本系統(tǒng)的開發(fā)，我了解到該類控件的使用。 從剛開始面對(duì)需求分析的無從下手，到現(xiàn)在可以較好 地完成這個(gè)項(xiàng)目。這些問題， 不管是難的還是易的， 同學(xué)們 都樂于幫助我，幫我克服了一道道難關(guān)。在系統(tǒng)開發(fā)過程中，主要用到 Visual C++ 和 SQL 2020。 通過書本和網(wǎng)頁上的相關(guān)信息，終于理清了各個(gè)條件的計(jì)算方法： 損益 = 賣出金額 + 現(xiàn)金股利 – 買入金額 – 買入成本 – 賣出成本 買入成本 = 買入傭金 + 買入印花費(fèi) +買入過戶費(fèi) +買入委托費(fèi) 賣出成本 = 賣出傭金 + 賣出印花費(fèi) +賣出過戶費(fèi) + 賣出委托費(fèi) 成本合計(jì) = 買入成本 + 賣出成本 ◇ 交易項(xiàng)目 選： 計(jì)算投資效益 交易對(duì)象 選： 上海 A股 買入傭金 =買入金額 *傭金比率 與 10 中的最大數(shù) 買入印花稅 =買入金額 *買入印花稅比率 買入過戶費(fèi) =10 買入委托費(fèi) =0 賣出傭金 =賣出 金額 *傭金 比率 與 10 中的最大數(shù) 賣出印花稅 =賣出金額 *賣出印花稅比率 賣出過戶費(fèi) =10 賣出委托費(fèi) =0 ◇ 交易項(xiàng)目 選： 計(jì)算投資效 益 交易對(duì)象 選： 上海 B 股 買入傭金 =買入金額 *傭金比率 買入印花稅 =買入金額 *買入印花稅比率 買入過戶費(fèi) =0 買入委托費(fèi) =買入金額 *買入委托費(fèi)比率 賣出傭金 =賣出 金額 *傭金 比率 賣出印花稅 =賣出金額 *賣出印花稅比率 賣出過戶費(fèi) =0 賣出委托費(fèi) =賣出金額 *賣出委托費(fèi)比率 ◇ 交易項(xiàng)目 選： 計(jì)算投資效益 交易對(duì)象 選： 深圳 A股 買入傭金 =買入金額 *傭金比率 買入印花稅 =買入金額 *買入印花稅比率 買入過戶費(fèi) =0 第 26 頁 共 27 頁 買入委托費(fèi) =0 賣出傭金 =賣出 金額 *傭金 比率 賣出印花稅 =賣出金 額 *賣出印花稅比率 賣出過戶費(fèi) =0 賣出委托費(fèi) =0 ◇ 交易項(xiàng)目 選： 計(jì)算投資效益 交易對(duì)象 選： 深圳 B 股 買入傭金 =買入金額 *傭金比率 買入印花稅 =買入金額 *買入印花稅比率 買入過戶費(fèi) =0 買入委托費(fèi) =買入金額 *買入委托費(fèi)比率 與 500 的最大值 賣出傭金 =賣出金額 *傭金比率 賣出印花稅 =賣出金額 *賣出印花稅比率 賣出過戶費(fèi) =0 賣出委托費(fèi) =賣出 金額 *賣出 委托費(fèi)比率 與 500 的最大值 同理，交易項(xiàng)目為計(jì)算保本賣出價(jià)格時(shí)，同樣的方法來計(jì)算。 //柱形圖 } 實(shí)施過程 本系統(tǒng)在開發(fā)中遇到了一些問題，如 MsChart 的使用 、 計(jì)算器的算法描述、用股名來查股票代碼 等。 ()。 for(i=0。 =m_stockName1。 //添加第四條數(shù)據(jù) Stock2 表中 ()。 //把新的記錄存在數(shù)據(jù)源里 ()。 ()。 //數(shù)據(jù)庫查詢 if (!(AFX_DB_USE_DEFAULT_TYPE, strSQL)) { AfxMessageBox(用戶表打開失?。?)。 s1=9:30。 m_price2=atof()。 } //不存在符合條件的股票信息 if(()) { MessageBox(不存在該股票的記錄 ,警告 )。 m_stockID1=。 while( !() amp。 CString mSqlStr。本模塊有兩個(gè)對(duì)話框：走勢(shì)分析和走勢(shì)圖。 //選擇計(jì)算項(xiàng)目為計(jì)算投資效益，計(jì)算損益 else m_sy=opdata(mcje*1+m_xjgl*1mrjem_mrcbm_mccb)。 // 賣出金額 } yj2=opdata(mcje*m_yjbl/100)。 yhs1=opdata(mrje*buyyhsbl/100)。 } //選擇交易對(duì)象為深圳 A 股 else if(j==IDC_CMODE3) { yj1=opdata(mrje*m_yjbl/100)。 yhs1=opdata(mrje*buyyhsbl/100)。 mcjg1=opdata((m_xjglm_mrjg*)/((m_mrsl+m_gpgl)*(buyyhsbl/100)(m_mrsl+m_gpgl)))。 double buyyhsbl=0。 } 第 18 頁 共 27 頁 double yj1=。 int i,j。添加代碼如下： ()。 表 資源設(shè)置 ID Properties Member Variables Type Member IDC_STATIC Caption 地址欄 ： IDC_LIULAN_BUTTON Caption 瀏覽 IDCANCEL Caption 退出 IDC_FORWARD_BUTTON Caption 前進(jìn) 第 16 頁 共 27 頁 IDC_BACKUP_BUTTON Caption 后退 IDC_COMBO1 Enter listbox items: /stock/ IDC_EXPLORER1 默認(rèn) 3．代碼分析 (1) 為“ 瀏覽 ”按鈕添加 OnLiulanButton()函數(shù)，用于 瀏覽網(wǎng)頁上的股票新聞 。 ()。 } } //選擇查詢方式為查股票名稱 if(i==IDC_QUERYNAME) { while( !() amp。//去右邊空格 ()。//去左邊空格 ()。 //判斷用戶是否選擇記錄 第 14 頁 共 27 頁 int i=GetCheckedRad