【文章內(nèi)容簡介】 xt1(0).Text) amp。 39。Set mrc = ExecuteSQL(txtsql)If = False Then MsgBox 已存在該用戶！, vbExclamation + vbOKOnly, 警告 Text1(0).SetFocus Text1(0).SelStart = 0 Text1(0).SelLength = Len(Text1(0).Text)Exit SubEnd If MsgBox 用戶添加成功！, vbExclamation + vbOKOnly, 警告 Text1(0).Text = Text1(1).Text = Text1(2).Text = End Sub? 修改密碼圖 修改密碼功能實(shí)現(xiàn)：使用密碼模塊首先應(yīng)輸入舊密碼，再輸入新的密碼，確認(rèn)一遍，即可修改原來的密碼。如果密碼輸入錯誤，提示：“密碼錯誤” 。關(guān)鍵代碼：Private Function check()If = ThenMsgBox 請輸入原密碼 check = FalseExit FunctionEnd IfIf = ThenMsgBox 請輸入新密碼 check = FalseExit FunctionEnd IfIf = ThenMsgBox 請確認(rèn)新密碼 check = FalseExit FunctionEnd If? 重新登陸功能實(shí)現(xiàn)：點(diǎn)擊重新登錄模塊，即把所有變量清除，退出系統(tǒng)。 班級管理班級管理是對學(xué)校各個年級中的班級進(jìn)行分類管理。分為：瀏覽班級了模塊、添加班級子模塊、班級查詢子模塊。? 瀏覽班級圖 瀏覽班級功能實(shí)現(xiàn)：點(diǎn)擊“瀏覽班級”對話框左側(cè)的瀏覽數(shù)據(jù)，可樹形顯示學(xué)校中各年級目錄；雙擊年級目錄，則可顯示各年級中所包含的班級目錄。隨之點(diǎn)擊想要查找的班級，雙擊該班級名稱，可以實(shí)現(xiàn)修改、刪除及打印功能：(1)修改班級功能：點(diǎn)擊“修改” ，出現(xiàn)“班級設(shè)置”對話框，修改想要修改的數(shù)據(jù)項(xiàng)，確定即可。(2)刪除班級功能：點(diǎn)擊想要刪除的班級，刪除即可。刪除之前會出現(xiàn)一個警告對話框，提示：“確定要刪除該記錄嗎？繼續(xù)會導(dǎo)致該班級在成績和學(xué)費(fèi)記錄的數(shù)據(jù)丟失，繼續(xù)嗎？”(3)班級功能：可打印當(dāng)前班級的全部記錄。關(guān)鍵代碼：If MsgBox(確定要刪除班級為 amp。 Trim((, 2)) amp。 的記錄嗎？ amp。 Chr(13) amp。 Chr(10) amp。 繼續(xù)會導(dǎo)致該班級在成績和學(xué)費(fèi)記錄的數(shù)據(jù)丟失，繼續(xù)嗎？, vbOKCancel + vbExclamation, 警告) = vbOK Then txtsql = delete * from xj where 班級=39。 amp。 Trim((, 2)) amp。 39。 Set mrc = ExecuteSQL(txtsql) txtsql = select * from jf where 學(xué)號 in (select from xj where 班級=39。 amp。 Trim((, 2)) amp。 39。) Set mrc = ExecuteSQL(txtsql) 39。刪除在交費(fèi)表中的所有該班級的記錄 txtsql = select * from cj where 學(xué)號 in (select from xj where 班級=39。 amp。 Trim((, 2)) amp。 39。) Set mrc = ExecuteSQL(txtsql) 39。刪除在成績表中的所有該班級的記錄 txtsql = delete * from class where 班級=39。 amp。 Trim((, 2)) amp。 39。 Set mrc = ExecuteSQL(txtsql) 39。刪除該班級的記錄 End If 39。txtsql = select* from class classshowtitle classshowdata End Select? 添加班級設(shè)置圖 添加班級設(shè)置功能實(shí)現(xiàn)：點(diǎn)擊“瀏覽班級”對話框左上角的“修改” ，彈出一個“班級設(shè)置”對話框，其內(nèi)容是修改班級的數(shù)據(jù)項(xiàng)。本系統(tǒng)的修改數(shù)據(jù)項(xiàng)有：年級、班級、教學(xué)樓、年制、專業(yè)、輔導(dǎo)員、備注。修改想要修改的數(shù)據(jù)項(xiàng)，確定即可。關(guān)鍵代碼：Dim mrc As If classmodi = False Then classstr = select * from class where 班級=39。 amp。 Trim(Text1(1).Text) amp。 39。 Set mrc = ExecuteSQL(classstr) If = False Then sss = MsgBox(已經(jīng)存在該班級的設(shè)置 ,不能重復(fù)！, vbonly, 警告) Text1(1).SetFocus Text1(1).SelStart = 0 Text1(1).SelLength = Len(Text1(1).Text) Exit Sub End If? 班級查詢圖 班級查詢功能實(shí)現(xiàn)：點(diǎn)擊“瀏覽班級”對話框左上角的查找，會彈出一個班級設(shè)置查詢對話框，可以按照年級、班級、專業(yè)進(jìn)行查找。三個查找范圍可以全部填寫，也可以只填寫其中的一個。關(guān)鍵代碼：Private Sub Command1_Click()txtsql = If Text1(0).Text Then If txtsql = Then txtsql = 年級=39。 amp。 Trim(Text1(0).Text) amp。 39。 Else txtsql = txtsql amp。 and 年級=39。 amp。 Trim(Text1(0).Text) amp。 39。 End Iftxtsql = select * from class where amp。 txtsqlDim mrc As Set mrc = ExecuteSQL(txtsql)If = True Thenzzz = MsgBox(對不起，沒有此班級的檔案記錄！, vbOKOnly, 查詢) (0) (0).SetFocus Exit Sub = txtsqlclassfind = True = 班級設(shè)置查詢結(jié)果 (0)Unload Me 學(xué)生檔案管理 學(xué)生檔案管理是對全體在校學(xué)生的檔案進(jìn)行管理。分為：檔案添加子模塊、檔案瀏覽子模塊、檔案查詢子模塊。? 檔案添加圖 入學(xué)登記功能實(shí)現(xiàn)：“入學(xué)登記”是修改學(xué)生檔案的數(shù)據(jù)項(xiàng)。本系統(tǒng)的修改數(shù)據(jù)項(xiàng)有：學(xué)號、姓名、性別、班級、出生年月、家庭住址、郵政編碼、聯(lián)系電話、入學(xué)時間、備注。修改想要修改的數(shù)據(jù)項(xiàng)，確定即可。注意：出生年月和入學(xué)時間數(shù)據(jù)項(xiàng)的輸入格式為：mmddyy。其中數(shù)據(jù)項(xiàng)內(nèi)容不能漏填。? 瀏覽學(xué)生檔案圖 瀏覽學(xué)生檔案功能實(shí)現(xiàn)：點(diǎn)擊“瀏覽學(xué)生檔案”下拉菜單，在出現(xiàn)的對話框左側(cè)的“瀏覽數(shù)據(jù)”中，可樹形顯示各年級及其包含的班級詳細(xì)目錄，點(diǎn)擊想要查找的學(xué)生所在班級，雙擊該班級名稱，即可出現(xiàn)該班級所有學(xué)生的記錄?？梢詫?shí)現(xiàn)修改、刪除及打印功能：(1)修改功能：點(diǎn)擊對話框左上角的“修改” ，彈出“入學(xué)登記”對話框，其內(nèi)容是修改學(xué)生檔案的數(shù)據(jù)項(xiàng)。(2)刪除功能：點(diǎn)擊想要刪除的學(xué)生所在班級，隨之找到該生，刪除即可。刪除之前會出現(xiàn)一個警告對話框，提示：“確定要刪除該記錄嗎？繼續(xù)會導(dǎo)致該班級在成績和學(xué)費(fèi)記錄的數(shù)據(jù)丟失，繼續(xù)嗎？”(3)打印功能：可打印當(dāng)前班級的全部記錄。關(guān)鍵代碼：Public Sub showdata()Dim j As IntegeDim i As IntegerDim mrc As Set mrc = New Set mrc = ExecuteSQL(txtsql) If = False Then With MSF1 .Rows = 50 .Row = 1 Do While Not .Rows = .Rows + 1 For i = 1 To .TextMatrix(.Row, i) = (i 1) Next i .Row = .Row + 1 Loop End With Else If find = True Then zzz = MsgBox(對不起，沒有此學(xué)生的檔案記錄！, vbOKOnly, 查詢) (0) (0).SetFocus End If End If Set mrc = Nothing? 學(xué)生檔案查詢：圖 學(xué)生檔案查詢功能實(shí)現(xiàn)：點(diǎn)擊對話框左上角的“查找” ，會彈出一個“學(xué)生檔案查詢”對話框?？梢园凑諏W(xué)號、姓名、班級和按姓名關(guān)鍵字查詢進(jìn)行查找。四個查找范圍可以全部填寫，也可以只填寫其中的一個。本查詢的“按姓名關(guān)鍵字查詢”可以實(shí)現(xiàn)模糊查詢，即只輸入學(xué)生的姓或名就能找到與之條件相符合的記錄。關(guān)鍵代碼：Dim str As Stringstr = select * from xj where amp。 txtsqlDim mrc As Set mrc = ExecuteSQL(str)If = True Then zzz = MsgBox(對不起，沒有此學(xué)生的檔案記錄！, vbOKOnly, 查詢) (0) (0).SetFocus Exit SubEnd Iftxtsql = select ,xj. 班級,class. 專業(yè),制,,xj. 入學(xué)時間,xj. 備注 from xj inner join class on =class. 班級 where amp。 txtsql amp。 order by desc, desc, desc = txtsqlfind = True39。select , ,,xj.出生年月,,xj. 備注 from xj inner join class on = where =39。01 美術(shù)一39。 or 年級=39。01 美術(shù)一39。 order by desc, desc, desc = 學(xué)生檔案查詢結(jié)果Unload MeEnd Sub 學(xué)生交費(fèi)管理學(xué)生交費(fèi)管理是全校各年級學(xué)生的各種交費(fèi)情況。分為：學(xué)費(fèi)基本設(shè)置（學(xué)費(fèi)設(shè)置瀏覽、學(xué)費(fèi)設(shè)置添加、學(xué)費(fèi)設(shè)置查詢）子模塊、學(xué)生交費(fèi)查詢子模塊、學(xué)生交費(fèi)添加子模塊、學(xué)生交費(fèi)瀏覽子模塊。? 基本學(xué)費(fèi)設(shè)置（學(xué)費(fèi)設(shè)置瀏覽）圖 學(xué)費(fèi)設(shè)置瀏覽功能實(shí)現(xiàn)：點(diǎn)擊“學(xué)費(fèi)設(shè)置瀏覽”下拉菜單，可以顯示全體學(xué)生的交費(fèi)記錄，也可以選擇性的查看學(xué)生交費(fèi)記錄。根據(jù)菜單中的年級、專業(yè)、年制、學(xué)期選項(xiàng)選擇即可。管理員可對學(xué)生的交費(fèi)記錄進(jìn)行修改、查找、打印、刪除。具體實(shí)現(xiàn)方法與學(xué)生檔案管理的功能相同。關(guān)鍵代碼：Private Sub Toolbar1_ButtonClick(ByVal Button As )Select Case Case find Case modi qxstr = Executeqx(3) If qxstr = readonly Thenss = MsgBox(對不起，你是只讀用戶不能添加記錄，請與管理員聯(lián)系！, vbInformation + vbOKOnly, 警告) Exit Sub End If xuefeimodi = True If Trim((, 1)) = Then MsgBox 已無記錄!, vbOKOnly + vbExclamation, 警告 Exit Sub End If 39。 xuefeimodi = True 0 Case del qxstr = Executeqx(3) If qxstr = readonly Then ss = MsgBox(對不起，你是只讀用戶不能添加記錄，請與管理員聯(lián)系！, vbInformation + vbOKOnly, 警告) Exit Sub End If If Trim((, 1)) = Then sssss = MsgBox(已無記錄!, vbOKOnly + vbExclamation, 警告)? 基本學(xué)費(fèi)設(shè)置（學(xué)費(fèi)設(shè)置添加）圖