unit3.pas

自己做的一个人力资源管理

                         ParamByName('EMPDEPT').AsString:=ComboBox2.Text;
                         ParamByName('EDUDEGREE').AsString:=ComboBox15.Text;
                         ParamByName('SPECIALITY').AsString:=edit3.Text;
                         ParamByName('SCHOOL').AsString:=edit6.Text;
                         ParamByName('SEDDATe').AsDateTime:=strtodate(datetostr(DateTimePicker2.DateTime));
                         ParamByName('HTTIMELIMIT').AsString:=edit12.Text;
                         ParamByName('STARTDATE').AsDateTime:=strtodate(datetostr(DateTimePicker3.DateTime));
                         ParamByName('EDDDate').AsDateTime:=strtodate(datetostr(DateTimePicker5.DateTime));
                         ParamByName('DELECT').AsString:='1';
                         prepare;
                         execsql;
               end;
               with dm.TPersonExp do
               begin
                         close;
                         open;
               end;
               with dm.QTitleExp do
               begin
                         close;
                         sql.Clear;
                         sql.Add('UPDATE TitleExp set EMPID=:EMPID,EMPNAME=:EMPNAME,EMPDEPT=:EMPDEPT,TECHPOSITION=:TECHPOSITION,ADMINPOSITION=:ADMINPOSITION,DELECT=:DELECT');
                         sql.Add('where EMPID=:EMPID');
                         ParamByName('EMPID').AsString:=edit5.Text;
                         ParamByName('EMPNAME').AsString:=Edit4.Text;
                         ParamByName('EMPDEPT').AsString:=ComboBox2.Text;
                         ParamByName('TECHPOSITION').AsString:=ComboBox10.Text;
                         ParamByName('ADMINPOSITION').AsString:=ComboBox12.Text;
                         ParamByName('DELECT').AsString:='1';
                         prepare;
                         execsql;
               end;
               with dm.TTitleExp do
               begin
                         close;
                         open;
               end;
            end;

           ToolButton1.Enabled:=true;
           ToolButton2.Enabled:=true;
           ToolButton3.Enabled:=true;
           ToolButton4.Enabled:=true;
           ToolButton5.Enabled:=true;
           ToolButton6.Enabled:=true;
           ToolButton7.Enabled:=true;
           ToolButton8.Enabled:=true;
           close;
end;

