【正文】 = (7)End IfEnd IfEnd SubPrivate Sub Command6_Click()If = ThenMsgBox 查詢條件為空Else = + 1 = select * from 學(xué)生信息 where amp。 amp。Persist Security Info=False。 where amp。 Trim() amp。Data Source=chengji。 Trim() amp。 39。Initial Catalog=StudentManage = adCmdText = select * from 教師信息 where 教師編號(hào)=39。 = (2) = (3) = (4) = (5) = (6) = (7) = (8) = (9) = (姓名) = Provider=。 amp。Persist Security Info=False。 39。Initial Catalog=StudentManage = adCmdText = select * FROM amp。Data Source=chengji。Persist Security Info=False。 =39。 If = 0 ThenMsgBox 沒(méi)有記錄 Else = (0) = (2) = (4) = (5) = (6) = (7) = (3) = TrueEnd IfEnd SubPrivate Sub Command10_Click()MsgBox 刪除成功 = = = = = = = End SubPrivate Sub Command11_Click() = Provider=。 Trim() amp。Data Source=chengji = adCmdText = select * FROM amp。Data Source=chengji = adCmdText = select * FROM amp。 Trim() amp。Data Source=chengji = adCmdText = select * FROM 學(xué)生信息 where 學(xué)生學(xué)號(hào)=39。 = (姓名)End SubPrivate Sub Command14_Click()(1).Value = (2).Value = (3).Value = (4).Value = MsgBox 修改成功End SubPrivate Sub Command16_Click() = = = = = If Trim() = 修改課程 Then = select * from 課程表 where 課程號(hào)=39。 and 課程名 =39。If ThenMsgBox 沒(méi)有該課程信息或課程號(hào)與課程名不匹配Else(課時(shí)).Value = (備注).Value = MsgBox 修改成功End IfEnd IfIf () = 刪除課程 Then = select * from 課程表 where 課程號(hào)=39。 and 課程名 =39。If ThenMsgBox 沒(méi)有該課程信息或課程號(hào)與課程名不匹配ElseMsgBox 刪除成功End IfEnd IfIf () = Trim(增加課程) Then = Provider=。Persist Security Info=False。 39。 Trim() amp。 39。Persist Security Info=False。在一個(gè)系統(tǒng)開(kāi)發(fā)的過(guò)程中編碼不是重要的，重要的是分析系統(tǒng)、建立起系統(tǒng)模型。擁有這些條件，程序的可讀性才會(huì)好，開(kāi)發(fā)的復(fù)雜度才能大大減少，修改代碼時(shí)更加容易下手。那如何是良好的編程風(fēng)格與習(xí)慣呢？我認(rèn)為主要是程序的模塊化、必要的注釋。2．要善于同別人交流與合作，善于獲取各種有用的資源。在我遇到問(wèn)題時(shí)她總是耐心的為我解答，并幫我查找相關(guān)資料；在我遇到困難時(shí)幫助解決了不少的難點(diǎn)，使得系統(tǒng)能及時(shí)完成。參考文獻(xiàn)能夠順利完成畢業(yè)課題，我還要感謝貴州師范大學(xué)職業(yè)技術(shù)學(xué)院計(jì)算機(jī)工程系計(jì)算機(jī)網(wǎng)絡(luò)技術(shù)班,給我們提供了良好實(shí)習(xí)和設(shè)計(jì)環(huán)境。致謝經(jīng)過(guò)一個(gè)多月的畢業(yè)設(shè)計(jì)，我學(xué)會(huì)了很多知識(shí)，個(gè)人的能力有了很大的提高，對(duì)Visual Basic Server 2000有了更深刻的認(rèn)識(shí)，并用Visual Basic Server 2000順利的開(kāi)發(fā)了這樣的一個(gè)學(xué)生信息管理系統(tǒng)，我的畢業(yè)設(shè)計(jì)取得了應(yīng)有的效果。必要的注釋，顯而易見(jiàn)是要在程序的編寫中加入對(duì)程序的說(shuō)明，原因就是為了別人能讀懂你的程序，過(guò)一段時(shí)間后你自己還能讀懂自己的程序。所以設(shè)計(jì)一個(gè)界面時(shí)，開(kāi)發(fā)人員必須要了解用戶的想法，從用戶的角度去設(shè)計(jì)，當(dāng)然，開(kāi)發(fā)不能全聽(tīng)用戶的意見(jiàn)，在詳細(xì)分析了系統(tǒng)后，開(kāi)發(fā)人員可以向用戶提出一些修改的意見(jiàn)，在雙方多次交流后定出程序所需的功能，以決定界面的實(shí)現(xiàn)。而且一個(gè)成功的軟件要符合用戶的需要，要以用戶為中心，開(kāi)發(fā)出用戶想要的軟件，而不能自以為是、想當(dāng)然的做。第五章 總結(jié)與展望Persist Security Info=False。 amp。Persist Security Info=False。 amp。Data Source=chengji = adCmdText = select * from 課程表 (課程號(hào)).Value = (課程名).Value = (課時(shí)).Value = (備注).Value = MsgBox 添加成功End IfEnd SubPrivate Sub Command17_Click()If = ThenMsgBox 請(qǐng)輸入課程號(hào)檢索, vbOKOnly + vbExclamation, 警告Else39。 Trim() amp。 Trim() amp。 Trim() amp。 Trim() amp。 Trim() amp。 = (1) = (2) = (3) = (4) = (1).Name = (2).Name = (3).Name = (4).Name = Provider=。 where 學(xué)生學(xué)號(hào)=39。 End SubPrivate Sub Command13_Click() = Provider=。 End SubPrivate Sub Command12_Click()If = ThenMsgBox 用戶名不能空, vbOKOnly + vbExclamation, 警告End If = Provider=。Data Source=denglu = adCmdText = select * FROM 學(xué)生信息 where 班級(jí)=39。 Trim() amp。Initial Catalog=StudentManage = adCmdText = select * FROM 學(xué)生信息 where amp。 Trim() + Trim() amp。 = (2).Name = (3).Name = (4).Name = (5).NameEnd SubPrivate Sub xuescji_Click() = Provider=。Persist Security Info=False。 amp。 39。Data Source=chengji。 Trim() amp。Persist Security Info=False。 amp。 Trim() + Trim() amp。 If = 0 ThenMsgBox 沒(méi)有記錄 = + 1Else = (1) = (0) = (2) = (3) = (4) = (5)End IfEnd IfEnd SubPrivate Sub Command9_Click()If = ThenMsgBox 查詢條件為空Else = + 1 = Provider=。 =39。Initial Catalog=StudentManage = adCmdText = select * FROM amp。If = 0 Then MsgBox 沒(méi)有記錄 = 1Else = (0) = (2) = (3) = (4) = (5) = (6) = (7)End IfEnd IfEnd SubPrivate Sub Command7_Click()If = Or = Or = Or = ThenMsgBox 請(qǐng)輸入完整信息！ElseWith If = 0 ThenMsgBox 沒(méi)有記錄 ElseEnd If(2).Value = (3).Value = (4).Value = (5).Value = End With = (1) = (0) = (2) = (3) = (4) = (5)39。 =39。 amp。End IfEnd SubPrivate Sub Command4_Click() = = = = = = = = End SubPrivate Sub Command5_Click()If = ThenMsgBox 查詢條件為空Else = 1 = select * from 學(xué)生信息 where amp。 amp。 Trim() + Trim() amp。If = 0 ThenMsgBox 沒(méi)有記錄 Else = (0) = (2) = (3) = (4) = (5) = (6) = (7)End IfIf ThenMsgBox 該學(xué)生非本班學(xué)生不能查詢 = = = = = = = = End IfEnd SubPrivate Sub Command10_Click() = = = = = = End SubPrivate Sub Command11_Click()If (密碼) ThenMsgBox 當(dāng)前密碼輸入錯(cuò)誤Exit SubEnd IfIf ThenMsgBox 新密碼輸入錯(cuò)誤Else(密碼).Value = MsgBox 修改成功End IfEnd SubPrivate Sub Command2_Click()If = ThenMsgBox 選擇操作方式ElseIf = ThenMsgBox 選擇查詢條件Exit SubEnd IfEnd If = Provider=。 = 39。 Trim() amp。 = (1).Name = (2).Name = (3).Name = (4).Name = (1).Name = (2).Name = (3).Name =