init.pas

毕业设计时候开发的人事管理系统

unit init;

interface

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

type
  Tfrminit = class(TForm)
    GroupBox1: TGroupBox;
    btnok: TBitBtn;
    btncancel: TBitBtn;
    check1: TCheckBox;
    Check2: TCheckBox;
    Check4: TCheckBox;
    check5: TCheckBox;
    check6: TCheckBox;
    procedure btncancelClick(Sender: TObject);
    procedure btnokClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frminit: Tfrminit;

implementation

uses datarsgl;

{$R *.dfm}

procedure Tfrminit.btncancelClick(Sender: TObject);
begin
close;
end;

procedure Tfrminit.btnokClick(Sender: TObject);
begin
if (check1.Checked=true) and (check2.Checked=true) and (check3.Checked=true) and (check4.Checked=true) and (check5.Checked=true) then
   begin
      if(application.MessageBox('确认全部删除系统数据吗?','提示',mb_okcancel))=1 then
         begin
         dmrsgl.companyqry.Close;
         dmrsgl.companyqry.SQL.Clear;
         dmrsgl.companyqry.SQL.Add('delete from companytb');
         dmrsgl.companyqry.ExecSQL;
         dmrsgl.ygjbzlqry.Close;
         dmrsgl.ygjbzlqry.SQL.Clear;
         dmrsgl.ygjbzlqry.SQL.Add('delete from employeer');
         dmrsgl.ygjbzlqry.ExecSQL;
         dmrsgl.ygsjgzzlqry.Close;
         dmrsgl.ygsjgzzlqry.SQL.Clear;
         dmrsgl.ygsjgzzlqry.SQL.Add('delete from ygsjgztb');
         dmrsgl.ygsjgzzlqry.ExecSQL;
         dmrsgl.ygkqtbqry.Close;
         dmrsgl.ygkqtbqry.SQL.Clear;
         dmrsgl.ygkqtbqry.SQL.Add('delete from ygkqtb');
         dmrsgl.ygkqtbqry.ExecSQL;
         dmrsgl.ygmonthgzqry.Close;
         dmrsgl.ygmonthgzqry.SQL.Clear;
         dmrsgl.ygmonthgzqry.SQL.Add('delete from monthgz');
         dmrsgl.ygmonthgzqry.ExecSQL;
         check1.Checked:=false;
         check2.Checked:=false;
         check3.Checked:=false;
         check4.Checked:=false;
         check5.Checked:=false;
         exit;
         end

   end;
