расчет стипендии в Delphi 7

[Wutang]

помогите пожалуйста наужно считать данные с БД и из ходя их этих данных расчитать стипедию если отценка отлично то к стипендии прибавляеться 30% если хорошо то 20% и если удавлетварительно то стипендия отсаеться стандартная не знаю как сделать

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, DB, ADODB, StdCtrls;

type
  TForm1 = class(TForm)
    DataSource1: TDataSource;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    Edit1: TEdit;
    procedure Edit1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Edit1Change(Sender: TObject);
var
 s,a:string;
begin
datasource1.DataSet:=ADOQuery1;
if trim(Edit1.Text)='' then
  begin
   adoquery1.SQL.Clear;
   adoquery1.SQL.Append('Select *');
   adoquery1.SQL.Append('From Òàáëèöà1');
   ADOQuery1.SQL.Append('order by  Ôàìèëèÿ;');
   ADOQuery1.Open;
   exit;
  end;
 s:='Where';
 s:=s+'(Ôàìèëèÿ like '+quotedstr('%'+Edit1.text+'%')+') or';
 if copy(s,length(s)-1,2)='or' then s:=copy(s,0,length(s)-2);
  adoquery1.SQL.Clear;
  adoquery1.SQL.Append('Select *');
   adoquery1.SQL.Append('From Òàáëèöà1');
if trim(Edit1.Text)<>'' then
  adoquery1.SQL.Append(s);
 ADOQuery1.SQL.Append('order by Ôàìèëèÿ;');
  ADOQuery1.Open;
  ADOQuery1.Active:=true;

end;

end.

вот весь код что есть вывел данные и сделал поиск по фамилии что и как нужно дописать что бы расчитывал. могу скрины предоставить если нужно

[Stilet]

   adoquery1.SQL.Append('Select *');
   adoquery1.SQL.Append('case [оценка]');
   adoquery1.SQL.Append(   when 5 then [степуха]+([степуха]/3)');
   adoquery1.SQL.Append(   when 4 then [степуха]+([степуха]/5)');
   adoquery1.SQL.Append(   else [степуха]');
   adoquery1.SQL.Append(  end;');

   adoquery1.SQL.Append('From Òàáëèöà1');
   ADOQuery1.SQL.Append('order by  Ôàìèëèÿ;');
   ADOQuery1.Open;

Идея понятна?

[Wutang]

даа вполне, спасибо большое выручили

[Wutang]

Сообщение от Stilet

   adoquery1.SQL.Append('Select *');
   adoquery1.SQL.Append('case [оценка]');
   adoquery1.SQL.Append(   when 5 then [степуха]+([степуха]/3)');
   adoquery1.SQL.Append(   when 4 then [степуха]+([степуха]/5)');
   adoquery1.SQL.Append(   else [степуха]');
   adoquery1.SQL.Append(  end;');

   adoquery1.SQL.Append('From Òàáëèöà1');
   ADOQuery1.SQL.Append('order by  Ôàìèëèÿ;');
   ADOQuery1.Open;

Идея понятна?

вот только я попробовал вставить поправил слегка только он у меня на When ругаеться не проходит

[eval]

так кривое вот и ругается

[Wutang]

Сообщение от eval

так кривое вот и ругается

а что там поправить нужн мб подскажете?а то горит программа уже все разобраться сам не могу

[Stilet]

только он у меня на When ругаеться не проходит

Еще бы )
Бездумное копирование кода приводит к ректальному истощению чакры.
Ты бы изучил текст ошибки повнимательнее тогда бы все прояснилось.

[Wutang]

Сообщение от Stilet

Еще бы )
Бездумное копирование кода приводит к ректальному истощению чакры.
Ты бы изучил текст ошибки повнимательнее тогда бы все прояснилось.

вот как выглядит сама программа,а сам код я пробовал менял на Edit ругался после изменений

[Stilet]

Ты вот что, давай бросай программирование. Не твое это.

   adoquery1.SQL.Append('Select *,');
   adoquery1.SQL.Append('case [отценка]');
   adoquery1.SQL.Append(   when 'отлично' then [сумма]+([сумма]/3)');
   adoquery1.SQL.Append(   when 'хорошо then [сумма]+([сумма]/5)');
   adoquery1.SQL.Append(   else [сумма]');
   adoquery1.SQL.Append(  end');
...

Если это опять даст тебе "ругаеться не проходит" то забудь и купи у препода ответ.

[Аватар]

Блин, точку с запятой точно не уберет после end