delgzdateunit.pas

不可多得的大型公司公资管理系统软件.该系统用DELPHI来实现.

unit DelGzDateunit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Mask, Buttons, ComCtrls, ExtCtrls;

type
  TDelGzDate = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    MaskEdit1: TMaskEdit;
    UpDown1: TUpDown;
    Label2: TLabel;
    Edit4: TEdit;
    UpDown2: TUpDown;
    Label3: TLabel;
    Bevel1: TBevel;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DelGzDate: TDelGzDate;

implementation

uses gzdata, PassWordUnit,DataTUnit,bdeutils;

{$R *.DFM}

procedure TDelGzDate.FormShow(Sender: TObject);
begin
   maskedit1.Text:=password.MaskEdit1.Text;
   edit4.Text:=inttostr(strtoint(password.Edit4.text));
   maskedit1.SetFocus;
end;

procedure TDelGzDate.BitBtn1Click(Sender: TObject);
   var ddd,ts:string;
begin
  data.Query1.DisableControls;
  try
  ddd:='';
  ddd:=inttostr(strtoint(maskedit1.Text))+'-'+inttostr(strtoint(edit4.Text));
  data.Query1.Close;

   with data.Query1.SQL do
   begin
      clear;
      add('select * from lyk');
      add('where riqi='''+ddd+'''');
   end;
   data.Query1.Open;

   if data.Query1.IsEmpty then
// if (data.Query1.fields[0].asfloat=0) and (data.Query1.fields[0].asfloat=0) then
   begin
   ts:='';
   ts:='不存在'+ddd+'数据,请重新选择日期!';
   application.messagebox(PChar(ts),'提示框',mb_ok+mb_iconstop);
   abort;
   end
   else
   begin
       ts:='';
       ts:=ddd+'月 已有 <纪录>'+floattostr(data.Query1.RecordCount)+'个'+',您如果删除，'+ddd+'月数据降不能恢复，夜班等将不存在，建议您先进行<<数据压缩备份>>，以防万一，进行吗?';
       IF  (application.messagebox(PChar(ts),'提示框',mb_okcancel+mb_defbutton1+mb_iconquestion)
       =idok) then
       begin
            with data.Query1 do
            begin
            screen.cursor:=crhourglass;
                 while not eof do
                 begin
                 delete;
                 end;
            end;
         data.Query1.Close;
       end
       else
       abort;
   end;

    finally
   data.Query1.EnableControls;
   screen.cursor:=crdefault;
   data.Query1.Close;
   try
   datat.Table1.Close;
   datat.table1.Open;
   packtable(datat.table1);
   except
   end;
   end;
  //application.MessageBox('数据已删除完毕，请退出！！！','提示',+mb_ok+mb_iconinformation);
 end;
procedure TDelGzDate.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #27 then Close;
end;


procedure TDelGzDate.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
    datat.Table1.Close;
    datat.Table4.Close;
end;

end.