【導(dǎo)讀】術(shù)上已逐步成熟。管理信息系統(tǒng)是一個(gè)不斷發(fā)展的新型學(xué)科，任何一個(gè)單位要生。應(yīng)的管理信息系統(tǒng)。上地應(yīng)用開(kāi)發(fā)”的策略開(kāi)發(fā)一個(gè)管理信息系統(tǒng)的過(guò)程。通過(guò)分析某一學(xué)校學(xué)生管。理的不足，創(chuàng)建了一套行之有效的計(jì)算機(jī)管理學(xué)生的方案。模塊的算法，本系統(tǒng)界面友好，操作簡(jiǎn)單，比較實(shí)用。

　　

【正文】 中國(guó)最大的管 理 資料下載中心 (收集 \整理 . 大量免費(fèi)資 源共享 ) 第 34 頁(yè) 共 49 頁(yè) Private Sub Command1_Click() If Trim(Text1(0).Text) = Then MsgBox 用戶名不能為空！ , vbExclamation + vbOKOnly, 警告 Text1(0).SetFocus Exit Sub End If If Trim(Text1(1).Text) = Then MsgBox 密碼不能為空！ , vbExclamation + vbOKOnly, 警告 Text1(1).SetFocus Exit Sub End If If Trim(Text1(2).Text) = Then MsgBox 確認(rèn)密碼不能為空！ , vbExclamation + vbOKOnly, 警告 Text1(2).SetFocus Exit Sub End If If Trim(Text1(1).Text) Trim(Text1(2).Text) Then MsgBox 確認(rèn)密碼不正確！ , vbExclamation + vbOKOnly, 警告 Text1(2).SetFocus 中國(guó)最大的管 理 資料下載中心 (收集 \整理 . 大量免費(fèi)資 源共享 ) 第 35 頁(yè) 共 49 頁(yè) Exit Sub End If Dim aa As Integer aa = 0 If Option1(2).Value = True Then For i = 0 To 3 If Check1(i).Value = 1 Then aa = 1 Exit For End If Next i If aa = 0 Then MsgBox 普通用戶至少要有一項(xiàng)權(quán)限！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If End If Dim mrc As txtsql = select * from use where username=39。 amp。 Trim(Text1(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 Sub End If txtsql = select * from use Set mrc = ExecuteSQL(txtsql) 中國(guó)最大的管 理 資料下載中心 (收集 \整理 . 大量免費(fèi)資 源共享 ) 第 36 頁(yè) 共 49 頁(yè) (0) = Trim(Text1(0).Text) (1) = Trim(Text1(1).Text) For i = 0 To 2 If Option1(i).Value = True Then Select Case i Case 0 (admin) = y Case 1 (readonly) = y Case 2 For j = 0 To 3 If Check1(j).Value = 1 Then Select Case j Case 0 (qx1) = y Case 1 (qx2) = y Case 2 (qx3) = y Case 3 (qx4) = y End Select End If Next j End Select End If 中國(guó)最大的管 理 資料下載中心 (收集 \整理 . 大量免費(fèi)資 源共享 ) 第 37 頁(yè) 共 49 頁(yè) Next i MsgBox 用戶添加成功！ , vbExclamation + vbOKOnly, 警告 Text1(0).Text = Text1(1).Text = Text1(2).Text = End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() Option1(2).Value = True End Sub Private Sub Form_Resize() Text1(0).SetFocus End Sub Private Sub Option1_Click(Index As Integer) If Index 2 Then For i = 0 To 3 Check1(i).Enabled = False Next i Else For i = 0 To 3 中國(guó)最大的管 理 資料下載中心 (收集 \整理 . 大量免費(fèi)資 源共享 ) 第 38 頁(yè) 共 49 頁(yè) Check1(i).Enabled = True Next i End If End Sub 4． 4學(xué)生繳費(fèi)管理模塊： 因?yàn)楸鞠到y(tǒng)中有些功能模塊具有相似之處，因此在本文只用此模塊進(jìn)行一個(gè)簡(jiǎn)單的說(shuō)明。其它的相似模塊的代碼可能參閱本模塊的設(shè)計(jì)思路。 Public printstr As String Private Sub Command1_Click() Dim dbSource As Database Set dbSource = OpenDatabase() (SELECT * INto 班級(jí)一覽表 IN 39。學(xué)生管理一覽表 .xls39。 39。EXCEL 。39。 FROM class) z = MsgBox(成功！ , vbOKOnly, 查詢 ) End Sub 中國(guó)最大的管 理 資料下載中心 (收集 \整理 . 大量免費(fèi)資 源共享 ) 第 39 頁(yè) 共 49 頁(yè) Public Sub classshowtitle() Dim i As Integer With MSF1 .Cols = 8 .TextMatrix(0, 1) = 年級(jí) .TextMatrix(0, 2) = 班級(jí) .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 中國(guó)最大的管 理 資料下載中心 (收集 \整理 . 大量免費(fèi)資 源共享 ) 第 40 頁(yè) 共 49 頁(yè) .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 中國(guó)最大的管 理 資料下載中心 (收集 \整理 . 大量免費(fèi)資 源共享 ) 第 41 頁(yè) 共 49 頁(yè) If classfind = True Then zzz = MsgBox(對(duì)不起，沒(méi)有此班級(jí)的檔案記錄！ , vbOKOnly, 查詢 ) (0) (0).SetFocus End If End If End Sub Private Sub cmddel_Click() qxstr = Executeqx(2) If qxstr = readonly Then ss = MsgBox(對(duì)不起，你是只讀用戶不能刪除記錄，請(qǐng)與管理員聯(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(你還沒(méi)有選擇記錄！ , vbOKOnly + vbExclamation, 警告 ) Exit Sub End If