2024年6月21日发(作者：)

电脑编程技巧与维护　

控件名　属性名　属性值　备注　

ＩＤ　ｓｔｕＵｐｄ　

Ｂｕｔｔｏｎ２　

Ｔ　ｘｔ　更新　

ＩＤ　ｓｔｕＣａｎｃｅｌ　

Ｂｕｔｔｏｎ３　

Ｔ　ｘｔ　取消　

ＩＤ　ｓｔｕＮｅｘｔ　

Ｂｕｔｔｏｎ４　

Ｔｅｘｔ　下一条　

３页面的实现　

３．１访问数据库的ｃｏｎｎｅｃｔｉｏｎ对象的处理　

在连接数据库时．需要创建一个ｃｏｎｎｅｃｔｉｏｎ对象来连接数　

据库，为了优化代码，因此在ｗｅｂ．ｃｏｎｆｉｇ文件中设置了一个　

ｃｏｎｎｅｃｔｉｏｎＳｔｒｉｎｇｓ节点，因为连接Ａｃｃｅｓｓ数据库需要考虑数据　

库的所在的位置，因此在本节点中添加了“ＤＢＣｏｎｎＳｔｒ”，用　

来存放连接字符串的前半部分，　“ＤＢＣｏｎｎＳｔｒＰａｔｈ”用来存放　

数据库的相对位置。　

＜ｃｏｎｎｅｃｔｉｏｎＳｔｒｉｎｇｓ＞　

＜ａｄｄ　ｎａｍｅ＝”ＤＢＣｏｎｎＳｔｒ”ｃｏｎｎｅｃｔｉｏｎＳｕｉｎｇ＝”ｐｒｏｖｉｄｅｒ＝　

ｍｉｃｒｏｓｏｆｔ．ｊｅｔ．ｏｌｅｄｂ．４．０：ｄａｔａ　ｓｏｕｒｃｅ＝”，＞　

＜ａｄｄ　ｎａｍｅ＝”ＤＢＣｏｎｎＳｔｒＰａｔｈ”　ｃｏｎｎｅｃｔｉｏｎＳｕｉｎｇ＝”～，　

Ａｐｐ

＿

Ｄａｔａ／ｓｔｕｄｅｎｔＭＳ．ｍｄｂ”／＞　

＜／ｃｏｎｎｅｃｔｉｏｎＳｕｉｎｇｓ＞　

在页面的代码文件中．考虑到多处需要访问数据库，因　

此设定了一个全局的ｃｏｎｎｅｃｔｉｏｎ对象ｃｏｎｎ，再在Ｐａｇｅ—Ｌｏａｄ　０　

事件中对ｃｏｎｎ进行赋值。　

在更新成绩时，因为要获取旧成绩，所以定义了一个静　

态的全局变量ｏｌｄＳｃｏｒｅ，以此来保存旧成绩。　

因为使用的是Ａｃｃｅｓｓ数据库，所以需要引入相应的命名　

空间。　

ｕｓｉｎｇ　Ｓｙｓｔｅｍ．Ｄａｔａ．ＯｌｅＤｂ；　

全局变量如下：　

ｓｔａｔｉｃ　ｓＵｉｎｇ　ｏｌｄＳｃｏｒｅ；　

ＯｌｅＤｂＣｏｎｎｅｃｔｉｏｎ　ｃｏｎｎ＝ｎｅｗ　ＯｌｅＤｂＣｏｎｎｅｃｔｉｏｎ　０；　

Ｐａｇｅ

Ｌｏａｄ　０事件中获取连接字符串代码如下：　

ｃｏｎｎ．ＣｏｎｎｅｃｔｉｏｎＳｔｒｉｎｇ＝Ｓｙｓｔｅｍ．Ｃｏｎｆｉｇｕｒａｔｉｏｎ．Ｃｏｎｆｉｇｕｒａｔｉｏｎ—　

Ｍａｎａｇｅｒ．ＣｏｎｎｅｃｔｉｏｎＳｕｉｎｇｓ［＇｜ＤＢＣｏｎｎＳｔｒ”】．ＣｏｎｎｅｃｔｉｏｎＳｔｒｉｎｇ；　

