教務(wù)管理系統(tǒng)(vb)(文件)
【正文】 有蠻多可以擴(kuò)充的功能及設(shè)計(jì)實(shí)現(xiàn)構(gòu)想如可以在學(xué)生資料中添加照片這一屬性，為每一位學(xué)生設(shè)置一張圖片，當(dāng)瀏覽每一位學(xué)生的記錄時(shí)，都能看到這位學(xué)生的照片；可以在學(xué)生資料中增加出生年月這一屬性，利用相關(guān)控件，當(dāng)輸入、修改日期數(shù)據(jù)時(shí)，都會(huì)彈出一個(gè)框供選擇；還可以在系統(tǒng)中添加備份數(shù)據(jù)庫(kù)的功能，這樣就可以及時(shí)備份數(shù)據(jù)庫(kù)，當(dāng)數(shù)據(jù)庫(kù)遭到破壞的時(shí)候，可以還原數(shù)據(jù)庫(kù)。[2] 張智毅. Visual Basic 數(shù)據(jù)庫(kù)編程技術(shù)與實(shí)例， 北京：人民郵電出版社。 39。Select Case IndexCase 0 = = Case 1Set n = New DRIVER=Microsoft Access Driver (*.mdb)。 amp。 amp。 select * from Users , n, 3, 3 = = 39。 amp。 amp。 amp。 amp。 amp。DBQ= amp。 amp。 amp。 amp。 amp。 amp。 = End SubPrivate Sub Timer1_Timer() = NowEnd Sub2） 管理員Private n As New Private Rs As New Private Sub Command2_Click()End SubPrivate Sub Form_Load()Set n = New Set Rs = New 39。 \ select * from Users , n, 3, 3call datashow1(rs,msflexgrid)End Sub（3） 課程管理1）課程查詢Option ExplicitPrivate n As New Private Rs As New Private Rs1 As New Private Sub Command1_Click(Index As Integer)Select Case IndexCase 0 select * from Course where CourseID like amp。 39。 amp。DBQ= amp。DBQ= amp。 amp。 amp。Label12(0).Caption = (0).Value select max(Score),avg(Score),min(Score) from Score where =39。, n, 3, 3If = 0 ThenMsgBox 不存在這個(gè)學(xué)號(hào)，請(qǐng)重新輸入！ = Exit SubElseLabel12(1).Caption = (0).ValueLabel12(2).Caption = (1).ValueLabel12(3).Caption = (2).ValueEnd IfEnd If39。 amp。 39。39。 amp。 amp。 amp。 amp。pwd=, 3, 3Dim n%n = Val() Select Case Index Case 0 Call ShowData Command1(1).Enabled = False Command1(2).Enabled = True Command1(3).Enabled = True Case 1 Call ShowData Command1(0).Enabled = True Command1(1).Enabled = True Command1(2).Enabled = True Command1(3).Enabled = True Case 2 Call ShowData Command1(0).Enabled = True Command1(1).Enabled = True Command1(2).Enabled = True Command1(3).Enabled = True Case 3 Call ShowData Command1(0).Enabled = True Command1(1).Enabled = True Command1(2).Enabled = False Command1(3).Enabled = True Case 4 If n Then MsgBox 此表沒(méi)有那么多記錄！ Else (n) Call ShowData End If End Select End SubPrivate Sub Command2_Click(Index As Integer) select * from 教師表 where 姓名 like amp。 39。 39。, DSN=db1。pwd=, 3, 3Select Case IndexCase 0 39。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 Command4(0).Enabled = True Command4(1).Enabled = True Command4(2).Enabled = True Command4(3).Enabled = True End SelectEnd SubPrivate Sub Command5_Click()End SubPrivate Sub Form_Load()Set n = New Set Rs = New DRIVER=Microsoft Access Driver (*.mdb)。 DSN=db1。pwd=Call ShowDataEnd SubPrivate Sub ShowData() = (姓名).Value = (教師編號(hào)).Value = (性別).Value39。pwd= select * from 教師表, DSN=db1。 amp。 39。 39。 39。 39。 39。 39。 39。 Command4(0).Enabled = False Case 2 39。pwd=, 3, 3If = 0 ThenMsgBox 此表不存在這個(gè)姓名！ElseSelect Case IndexCase 0 Call ShowData Case 1 Call ShowData Case 2 Call ShowDataCase 3 Call ShowDataEnd SelectEnd IfEnd SubPrivate Sub Command4_Click(Index As Integer) select * from 教師表, DSN=db1。 amp。User ID=。 amp。, n, 3, 3Label12(1).Caption = (0).ValueLabel12(2).Caption = (1).ValueLabel12(3).Caption = (2).ValueEnd SubPrivate Sub ShowData() = (0).Value = (1).Value = (2).Value = (3).Value = (4).Value = (5).Value = (6).ValueEnd Sub（5） 教師查詢Optio
法律信息相關(guān)推薦
鄂ICP備17016276號(hào)-1