vb學(xué)生成績(jī)管理系統(tǒng)

1、Vb+sql學(xué)生成績(jī)管理系統(tǒng)一、實(shí)驗(yàn)?zāi)康?.綜合掌握實(shí)驗(yàn)一到實(shí)驗(yàn)六的內(nèi)容。2.掌握編程語(yǔ)言與數(shù)據(jù)庫(kù)連接及訪(fǎng)問(wèn)表記錄的方法。二、實(shí)驗(yàn)準(zhǔn)備1.綜合以前所學(xué)知識(shí)，結(jié)合某種編程語(yǔ)言開(kāi)發(fā)完整的系統(tǒng)；2.預(yù)習(xí)數(shù)據(jù)庫(kù)與編程語(yǔ)言鏈接的相關(guān)內(nèi)容；四、系統(tǒng)功能流程圖查詢(xún)刪除修改添加查詢(xún)刪除修改添加成績(jī)信息管理課程信息管理學(xué)生成績(jī)管理系統(tǒng)刪除修改添加刪除修改添加用戶(hù)登錄學(xué)生成績(jī)管理系統(tǒng)班級(jí)信息管理學(xué)生信息管理五、實(shí)驗(yàn)內(nèi)容及步驟Sql建表：create table student(student_ID char(4) NOT NULL ,student_Name char(10) NOT NULL ,student_

2、Sex char(2) NULL ,born_Date datetime NULL ,class_NO char(10) NULL ,tele_Number char(10) NULL ,ru_Date datetime NULL ,address varchar(50) NULL ,comment varchar(200) NULL )create table result(exam_No char(10) NOT NULL ,student_ID char(4) NOT NULL ,student_Name char(10) NULL ,class_No char(10) NULL ,co

3、urse_Name char(10) NULL ,result float NULL )create table course(course_No char(10) NOT NULL ,course_Name char(10) NULL ,course_Type char(10) NULL ,course_Des char(50) NULL )create table class(class_No char(10) NOT NULL ,grade char(10) NULL ,director char(10) NULL ,classroom_No char(10) NULL )六、Vb開(kāi)發(fā)歡

4、迎界面歡迎界面設(shè)計(jì)思想： 以動(dòng)畫(huà)形式開(kāi)始整個(gè)程序設(shè)計(jì)代碼：Option ExplicitDim Proba, Proba2 As IntegerDim Boja2 As String Private Function Zrak(slika As PictureBox, StartX As Integer, StartY As Integer, Levo As Integer, Desno As Integer, Boja As String) Me.ScaleMode = vbPixels With slika .ScaleMode = vbPixels .AutoRedraw = True

5、End With For Proba2 = 0 To slika.ScaleWidth DoEvents For Proba = 0 To slika.ScaleHeight Boja2 = slika.Point(Proba2, Proba) Line (StartX, StartY)-(Levo + Proba2, Desno + Proba), Boja2 Next Line (StartX, StartY)-(Levo + Proba2, Desno + slika.ScaleHeight), Boja Next For Proba2 = 0 To slika.ScaleHeight

6、Line (StartX, StartY)-(Levo + slika.ScaleWidth, Desno + Proba2), Boja NextEnd FunctionPrivate Sub Form_Activate() Timer1.Enabled = TrueEnd SubPrivate Sub Form_Click() Unload Me frmLogin.Show Timer1.Enabled = FalseEnd SubPrivate Sub Picture1_Click()End SubPrivate Sub Timer1_Timer() Dim i, j As Intege

7、r Zrak Picture1, 565, 295, 0, 0, Me.BackColor If Timer1.Interval = 1000 Then For i = 0 To 100 For j = 0 To 100 DoEvents Next Next End If Call Form_ClickEnd Sub登陸界面登陸界面設(shè)計(jì)思想：輸入用戶(hù)名和密碼進(jìn)入學(xué)生成績(jī)管理系統(tǒng)設(shè)計(jì)代碼：Option ExplicitPublic LoginSucceeded As BooleanPrivate Sub cmdCancel_Click() '設(shè)置全局變量為 false '不提示失

8、敗的登錄 LoginSucceeded = False Me.HideEnd SubPrivate Sub cmdOK_Click() '檢查正確的密碼 If txtPassword = "0" Then '將代碼放在這里傳遞 '成功到 calling 函數(shù) '設(shè)置全局變量時(shí)最容易的 LoginSucceeded = True Unload Me Form2.Show Me.Hide Else MsgBox "無(wú)效的密碼，請(qǐng)重試!", , "登錄" txtPassword.SetFocus SendKe

9、ys "Home+End" End IfEnd SubPrivate Sub Form_Load()End Sub主界面主界面設(shè)計(jì)思想：點(diǎn)擊按鈕進(jìn)入不同的管理界面。設(shè)計(jì)代碼：Private Sub Command1_Click()Unload MeForm1.ShowEnd SubPrivate Sub Command2_Click()Unload MeForm9.ShowEnd SubPrivate Sub Command3_Click()Unload MeForm7.ShowEnd SubPrivate Sub Command4_Click()Unload MeForm

