富有难度但又很实用有意义的问题(100分)

  • 主题发起人 主题发起人 lisongmagic
  • 开始时间 开始时间
L

lisongmagic

Unregistered / Unconfirmed
GUEST, unregistred user!
表按bh（编号）字段分等级层次类似树一样的显示出来。形象的说那就是把表用树的形式
显示出来，但每个树节点用的是图形，在这些图形上放置lable或其他什么显示组件，
以用来显示bh（编号），xm（姓名），zc（职称）等字段。
bh（编号）字段是这样取值的，01，02，0101，0102，0201，0202，0203，010102，010103
等等，结果用来显示的树，其第一层bh（编号）是01，02等长度为二的，其第二层bh（编号）是0101，0102，0103等长度为四的，以此类推。（01直到99，不会有100的，编号长度
的递增都是两位数的，因为实际情况至多可能就十来个分支。）
这个问题我犯难了，恳请高手、大侠赐教。
 
不知道你要问什么
如果你这些东西是放在表里的,你的编号表达有问题,
树形结构在数据库里的表达应该是
编号 上级编号 姓名 职称
这样多少个分支都OK
 
同意楼上的，不太明白楼主的意思 。[:)]
 
不好意思，是我没有表达清楚。这些数据是在两处显示，一处是在pagecontrol的第一个版面中的dbgrid显示且可编辑，另一处是在pagecontrol的另一个版面显示不可编辑，但和第一个版面中dbgrid显示的数据是一致的，但此处不是用dbgrid显示数据，而是用（不管你用什么，总之要用树的形式表示出来，注意是树的形式，形式），然后这个版面显示的内容包括形式可以保存为jpeg格式的图片文件。如下：
01 02
/ / / | /
0101 0102 0201 0202 0203
以此类推，每个树节点不光有编号字段，而且还要把姓名，职称显示在相应的编号上。
最后把这种显示导出为jpeg文件。

恳请各路大侠，神仙搭救，小弟急！！
 
凌霄图像批处理专家是一款图片批处理工具，它集批量图片格式转换、批量图片修改处理、批量重命名、批量调整尺寸、批量晒图导出、创建EXE文件、创建PDF文件于一体的图片批处理系统。凌霄图像批处理专家提供将近30种图片修改处理脚本命令（如调整亮度等）供您任意组合使用！她还可以让您轻松的将任意多的图像(图片)文件生成一个EXE或PDF文件，并提供多达150种的显示效果，方便您欣赏自己的图片，并轻易实现与家人、朋友分享！她支持多达11种（BMP， JPG，PNG， EXIF， GIF， WMF，ICO， TGA， PCX，TIFF， PPM ）的基本图片格式输出。如果加上与他们等价的格式，则支持的打开图片类型超过30种。而且所有这些功能，您都可以在Windows资源管理器中通过右键菜单轻松使用。
下载地址：www.flyingspace.com
 
to rtl :
你的回答等于没说，哎！！！
 
开一个窗口,把以上东西直接画在窗体上,然后抓图,存为JPEG图片
当然,其中过程比较麻烦,我也不知道如何做出来
 
to 一条大鱼
谢谢你，你的方法我也考虑过，可能比较麻烦；但抓图是不可取的，抓屏幕不行，
抓活动的窗体也不行，因为肯定把标题栏，边框等什么也抓进去了，影响美观，而且
图象也不会怎样清晰；同时这个版面显示的不仅要能导出为jpeg，而且还要提供
能复制到剪贴版功能。
不过谢谢你，到时会给你分的；
顺便问一下，如何抓当前活动的界面，既模拟Alt + Printscreen 键，谢谢了，
最好能给出代码
 
http://www.delphibbs.com/delphibbs/dispq.asp?lid=366108
你上全文检索搜搜吧
应该不需要在窗体上画
另外再把题目改为如何在内存里生成jpeg图像可能会得到你想要的答案
 
哎，谁能帮我搞定这问题啊，痛死我了
 
唉，这么多天了 ，还没有人来 帮我 搞定。唉，大富翁得 高手都 哪去了 啊 ，
是不 是delphi真得 没前途了 ，高手们都去搞c++和 java了 ？
唉。。。。。。。。。。。。。。。。。。。。
 
使用TImage或者TPaintBox的Canvas来绘制
然后再SaveToFile
 
抓图的话用canvas.copyrect可以实现的
 
用Ttreeview控件不就行了吗？
 
还是没搞定啊，何日能搞定啊
 
我好痛苦啊
 
直接在Timage.canvas 上画 不可以吗？ 画好后，assign 到 Tjpeg 控件里。 那控件本身带有存文件和剪切板方法。至于在canvas上画图的资料到处都是。
var

Image:TJpegImage;
overwrite:boolean;
begin
Image:=TJpegImage.Create;
Image.Assign(Image_photo.Picture.Bitmap);//Image_photo 为你画好的TImage
Image.SaveToStream(MM);
Image.SaveToFile('fil.jpg');//存到文件
Image.SaveToClipboardFormat(...);//存到剪切板
finally
Image.Free;
end;
end;
 
唉，大富翁得 高手都 哪去了 啊 ，
是不 是delphi真得 没前途了 ，高手们都去搞c++和 java了 ？
 
- 01
|- 0101 bh（编号），xm（姓名），zc（职称）
|- 0102 bh（编号），xm（姓名），zc（职称）
- 02
|- 0201 bh（编号），xm（姓名），zc（职称）
|- 020101 bh（编号），xm（姓名），zc（职称）

这种样用 Canvas操作不是很难，不知道能不能达到你的要求，在 Canvas 上写几个字画几跟线就可以了，可以保存为jpeg，也可以复制到剪贴版
 
您必须登录或注册才可回复。

Similar threads

S
[教程]使用 Delphi 获取当前操作系统的时区
回复
0
查看
992
swish
S
D
[原]2015-07-06：发布OrangeUI For FMX 1.50
回复
0
查看
934
DelphiTeacher的专栏
D
D
[原]2015-07-06：发布OrangeUI For FMX 1.50
回复
0
查看
727
DelphiTeacher的专栏
D
D
[原]2015-07-06：发布OrangeUI For FMX 1.50
回复
0
查看
688
DelphiTeacher的专栏
D
S
[转]ClientDataSet加上TDataSetProvider的数据保存问题
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
后退
顶部