【正文】 = False = False = FalseSet = rs_findstudent sqlEnd SubPrivate Sub cmd_sqlquery_Click() 39。菜單退出Unload MeEnd SubPrivate Sub Form_Load() = 2Set rst_student = New = False 39。運(yùn)行界面如下： 實(shí)現(xiàn)代碼為：Option ExplicitPrivate Sub Form_Load()Dim strline As String = Open amp。下面是我遇到的幾個(gè)問題：① DataEnvironment 中 Connection 屬性如下圖需要選擇一個(gè)數(shù)據(jù)庫，最開始我在一臺(tái)名為ZHANGJIANTAO裝有Windows XP的計(jì)算機(jī)上測試程序，并沒有什么問題。或者在工具欄上添加一個(gè)垂直滾動(dòng)條，方便用戶查找控件。另外，最后的軟件打包使用 Setup Factory ，對(duì)軟件的打包過程和設(shè)置安裝序列號(hào)、軟件使用的有效期有了直觀的認(rèn)識(shí)。在程序安裝后，第一次啟動(dòng)程序時(shí)，會(huì)檢驗(yàn)計(jì)算機(jī)上是否已經(jīng)啟動(dòng)MSSQLSERVER服務(wù)，如果沒有啟動(dòng)，程序?qū)⑼ㄟ^shell “net strat mssqlserver”來啟動(dòng)服務(wù)，然后檢查當(dāng)前服務(wù)器上是否存在School數(shù)據(jù)庫，如果沒有則將備份好的School 數(shù)據(jù)庫恢復(fù)到當(dāng)前服務(wù)器上，這一部門的功能在啟動(dòng)對(duì)象Sub Main實(shí)現(xiàn)。②在工具箱中找不到ToolBars 和 ImageList 控件，我上網(wǎng)查找資料得知需要在”工程—部件”選項(xiàng)中勾選“Microsoft Common Control ”一項(xiàng)，我參照老師給的例子，在部件中選擇和例子中一樣的選項(xiàng)，卻還是找不到這兩個(gè)控件。這些東西時(shí)在網(wǎng)上查找學(xué)到的，非常感謝在網(wǎng)上熱心認(rèn)真回答他人問題的網(wǎng)友。并沒有什么代碼。確定錄入數(shù)據(jù)按鈕的功能 = False = False = False = TrueEnd SubPrivate Sub cmdclear_Click() = False = False = False = False = False = False = = = = = = End SubPrivate Sub cmdexit_Click() 39。 sql4 amp。%39。%39。%39。%39。不能用”=“比較文本數(shù)據(jù)，除非是NOT NULL，所以對(duì)于姓名應(yīng)該用Like 39。 amp。市縣鎮(zhèn)村的人，或者同姓張或他姓的人Dim sql1 As StringDim sql2 As StringDim sql3 As StringDim sql4 As StringDim sql5 As StringDim sql6 As StringIf = vbChecked Then sql1 = Sno=39。模糊查詢和多條件查詢，考慮到SQL語言的特 39。 Exit Sub39。此處原位cmd_exit,用于退出系統(tǒng)，使用中發(fā)現(xiàn)此“退出”鍵，位置不明顯，且功能簡單， _比較多余，所以改為“刷新按鈕”，在通過frm_studentadd 窗口添加學(xué)生記錄后，刷新系統(tǒng)， _可以讓cmd_add的功能恢復(fù)正常，同時(shí)舒心DataGrid1的內(nèi)容更新，方便查看剛輸入的內(nèi)容Dim sql As Stringsql = select* from Student order by Sno = adUseClient sql, n, adOpenDynamic, adLockPessimistic, adCmdTextSet = rst_student = vbDefault sql = False = False = False = True 39。修改一條記錄On Error GoTo erradjust = Trueerradjust:If 0 ThenMsgBox End IfEnd SubPrivate Sub cmd_cancel_Click() 39。下面是這一部分的界面，由于紙張?zhí)。吹降慕缑婵赡懿惶宄?，軟件運(yùn)行時(shí)您可以看到更加直觀清晰的界面。 % amp。剛載入窗體時(shí)，添加幾條默認(rèn)的記錄，因?yàn)閿?shù)量較少 39。要添加的單位已經(jīng)在列表框中，不允許再次重復(fù)添加End IfNext iIf permission = True Then sdept MsgBox 添加成功！, vbInformation, End IfEnd SubPrivate Sub cmd_clear_Click() 39。此處添加班級(jí)信息采用了InputBox 函數(shù)，方便靈活，增強(qiáng)了程序的趣味性。下面是用戶注冊界面：第三章 信息維護(hù)無論是學(xué)生信息教師信息，還是班級(jí)信息課程信息，他們的添加、修改、查詢、刪除，功能和實(shí)現(xiàn)方式都是相似的。 39。設(shè)置新的用戶密碼 Dim rst_login As New sql = update Operator set password=39。 39。可以是數(shù)字、字母和特殊字符的組合，且不能和原來的密碼一樣。所以，對(duì)數(shù)據(jù)庫中的每一個(gè)表都設(shè)置主鍵是很有必要的。 amp。School39。Initial Catalog=School。學(xué)生信息修改End SubPrivate Sub studentquery_Click() 39。課程類型End SubPrivate Sub exit_Click() 39。1）、用戶信息表（Operator）：表結(jié)構(gòu)如下表所示：名稱字段名稱類型長度允許空否用戶名operator_namechar10否密碼passwordtext16否2）學(xué)生信息表（Student）：表結(jié)構(gòu)如下表所示：名稱字段名稱類型長度允許空否學(xué)號(hào)Snochar10否姓名Snametext16否性別Ssexchar2否出生日期Sbirthchar10班級(jí)編號(hào)Sclasschar10家庭住址Saddresschar50聯(lián)系電話Sphonechar16簡歷Sresumechar1003）學(xué)生成績表（SC）：表結(jié)構(gòu)如下表所示：名稱字段名稱類型長度允許空否學(xué)號(hào)Snochar10否課程號(hào)Cnochar10否成績Gradeint4否4）教師信息表（Teacher）：表結(jié)構(gòu)如下表所示：名稱字段名稱類型長度允許空否教師編號(hào)Tnochar10否教師姓名Tnamechar8否部門編號(hào)Tsdeptnochar10學(xué)歷Tbackgroundchar10職稱Tlevelchar10生日Tbirthtext16性別Tsexchar2否家庭住址Taddresschar50聯(lián)系電話Tphonechar16簡歷Tresumechar1005) 課程信息表（Course）: 表結(jié)構(gòu)如下表所示：名稱字段名稱類型長度允許空否課程編號(hào)Cnochar10否課程名稱Cnamechar20否學(xué)時(shí)Creditint 4課程類型Ctypechar106）課程類型表（Type）：表結(jié)構(gòu)如下表所示：名稱字段名稱類型長度允許空否課程類型編號(hào)Typenochar10否課程類型名稱Typenametext16否7）部門信息表（Sdept）：表結(jié)構(gòu)如下表所示：名稱字段名稱類型長度允許空否部門編號(hào)Typenochar10否部門名稱Typenamechar16否8）班級(jí)信息表（Class）：表結(jié)構(gòu)如下表所示：名稱字段名稱類型長度允許空否班級(jí)編號(hào)Classnochar10否班級(jí)名稱Classnametext16否所屬部門編號(hào)Classsdeptchar10否第二章 系統(tǒng)實(shí)施2．1 主界面設(shè)置在SQL Server2000 中新建一個(gè)名為School的數(shù)據(jù)庫，并在該數(shù)據(jù)庫中按照上面的設(shè)置建立八個(gè)基本表。通過這樣的系統(tǒng)可以做到信息的規(guī)范管理、快速查詢、修改、增加、刪除等，從而減少管理方面的工作量。班級(jí)管理End SubPrivate Sub coursemanage_Click() 39。通過課程查詢成績End Sub Private Sub querybystudent_Click() 39。這一部分的運(yùn)行過程人們看不到，主要代碼為：Option ExplicitPublic conn As New Public reco As New Public reco2 As New Public conn_str1 As StringPublic con