关于adoquery数据更新问题（sql数据库--多表）（100分）

Question

问题如下：
表A字段   MATERIAL（CHAR主键）MAX_STORE （float） MIN_STORE（float）CUR_STORE(float当前库存) AVG_PRICE （money）  TOTAL_PRICE（money）表B DEPT（入库部门）MATERIAL  NUM（数量）  S_PRICE（单价）
TOTAL_PRICE（总价）
  
   现在我要插入一条表B的记录：要求能够马上更新库存表里面对应MATERIAL的
CUR_STORE(float当前库存) AVG_PRICE （money）  TOTAL_PRICE（money）
  A 的 CUR_STORE是加上表B的NUM   TOTAL_PRICE是 A.TOTAL_PRICE+B.TOTAL_PRICE
AVG_PRICE 是求平均库存价格！！！
   另外就是MAX_STORE （float） MIN_STORE（float）的问题，要求能够立刻做到自动报警（低于MIN，高于MAX时）！
最后我想问一下各位，不通过存储过程能否的到query查询结果（唯一）的任何一个字段的值并且赋值给某个变量！！
    先谢谢各位大侠都能来参与这个问题，要是有谁能够给出这几个问题的完全答案的话，总共有100分相送，多劳多得，送完为止！！

Answer 1

方法：函数1：
//从表A获得某个字段的值
function Get_Value_A(MATERIAL,Field_A:string):Double;函数2：
//从表B获得某个字段的值
function Get_Value_B(MATERIAL,Field_B:string):Double;函数3：
//写入表A
function Save_Value_A(MATERIAL,Field_A:string;Value_A:Double):Boolean;函数4：
//写入表B
function Save_Value_B(MATERIAL,Field_B:string;Value_B:Double):Boolean;...{
  A 的 CUR_STORE是加上表B的NUM   TOTAL_PRICE是 A.TOTAL_PRICE+B.TOTAL_PRICE
AVG_PRICE 是求平均库存价格！！！}无非是读出、计算、写入。{
   另外就是MAX_STORE （float） MIN_STORE（float）的问题，要求能够立刻做到自动报警（低于MIN，高于MAX时）！}Select * From Table_A Where Material='材料' and ( CUR_STORE<MIN_STORE or CUR_STORE>MAX_STORE)if adoquery.eof=false then showmessage('库存报警');