scdwsdfb.pas

来自「本人编写的有关军队营房工作的管理系统」· PAS 代码 · 共 87 行

unit scdwsdfb;

interface

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

type
  Tscdwsdf = class(TForm)
    Panel1: TPanel;
    Label2: TLabel;
    Label3: TLabel;
    Label1: TLabel;
    Gauge1: TGauge;
    DBNumberEditEh1: TDBNumberEditEh;
    DBNumberEditEh2: TDBNumberEditEh;
    Panel2: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  scdwsdf: Tscdwsdf;

implementation

uses datafrm,dwsdffrm;
{$R *.dfm}

procedure Tscdwsdf.SpeedButton2Click(Sender: TObject);
begin
close;
end;

procedure Tscdwsdf.FormActivate(Sender: TObject);
var
present:tdatetime;
Year, Month, Day: Word;
begin
present:=now;
decodedate(present,year,month,day);
scdwsdf.DBNumberEditEh1.Value:=year;
scdwsdf.DBNumberEditEh2.Value:=month;
end;

procedure Tscdwsdf.SpeedButton1Click(Sender: TObject);
var
  i,m,n:integer;
begin
yfgldata.dwsdf.Filter:='年度='+floattostr(scdwsdf.DBNumberEditEh1.Value)+' and 月份='+floattostr(scdwsdf.DBNumberEditEh2.Value);
yfgldata.dwsdf.Filtered:=true;
m:=yfgldata.dwsdf.RecordCount;
if yfgldata.dwsdf.RecordCount=0 then
  messagebox(scdwsdf.handle,'不存在本月份的记录。','营房工作管理系统',16)
else
  if messagebox(scdwsdf.Handle,'确认要删除本月记录吗?','营房工作管理系统',33)=1 then
    begin
      yfgldata.dwsdf.FindFirst;
      for i:=1 to yfgldata.dwsdf.RecordCount do
        begin
        n:=yfgldata.dwsdf.RecNo;
        yfgldata.dwsdf.Delete;
        scdwsdf.Gauge1.Progress:=(n*100) div m;
        yfgldata.dwsdf.FindNext;
        end;
      messagebox(scdwsdf.Handle,'用户月收费表已清理完毕。','营房工作管理系统',64);
      close;
      if yfgldata.qdwsdf.Active then
        yfgldata.qdwsdf.Active:=false;
      yfgldata.qdwsdf.Params[0].AsInteger:=dwsdf.DBNumberEditEh1.Value;
      yfgldata.qdwsdf.Params[1].AsInteger:=dwsdf.DBNumberEditEh2.Value;
      yfgldata.qdwsdf.Active:=true;
      dwsdf.showdwsdf;
    end;
yfgldata.dwsdf.Filtered:=false;
end;

end.