2012年12月27日
摘要: 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:=ADO 阅读全文
posted @ 2012-12-27 14:02 限量版、小鋶氓 阅读(54) 评论(0) 推荐(0)