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