【正文】 CH varchar(3) select @KCH=KCH from KC where KCM=@KCM select * from XS_KC where XH=@XH and KCH=@KCH if @@RowCount =1 update XS_KC set CJ=@CJ,XF=@XF where XH=@XH and KCH=@KCH else insert into XS_KC values(@XH,@KCH,@CJ,@XF) endGO 創(chuàng)建XS_KC_CJ視圖，用來在DataGrid中顯示學(xué)生、課程、成績的信息CREATE VIEW [dbo].[XS_KC_CJ]ASSELECT , , , , , FROM INNER JOIN ON = INNER JOIN ON = GO創(chuàng)建XS_KC的INSERT,UPDATE觸發(fā)器，當(dāng)添加和修改成績后，根據(jù)當(dāng)前的成績自動(dòng)為該學(xué)生該課程增加學(xué)分，當(dāng)成績小于60分時(shí)，學(xué)分為0；當(dāng)大于等于60分時(shí)，從該門課程表中取出當(dāng)前課程的學(xué)分來更新當(dāng)前學(xué)生在XS_KC表中這門課程的學(xué)分CREATE TRIGGER CHECKXF ON XS_KC INSERT,UPDATEAS BEGIN SET NOCOUNT ON。 update XS_KC set XF = 0 where CJ 60update XS_KC set XF = (select XF from KC where KCH = ) where CJ = 60ENDGO(2) 。全局變量class CStuAddScore : public CDialog{// Construction……int m_InitCompleteFlags。 //初始化標(biāo)記……}OnInitDialog通過執(zhí)行select語句從數(shù)據(jù)庫中提取課程名添加到課程下拉列表中去，執(zhí)行GetStuZy存儲(chǔ)過程，把返回的專業(yè)添加到專業(yè)下拉列表中去，在DataGrid中顯示當(dāng)前專業(yè)，當(dāng)前課程的的學(xué)生、成績信息，方便修改BOOL CStuAddScore::OnInitDialog() { CDialog::OnInitDialog()。 // TODO: Add extra initialization here _ConnectionPtr pConnection = NULL。 _CommandPtr pCmd = NULL。 _RecordsetPtr pRs = NULL。 HRESULT hr。 CString TempStr。 _variant_t varFld。 _variant_t vNULL。 = VT_ERROR。 = DISP_E_PARAMNOTFOUND。///定義為無參數(shù) _bstr_t strCnn(SQLCONSTR)。 CColumns cols。 CColumn col。 VARIANT vIndex。 cols = ()。 (2)。 (3)。 (4)。 = VT_UINT。 = long(0)。 col=(vIndex)。 (XH)。 (學(xué)號(hào))。 = long(1)。 col=(vIndex)。 (XM)。 (姓名)。 = long(2)。 col=(vIndex)。 (KCM)。 (課程名)。 = long(3)。 col=(vIndex)。 (CJ)。 (成績)。 = long(4)。 col=(vIndex)。 (XF)。 (學(xué)分)。 ()。 ()。 //添加課程List項(xiàng) try { //Open a connection UpdateData(TRUE)。 (__uuidof(Connection))。 hr = pConnectionOpen(strCnn,NULL)。 (__uuidof(Command))。 pCmdActiveConnection = pConnection。 /*KCM list*/ CString SqlStr。 (Select * from KC)。 pCmdCommandText = (_bstr_t)SqlStr。 pRs = pCmdExecute(amp。vNULL,amp。vNULL,adCmdText)。 while(!pRsadoEOF) { varFld = pRsFieldsGetItem(KCM)Value。 TempStr = 。 ()。 (TempStr)。 pRsMoveNext()。 } (0)。 //添加專業(yè)List項(xiàng) pCmdCommandText = GetStuZy。 pRs = pCmdExecute(amp。vNULL,NULL,adCmdStoredProc)。 while(!pRsadoEOF) { varFld = pRsFieldsGetItem(ZY)Value。 TempStr = 。 ()。 (TempStr)。 pRsMoveNext()。 } (0)。 pConnectionClose()。 } catch(__error amp。e) { // Notify the user of errors if any. _bstr_t bstrSource(())。 _bstr_t bstrDescription(())。 CString sError。 pConnectionClose()。 (Source : %s Description : %s ,(LPCSTR)bstrSource,(LPCSTR)bstrDescription)。 AfxMessageBox(sError)。 } //調(diào)用專業(yè)選擇函數(shù)，添加學(xué)號(hào) OnSelchangeCombo2()。 m_InitCompleteFlags = 1。 return TRUE。 // return TRUE unless you set the focus to a control // EXCEPTION: OCX Property Pages should return FALSE}IDC_ADODC1移動(dòng)記錄完成的時(shí)候，在學(xué)號(hào)、姓名、成績、學(xué)分等顯示控件中顯示當(dāng)前學(xué)生的當(dāng)前課程的成績信息void CStuAddScore::OnMoveCompleteAdodc1(long adReason, LPDISPATCH pError, long FAR* adStatus, LPDISPATCH pRecordset) { // TODO: Add your control notification handler code here if(m_InitCompleteFlags == 0) return。 _RecordsetPtr pRs。 _variant_t varFld。 (__uuidof(Recordset))。 pRecordsetQueryInterface(IID_IDispatch, (void **)amp。pRs)。 if(pRsadoEOF) return。 varFld = pRsFieldsGetItem(XM)Value。 CString strXM(_T())。 ()。 m_StuXM = strXM。 varFld = pRsFieldsGetItem(CJ)Value。 m_StuCJ = 。 varFld = pRsFieldsGetItem(XF)Value。 m_StuXF = 。 varFld = pRsFieldsGetItem(ZY)Value。 CString str(_T())。 ()。 //remove place on left SetDlgItemText(IDC_COMBOZY,str)。 varFld = pRsFieldsGetItem(XH)Value。 CString strXH(_T())。 ()。 //remove place on left SetDlgItemText(IDC_COMBOXH,strXH)。 varFld = pRsFieldsGetItem(KCM)Value。 CString strKCM(_T())。 ()。 //remove place on left SetDlgItemText(IDC_COMBOKCM,strKCM)。 UpdateData(FALSE)。}“刪除”Click事件處理，調(diào)用Command執(zhí)行delete刪除當(dāng)前學(xué)號(hào)，當(dāng)前課程名的成績記錄void CStuAddScore::OnButton1() { // TODO: Add your control notification handler code here _ConnectionPtr pConnection = NULL。 _CommandPtr pCmd = NULL。 _RecordsetPtr pRs = NULL。 _ParameterPtr pParam = NULL。 HRESULT hr。 CString TempStr。 _variant_t varFld。 _variant_t vNULL。 = VT_ERROR。 = DISP_E_PARAMNOTFOUND。///定義為無參數(shù) _bstr_t strCnn(SQLCONSTR)。 try { //Open a connection UpdateData(TRUE)。 (__uuidof(Connection))。 hr = pConnectionOpen(strCnn,NULL)。 (__uuidof(Command))。 pCmdActiveConnection = pConnection。 CString StrXH,StrKCM。 GetDlgItemText(IDC_COMBOXH,StrXH)。 GetDlgItemText(IDC_COMBOKCM,StrKCM)。 CString SqlStr。 (delete from XS_KC where XH=39。%s39。 and KCH in(select KCH from KC where KCM = 39。%s39。),StrXH,StrKCM)。 pCmdCommandText = (_bstr_t)SqlStr。 pRs = pCmdExecute(amp。vNULL,amp。vNULL,adCmdText)。 pConnectionClose()。 } catch(__error amp。e) { // Notify the user of errors if any. _bstr_t bstrSource(())。 _bstr_t bstrDescription(())。 CString sError。 pConnectionClose()。 (Source : %s Description : %s ,(LPCSTR)bstrSource,(LPCSTR)bstrDescription)。 AfxMessageBox(sError)。 }}“課程” 下拉列表Click事件處理，DataGrid中顯示從視圖中查詢當(dāng)前專業(yè)、當(dāng)前課程的學(xué)生成績信息，同時(shí)調(diào)用ShowScore在姓名、成績等Edit中來顯示當(dāng)前學(xué)生的姓名、成績等信息 void CStuAddScore::OnSelchangeCombokcm() { _ConnectionPtr pConnection = NULL。 _CommandPtr pCmd = NULL。 _RecordsetPtr pRs = NULL。 _ParameterPtr pParam = NULL。 HRESULT hr。 CString TempStr,TempStrKcm。 _variant_t varFld。 _variant_t vNULL。 = VT_ERROR。 = DISP_E_PARAMNOTFOUND。///定義為無參數(shù) _bstr_t strCnn(SQLCONSTR)。 try { //Open a connection UpdateData(TRUE)。 (__uuidof(Connection))。 hr = pConnectionOpen(strCnn,NULL)。 (__uuidof(Command))。 pCmdActiveConnection = pConnect