Курсовая работа: Разработка интерактивной системы обработки базы данных ведомости работы расчетно-кассового узла универсама

var v:Variant;

begin

with Form1 do

begin

if CheckBox1.Checked=False then

begin

DBLookupComboBox1.Enabled:=True;

v:=DBLookupComboBox1.KeyValue;

if VarIsNumeric(v) then tTable1.Filter:='Kod='+IntToStr(v)

else tTable1.Filter:='';

tTable1.Filtered:=True;

end

else

begin

DBLookupComboBox1.Enabled:=False;

tTable1.Filtered:=False;

end;

end;

end;

procedure TForm1.CheckBox1Click(Sender: TObject);

begin

FilterOn;

end;

procedure TForm1.DBLookupComboBox1Click(Sender: TObject);

begin

FilterOn;

end;

//Кнопка "Диаграмма"

procedure TForm1.cmdChartClick(Sender: TObject);