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

1、Vb+sql學(xué)生成績管理系統(tǒng)一、實驗?zāi)康?.綜合掌握實驗一到實驗六的內(nèi)容。2.掌握編程語言與數(shù)據(jù)庫連接及訪問表記錄的方法。二、實驗準(zhǔn)備1.綜合以前所學(xué)知識，結(jié)合某種編程語言開發(fā)完整的系統(tǒng)；2.預(yù)習(xí)數(shù)據(jù)庫與編程語言鏈接的相關(guān)內(nèi)容；四、系統(tǒng)功能流程圖查詢刪除修改添加查詢刪除修改添加成績信息管理課程信息管理學(xué)生成績管理系統(tǒng)刪除修改添加刪除修改添加用戶登錄學(xué)生成績管理系統(tǒng)班級信息管理學(xué)生信息管理五、實驗內(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開發(fā)歡

4、迎界面歡迎界面設(shè)計思想： 以動畫形式開始整個程序設(shè)計代碼：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è)計思想：輸入用戶名和密碼進入學(xué)生成績管理系統(tǒng)設(shè)計代碼：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è)置全局變量時最容易的 LoginSucceeded = True Unload Me Form2.Show Me.Hide Else MsgBox "無效的密碼，請重試!", , "登錄" txtPassword.SetFocus SendKe

9、ys "Home+End" End IfEnd SubPrivate Sub Form_Load()End Sub主界面主界面設(shè)計思想：點擊按鈕進入不同的管理界面。設(shè)計代碼：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è)計思想：點擊按鈕來實現(xiàn)系統(tǒng)的修改、添加、刪除和查詢。設(shè)計代碼： 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é)生信息管理界面查詢界面學(xué)生信息查詢界面設(shè)計思想： 實現(xiàn)學(xué)生信息按學(xué)號或姓名或班號的查詢。設(shè)計代碼：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班級信息管界面班級信息界面設(shè)計思想：點擊按鈕來實現(xiàn)系統(tǒng)的修改、添加、刪除和查詢。設(shè)計代碼：

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è)計思想：點擊按鈕來實現(xiàn)系統(tǒng)的修改、添加、刪除。設(shè)計代碼： 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成績信息管理界面學(xué)生成績管理界面設(shè)計思想：點擊按鈕來實現(xiàn)

17、系統(tǒng)的修改、添加、刪除和查詢。設(shè)計代碼：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 成績信息管理界面查詢界面成績查詢界面設(shè)計思想： 實現(xiàn)學(xué)生信息按學(xué)號或姓名或班號的查詢。設(shè)計代碼：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 & " '"