auto_delunit.pas

使用delphi语言

unit auto_delunit;

interface

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

type
  Tauto_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
  auto_delform: Tauto_delform;

implementation
 uses dmunit;
{$R *.dfm}

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

procedure Tauto_delform.BitBtn2Click(Sender: TObject);
begin
  dm.detail.Active:=false;
  close;
end;

procedure Tauto_delform.BitBtn1Click(Sender: TObject);
var y:string;
begin
  if length(trim(spinedit2.Text))<>2 then
  begin
    messagebox(self.Handle,'请正确填写日期','提示信息',mb_iconinformation);
    exit;
  end;
  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);
  dm.detail.Active:=false;
  close;
end;

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

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

end.