1、教學管理系統系統設計設計目標減輕教學日常信息管理的負擔，方便學生、教師查詢信息和學校對所有信息的管理。以簡單便捷的操作獲取詳盡的信息。設計思路在日常的教學管理活動中主要涉及：1、 教職工和學生的信息管理2、 學生的成績管理、查詢、統計3、 教師查詢自己教授學生的信息和成績的錄入修改4、 各門課程的安排和信息查詢對日常教學管理活動的分析后，對各種信息統一規范整理，實現各種信息的自動管理。為便于信息的查詢，找出各種信息的關聯性，根據各種需求設計出合理的報表。在管理上詳細區分學生、教師、管理員三者各自擁有的權限，和他們不同的需求，仔細考慮他們的不同點，合理整理信息，確保各自的需求得到最大化滿足功能模

2、塊主要分為四大模塊：1、 用戶賬戶的區分和管理2、 學生系統3、 教師系統4、 管理員系統其詳細功能如圖：用戶賬戶管理各科成績報表各科成績管理查詢教師信息添加修改刪除查詢課程信息添加修改刪除查詢學生信息添加修改刪除成績修改成績添加教授學生信息教授課程信息個人信息查詢各科成績分布各科成績查詢刪除所選課程選擇課程教師信息查詢課程信息查詢個人信息查詢系管理成績管理教師管理課程管理學生管理成績管理信息查詢成績查詢選課信息查詢教師系統學生系統管理員系統教學管理系統數據庫設計數據庫需求分析1）信息需求：(1) 學生信息：學號、姓名、性別、出生日期、入學成績、所在系號。(2) 教職工信息：職工號、姓名、性別

3、、出身年月、所在系號、職稱、專業及教學方向。(3) 系的基本信息：系號、系名稱、系的簡介。(4) 課程信息：課程號、課程名稱、任課教師號、學時、學分、上課時間、上課地點、考試時間。(5) 成績信息：學號、課程號、平時成績、考試成績、總評成績。2）處理需求：(1) 學生基本信息管理新生信息錄入。學生信息修改：按學號查詢出某學生的信息并做信息修改。*學生轉學（轉入和轉出），學生畢業等。畢業和轉學的學生有關信息存儲到歷史庫中。(2) 系基本信息管理：系的基本信息輸入、修改、刪除 (3) 課程信息管理：課程信息的輸入、修改、刪除(4) 教職工信息管理：教職工信息的輸入、修改、刪除(5) 選課管理： 每

4、學期所選課程的學分不能超過15分。（創建觸發器）學生可以同時選修一門或多門課程。 可以同時為多個學生選修某一門或某幾門課程。刪除和修改選課信息。(6) 成績管理（視圖）按課程輸入和修改成績。（查詢選該門課程的學生）按學生輸入和修改成績。（查詢該學生所選的課程）(7) 信息查詢按學號、姓名、系號查詢學生基本信息。按職工號、姓名、系號查詢教職工基本信息。按系號、系名稱查詢系的基本信息。按課程號、課程名稱、上課教師姓名查詢課程基本信息。按學號、學生姓名、課程號、課程名稱、上課教師姓名、系號查詢學生成績，內容包括課程基本情況。若查詢涉及多門課程，則按課程分組。每門課程按總評成績從高分到低分給出選修該門

5、課程的所有學生的成績（平時成績、考試成績和總評成績）。(8) 統計報表成績登記表，內容包括課程基本信息（課程號、課程名稱、任課教師號、學時、學分、上課時間、上課地點、考試時間）、選課學生名單（學號、姓名、性別），每個學生的平時成績（空格）、考試成績（空格）和總評成績（空格），按學號排序：順序輸出所有課程的成績登記表。按課程號、課程名稱、教師姓名輸出對應課程的成績登記表。*按系號輸出對應課程的成績登記表（本系所有教師擔任的課程）。成績報表，內容包括課程基本信息（課程號、課程名稱、任課教師號、學時、學分、上課時間、上課地點、考試時間），選課學生名單（學號、姓名、性別），每個學生的平時成績、考試成績

6、和總評成績，>=90分、>=80分、>=70分、>=60分及不及格學生的人數及比例，按學號排序：順序輸出所有課程的成績報表。（報表格式自己訂制，可以參考學校的系統的輸出格式）按課程號、課程名稱、教師姓名輸出對應課程的成績報表。*按系號輸出對應課程的成績報表（本系所有教師擔任的課程）概念結構設計表的設計課程（課程號，課程名，職工號，學時，學分，上課時間，上課地點，考試時間）主碼：課程號 外碼： 職工號Course(Cno,Cname,Tno,Cperiod,Ccredit,Cbeigan,Caddress,Cexamtime)系（系號，系名，系簡介）主碼： 系號Dept(

7、Dno,Dname,Dintro)學生（學號，姓名，性別，出生日期，入學成績，系號）主碼：學號 外碼：系號Student(Sno,Sname,Ssex,Sbirth,Senrolgrade,Dno)教職工（職工號，姓名，性別，出生日期，職稱，專業級教學方向，系號）主碼：職工號 外碼：系號Teacher(Tno,Tname,Tsex,Tbirth,Tjodtitle,Tprofession,Dno)選課（學號，課程號，平時成績，考試成績，總成績）主碼：學號，課程號 外碼：學號，課程號 . SC(Sno,Cno,Gordinary,Gexam,Gsum)表的關系圖數據庫結構：課程表：CREATE

8、TABLE Course(Cno varchar(12) NOT NULL PRIMARY KEY CHECK(Cno LIKE'0-90-90-90-90-90-90-90-90-90-90-90-9'),Cname varchar(10) NULL,Cperiod smallint NULL,Ccredit smallint NULL,Cbeigan varchar(10) NULLCHECK(Cbeigan LIKE '0-90-9-0-90-90-90-9-0-90-9'),Caddress varchar(20)NULL,Cexamtime varch

9、ar(2)NULL,Tno varchar(12)NULL REFERENCES Teacher(Tno) ON UPDATE CASCADE ON DELETE CASCADE,)系表：CREATE TABLE Dept(Dno varchar(12) NOT NULL PRIMARY KEYCHECK(Dno LIKE'0-90-90-90-90-90-90-90-90-90-90-90-9'),Dname varchar(20) NULL,Dintro ntext NULL,)學生表：CREATE TABLE Student(Sno varchar(12) NOT NUL

10、L PRIMARY KEYCHECK(Sno LIKE'0-90-90-90-90-90-90-90-90-90-90-90-9'),Sname varchar(10) NULL,Ssex char(2) NULLCHECK(Ssex = '男' OR Ssex = '女'),Sbirth DATETIME NULL,Senrolgrade smallint NULL,CHECK(Senrolgrade >= 0),Dno varchar(12) NULL REFERENCES Dept(Dno)ON UPDATE CASCADE ON D

11、ELETE CASCADE,)職工表：CREATE TABLE Teacher(Tno varchar(12) NOT NULL PRIMARY KEYCHECK(Tno LIKE'0-90-90-90-90-90-90-90-90-90-90-90-9'),Tname varchar(10) NULL,Tsex char(2) NULLCHECK(Tsex = '男' OR Tsex = '女'),Tbirth DATETIME NULL,Tjobtitle varchar(20) NULL,Tprofession varchar(20) NU

12、LL,Dno varchar(12) NULL REFERENCES Dept(Dno)ON UPDATE CASCADE ON DELETE CASCADE,)學課和成績表：CREATE TABLE SC(Sno varchar(12) NOT NULL REFERENCES Student(Sno),Cno varchar(12) NOT NULL REFERENCES Course(Cno),Gordinary smallint NULL CHECK(Gordinary>=0 AND Gordinary<=100),Gexam smallint NULL CHECK(Gexa

13、m>=0 AND Gexam<=100),Gsum AS (Gordinary*0.3+Gexam*0.7),PRIMARY KEY(Sno,Cno),)創建的存儲過程：對Dept、Student、Teacher、Course表的刪除CREATE PROC deleteByNoNo varchar(12),type smallint = 1ASbegin transactionIF type = 1 BEGINDELETE FROM DeptWHERE Dno = No;END IF type = 2 BEGINDELETE FROM TeacherWHERE Tno = NoEN

