第５期 杨辉：档案管理数据库系统中的图片存取 ５１ ＷＥＢ应用程序、桌面应用程序和移动应用程序， ＶＢ．ＮＥＴ、ＶＣ＋＋．ＮＥＴ、ＶＣ｝｝．ＮＥＴ、ｖｊ｝｝．ＮＥＴ、 法，一种是把文字信息和图像信息分开保存；即 把文字信息保存在数据库表中，把图像信息保存 在指定的文件夹下，在数据库表中只保存图像文 件的存储路径和文件名，对图片的存取则根据图 像文件的存储路径和文件名来进行，这种方法编 ＡＳＰ．ＮＥＴ都使用相同的集成开发环境（ＩＤＥ）， 该环境允许它们共享工具并有助于创建混合语言 解决方案。ＶＢ．ＮＥＴ是最流行的应用软件开发工 具之一，具有功能强大、控件丰富、编程简单， 程简单，但操作不方便，图像信息不安全，不适 合保存重要的图像信息；另一种方法是把文字信 方便、快捷地开发图形用户界面的特性，因此用 ＳＱＬ Ｓｅｒｖｅｒ ２０００和ＶＢ．ＮＥＴ开发信息管理系统是 众多开发人员的首选。 １．１数据库表的创建 根据用户需要管理的信息创建用户数据库表， 在需要保存图片表中，增加一个“图片”字段， 数据类型设定为Ｉｍａｇｅ。由于该类型存储的是可 变长度的二进制数据，因此不能直接把图像数据 存储到Ｉｍａｇｅ字段，要先把图像数据转换成二进 制数据，再把二进制数据存储到Ｉｍａｇｅ字段。 １．２数据类型的转换 当获取图片的图像数据并把其调入内存后， 利用ＶＢ．ＮＥＴ提供的ＭｅｍｏｒｙＳｔｒｅａｍ类把图像数据 转换成可变长度的二进制数据。再把该可变长度 的二进制数据保存到数据库表中的Ｉｍａｇｅ数据类 型字段，数据的长度与实际图片的长度相同。 １．３方案特点 在过去的信息管理系统中，图片数据和文字 数据是分开保存的，数据库表中只保存文字数据 和图片的路经及文件名，而图片信息则以图像文 件的形式保存在其它地方，使得对数据的管理很 不方便，同时安全性和可靠性也不能保证，无关 用户进入计算机后，可轻易获得图片信息，如身 份证复印件等。采用本方案后，数据库表中可同 时保存文字数据和图片数据，通过数据库的权限 设置，无关用户进入计算机后不能轻易获得文字 和图片数据信息，而且在一条数据记录上保存文 字和图片数据，因此数据的安全性和可靠性得到 了保障。 该方案解决了数据库中存储图像数据的问题， 提高了信息管理系统的应用功能和范围。由于图 片的保存是一个独立的过程，在其它的应用系统 开发中可以方便的应用，提高了信息系统开发的 效率。 ２图像的保存 在信息管理系统中，保存图像一般有两种方 息和图像信息一起保存在数据库表中，直接在数 据库中对文字和图像进行操作，这种方法编程复 杂，但操作简单，数据信息安全。本文所讨论的 为后者。 ２．１图像的保存 在保存数据信息时，由于ＶＢ．ＮＥＴ中的Ｃｏｍ— ｍａｎｄＴｅｘｔ对象使用ＳＱＬ语言时Ｉｎｓｅｒｔ语句不支持 可变长度的二进制数据和变量，在插入文字数据 的同时不能插入图像数据，因此图像数据另外利 用ＡＤＯ．ＮＥＴ的Ｃｏｍｍａｎｄ．Ｐａｒａｍｅｔｅｒｓ．ａｄｄ对象添 加进去。在保存图片前，要先保存相关的数据， 否则保存图片操作将找不到相关的纪录，操作失 败。 在教师管理系统中的教师基本情况窗体中创 建一个图片控件（控件名为：Ｐｉｃ—ｊｂｑｋ—ｔｐ），以 用来显示图片，当点击“插入图片”按钮时，通 过打开文件对话框选择所需图片，插入到图片框 中，如图１所示。 代码如下： Ｐｒｉｖａｔｅ Ｓｕｂ ｃｍｄ—ｊｂｑｋ—ｃｒｔｐ—Ｃｌｉｃｋ（ＢｙＶａｌ ｓｅｎｄｅｒ Ａｓ Ｓｙｓｔｅｍ．Ｏｂｊｅｃｔ，ＢｙＶａｌ ｅ Ａｓ Ｓｙｓｔｅｍ． ＥｖｅｎｔＡｒｇｓ）Ｈａｎｄｌｅｓ ｃｍｄ—ｊｂｑｋ—ｃｒｔｐ．Ｃｌｉｃｋ 教师基本情况插入照片 Ｄｉｍ ｐｉｃ Ａｓ Ｉｍａｇｅ Ｄｉｍ ｃｕｒｐａｔｈ，ｆｉｌｅｎａｍｅ Ａｓ Ｓｔｒｉｎｇ Ｉｆ ＯｐｅｎＦｉｌｅＤｉａｌ０ｇ１．ＳｈｏｗＤｉａｌｏｇ＝ＤｉａｌｏｇＲｅｓｕｌｔ． ＯＫ Ｔｈｅｎ ｐｉｃ＝Ｎｅｗ Ｂｉｔｍａｐ（ＯｐｅｎＦｉｌｅＤｉａｌｏｇ１．ＦｉｌｅＮａｍｅ） Ｐｉｃ—ｊｂｑｋ—ｔｐ．Ｉｍａｇｅ＝ｐｉｃ Ｅｎｄ Ｉｆ ｃｍｄ—ｊｂｑｋ—ｂｃｔｐ．Ｅｎａｂｌｅｄ＝Ｔｒｕｅ Ｅｎｄ Ｓｕｂ 当点击“保存图片”按钮时，把图片控件 （控件名为：Ｐｉｃ—ｊｂｑｋ—ｔｐ）中的图像文件转换为 可变长度的二进制流，放在数组变量ｍｙｉｍａｇｅｂｙｔｅ （）中，再通过调用过程ｓａｖｅｐｔ来保存图片。代码 维普资讯 http://www.cqvip.com ５２ 如下： 昆明冶金高等专科学校学报 Ｄｉｍ ｍｙｓｑｌ Ａｓ Ｓｔｒｉｎｇ Ｉｆ ｉｄ０＝０ Ｔｈｅｎ ２００７年９月 ｍｙｓｑｌ＝”ｕｐｄａｔｅ”＋ＣＳｔｒ（ｍｙｔａｂｌｅ）＋”ｓｅｔ照 片＝＠ｐｉｃｔｕｒｅ ｗｈｅｒｅ身份证号＝＠ｉｄ” Ｅｌｓｅ ｍｙｓｑｌ＝”ｕｐｄａｔｅ”＋ＣＳｔｒ（ｍｙｔａｂｌｅ）＋”ｓｅｔ 照片＝＠ｐｉｃｔｕｒｅ ｗｈｅｒｅ身份证号＝＠ｉｄ ａｎｄ ｉｄ＝” 图１ 教师管理系统中的教师基本情况窗体 Ｃ ｎ Ｐｒｉｖａｔｅ Ｓｕｂ ｃｍｄｅ —ｊｂｑｋ—ｂｃｔｐ—Ｃｌｉｃｋ（ＢｙＶａｌｎ Ｄ ｓｅｎｄｅｒ Ａｓ Ｓｙｓｔｅｍ．Ｏｂｊｅｃｔ，ＢｙＶａｌ ｅ Ａｓ Ｓｙｓｔｅｍ．Ｅｖｅｎ—ｒ ｒ ｒ ｔＡｒｇｓ）Ｈａｎｄｌｅｓ ｃｍｄ—ｊｂｑｋ—ｂｃｔｐ．Ｃｌｉｃｋ ｒ Ｖ， 教师基本情况保存照片 Ｃ ｒＯ ｒ Ｄｉｍ ｍｙｓｔｒｅａｍ Ａｓ Ｎｅｗ ＭｅｍｏｒｙＳｔｒｅａｍ‘定义内 存流变量 Ｐｉｃ—ｊｂｑｋ—ｔｐ．Ｉｍａｇｅ．Ｓａｖｅ（ｍｙｓｔｒｅａｍ，Ｐｉｃ— ｊｂｑｋ—ｔｐ．Ｉｍａｇｅ．ＲａｗＦｏｒｍａｔ）’把图片框中的图像 文件转换为二进制内存流数据 Ｄｉｍ ｍｙｉｍａｇｅｂｙｔｅ（）Ａｓ Ｂｙｔｅ＝ｍｙｓｔｒｅａｍ．Ｇｅｔ— Ｂｕｆｆｅｒ‘获取二进制流 ｍｙｓｔｒｅａｍ．Ｃｌｏｓｅ（） Ｄｉｍ ｂｉａｏ Ａｓ Ｓｔｒｉｎｇ＝”ｊｓｊｂｑｋ”’要保存图片 的表名 ｓａｖｅｐｔ（ｂｉａｏ，ｍｙｉｍａｇｅｂｙｔｅ，ｉｄ，０）‘调用保存 图片过程 Ｅｎｄ Ｓｕｂ 过程ｓａｖｅｐｔ根据身份证号在数据表的对应记 录中的“照片”字段中保存图片。过程ｓａｖｅｐｔ有 四个参数：ｍｙｔａｂｌｅ为要保存图片的数据库表名 （字符型）；ｍｙｔｐ为图像文件的二进制流（Ｂｙｔｅ 型）；ｉｄ为身份证号（字符型）；ｉｄ０为第二标识 符（整形）。由于教师有多次学习进修阶段，只 用身份证号不能准确定位数据记录，因此要用第 二标识符来辅助定位。代码如下： Ｐｕｂｌｉｃ Ｓｕｂ ｓａｖｅｐｔ（ＢｙＶａｌ ｍｙｔａｂｌｅ Ａｓ Ｓｔｒｉｎｇ， ＢｙＶａｌ ｍｙｐｔ（）Ａｓ Ｂｙｔｅ，ＢｙＶａｌ ｉｄ Ａｓ Ｓｔｉｒｎｇ，ＢｙＶａｌ ｉｄ０ Ａｓ Ｉｎｔｌ６）保存图片 Ｔｒｙ ＋Ｃｈｒ（３９）＋ＣＳｔｒ（ｉｄ０）＋Ｃｈｒ（３９） Ｅｎｄ Ｉｆ Ａｓ Ｎｅｗ ＳｑｌＣｏｍｍａｎｄ（ｍｙｓｑｌ， Ｗｉｔｈ ｍｙｃｏｍ ．Ｐａｒａｍｅｔｅｒｓ．Ａｄｄ（Ｎｅｗ ＳｑｌＰａｒａｍｅｔｅｒ（”＠ｐｉｃ— ｔｕｒｅ”，ＳｑｌＤｂＴｙｐｅ．Ｉｍａｇｅ））．Ｖａｌｕｅ＝ｍｙｐｔ ．Ｐａｒａｍｅｔｅｒｓ．Ａｄｄ（Ｎｅｗ ＳｑｌＰａｒａｍｅｔｅｒ（”＠ｉｄ”， ＳｑｌＤｂＴｙｐｅ．ＮＶａｒＣｈａｒ，１８））．Ｖａｌｕｅ＝ｉｄ ．Ｃｏｎｎｅｃｔｉｏｎ．Ｏｐｅｎ（） ．ＥｘｅｃｕｔｅＮｏｎＱｕｅｒｙ（） ．Ｃｏｎｎｅｃｔｉｏｎ．Ｃｌｏｓｅ（） ＭｅｓｓａｇｅＢｏｘ．Ｓｈｏｗ（”照片已被成功保存！”，” 保存照片提示”，ＭｅｓｓａｇｅＢ０ｘＢｕｔｔ０ｎｓ．ＯＫ，Ｍｅｓｓａｇｅ— Ｂｏｘｌｃｏｎ．Ｉｎｆｏｒｍａｔｉｏｎ） Ｅｎｄ Ｗｉｔｈ Ｃａｔｃｈ ｅｘ Ａｓ Ｅｘｃｅｐｔｉｏｎ ＭｅｓｓａｇｅＢｏｘ．Ｓｈｏｗ（”保存照片失败！”，”保 存照片提示”，ＭｅｓｓａｇｅＢ０ｘＢｕｔｔ０ｎｓ．ＯＫ，Ｍｅｓｓａｇｅ— Ｂｏｘｌｃｏｎ．Ｉｎｆｏｒｍａｔｉｏｎ） Ｅｎｄ Ｔｒｙ Ｅｎｄ Ｓｕｂ 当保存图片成功时，提示“照片已被成功保 存！”；当保存图片失败时，提示“保存照片失 败！”。 ２．２显示数据库中的图像数据 显示数据库中的图像数据是保存图像数据的 逆过程，即把数据库表字段中的二进制数转换为 内存的二进制流，再把内存流的数据转换为图像 数据放到图片框中。代码如下： Ｐｒｉｖａｔｅ Ｓｕｂ Ｃｍｂ—ｊＳＣＸ—ｊｓｘｍ—ＳｅｌｅｃｔｅｄＩｎｄｅｘ— Ｃｈａｎｇｅｄ（ＢｙＶａｌ ｓｅｎｄｅｒ Ａｓ Ｏｂｊｅｃｔ，ＢｙＶａｌ ｅ Ａｓ Ｓｙｓ— ｔｅｍ。ＥｖｅｎｔＡｒｇｓ）Ｈａｎｄｌｅｓ Ｃｍｂ—ｊＳＣＸ—ｊｓｘｍ。Ｓｅｌｅｃｔ— ｅｄＩｎｄｅｘＣｈａｎｇｅｄ 选择教师姓名后，填充陔教师的基本情况 Ｐｕｂｌｉｃ ｃｎｎ Ａｓ Ｎｅｗ ＯｌｅＤｂ．ＯｋＤｂＣ０ｎｎｅｃｔｉ０ｎ（” 维普资讯 http://www.cqvip.com 第５期 杨辉：档案管理数据库系统中的图片存取 ５３ Ｐｒｏｖｉｄｅｒ＝ｓｑｌｏｌｅｄｂ；Ｄａｔａ Ｓｏｕｒｃｅ＝．；Ｉｎｔｅｇｒａｔｅｄ Ｓｅ— ｃｕ￣ｔｙ＝ＳＳＰＩ；Ｉｎｉｔｉａｌ Ｃａｔａｌｏｇ＝教师管理”） Ｄｉｍ ｍｙｓｑｌ Ａｓ Ｓｔ６ｎｇ ｍｙｓｑｌ＝”ｓｅｌｅｃｔ ｆｒｏｍ ｊｓｊｂｑｋ ｗｈｅｒｅ姓名＝” ”’＆Ｃｍｂ—ｊＳＣＸ～ｊＳＸＥ．Ｔｅｘｔ＆” ａｎｄ教研室＝ ＆”“’＆Ｃｍｂ—ｊＳＣＸ—ｊｙｓ．Ｔｅｘｔ＆”“’ Ｄｉｍ ｃｏｎ Ａｓ Ｎｅｗ ＯｌｅＤｂＣｏｍｍａｎｄ ｃｏｎ．Ｃｏｎｎｅｃｔｉｏｎ＝ｃｎｎ ｃｏｎ．ＣｏｍｍａｎｄＴｅｘｔ＝ｍｙｓｑｌ Ｉｆ ｃｎｎ．Ｓｔａｔｅ＝ＣｏｎｎｅｃｔｉｏｎＳｔａｔｅ．Ｃｌｏｓｅｄ Ｔｈｅｎ ｃｎｎ． Ｏｐｅｎ（） ｄｒ＝ｃｏｎ．ＥｘｅｃｕｔｅＲｅａｄｅｒ Ｗｈｉｌｅ ｄｒ．Ｒｅａｄ ｔｘｔ—ｊｂｑｋ—ｉｄ．Ｔｅｘｔ＝ｄｒ．Ｉｔｅｍ（”身份证号”） ｉｄ＝ｄｒ．Ｉｔｅｍ（”身份证号”） ｔｘｔ—ｊｂｑｋ—ｎａｍｅ．Ｔｅｘｔ＝ｄｒ．Ｉｔｅｍ（”姓名”） ｊｓｎａｍｅ＝ｄｒ．Ｉｔｅｍ（”姓名”） Ｃｏｍ—ｊｂｑｋ—ｘｂ．Ｔｅｘｔ＝ｄｒ．Ｉｔｅｍ（”性另０”） （其它字段类似省略） Ｃｏｍ—ｊｂｑｋ—ＸＷ．Ｔｅｘｔ＝ｄｒ．Ｉｔｅｍ（”学位”） Ｉｆ ｄｒ．ＩｓＤＢＮｕｌｌ（１８）＝Ｔｒｕｅ Ｔｈｅｎ Ｐｉｃ—ｊｂｑｋ—ｔｐ．Ｉｍａｇｅ＝Ｎｏｔｈｉｎｇ Ｅｌｓｅ Ｄｉｍ ｍｙｐｉｃｔｕｒｅｂｙｔｅ（）Ａｓ Ｂｙｔｅ＝ＣＴｙｐｅ（ｄｒ．Ｉｔｅｍ （１８），Ｂｙｔｅ（）） Ｄｉｍ ｍｓｔｒｅａｍ Ａｓ Ｎｅｗ ＭｅｍｏｒｙＳｔｒｅａｍ（ｍｙｐｉｃｔｕｒｅ— ｂｙｔｅ） ｉｃ—ｊｂｑｋ—ｔｐ．ＳｉｚｅＭｏｄｅ＝ＰｉｃｔｕｒｅＢｏｘＳｉｚｅＭｏｄｅ． ＳｔｒｅｔｃｈＩｍａｇｅ Ｐｉｃ—ｊｂｑｋ—ｔｐ．Ｉｍａｇｅ＝Ｉｍａｇｅ．ＦｒｏｍＳｔｒｅａｍ （ｍｓｔｒｅａｍ） ｍｓｔｒｅａｍ．Ｃｌｏｓｅ（） Ｅｎｄ Ｉｆ Ｅｎｄ Ｗｈｉｌｅ ｄｒ．Ｃｌｏｓｅ（） ｃｎｎ．Ｃｌｏｓｅ（） ｊｓｊｂｑｋｓｈｏｗ（０） ｂｕｔｔ（１，１，１，１，１） ｃｍｄ—ｊｂｑｋ—ｂｃｔｐ．Ｅｎａｂｌｅｄ＝Ｆａｌｓｅ ＴａｂＣｏｎｔｒｏｌ１．ＳｅｌｅｃｔｅｄＴａｂ＝ＴａｂＰａｇｅ１ Ｅｎｄ Ｓｕｂ ３结语 本文介绍了图像文件在ＳＱＬ Ｓｅｒｖｅｒ数据库中 的存储和显示的方法，并把存储方法做成一个过 程，在其它的应用程序中也可以调用，以在使用 时提供方便。需要注意的是，在保存图片前要先 保存相关的数据，否则在保存图片操作时将找不 到相关的纪录，操作失败。 本文中的程序已在教师管理信息系统中用 ＶＢ．ＮＥＴ实现，测试运行正常，对数据库的操作 运行速度也较快，有一定的实用价值；另外，对 ＳＱＬ Ｓｅｒｖｅｒ数据库的图像操作也可以把存取操作。 做成ＳＱＬ Ｓｅｒｖｅｒ数据库的存储过程来实现，方法 类似。本文叙述的程序中，有部分代码内容与图 像操作无关而被省略，在使用时只需根据实际情 况参照给出的代码即可。 参考文献： ［１］罗斌．Ｖｉｓｕａｌ Ｂａｓｉｃ．ＮＥＴ精彩编程实例集锦［Ｍ］．北 京：中国水利水电出版社。２００６． ［２］章立民．Ｖｉｓｕａｌ Ｂａｓｉｃ２００３—２００５开发秘诀与范例大全 ［Ｍ］．北京：电子工业出版社，２００５． ［３］王秀红，刘造新．Ｖｉｓｕａｌ Ｂａｓｉｃ．ＮＥＴ程序设计教程与 实训［Ｍ］．北京：北京大学出版社，２００６． ［４］杜兆将，郭鲜凤，刘占祥．ＳＱＬ Ｓｅｒｖｅｒ数据库管理与开 发教程与实训［Ｍ］．北京：北京大学出版社，２００６． ［责任编辑：贾朝光］
因篇幅问题不能全部显示，请点此查看更多更全内容