那位好心的兄弟知道delphi7+crystal report 开发？发个例子给我好吗？

Question

刚面试一个公司，是用delphi7开发水晶报表，我没有做过啊！希望各位大哥帮我
指点指点好吗？发个例子给我好吗？([email protected]）

Answer 1

你們公司要用啊？ 其實我在delphi園地下載了個水景forDelphi的控件  我都沒有裝上去還是用QuictReport 和FastReport

Answer 2

frReport1.FindObject('YanSe1').Memo.Text := ys1;
  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的代码