【導讀】技術上已經逐步成熟。管理系統(tǒng)是一個不斷發(fā)展的領域，追求不斷讓各種信息的管理變的。更方便、更快捷。不管是經濟、軍事還是什么方面，都要求能夠高效的把信息組織起來，這樣就必須建立與自身特點相適應的管理系統(tǒng)，從而達到最高效率的信息組織和傳遞。文對學生信息管理系統(tǒng)進行了詳細的分析和設計，清晰的展現了系統(tǒng)的構造。1．日常業(yè)務模塊的功能是對銷售開單、銷售退貨、客戶結款的添加和修改。的功能是對銷售、銷售退貨、應收款和庫存量的查詢。改、刪除和查詢。Access具有主關鍵字和外部關鍵字定義，并且。在數據庫的引擎提供了完全的引用完整性，可以避免不合理的更新和刪除。Access就是關系數據庫開發(fā)工具，數據庫能匯集各種信息以供查詢、存儲和檢索。Access的優(yōu)點在于它能使用數據表示圖或自定義窗體收集信息。另外，Access允許創(chuàng)建自定義報表用。Access也提供了數據存儲庫，可以使用桌面數據庫文件把。數據庫文件置于網絡文件服務器，與其他網絡用戶共享數據庫。

　　

【正文】 se With Combo1 Do While Not .AddItem Trim(mrcc!班級編號 ) Loop = 0 End With End If List2Text End Sub Private Sub List2Text() Set mrcc = New txSQL = select * from 課程表 = provider=。 amp。 data source= amp。 amp。 /Data/ txSQL, conn, adOpenStatic, adLockPessimistic Do While Not Trim(mrcc!課程名 ) Loop End Sub Private Sub List1Text() Set mrcc = New txSQL = select 課程名 from 班級課程表 where 班級編號 =39。 amp。 Trim() amp。 39。 = provider=。 amp。 data source= amp。 amp。 /Data/ txSQL, conn, adOpenStatic, adLockPessimistic Do While Not Trim(mrcc!課程名 ) Loop 37 End Sub Private Sub Label8_Click(Index As Integer) = provider=。 amp。 data source= amp。 amp。 /Data/ Dim tSQL As String Dim mmrc As Set mmrc = New Set mrcc = New If Index = 0 Then If And Then txSQL = delete from 班級課程表 where 班級編號 =39。 amp。 Trim() amp。 39。 and 課程名 =39。 amp。 Trim() amp。 39。 txSQL, conn, adOpenStatic, adLockPessimistic End If End If If Index = 1 Then If Then txSQL = delete from 班級課程表 where 班級編號 =39。 amp。 Trim() amp。 39。 txSQL, conn, adOpenStatic, adLockPessimistic tSQL = select * from 課程表 txSQL = select * from 班級課程表 tSQL, conn, adOpenStatic, adLockPessimistic If = True Then MsgBox 請先進行課程設置 !, vbOKOnly, 提示 Else Do While Not txSQL, conn, adOpenStatic, adLockPessimistic (0) = Trim() (1) = (0) Loop End If End If End If 38 If Index = 2 Then If And Then txSQL = delete from 班級課程表 where 班級編號 =39。 amp。 Trim() amp。 39。 and 課程名 =39。 amp。 Trim() amp。 39。 txSQL, conn, adOpenStatic, adLockPessimistic txSQL = select * from 班級課程表 txSQL, conn, adOpenStatic, adLockPessimistic (0) = Trim() (1) = Trim() End If End If If Index = 3 Then If Then Set mrcc = New txSQL = delete from 班級課程表 where 班級編號 =39。 amp。 Trim() amp。 39。 txSQL, conn, adOpenStatic, adLockPessimistic End If End If txSQL = select * from 班級課程表 txSQL, conn, adOpenStatic, adLockPessimistic List1Text End Sub Private Sub List2_Click() Text1(0) = End Sub Private Sub Text1_Change(Index As Integer) If Index = 0 Then txSQL = select * from 課程表 where 課程名 =39。 amp。 Trim(Text1(0)) amp。 39。 Set mrcc = New 39 = provider=。 amp。 data source= amp。 amp。 /Data/ txSQL, conn, adOpenStatic, adLockPessimistic If = False Then Text1(1) = (1) amp。 Text1(1).Locked = True Else Text1(1) = Text1(1).Locked = False End If End If End Sub 40 圖 321 相關代碼： Dim mrcc As Dim MsgText As String Dim txSQL As String Private Sub Combo1_Click() Text1(4) = If Label1(3).BackColor amp。HFFFFFF Then If Label3(4).Caption = Then = amp。HE0E0E0 Else = amp。HFFFFFF End If End If End Sub Private Sub Command1_Click() For i = 0 To 7 If i 4 Then If Text1(i) = Label3(i).Caption Then MsgBox 請 amp。 Label3(i).Caption amp。 !, vbOKOnly, 提示 Text1(i).SetFocus Exit Sub End If Else 41 If Text1(i) = Label3(i).Caption Then MsgBox 請 amp。 Label3(i).Caption amp。 !, vbOKOnly, 提示 Exit Sub End If End If Next If IsDate(Text1(5)) = False Then MsgBox 出生日期應為日期格式 (yyyymmdd)!, vbOKOnly, 警告 Text1(3).SetFocus Exit Sub End If txSQL = select * from 學生信息表 where 學號 =39。 amp。 Trim(Text1(0)) amp。 39。 Set mrcc = New = provider=。 amp。 data source= amp。 amp。 /Data/ txSQL, conn, adOpenStatic, adLockPessimistic If = False Then MsgBox 學號不能重復 !, vbOKOnly, 警告 Text1(0).SetFocus Exit Sub End If txSQL = select * from 學生信息表 txSQL, conn, adOpenStatic, adLockPessimistic (0) = Trim(Text1(0)) (1) = Trim(Text1(1)) (2) = Trim(Text1(2)) (3) = Trim(Text1(3)) (4) = Trim(Text1(4)) (5) = Trim(Text1(5)) (6) = Trim(Text1(6)) (7) = Trim(Text1(7)) If Text1(8) = Label3(8).Caption Then (8) = Else (8) = Trim(Text1(8)) End If MsgBox 學籍信息添加成功 !, vbOKOnly, 提示 42 With MSFlexGrid1 .Rows = .Rows + 1 .TextMatrix(.Rows 1, 0) = Trim(Text1(0)) .TextMatrix(.Rows 1, 1) = Trim(Text1(1)) .TextMatrix(.Rows 1, 2) = Trim(Text1(2)) .TextMatrix(.Rows 1, 3) = Trim(Text1(3)) .TextMatrix(.Rows 1,