adoqry.close;
adoqry.sql.text := 'select * from t_general where 生日 like :bir';
adoqry.parameters.parambyname('bir').value := '%'+edit1.text+'%';
adoqry.open;
while not(adoqry.eof) do
begin
lstbox.items.add(adoqry.fieldbyname('姓名').asString);
end;
var
d:TDateTime;
begin
listbox1.items.clear
query1.first
while not query1.eof do
begin
d:=query1.fieldbyName('生日').AsDateTime;
if strtoint(FormatDateTime('mm',d))=2 then
listbox1.Items.Add(query1.fieldbyname('姓名').AsString);
query1.next;
end;
end;
