⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 kqsource.txt

📁 人事管理
💻 TXT
📖 第 1 页 / 共 2 页
字号:
🔍
12 
var tempnumber:string;
begin
if radswsb.Checked=true then
begin
dmrsgl.ygkqywtbqry.Close;
dmrsgl.ygkqywtbqry.SQL.Clear;
dmrsgl.ygkqywtbqry.SQL.Add('select * from ygkqywtb where number='+quotedstr(edkqdjnumber.Text));
dmrsgl.ygkqywtbqry.Open;
  if (dmrsgl.ygkqywtbqry.RecordCount=0) then
     begin
     label1.Caption:='??2??e,êy?Y?a?D2?′??ú??±ào?μ?????.';
     edkqdjnumber.Text:='';      //????ò?±???ò????±1¤′ò?¨
     edkqdjnumber.SetFocus;
     end
  else
     begin
     tempnumber:=dmrsgl.ygkqywtbqry.fieldbyname('number').AsString;
     edkqdjname.Text:=dmrsgl.ygkqywtbqry.fieldbyname('name').AsString;
     dmrsgl.kqsettimeqry.Close;       //′ò?a???úê±??±í
     dmrsgl.kqsettimeqry.SQL.Clear;
     dmrsgl.kqsettimeqry.SQL.Add('select morningintime from kqsettime');
     dmrsgl.kqsettimeqry.Open;
     if (time-dmrsgl.kqsettimeqry.FieldByName('morningintime').AsDateTime=20) then
        begin
        label1.Caption:='??2??e,??×￠òa??ò?3ùμ?.';    //3ùμ??D??
        dmrsgl.ygkqywtbqry.Close;
        dmrsgl.ygkqywtbqry.SQL.Clear;
        dmrsgl.ygkqywtbqry.SQL.Add('update ygkqywtb set ygcdcs=ygcdcs+1 where number='+quotedstr(tempnumber));
        dmrsgl.ygkqywtbqry.ExecSQL;
        edkqdjnumber.Text:='';      //????ò?±???ò????±1¤′ò?¨
        edkqdjnumber.SetFocus;
        end
     else if (time-dmrsgl.kqsettimeqry.FieldByName('morningintime').AsDateTime=45) then
        begin
        label1.Caption:='??2??e,??×￠òa??ò???í?.';
        dmrsgl.ygkqywtbqry.Close;
        dmrsgl.ygkqywtbqry.SQL.Clear;
        dmrsgl.ygkqywtbqry.SQL.Add('update ygkqywtb set ygztcs=ygztcs+1 where number='+quotedstr(tempnumber));
        dmrsgl.ygkqywtbqry.ExecSQL;
        edkqdjnumber.Text:='';      //????ò?±???ò????±1¤′ò?¨
        edkqdjnumber.SetFocus;
        end
    else if (time-dmrsgl.kqsettimeqry.FieldByName('morningintime').AsDateTime=75) then
      begin
      label1.Caption:='??2??e,??×￠òa??ò???1¤ .';
      dmrsgl.ygkqywtbqry.Close;
      dmrsgl.ygkqywtbqry.SQL.Clear;
      dmrsgl.ygkqywtbqry.SQL.Add('update ygkqywtb set ygkgcs=ygkgcs+1 where number='+quotedstr(tempnumber));
      dmrsgl.ygkqywtbqry.ExecSQL;
      edkqdjnumber.Text:='';      //????ò?±???ò????±1¤′ò?¨
      edkqdjnumber.SetFocus;
      end
   else
   label1.Caption:='??×￠òa??ò?′ò?¨á?,2?òa′òμú?t′??¨?a???TD§.';
   edkqdjnumber.Text:='';      //????ò?±???ò????±1¤′ò?¨
   edkqdjnumber.SetFocus;
   end;
