End Sub

Private Sub Form_Load() Me.qk Me.sz

Command3.Enabled = False Command4.Enabled = False Command5.Enabled = False Command6.Enabled = False End Sub

代码实现：

Dim mrc As ADODB.Recordset 'Dim mrc1 As ADODB.Recordset Dim kch As String

Private Sub Command1_Click() If Combo1.Text = \

MsgBox \请选择学号！\警告\Exit Sub End If

If Combo2.Text = \

MsgBox \请选择课程名称！\警告\

31

Exit Sub End If

txtsql = \课程 where 课程名称='\Set mrc = ExecuteSQL(txtsql) kch = mrc.Fields(0) mrc.Close

txtsql = \学生成绩 where 学号='\课程号='\Set mrc = ExecuteSQL(txtsql) If mrc.EOF = True Then

MsgBox \该学生的此课程不存在！\警告\mrc.Close Exit Sub End If

Text2.Text = Str$(mrc.Fields(5)) Command3.Enabled = True Text3.Enabled = True Text3.SetFocus End Sub

Private Sub Command2_Click() Unload Me End Sub

Private Sub Command3_Click() If Text3.Text = \

MsgBox \请输入修改成绩！\警告\Exit Sub End If

mrc.Fields(5) = Val(Text3.Text) mrc.Update mrc.Close

32

MsgBox \修改成绩成功！\警告\Text2.Text = \Text3.Text = \Text2.Enabled = False Text3.Enabled = False Command3.Enabled = False End Sub

Private Sub Form_Load() Text2.Text = \Text3.Text = \

Command3.Enabled = False Text2.Enabled = False Text3.Enabled = False

txtsql = \学号 from 学生成绩\Set mrc = ExecuteSQL(txtsql) If mrc.EOF = True Then

MsgBox \学生成绩表中无记录！\警告\mrc.Close Exit Sub End If

Do While Not mrc.EOF Combo1.AddItem mrc.Fields(0) mrc.MoveNext Loop

txtsql = \课程\Set mrc = ExecuteSQL(txtsql) If mrc.EOF = True Then

MsgBox \课程表中无记录！\警告\mrc.Close Exit Sub End If

33

Do While Not mrc.EOF Combo2.AddItem mrc.Fields(1) mrc.MoveNext Loop End Sub

7.3 数据库的试运行

7.3.1 通过SQL语句进行简单测试

当一小部分数据输入数据库后，就可以开始对数据库系统进行联合调试，这一阶段要实际运行数据库应用程序，执行对数据库的各种操作，由于没有应用程序，所以只有通过SQL语言直接在数据库中执行对数据库的各种操作。

通过在SQL Server 2000的查询分析器中输入相应的SQL语句，就可以得到相应的结果，具体如下所示：

（1）查询学生的基本信息

输入SQL语句：

SELECT sno,sname,ssex,dmpno,mno,birthday FROM student;

查询学生基本信息结果图

（2）插入教师的基本信息

输入SQL语句：

INSERT

INTO teacher (tno,dmpno,tname,tsex,profess,tel) VALUES ('25','05',' 张三','男',老师 ','1345263526');

插入教师基本信息

（3）删除课程的基本信息

输入SQL语句：

DELETE

34

FROM course

WHERE cname = '计算机科学与技术 ';

删除课程信息

7.4 数据库的运行和维护

数据库试运行合格后，数据库开发工作就基本完成，即可投入正式运行了。但是，由于应用环境在不断变化，数据库运行过程中物理存储也会不断变化，对数据库设计进行评价、调整、修改等维护工作是一个长期的任务，也是设计工作的继续和提高。

在数据库运行阶段，对数据库经常性的维护工作主要是由DBA完成的，包括： （1）数据库的转储和恢复——DBA要针对不同的应用要求制定不同的转储计划，一保证一旦发生故障能尽快将数据库恢复到某种一致的状态，并尽可能减少对数据库的破坏。

（2）数据库的安全性、完整性控制——DBA根据实际情况修改原有的安全性控制和数据库的完整性约束条件，以满足用户要求。

（3）数据库性能的监督、分析和改造——在数据库运行过程中，DBA必须监督系统运行，对监测数据进行分析，找出改进系统性能的方法。

（4）数据库的重组织与重构造——数据库运行一段时间后，由于记录不断增、删、改，会使数据库的物理存储情况变坏，降低了数据的存取效率，数据库性能下降，这时DBA就要对数据库进行重组织或部分重组织。

8 设计体会

通过对数据库程序设计，使我对这学期学的知识有了全面的认识。由于以前大部分时间都在学习理论的知识，所以对数据库设计不是很了解。而学校提供的这次实践机会使我收获颇多，从中也发现了许多不足，让我们找到了以后学习的方向。

通过努力，我们组设计出了一个学籍管理的数据库系统，这个系统可以帮助用户更好、更快、更有效地管理学生的学籍问题。在这个系统中，我们主要实现了的功能有能够完成新、老生信息的输人、修改、插人、删除等工作，可以按照特定的信息进行查找，并按照特定的要求进行排序，可以对老生的信息进行备份，便日后查询，学生成绩的输入、修改、删除等

35