u_sjgd.~pas

报纸接运程序,对报纸分捆,打印,查询等,适用于各种报社

unit U_sjgd;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ComCtrls;

type
  TF_sjgd = class(TForm)
    GroupBox1: TGroupBox;
    CheckB1: TCheckBox;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Label1: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_sjgd: TF_sjgd;

implementation

uses dbobj;

{$R *.dfm}

procedure TF_sjgd.BitBtn2Click(Sender: TObject);
begin
        close;
end;

procedure TF_sjgd.BitBtn1Click(Sender: TObject);
var QueryStr1:string;
    QueryStr2:string;
    WhereString1:String;
    WhereString2:String;
begin
    //convert(char(10),clrq,120) >='''+FormatDateTime('yyyy-mm-dd',DateTimePicker1.Date)+''' and convert(char(10),clrq,120) <= '''+FormatDateTime('yyyy-mm-dd',DateTimePicker2.Date)+'''';
    wherestring1:=FormatDateTime('yyyy-mm-dd',DateTimePicker1.Date);
    wherestring2:=FormatDateTime('yyyy-mm-dd',DateTimePicker2.Date);

    if ( CheckB1.Checked)   then
    begin
        if (FormatDateTime('yyyy-mm-dd',DateTimePicker1.Date)<=FormatDateTime('yyyy-mm-dd',DateTimePicker2.Date)) then
        begin
                with DataModule1.ADOConnection1 do
               begin
                        Connected:=false;
                        QueryStr1:='delete from  jfzl where convert(char(10),jfrq,120) >='''+FormatDateTime('yyyy-mm-dd',DateTimePicker1.Date)+''' and convert(char(10),jfrq,120) <= '''+FormatDateTime('yyyy-mm-dd',DateTimePicker2.Date)+'''';
                        QueryStr2:='delete from fybq where convert(char(10),bqrq,120) >='''+FormatDateTime('yyyy-mm-dd',DateTimePicker1.Date)+''' and convert(char(10),bqrq,120) <= '''+FormatDateTime('yyyy-mm-dd',DateTimePicker2.Date)+'''';
                        //showmessage(QueryStr1);
                       // showmessage(QueryStr2);
                        Execute(QueryStr1);
                        Execute(QueryStr2);
                        if errors.Count = 0 then
                        begin
                               Connected:=false;
                               //application.MessageBox(pchar('--归档日期--'+Datetostr(DateTimePicker1.Date)+'到'+Datetostr(DateTimePicker2.Date)+'---归档成功  '),'成功提示',mb_ok);
                               application.MessageBox(pchar('--删除--'+Datetostr(DateTimePicker1.Date)+'到'+Datetostr(DateTimePicker2.Date)+'---旧数据成功  '),'成功提示',mb_ok);

                        end
                        else
                        begin
                               Connected:=false;
                               application.MessageBox('数据库错误，刚才归档不成功','错误信息',mb_ok);
                        end;
               end;
        end
        else
        begin
                application.MessageBox('选择的终至时间可能小于起始时间,请重新选择起始和终至时间','提示',mb_ok);
                DateTimePicker1.SetFocus;

        end;
    end
    else
     begin
        ShowMessage('你没有选定条件!');
     end;
end;

procedure TF_sjgd.FormCreate(Sender: TObject);
begin
        DateTimePicker1.Date:=now-10;
        DateTimePicker2.Date:=now-5;
end;

end.