end
else if radswxb.Checked=true then       //é?????°à?D??
   begin
   dmrsgl.ygkqtbqry.Close;
   dmrsgl.ygkqtbqry.SQL.Clear;
   dmrsgl.ygkqtbqry.SQL.Add('select * from ygsbtb where number='+quotedstr(edkqdjnumber.Text));
   dmrsgl.ygkqtbqry.Open;
   if (dmrsgl.ygkqtbqry.RecordCount=0) then
      begin
      label1.Caption:='??2??e,êy?Y?a?D2?′??ú??±ào?μ?????.';
      edkqdjnumber.Text:='';      //????ò?±???ò????±1¤′ò?¨
      edkqdjnumber.SetFocus;
      end
   else
      begin
      if (monthof(date)=1) then
        begin
        dmrsgl.ygkqtbqry.Close;
        dmrsgl.ygkqtbqry.SQL.Clear;
        dmrsgl.ygkqtbqry.SQL.Add('update ygsbtb set onemonth=onemonth+0.5 where number='+quotedstr(edkqdjnumber.Text));
        dmrsgl.ygkqtbqry.ExecSQL; //?′DD????é?°àììêy
        end
      else
      begin
      if (monthof(date)=2) then
         begin
         dmrsgl.ygkqtbqry.Close;
         dmrsgl.ygkqtbqry.SQL.Clear;
         dmrsgl.ygkqtbqry.SQL.Add('update ygsbtb set twomonth=twomonth+0.5 where number='+quotedstr(edkqdjnumber.Text));
         dmrsgl.ygkqtbqry.ExecSQL;
         end
     else
     begin
     if (monthof(date)=3) then
        begin
         dmrsgl.ygkqtbqry.Close;
         dmrsgl.ygkqtbqry.SQL.Clear;
         dmrsgl.ygkqtbqry.SQL.Add('update ygsbtb set threemonth=threemonth+0.5 where number='+quotedstr(edkqdjnumber.Text));
         dmrsgl.ygkqtbqry.ExecSQL;
         end
     else
     begin
     if (monthof(date)=4) then
        begin
         dmrsgl.ygkqtbqry.Close;
         dmrsgl.ygkqtbqry.SQL.Clear;
         dmrsgl.ygkqtbqry.SQL.Add('update ygsbtb set fourmonth=fourmonth+0.5 where number='+quotedstr(edkqdjnumber.Text));
         dmrsgl.ygkqtbqry.ExecSQL;
         end
     else
     begin
     if (monthof(date)=5) then
        begin
         dmrsgl.ygkqtbqry.Close;
         dmrsgl.ygkqtbqry.SQL.Clear;
         dmrsgl.ygkqtbqry.SQL.Add('update ygsbtb set fivemonth=fivemonth+0.5 where number='+quotedstr(edkqdjnumber.Text));
         dmrsgl.ygkqtbqry.ExecSQL;
         end
     else
     begin
     if (monthof(date)=6) then
        begin
         dmrsgl.ygkqtbqry.Close;
         dmrsgl.ygkqtbqry.SQL.Clear;
         dmrsgl.ygkqtbqry.SQL.Add('update ygsbtb set sixmonth=sixmonth+0.5 where number='+quotedstr(edkqdjnumber.Text));
         dmrsgl.ygkqtbqry.ExecSQL;
         end
     else
     begin
     if (monthof(date)=7) then
        begin
         dmrsgl.ygkqtbqry.Close;
         dmrsgl.ygkqtbqry.SQL.Clear;
         dmrsgl.ygkqtbqry.SQL.Add('update ygsbtb set sevenmonth=sevenmonth+0.5 where number='+quotedstr(edkqdjnumber.Text));
         dmrsgl.ygkqtbqry.ExecSQL;
         end
     else
     begin
     if (monthof(date)=8) then
        begin
         dmrsgl.ygkqtbqry.Close;
         dmrsgl.ygkqtbqry.SQL.Clear;
         dmrsgl.ygkqtbqry.SQL.Add('update ygsbtb set eightmonth=eightmonth+0.5 where number='+quotedstr(edkqdjnumber.Text));
         dmrsgl.ygkqtbqry.ExecSQL;
         end
     else
     begin
     if (monthof(date)=9) then
        begin
         dmrsgl.ygkqtbqry.Close;
         dmrsgl.ygkqtbqry.SQL.Clear;
         dmrsgl.ygkqtbqry.SQL.Add('update ygsbtb set ninemonth=ninemonth+0.5 where number='+quotedstr(edkqdjnumber.Text));
         dmrsgl.ygkqtbqry.ExecSQL;
         end
     else
     begin
     if (monthof(date)=10) then
        begin
         dmrsgl.ygkqtbqry.Close;
         dmrsgl.ygkqtbqry.SQL.Clear;
         dmrsgl.ygkqtbqry.SQL.Add('update ygsbtb set tenmonth=tenmonth+0.5 where number='+quotedstr(edkqdjnumber.Text));
         dmrsgl.ygkqtbqry.ExecSQL;
         end
     else
     begin
     if (monthof(date)=11) then
        begin
         dmrsgl.ygkqtbqry.Close;
         dmrsgl.ygkqtbqry.SQL.Clear;
         dmrsgl.ygkqtbqry.SQL.Add('update ygsbtb set elevenmonth=elevenmonth+0.5 where number='+quotedstr(edkqdjnumber.Text));
         dmrsgl.ygkqtbqry.ExecSQL;
         end
    else
    begin
    if (monthof(date)=12) then
        begin
         dmrsgl.ygkqtbqry.Close;
         dmrsgl.ygkqtbqry.SQL.Clear;
         dmrsgl.ygkqtbqry.SQL.Add('update ygsbtb set twelevenmonth=twelevenmonth+0.5 where number='+quotedstr(edkqdjnumber.Text));
         dmrsgl.ygkqtbqry.ExecSQL;
         end
   end;
   end;
   end;
   end;
   end;
   end;
   end;
   end;
   end;
   end;
   end;
   end;
   end;