if check3.Checked=true then      //清除公司资料表
            begin
            showmessage('为了安全起见,请问确实初始化公司资料数据吗？');
            dmrsgl.companyqry.Close;
            dmrsgl.companyqry.SQL.Clear;
            dmrsgl.companyqry.SQL.Add('delete from companytb');
            dmrsgl.companyqry.ExecSQL;
            check3.Checked:=false;
            end
       else if check2.Checked=true then       //清除工资暂存表
                begin
                showmessage('为了安全起见,请问确实初始化工资临时数据吗？');
                dmrsgl.ygmonthgzqry.Close;
                dmrsgl.ygmonthgzqry.SQL.Clear;
                dmrsgl.ygmonthgzqry.SQL.Add('delete from monthgz');
                dmrsgl.ygmonthgzqry.ExecSQL;
                check2.Checked:=false;
                end
           else if check1.Checked=true then   //清除员工基本资料
                  begin
                  showmessage('为了安全起见,请问确实初始化员工基本资料数据吗？');
                  dmrsgl.ygjbzlqry.Close;
                  dmrsgl.ygjbzlqry.SQL.Clear;
                  dmrsgl.ygjbzlqry.SQL.Add('delete from employeer');
                  dmrsgl.ygjbzlqry.ExecSQL;
                  check1.Checked:=false;
                  end
               else if check4.Checked=true then     //清除员工实际工资表
                     begin
                     showmessage('为了安全起见,请问确实初始化员工实际工资数据吗？');
                     dmrsgl.ygsjgzzlqry.Close;
                     dmrsgl.ygsjgzzlqry.SQL.Clear;
                     dmrsgl.ygsjgzzlqry.SQL.Add('delete from gzffbz');
                     dmrsgl.ygsjgzzlqry.ExecSQL;
                     check4.Checked:=false;
                     end
                  else if check5.Checked=true then    //清除员工考勤资料
                        begin
                        showmessage('为了安全起见,请问确实初始化员工考勤数据吗？');
                        dmrsgl.ygkqtbqry.Close;
                        dmrsgl.ygkqtbqry.SQL.Clear;
                        dmrsgl.ygkqtbqry.SQL.Add('delete from ygkqywtb');
                        dmrsgl.ygkqtbqry.ExecSQL;
                        check5.Checked:=false;
                        end
                     else if check6.Checked=true then
                        begin
                        if messagedlg('为了安全起见,请问确实初始化员工考勤数据吗？',mtinformation,[mbyes,mbno],0)=mryes then
                        begin
                        dmrsgl.ygkqtbqry.Close;
                        dmrsgl.ygkqtbqry.SQL.Clear;
                        dmrsgl.ygkqtbqry.SQL.Add('delete from ygkqywtb');
                        dmrsgl.ygkqtbqry.ExecSQL;
                        dmrsgl.ygkqtbqry.Close;
                        dmrsgl.ygkqtbqry.SQL.Clear;
                        dmrsgl.ygkqtbqry.SQL.Add('delete from companytb');
                        dmrsgl.ygkqtbqry.ExecSQL;
                        dmrsgl.ygkqtbqry.Close;
                        dmrsgl.ygkqtbqry.SQL.Clear;
                        dmrsgl.ygkqtbqry.SQL.Add('delete from employeer');
                        dmrsgl.ygkqtbqry.ExecSQL;
                        dmrsgl.ygkqtbqry.Close;
                        dmrsgl.ygkqtbqry.SQL.Clear;
                        dmrsgl.ygkqtbqry.SQL.Add('delete from kqmonthiftb');
                        dmrsgl.ygkqtbqry.ExecSQL;
                        dmrsgl.ygkqtbqry.Close;
                        dmrsgl.ygkqtbqry.SQL.Clear;
                        dmrsgl.ygkqtbqry.SQL.Add('delete from kqsettime');
                        dmrsgl.ygkqtbqry.ExecSQL;
                        dmrsgl.ygkqtbqry.Close;
                        dmrsgl.ygkqtbqry.SQL.Clear;
                        dmrsgl.ygkqtbqry.SQL.Add('delete from lztb');
                        dmrsgl.ygkqtbqry.ExecSQL;
                        dmrsgl.ygkqtbqry.Close;
                        dmrsgl.ygkqtbqry.SQL.Clear;
                        dmrsgl.ygkqtbqry.SQL.Add('delete from monthgz');
                        dmrsgl.ygkqtbqry.ExecSQL;
                        dmrsgl.ygkqtbqry.Close;
                        dmrsgl.ygkqtbqry.SQL.Clear;
                        dmrsgl.ygkqtbqry.SQL.Add('delete from txtime');
                        dmrsgl.ygkqtbqry.ExecSQL;
                        dmrsgl.ygkqtbqry.Close;
                        dmrsgl.ygkqtbqry.SQL.Clear;
                        dmrsgl.ygkqtbqry.SQL.Add('delete from usertb');
                        dmrsgl.ygkqtbqry.ExecSQL;
                        dmrsgl.ygkqtbqry.Close;
                        dmrsgl.ygkqtbqry.SQL.Clear;
                        dmrsgl.ygkqtbqry.SQL.Add('delete from yeargztb');
                        dmrsgl.ygkqtbqry.ExecSQL;
                        dmrsgl.ygkqtbqry.Close;
                        dmrsgl.ygkqtbqry.SQL.Clear;
                        dmrsgl.ygkqtbqry.SQL.Add('delete from ygbmtb');
                        dmrsgl.ygkqtbqry.ExecSQL;
                        dmrsgl.ygkqtbqry.Close;
                        dmrsgl.ygkqtbqry.SQL.Clear;
                        dmrsgl.ygkqtbqry.SQL.Add('delete from ygcttb');
                        dmrsgl.ygkqtbqry.ExecSQL;
                        dmrsgl.ygkqtbqry.Close;
                        dmrsgl.ygkqtbqry.SQL.Clear;
                        dmrsgl.ygkqtbqry.SQL.Add('delete from ygkqywtb');
                        dmrsgl.ygkqtbqry.ExecSQL;
                        dmrsgl.ygkqtbqry.Close;
                        dmrsgl.ygkqtbqry.SQL.Clear;
                        dmrsgl.ygkqtbqry.SQL.Add('delete from ygmovetb');
                        dmrsgl.ygkqtbqry.ExecSQL;
                        dmrsgl.ygkqtbqry.Close;
                        dmrsgl.ygkqtbqry.SQL.Clear;
                        dmrsgl.ygkqtbqry.SQL.Add('delete from ygsbtb');
                        dmrsgl.ygkqtbqry.ExecSQL;
                        dmrsgl.ygkqtbqry.Close;
                        dmrsgl.ygkqtbqry.SQL.Clear;
                        dmrsgl.ygkqtbqry.SQL.Add('delete from ygsjgztb');
                        dmrsgl.ygkqtbqry.ExecSQL;
                        dmrsgl.ygkqtbqry.Close;
                        dmrsgl.ygkqtbqry.SQL.Clear;
                        dmrsgl.ygkqtbqry.SQL.Add('delete from ygwptb');
                        dmrsgl.ygkqtbqry.ExecSQL;
                        dmrsgl.ygkqtbqry.Close;
                        dmrsgl.ygkqtbqry.SQL.Clear;
                        dmrsgl.ygkqtbqry.SQL.Add('delete from ywqktb');
                        dmrsgl.ygkqtbqry.ExecSQL;
                        check6.Checked:=false;
                        end
                     else
                         showmessage('谢谢您的使用！');
            end;             
end;               
procedure Tfrminit.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
end;

end.