ADOTable1.Locate('Количество',edit1.text, [loPartialKey]);
end;
end;
procedure TForm1.Edit2Change(Sender: TObject);
begin
if edit2.Text<>'' then begin
ADOTable1.Filtered:=true;
if combobox2.Text='Тип' then
ADOTable1.Filter:='Тип' + ' LIKE ' + #39 + edit2.Text + '%' + #39;
if combobox2.Text='Наименование' then
ADOTable1.Filter:='Наименование' + ' LIKE ' + #39 + edit2.Text + '%' + #39;
if combobox2.Text='Цвет' then
ADOTable1.Filter:='Цвет' + ' LIKE ' + #39 + edit2.Text + '%' + #39;
if combobox2.Text='Размер' then
ADOTable1.Filter:='Размер' + ' LIKE ' + #39 + edit2.Text + '%' + #39;
if combobox2.Text='Производитель' then
ADOTable1.Filter:='Производитель' + ' LIKE ' + #39 + edit2.Text + '%' + #39;
if combobox2.Text='Материал' then
ADOTable1.Filter:='Материал' + ' LIKE ' + #39 + edit2.Text + '%' + #39;
if combobox2.Text='Цена' then
ADOTable1.Filter:='Цена' + ' LIKE ' + #39 + edit2.Text + '%' + #39;
if combobox2.Text='Количество' then
ADOTable1.Filter:='Количество' + ' LIKE ' + #39 + edit2.Text + '%' + #39;
end
else ADOTable1.Filtered:=false;
end;
procedure TForm1.ADOTable1FilterRecord(DataSet: TDataSet;
var Accept: Boolean);
//var s:string;
begin
// Фильтрация для числовых полей
//if form1.ComboBox2.Text='Размер' then begin
// s:=copy(dataset['Размер'],1,Length(edit2.text));
// Accept:= s=edit2.text; end;
end;
procedure TForm1.RadioButton1Click(Sender: TObject);
begin
ADOTable1.IndexFieldNames:='Тип';
end;
procedure TForm1.RadioButton2Click(Sender: TObject);
begin
ADOTable1.IndexFieldNames:='Наименование';
end;
procedure TForm1.RadioButton3Click(Sender: TObject);
begin
ADOTable1.IndexFieldNames:='Цвет';
end;
procedure TForm1.RadioButton4Click(Sender: TObject);
begin
ADOTable1.IndexFieldNames:='Размер';
end;
procedure TForm1.RadioButton5Click(Sender: TObject);
begin
ADOTable1.IndexFieldNames:='Производитель';
end;
procedure TForm1.RadioButton6Click(Sender: TObject);
begin
ADOTable1.IndexFieldNames:='Материал';
end;
procedure TForm1.RadioButton7Click(Sender: TObject);
begin
ADOTable1.IndexFieldNames:='Цена';
end;
procedure TForm1.RadioButton8Click(Sender: TObject);
begin
ADOTable1.IndexFieldNames:='Количество';
end;
procedure TForm1.RadioButton9Click(Sender: TObject);
begin
ADOTable2.IndexFieldNames:='Тип';
end;
procedure TForm1.RadioButton10Click(Sender: TObject);
begin
ADOTable2.IndexFieldNames:='Наименование';
end;
procedure TForm1.RadioButton11Click(Sender: TObject);
begin
ADOTable2.IndexFieldNames:='Цвет';
end;
procedure TForm1.RadioButton12Click(Sender: TObject);
begin
ADOTable2.IndexFieldNames:='Материал';
end;
procedure TForm1.RadioButton13Click(Sender: TObject);
begin
ADOTable2.IndexFieldNames:='Размер';
end;
procedure TForm1.RadioButton14Click(Sender: TObject);
begin
ADOTable2.IndexFieldNames:='Производитель';
end;
procedure TForm1.RadioButton15Click(Sender: TObject);
begin
ADOTable2.IndexFieldNames:='Цена';
end;
procedure TForm1.RadioButton16Click(Sender: TObject);
begin
ADOTable2.IndexFieldNames:='Количество';
end;
procedure TForm1.Edit3Change(Sender: TObject);
begin
if edit3.Text<>'' then begin
if( ComboBox3.Text='Тип')then
ADOTable2.Locate('Тип',edit3.text, [loPartialKey]);
if( ComboBox3.Text='Наименование')then
ADOTable2.Locate('Наименование',edit3.text, [loPartialKey]);
if( ComboBox3.Text='Цвет')then
ADOTable2.Locate('Цвет',edit3.text, [loPartialKey]);
if( ComboBox3.Text='Материал')then
ADOTable2.Locate('Материал',edit3.text, [loPartialKey]);
if( ComboBox3.Text='Размер')then
ADOTable2.Locate('Размер',edit3.text, [loPartialKey]);
if( ComboBox3.Text='Производитель')then
ADOTable2.Locate('Производитель',edit3.text, [loPartialKey]);
if( ComboBox3.Text='Цена')then
ADOTable2.Locate('Цена',edit3.text, [loPartialKey]);
if( ComboBox3.Text='Количество')then
ADOTable2.Locate('Количество',edit3.text, [loPartialKey]);
end;
end;
procedure TForm1.RadioButton17Click(Sender: TObject);
begin
ADOTable3.IndexFieldNames:='Тип';
end;
procedure TForm1.RadioButton18Click(Sender: TObject);
begin
ADOTable3.IndexFieldNames:='Наименование';
end;
procedure TForm1.RadioButton19Click(Sender: TObject);
begin
ADOTable3.IndexFieldNames:='Высота';
end;
procedure TForm1.RadioButton20Click(Sender: TObject);
begin
ADOTable3.IndexFieldNames:='Ширина';
end;
procedure TForm1.RadioButton21Click(Sender: TObject);
begin
ADOTable3.IndexFieldNames:='Длина';
end;
procedure TForm1.RadioButton22Click(Sender: TObject);
begin
ADOTable3.IndexFieldNames:='Цвет';
end;
procedure TForm1.RadioButton23Click(Sender: TObject);
begin
ADOTable3.IndexFieldNames:='Стоимость';
end;
procedure TForm1.RadioButton24Click(Sender: TObject);
begin
ADOTable3.IndexFieldNames:='Производитель';
end;
procedure TForm1.RadioButton25Click(Sender: TObject);
begin
ADOTable3.IndexFieldNames:='Количество';
end;
procedure TForm1.Edit5Change(Sender: TObject);
begin
if edit5.Text<>'' then begin
if( ComboBox5.Text='Тип')then
ADOTable3.Locate('Тип',edit5.text, [loPartialKey]);
if( ComboBox5.Text='Наименование')then
ADOTable3.Locate('Наименование',edit5.text, [loPartialKey]);
if( ComboBox5.Text='Высота')then
ADOTable3.Locate('Высота',edit5.text, [loPartialKey]);
if( ComboBox5.Text='Ширина')then
ADOTable3.Locate('Ширина',edit5.text, [loPartialKey]);
if( ComboBox5.Text='Длина')then
ADOTable3.Locate('Длина',edit5.text, [loPartialKey]);
if( ComboBox5.Text='Цвет')then
ADOTable3.Locate('Цвет',edit5.text, [loPartialKey]);
if( ComboBox5.Text='Стоимость')then
ADOTable3.Locate('Стоимость',edit5.text, [loPartialKey]);
if( ComboBox5.Text='Производитель')then
ADOTable3.Locate('Производитель',edit5.text, [loPartialKey]);
if( ComboBox5.Text='Количество')then
ADOTable3.Locate('Количество',edit5.text, [loPartialKey]);
end;
end;
procedure TForm1.RadioButton27Click(Sender: TObject);
begin
ADOTable4.IndexFieldNames:='Наименование';
end;
procedure TForm1.RadioButton31Click(Sender: TObject);
begin
ADOTable4.IndexFieldNames:='Цена';
end;
procedure TForm1.RadioButton26Click(Sender: TObject);
begin
ADOTable4.IndexFieldNames:='Вид';
end;
procedure TForm1.RadioButton28Click(Sender: TObject);
begin
ADOTable4.IndexFieldNames:='Материал';
end;
procedure TForm1.RadioButton29Click(Sender: TObject);
begin
ADOTable4.IndexFieldNames:='Цвет';
end;
procedure TForm1.RadioButton30Click(Sender: TObject);
begin
ADOTable4.IndexFieldNames:='Размер';
end;
procedure TForm1.RadioButton32Click(Sender: TObject);
begin
ADOTable4.IndexFieldNames:='Производитель';
end;
procedure TForm1.RadioButton33Click(Sender: TObject);
begin
ADOTable4.IndexFieldNames:='Количество';
end;
procedure TForm1.Edit7Change(Sender: TObject);
begin
if edit7.Text<>'' then begin
if( ComboBox7.Text='Вид')then
ADOTable4.Locate('Вид',edit7.text, [loPartialKey]);
if( ComboBox7.Text='Наименование')then
ADOTable4.Locate('Наименование',edit7.text, [loPartialKey]);
if( ComboBox7.Text='Материал')then
ADOTable4.Locate('Материал',edit7.text, [loPartialKey]);
if( ComboBox7.Text='Цвет')then
ADOTable4.Locate('Цвет',edit7.text, [loPartialKey]);
if( ComboBox7.Text='Размер')then
ADOTable4.Locate('Размер',edit7.text, [loPartialKey]);
if( ComboBox7.Text='Цена')then
ADOTable4.Locate('Цена',edit7.text, [loPartialKey]);
if( ComboBox7.Text='Производитель')then
ADOTable4.Locate('Производитель',edit7.text, [loPartialKey]);
if( ComboBox7.Text='Количество')then
ADOTable4.Locate('Количество',edit7.text, [loPartialKey]);
end;
end;
procedure TForm1.N6Click(Sender: TObject);
begin
form2.show ()
end;
procedure TForm1.N3Click(Sender: TObject);
begin
ShellExecute(Application.Handle, 'open', 'Справка.chm', nil, nil, 1);
end;
procedure TForm1.N7Click(Sender: TObject);
var
XLApp,Sheet,Colum:Variant;
index,i:Integer;
begin
XLApp:= CreateOleObject('Excel.Application');
XLApp.Visible:=true;
XLApp.Workbooks.Add(-4167);
XLApp.Workbooks[1].WorkSheets[1].Name:='Отчёт';
Colum:=XLApp.Workbooks[1].WorkSheets['Отчёт'].Columns;
Colum.Columns[1].ColumnWidth:=20;
Colum.Columns[2].ColumnWidth:=20;
Colum.Columns[3].ColumnWidth:=20;
Colum.Columns[4].ColumnWidth:=20;
Colum.Columns[5].ColumnWidth:=20;
Colum.Columns[6].ColumnWidth:=20;
Colum.Columns[7].ColumnWidth:=20;
Colum.Columns[8].ColumnWidth:=20;
Colum.Columns[9].ColumnWidth:=20;
Colum:=XLApp.Workbooks[1].WorkSheets['Отчёт'].Rows;
Colum.Rows[2].Font.Bold:=true;
Colum.Rows[1].Font.Bold:=true;
Colum.Rows[1].Font.Color:=clBlue;
Colum.Rows[1].Font.Size:=14;
Sheet:=XLApp.Workbooks[1].WorkSheets['Отчёт'];
Sheet.Cells[1,2]:='Гостинная';
Sheet.Cells[2,1]:='Код';
Sheet.Cells[2,2]:='Тип';
Sheet.Cells[2,3]:='Наименование';
Sheet.Cells[2,4]:='Цвет';
Sheet.Cells[2,5]:='Размер';
Sheet.Cells[2,6]:='Производитель';
Sheet.Cells[2,7]:='Материал';
Sheet.Cells[2,8]:='Цена';
Sheet.Cells[2,9]:='Количество';
index:=3;
ADOTable2.First;
for i:=0 to ADOTable2.RecordCount-1 do
begin
Sheet.Cells[index,1]:=ADOTable2.Fields.Fields[0].AsString;
Sheet.Cells[index,2]:=ADOTable2.Fields.Fields[1].AsString;
Sheet.Cells[index,3]:=ADOTable2.Fields.Fields[2].AsString;
Sheet.Cells[index,4]:=ADOTable2.Fields.Fields[3].AsString;
Sheet.Cells[index,5]:=ADOTable2.Fields.Fields[4].AsString;
Sheet.Cells[index,6]:=ADOTable2.Fields.Fields[5].AsString;
Sheet.Cells[index,7]:=ADOTable2.Fields.Fields[6].AsString;
Sheet.Cells[index,8]:=ADOTable2.Fields.Fields[7].AsString;
Sheet.Cells[index,9]:=ADOTable2.Fields.Fields[8].AsString;
Inc(index);
ADOTable2.Next;
end;
end;
procedure TForm1.Edit4Change(Sender: TObject);
begin
if edit4.Text<>'' then begin
ADOTable2.Filtered:=true;
if combobox4.Text='Тип' then
ADOTable2.Filter:='Тип' + ' LIKE ' + #39 + edit4.Text + '%' + #39;
if combobox4.Text='Наименование' then
ADOTable2.Filter:='Наименование' + ' LIKE ' + #39 + edit4.Text + '%' + #39;
if combobox4.Text='Цвет' then
ADOTable2.Filter:='Цвет' + ' LIKE ' + #39 + edit4.Text + '%' + #39;
if combobox4.Text='Размер' then
ADOTable2.Filter:='Размер' + ' LIKE ' + #39 + edit4.Text + '%' + #39;
if combobox4.Text='Производитель' then
ADOTable2.Filter:='Производитель' + ' LIKE ' + #39 + edit4.Text + '%' + #39;
if combobox4.Text='Материал' then
ADOTable2.Filter:='Материал' + ' LIKE ' + #39 + edit4.Text + '%' + #39;
if combobox4.Text='Цена' then
ADOTable2.Filter:='Цена' + ' LIKE ' + #39 + edit4.Text + '%' + #39;
if combobox4.Text='Количество' then
ADOTable2.Filter:='Количество' + ' LIKE ' + #39 + edit4.Text + '%' + #39;
end
else ADOTable2.Filtered:=false;
end;
procedure TForm1.Edit6Change(Sender: TObject);
begin
if edit6.Text<>'' then begin
ADOTable3.Filtered:=true;
if combobox6.Text='Тип' then
ADOTable3.Filter:='Тип' + ' LIKE ' + #39 + edit6.Text + '%' + #39;
if combobox6.Text='Наименование' then
ADOTable3.Filter:='Наименование' + ' LIKE ' + #39 + edit6.Text + '%' + #39;
if combobox6.Text='Цвет' then
ADOTable3.Filter:='Цвет' + ' LIKE ' + #39 + edit6.Text + '%' + #39;
if combobox6.Text='Высота' then
ADOTable3.Filter:='Высота' + ' LIKE ' + #39 + edit6.Text + '%' + #39;
if combobox6.Text='Ширина' then
ADOTable3.Filter:='Ширина' + ' LIKE ' + #39 + edit6.Text + '%' + #39;
if combobox6.Text='Длина' then
ADOTable3.Filter:='Длина' + ' LIKE ' + #39 + edit6.Text + '%' + #39;
if combobox6.Text='Производитель' then
ADOTable3.Filter:='Производитель' + ' LIKE ' + #39 + edit6.Text + '%' + #39;
if combobox6.Text='Стоимость' then
ADOTable3.Filter:='Стоимость' + ' LIKE ' + #39 + edit6.Text + '%' + #39;
if combobox6.Text='Количество' then
ADOTable3.Filter:='Количество' + ' LIKE ' + #39 + edit6.Text + '%' + #39;
end
else ADOTable3.Filtered:=false;
end;
procedure TForm1.Edit8Change(Sender: TObject);
begin
if edit8.Text<>'' then begin
ADOTable4.Filtered:=true;
if combobox8.Text='Тип' then
ADOTable4.Filter:='Тип' + ' LIKE ' + #39 + edit8.Text + '%' + #39;
if combobox8.Text='Наименование' then
ADOTable4.Filter:='Наименование' + ' LIKE ' + #39 + edit8.Text + '%' + #39;
if combobox8.Text='Цвет' then
ADOTable4.Filter:='Цвет' + ' LIKE ' + #39 + edit8.Text + '%' + #39;
if combobox8.Text='Размер' then
ADOTable4.Filter:='Размер' + ' LIKE ' + #39 + edit8.Text + '%' + #39;
if combobox8.Text='Производитель' then
ADOTable4.Filter:='Производитель' + ' LIKE ' + #39 + edit8.Text + '%' + #39;
if combobox8.Text='Материал' then
ADOTable4.Filter:='Материал' + ' LIKE ' + #39 + edit8.Text + '%' + #39;
if combobox8.Text='Цена' then
ADOTable4.Filter:='Цена' + ' LIKE ' + #39 + edit8.Text + '%' + #39;
if combobox8.Text='Количество' then
ADOTable4.Filter:='Количество' + ' LIKE ' + #39 + edit8.Text + '%' + #39;
end
else ADOTable4.Filtered:=false;
end;
procedure TForm1.N8Click(Sender: TObject);
var
XLApp,Sheet,Colum:Variant;
index,i:Integer;
begin
XLApp:= CreateOleObject('Excel.Application');
XLApp.Visible:=true;
XLApp.Workbooks.Add(-4167);
XLApp.Workbooks[1].WorkSheets[1].Name:='Отчёт';
Colum:=XLApp.Workbooks[1].WorkSheets['Отчёт'].Columns;
Colum.Columns[1].ColumnWidth:=20;
Colum.Columns[2].ColumnWidth:=20;
Colum.Columns[3].ColumnWidth:=20;
Colum.Columns[4].ColumnWidth:=20;
Colum.Columns[5].ColumnWidth:=20;
Colum.Columns[6].ColumnWidth:=20;
Colum.Columns[7].ColumnWidth:=20;
Colum.Columns[8].ColumnWidth:=20;
Colum.Columns[9].ColumnWidth:=20;
Colum:=XLApp.Workbooks[1].WorkSheets['Отчёт'].Rows;
Colum.Rows[2].Font.Bold:=true;
Colum.Rows[1].Font.Bold:=true;
Colum.Rows[1].Font.Color:=clBlue;
Colum.Rows[1].Font.Size:=14;
Sheet:=XLApp.Workbooks[1].WorkSheets['Отчёт'];
Sheet.Cells[1,2]:='Детская';
Sheet.Cells[2,1]:='Код';
Sheet.Cells[2,2]:='Тип';
Sheet.Cells[2,3]:='Наименование';
Sheet.Cells[2,4]:='Цвет';
Sheet.Cells[2,5]:='Материал';
Sheet.Cells[2,6]:='Размер';
Sheet.Cells[2,7]:='Производитель';
Sheet.Cells[2,8]:='Цена';
Sheet.Cells[2,9]:='Количество';
index:=3;
ADOTable2.First;
for i:=0 to ADOTable2.RecordCount-1 do
begin
Sheet.Cells[index,1]:=ADOTable2.Fields.Fields[0].AsString;
Sheet.Cells[index,2]:=ADOTable2.Fields.Fields[1].AsString;
Sheet.Cells[index,3]:=ADOTable2.Fields.Fields[2].AsString;
Sheet.Cells[index,4]:=ADOTable2.Fields.Fields[3].AsString;
Sheet.Cells[index,5]:=ADOTable2.Fields.Fields[4].AsString;
Sheet.Cells[index,6]:=ADOTable2.Fields.Fields[5].AsString;
Sheet.Cells[index,7]:=ADOTable2.Fields.Fields[6].AsString;
Sheet.Cells[index,8]:=ADOTable2.Fields.Fields[7].AsString;
Sheet.Cells[index,9]:=ADOTable2.Fields.Fields[8].AsString;
Inc(index);
ADOTable2.Next;
end;
end;
procedure TForm1.N9Click(Sender: TObject);
var
XLApp,Sheet,Colum:Variant;
index,i:Integer;
begin
XLApp:= CreateOleObject('Excel.Application');
XLApp.Visible:=true;
XLApp.Workbooks.Add(-4167);
XLApp.Workbooks[1].WorkSheets[1].Name:='Отчёт';
Colum:=XLApp.Workbooks[1].WorkSheets['Отчёт'].Columns;
Colum.Columns[1].ColumnWidth:=20;
Colum.Columns[2].ColumnWidth:=20;
Colum.Columns[3].ColumnWidth:=20;
Colum.Columns[4].ColumnWidth:=20;
Colum.Columns[5].ColumnWidth:=20;
Colum.Columns[6].ColumnWidth:=20;
Colum.Columns[7].ColumnWidth:=20;
Colum.Columns[8].ColumnWidth:=20;
Colum.Columns[9].ColumnWidth:=20;
Colum.Columns[10].ColumnWidth:=20;
Colum:=XLApp.Workbooks[1].WorkSheets['Отчёт'].Rows;
Colum.Rows[2].Font.Bold:=true;
Colum.Rows[1].Font.Bold:=true;
Colum.Rows[1].Font.Color:=clBlue;
Colum.Rows[1].Font.Size:=14;
Sheet:=XLApp.Workbooks[1].WorkSheets['Отчёт'];
Sheet.Cells[1,2]:='Мягкая мебель';
Sheet.Cells[2,1]:='Код';
Sheet.Cells[2,2]:='Тип';
Sheet.Cells[2,3]:='Наименование';
Sheet.Cells[2,4]:='Высота';
Sheet.Cells[2,5]:='Ширина';
Sheet.Cells[2,6]:='Длина';
Sheet.Cells[2,7]:='Цвет';
Sheet.Cells[2,8]:='Стоимость';
Sheet.Cells[2,9]:='Производитель';
Sheet.Cells[2,10]:='Количество';
index:=3;
ADOTable3.First;
for i:=0 to ADOTable3.RecordCount-1 do
begin
Sheet.Cells[index,1]:=ADOTable3.Fields.Fields[0].AsString;
Sheet.Cells[index,2]:=ADOTable3.Fields.Fields[1].AsString;
Sheet.Cells[index,3]:=ADOTable3.Fields.Fields[2].AsString;
Sheet.Cells[index,4]:=ADOTable3.Fields.Fields[3].AsString;
Sheet.Cells[index,5]:=ADOTable3.Fields.Fields[4].AsString;
Sheet.Cells[index,6]:=ADOTable3.Fields.Fields[5].AsString;
Sheet.Cells[index,7]:=ADOTable3.Fields.Fields[6].AsString;
Sheet.Cells[index,8]:=ADOTable3.Fields.Fields[7].AsString;
Sheet.Cells[index,9]:=ADOTable3.Fields.Fields[8].AsString;
Sheet.Cells[index,10]:=ADOTable3.Fields.Fields[9].AsString;
Inc(index);
ADOTable3.Next;
end;
end;
procedure TForm1.N10Click(Sender: TObject);
var
XLApp,Sheet,Colum:Variant;
index,i:Integer;
begin
XLApp:= CreateOleObject('Excel.Application');
XLApp.Visible:=true;
XLApp.Workbooks.Add(-4167);
XLApp.Workbooks[1].WorkSheets[1].Name:='Отчёт';
Colum:=XLApp.Workbooks[1].WorkSheets['Отчёт'].Columns;
Colum.Columns[1].ColumnWidth:=20;
Colum.Columns[2].ColumnWidth:=20;
Colum.Columns[3].ColumnWidth:=20;
Colum.Columns[4].ColumnWidth:=20;
Colum.Columns[5].ColumnWidth:=20;
Colum.Columns[6].ColumnWidth:=20;
Colum.Columns[7].ColumnWidth:=20;
Colum.Columns[8].ColumnWidth:=20;
Colum.Columns[9].ColumnWidth:=20;
Colum:=XLApp.Workbooks[1].WorkSheets['Отчёт'].Rows;
Colum.Rows[2].Font.Bold:=true;
Colum.Rows[1].Font.Bold:=true;
Colum.Rows[1].Font.Color:=clBlue;