end;
else if (radxwsb.checked=true) then      //????é?°à?D??
begin
dmrsgl.ygkqywtbqry.Close;
dmrsgl.ygkqywtbqry.SQL.Clear;
dmrsgl.ygkqywtbqry.SQL.Add('select * from ygkqywtb where number='+quotedstr(edkqdjnumber.Text));
dmrsgl.ygkqywtbqry.Open;
  if (dmrsgl.ygkqywtbqry.RecordCount=0) then
     begin
     label1.Caption:='??2??e,êy?Y?a?D2?′??ú??±ào?μ?????.';
     edkqdjnumber.Text:='';      //????ò?±???ò????±1¤′ò?¨
     edkqdjnumber.SetFocus;
     end
  else
     begin
     tempnumber:=dmrsgl.ygkqywtbqry.fieldbyname('number').AsString;
     edkqdjname.Text:=dmrsgl.ygkqywtbqry.fieldbyname('name').AsString;
     dmrsgl.kqsettimeqry.Close;       //′ò?a???úê±??±í
     dmrsgl.kqsettimeqry.SQL.Clear;
     dmrsgl.kqsettimeqry.SQL.Add('select morningintime from kqsettime');
     dmrsgl.kqsettimeqry.Open;
     if (time-dmrsgl.kqsettimeqry.FieldByName('afternoonintime').AsDateTime=20) then
        begin
        label1.Caption:='??2??e,??×￠òa??ò?3ùμ?.';    //3ùμ??D??
        dmrsgl.ygkqywtbqry.Close;
        dmrsgl.ygkqywtbqry.SQL.Clear;
        dmrsgl.ygkqywtbqry.SQL.Add('update ygkqywtb set ygcdcs=ygcdcs+1 where number='+quotedstr(tempnumber));
        dmrsgl.ygkqywtbqry.ExecSQL;
        edkqdjnumber.Text:='';      //????ò?±???ò????±1¤′ò?¨
        edkqdjnumber.SetFocus;
        end
     else if (time-dmrsgl.kqsettimeqry.FieldByName('afternoonintime').AsDateTime=45) then
        begin
        label1.Caption:='??2??e,??×￠òa??ò???í?.';
        dmrsgl.ygkqywtbqry.Close;
        dmrsgl.ygkqywtbqry.SQL.Clear;
        dmrsgl.ygkqywtbqry.SQL.Add('update ygkqywtb set ygztcs=ygztcs+1 where number='+quotedstr(tempnumber));
        dmrsgl.ygkqywtbqry.ExecSQL;
        edkqdjnumber.Text:='';      //????ò?±???ò????±1¤′ò?¨
        edkqdjnumber.SetFocus;
        end
    else if (time-dmrsgl.kqsettimeqry.FieldByName('afternoonintime').AsDateTime=75) then
      begin
      label1.Caption:='??2??e,??×￠òa??ò???1¤ .';
      dmrsgl.ygkqywtbqry.Close;
      dmrsgl.ygkqywtbqry.SQL.Clear;
      dmrsgl.ygkqywtbqry.SQL.Add('update ygkqywtb set ygkgcs=ygkgcs+1 where number='+quotedstr(tempnumber));
      dmrsgl.ygkqywtbqry.ExecSQL;
      edkqdjnumber.Text:='';      //????ò?±???ò????±1¤′ò?¨
      edkqdjnumber.SetFocus;
      end
   else
   label1.Caption:='??×￠òa??ò?′ò?¨á?,2?òa′òμú?t′??¨?a???TD§.';
   edkqdjnumber.Text:='';      //????ò?±???ò????±1¤′ò?¨
   edkqdjnumber.SetFocus;
   end;
