493333王中王开奖结果-王中王开奖一马中特

493333王中王开奖结果让不同类型的网络可以可靠地互相联接,王中王开奖一马中特拥有规模庞大的原创游戏,在这里您将享受的不一样快乐。

网络频道

当前位置:493333王中王开奖结果 > 网络频道 > Delphi实现在数据库中存取图像

Delphi实现在数据库中存取图像

来源:http://www.soniaLorenzana.com 作者:493333王中王开奖结果 时间:2019-11-12 07:38

本实例演示如何在数据库中存取图像文件。

在窗体中添加一个TImageList组件,并且为它添加几个图像文件。然后添加一个TToolBar组件,设置TToolBar组件的Images属性为TImageList组件,在TToolBar组件上右击,在弹出的快捷菜单中选择New Button项,为TToolBar组件添加几个按钮,并设置按钮的ImageIndex属性分别对应TImageList组件中的图像索引编号。最后向窗体上添加一个TPageScroller组件,设置它的AutoScroll属性值为True,设置Control属性为TToolBar组件,如果TToolBar组件的尺寸大于TPageScroller组件的尺寸,就会显示一个按钮。

图2 设计完成的数据库

图3 程序运行结果

本系统中需要设计一个新的基于Paradox 7的数据库Image.db,图2为设计完成的Image.db数据库。

王中王开奖一马中特 1

图4 程序运行结果

图1 主界面

最后通过下面的代码把Image.db数据库中存储的文件名字添加到窗体的TListBox组件中:

保存文件,然后按F9键运行程序,程序运行的初始画面如图2所示。

with Table1 do begin First; while not Eof do begin ListBox1.Items.Add(FieldByName(’Name’).AsString); Next; end; end;在程序运行过程中,如果用户在窗体的TListBox组件中选择了图像文件,程序会通过TTable组件的First方法把数据表中的第1条记录作为当前记录,然后通过一个循环来遍历数据库中的记录。如果某条记录中Name字段的内容和用户的选择相同,那么就把该记录中Data字段中的图像信息读取出来,并且把图像显示在窗体上的TImage组件上。代码如下:

在程序运行的过程中,鼠标移动到或按钮上时工具栏就会自动滚动以显示工具栏的其他部分,如图3所示。

王中王开奖一马中特,设置TTable组件的TableName属性为Image.db,Active属性为True。

本实例制作一个可以自动滚动的工具栏。

在程序运行初期,首先会判断Image.db数据库中是否存在记录,如果没有记录存在,那么就执行以下代码向Image.db数据库中添加“鸟.bmp”文件:

如果设置TPageScroller组件的AutoScroll属性值为False,那么在程序运行的过程中,只有单击或按钮时,工具栏才会自动滚动以显示工具栏的其他部分。

在TListBox组件中选中一项后,就会显示相对应的图像文件,如图4所示。

王中王开奖一马中特 2

王中王开奖一马中特 3

王中王开奖一马中特 4

本文由493333王中王开奖结果发布于网络频道,转载请注明出处:Delphi实现在数据库中存取图像

关键词: