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