解决方案 »
- DBGrid中如何判断记录record变化了呢?
- 小问题,来者有分
- DBGrid焦点的问题
- 如何取得TShellListView控件选中的文件(夹)的路径,包括文件(夹)名?
- 请教版主及高手们:如何实现类似ACDSEE的ZIP文件内容浏览??谢谢!!!!
- 在Remote DataModule 中动态修改Connectionstring的值.----在线!
- 初学者小问题(3)
- 大家好:请问如何用Delphi6.0的安装盘里面的一个什么东西打包。谢意!
- 能否详细得讲讲缓冲区溢出!
- Delphi做的组件(DLL 或Exe)太大?怎么办?请指点
- 测试数据库服务器性能问题,出出主意,谢谢啦!急急急!
- fileExist 函数的问题
if yanse='' then
frReport1.FindObject('YanSe2').Memo.Text := '无'//copy(yanse,1,2);
else
frReport1.FindObject('YanSe2').Memo.Text := ys2;//copy(yanse,3,2);
frReport1.FindObject('YanSe3').Memo.Text := ys3;//copy(yanse,5,2);
frReport1.FindObject('PicOne').FillColor :=PicColor(ys1{copy(yanse,1,2)}) ;
frReport1.FindObject('PicTwo').FillColor :=PicColor(ys2{copy(yanse,3,2)}) ;
frReport1.FindObject('PicThree').FillColor :=PicColor(ys3{copy(yanse,5,2)}) ;
frReport1.FindObject('ZuoMoJu').Memo.Text :=cbZmh.Text ;
frReport1.FindObject('YouMoJu').Memo.Text :=cbYmh.Text ;
frReport1.FindObject('GangYin').Memo.Text :=Trim(EdtGangyin.Text);
frReport1.FindObject('LTiaoMa').Memo.Text := '00'+LMaterialCode ;
frReport1.FindObject('RTiaoMa').Memo.Text := '00'+RMaterialCode ;
frReport1.FindObject('LGuiGe').Memo.Text := cbLSpec.Text+'('+cbLLayer.Text+')'+cbLTexture.Text+cbLBrand.Text ;
frReport1.FindObject('RGuiGe').Memo.Text := cbRSpec.Text+'('+cbRLayer.Text+')'+cbRTexture.Text+cbRBrand.Text ;
// frReport1.FindObject('HuaWen').Memo.Text := ComboBox3.Text+'-'+ComboBox4.Text ;
frReport1.PrepareReport;
frReport1.ShowReport;给你一段fastReport的代码