14、DIF type = 3 BEGINDELETE FROM StudentWHERE Sno = NoENDIF type = 4BEGINDELETE FROM CourseWHERE Cno = NoENDCOMMIT添加系信息：CREATE PROC InsertDeptDno varchar(12),Dname varchar(20),Dintro ntextASBEGIN TRANSACTIONINSERT INTO DeptVALUES(Dno,Dname,Dintro)COMMIT添加學生信息：CREATE PROC InsertStudentSno varchar(12),Sn

15、ame varchar(10),Ssex char(2),Sbirth datetime,Senrolgrade smallint = 0,Dno varchar(12)ASBEGIN TRANSACTIONINSERT INTO StudentVALUES(Sno,Sname,Ssex,Sbirth,Senrolgrade,Dno)COMMIT添加課程信息：CREATE PROC InsertCourseCno varchar(12),Cname varchar(20),Cperiod smallint = 0,CcreditSmallint = 0,Cbeigan varchar(10),

16、Caddress varchar(20),Cexamtime varchar(2),Tno varchar(12)ASBEGIN TRANSACTIONINSERT INTO CourseVALUES(Cno,Cname,Cperiod,Ccredit,Cbeigan,Caddress,Cexamtime,Tno)COMMIT添加職工信息：CREATE PROC InsertTeacherTno varchar(12),Tname varchar(10),Tsex char(2),Tbirth datetime,Tjobtitle varchar(20),Tprofession varchar

17、(20),Dno varchar(12)ASBEGIN TRANSACTIONINSERT INTO TeacherVALUES(Tno,Tname,Tsex,Tbirth,Tjobtitle,Tprofession,Dno)COMMIT創建的視圖：CREATE VIEW ChooseCourse (Sno,Sname,Cno,Cname,Ccredit)ASSELECT Student.Sno,Student.Sname,Course.Cno,Course.Cname,Course.CcreditFROM Student,Course,SCWHERE Student.Sno = SC.Sno

18、 AND Course.Cno = SC.CnoCREATE VIEW Score(Sno,Sname,Cno,Cname,Gordinary,Gexam,Gsum)ASSelect Student.Sno,Sname,Course.Cno,Cname,Gordinary,Gexam,GsumFrom Student,Course,SCWhere Student.Sno = SC.Sno AND Course.Cno = SC.Cno創建的觸發器Create trigger insertchooseon SCFOR insertasdeclare i int, Sno varchar(12)s

19、elect Sno = SnoFrom insertedselect i=sum(Ccredit)from ChooseCoursewhere ChooseCourse.Sno = Snoif(i>15)beginROLLBACK TRANSACTIONRAISERROR('你選修的學分大于15學分，請確認后選課',16,1)END程序的詳細設計一、 數據庫操作類 ADOCoonenum Type CSTRING,INT1,;class ADOConn public:ADOConn();virtual ADOConn();void OnInitDBConnect();_R

20、ecordsetPtr& GetRecordSet(_bstr_t bstrSQL);_RecordsetPtr& ExcuteStoreProc(CString ProcNmae,CString* Parameters,CString* Values,Type *type);BOOL ExecuteSQL(_bstr_t bstrSQL);void ExitConect();_ConnectionPtr GetConnection();private:_ConnectionPtr m_PConnection;_RecordsetPtr m_PRecordPtr;ADOConn

21、:ADOConn() OnInitDBConnect();ADOConn:ADOConn() ADOConn:ExitConect();void ADOConn:OnInitDBConnect():CoInitialize(NULL);trym_PConnection.CreateInstance("ADODB.Connection");_bstr_t strConnect = "Provider=SQLOLEDB;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=ljx;Da

22、ta Source=(local)"m_PConnection->Open(strConnect,"","",adModeUnknown);catch(_com_error e)AfxMessageBox(e.Description();_RecordsetPtr& ADOConn:GetRecordSet(_bstr_t bstrSQL)tryif(m_PConnection = NULL)OnInitDBConnect();m_PRecordPtr.CreateInstance(_uuidof(Recordset);m_PRe

