教學管理系統(tǒng)-sql(編輯修改稿)
2025-09-01 07:21 本頁面
【文章內(nèi)容簡介】 onn(){ ADOConn::ExitConect()。}void ADOConn::OnInitDBConnect(){ ::CoInitialize(NULL)。 try { ()。 _bstr_t strConnect = Provider=SQLOLEDB。Integrated Security=SSPI。Persist Security Info=False。Initial Catalog=ljx。Data Source=(local)。 m_PConnectionOpen(strConnect,adModeUnknown)。 } catch(__error e) { AfxMessageBox(())。 } }_RecordsetPtramp。 ADOConn::GetRecordSet(_bstr_t bstrSQL){ try { if(m_PConnection == NULL) { OnInitDBConnect()。 } (__uuidof(Recordset))。 m_PRecordPtrOpen(bstrSQL,(),adOpenDynamic,adLockOptimistic,adCmdText)。 } catch(__error e) { AfxMessageBox(())。 } return m_PRecordPtr。}BOOL ADOConn::ExecuteSQL(_bstr_t bstrSQL){ try { if(m_PConnection == NULL) { OnInitDBConnect()。 } m_PConnection Execute(bstrSQL,NULL,adCmdText)。 return TRUE。 } catch(__error e) { AfxMessageBox(())。 return FALSE。 }}void ADOConn::ExitConect(){ if(m_PRecordPtr != NULL) { ()。 } m_PConnectionClose()。 ::CoUninitialize()。}_RecordsetPtramp。 ADOConn::ExcuteStoreProc(CString ProcNmae,CString* Parameters,CString* Values,Type *type){ _CommandPtr pCmd = NULL。 try { if(m_PConnection == NULL) { OnInitDBConnect()。 } (__uuidof(Command))。 (__uuidof(Recordset))。 pCmdActiveConnection = m_PConnection。 pCmdCommandType = adCmdStoredProc。 pCmdCommandText = _bstr_t(ProcNmae)。 pCmdParametersRefresh()。 while(*Parameters != \0) { switch(*type) { case CSTRING: pCmdParametersItem[_variant_t(_bstr_t(*Parameters))]Value = _variant_t(*Values)。 Parameters++。 Values++。 type++。 break。 case INT1: { CString str = *Values。 int mm = atoi(str)。 pCmdParametersItem[_variant_t(_bstr_t(*Parameters))]Value = _variant_t((long)mm)。 Parameters++。 Values++。 type++。 break。 } default: break。 } } m_PRecordPtr = pCmdExecute(NULL,NULL,adCmdStoredProc)。 } catch(__error e) { AfxMessageBox(())。 } ()。 return m_PRecordPtr。}_ConnectionPtr ADOConn::GetConnection(){ if(m_PConnection == NULL) { OnInitDBConnect()。 } return m_PConnection。}二、 登陸界面響應登陸按鈕的消息：void CMyDlg::OnLogin() { // TODO: Add your control notification handler code here thisShowWindow(SW_HIDE)。 CAdmin dlg。 ()。 SendMessage(WM_CLOSE)。}三、 管理員主界面（CAdmin）主要通過tab控件實現(xiàn)。定義七個關聯(lián)對話框的實例對象 CAdminStudent Student。 CAdminTeacher Teacher。 CAdminCourse Course。 CAdminDept Dept。 CAdminSelectCoure SeclectCourse。 CAdminScore Score。 CAdminShow Show。其主要代碼為：BOOL CAdmin::OnInitDialog() { CDialog::OnInitDialog()。 // TODO: Add extra initialization here (0,_T( 學生信息管理))。 (1,_T( 職工信息管理))。 (2,_T(課程信息管理))。 (3,_T(系信息管理))。 (4,_T(成績管理))。 (5,_T(選課管理))。 (6,_T(報表統(tǒng)計))。 (IDD_ADMINSTUDENT,GetDlgItem(IDC_TAB1))。 (IDD_ADMINTEACHER,GetDlgItem(IDC_TAB1))。 (IDD_ADMINCOURSE,GetDlgItem(IDC_TAB1))。 (IDD_ADMINDEPT,GetDlgItem(IDC_TAB1))。 (IDD_ADMINSELECTCOURSE,GetDlgItem(IDC_TAB1))。 (IDD_ADMINSCORE,GetDlgItem(IDC_TAB1))。 (IDD_ADMINSHOW,GetDlgItem(IDC_TAB1))。// CRect rect。 (rect)。 += 20。 += 5。 += 5。 += 5。 (rect)。 (rect)。 (rect)。 (rect)。 (rect)。 (rect)。 (rect)。 (TRUE)。 (0)。 return TRUE。 // return TRUE unless you set the focus to a control //
環(huán)評公示相關推薦
鄂ICP備17016276號-1