ｃｏｎｎ．ＣｏｎｎｅｃｔｉｏｎＳｕｉｎｇ＋＝ＭａｐＰａｔｈ　ｆＳｙｓｔｅｍ．Ｃｏｎｆｉｇｕｒａｔｉｏｎ．Ｃｏｎ—　

ｉｆｇｕｒａｔｉｏｎＭａｎａｇｅｒ．ＣｏｎｎｅｃｔｉｏｎＳｕｉｎｇｓ［”ＤＢＣｏｎｎＳｔｒＰａｔｈ”】．Ｃｏｎ—　

ｎｅｃｔｉｏｎＳｔｒｉｎｇ）；　

３．２　Ｐａｇｅ

—

Ｌｏａｄ事件的实现　

Ｐａｇｅ

＿

ｏＬａｄ　０事件处理获取连接字符串外．还需要从学生　

表中筛选出不同的系别，添加到系别列表，从课程表中筛选　

出不同的课程名．添加到课程列表中。最后调用ＳｈｏｗＳｔｕＬｉｓｔ　

方法。　

访问数据库有两种方式．一种是离线连接方式，另一种　

是在线连接方式，由于版面原因，只显示离线连接方式，代　

码如下：　

ｉｆ（！ＩｓＰｏｓｔＢａｃｋ）　

｛　

ｏｌｄＳｃｏｒｅ＝””：　

＿６２　２０疆１醺３￣建１４羁与壤　；　

／璃线连接　

ＯｌｅＤｂＤａｔａＡｄａｐｔｅｒ　ｄａ＝ｎｅｗ　ＯｌｅＤｂＤａｔａＡｄａｐｔｅｒ　ｓｅ－　

ｌｅｃｔ　ｄｉｓｔｉｎｃｔ　ｄｅｐ　ｆｒｏｍ　ｓｔｕｄｅｎｔｓ”，ｃｏｎｎ）；　

ＤａｔａＳｅｔ　ｄｓ＝ｎｅｗ　ＤａｔａＳｅｔ　０；　

ｄａ．Ｆｉ１１（ｄｓ，”ｘｂ”）；　

ｆｏｒ（ｉｎｔ　ｉ＝０；ｉ＜ｄｓ．Ｔａｂｌｅｓ【．＇ｘｂ”】．Ｒｏｗｓ．Ｃｏｕｎｔ；ｉ＋＋）　

ｓｄｅｐ．Ｉｔｅｍｓ．Ａｄｄ（ｄｓ．Ｔａｂｌｅｓ【Ｉ．ｘｂ”】．Ｒｏｗｓ【ｉ］　［０】．　

ＴｏＳｔｒｉｎｇ（））；　

ｄａ．ＳｅｌｅｃｔＣｏｍｍａｎｄ＝ｎｅｗ　ＯｌｅＤｂＣｏｒｎｍａｎｄ（”ｓｅｌｅｃｔ　

ｃｎａｍｅ　ｆｒｏｍ　ｃｏｕｒｓｅｓ”，ｃｏｎｎ）；　

ｄａ．Ｆｉ１１（ｄｓ，”ｋｃ”）；　

ｆｏｒ（ｉｎｔ　ｉ＝０；ｉ＜ｄｓ．Ｔａｂｌｅｓ【¨ｋｃ”】．Ｒｏｗｓ．Ｃｏｕｎｔ；ｉ＋＋）　

ｃｏｕｒｓｅ．Ｉｔｅｍｓ．Ａｄｄ（ｄｓ．Ｔａｂｌｅｓ【－ｔ　ｋｃ”】．Ｒｏｗｓ［ｉ】　

【０】．ＴｏＳｕｉｎｇ（））；　

｝　

３．３　自定义方法ＳｈｏｗＳｔｕＬｉｓｔ的实现　

ＳｈｏｗＳｔｕＬｉｓｔ方法主要是显示当前系别的学生学号，并将　

学号添加到学号列表中。代码如下：　

ｐｕｂｌｉｃ　ｖｏｉｄ　ＳｈｏｗＳｔｕＬｉｓｔ（ｏｂｊｅｃｔ　ｓｅｎｄｅｒ，ＥｖｅｎｔＡｒｇｓ　ｅ）／，显　

