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控件，代码格式：

Delphi(Pascal) code

  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;
[解决办法]
Delphi(Pascal) code
adoquery1.sql.text:='exec PAccbook 1,getdate(),''Acc_No''';adoquery1.open;
[解决办法]
探讨

不认识CxTextEditgride,应该类似Edit

Edit1.Text:=FloatToStr(Adoquery1.FieldByName('Today_money').AsFloat);