lx_delunit.pas

使用delphi语言

unit lx_delunit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Spin, Buttons, ExtCtrls, ADODB, Mask;

type
  Tlx_delform = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    c: TADOCommand;
    spinedit1: TMaskEdit;
    spinedit2: TMaskEdit;
    procedure SpinEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure SpinEdit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure SpinEdit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  lx_delform: Tlx_delform;

implementation
   uses dmunit;
{$R *.dfm}

procedure Tlx_delform.SpinEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in['0'..'9',#8,#13] ) then
    key:=#0;
end;

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

procedure Tlx_delform.BitBtn1Click(Sender: TObject);
var y:string;
begin
  y:=self.SpinEdit1.Text+'年'+self.SpinEdit2.Text+'月数据不存在';
  dm.detail.Close;
  dm.detail.CommandText:='select * from 明细表 where 年=:y and 月=:m and 摘要=''利息结算''';
  dm.detail.Parameters.ParamByName('y').Value:=self.SpinEdit1.Text ;
  dm.detail.Parameters.ParamByName('m').Value:=self.SpinEdit2.Text ;
  dm.detail.Open ;
  if dm.detail.RecordCount =0 then
  begin
    messagebox(self.Handle,pchar(y),'提示信息',mb_iconinformation);
    exit;
  end;
  c.CommandText:='delete 明细表 where 年=:y and 月=:m  and 摘要=''利息结算''';
  c.Parameters.ParamByName('y').Value:=self.SpinEdit1.Text ;
  c.Parameters.ParamByName('m').Value:=self.SpinEdit2.Text ;
  c.Execute ;
  messagebox(self.Handle,'取消利息结算成功完成！','提示信息',mb_iconinformation);
  close;
end;

procedure Tlx_delform.SpinEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=13 then
    self.SpinEdit2.SetFocus;
end;

procedure Tlx_delform.SpinEdit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=13 then
    bitbtn1.SetFocus ;
end;

end.