，／示当前系部的学生的学号　

｛　

ｓｉｄ．Ｉｔｅｍｓ．Ｃｌｅａｒ　０；　

ｓｕｉｎｇ　ｓｑｌＳｔｒ＝’’ｓｅｌｅｃｔ　ｓｉｄ　ｆｒｏｍ　ｓｔｕｄｅｎｔｓ　ｗｈｅｒｅ　ｄｅｐ＝　＋　

ｓｄｅｐ．ＳｅｌｅｃｔｅｄＶａｌｕｅ＋…’’：　

ＯｌｅＤｂＤａｔａＡｄａｐｔｅｒ　ｄａ＝ｎｅｗ　ＯｌｅＤｂＤａｔａＡｄａｐｔｅｒ（ｓｑｌＳｔｒ，　

ｃｏｎｎ）：，倩线连接　

ＤａｔａＳｅｔ　ｄｓ＝ｎｅｗ　ＤａｔａＳｅｔ　０：　

ｄａ．Ｆｉｌｌ（ｄｓ，”ｘｈ”）；　

ｆｏｒ（ｉｎｔ　ｉ＝０；ｉ＜ｄｓ．Ｔａｂｌｅｓ［”ｘｈ”】．Ｒｏｗｓ．Ｃｏｕｎｔ；ｉ＋＋）　

ｓｉｄ．Ｉｔｅｍｓ．Ａｄｄ（ｄｓ．Ｔａｂｌｅｓ【＿．）【ｔｌ”】．Ｒｏｗｓ【ｉ】　【０］．　

ＴｏＳｔｒｉｎｇ　０）；　

ｓｔｕＰｒｅ．Ｖｉｓｉｂｌｅ＝ｆａｌｓｅ；　

ＳｈｏｗＯｔｈｅｒｌｎｆｏ（ｓｅｎｄｅｒ，ｅ）；刷用自定义方法显示学生　

｜｜成绩　

｝　

３．４自定义方法ＳｈｏｗＯｔｈｅｒｌｎｆｏ的实现　

本方法主要是显示当前学号当前课程的学生姓名和成绩，　

代码如下：　

ｐｕｂｌｉｃ　ｖｏｉｄ　ＳｈｏｗＯｔｈｅｒｌｎｆｏ（ｏｂｊｅｃｔ　ｓｅｎｄｅｒ，ＥｖｅｎｔＡｒｇｓ　ｅ）　

｛　

ｓＵｉｎｇ　ｓｑｌＳｔｒ＝”ｓｅｌｅｃｔ　ｆｒｏｍ　ｓｔｕＳｃｏｒｅ　ｗｈｅｒｅ　ｓｉｄ＝＠ｓｉｄ　

ａｎｄ　ｃｎａｍｅ＝＠ｃｎａｍｅ”：　

ＯｌｅＤｂＤａｔａＡｄａｐｔｅｒ　ｄａ＝ｎｅｗ　ＯｌｅＤｂＤａｔａＡｄａｐｔｅｒ（ｓｑｌＳｔｒ，　

ｃｏｎｎ）；ｆ，离线连接　

ｄａ．Ｓ　Ａｄｄ（”＠ｓｉｄ”，ＯｌｅＤｂ—　

Ｔｙｐｅ．Ｃｈａｒ，１０，”ｓｉｄ”）；　

ｄａ．ＳｅｌｅｃｔＣｏｍｍａｎｄ．Ｐａｒａｍｅｔｅｒｓ．Ａｄｄ　Ｃ＠ｃｎａｍｅ”，ＯｌｅＤｂ－　

Ｔｙｐｅ．Ｃｈａｒ，２０，”ｃｎａｍｅ”）；　

［”＠ｓｉｄ”］．Ｖａｌｕｅ＝ｓｉｄ．Ｓｅ－　

ｌｅｃｔｅｄＶａｌｕｅ；　

【．’＠ｃｎａｍｅ”】．Ｖａｌｕｅ＝　

ｃｏｕｒｓｅ．ＳｅｌｅｃｔｅｄＶａｌｕｅ；　

