procedure TForm1.Button1Click(Sender: TObject);
var
tmpItem: TListItem;
begin
while not ADOQuery1.Eof do
begin
tmpItem := ListView1.Items.Add;
tmpItem.Caption := ADOQuery1.FieldByName('xx').AsString;
tmpItem.SubItems[0] := ADOQuery1.FieldByName('xx').AsString;
end;
end;
select user_pk ,
CONVERT(varchar(50), CASE isnull(u.user_sex, 0) WHEN 0 THEN '男' ELSE '女' END) AS sex
from t_user u