pfm_datadel.pas

POS收银系统

unit pfm_datadel;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, StdCtrls, Db, DBTables, Grids, DBGrids, Buttons,pvar_lib;

type
  Tfm_datadel = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    LBox1: TListBox;
    Query1: TQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    GroupBox1: TGroupBox;
    BitBtn1: TBitBtn;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Query2: TQuery;
    TabSheet2: TTabSheet;
    Label3: TLabel;
    DTPicker1: TDateTimePicker;
    BBtnxsrz: TBitBtn;
    Label4: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure LBox1Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure BBtnxsrzClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fm_datadel: Tfm_datadel;

implementation

{$R *.DFM}
var
strtable1,strtable2:string;
procedure Tfm_datadel.FormCreate(Sender: TObject);
begin
    with lbox1.Items do
    begin
    add('进货入库单');
    add('提货出库单');
    add('批发单');
    add('赠品单');
    add('商品退货单');
    add('门店退仓单');
    add('损溢单');
    add('调价单');
    end;
    dtpicker1.datetime:=now();
end;

procedure Tfm_datadel.LBox1Click(Sender: TObject);
begin
    case lbox1.itemindex of
      0://进货入库单');
        begin
        strtable1:='tb_jhd';
        strtable2:='tb_jhdmx';
        end;
      1://提货出库单');
        begin
        strtable1:='tb_thd';
        strtable2:='tb_thdmx';
        end;
      2://批发单');
        begin
        strtable1:='tb_pfd';
        strtable2:='tb_pfdmx';
        end;
      3://赠品单');
        begin
        strtable1:='tb_zengpind';
        strtable2:='tb_zengpindmx';
        end;
      {4://客户退货单');
        begin
        strtable1:='tb_tuihuod';
        strtable2:='tb_tuihuodmx';
        end;}
      4://商品退货单');
        begin
        strtable1:='tb_sptuihuod';
        strtable2:='tb_sptuihuodmx';
        end;
      5://门店退仓单');
        begin
        strtable1:='tb_mdtcd';
        strtable2:='tb_mdtcdmx';
        end;
      6://损溢单');
        begin
        strtable1:='tb_syd';
        strtable2:='tb_sydmx';
        end;
      7://调价单');
      begin
        strtable1:='tb_tjd';
        strtable2:='tb_tjdmx';
      end;
    end;
    groupbox1.caption:=lbox1.Items[lbox1.itemindex];
    query1.active:=false;
    query1.sql.clear;
    query1.sql.add('select lsh,rq from '+strtable1+' order by lsh desc');
    query1.active:=true;
    dbgrid1.Columns[0].Title.caption:='流水号';
    dbgrid1.Columns[1].Title.caption:='日期';
    edit1.text:='';
    label2.Caption:='请先设置删除条件删除过期的'+lbox1.Items[lbox1.itemindex]+'数据';

end;

procedure Tfm_datadel.BitBtn1Click(Sender: TObject);
var
lsh:integer;
begin
     if strtable1='' then
     begin
        label2.caption:='请先选择表单';
        exit;
     end;
     try
        lsh:=strtoint(edit1.text)
     except
        on EConvertError  do
        label2.Caption:='流水号请输入整数';
     end;
    if application.MessageBox(pchar('是否要删除？'),
        pchar('注意'),MB_OKCANCEL)<>IDOK then
    begin
        exit;
    end;
     query2.sql.clear;
     query2.sql.add('delete from '+strtable2+' where lsh<'+edit1.text+';');
     query2.sql.add('delete from '+strtable1+' where lsh<'+edit1.text+';');
     query2.ExecSQL;
     query1.Active:=false;
     query1.active:=true;
     dbgrid1.Columns[0].Title.caption:='流水号';
    dbgrid1.Columns[1].Title.caption:='日期';

    label2.Caption:='删除成功';
    AddOptRecord('删除流水号小于'+edit1.text+'的'+lbox1.items[lbox1.itemindex]);
    edit1.text:='';
end;

procedure Tfm_datadel.DBGrid1DblClick(Sender: TObject);
begin
    if not query1.eof then
    begin
        edit1.text:=query1.fieldbyname('lsh').asstring;
    end;
end;

procedure Tfm_datadel.BBtnxsrzClick(Sender: TObject);
var
  Present: TDateTime;
  seltime:TDateTime;
  Year1,Month1,Day1:Word;
  Year2,Month2,Day2:Word;
begin
  if now<dtpicker1.datetime then
  begin
    showmessage('选择数据删除的时间不能大于现在');
    exit;
  end;
    if application.MessageBox(pchar('是否要删除？'),
        pchar('注意'),MB_OKCANCEL)<>IDOK then
    begin
        exit;
    end;
  Present:= Now;
  DecodeDate(Present, Year1, Month1, Day1);
  seltime:=DTPicker1.DateTime;
  DecodeDate(seltime, Year2, Month2, Day2);
  if month2*30+day2+60>month1*30+day1 then
  begin
    showmessage('只能删除两个月之前的销售记录');
    exit;
  end;
  //将选择时间前的销售数据备份到备份数据库中
  query2.Close;
  query2.sql.clear;
  query2.SQL.add('delete from tab_xsrz where rq<cdate('''+datetimetostr(seltime)+''')');
  query2.ExecSQL;
  label4.Caption:=datetostr(dtpicker1.datetime)+'之前的销售日志成功删除';
  AddOptRecord('删除'+datetostr(dtpicker1.datetime)+'之前的销售日志');
end;
end.