|
|
| Тема |
 OnFilterRecord |
|
| Автор | Haчинaeщ (Нерегистриран) | |
| Публикувано | 10.06.08 20:02 |
|
|
|
Първо да се извиня за некомпетентността си.
Та...
с делфи 6 съм. Направих си една базичка с ассесс . Сложих DataSource1 - и го вързах с ConnectionString дето требе. После лепнах на формата Adotable1 i DbGrid1 и почнах да си гледам записите. (и да си се кефя). По некое време зех да филтрирам. Пуснах филтъра на "верно е бре" и ставах все по горд от постижението си! Обаче по некое време, зех че затрих данните на един запис. И сега кат филтрирам и стигне до него - изпушва процедурата за филтриране точно на него. Ще драсна част от кода за ориентация.
procedure TForm1.tablFilterRecord(DataSet: TDataSet; var Accept: Boolean);
Var s,s1:string;
ok:boolean;
begin
ok:=true;
s:=edit1.Text;
s:=Uppercase1(s);
if s<>'' then
begin
s1:=Dataset.FieldValues['IME'];
if s1<>'' then {на този ред ми избива ако е плазно полето ИМЕ}
begin
s1:=UpperCase1(s1); {процедура за големи букви}
ok:=(pos(s,s1)>0) or (s1='');
end;
end;
Accept:=ok;
end;
Разбира се, кода не е съвършен, но ако някой хелпне, че косата ми побеля от нерви и даже бира пия по-малко от обикновенно.
| |
| |
| 
|
|
