[device™]

PHP код:

procedure TForm1.FormCreate(Sender: TObject);
var S3, S4, S5, S6, S7 : String;
begin
Query3.DatabaseName:=GetCurrentDir;
Query4.DatabaseName:=GetCurrentDir;
Query5.DatabaseName:=GetCurrentDir;
Query6.DatabaseName:=GetCurrentDir;
Query7.DatabaseName:=GetCurrentDir;


Query2.SQL.Clear;
Query2.SQL.Add('SELECT * FROM Pros');
Query2.Open;
ComboBox1.Clear;
while not Query2.Eof do
begin
S3:=Query2.FieldByName('ProizvodName').AsString;
ComboBox1.Items.Add(Str1);
Query2.Next;
end;
ComboBox1.Items.Add('Âñå ïðîèçâîäèòåëè');
ComboBox1.ItemIndex:=ComboBox1.Items.Count-1;

begin
Query3.SQL.Clear;
Query3.SQL.Add('SELECT * FROM Types');
Query3.Open;
ComboBox2.Clear;
while not Query3.Eof do
begin
Str2:=Query3.FieldByName('TypeName').AsString;
ComboBox2.Items.Add(Str2);
Query3.Next;
end;
ComboBox2.Items.Add('Âñå òèïû');
ComboBox2.ItemIndex:=ComboBox2.Items.Count-1;

begin
Query4.SQL.Clear;
Query4.SQL.Add('SELECT * FROM Colors');
Query4.Open;
ComboBox3.Clear;
while not Query4.Eof do
begin
Str3:=Query4.FieldByName('ColorName').AsString;
ComboBox3.Items.Add(Str3);
Query4.Next;
end;
ComboBox3.Items.Add('Âñå öâåòà');
ComboBox3.ItemIndex:=ComboBox3.Items.Count-1;
end;
end;

end;



procedure TForm1.ComboBox1Change(Sender: TObject);
var CurID3, CurID2, CurID1, i: Integer;
begin 
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('SELECT * FROM Ruchkas ');
Query1.SQL.Add('where ');
i:=0;

if (ComboBox1.ItemIndex<>ComboBox1.Items.Count-1)    then
begin
Query1.SQL.Add('ProizvodID=:pProizvodID');
Query2.Locate('ProizvodName',ComboBox1.Text,[ ]);
CurID1:=Query2.FieldByName('ProizvodID').AsInteger;
Query1.Params[i].AsInteger:=CurID1;
inc(i);
end;

if (ComboBox3.ItemIndex<>ComboBox3.Items.Count-1)    then
begin
if (i>0)  then
Query1.SQL.Add('and ColorID=:pColorID')
else
Query1.SQL.Add('ColorID=:pColorID');
Query4.Locate('ColorName',ComboBox3.Text,[ ]);
CurID3:=Query4.FieldByName('ColorID').AsInteger;
Query1.Params[i].AsInteger:=CurID3;
inc(i);
end;

if (ComboBox2.ItemIndex<>ComboBox2.Items.Count-1)    then
begin
if (i>0)  then
Query1.SQL.Add('and TypeID=:pTypeID')
else
Query1.SQL.Add('TypeID=:pTypeID');
Query3.Locate('TypeName',ComboBox2.Text,[ ]);
CurID2:=Query3.FieldByName('TypeID').AsInteger;
Query1.Params[i].AsInteger:=CurID2;
end;

Query1.Open;
end;
end.

end.