deleterecived.pas

delphi+sql server 我是delphi的初学者

unit deleterecived;

interface

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

type
  Tfrmdeleterecived = class(TForm)
    lbl1: TLabel;
    pnl1: TPanel;
    pnl2: TPanel;
    btn1: TBitBtn;
    btn2: TBitBtn;
    edt1: TEdit;
    edt2: TEdit;
    dtp1: TDateTimePicker;
    dtp2: TDateTimePicker;
    lbl2: TLabel;
    lbl3: TLabel;
    lbl4: TLabel;
    lbl5: TLabel;
    procedure btn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure edt1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edt2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure dtp1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmdeleterecived: Tfrmdeleterecived;

implementation
uses UDM;

{$R *.dfm}

procedure Tfrmdeleterecived.btn2Click(Sender: TObject);
begin
  CLOSE;
end;

procedure Tfrmdeleterecived.FormShow(Sender: TObject);
begin
   EDT1.Text:='';
   edt2.Text:='';
   dtp1.Date:=date;
   dtp2.date:=date;
end;

procedure Tfrmdeleterecived.btn1Click(Sender: TObject);
begin
   with dm.qrytemp do
   begin
     close;
     sql.Clear;
     sql.Add('delete from libnumber');
     sql.Add('where numberid between :knumberid and :jnumberid');
     sql.Add('or djdate between :kdjdate and :jdjdate');
     sql.Add('and hxbz=''1''');
     parameters.ParamByName('knumberid').Value:=trim(edt1.Text);
     parameters.ParamByName('jnumberid').Value:=trim(edt2.Text);
     parameters.ParamByName('kdjdate').Value:=dtp1.Date;
     parameters.ParamByName('jdjdate').Value:=dtp2.Date;
     try
       execsql;
       except
        messagebox(handle,'删除数据失败!','系统提示',mb_iconinformation+mb_ok);
        exit;
     end;
   end;
   dm.qrylibnumber.Close;
   dm.qrylibnumber.Open;
   dm.qrylibnumber2.Close;
   dm.qrylibnumber2.Open;

end;

procedure Tfrmdeleterecived.edt1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if key=$0D then
 edt2.SetFocus;
end;

procedure Tfrmdeleterecived.edt2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    if key=$0D then
   dtp1.SetFocus;
end;

procedure Tfrmdeleterecived.dtp1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key=$0D then
  dtp2.SetFocus; 
end;

end.