ＤａｔａＳｅｔ　ｄｓ＝ｎｅｗ　ＤａｔａＳｅｔ（）；　

ｄａ．Ｆｉｌｌ（ｄｓ，”ｃｘ”）；　

ｉｆ（ｄｓ．Ｔａｂｌｅｓ【．’ＣＸ”】．Ｒｏｗｓ．Ｃｏｕｎｔ＞ｏ）　

ＮＥＴＷ０ＲＫ　ＡＮＤ　Ｃ０ＭＭＵＮＩＣＡ　ⅡＯＮ　

｛　

ｓｎａｍｅ．Ｔｅｘｔ＝ｄｓ．Ｔａｂｌｅｓ［．｜ＣＸ”】．Ｒｏｗｓ【０］　

［２】　

ＴｏＳｔｒｉｎｇ　０；　

ｓｃｏｒｅ．Ｔｅｘｔ＝ｄｓ．Ｔａｂｌｅｓ【”ＣＸ”】．Ｒｏｗｓ［０】　

［３］　

ＴｏＳｔｒｉｎｇ（）；　

ｏｌｄＳｃｏｒｅ＝ｓｃｏｒｅ．Ｔｅｘｔ；　

｝　

ｅｌｓｅ　

｛　

ｄａ．Ｓｅｌｅｃ　Ｃｌｅａｒ　０；　

ｄａ．ＳｅｌｅｃｔＣｏｍｍａｎｄ．ＣｏｍｍａｎｄＴｅｘｔ＝”ｓｅｌｅｃｔ　ｓｉｄ，ｎａｍｅ　

ｆｒｏｍ　ｓｔｕｄｅｎｔｓ　Ｗｈｅｒｅ　ｓｉｄ＝＠ｓｉｄ”：　

．

ＡｄｄＷｉｔｈＶａｌｕｅ（　”　

＠ｓｉｄ”，ｓｉｄ．ＳｅｌｅｃｔｅｄＶａｌｕｅ）；　

ｄａ．Ｆｉ１１（ｄｓ，”ｓｔ”）；　

ｓｎａｍｅ．Ｔｅｘｔ＝ｄｓ．Ｔａｂｌｅｓ［”ｓｔ”］．Ｒｏｗｓ【０］　［１］．ＴｏＳｔｒｉｎｇ（）；　

ｓｃｏｒｅ．Ｔｅｘｔ＝…　：　

ｏｌｄＳｃｏｒｅ＝…’：　

）　

，／判断上一条和下一条按钮是否显示　

ｉｆ（ｓｉｄ．ＳｅｌｅｃｔｅｄＩｎｄｅｘ！＝ｓｉｄ．Ｉｔｅｍｓ．Ｃｏｕｎｔ—１）　

ｓｔｕＮｅｘｔ．Ｖｉｓｉｂｌｅ＝ｔｒｕｅ；　

ｅｌｓｅ　

ｓｔｕＮｅｘｔ．Ｖｉｓｉｂｌｅ＝ｆａｌｓｅ；　

ｉｆ（ｓｉｄ．Ｓｅｌｅｃｔｅｄｌｎｄｅｘ！＝０１　

ｓｔｕＰｒｅ．Ｖｉｓｉｂｌｅ＝ｔｒｕｅ；　

ｅｌｓｅ　

ｓｔｕＰｒｅ．Ｖｉｓｉｂｌｅ＝ｆａｌｓｅ；　

｝　

３．５更新功能的实现　

本功能用在线连接方式更简单，代码如下：　

ｓｔｒｉｎｇ　ｓｑｌＳｔｒ＝”ｓｅｌｅｃｔ　ｃｉｄ　ｆｒｏｍ　ｃｏｕｒｓｅｓ　ｗｈｅｒｅ　ｃｎａｍｅ＝　

＠ｃｎａｍｅ”：　

ｓｔｒｉｎｇ　ｎｅｗＳｃｏｒｅ＝ｓｃｏｒｅ．Ｔｅｘｔ；　

ｃｏｎｎ．Ｏｐｅｎ　０：，／在线连接　

ｓｔｒｉｎｇ　ｃｉｄｚ＝…’；　