23、cordPtr->Open(bstrSQL,m_PConnection.GetInterfacePtr(),adOpenDynamic,adLockOptimistic,adCmdText); catch(_com_error e)AfxMessageBox(e.Description();return m_PRecordPtr;BOOL ADOConn:ExecuteSQL(_bstr_t bstrSQL)tryif(m_PConnection = NULL)OnInitDBConnect();m_PConnection ->Execute(bstrSQL,NULL,adCmdT

24、ext);return TRUE;catch(_com_error e)AfxMessageBox(e.Description();return FALSE;void ADOConn:ExitConect()if(m_PRecordPtr != NULL)m_PRecordPtr.Release();m_PConnection->Close();:CoUninitialize();_RecordsetPtr& ADOConn:ExcuteStoreProc(CString ProcNmae,CString* Parameters,CString* Values,Type *typ

25、e)_CommandPtr pCmd = NULL;tryif(m_PConnection = NULL)OnInitDBConnect(); pCmd.CreateInstance(_uuidof(Command);m_PRecordPtr.CreateInstance(_uuidof(Recordset);pCmd->ActiveConnection = m_PConnection;pCmd->CommandType = adCmdStoredProc;pCmd->CommandText = _bstr_t(ProcNmae);pCmd->Parameters-&g

26、t;Refresh();while(*Parameters != "0")switch(*type)case CSTRING:pCmd->Parameters->Item_variant_t(_bstr_t(*Parameters)->Value = _variant_t(*Values);Parameters+;Values+;type+;break;case INT1:CString str = *Values;int mm = atoi(str);pCmd->Parameters->Item_variant_t(_bstr_t(*Para

27、meters)->Value = _variant_t(long)mm);Parameters+;Values+;type+;break;default:break;m_PRecordPtr = pCmd->Execute(NULL,NULL,adCmdStoredProc);catch(_com_error e)AfxMessageBox(e.Description(); pCmd.Release();return m_PRecordPtr;_ConnectionPtr ADOConn:GetConnection() if(m_PConnection = NULL)OnInitD

28、BConnect();return m_PConnection;二、 登陸界面響應登陸按鈕的消息：void CMyDlg:OnLogin() / TODO: Add your control notification handler code herethis->ShowWindow(SW_HIDE);CAdmin dlg;dlg.DoModal();SendMessage(WM_CLOSE);三、 管理員主界面（CAdmin）主要通過tab控件實現。定義七個關聯對話框的實例對象CAdminStudent Student; CAdminTeacher Teacher;CAdminCour

29、se Course;CAdminDept Dept;CAdminSelectCoure SeclectCourse;CAdminScore Score;CAdminShow Show;其主要代碼為：BOOL CAdmin:OnInitDialog() CDialog:OnInitDialog();/ TODO: Add extra initialization herem_tabCtrl.InsertItem(0,_T(" 學生信息管理");m_tabCtrl.InsertItem(1,_T(" 職工信息管理");m_tabCtrl.InsertItem

30、(2,_T("課程信息管理");m_tabCtrl.InsertItem(3,_T("系信息管理");m_tabCtrl.InsertItem(4,_T("成績管理");m_tabCtrl.InsertItem(5,_T("選課管理");m_tabCtrl.InsertItem(6,_T("報表統計");Student.Create(IDD_ADMINSTUDENT,GetDlgItem(IDC_TAB1); Teacher.Create(IDD_ADMINTEACHER,GetDlgItem(

31、IDC_TAB1);Course.Create(IDD_ADMINCOURSE,GetDlgItem(IDC_TAB1);Dept.Create(IDD_ADMINDEPT,GetDlgItem(IDC_TAB1);SeclectCourse.Create(IDD_ADMINSELECTCOURSE,GetDlgItem(IDC_TAB1);Score.Create(IDD_ADMINSCORE,GetDlgItem(IDC_TAB1);Show.Create(IDD_ADMINSHOW,GetDlgItem(IDC_TAB1);/CRect rect;m_tabCtrl.GetClientR

32、ect(rect);rect.top += 20;rect.left += 5;rect.bottom += 5;rect.right += 5;Student.MoveWindow(rect);Teacher.MoveWindow(rect);Course.MoveWindow(rect);Dept.MoveWindow(rect);SeclectCourse.MoveWindow(rect);Score.MoveWindow(rect);Show.MoveWindow(rect);Student.ShowWindow(TRUE);m_tabCtrl.SetCurSel(0);return

33、TRUE; / return TRUE unless you set the focus to a control / EXCEPTION: OCX Property Pages should return FALSEvoid CAdmin:OnSelchangeTab1(NMHDR* pNMHDR, LRESULT* pResult) / TODO: Add your control notification handler code hereint CurSel = m_tabCtrl.GetCurSel();switch(CurSel)case 0:Student.ShowWindow(

34、TRUE);Teacher.ShowWindow(FALSE);Course.ShowWindow(FALSE);Dept.ShowWindow(FALSE);Score.ShowWindow(FALSE);SeclectCourse.ShowWindow(FALSE);Show.ShowWindow(FALSE);break; case 1: Student.ShowWindow(FALSE);Teacher.ShowWindow(TRUE);Teacher.SetParent(CWnd*)GetDlgItem(IDC_TAB1);Course.ShowWindow(FALSE);Dept.

35、ShowWindow(FALSE);Score.ShowWindow(FALSE);SeclectCourse.ShowWindow(FALSE);Show.ShowWindow(FALSE);break;case 2:Student.ShowWindow(FALSE);Teacher.ShowWindow(FALSE);Course.ShowWindow(TRUE);Dept.ShowWindow(FALSE);Score.ShowWindow(FALSE);Course.SetParent(CWnd*)GetDlgItem(IDC_TAB1);SeclectCourse.ShowWindo

36、w(FALSE);Show.ShowWindow(FALSE);break;case 3:Student.ShowWindow(FALSE);Teacher.ShowWindow(FALSE);Course.ShowWindow(FALSE);Dept.ShowWindow(TRUE);SeclectCourse.ShowWindow(FALSE);Score.ShowWindow(FALSE);Dept.SetParent(CWnd*)GetDlgItem(IDC_TAB1);Show.ShowWindow(FALSE);break;case 4: Student.ShowWindow(FA

37、LSE);Teacher.ShowWindow(FALSE);Course.ShowWindow(FALSE);Dept.ShowWindow(FALSE);Score.ShowWindow(TRUE);Score.SetParent(CWnd*)GetDlgItem(IDC_TAB1);SeclectCourse.ShowWindow(FALSE);Show.ShowWindow(FALSE);break;case 5: Student.ShowWindow(FALSE);Teacher.ShowWindow(FALSE);Course.ShowWindow(FALSE);Dept.Show

38、Window(FALSE);Score.ShowWindow(FALSE);Score.SetParent(CWnd*)GetDlgItem(IDC_TAB1);SeclectCourse.ShowWindow(TRUE);Show.ShowWindow(FALSE);break;case 6: Student.ShowWindow(FALSE);Teacher.ShowWindow(FALSE);Course.ShowWindow(FALSE);Dept.ShowWindow(FALSE);Score.ShowWindow(FALSE);Show.SetParent(CWnd*)GetDlg

39、Item(IDC_TAB1);SeclectCourse.ShowWindow(FALSE);Show.ShowWindow(TRUE);break;default:break;*pResult = 0;四、 學生信息管理：（CAdminStudent）（一） 主界面：主要添加DataGrid控件、ADO Data Control 6.0 控件、四個選擇按鈕（二） 添加空能（ADD）的實現：設計添加信息的對話框（CAddStudent）主要代碼：void CAddStudent:OnSex1() / TODO: Add your control notification handler cod

40、e hereSex = "男"void CAddStudent:OnSex2() / TODO: Add your control notification handler code hereSex = "女"BOOL CAddStudent:OnInitDialog() CDialog:OnInitDialog();/ TODO: Add extra initialization herem_Sex.SetCheck(1);SetWindowCString(Info);return TRUE; / return TRUE unless you set

41、the focus to a control / EXCEPTION: OCX Property Pages should return FALSEvoid CAddStudent:GetString(CString *str,Type *type)str0 = m_Sno;type0 = CSTRING;str1 = m_Name;type1 = CSTRING;str2 = Sex;type2 = CSTRING;str3 = m_Sbirth;type3 = CSTRING;str4.Format("%d",m_Grade);type4 = INT1;str5 = m

42、_Dno;type5 = CSTRING;void CAddStudent:GetString(CString *str)str0 = m_Sno;str1 = m_Name;str2 = Sex;str3 = m_Sbirth;str4.Format("%d",m_Grade);str5 = m_Dno;void CAddStudent:SetWindowCString(CString *Info)if(Info = NULL)return;GetDlgItem(IDC_SNO)->SetWindowText(Info0);GetDlgItem(IDC_SNAME)

43、->SetWindowText(Info1);if(Info2 = "男")m_Sex.SetCheck(1);(CButton*)GetDlgItem(IDC_SEX2)->SetCheck(0);Sex = "男"elsem_Sex.SetCheck(0);(CButton*)GetDlgItem(IDC_SEX2)->SetCheck(1);Sex = "女"GetDlgItem(IDC_SBIRTH)->SetWindowText(Info3);GetDlgItem(IDC_GRADE)->Set

44、WindowText(Info4);GetDlgItem(IDC_DNO)->SetWindowText(Info5);this->Info = NULL;void CAddStudent:SetCString(CString *info)this->Info = info;主程序添加功能的實現：void CAdminStudent:OnAdd() / TODO: Add your control notification handler code hereCAddStudent addDlg;Type type6;CString str6;ADOConn ado;CStri

45、ng Parameters7 = "Sno","Sname","Ssex","Sbirth","Senrolgrade","Dno"if(addDlg.DoModal() = IDOK) addDlg.GetString(str,type); ado.ExcuteStoreProc("InsertStudent",Parameters, str,type);m_adodc.Refresh();m_dataGrid.Refresh();this->Up

46、dateData(FALSE);（三） 查詢功能（SELECT）需要添加的對話框（CGetSno）CString CGetSno:GetSno()return m_Sno;void CGetSno:SetString(CString str)m_setSno = str;BOOL CGetSno:OnInitDialog() CDialog:OnInitDialog();/ TODO: Add extra initialization hereGetDlgItem(IDC_SETSNO)->SetWindowText(m_setSno);return TRUE; 主程序添加的代碼：CGe

47、tSno dlg;ADOConn ado;CString Sno;COleDateTime birth;_variant_t data;CString str = "SELECT * FROM Student Where Sno = '"_RecordsetPtr m_Rec = NULL; dlg.SetString("查詢的學號：");if(dlg.DoModal() = IDOK)Sno = dlg.GetSno();str += Sno;str += "'"if(Sno = _T("")re

48、turn;m_Rec = ado.GetRecordSet(_bstr_t)str);if(m_Rec->adoBOF)MessageBox("查無此人！");return;else str = "學號： "str += Sno;str +="rn"str += "姓名："str += m_Rec->GetCollect(_T("Sname").bstrVal;str +="rn"str += "性別"str += m_Rec->GetC

49、ollect(_T("Ssex").bstrVal;str +="rn"str += "出生日期："data=m_Rec->GetCollect(_T("Sbirth");birth= COleDateTime(data);Sno.Format(_T("%d-%d-%d"),birth.GetYear(),birth.GetMonth(),birth.GetDay();str += Sno;str +="rn"str += "入學成績："Sno.Fo

50、rmat("%d",m_Rec->GetCollect(_T("Senrolgrade").bstrVal);str += Sno;str +="rn"str += "所在系號："str += m_Rec->GetCollect(_T("Dno").bstrVal;MessageBox(str);（四） 修改功能（UPDATE）需要的對話框前面已經設計 （CAddStudent）（CGetSno）主程序添加的代碼：void CAdminStudent:OnUpdate() / TOD

51、O: Add your control notification handler code hereCGetSno dlg;ADOConn ado;CString Sno;COleDateTime birth;_variant_t data;CString str = "SELECT * FROM Student Where Sno = "_RecordsetPtr m_Rec = NULL;dlg.SetString("修改的學號：");if(dlg.DoModal() = IDOK)Sno = dlg.GetSno();if(Sno = _T(&qu

52、ot;")return;elsereturn;str += Sno;m_Rec = ado.GetRecordSet(_bstr_t)str);CString Info6;CString VName6 = "Sno","Sname","Ssex","Sbirth","Senrolgrade","Dno"CString GetInfo6;Info0 = Sno;Info1 = m_Rec->GetCollect(_T("Sname").bstrVal;Info2 = m_Rec->