2012年9月16日
淡定
摘要： implementation {$R*.DFM} procedureTjinricxfrm.FormShow(Sender:TObject); var riqistr:string; sql:string; n:integer; begin shortdateFormat:='YYYY.MM.DD';//确定日期格式 LongDateFormat:='YYYY.MM.DD'; DateSeparator:='-'; riqistr:=datetostr(date);//当前日期 paiche:=Tpaichein.create; //sql:=& 阅读全文
posted @ 2012-09-16 23:55 编程小爬虫 阅读(128) 评论(0) 推荐(0)