sjzj1.pas

思微POS连锁超市管理系统 (商业代码),几年前的东西了

unit sjzj1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, Buttons, ComCtrls, Db, DBTables, ADODB;

type
  Tsjzj = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Query1: TADOQuery;
    GroupBox1: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    CheckBox7: TCheckBox;
    CheckBox8: TCheckBox;
    CheckBox9: TCheckBox;
    CheckBox10: TCheckBox;
    CheckBox11: TCheckBox;
    CheckBox12: TCheckBox;
    CheckBox13: TCheckBox;
    Label1: TLabel;
    DateTimePicker2: TDateTimePicker;
    Label2: TLabel;
    DateTimePicker1: TDateTimePicker;
    CheckBox14: TCheckBox;
    CheckBox15: TCheckBox;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure aaa(b: string);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  sjzj: Tsjzj;

implementation

uses MainForm1, CKDD1, sprkd1, syd1, lld1, tld1;

{$R *.DFM}

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

procedure Tsjzj.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  action := cafree;
end;

procedure Tsjzj.BitBtn1Click(Sender: TObject);
begin
  if CheckBox1.Checked then
  begin
    Query1.Close;
    Query1.sql.clear;
    Query1.sql.add('insert into cgdd001bak');
    Query1.sql.add('select * from cgdd001 where kdrq>=:rq1 and kdrq <=:rq2');
    Query1.Parameters[0].Value := datetostr(DateTimePicker2.date);
    Query1.Parameters[1].Value := datetostr(DateTimePicker1.date);
    Query1.ExecSQL;
    Query1.Close;
    Query1.sql.clear;
    Query1.sql.add('insert into cgdd002bak');
    Query1.sql.add('select * from cgdd002 where code in(select code from cgdd001 where kdrq>=:rq1 and kdrq <=:rq2)');
    Query1.Parameters[0].Value := datetostr(DateTimePicker2.date);
    Query1.Parameters[1].Value := datetostr(DateTimePicker1.date);
    Query1.ExecSQL;
    Query1.Close;
    Query1.sql.clear;
    Query1.sql.add('delete cgdd001 where kdrq>=:rq1 and kdrq <=:rq2');
    Query1.Parameters[0].Value := datetostr(DateTimePicker2.date);
    Query1.Parameters[1].Value := datetostr(DateTimePicker1.date);
    Query1.ExecSQL;
    Query1.Close;
    Query1.sql.clear;
    Query1.sql.add('delete ckdd002 where code in(select code from cgdd001 where kdrq>=:rq1 and kdrq <=:rq2)');
    Query1.Parameters[0].Value := datetostr(DateTimePicker2.date);
    Query1.Parameters[1].Value := datetostr(DateTimePicker1.date);
    Query1.ExecSQL;
  end;
  if CheckBox4.Checked then
  begin
    Query1.Close;
    Query1.sql.clear;
    Query1.sql.add('insert into xsdd001bak');
    Query1.sql.add('select * from xsdd001 where kdrq>=:rq1 and kdrq <=:rq2');
    Query1.Parameters[0].Value := datetostr(DateTimePicker2.date);
    Query1.Parameters[1].Value := datetostr(DateTimePicker1.date);
    Query1.ExecSQL;
    Query1.Close;
    Query1.sql.clear;
    Query1.sql.add('insert into xsdd002bak');
    Query1.sql.add('select * from xsdd002 where code in(select code from xsdd001 where kdrq>=:rq1 and kdrq <=:rq2)');
    Query1.Parameters[0].Value := datetostr(DateTimePicker2.date);
    Query1.Parameters[1].Value := datetostr(DateTimePicker1.date);
    Query1.ExecSQL;
    Query1.Close;
    Query1.sql.clear;
    Query1.sql.add('delete xsdd001 where kdrq>=:rq1 and kdrq <=:rq2');
    Query1.Parameters[0].Value := datetostr(DateTimePicker2.date);
    Query1.Parameters[1].Value := datetostr(DateTimePicker1.date);
    Query1.ExecSQL;
    Query1.Close;
    Query1.sql.clear;
    Query1.sql.add('delete ckdd002 where code in(select code from xsdd001 where kdrq>=:rq1 and kdrq <=:rq2)');
    Query1.Parameters[0].Value := datetostr(DateTimePicker2.date);
    Query1.Parameters[1].Value := datetostr(DateTimePicker1.date);
    Query1.ExecSQL;
  end;
  if CheckBox2.Checked then aaa('cgsh');
  if CheckBox3.Checked then aaa('cgth');
  if CheckBox5.Checked then aaa('xsch');
  if CheckBox6.Checked then aaa('xsth');
  if CheckBox7.Checked then aaa('ckdd');
  if CheckBox8.Checked then aaa('sprk');
  if CheckBox9.Checked then aaa('spzz');
  if CheckBox10.Checked then aaa('spcx');
  if CheckBox11.Checked then aaa('syd');
  if CheckBox12.Checked then aaa('ckll');
  if CheckBox13.Checked then aaa('cktl');
  if CheckBox14.Checked then aaa('cgfk');
  if CheckBox15.Checked then aaa('xssk');
  Application.MessageBox('数据转结成功.', '提示', MB_OK + MB_ICONASTERISK);
end;

procedure Tsjzj.FormCreate(Sender: TObject);
begin
  DateTimePicker1.Date := now() - 30;
  DateTimePicker2.Date := now() - 60;
end;

procedure Tsjzj.aaa(b: string);
begin
  Query1.Close;
  Query1.sql.clear;
  Query1.sql.add('insert into ' + b + '001bak');
  Query1.sql.add('select * from ' + b + '001 where kdrq>=:rq1 and kdrq <=:rq2');
  Query1.Parameters[0].Value := datetostr(DateTimePicker2.date);
  Query1.Parameters[1].Value := datetostr(DateTimePicker1.date);
  Query1.ExecSQL;
  Query1.Close;
  Query1.sql.clear;
  Query1.sql.add('insert into ' + b + '002bak');
  Query1.sql.add('select * from ' + b + '002 where code in(select code from ' + b + '001 where kdrq>=:rq1 and kdrq <=:rq2)');
  Query1.Parameters[0].Value := datetostr(DateTimePicker2.date);
  Query1.Parameters[1].Value := datetostr(DateTimePicker1.date);
  Query1.ExecSQL;
  Query1.Close;
  Query1.sql.clear;
  Query1.sql.add('delete ' + b + '001 where kdrq>=:rq1 and kdrq <=:rq2');
  Query1.Parameters[0].Value := datetostr(DateTimePicker2.date);
  Query1.Parameters[1].Value := datetostr(DateTimePicker1.date);
  Query1.ExecSQL;
  Query1.Close;
  Query1.sql.clear;
  Query1.sql.add('delete ' + b + '002 where code in(select code from ' + b + '001 where kdrq>=:rq1 and kdrq <=:rq2)');
  Query1.Parameters[0].Value := datetostr(DateTimePicker2.date);
  Query1.Parameters[1].Value := datetostr(DateTimePicker1.date);
  Query1.ExecSQL;
end;

end.