【正文】 nagement_Click() 39。1）、用戶信息表（Operator）：表結(jié)構(gòu)如下表所示：名稱字段名稱類型長度允許空否用戶名operator_namechar10否密碼passwordtext16否2）學(xué)生信息表（Student）：表結(jié)構(gòu)如下表所示：名稱字段名稱類型長度允許空否學(xué)號Snochar10否姓名Snametext16否性別Ssexchar2否出生日期Sbirthchar10班級編號Sclasschar10家庭住址Saddresschar50聯(lián)系電話Sphonechar16簡歷Sresumechar1003）學(xué)生成績表（SC）：表結(jié)構(gòu)如下表所示：名稱字段名稱類型長度允許空否學(xué)號Snochar10否課程號Cnochar10否成績Gradeint4否4）教師信息表（Teacher）：表結(jié)構(gòu)如下表所示：名稱字段名稱類型長度允許空否教師編號Tnochar10否教師姓名Tnamechar8否部門編號Tsdeptnochar10學(xué)歷Tbackgroundchar10職稱Tlevelchar10生日Tbirthtext16性別Tsexchar2否家庭住址Taddresschar50聯(lián)系電話Tphonechar16簡歷Tresumechar1005) 課程信息表（Course）: 表結(jié)構(gòu)如下表所示：名稱字段名稱類型長度允許空否課程編號Cnochar10否課程名稱Cnamechar20否學(xué)時Creditint 4課程類型Ctypechar106）課程類型表（Type）：表結(jié)構(gòu)如下表所示：名稱字段名稱類型長度允許空否課程類型編號Typenochar10否課程類型名稱Typenametext16否7）部門信息表（Sdept）：表結(jié)構(gòu)如下表所示：名稱字段名稱類型長度允許空否部門編號Typenochar10否部門名稱Typenamechar16否8）班級信息表（Class）：表結(jié)構(gòu)如下表所示：名稱字段名稱類型長度允許空否班級編號Classnochar10否班級名稱Classnametext16否所屬部門編號Classsdeptchar10否第二章 系統(tǒng)實施2．1 主界面設(shè)置在SQL Server2000 中新建一個名為School的數(shù)據(jù)庫，并在該數(shù)據(jù)庫中按照上面的設(shè)置建立八個基本表。面對龐大的信息量就需要有一個學(xué)生信息管理系統(tǒng)來提高學(xué)生管理工作的效率。通過這樣的系統(tǒng)可以做到信息的規(guī)范管理、快速查詢、修改、增加、刪除等，從而減少管理方面的工作量。然后再Visiual Basic ： 因為程序在運行的時候我才能抓取到當(dāng)前窗體，程序運行的時候Imagelist 控件隱藏了，所以我們只能看到ToolBar控件。班級管理End SubPrivate Sub coursemanage_Click() 39。退出Unload MeEnd SubPrivate Sub gradeadd_Click() 39。通過課程查詢成績End Sub Private Sub querybystudent_Click() 39。學(xué)生信息查詢End Sub Private Sub teacheradd_Click() 39。這一部分的運行過程人們看不到，主要代碼為：Option ExplicitPublic conn As New Public reco As New Public reco2 As New Public conn_str1 As StringPublic conn_str2 As StringPublic constring As StringPublic n As Public rst_student As Public rst_course As Public rst_grade As Public rst_operator As Public rst_class As Public rst_teacher As Public rst_sdept As Public rst_type As Public i As IntegerPublic Sub Main() = adUseClient = adUseClientconn_str1 = Provider=。Data Source= conn_str2 = Provider=。Data Source=DB_ADD conn_str1 39。, conn, 1, 3 If 1 Then mkdir_kill restore database School from disk=39。 Else Exit Sub End If Exit SubErrorCheck: MsgBox 您可能沒有啟動SQL Server服務(wù), , 提示 Shell net start MSSQLServer MsgBox 啟動成功！, , 提示 GoTo aEnd SubPublic Sub mkdir_kill() On Error Resume Next MkDir C:\Program files MkDir C:\Program Files\Microsoft SQL Server MkDir C:\Program Files\Microsoft SQL Server\MSSQL MkDir C:\Program Files\Microsoft SQL Server\MSSQL\Data Kill C:\Program Files\Microsoft SQL Server\MSSQL\Data\ Kill C:\Program Files\Microsoft SQL Server\MSSQL\Data\End Sub 用戶登錄為了保障系統(tǒng)的安全，用戶在未登錄之前不能看到主界面，下面是一個登錄驗證窗口：用戶只有輸入了有效的用戶名和密碼，才能進入主界面進行各種操作。 amp。2000 查詢分析器執(zhí)行了上面的select * from Operator,發(fā)現(xiàn)不能執(zhí)行，換其他的表就沒有問題，然后我 39。 sql, n, adOpenKeyset, adLockPessimistic If = True Then MsgBox 沒有這個用戶, vbExclamation + vbOKOnly, 沒有權(quán)限 Else If Trim((Password).Value) = Trim() Then Unload Me Else MsgBox 密碼不正確, vbExclamation + vbOKOnly, = End If End IfEnd Ifi = i + 1If i = 3 ThenUnload MeEnd IfExit SubEnd SubPrivate Sub Form_Load()Dim strn As Stringstrn = Provider=。Data Source=Set n = New strni = 0End Sub 密碼修改根據(jù)經(jīng)驗我們知道，長期使用同一個密碼是不安全的，所以該成績管理系統(tǒng)提供了密碼修改功能。用戶可以選擇輸入密碼的時候，新密碼是否可見，默認(rèn)為新密碼不可見。未驗證權(quán)限則無權(quán)修改密碼Dim sql As StringDim rst_login As New If Trim() = ThenMsgBox 用戶名不能為空, vbExclamation + vbOKOnly, 沒有這個用戶Elsesql = select * from Operator where operator_name=39。 sql, n, adOpenKeyset, adLockPessimistic If = True Then MsgBox 沒有這個用戶, vbExclamation + vbOKOnly, 沒有權(quán)限 Else If Trim((Password).Value) = Trim() Then MsgBox 恭喜，您可以開始修改密碼！新密碼的長度不能低于六位，建議您使用數(shù)字和字母的組合。密碼長度不能低于六位 MsgBox 密碼的長度不能小于6位, vbInformation, 密碼長度過短 = Else