数据库 学生管理系统

smname = \

If ckbMajor.Value = 1 Then

smname = \End If stmp = \

If ssno <> \If ssname <> \

stmp = ssno + \If smname <> \

stmp = stmp + \End If Else

If smname <> \

stmp = ssno + \Else

stmp = ssno End If End If Else

If ssname <> \If smname <> \

stmp = ssnmae + \Else: stmp = ssname End If Else

stmp = smname End If End If

If Trim(stmp) <> \

strsql = strsql + \End If

gradeADO.ConnectionString = getconnstring gradeADO.RecordSource = strsql gradeADO.Refresh End Sub

Private Sub Form_Load()

Set sqlrs = execsql(\ While Not sqlrs.EOF

cbxMajor.AddItem (sqlrs(\ sqlrs.MoveNext Wend

sqlrs.Close End Sub

22

Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)

End Sub

五、课程设计感想

刚接触这个题目时感觉好复杂，不知道该怎么下手，看了书，也觉得一头雾

水，所以就去把书仔细的看了一遍。看完之后，还是不了解，只有去图书馆查阅更多的相关书籍。

通过这次课程设计发现这其中需要的很多知识我们没有接触过，去图书馆查资料的时候发现我们前边所学到的仅仅是皮毛，还有很多需要我们掌握的东西我们根本不知道。同时也发现有很多已经学过的东西我们没有理解到位，不能灵活运用于实际，不能很好的用来解决问题，这就需要我们不断的大量的实践，通过不断的自学，不断地发现问题，思考问题，进而解决问题。在这个过程中，可以充分体验到自学的重要性，没有一定的自学能力，就不能很好的解决问题。在这个过程中我们将深刻理解所学知识，同时也可以学到不少很实用的东西。 自己编写，亲身体验了一回系统的设计开发过程。很多东西书上写的很清楚，貌似看着也很简单，思路非常清晰。但真正需要自己想办法去设计一个系统的时候才发现其中的难度。经常做到后面突然就发现自己一开始的设计有问题，然后又回去翻书，在各种反复中不断完善自己的想法。

我想有这样的问题不止我一个，事后想想是一开始着手做的时候下手过于轻快，或者说是根本不了解自己要做的这个系统是给谁用的。

所以，动手设计程序不仅是对学习知识的应用，更是一番新的掌握和理解。能使学过的东西记忆的更加深刻，理解的更加充分。

六、参考文献

教材：第8章。

关于：介绍SQL Server 2005和Visuel Basic其它书籍。

23