RadioGroup и процедура ButtonClick

[Staziah2]

Добрый день! Я только начинаю в Delphi, создаю программу,практически доканчиваю,но к сожалению,никак не могу разобраться с RadioGroup. Дело в том что,надо в поле "Номер документа" человек вписал(например три цифры,не зная номера),а потом нажал примерно на RadioGroup " в конце",потом нажал на кнопку "Найти"(button1) и в таблице должны показаться результаты. Работаю в Делфи 7. Скины прилагаются. Буду благодарна очень.
БД.
SQL.jpg
вот сама программа:
viborka.jpg

а вот и код:

Код Delphi

unit Unit4;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, wwdbdatetimepicker, wwdblook, ExtCtrls, DBCtrls, Mask,
  wwdbedit, Wwdotdot, Wwdbcomb, wwclearbuttongroup, wwradiogroup, Grids,
  Wwdbigrd, Wwdbgrid;
 
type
  TForm4 = class(TForm)
    Panel1: TPanel;
    wwDBGrid1: TwwDBGrid;
    Button1: TButton;
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    ceh1: TwwDBLookupCombo;
    data2: TwwDBLookupCombo;
    Panel3: TPanel;
    RG1: TRadioGroup;
    Label3: TLabel;
    Label4: TLabel;
    Button2: TButton;
    Tip_dok2: TwwDBLookupCombo;
    wwDBLookupCombo1: TwwDBLookupCombo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form4: TForm4;
 
implementation
         uses fr,Main;
{$R *.dfm}
 
procedure TForm4.Button1Click(Sender: TObject);
begin
dm.Main.Close;
dm.Main.SQL.Clear;
dm.Main.SQL.Text:='select * from [naryadi]';
if (Form4.ceh1.text <> '') or (Form4.data2.text <> '') or (Form4.N_naryad1.text <> '') or (Form4.Tip_dok2.Text <> '') then   dm.Main.SQL.Text:=dm.Main.SQL.Text+'where 1=1 ';
 
if Form4.ceh1.text <> '' then
 begin
 dm.Main.SQL.Text := dm.Main.SQL.Text+' and  ceh=:@ceh';
 dm.Main.Parameters.ParamByName('@ceh').Value:= Form4.ceh1.text;
 end;
if Form4.data2.text <> '' then
begin
 dm.Main.SQL.Text:= dm.Main.SQL.Text+' and data=:@data '   ;
 dm.Main.Parameters.ParamByName('@data').Value:= Form4.data2.text;
 end;
if Form4.Tip_dok2.text <> '' then
begin
 dm.Main.SQL.Text:= dm.Main.SQL.Text+' and Tip_dok=:@Tip_dok '   ;
 dm.Main.Parameters.ParamByName('@Tip_dok').Value:= Form4.Tip_dok2.text;
 end;
{if Form4.RG1.ItemIndex=0 then вот здесь я не могу понять,что нужно прописать}
 
  dm.Main.Open;
 end;
 
 
end.

[Toxa]

case when RG1.itemindex of
0:begin
 dm.Main.SQL.Text:= dm.Main.SQL.Text+' and n_zakaz like @Tip_dok  '   ;
 dm.Main.Parameters.ParamByName('@Tip_dok').Value:= Form4.Tip_dok2.text+'%';
end;
1:begin
 dm.Main.SQL.Text:= dm.Main.SQL.Text+' and n_zakaz like @Tip_dok  '   ;
 dm.Main.Parameters.ParamByName('@Tip_dok').Value:= '%'+Form4.Tip_dok2.text;
end;
2:begin
 dm.Main.SQL.Text:= dm.Main.SQL.Text+' and n_zakaz like @Tip_dok  '   ;
 dm.Main.Parameters.ParamByName('@Tip_dok').Value:= '%' + Form4.Tip_dok2.text+'%';
end;
end;

как то так

[Staziah2]

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

case when RG1.itemindex of
0:begin
 dm.Main.SQL.Text:= dm.Main.SQL.Text+' and n_zakaz like @Tip_dok  '   ;
 dm.Main.Parameters.ParamByName('@Tip_dok').Value:= Form4.Tip_dok2.text+'%';
end;
1:begin
 dm.Main.SQL.Text:= dm.Main.SQL.Text+' and n_zakaz like @Tip_dok  '   ;
 dm.Main.Parameters.ParamByName('@Tip_dok').Value:= '%'+Form4.Tip_dok2.text;
