SQLServer2005数据库应用技术（第二版）虞益诚第21章SQLServer2005应用开发与课程设计实例1001课件教学.pptVIP

SQL Server 2005数据库应用技术（第二版） 21-3 SMIS数据结构设计及实现 1．数据库概念结构设计表信息 概念结构设计就是E-R方法的分析与设计，是整个数据库设计的关键。在此，将使用实体-联系（E-R）模型来描述系统的概念结构，同时设计出能够满足用户需求的各种实体，及它们之间的关系。本程序根据上面的设计规划出的实体有：学籍实体、班级实体、年级实体、课程实体与成绩实体，它们的E-R图如图21-4所示。 馋死 PPT研究院 POWERPOINT ACADEMY Guihg 上海应用技术学院 * * * 3）学籍信息输入窗体中的“清空”按钮，用来取消在窗体中输入的学籍信息。 Private Sub cmdClear_Click() 清空各添加框信息 txtId.Text = txtName.Text = cboGender.ListIndex = 0 txtBirthday.Text = cboClassNumber.ListIndex = 0 txtPhone.Text = txtDate.Text = txtAddress.Text = txtComment.Text = FrmMain.StatusBarMy.Panels.Item(1).Text = End Sub 4．修改学籍信息窗体 选择“学籍管理”菜单的“添加学籍信息”项，出现如图21-7与图21-8所示的窗体界面。在该窗体中，即可以一般的浏览查询（可进行记录指针的相对移动：上移一条记录、下移一条记录、记录指针指向首记录和针指向末记录），也可以进入修改分支，实施数据修改、改好以后更新存盘、退出修改和删除记录。具体代码分解如下： 图21-7 学籍信息修改-浏览 状态对话框 图21-8 学籍信息修改-修改状态对话框 （1）窗体的载入事件：Form_Load()。 Private Sub Form_Load() Dim txtSQL As String: Dim MsgText As String txtSQL = Select * from student_Info : Set mrc = ExecuteSQL(txtSQL, MsgText) mrc.MoveFirst 显示第一条记录 If mrc.EOF Then MsgBox 表信息已空！！ End If Call viewData: mcclean = True txtId.Enabled = False 设置窗体信息不可修改 txtName.Enabled = False cboGender.Enabled = False txtBirthday.Enabled = False cboClassNumber.Enabled = False txtPhone.Enabled = False txtDate.Enabled = False txtAddress.Enabled = False txtComment.Enabled = False End Sub （2）窗体信息的浏览查询。 Private Sub cmdFirst_Click() 显示第一条记录 mrc.MoveFirst : Call viewData End Sub Private Sub cmdPrevious_Click() 显示当前记录的上一条记录 mrc.MovePrevious If mrc.BOF Then mrc.MoveLast End If Call viewData End Sub Private Sub cmdNext_Click() 显示当前记录的下一条记录 mrc.MoveNext If mrc.EOF Then mrc.MoveFirst End If Call viewData End Sub Private Sub cmdLast_Click() 显示最后一条记录 mrc.MoveLast : Call viewData End Sub （3）修改窗体的学籍信息。 Private Sub cmdEdit_Click() 进入修改状态，且移动按钮不可用！ mcclean = Fal