unitbbdjls.pas

delphi+sql server 我是delphi的初学者

unit UnitBBDJLS;

interface

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

type
  TFormBBDJLS = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    Cdd: TComboBox;
    Label3: TLabel;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormBBDJLS: TFormBBDJLS;

implementation
uses UDM;
{$R *.dfm}

procedure TFormBBDJLS.Button2Click(Sender: TObject);
begin
  close;
end;

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

procedure TFormBBDJLS.FormShow(Sender: TObject);
begin
 Cdd.Text:='';
 with dm.qrytemp do
  begin
    close;
    sql.Clear;
    sql.Add('select * from ly_place');
    prepared;
    open;
  end;
  Cdd.Items.Clear;
  while not dm.qrytemp.Eof do
  begin
    Cdd.Items.Append(dm.qrytemp.Fields[2].asstring);
    dm.qrytemp.Next;
  end;

end;

end.