end;
2:begin
 dm.Main.SQL.Text:= dm.Main.SQL.Text+' and n_zakaz like @Tip_dok  '   ;
 dm.Main.Parameters.ParamByName('@Tip_dok').Value:= '%' + Form4.Tip_dok2.text+'%';
end;
end;

как то так

Почти,только здесь не номер заказа и тип документа,а номер наряда....Но как поняла,что в принципе можно поменять на номер наряда,то думаю сработается.

Как думаете?

к сожалению не получилось,выдалась ощибка:[Error] Unit4.pas(66): Undeclared identifier: 'when'
под

case when RG1.itemindex of

[Toxa]

блин, ошибся, надо без него

case RG1.itemindex of

[Аватар]

Undeclared identifier: 'when'

а раскрыть книжку или справку по кейсу?

[Staziah2]

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

блин, ошибся, надо без него

case RG1.itemindex of

if Form4.N_naryad1.text <> '' then
 case Form4.RG1.ItemIndex of
 0:begin
 dm.Main.SQL.Text := dm.Main.SQL.Text + ' and N_naryad Like @N_naryad';
 dm.Main.Parameters.ParamByName('@N_naryad').Value:= ''' + Form4.N_naryad1.text + '%'''; // вот здесь..
 1:begin
 dm.Main.SQL.Text := dm.Main.SQL.Text + ' and N_naryad Like @N_naryad';
 dm.Main.Parameters.ParamByName('@N_naryad').Value:= ''%' + Form4.N_naryad1.text + '''';
 2:begin
 dm.Main.SQL.Text := dm.Main.SQL.Text + ' and N_naryad Like @N_naryad';
 dm.Main.Parameters.ParamByName('@N_naryad').Value:= ''%' + Form4.N_naryad1.text + '%''';
  end;
 end;

выдает ошибку: [Error] Unit4.pas(70): Illegal character in input file: '%' ($25)

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

case when RG1.itemindex of
0:begin
 dm.Main.SQL.Text:= dm.Main.SQL.Text+' and n_zakaz like @Tip_dok  '   ;
 dm.Main.Parameters.ParamByName('@Tip_dok').Value:= Form4.Tip_dok2.text+'%';
end;
1:begin
 dm.Main.SQL.Text:= dm.Main.SQL.Text+' and n_zakaz like @Tip_dok  '   ;
 dm.Main.Parameters.ParamByName('@Tip_dok').Value:= '%'+Form4.Tip_dok2.text;
end;
2:begin
 dm.Main.SQL.Text:= dm.Main.SQL.Text+' and n_zakaz like @Tip_dok  '   ;
 dm.Main.Parameters.ParamByName('@Tip_dok').Value:= '%' + Form4.Tip_dok2.text+'%';
end;
end;

как то так

все равно не работает...к сожалению

[Stilet]

@Tip_dok

Что за ерунда?

case when RG1.itemindex of
0:begin
 dm.Main.SQL.Text:= dm.Main.SQL.Text+' and n_zakaz like :Tip_dok  '   ;
 dm.Main.Parameters.ParamByName('Tip_dok').Value:= Form4.Tip_dok2.text+'%';
end;
1:begin
 dm.Main.SQL.Text:= dm.Main.SQL.Text+' and n_zakaz like :Tip_dok  '   ;
 dm.Main.Parameters.ParamByName('Tip_dok').Value:= '%'+Form4.Tip_dok2.text;
end;
2:begin
 dm.Main.SQL.Text:= dm.Main.SQL.Text+' and n_zakaz like :Tip_dok  '   ;
 dm.Main.Parameters.ParamByName('Tip_dok').Value:= '%' + Form4.Tip_dok2.text+'%';
end;
end;

И возможно понадобится .ParamByName('Tip_dok').Value:=Quot edStr( '%' + Form4.Tip_dok2.text+'%');

[Toxa]

dm.Main.Parameters.ParamByName('@N_ naryad').Value:= ''' + Form4.N_naryad1.text + '%''';

зачем тут тройные кавычки? из-за них вот это

 + Form4.N_naryad1.text +

воспринимается как строка, а не контрол с формы, и из-за них же передается процент не как строка, а должен

в параметры не надо вообще передавать кавычки

[Staziah2]

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

зачем тут тройные кавычки? из-за них вот это

 + Form4.N_naryad1.text +

воспринимается как строка, а не контрол с формы, и из-за них же передается процент не как строка, а должен

в параметры не надо вообще передавать кавычки

Спасибо огромное за помощь...я чуток по=другому сделала....но сработало..благодаря вашим подсказкам