送分问题，快来呀

Question

var
 I: Integer;i := query1.Fields[0].AsInteger;

Answer 1

我是用adodateset
adodateset.commandtext:='select count(input_productquantity) from product_input';
adodateset.open;
i:=???
adodateset.close;
帮忙

Answer 2

adodateset.commandtext:='select count(input_productquantity) as aaa from product_input';<----
adodateset.open;
i:=adodateset.fieldbyname('aaa').asfloat;<----------
adodateset.close;

Answer 3

此时的i就是字段input_productquantity的和了吗

Answer 4

i := adodateset.Fields[0].AsInteger;

Answer 5

那么i是不是字段（input_productquantity）的和

Answer 6

select count(field) sssssss from table
i := adodataset.FieldByName('sssssss').asinteger

Answer 7

我问一下
application.messagebox('','',mb_okcancel)
它出来是默认项是ok，怎样设置它出来是cancel