摘要：
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:=& 阅读全文
