【正文】 換操作等。此外，SQL Server 2000還支持ODBC、OLE DB、ADO規(guī)范，可以使用ODBC、OLE DB、ADO接口訪問(wèn)SQL Server數(shù)據(jù)庫(kù)。它可以把大部分?jǐn)?shù)據(jù)源可編程的屬性直接擴(kuò)展到Active Server上，主要含有Connection、Recordset與Command三種對(duì)象。⑶ 支持分批修改數(shù)據(jù)庫(kù)內(nèi)容。●Recordset對(duì)象的LockType屬性的設(shè)置值常量值說(shuō)明adLockReadOnly1默認(rèn)值，只讀。Property對(duì)象：?jiǎn)为?dú)的一個(gè)Property對(duì)象，提供屬性功能。server=localhost。1． 用戶信息表（UserInfo）：字段名數(shù)據(jù)類型說(shuō)明是否為空是否為關(guān)鍵字UserID文本用戶名Not NullPrimary KeyUserPWD文本用戶密碼Not NullUserName文本姓名Not NullUserPower文本使用權(quán)限Not Null（StuInfo）：字段名數(shù)據(jù)類型說(shuō)明是否為空是否為關(guān)鍵字SID文本學(xué)號(hào)Not NullPrimary KeySName文本姓名Not NullSGender文本性別Not NullSPlace文本籍貫Not NullSBirthday日期/時(shí)間出生日期Not NullSMinzu文本民族Not NullSZhengzhi文本政治面貌Not NullSDormitory文本寢室號(hào)碼Not NullSAddress文本家庭住址Not NullSCode文本郵政編碼Not NullSTel文本聯(lián)系電話Not NullSRemark備注備注Not Null（Class）：字段名數(shù)據(jù)類型說(shuō)明是否為空是否為關(guān)鍵字ID文本班級(jí)代碼Not NullPrimary Key（Major）：字段名數(shù)據(jù)類型說(shuō)明是否為空是否為關(guān)鍵字ID文本專業(yè)代號(hào)Not NullPrimary KeyName文本專業(yè)名稱Not Null（Depart）：字段名數(shù)據(jù)類型說(shuō)明是否為空是否為關(guān)鍵字ID文本學(xué)院代號(hào)Not NullPrimary KeyName文本學(xué)院名稱Not Null6．課程信息表（Lesson）：字段名數(shù)據(jù)類型說(shuō)明是否為空是否為關(guān)鍵字ID文本課程代號(hào)Not NullPrimary KeyName文本課程名稱Not NullTime文本課時(shí)Not NullMark 文本學(xué)分Not Null7．學(xué)生成績(jī)表（Result）：字段名數(shù)據(jù)類型說(shuō)明是否為空是否為關(guān)鍵字ID文本學(xué)生學(xué)號(hào)Not NullPrimary KeyName文本課程名稱Not NullPrimary KeyScore文本分?jǐn)?shù)Not NullRemark文本備注Not Null2．2系統(tǒng)流程圖登陸表單（管理員或者普通用戶身份登陸）Splash表單MDI主窗口（系統(tǒng)主窗口）管理學(xué)生學(xué)籍信息（學(xué)生基本信息管理，課程管理，專業(yè)/學(xué)院管理和考試成績(jī)管理管理系統(tǒng)用戶（添加，刪除）對(duì)學(xué)生信息進(jìn)行查找（按學(xué)號(hào)或姓名）返回查詢信息管理員登陸重新登陸 系統(tǒng)流程圖學(xué)籍管理處系統(tǒng)管理員學(xué)生教師商店系統(tǒng)用戶管理系部信息管理課程信息管理班級(jí)信息管理教師信息管理學(xué)生信息管理班級(jí)學(xué)生查詢學(xué)生成績(jī)錄入成績(jī)查詢選課選課信息管理工作：2．4 系統(tǒng)功能分析系統(tǒng)開發(fā)的目標(biāo)是實(shí)現(xiàn)學(xué)生學(xué)籍管理的系統(tǒng)化、規(guī)范化和自動(dòng)化，這是在用戶要求的基礎(chǔ)上提出來(lái)的，功能要求如下： （一）學(xué)生信息管理：能對(duì)學(xué)生信息進(jìn)行添加、修改、刪除。這里附上本程序的登陸界面。 sqlstr, con, 1, 1 If Not Then If rs(UserPWD) Userpwd Then 39。在工程中添加一個(gè)MDI窗口，取名為“”，并為MDI窗體進(jìn)行菜單和代碼的設(shè)計(jì)，: 主界面3．3．2．1 菜單設(shè)計(jì)MDI主窗體是整個(gè)系統(tǒng)的容器，為了方便用戶的使用，應(yīng)設(shè)計(jì)相應(yīng)的菜單和代碼。 LoginPower amp。有介于此，通常來(lái)說(shuō)都是在QueryUnload中詢問(wèn)用戶是否要退出當(dāng)前窗體。 用戶管理界面如果登陸的用戶類型是管理員，用戶管理一項(xiàng)是可用的，當(dāng)單擊該子菜單時(shí)，將會(huì)出現(xiàn)用戶管理窗口，管理員可以對(duì)系統(tǒng)用戶進(jìn)行添加和刪除操作。 amp。Private Sub Command4_Click()sqlstr = insert into UserInfo(UserID,UserPWD,UserName,UserPower) sqlstr = sqlstr amp。 39。Userpower amp。 amp。 39。Private Sub Command1_Click()……sqlstr = select UserPWD from UserInfo where UserID=39。 where UserID=39。當(dāng)窗體大小發(fā)生變化時(shí)，調(diào)用Form_Resize，調(diào)整Frmstu中控件的大小。 __39。Private Sub pop4_Click() 39。 的全部資料嗎！, vbYesNo + 32 + vbDefaultButton2) = vbYes Then sqlstr = delete from StuInfo where SID=39。 學(xué)生詳細(xì)信息Private Sub pop1_Click() 39。如果為修改資料，則以學(xué)生的學(xué)號(hào)為關(guān)鍵字將該學(xué)生的信息加載到該窗體的對(duì)應(yīng)文本框，同時(shí)將該學(xué)號(hào)框（EditStu（0））的Enable屬性設(shè)置為False。 的學(xué)生資料 EditStu(0).Enabled = False = 修改（amp。把數(shù)據(jù)代入文本框中 EditStu(0).Text = (SID) EditStu(1).Text = (SName) EditStu(2).Text = (SBirthday) EditStu(3).Text = (SPlace) EditStu(4).Text = (SAddress) EditStu(5).Text = (SCode) EditStu(6).Text = (STel) EditStu(7).Text = (SDormitory) EditStu(8).Text = (SRemark) If (SGender) = 男 Then = 0 ElseIf (SGender) = 女 Then = 1 End If If (SZhengzhi) = Then = 0 ElseIf (SZhengzhi) = 團(tuán)員 Then = 1 ElseIf (SZhengzhi) = 黨員 Then = 2 ElseIf (SZhengzhi) = 預(yù)備黨員 Then = 3 End If Select Case (SMinzu) Case 漢族: = 0 Case 瑤族: = 1 Case 土家族: = 2 Case 侗族: = 3 Case 白族: = 4 Case 。A） EditStu(0).Text = classid EditStu(0).SelStart = 6Else = 修改學(xué)號(hào)為 amp。 39。為此，設(shè)計(jì)詳細(xì)信息框，來(lái)羅列用戶的各種詳細(xì)信息。刪除學(xué)生資料 Call End SubPublic Sub DelStu()If Then If MsgBox(確定要?jiǎng)h除學(xué)號(hào)為 amp。Private Sub pop3_Click() 39。 amp。 對(duì)象屬性設(shè)置FormNameFrmstuCaption學(xué)生檔案管理BorderStyle2SizableMDIChildTrueWindowState2MaximizedTreeviewStyletvwTreelinesPlusMinusPictureTextListviewFullRowSelectTrueGridLinesTrueMultiSelectFalseToolTipText雙擊顯示詳細(xì)資料ImageNameimgSplitPictureboxNameSliptBar FrmStu中部分控件的屬性當(dāng)窗體啟動(dòng)時(shí)，需要在Treeview中加載班級(jí)列表，并初始化Listview中的標(biāo)題。 pwd amp。這時(shí)，先檢查兩次輸入的密碼是否一致，如果不一致，則提示用戶，將焦點(diǎn)設(shè)置到第二個(gè)Text2控件，后面兩個(gè)文本框清空，代碼如下：Private Sub Command1_Click() Dim Oldpwd As String, pwd As String, confirmpwd As StringOldpwd = Trim()pwd = Trim()confirmpwd = Trim()……If Trim(pwd) Trim(confirmpwd) Then MsgBox 兩次輸入的密碼不相同！, vbInformation = = Exit SubEnd IfEnd Sub如果密碼一致，則判斷輸入的原密碼是否正確，如果正確則將新密碼寫入數(shù)據(jù)庫(kù)，這時(shí)需要一個(gè)字符串變量表達(dá)SQL語(yǔ)句，一個(gè)Recordset對(duì)象變量打開系統(tǒng)信息數(shù)據(jù)表。 amp。根據(jù)以上的設(shè)計(jì)，DeleteRecord()的代碼如下：Private Sub DeleteRecord()39。,39。 amp。 的用戶帳號(hào), vbInformation Exit Sub End If Loop: Set rs = NothingEnd Sub如果沒(méi)有重復(fù)，再檢查兩次輸入的密碼是否一致，如果不一致，則提示“兩次密碼不一致”。,請(qǐng)刪除。Private Sub filemenu45_Click() 39。在這兩個(gè)事件中，均可將Cancel設(shè)置為任何非零的值來(lái)防止窗體被刪除。 LoginUser amp。多文檔界面是一種Windows用戶界面標(biāo)準(zhǔn)。 Userid amp。Data Source=amp。 + \③設(shè)定SQL語(yǔ)句，使用“Execute”命令，即可開始執(zhí)行訪問(wèn)數(shù)據(jù)庫(kù)的動(dòng)作Dim rs As New 其中rs為結(jié)果集對(duì)象（RECORDSET）④關(guān)閉結(jié)果集對(duì)象，斷開與數(shù)據(jù)庫(kù)的連接2．1數(shù)據(jù)庫(kù)的設(shè)計(jì)在系統(tǒng)設(shè)計(jì)過(guò)程中，首先要建立的就是數(shù)據(jù)庫(kù)。⑴ 篩選及排序記錄的Select指令基本句型一：Select 字段串列 From 數(shù)據(jù)表基本句型二：Select … From … Where 篩選條件基本句型三：Select … From … Order By字段串列Select Top：限定選取數(shù)據(jù)的條數(shù)⑵ 刪除數(shù)據(jù)記錄的Delete指令基本語(yǔ)法：Delete From 數(shù)據(jù)表 Where 條件式⑶ 更新數(shù)據(jù)記錄的Update指令基本語(yǔ)法：Update 數(shù)據(jù)表Set 表達(dá)式⑷ 增加數(shù)據(jù)記錄的Insert Into 指令基本句型一：Insert Into 數(shù)據(jù)表 (字段串列) Values (字段串列)基本句型二：Insert Into 數(shù)據(jù)表 (字段1,字段2,…,字段n) Select …⑸ 建立新數(shù)據(jù)表的Select Into 指令該指令與“Insert Into … Select …”指令的區(qū)別是，這個(gè)指令將建立另一個(gè)新的數(shù)據(jù)表，而Insert Into是增加數(shù)據(jù)記錄到“現(xiàn)存的”數(shù)據(jù)表中。用于與立即更新模式相反的批更新模式。Command對(duì)象：定義對(duì)數(shù)據(jù)庫(kù)源操作的命令。利用ADO開發(fā)網(wǎng)絡(luò)數(shù)據(jù)庫(kù)應(yīng)用程序有以下幾個(gè)優(yōu)點(diǎn)：⑴ 支持客戶機(jī)/服務(wù)器結(jié)構(gòu)（Client/Server）與Web系統(tǒng)開發(fā)技術(shù)。此外，與Windows 2000的集成還使SQL Server能夠充分利用操作系統(tǒng)所提供的服務(wù)和功能（如安全管理、事件日志、性能監(jiān)視器、內(nèi)存管理和異步I/O等），從而增強(qiáng)了SQL Server數(shù)據(jù)庫(kù)系統(tǒng)的功能，并且只需要占用很少的系統(tǒng)資源。4．豐富的編程接口工具，使用戶