begin
    ListView1.ViewStyle:=vsSmallIcon;
    pSql:='select  * FROM XMCX WHERE W_XB=''男''';
    ADOQ_czxm.close;
    ADOQ_czxm.sql.clear;
    ADOQ_czxm.sql.text:=pSQL;
    ADOQ_czxm.open;
    for i:=0 to ADOQ_czxm.RecordCount-1 do
    begin
        pName:=ADOQ_czxm.FieldByName('w_name').AsString;
        pTel:=ADOQ_czxm.FieldByName('w_tel').AsString;


        listItem:=ListView1.Items.Add;
        listItem.Caption:=pName+'   '+pTel;
        listItem.SubItems.Add(pTel);
        ADOQ_czxm.Next;
    end;

 

posted on 2012-12-27 14:02  限量版、小鋶氓  阅读(54)  评论(0)    收藏  举报