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
