【導(dǎo)讀】一年的累積，學(xué)校規(guī)模的逐漸擴(kuò)大，學(xué)生檔案信息是越來(lái)越多。管理的規(guī)范性方面下功夫。現(xiàn)在計(jì)算機(jī)化管理已經(jīng)不知不覺(jué)中滲透到了各行各。業(yè)，并且提高了這些行業(yè)的效率。學(xué)校雖然不算是一個(gè)純粹的企業(yè)，但是學(xué)校的。學(xué)校就顯的更加的重要了。以前的手工管理,已經(jīng)越來(lái)越不適應(yīng)學(xué)校的發(fā)展要求。但是呢，還是有一定的使用價(jià)值的。年都有不同的要求。學(xué)生的量也非常的大，資料可能經(jīng)常性的發(fā)生更換，原來(lái)手。做一些相似的報(bào)表，這樣不但降低了工作效率，而且。確的錄入，統(tǒng)計(jì)，報(bào)表輸出一點(diǎn)問(wèn)題都沒(méi)有的。理系統(tǒng)中中不可缺少的部分，它的內(nèi)容對(duì)于學(xué)校的管理者說(shuō)都至關(guān)重要。另外時(shí)間一長(zhǎng)，不容易進(jìn)行統(tǒng)計(jì)和分析。刻認(rèn)識(shí)，它已進(jìn)入人類社會(huì)的各個(gè)領(lǐng)域并發(fā)揮著越來(lái)越重要的作用。數(shù)據(jù)流圖和數(shù)據(jù)字典為主要描述工具。數(shù)據(jù)流圖是組織中信息運(yùn)動(dòng)的抽象。和去處，確定外部實(shí)體，得出系統(tǒng)的頂層數(shù)據(jù)流程圖；數(shù)據(jù)流程圖的符號(hào)說(shuō)明如圖2－3所示。述清楚,以便于此后系統(tǒng)設(shè)計(jì)的進(jìn)行。

　　

