xzsj.pas

delphi+sql server 我是delphi的初学者

unit XZSJ;

interface

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

type
  Tfrmsj = class(TForm)
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmsj: Tfrmsj;

implementation
uses UDM;

{$R *.dfm}

procedure Tfrmsj.Button2Click(Sender: TObject);
begin
  Close;
end;

procedure Tfrmsj.Button1Click(Sender: TObject);
begin
 dm.ADOCon1.BeginTrans;
    try
     //把当前的名细插入到历史表中
      with DM.ADOTP do
       begin
         Close;
         SQL.Clear;
         SQL.Add('insert into lsdj_tb');
         SQL.Add('select * from libnumberls');
         SQL.Add('where zt=''已结'' and sxdm=:dm and rq between :krq and :jrq');
         Parameters.ParamByName('krq').Value:=DateTimePicker1.Date;
         Parameters.ParamByName('jrq').Value:=DateTimePicker2.Date;
         Parameters.ParamByName('dm').Value:=dm.HDM;
         ExecSQL;
       end;
      //删除核销表中的单据
      with dm.ADOTP do
       begin
         Close;
         SQL.Clear;
         SQL.Add('delete from libnumberls');
         SQL.Add('where zt=''已结'' and sxdm=:dm and rq between :krq and :jrq');
         Parameters.ParamByName('krq').Value:=DateTimePicker1.Date;
         Parameters.ParamByName('jrq').Value:=DateTimePicker2.Date;
         Parameters.ParamByName('dm').Value:=dm.HDM;
         ExecSQL;
       end;
    dm.ADOCon1.CommitTrans;
    except
    dm.ADOCon1.RollbackTrans;
    end;
  dm.ADOCODE.Close;
  dm.ADOCODE.Open;
  dm.ADOLSDJ.Close;
  dm.ADOLSDJ.Open;
end;

procedure Tfrmsj.FormShow(Sender: TObject);
begin
  DateTimePicker1.Date:=Date;
  DateTimePicker2.Date:=Date;
end;

end.