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