用VB怎么编写学生成绩管理系统 要源代码而且和数据库要有联系

你要自己做还是我发给你？？？代码先给你。。。Public zf1 As Integer
Private Sub cj98_Click()
Dim bh
Data2.RecordSource = "98年成绩"
Data2.Refresh
bh = Data1.Recordset.Fields("编号")
Data2.Recordset.FindFirst ("编号" = bh)
Call zf
Label13 = zf1
End SubPrivate Sub cj99_Click()
Dim bh As Integer
Data2.RecordSource = "99年成绩"
Data2.Refresh
bh = Data1.Recordset.Fields("编号")
Data2.Recordset.FindFirst ("编号" = bh)
Call zf
Label13 = zf1
End SubPrivate Sub Data1_Reposition()
Dim bh As Integer
bh = Data1.Recordset.Fields("编号")
Data2.Recordset.MoveFirst
Do While Data2.Recordset.EOF = False
If Data2.Recordset.Fields("编号") = bh Then
Exit Do
Else
Data2.Recordset.MoveNext
End If
Loop
Call zf
Label13 = zf1
End Sub
Private Sub Z1_Click()
Dim bh
Data1.DatabaseName = "C:\Documents and Settings\Administrator\桌面\db2.mdb"
Data1.Refresh
Data2.DatabaseName = "C:\Documents and Settings\Administrator\桌面\db2.mdb"
Data2.Refresh
bh = Data1.Recordset.Fields("编号")
Data2.Recordset.FindFirst ("编号" = bh)
Call zf
Label13 = zf1
End Sub
Sub zf()
zf1 = Data2.Recordset.Fields("微机原理") + Data2.Recordset.Fields("OFFICE使用") + Data2.Recordset.Fields("五笔字型打字") + Data2.Recordset.Fields("VB编程")
End Sub

你应该把邮箱发出来，不然别人也发不了给你啊，我有个半成品你要不？以前学校做的，成品的交给老师了。稍微改下就行了

我这有个学生信息管理系统，以前给一小朋友的对象做的毕业设计，需要的话可以CALL 我