code2.txt

一个用数据库编写的学生信息管理系统！做课程设计的同学可以做为参考！

程序段02
该程序段利用游标实现多个记录的模糊查询

string name
string V1 ='A%'
DECLARE C1 CURSOR FOR          //定义光标，光标名为C1.
   SELECT name FROM auths
   WHERE author_code like : %V1;
OPEN C1;                       //打开光标，执行此光标对应的 SQL 语

lab1:
FETCH C1 INTO :name;          //取记录
if SQLCA.SQLCode=0 then
   if name="王达琳" then
        delete from auths      //删除“王达琳‘这条记录
         WHERE CURRENT OF C1;

   end if 

   if name="冯兆鸣" then
        update auths
        set nationality='汉族'    //修改”冯兆鸣“的民族
        WHERE CURRENT OF C1;
   end if
goto lab1                     //如果成功取出记录，则取下一条
end if