procedure Tbase_people.ToolButton8Click(Sender: TObject);
begin
         if messagebox (0,'注意! 该功能为级联删除，若继续请选（Yes），若退出请选（No）','删除提示!',mb_yesno)=mryes
         then
         else exit;
         if messagebox (0,'请问是从数据库中删除（数据库中将无此记录，Yes），还是标记该记录为删除（数据库中仍有该记录,No）?','删除提示!',mb_yesno)=mryes
         then
              begin
              with DM.QPerson do
              begin
                        close;
                        sql.Clear;
                        sql.Add('delete from Person ');
                        sql.Add('where EMPID=:EMPID');
                        ParamByName('EMPID').AsString:=edit5.Text;
                        prepare;
                        execsql;
               end;
               with DM.TPerson do
               begin
                         close;
                         open;
               end;
               with DM.QPersonExp do
               begin
                        close;
                        sql.Clear;
                        sql.Add('delete from PersonExp ');
                        sql.Add('where EMPID=:EMPID');
                        ParamByName('EMPID').AsString:=edit5.Text;
                        prepare;
                        execsql;
               end;
               with DM.TPersonExp do
               begin
                         close;
                         open;
               end;
               with DM.QTitleExp do
               begin
                        close;
                        sql.Clear;
                        sql.Add('delete from TitleExp ');
                        sql.Add('where EMPID=:EMPID');
                        ParamByName('EMPID').AsString:=edit5.Text;
                        prepare;
                        execsql;
               end;
               with DM.TTitleExp do
               begin
                         close;
                         open;
               end;
               with DM.QJobMade do
               begin
                        close;
                        sql.Clear;
                        sql.Add('delete from JobMade ');
                        sql.Add('where EMPID=:EMPID');
                        ParamByName('EMPID').AsString:=edit5.Text;
                        prepare;
                        execsql;
               end;
               with DM.TJobMade do
               begin
                         close;
                         open;
               end;
               with DM.QAchievement do
               begin
                        close;
                        sql.Clear;
                        sql.Add('delete from Achievement ');
                        sql.Add('where EMPID=:EMPID');
                        ParamByName('EMPID').AsString:=edit5.Text;
                        prepare;
                        execsql;
               end;
               with DM.TAchievement do
               begin
                         close;
                         open;
               end;
               with DM.QWages do
               begin
                        close;
                        sql.Clear;
                        sql.Add('delete from Wages ');
                        sql.Add('where EMPID=:EMPID');
                        ParamByName('EMPID').AsString:=edit5.Text;
                        prepare;
                        execsql;
               end;
               with DM.TWages do
               begin
                         close;
                         open;
               end;
               showmessage('已将该记录从数据库中删除!');
              end
         else
              begin
              with DM.QPerson do
              begin
                        close;
                        sql.Clear;
                        sql.Add('update Person set DELECT=:DELECT');
                        sql.Add('where EMPID=:EMPID');
                        ParamByName('EMPID').AsString:=edit5.Text;
                        ParamByName('DELECT').AsString:='0';
                        prepare;
                        execsql;
               end;
               with DM.TPerson do
               begin
                         close;
                         open;
               end;

               with DM.QPersonExp do
              begin
                        close;
                        sql.Clear;
                        sql.Add('update PersonExp set DELECT=:DELECT');
                        sql.Add('where EMPID=:EMPID');
                        ParamByName('EMPID').AsString:=edit5.Text;
                        ParamByName('DELECT').AsString:='0';
                        prepare;
                        execsql;
               end;
               with DM.TPersonExp do
               begin
                         close;
                         open;
               end;

               with DM.QTitleExp do
               begin
                        close;
                        sql.Clear;
                        sql.Add('update TitleExp set DELECT=:DELECT');
                        sql.Add('where EMPID=:EMPID');
                        ParamByName('EMPID').AsString:=edit5.Text;
                        ParamByName('DELECT').AsString:='0';
                        prepare;
                        execsql;
               end;
               with DM.TTitleExp do
               begin
                         close;
                         open;
               end;

               with DM.QAchievement do
               begin
                        close;
                        sql.Clear;
                        sql.Add('update Achievement set DELECT=:DELECT');
                        sql.Add('where EMPID=:EMPID');
                        ParamByName('EMPID').AsString:=edit5.Text;
                        ParamByName('DELECT').AsString:='0';
                        prepare;
                        execsql;
               end;
               with DM.TAchievement do
               begin
                         close;
                         open;
               end;

               with DM.QJobMade do
               begin
                        close;
                        sql.Clear;
                        sql.Add('update JobMade set DELECT=:DELECT');
                        sql.Add('where EMPID=:EMPID');
                        ParamByName('EMPID').AsString:=edit5.Text;
                        ParamByName('DELECT').AsString:='0';
                        prepare;
                        execsql;
               end;
               with DM.TJobMade do
               begin
                         close;
                         open;
               end;

               with DM.QWages do
               begin
                        close;
                        sql.Clear;
                        sql.Add('update Wages set DELECT=:DELECT');
                        sql.Add('where EMPID=:EMPID');
                        ParamByName('EMPID').AsString:=edit5.Text;
                        ParamByName('DELECT').AsString:='0';
                        prepare;
                        execsql;
               end;
               with DM.TWages do
               begin
                         close;
                         open;
               end;

               showmessage('已将该记录标记为删除!');
               end;
               close;


end;

procedure Tbase_people.ComboBox17Change(Sender: TObject);
begin
        if  ComboBox17.Text='考勤信息' then  chuqing_people.ShowModal;
        if  ComboBox17.Text='奖惩信息' then  jiangfa_people.ShowModal;
        if  ComboBox17.Text='工资信息' then  money_people.ShowModal;
end;

procedure Tbase_people.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
              if (key in[' '..'~'])then key:=#0;
end;

procedure Tbase_people.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
           if (key in[' '..'~'])then key:=#0;
end;

procedure Tbase_people.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
         if not(key in['0'..'9',#8])then key:=#0;
end;

procedure Tbase_people.Edit8KeyPress(Sender: TObject; var Key: Char);
begin
           if not(key in['0'..'9',#8])then key:=#0;
end;

procedure Tbase_people.Edit9KeyPress(Sender: TObject; var Key: Char);
begin
             if not(key in['0'..'9',#8])then key:=#0;
end;

procedure Tbase_people.Edit10KeyPress(Sender: TObject; var Key: Char);
begin
            if not(key in['0'..'9',#8])then key:=#0;
end;

procedure Tbase_people.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
            if (key in[' '..'~'])then key:=#0;
end;

procedure Tbase_people.Edit6KeyPress(Sender: TObject; var Key: Char);
begin
         if key in['0'..'9']then key:=#0;
end;

procedure Tbase_people.Edit12KeyPress(Sender: TObject; var Key: Char);
begin
          if not(key in['0'..'9',#8])then key:=#0;
end;

end.