Жесткий поиск

 

procedure TForm6.Edit1Change(Sender: TObject);

begin

DBGrid2.DataSource:=Data.DataSource11;

DBNavigator2.DataSource:=Data.DataSource11;

begin

if RadioButton1.Checked then begin

Data.ADOQuery1.Active:=false;

Data.ADOQuery1.SQL.Clear;

Data.ADOQuery1.SQL.ADD('Select *');

Data.ADOQuery1.SQL.ADD('FROM Общая');

Data.ADOQuery1.SQL.ADD('where Адрес Like('+#39+Edit1.Text+'%'+#39+')');

Data.ADOQuery1.Active:=true;

end;

if RadioButton2.Checked then begin

Data.ADOQuery1.Active:=false;

Data.ADOQuery1.SQL.Clear;

Data.ADOQuery1.SQL.ADD('Select *');

Data.ADOQuery1.SQL.ADD('FROM Общая');

Data.ADOQuery1.SQL.ADD('where Название Like('+#39+Edit1.Text+'%'+#39+')');

Data.ADOQuery1.Active:=true;

end;

if RadioButton3.Checked then begin

Data.ADOQuery1.Active:=false;

Data.ADOQuery1.SQL.Clear;

Data.ADOQuery1.SQL.ADD('Select *');

Data.ADOQuery1.SQL.ADD('FROM Общая');

Data.ADOQuery1.SQL.ADD('where Фирма Like('+#39+Edit1.Text+'%'+#39+')');

Data.ADOQuery1.Active:=true;

end;

if RadioButton4.Checked then begin

Data.ADOQuery1.Active:=false;

Data.ADOQuery1.SQL.Clear;

Data.ADOQuery1.SQL.ADD('Select *');

Data.ADOQuery1.SQL.ADD('FROM Общая');

Data.ADOQuery1.SQL.ADD('where Телефон Like('+#39+Edit1.Text+'%'+#39+')');

Data.ADOQuery1.Active:=true;

end;

end;

 

end;

 

Запрос по цене:

procedure TForm6.ComboBox1Change(Sender: TObject);

begin

case Combobox1.ItemIndex of

0: begin DBGrid2.DataSource:=Data.DataSource10; DBNavigator2.DataSource:=Data.DataSource10; end;

1: begin DBGrid2.DataSource:=Data.DataSource9; DBNavigator2.DataSource:=Data.DataSource9; end;

2: begin DBGrid2.DataSource:=Data.DataSource12; DBNavigator2.DataSource:=Data.DataSource12; end;

end;

 

end;

 

Экспорт в Excel:

 

procedure TForm6.Button1Click(Sender: TObject);

var x,c,s:variant;

i,index: integer;

j: Integer;

begin

x:=createOleObject('Excel.Application');

x.Visible:=true;

x.WorkBooks.Add(-4167);

x.WorkBooks[1].WorkSheets[1].Name:='Beautymania';

c:=x.WorkBooks[1].WorkSheets['Beautymania'].Columns;

c.columns[1].ColumnWidth:=5;

c.columns[2].ColumnWidth:=20;

c.columns[3].ColumnWidth:=20;

c.columns[4].ColumnWidth:=20;

c.columns[5].ColumnWidth:=8;

c.columns[6].ColumnWidth:=7;

c.columns[7].ColumnWidth:=250;

s:=x.WorkBooks[1].WorkSheets['Beautymania'];

s.cells[2,1]:='Код';

s.cells[2,2]:='Название';

s.cells[2,3]:='Фирма';

s.cells[2,4]:='Адрес';

s.cells[2,5]:='Телефон';

s.cells[2,6]:='Цена';

s.cells[2,7]:='Примечание';

c:=x.WorkBooks[1].WorkSheets['Beautymania'].Rows;

c.Rows[2].Font.Size:=12;

c.Rows[2].Font.Color:=clblue;

c.Rows[2].Font.Bold:=true;

c.Rows[2].Font.Italic:=true;

index:=3;

Data.ADOQuery1.First;

for i:= 0 to Data.AdoQuery1.RecordCount - 1 do begin

for j:= 1 to 7 do

s.cells[index,j]:=Data.AdoQuery1.Fields.Fields[j-1].AsString;

inc(index);

Data.AdoQuery1.Next;

 

end;

 

 

end;