end;
else if radxwxb.Checked=true then       //??????°à?D??
   begin
   dmrsgl.ygkqtbqry.Close;
   dmrsgl.ygkqtbqry.SQL.Clear;
   dmrsgl.ygkqtbqry.SQL.Add('select * from ygsbtb where number='+quotedstr(edkqdjnumber.Text));
   dmrsgl.ygkqtbqry.Open;
   if (dmrsgl.ygkqtbqry.RecordCount=0) then
      begin
      label1.Caption:='??2??e,êy?Y?a?D2?′??ú??±ào?μ?????.';
      edkqdjnumber.Text:='';      //????ò?±???ò????±1¤′ò?¨
      edkqdjnumber.SetFocus;
      end
   else
      begin
      if (monthof(date)=1) then
        begin
        dmrsgl.ygkqtbqry.Close;
        dmrsgl.ygkqtbqry.SQL.Clear;
        dmrsgl.ygkqtbqry.SQL.Add('update ygsbtb set onemonth=onemonth+0.5 where number='+quotedstr(edkqdjnumber.Text));
        dmrsgl.ygkqtbqry.ExecSQL; //?′DD????é?°àììêy
        end
      else
      begin
      if (monthof(date)=2) then
         begin
         dmrsgl.ygkqtbqry.Close;
         dmrsgl.ygkqtbqry.SQL.Clear;
         dmrsgl.ygkqtbqry.SQL.Add('update ygsbtb set twomonth=twomonth+0.5 where number='+quotedstr(edkqdjnumber.Text));
         dmrsgl.ygkqtbqry.ExecSQL;
         end
     else
     begin
     if (monthof(date)=3) then
        begin
         dmrsgl.ygkqtbqry.Close;
         dmrsgl.ygkqtbqry.SQL.Clear;
         dmrsgl.ygkqtbqry.SQL.Add('update ygsbtb set threemonth=threemonth+0.5 where number='+quotedstr(edkqdjnumber.Text));
         dmrsgl.ygkqtbqry.ExecSQL;
         end
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -