u_qclssj.pas

来自「人事管理程序源码」· PAS 代码 · 共 105 行

unit U_qclssj;

interface

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

type
  TForm_qclssj = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_qclssj: TForm_qclssj;

implementation

uses U_gzda_dm, U_main;

{$R *.dfm}

procedure TForm_qclssj.BitBtn2Click(Sender: TObject);
begin
  close;
end;

procedure TForm_qclssj.BitBtn1Click(Sender: TObject);
begin
  if Form_main.StatusBar1.Panels[1].Text<>'操作员:SuperMan' then
     begin
       showmessage('你无权执行本功能!!');
       abort;
     end;

  if Application.MessageBox('全部数据删除后不能再恢复，继续吗?','提示',MB_YesNO+ MB_DEFBUTTON2) <> IDYes then
     begin
       Abort;
     end;
  if Application.MessageBox('确实要数据库中的所有数据吗!?','提示',MB_YesNO+ MB_DEFBUTTON2) <> IDYes then
     begin
       Abort;
     end;
  with gzda_dm.ADOCommand1 do  begin
    commandtext:='delete from zgdab';
    Execute;
  end;
  with gzda_dm.ADOCommand1 do begin
    commandtext:='delete from gzjl ';
    Execute;
  end;
  with gzda_dm.ADOCommand1 do begin
    commandtext:='delete from xxjl ';
    Execute;
  end;
  with gzda_dm.ADOCommand1 do begin
    commandtext:='delete from zcprjl ';
    Execute;
  end;
  with gzda_dm.ADOCommand1 do begin
    commandtext:='delete from gztzqk ';
    Execute;
  end;
  with gzda_dm.ADOCommand1 do begin
    commandtext:='delete from jxjy ';
    Execute;
  end;
  with gzda_dm.ADOCommand1 do begin
    commandtext:='delete from jfjl ';
    Execute;
  end;
  with gzda_dm.ADOCommand1 do begin
    commandtext:='delete from poqk ';
    Execute;
  end;
  with gzda_dm.ADOCommand1 do begin
    commandtext:='delete from shgx ';
    Execute;
  end;
  showmessage('所有历史数据已被清除!!');
  close;
end;

procedure TForm_qclssj.FormActivate(Sender: TObject);
begin
  if copy(Form_main.main_czrybm,1,1)<>'1' then
     begin
       showmessage('你无权使用本功能!!');
       bitbtn1.Enabled:=false;
       abort;
     end;
end;

end.