ＯｌｅＤｂＣｏｍｍａｎｄ　ｓｑｌＣｍｄ＝ｎｅｗ　ＯｌｅＤｂＣｏｍｍａｎｄ（ｓｑｌＳｔｒ，ｃｏｎｎ）；　

ｓｑｌＣｍｄ．Ｐａｒａｍｅｔｅｒｓ．Ａｄｄ（”＠ｃｎａｍｅ”，ＯｌｅＤｂＴｙｐｅ．Ｃｈａｒ，２０，”　

ｃｎａｍｅ”）；　

ｓｑｌＣｍｄ．Ｐａｒａｍｅｔｅ￣［”＠ｃｎａｍｅ”】．Ｖａｌｕｅ＝ｃｏｕｒｓｅ．Ｓｅｌｅｃｔ－　

ｅｄＶａｌｕｅ；　

ＯｌｅＤｂＤａｔａＲｅａｄｅｒ　ｄｒ＝ｓｑｌＣｍｄ．ＥｘｅｃｕｔｅＲｅａｄｅｒ　０：　

ｉｆ（ｄｒ．Ｒｅａｄ（））　

ｃｉｄｚ＝ｄｒ［０］．ＴｏＳｔｒｉｎｇ　０．Ｔｒｉｍ　０；　

ｒｄ．Ｃｌｏｓｅ　０；　

ｉｆ（ｏｌｄＳｃｏｒｅ！＝ｎｅｗＳｃｏｒｅ＆＆ｏｌｄＳｃｏｒｅ＝＝…’），，插入新成绩　

｛　

ｓｑｌＣｍｄ．Ｐａｒａｍｅｔｅｒｓ．Ｃｌｅａｒ　０；　

ｓｑｌＣｍｄ．ＣｏｍｍａｎｄＴｅｘｔ＝”ｉｎｓｅｒｔ　ｉｎｔｏ　ｓｃｏｒｅｓ　ｖａｌｕｅｓ（　’＋　

ｓｉｄ．ＳｅｌｅｃｔｅｄＶａｌｕｅ＋…，　’＋ｃｉｄｚ＋…，”＋ｎｅｗＳｃｏｒｅ＋”）”；　

ｓｑｌＣｍｄ．ＥｘｅｃｕｔｅＮｏｎＱｕｅｒｙ　０；　

）　

ｉｆ（ｏｌｄＳｃｏｒｅ！＝ｎｅｗＳｃｏｒｅ＆＆ｏｌｄＳｃｏｒｅ！＝…’）／厦新成绩　

｛　

ｓｑｌＣｍｄ．Ｐａｒａｍｅｔｅ￣．Ｃｌｅａｒ（）；　

网络与通信　

ｓｑｌＣｍｄ．ＣｏｍｍａｎｄＴｅｘｔ＝。’ｕｐｄａｔｅ　ｓｃｏｒｅｓ　ｓｅｔ　ｓｃｏｒｅ－－”　

＋ｎｅｗＳｃｏｒｅ＋”ｗｈｅｒｅ　ｓｉｄ＝　”＋ｓｉｄ．ＳｅｌｅｃｔｅｄＶａｌｕｅ＋…ａｎｄ　ｃｉｄ＝　

＋ｃｉｄｚ＋…”：　

ｓｑｌＣｍｄ．ＥｘｅｃｕｔｅＮｏｎＱｕｅｒｙ　０；　

｝　

ｃｏｎｎ．Ｃｌｏｓｅ　０；　

３．６其他代码　

当重新选择系别，需要调用ＳｈｏｗＳｔｕＬｉｓｔ（ｓｅｎｄｅｒ，ｅ）方法重　

新显示学生学号；当重新选择课程，需要调用ＳｈｏｗＯｔｈｅｒｌｎｆｏ　

（ｓｅｎｄｅｒ，ｅ）重新显示成绩；当重新选择学号，需要调用　

ＳｈｏｗＯｔｈｅｒｌｎｆｏ（ｓｅｎｄｅｒ，ｅ）重新显示学生姓名和成绩。　

ｐｒｏｔｅｃｔｅｄ　ｖｏｉｄ　ｓｔｕＰｒｅ

＿

Ｃｌｉｃｋ（ｏｂｊｅｃｔ　ｓｅｎｄｅｒ，ＥｖｅｎｔＡｒｇｓ　ｅ）　

，／上一条按钮的功能实现　

｛　

ｉｎｔ　ｎｏｗｌｎｄｅｘ＝ｓｉｄ．ＳｅｌｅｃｔｅｄＩｎｄｅｘ；　

ｉｆ（ｎｏｗｌｎｄｅｘ＝０１　

｛　

ｓｔｕＰｒｅ．Ｖｉｓｉｂｌｅ＝ｆａｌｓｅ；　

Ｒｅｓｐｏｎｓｅ．Ｅｎｄ　０；　

｝　

ｎｏｗｌｎｄｅｘ＝ｎｏｗｌｎｄｅｘ—ｌ：　

ｓｉｄ．Ｓｅｌｅｃｔｅｄｌｎｄｅｘ＝ｎｏｗｌｎｄｅｘ；　

ＳｈｏｗＯｔｈｅｒｌｎｆｏ（ｓｅｎｄｅｒ，ｅ）；　

）　

ｐｒｏｔｅｃｔｅｄ　ｖｏｉｄ　ｓｔｕＮｅｘｔ

．＿

Ｃｌｉｃｋ（ｏｂｊｅｃｔ　ｓｅｎｄｅｒ，ＥｖｅｎｔＡｒｇｓ　ｅ）　

，，下一条按钮的功能实现　

｛　

ｉｎｔ　ｎｏｗｌｎｄｅｘ＝ｓｉｄ．Ｓｅｌｅｃｔｅｄｌｎｄｅｘ；　

ｉｆ（ｎｏｗＩｎｄｅｘ＝＝ｓｉｄ．Ｉｔｅｍｓ．Ｃｏｕｎｔ－１）　

｛　

ｓｔｕＮｅｘｔ．Ｖｉｓｉｂｌｅ＝ｆａｌｓｅ；　

Ｒｅｓｐｏｎｓｅ．Ｅｎｄ　０；　

｝　

ｎｏｗｌｎｄｅｘ＝ｎｏｗｌｎｄｅｘ＋ｌ：　

ｓｉｄ．Ｓｅｌｅｃｔｅｄｌｎｄｅｘ＝ｎｏｗＩｎｄｅｘ；　

ＳｈｏｗＯｔｈｅｒＩ￣ｏ（ｓｅｎｄｅｒ，ｅ）；　

｝　

４结语　

在功能的实现过程中，书中是创建了返回专业和插入学　

生成绩等存储过程来实现，而Ａｃｃｅｓｓ没有存储过程，因此在　

设计时，将部分功能在代码中直接实现，并创建了一个名为　

ｓｔｕＳｃｏｒｅ的查询．相应的ＳＱＬ语句如下：　

ＳＥＬＥＣＴ　ｓｔｕｄｅｎｔｓ．ｓｉｄ，ｃｏｕｒｓｅｓ．ｃｎａｍｅ，ｓｔｕｄｅｎｔｓ．ｎａｍｅ，ｓｃｏｒｅｓ．ｓｃｏｒｅ　

ＦＲ０Ｍ　ｃｏｕｒｓｅｓ　ＩＮＮＥＲ　Ｊ０ＩＮ　ｆ　ｓｔｕｄｅｎｔｓ　ＮＥＲ　Ｊ０ＩＮ　ｓｃｏｒｅｓ　

０Ｎ　ｓｔｕｄｅｎｔｓ．ｓｉｄ＝ｓｃｏｒｅｓ．ｓｉｄ）ＯＮ　ｃｏｕｒｓｅｓ．ｃｉｄ＝ｓｃｏｒｅｓ．ｃｉｄ；　

此查询被使用在ＳｈｏｗＯｔｈｅｒｌｎｆｏ方法中，根据此查询，可　

以搜索到当前学生当前课程的成绩。　

参考文献　

【１】周苏峡，李建利．Ｗｅｂ数据库应用实例教程．北京：清华　

大学出版社，北京交通大学出版社，２００８．　

｜