Delphi的一道编程题

Question

1、在学生综合管理系统的查询窗体中，分别放置Ttable（或ADOTable、或TQuery）、Tdatasource、TDBgrid、Tedit1、Tcombox、Tmemo、TButton1、TButton2及 radiobutton组件若干个，其中TButton1实现查询功能，TButton2实现将学生成绩总分增加10%，假设所有组件的属性已经设置完毕且除TButton1、TButton1组件外，其他组件均已初始化，并且已经连接好数据库。
（1）请写出实现按学号、姓名、专业查询的TButton1（查询按钮）的事件代码。
（2）在学生信息表中，成绩总分的字段名为“成绩”、请写出实现将学生成绩总分增加10%的TButton2的事件代码。

Answer 1

var
  sqltext:string;
begin
//这里假设根据Combobox的选择来查询，而查询的内容是放在edit1里面的
  if combobox1.text='学号' then
    sqltext:='select * from tablename where 学号='''+Trim(edit1.text)+''''';
  //姓名、专业以此类推 
adoquery1.close;
adoquery1.text:=sqltext;
adoquery1.open;

Answer 2

procedure TForm1.Button2Click(Sender: TObject);
var
  i:Integer;
begin
  if not adoquery1.IsEmpty then
  begin
    adoquery1.First;
    for i:=1 to adoquery1.RecordCount do
    begin
      adoquery1.Edit;
      adoquery1.FieldValues['成绩']:=(1+0.1)*adoquery1.FieldValues['成绩'];
      adoquery1.Post;
      adoquery1.Next;
    end;  
  end;
end;
//有时候自己多看点书好处多