【正文】 xtsql = select username from use where username=39。 Trim() amp。 Set mrc = ExecuteSQL(txtsql) If = True Then MsgBox 用戶名錯誤！ , vbExclamation + vbOKOnly, 警告 = 0 = Len() Exit Sub End If username = (0) txtsql2 = select username from use where password=39。 Trim() amp。 Set mrc = ExecuteSQL(txtsql2) If = True Then 中國最大的管 理 資料下載中心 (收集 \整理 . 大量免費資 源共享 ) 第 22 頁 共 49 頁 MsgBox 密碼錯誤！ , vbExclamation + vbOKOnly, 警告 = 0 = Len() Exit Sub End If txtsql = select username from use where username=39。 Trim() amp。and password=39。 Trim() amp。 Set mrc = ExecuteSQL(txtsql) If = True Then MsgBox 用戶名稱和密碼不匹配！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If = Unload Me End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then 中國最大的管 理 資料下載中心 (收集 \整理 . 大量免費資 源共享 ) 第 23 頁 共 49 頁 End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End If End Sub 4． 2系統(tǒng)主界面： 本模塊是本系統(tǒng)的應(yīng)用界面，在本界面上集成了本系統(tǒng)的所有功能，共有 6 個功能菜單和19 個子菜單（功能模塊），從而實現(xiàn)了本系統(tǒng)從 班級管理、檔案管理、繳費管理、課程管理、成績管理等系統(tǒng)的具體功能，同時，在系統(tǒng)管理模塊中可以完成對本系統(tǒng)的安全性管理。username = 0001 = connstring (2).Text = Now (3).Text = 當前操作員： amp。 aa End Sub Private Sub useradd_Click() qxstr = Executeqx(1) If qxstr = false Or qxstr = readonly Then ss = MsgBox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！ , vbInformation + vbOKOnly, 警告 ) Exit Sub End If 0 End Sub Private Sub usermodi_Click() qxstr = Executeqx(1) If qxstr = false Then ss = MsgBox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！ , vbInformation + vbOKOnly, 警告 ) Exit Sub End If End Sub 中國最大的管 理 資料下載中心 (收集 \整理 . 大量免費資 源共享 ) 第 32 頁 共 49 頁 Private Sub xuefeiadd_Click() qxstr = Executeqx(3) If qxstr = false Or qxstr = readonly Then ss = MsgBox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！ , vbInformation + vbOKOnly, 警告 ) Exit Sub End If xuefeimodi = False Dim i As Integer For i = 0 To 3 (i).Enabled = True Next i = 添加班級設(shè)置 For i = 0 To 3 (i).Text = Next i = 0 End Sub Public Sub xfbrowse() txtsql = select * from xuefei order by 學(xué)期 desc, 年級 desc,專業(yè) desc (0) = 瀏覽學(xué)費設(shè)置 End Sub 中國最大的管 理 資料下載中心 (收集 \整理 . 大量免費資 源共享 ) 第 33 頁 共 49 頁 Private Sub xuefeibrowse_Click() qxstr = Executeqx(3) If qxstr = false Then ss = MsgBox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！ , vbInformation + vbOKOnly, 警告 ) Exit Sub End If End Sub Private Sub xuefeifind_Click() qxstr = Executeqx(3) If qxstr = false Then ss = MsgBox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！ , vbInformation + vbOKOnly, 警告 ) Exit Sub End If (0) i = SetWindowPos(, 1, 0, 0, 0, 0, 3) End Sub 4． 3用戶管 理模塊： 本模塊是本系統(tǒng)的安全性設(shè)置模塊，根據(jù)學(xué)校不同部門以及不同使用人員對本系統(tǒng)的要求和需要，從而實行了分級管理，對用戶的權(quán)限和類別進行了分類管理。 amp。 39。其它的相似模塊的代碼可能參閱本模塊的設(shè)計思路。學(xué)生管理一覽表 .xls39。EXCEL 。 FROM class) z = MsgBox(成功！ , vbOKOnly, 查詢 ) End Sub 中國最大的管 理 資料下載中心 (收集 \整理 . 大量免費資 源共享 ) 第 39 頁 共 49 頁 Public Sub classshowtitle() Dim i As Integer With MSF1 .Cols = 8 .TextMatrix(0, 1) = 年級 .TextMatrix(0, 2) = 班級 .TextMatrix(0, 3) = 教室 .TextMatrix(0, 4) = 年制 .TextMatrix(0, 5) = 專業(yè) .TextMatrix(0, 6) = 班主任 .TextMatrix(0, 7) = 備注 .ColWidth(0) = 100 .ColWidth(1) = 1300 .ColWidth(2) = 1200 .ColWidth(3) = 800 .ColWidth(4) = 800 .ColWidth(5) = 800 .ColWidth(6) = 800 .ColWidth(7) = 5000 .FixedRows = 1 For i = 1 To 7 .ColAlignment(i) = 0 Next i .FillStyle = flexFillSingle .Col = 0 .Row = 0 .RowSel = 1 中國最大的管 理 資料下載中心 (收集 \整理 . 大量免費資 源共享 ) 第 40 頁 共 49 頁 .ColSel = .Cols 1 .CellAlignment = 4 .Row = 1 End With End Sub Public Sub classshowdata() Dim j As Integer Dim i As Integer Dim mrc1 As Set mrc1 = ExecuteSQL(Trim(txtsql)) If = False Then With MSF1 .Rows = 1 Do While Not .Rows = .Rows + 1 For i = 1 To .TextMatrix(.Rows 1, i) = (i 1) Next i Loop End With Else 中國最大的管 理 資料下載中心 (收集 \整理 . 大量免費資 源共享 ) 第 41 頁 共 49 頁 If classfind = True Then zzz = MsgBox(對不起，沒有此班級的檔案記錄！ , vbOKOnly, 查詢 ) (0) (0).SetFocus End If End If End Sub Private Sub cmddel_Click() qxstr = Executeqx(2) If qxstr = readonly Then ss = MsgBox(對不起，你是只讀用戶不能刪除記錄，請與管理員聯(lián)系！ , vbInformation + vbOKOnly, 警告 ) Exit Sub End If Dim mrc As Dim msgtext As String Dim intcount As Integer If Trim((, 1)) = Then sssss = MsgBox(你還沒有選擇記錄！ , vbOKOnly + vbExclamation, 警告 ) Exit Sub End If