delphi 依据账号求余额

delphi 根据账号求余额
Table1
账号     日期                       收入                 支出 
A1        2011/6/10     1000           0
A1       2011/6/10      0              500
A2        2012/6/10     0              500

Table2
账号     日期                     余额
A1       2011/6/10
A1      2012/6/10
A2       2012/6/10

根据账号求每日的余额？ 如何在delphi中实现？
谢谢！
[解决办法]
条件查询即可

[解决办法]
使用TADOSTOREDPROC控件，代码格式：

  with ProcQuery do
   begin
     Close;
     ProcedureName := 'QueryStepDeatil';
     Parameters.Refresh;
     Parameters.ParamByName('@Acc_id').Value := 12 ;                      Parameters.ParamByName('@end_time').Value:=FormatDateTime('yyyymmdd235959',dtpEndDate.DateTime);
     Parameters.ParamByName('@Acc_No').Value := 'aa' ;

    open;

adoquery1.sql.text:='exec PAccbook 1,getdate(),''Acc_No''';
adoquery1.open;

SELECT  SUM(In_Money)-SUM(out_Money) FROM Db_AccBook
         WHERE   (Acc_id <=  t.Acc_id) and (Acc_Date<=t.Acc_Date)            
         ) AS Today_money