报表问题，挺难。帮帮忙，大家

Question

怎么形成下面的形式啊？
酒水入账                100   20    30  
原材料入账              100   20    50  45   78   98
。。
。。
。。
怎么从多个表里获得数据？我这样写错了。
  begin
  close;
  sql.Clear;
  sql.Add('select jsrz.hj,yclrz.hj,dhprz.hj,gdzcrz.hj,twprz.hj from jsrz,yclrz,dhprz,gdzcrz,twprz');
  open;

Answer 1

你可以这样做 ： 用 TADOConnection 控件来连接数据库。再添加一个 TADOQuery 数据集控件 ，一个数据源控件 TDataSource 控件， 一个数据显示表格 TDBGrid 控件。设置TADOQuery控件的Connection属性设置成TADOConnection1 ，TDataSource控件的Dataset属性设置成TADOQuery1 . procedure TForm1.Button1Click(Sender: TObject);
begin
  with adoquery1 do
  begin
    close ;     with sql do 
      begin
        clear ; 
        add( 'select jsrz.hj , yclrz.hj , ... from jsrz,...');
      end ;    open ;  
  end ;
end;试试看...。

Answer 2

你这种实现很麻烦的，给你个参考方法吧，具体实现要看你自己的喽
  declare @s1 varchar(2000),
          @s2 varchar(2000),
          @s3 varchar(2000),
          @s4 varchar(2000),
          @s5 varchar(2000)  select @s1 = @s1 + ' ' + jsrz.hj as ShowText from jsrz --这里加上where条件
  union
  select @s2 = @s2 + ' ' + yclrz.hj as ShowText from yclrz--这里加上where条件
  union
  select @s3 = @s3 + ' ' + dhprz.hj as ShowText from dhprz--这里加上where条件
  union
  select @s4 = @s4 + ' ' + gdzcrz.hj as ShowText from gdzcrz--这里加上where条件
  union
  select @s5 = @s5 + ' ' + twprz'.hj as ShowText from twprz'--这里加上where条件  之所以这么写，是因为你的数据要求是获取所有表中此类数据的集合。建议你上sql版看看。

Answer 3

http://www.wave12.com/web/SigCon.asp?bCate=50&sCateName=%B9%A6%C4%DC%BD%E9%C9%DC&ID=173&CateName=wsReport4.5