?? scdwsdfb.pas
字號(hào):
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,'不存在本月份的記錄。','營(yíng)房工作管理系統(tǒng)',16)
else
if messagebox(scdwsdf.Handle,'確認(rèn)要?jiǎng)h除本月記錄嗎?','營(yíng)房工作管理系統(tǒng)',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,'用戶月收費(fèi)表已清理完畢。','營(yíng)房工作管理系統(tǒng)',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.
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -