scyhsdffrm.pas

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

unit scyhsdffrm;

interface

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

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

var
  scyhsdfb: Tscyhsdfb;

implementation

uses datafrm, yhsdffrm;

{$R *.dfm}

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

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

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

end.