【正文】 開發(fā)SQL Server數(shù)據(jù)庫應(yīng)用程序更加靈活。 SQL Server數(shù)據(jù)庫特點(diǎn)概括起來，SQL Server 2000數(shù)據(jù)庫管理系統(tǒng)具有以下主要特點(diǎn)。在經(jīng)歷了SQL Server ，微軟公司終于開始了大規(guī)模的業(yè)務(wù)。0中新增的對象，它是一個(gè)更簡單的對象模型，它更好的集成了其它數(shù)據(jù)訪問技術(shù)，并且對本地和遠(yuǎn)程數(shù)據(jù)庫均有共同的界面，可以取代DAO和RDO。數(shù)據(jù)控件是VB所提供的基本控件成員之一。Jet也提供對安全功能的支持。VB可以訪問的數(shù)據(jù)庫可以簡單的分為三類，即：Microsoft Access格式數(shù)據(jù)庫，外部數(shù)據(jù)庫和ODBC數(shù)據(jù)庫。當(dāng)然在 Visual Basic中還有其它特性，例如：l 面向?qū)ο蟮木幊陶Z言；l 結(jié)構(gòu)化程序設(shè)計(jì)；l 事件驅(qū)動(dòng)的程序設(shè)計(jì)：在傳統(tǒng)的或“過程化”的應(yīng)用程序中，應(yīng)用程序自身控制了執(zhí)行哪一部分代碼和按何種順序執(zhí)行代碼。Visual Basic提供了大量的控件，這些控件可用于設(shè)計(jì)界面和實(shí)現(xiàn)各種功能，減少了編程人員的工作量，也簡化了界面設(shè)計(jì)過程，從而有效的提高了應(yīng)用程序的運(yùn)行效率和可靠性。改革的總設(shè)計(jì)師鄧小平同志說過“科學(xué)技術(shù)是第一生產(chǎn)力”，我希望能用我四年的所學(xué)編制出一個(gè)實(shí)用的程序來幫助中小學(xué)進(jìn)行更有效的學(xué)籍管理。關(guān)鍵字：管理信息系統(tǒng)。第 5 至 10周：進(jìn)入畢業(yè)論文設(shè)計(jì)、寫作階段，確定提綱、定稿及計(jì)算機(jī)打印裝訂成冊。江西省電大畢 業(yè) 論 文學(xué)籍管理系統(tǒng)學(xué) 院：江西廣播電視大學(xué)專 業(yè)：計(jì)算機(jī)科學(xué)與技術(shù)學(xué) 號(hào)：0936001200218姓 名：陳宇指導(dǎo)老師：陳忻開題報(bào)告課題名稱：學(xué)籍管理系統(tǒng)一：立項(xiàng)依據(jù)現(xiàn)代教育技術(shù)特別是網(wǎng)絡(luò)與多媒體技術(shù)的發(fā)展，對學(xué)習(xí)活動(dòng)產(chǎn)生了具有深遠(yuǎn)意義的沖擊，網(wǎng)絡(luò)中的學(xué)習(xí)者必須是一個(gè)主動(dòng)行為著的主體，人們可以選擇或者設(shè)計(jì)適合其學(xué)習(xí)特點(diǎn)的信息采集、加工與重組方式，一種個(gè)性化的學(xué)習(xí)類型。為了我們提高軟件開發(fā)的能力，學(xué)習(xí)漢語編程的技巧，提高工作設(shè)計(jì)思想，通過本次的工程開發(fā)，開發(fā)小組成員與輔助老師，公司的技師交流，能從中學(xué)習(xí)知識(shí)吸取經(jīng)驗(yàn)，再技術(shù)和軟件思想上同時(shí)得到鍛煉和提高，從而使總體水升到一個(gè)新的高度四：進(jìn)度計(jì)劃第 1 至 4 周：收集資料（書籍和案例）、整理、分析；編寫開題報(bào)告。這些優(yōu)點(diǎn)能夠極大地提高學(xué)生學(xué)籍管理的效率,也是企業(yè)的科學(xué)化、正規(guī)化管理,與世界接軌的重要條件。作為一個(gè)計(jì)算機(jī)應(yīng)用的本科生，希望可以在這方面有所貢獻(xiàn)。下面就對這些開發(fā)工具進(jìn)行介紹：1．3．1 Visual Basic 微軟公司的Visual Basic ，是目前最為廣泛的、易學(xué)易用的面向?qū)ο蟮拈_發(fā)工具。從Visual ，在Visual Basic 中制作的應(yīng)用程序都改變?yōu)榫幾g執(zhí)行，使得Visual Basic的代碼效率有了很大的提高，同時(shí)執(zhí)行的速度 也加快了解30%(同Visual )。事實(shí)上，VB幾乎支持對市面上所有數(shù)據(jù)庫的訪問。SQL提供用單獨(dú)語句對基于用戶定義標(biāo)準(zhǔn)的記錄組進(jìn)行檢索、添加、刪除或更新的方法。數(shù)據(jù)管理器（Data Manager）是Visual Basical已有的老成員之一，拓本盛舉有的Jet數(shù)據(jù)庫引擎（Database Engine）可以幫助VB程序元件立即維護(hù)數(shù)據(jù)庫內(nèi)容，并可通過輸入查詢或查找數(shù)據(jù)庫信息，而不必再通過其他數(shù)據(jù)庫軟件另外去設(shè)計(jì)數(shù)據(jù)庫。ADO是VB6。支持基于角色的安全并擁有安全審計(jì)工具。另外，SQL Server 2000可以兼顧小、中、大規(guī)模的應(yīng)用，有著遠(yuǎn)遠(yuǎn)比Access強(qiáng)大的伸縮性。Internet網(wǎng)絡(luò)發(fā)展到今天已經(jīng)成為一條重要的信息發(fā)布渠道，SQL Server增強(qiáng)了對Internet技術(shù)支持，它除保留了前期版本中的數(shù)據(jù)庫Web出版工具“Web助手”外，還增強(qiáng)了對XML和HTTP技術(shù)的支持，這使得電子商務(wù)系統(tǒng)能夠通過XML等訪問SQL Server數(shù)據(jù)庫系統(tǒng)，也擴(kuò)展了SQL Server在數(shù)據(jù)挖掘和分析服務(wù)領(lǐng)域的應(yīng)用。SQL Server 2000與Microsoft Windows 2000有機(jī)集成，所以可以使用Windows 2000的活動(dòng)目錄（Active Directory）功能對SQL Server進(jìn)行集中管理，大大簡化大型企業(yè)中的系統(tǒng)管理工作。要執(zhí)行ADO，服務(wù)器端必須安裝Windows NT Server 和Internet Information Server(IIS)，而客戶端只要有IE或NETSCAPE較新版本的瀏覽器即可。 ADO組件的主要對象及其功能ADO組件又稱為數(shù)據(jù)庫訪問組件，它提供了以下七種對象：Connection對象：提供對數(shù)據(jù)庫的連接服務(wù)。adLockBatchOptimistic4開放式批更新。SQL命令，包括Select、Delete、Update、Insert Into、Select Into等。Data Source= amp。3．2 模塊設(shè)計(jì)添加兩個(gè)模塊module1和module2，在module1中添加如下代碼Option ExplicitGlobal con As New Global rs As New Global classid As String, stuid As StringGlobal LoginUser As String, LoginPower As String LoginUser記錄當(dāng)前登陸用戶的用戶名,LoginPower記錄當(dāng)前登陸用戶的權(quán)限D(zhuǎn)im Userid As String, Userpwd As String, Username As String, Userpower As StringDim sqlstr As StringSub Main()If = True Then MsgBox 注意程序已經(jīng)運(yùn)行，不能再次裝載！, vbOKOnly Exit SubElse Provider=。 amp。將當(dāng)前登陸用戶的權(quán)限保存到LoginPower中 Unload Me End If Else MsgBox 沒有您輸入的用戶名！, 32 …… End If : Set rs = Nothing Case 1 ‘退出整個(gè)程序 Unload Me End SelectEnd Sub3．3．2 MDI主窗口(frmmain)本系統(tǒng)采取多文檔界面(MultiDocument Interface)。Private Sub MDIForm_Load() (2).Text = 當(dāng)前操作員： amp。但是，QueryUnload事件是在任一個(gè)卸載之前在所有窗體中發(fā)生，而Unload是在每個(gè)窗體卸載時(shí)發(fā)生。Private Sub filemenu22_Click() ShellExecute , open, mailto:datou158, , , 1End Sub7．當(dāng)用戶單擊查詢學(xué)生資料菜單項(xiàng)或者按下F3鍵時(shí)，將會(huì)出現(xiàn)“查找學(xué)生”窗體，供用戶查找滿足特定要求的學(xué)生信息。, vbTextCompare) Then MsgBox 用戶姓名中有特殊字符 + 39。 Userid amp。,39。 39。更新列表 LoadOperatorEnd Sub4．刪除系統(tǒng)用戶當(dāng)用戶雙擊ListView中的數(shù)據(jù)時(shí)，則會(huì)調(diào)用DeleteRecord()函數(shù)，如果系統(tǒng)用戶只剩一個(gè)，則提示用戶不能再刪除；反之要求輸入您想要?jiǎng)h除的用戶的密碼，密碼正確時(shí)才可以將該用戶刪除，密碼錯(cuò)誤時(shí)則不采取任何措施；最后調(diào)用LoadOperator顯示并刷新Listview中的數(shù)據(jù)。 sqlstr, con, 1, 1 If MD5(InputBox(請輸入該用戶的密碼：)) = (UserPWD) Then sqlstr = delete from UserInfo where UserID=39。修改密碼界面 1End Sub 修改用戶密碼當(dāng)用戶輸入完畢時(shí)，單擊“確定”按鈕，引發(fā)Click事件。 amp。Private Sub Command2_Click() Unload MeEnd Sub3．3．5 瀏覽學(xué)生信息窗體（frmstu）在工程中添加一個(gè)窗體，這里將使用frmstu窗體，來實(shí)現(xiàn)瀏覽學(xué)生信息的功能， 瀏覽學(xué)生信息窗體在該窗體中，用戶可以查看/修改學(xué)生的信息，還可以添加/刪除學(xué)生信息，所以用一個(gè)Treeview和一個(gè)Listview分別顯示班級(jí)列表和該班級(jí)下面的學(xué)生列表，用Image和PictureBox來調(diào)整控件的大小。開始在ListView中顯示數(shù)據(jù) classid = Left(, 6) Call ListviewLoad(classid)ElseIf = S Then Call SqlListview(SqlSearch)Else End IfEnd SubPublic Sub ListviewLoad(ByVal classid As String)Dim Listit As ListItem = lvwManual = 3Dim ef As New classid = Left(classid, 6)sqlstr = select * from StuInfo where SID like 39。O）”。Private Sub pop5_Click() 39。在Listview中列出了各學(xué)籍信息的學(xué)號(hào)和姓名以供用戶進(jìn)行導(dǎo)航，但是在實(shí)際管理中，還需要顯示出某一條學(xué)生信息的詳細(xì)列表。 StuNum amp。 ） = 添加（amp。 sqlstr, con 39。M） Dim rs As New , sqlstr As String sqlstr = select * from StuInfo where SID=39。如果為添加新的學(xué)生資料，則將學(xué)號(hào)的前6位置為該班級(jí)的ID，并將學(xué)號(hào)輸入框的SelStart屬性設(shè)為6。顯示詳細(xì)資料 Call End SubPublic Sub ListView_DblClick()On Error Resume NextIf Then SelectNum = If SelectNum Then 39。 amp。修改學(xué)生資料 Call End SubPublic Sub ModifyStu()39。 order by SID sqlstr, con, 1, 1 Do While Not Set Listit = (, , (SID)) (1) = (SName) (2) = (SGender) (3) = (SMinzu) (4) = (SZhengzhi) (5) = (SDormitory) (6) = (SAddress) Loop: Set ef = NothingEnd Sub在顯示該班級(jí)下面所有學(xué)生信息的同時(shí)，用戶可以對記錄進(jìn)行管理：添加新記錄、編輯或者刪除當(dāng)前記錄，為此在Listview中創(chuàng)建右鍵菜單，用來對記錄進(jìn)行操作。Private Sub Form_Resize()If WindowState 1 Then If 3000 Then = 3000 If 3000 Then = 3000 SizeControls End If = (0).Width = 5000End SubSub SizeControls(X As Single) On Error Resume Next 39。 amp。 amp。 sqlstr Else MsgBox 對不起！您輸入的密碼不正確，刪除該用戶失??！, vbInformation End If LoadOperator End IfEnd If: Set rs = NothingEnd Sub5．菜單設(shè)計(jì)在Listview中單擊鼠標(biāo)右鍵會(huì)調(diào)用ListView的MouseUp事件，出現(xiàn)右鍵菜單menuOpertor，具體實(shí)現(xiàn)如下：Private Sub ListView_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)If Button = 2 Then PopupMenu menuOperatorEnd IfEnd Sub實(shí)現(xiàn)該右鍵菜單各項(xiàng)功能的代碼如下：Private Sub menuAdd_Click() 39。 的用戶帳號(hào)嗎？, vbYesNo + 32 + vbDefaultButton2) = vbYes Then sqlstr = select * from UserInfo where Us