如何在数据库中始终保持一个月的数据，自动删除一个月之前的记录？

请将控制面板中的区域设置日期改为yyyy-mm-dd格式
数据库中保存一个月的历史数据，自动删除一个月以前的数据。命令语言放在应用程序命令语言启动时或者事件命令语言$时==1中：

SQLConnect( DeviceID, "dsn=历史;uid=er;pwd=0");

long month=//本站点/$月-1;

long year=//本站点/$年;

long day=//本站点/$日;

string date1;

if(month==0)

{month=12;

year=//本站点/$年-1;}

date1= StrFromInt( year, 10 );

date1=date1+"-";

date1 = date1 + StrFromInt( month, 10 );

date1 = date1 + "-" + StrFromInt( day, 10);

string whereexpr="日期={d’"+date1+"’}";

SQLDelete( DeviceID, "A", whereexpr);

if(//本站点/$月==4||//本站点/$月==6||//本站点/$月==9||//本站点/$月==11)

{ if(//本站点/$日==30)

{

day=31;

date1= StrFromInt( year, 10 );

date1=date1+"-";

date1 = date1 + StrFromInt( month, 10 );

date1 = date1 + "-" + StrFromInt( day, 10);

whereexpr="日期={d’"+date1+"’}";

SQLDelete( DeviceID, "A", whereexpr);

}

}