Реферат: Учет общественной активности студентов академической группы

procedure TForml.N19Click(Sender: TObject);

begin

DataModule2.ADOTable1.Filtered:=true;

DataModule2.ADOTable2.Filtered:=true;

DataModule2.ADOTablel.Filter:='Cпopт="+"';

DataModule2.ADOTable2.Filter:='Cпopт="+'";

end;

1.2. КВНщики;

1.3. Старосты.

2. АктивКод:

procedure TForml.N17Click(Sender: TObject);

begin

DataModule2.ADOTable1.Filtered:=true;

DataModule2.ADOTable2.Filtered:=true;

DataModule2.ADOTablel.Filter:='Cпopт="+" and КВН ="+" and Староста ="+'";

DataModule2.ADOTable2.Filter:='Cпopт="+" and КВН ="+" and Староста ="+'";

end;

3. Неактивные студенты

4. Отменить отбор

Код:

procedure

TForml.N25Click(Sender: TObject);

begin

DataModule2.ADOTable1.Filtered:=false; DataModule2.ADOTable2.Filtered:=false;

end;

Нужно обратить внимание на то, что значения нужно указывать в одинарных кавычках. Но так как одинарные кавычки используются для ограничения строк, то чтобы внутри строки поставить одинарную кавычку, ее нужно поставить дважды. Именно таким способом ставиться одинарная кавычка перед значением. После значения нужно поставить одинарную кавычку и закрыть строку, поэтому ставиться три одинарных кавычки (две для того, чтобы поставить кавычку для значения и одна для конца строки).

Организация поиска данных

В данном приложении организован поиск по фамилии, по группе, и по обоим параметрам. Он организован в виде формы

Далее приведен пример кода для выполнения поиска по фамилии: procedureTForm4.Button1Click(Sender: TObject);