10、8.ShowEnd SubPrivate Sub Form_Load()End Sub學(xué)生信息管理界面學(xué)生信息界面設(shè)計(jì)思想：點(diǎn)擊按鈕來(lái)實(shí)現(xiàn)系統(tǒng)的修改、添加、刪除和查詢(xún)。設(shè)計(jì)代碼： Private Sub Command1_Click()Unload MeForm2.ShowEnd SubPrivate Sub Command2_Click()End SubPrivate Sub Command3_Click()End SubPrivate Sub Command4_Click()End SubPrivate Sub Command5_Click()End SubPrivate Sub Comm

11、and6_Click()End SubPrivate Sub Command7_Click()End SubPrivate Sub Command8_Click()Dim ask As Integerask = MsgBox("是否刪除？", vbYesNo)If ask = 6 ThenEnd IfEnd SubPrivate Sub Command9_Click()Unload MeForm6.ShowEnd Sub學(xué)生信息管理界面查詢(xún)界面學(xué)生信息查詢(xún)界面設(shè)計(jì)思想： 實(shí)現(xiàn)學(xué)生信息按學(xué)號(hào)或姓名或班號(hào)的查詢(xún)。設(shè)計(jì)代碼：Private Sub Command2_Click()

12、If Text1 > "" ThenAdodc1.RecordSource = "select * from xt27result where student_NAME='" & Text1.Text & " '"ElseIf Text2 > "" ThenAdodci1.RecordSource = "select * from xt27result where student_ID='" & Text2.Text & &qu

13、ot; '"ElseIf Text3 > "" ThenAdodc1.RecordSource = "select * from xt27result where course_Name='" & Text3.Text & " '"End IfAdodc1.RefreshEnd SubPrivate Sub Command3_Click()Unload MeForm1.ShowEnd Sub班級(jí)信息管界面班級(jí)信息界面設(shè)計(jì)思想：點(diǎn)擊按鈕來(lái)實(shí)現(xiàn)系統(tǒng)的修改、添加、刪除和查詢(xún)。設(shè)計(jì)代碼：

14、Private Sub addCommand_Click()End SubPrivate Sub Command1_Click()Unload MeForm2.ShowEnd SubPrivate Sub deleteCommand_Click()Dim ask As Integerask = MsgBox("是否刪除？", vbYesNo)If ask = 6 ThenEnd IfEnd SubPrivate Sub updateCommand_Click()End SubPrivate Sub Command2_Click()End SubPrivate Sub Com

15、mand3_Click()End SubPrivate Sub Command4_Click()End SubPrivate Sub Command5_Click()End SubPrivate Sub Form_Load()End Sub課程信息管理界面課程信息界面設(shè)計(jì)思想：點(diǎn)擊按鈕來(lái)實(shí)現(xiàn)系統(tǒng)的修改、添加、刪除。設(shè)計(jì)代碼： Private Sub Command1_Click()Unload MeForm2.ShowEnd SubPrivate Sub Command2_Click()End SubPrivate Sub Command3_Click()End SubPrivate Sub

16、Command4_Click()End SubPrivate Sub Command5_Click()End SubPrivate Sub Command6_Click()End SubPrivate Sub Command7_Click()End SubPrivate Sub Command8_Click()Dim ask As Integerask = MsgBox("是否刪除？", vbYesNo)If ask = 6 ThenEnd IfEnd SubPrivate Sub Form_Load()End Sub成績(jī)信息管理界面學(xué)生成績(jī)管理界面設(shè)計(jì)思想：點(diǎn)擊按鈕來(lái)實(shí)現(xiàn)

17、系統(tǒng)的修改、添加、刪除和查詢(xún)。設(shè)計(jì)代碼：Private Sub Command1_Click()Unload MeForm2.ShowEnd SubPrivate Sub Command2_Click()End SubPrivate Sub Command3_Click()End SubPrivate Sub Command4_Click()End SubPrivate Sub Command5_Click()End SubPrivate Sub Command6_Click()End SubPrivate Sub Command7_Click()End SubPrivate Sub Comm

18、and8_Click()Dim ask As Integerask = MsgBox("是否刪除？", vbYesNo)If ask = 6 ThenEnd IfEnd SubPrivate Sub Command9_Click()Unload MeForm5.ShowEnd SubPrivate Sub Form_Load()End Sub 成績(jī)信息管理界面查詢(xún)界面成績(jī)查詢(xún)界面設(shè)計(jì)思想： 實(shí)現(xiàn)學(xué)生信息按學(xué)號(hào)或姓名或班號(hào)的查詢(xún)。設(shè)計(jì)代碼：Private Sub Command2_Click()If Text1 > "" ThenAdodc1.RecordSource = "select * from xt27student where student_ID='" & Text1.Text & " '"ElseIf Text2 > "" ThenAdodc1.RecordSource = "select * from xt27student where student_NAME='" & Text2.Text & " '"