新SQL Server 2005数据库应用技术（第二版）虞益诚 第21章SQL Server2005 应用开发与课程设计实例1001.pptVIP

SQL Server 2005数据库应用技术（第二版） 21-3 SMIS数据结构设计及实现 1．数据库概念结构设计表信息 概念结构设计就是E-R方法的分析与设计，是整个数据库设计的关键。在此，将使用实体-联系（E-R）模型来描述系统的概念结构，同时设计出能够满足用户需求的各种实体，及它们之间的关系。本程序根据上面的设计规划出的实体有：学籍实体、班级实体、年级实体、课程实体与成绩实体，它们的E-R图如图21-4所示。 （2）向数据表中写入数据信息。 txtSQL =Select * from student_Info where student_ID= Trim(txtId.Text) _ and class_No=Trim(cboClassNumber.Text) Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF = False Then FrmMain.StatusBarMy.Panels.Item(1).Text = 该班级中已经存在此学号，请重新输入！ mrc.Close:txtId.SelStart = 0 txtId.SelLength = Len(txtId.Text) txtId.SetFocus:Exit Sub Else mrc.AddNew:mrc.Fields(0) = Trim(txtId.Text) mrc.Fields(1) = Trim(txtName.Text) mrc.Fields(2) = Trim(cboGender.Text) mrc.Fields(3) = Trim(txtBirthday.Text) mrc.Fields(4)=Trim(cboClassNumber.Text) mrc.Fields(5) = Trim(txtPhone.Text):mrc.Fields(6) = Trim(txtDate.Text) mrc.Fields(7) = Trim(txtAddress.Text):mrc.Fields(8) = Trim(txtComment.Text) mrc.Update FrmMain.StatusBarMy.Panels.Item(1).Text = 添加学籍信息成功！ mrc.Close End If End Sub 2）学籍信息输入窗体中的“取消添加”按钮，用来取消本次添加操作。 Private Sub cmdCancel_Click() 取消本次并退出本窗体 FrmMain.StatusBarMy.Panels.Item(1).Text = Unload Me End Sub 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 显示