What does this code mean? Delphi/Windows SDK/API
Http://www.delphi2007.net/DelphiDB/html/delphi_20061217214802252.html
Procedure tform3.radiobutton3click (Sender: tobject );
Begin
Adotable1.refresh;
With adotable1 do
Try
Disablecontrols;
Filtered: = false;
Memo1.text: = memo1.text + ''' + edit1.text + '''';
Filter: = memo1.text;
Filtered: = true;
Finally
Enablecontrols;
If adotable1.recordcount = 0 then begin
Messagebeep (1 );
Showmessage ('not met. Please confirm the condition or discard the query! ');
If messagedlg ('Do you want to continue querying? Other operations can be performed only after the query is completed! ', Mtinformation, [mbyes, mbno], 0) = mrno then begin
Filtered: = false;
Adotable1.close;
Adotable1.open;
End;
End else begin
If messagedlg ('Do you want to continue querying ?, Other operations can be performed only after the query is completed! ', Mtinformation, [mbyes, mbno], 0) = mrno then begin
Filtered: = false;
Adotable1.close;
Adotable1.open;
End;
End;
End
It is a query-by-button operation. It is an Acess database connected by ADO. But can you tell me the meaning of each sentence? It is quite incomprehensible ..
Thank you ..
This enables adotable to use a filter to search for data by selecting conditions.
Filter: = ''is a filter condition.
Filtered is a filtering method. Its usage is similar to that of locate.
Thank you ..
