【導讀】《數(shù)據(jù)庫課程設計》?！獙W生成績管理系統(tǒng)。對成績進行簡單管理，選課模式為我校的公選課系統(tǒng)（必修課也即整個班級選修同一個老師的同一

　　

【正文】 ******/ _RecordsetPtramp。 ADOConn::GetRecordSet(_bstr_t bstrSQL) { try { //連接數(shù)據(jù)庫，如果 connection 對象為 空，則重新連接數(shù)據(jù)庫 if(m_pConnection==NULL) 22 OnInitADOConn()。 //創(chuàng)建記錄集對象 (__uuidof(Recordset))。 //取得表中的記錄 m_pRecordsetOpen(bstrSQL,(),adOpenDynamic,\ adLockOptimistic,adCmdText)。 } catch(__error e) { AfxMessageBox(獲取記錄集失敗 !!!!)。 } //返回記錄集 return m_pRecordset。 } /************************************************************************************** * 函數(shù)名： BOOL ADOConn::ExecuteSQL(_bstr_t bstrSQL) * 功能： 執(zhí)行 sql語句 * 參數(shù) ： _bstr_t bstrSql 待執(zhí)行的 sql 語句 * 全局變量引用： m_pConnection 數(shù)據(jù)庫連接指針 * 返回值：成執(zhí)行返回 true 失敗返回 false * 備注： connection 對象的 Execute 方法 (_bstr_t CommandText,VARIANT * RecordsAffected, long Options)其中 CommandText 是命令字符串 ,通常是 SQL 命令參數(shù) RecordsAffected 是操作完 成后所影響的行數(shù)參數(shù) Options 表示 CommandText 的類型 ,adCmdText文本命令 ,adCmdTable表 名 adCmdProc存儲過程 ,adCmdUnknown未知 ***************************************************************************************/ BOOL ADOConn::ExecuteSQL(_bstr_t bstrSQL) { _variant_t RecordsAffected。 try { //是否已連接數(shù)據(jù)庫 if(m_pConnection==NULL) //未連接 OnInitADOConn()。 m_pConnectionExecute(bstrSQL,NULL,adCmdText)。 return true。 } catch(__error e) { ()。 return false。 } } 23 /*********************************************************************************** * 函數(shù)名： void ADOConn::ExitConnect() * 功能： 斷開數(shù)據(jù)庫連接 ,關閉記錄集 * 參數(shù)： 無 * 全局變量： m_pConnection， m_pRecordset * 返回值：無 ***********************************************************************************/ void ADOConn::ExitConnect() { //關閉記錄集和連接 if(m_pRecordset!=NULL) m_pRecordsetClose()。 m_pConnectionClose()。 //釋放環(huán)境 ::CoUninitialize()。 } 附錄 3 部分 sql 源代碼 1, 創(chuàng)建教師授課程表 /*********** **********/ use qgradems go create table teacourse( tno char(11), o char(8), cclass smallint,/****一門課開多個班級 *****/ torf bit default 0, inputt smalldatetime, primary key(o,cclass), foreign key(tno) references teacher(tno), foreign key(o) references course(o) ) 2, 創(chuàng)建學生課表 /******** ******/ use qgradems go 24 create table selcourse( sno char(11), o char(8), cclass smallint, grade smallint check(grade=100 and grade=0) primary key(sno,o), foreign key(sno) references student(sno), foreign key(o,cclass) references teacourse(o,cclass) ) 3, 成績統(tǒng)計存儲過程 /********** ***************/ /******************************************************************** * 統(tǒng)計班級成績 課程名 ,課程班級 ,班級，低于 60， 6080，高于 80，及格率 *********************************************************************/ create proc proc_wel as set nocount on declare @cclass smallint declare @tname varchar(30) declare @ame varchar(30) declare @downs smallint declare @stoe smallint declare @upe smallint declare @o char(8) declare @tno char(11) declare @sno char(11) declare @average real declare @pass real declare @sum real create table temp(cclass smallint,ame varchar(30), tname varchar(30),upe smallint, stoe smallint,downs smallint, average real,pass real, primary key(cclass,ame) ) declare @local_cursor cursor set @local_cursor = CURSOR FORWARD_ONLY STATIC for select cclass,tno,o from teacourse where torf=1 open @local_cursor 25 fetch next from @local_cursor into @cclass,@tno,@o WHILE (@@fetch_status = 0) /*0，為 fetch 成功， 1 為出錯， 2 為不存在 */ begin /*set @sclass= set @tno=Tno set @o=o*/ set @average =0 set @sum = 0。 select @upe = count(sno),@sum=sum(grade)from selcourse where = @o and cclass = @cclass and grade =80 if @sum0 begin set @average=@sum end select @stoe = count(sno),@sum=sum(grade) from selcourse where = @o and cclass = @cclass and grade =60 and grade80 if @sum0 begin set @average=@average+@sum end select @downs = count(sno),@sum=sum(grade) from selcourse where = @o and cclass = @cclass and grade 60 select @ame=ame from course where o = @o select @tname=tname from teacher where tno = @tno if @sum0 begin set @average=@average+@sum end set @pass=convert(real,(@stoe+@upe),1)/(@stoe+@upe+@downs) set @average = @average /(@stoe+@upe+@downs) insert into temp(cclass,ame,tname,upe,stoe,downs,average,pass) values(@cclass,@ame,@tname,@upe,@stoe,@downs,@average,@pass) fetch next from @local_cursor into @cclass,@tno,@o end close @local_cursor deallocate @local_cursor select cclass as 39。課程班級 39。,ame as39。課程名 39。,tname as39。教師 39。, upe as39。高于 80 分人數(shù) 39。,stoe as39。60 分到 80 分人數(shù) 39。, downs as39。不及格人數(shù) 39。,average as39。平均分 39。, pass*100 as39。及格率 (%)39。from temp drop table temp