【正文】 Nothing Set mrc1 = Nothing End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As ) End Sub Private Sub Frame2_DragDrop(Source As Control, X As Single, Y As Single) End Sub 39。建立 Treeview 和 MSFlexGrid 的聯(lián)系 Private Sub TreeView1_DblClick() On Error GoTo ss If = 0 Then Exit Sub End If txtsql = () txtsql = select * from class where 年級(jí) =39。 amp。 Trim(txtsql) amp。 39。 or 班級(jí) =39。 amp。 Trim(txtsql) amp。 39。 order by 年級(jí) ,班級(jí) printstr = txtsql = 瀏覽班級(jí) Exit Sub ss: End Sub 3． 6 課程管理 基本課程設(shè)置窗體代碼如下 Public Sub kechengshowtitle() Dim i As Integer With MSF1 .Cols = 3 .TextMatrix(0, 1) = 課程名稱 .TextMatrix(0, 2) = 教材 .ColWidth(0) = 0 .ColWidth(1) = 1000 .ColWidth(2) = 2021 .FixedRows = 1 .FillStyle = flexFillSingle .Col = 0 .Row = 0 .RowSel = 1 .ColSel = .Cols 1 .CellAlignment = 4 .Row = 1 End With End Sub Private Sub Command1_Click() Unload Me End Sub Private Sub Command2_Click() qxstr = Executeqx(4) If qxstr = readonly Then ss = MsgBox(對(duì)不起，你是只讀用戶不能添加記錄，請(qǐng)與管理員聯(lián)系！ , vbInformation + vbOKOnly, 警告 ) Exit Sub End If If = 確定 Then If = Then sssss = MsgBox(課程名稱不能為空！ , vbOKOnly + vbExclamation, 警告 ) Exit Sub End If If = Then sssss = MsgBox(教材不能為空！ , vbOKOnly + vbExclamation, 警告 ) Exit Sub End If = select * from allkecheng where 課程名稱 =39。 amp。 Trim() amp。 39。 If = False Then sssss = MsgBox(已經(jīng)存在該課程名稱！ , vbOKOnly + vbExclamation, 警告 ) = 0 = Len() Exit Sub Else (0) = (1) = = 增加 = True = True = = = False = False kechengshowtitle kechengshowdata End If Else = True = True = = kechengshowtitle kechengshowdata = 確定 = False = False End If End Sub Private Sub Command3_Click() qxstr = Executeqx(4) If qxstr = readonly Then ss = MsgBox(對(duì)不起，你是只讀用戶不能添加記錄，請(qǐng)與管理員聯(lián)系！ , vbInformation + vbOKOnly, 警告 ) Exit Sub End If If Trim((, 1)) = Then sssss = MsgBox(你還沒(méi)有選擇記錄！ , vbOKOnly + vbExclamation, 警告) Else If MsgBox( 確 定 要 刪 除 課 程 名 稱 為 amp。 Trim((, 1)) amp。 的記錄嗎？ , vbOKCancel + vbExclamation, 警告 ) = vbOK Then = select * from allkecheng where 課程名稱 =39。 amp。 Trim((, 1)) amp。 39。 = = kechengshowtitle kechengshowdata End If End If End Sub Private Sub Command4_Click() qxstr = Executeqx(4) If qxstr = readonly Then ss = MsgBox(對(duì)不起，你是只讀用戶不能修改記錄，請(qǐng)與管理員聯(lián)系！ , vbInformation + vbOKOnly, 警告 ) Exit Sub End If If Trim((, 1)) = Then sssss = MsgBox(你還沒(méi)有選擇記錄！ , vbOKOnly + vbExclamation, 警告) Else If = 確定 Then If = Then sssss = MsgBox(課程名稱不能為空！ , vbOKOnly + vbExclamation, 警告 ) Exit Sub End If If = Then sssss = MsgBox(教材不能為空！ , vbOKOnly + vbExclamation, 警告 ) Exit Sub End If = select * from allkecheng where 課程名稱 =39。 amp。 Trim((, 1)) amp。 39。 (0) = (1) = = = kechengshowtitle kechengshowdata = 修改 = True = True = False = False Else = True = True = 確定 = False = False End If End If End Sub Private Sub Form_Load() = connstring kechengshowtitle kechengshowdata End Sub Public Sub kechengshowdata() Dim j As Integer Dim i As Integer Dim mrc As = select * from allkecheng order by 課程名稱 If = False Then With MSF1 .Rows = 15 .Row = 2 Do While Not .Rows = .Rows + 1 For i = 1 To .TextMatrix(.Row 1, i) = (i 1) Next i .Row = .Row + 1 Loop End With End If End Sub Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single) End Sub Private Sub MSF1_Click() If Trim((, 1)) = Then = = Else = select * from allkecheng where 課程名稱 =39。 amp。 Trim((, 1)) amp。 39。 = (0) = (1) End If End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End If End Sub 班級(jí)課程設(shè)置代碼如下 Private Sub MSF1_Click() End Sub Private Sub Combo1_Click(Index As Integer) Dim mrc As If Index = 0 Then txtsql = select DISTINCT 專業(yè) from class where 年級(jí) =39。 amp。 Trim(Combo1(0).Text) amp。 39。 Set mrc = ExecuteSQL(txtsql) If = True Then Combo1(1).Text = Combo1(2).Text = Exit Sub End If Combo1(1).Clear Do Until Combo1(1).AddItem (0) Loop Combo1(1).ListIndex = 0 txtsql = select DISTINCT 年制 from class where 年級(jí) =39。 amp。 Trim(Combo1(0).Text) amp。 39。 and 專業(yè) =39。 amp。 Trim(Combo1(1).Text) amp。 39。 Set mrc = ExecuteSQL(txtsql) If = True Then Combo1(2).Text = Exit Sub End If Combo1(2).Clear Do Until Combo1(2).AddItem (0) Loop Combo1(2).ListIndex = 0 ElseIf Index = 1 Then txtsql = select DISTINCT 年制 from class where 年級(jí) =39。 amp。 Trim(Combo1(0).Text) amp。 39。 and 專業(yè) =39。 amp。 Trim(Combo1(1).Text) amp。 39。 Set mrc = ExecuteSQL(txtsql) If = True Then Combo1(0).Text = Combo1(2).Text = Exit Sub End If Combo1(2).Clear Do Until Combo1(2).AddItem (0) Loop Comb