atddata.pas

pasa人力资源考勤管理系统

  datamod.adodaytotal.close;
  datamod.adodaytotal.open;
  case pagecontrol1.activepageindex of
  0:findrecorder(datamod.adodaytotal,'Adodaytotal','vatd32010');
  1:findrecorder(adoatdmonth,'Adoatdmonth','vatd34010');
  end;
end;

procedure TFormatddata.ToolButton8Click(Sender: TObject);
begin
 with datamod do
 begin
   if toolbutton8.down then
   begin
     case pagecontrol1.activepageindex of
     0:
     begin
        adodaytotal.close;
        adodaytotal.CommandText:='Select * from vatd32010bk ';
        adodaytotal.open;
     end;
     1:
     begin
        adoatdmonth.close;
        adoatdmonth.CommandText:='Select * from vatd34010bk';
        adoatdmonth.open;
        adoatdmonthsun.close;
        adoatdmonthsun.CommandText:='Select * from atd32010bk where workno=:workno and '+
                                    '(convert(varchar,year(rq))+''/''+case when len(convert(varchar,month(rq)))=1 then ''0''+ '+
                                    ' convert(varchar,month(rq)) else convert(varchar,month(rq)) end)=:monthy ';
        adoatdmonthsun.open;
     end;
     end; //case
   end else
     case pagecontrol1.activepageindex of
     0:
     begin
        adodaytotal.close;
        adodaytotal.CommandText:='Select * from vatd32010 ';
        adodaytotal.open;
     end;
     1:
     begin
        adoatdmonth.close;
        adoatdmonth.CommandText:='Select * from vatd34010';
        adoatdmonth.open;
        adoatdmonthsun.close;
        adoatdmonthsun.CommandText:='Select * from atd32010 where workno=:workno and '+
                                    '(convert(varchar,year(rq))+''/''+case when len(convert(varchar,month(rq)))=1 then ''0''+ '+
                                    ' convert(varchar,month(rq)) else convert(varchar,month(rq)) end)=:monthy ';
        adoatdmonthsun.open;
     end;
     end;   //case
 end;  //with
end;

procedure TFormatddata.tbnsortClick(Sender: TObject);
var i:1..5;
begin
  if manyfield then
   begin
     manyfield:=false;
     tbnsort.hint:='设定多字段排序';
     popupmenu1.Items[0].Enabled :=false;
     popupmenu1.Items[1].Enabled :=false;
     popupmenu1.Items[2].Enabled :=false;
     popupmenu1.Items[3].Enabled :=false;
   end
  else begin
    manyfield:=true;
    tbnsort.hint:='取消多字段排序'; //说明现在dbgrid1正处于多字段排序中
    f:='';
    popupmenu1.Items[0].Enabled :=true;
    popupmenu1.Items[1].Enabled :=true;
    popupmenu1.Items[2].Enabled :=true;
    popupmenu1.Items[3].Enabled :=true;
    fcount:=0;
    for i:=1 to 5 do
     begin
       findex[i]:=0;
       fsort[i]:='';
     end;
  end;
end;

procedure TFormatddata.DBGrid1Enter(Sender: TObject);
begin
  dbgrid:=1;
end;

procedure TFormatddata.DBGrid2Enter(Sender: TObject);
begin
  dbgrid:=2;
end;

procedure TFormatddata.DBGrid3Enter(Sender: TObject);
begin
  dbgrid:=3;
end;

procedure TFormatddata.FormkeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=vk_f1 then
  begin
   Application.helpfile :=extractfilepath(application.exename) +'help\pasahelp.hlp';
   application.HelpJump('shm_contents0026');
  end;
end;

procedure TFormatddata.tbnprintClick(Sender: TObject);
begin
  if not assigned(form1) then
    form1:=Tform1.create(application);
    form1.show;
end;

procedure TFormatddata.ppDBText17GetText(Sender: TObject;
  var Text: String);
begin
  if text='0' then
     text:='未处理'
  else
     text:='已处理';
end;

procedure TFormatddata.DateTimePicker1CloseUp(Sender: TObject);
begin
  maskedit1.Text:=datetostr(datetimepicker1.datetime);
end;

procedure TFormatddata.DateTimePicker2CloseUp(Sender: TObject);
begin
  maskedit2.text:=datetostr(datetimepicker2.datetime);
end;

procedure TFormatddata.DBGrid4TitleClick(Column: TColumn);
begin
   if f='DESC' then
     f:='ASC'
   else
     f:='DESC';
   datamod.adoatddata.Sort :=column.FieldName+' '+f;
end;

procedure TFormatddata.DBGrid4DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
   if datamod.adoatddata.fieldbyname('trans').asboolean then
      DBGrid4.canvas.font.color:=clblue;
   dbgrid4.Columns[5].Color:=clScrollBar;
   dbgrid4.Columns[7].Color:=clScrollBar;
   DBGrid4.DefaultDrawColumnCell(rect,datacol,column,state);
end;

procedure TFormatddata.ToolButton2Click(Sender: TObject);
begin
    if not assigned(form3) then
     form3:=tform3.create(application);
     form3.height:=331;
     form3.width:=331;
     form3.show;
end;

procedure TFormatddata.FormActivate(Sender: TObject);
begin
datamod.adodaytotal.close;
datamod.adodaytotal.open;
adoatdmonth.close;
adoatdmonth.open;
datamod.ADOdaytotal.GotoBookmark(book);
datamod.adodaytotal.freebookmark(book);
end;

procedure TFormatddata.ToolButton1Click(Sender: TObject);
begin
  formotbc:=TFormotbc.Create(application);
  formotbc.Show;
end;

procedure TFormatddata.ComboBox1Change(Sender: TObject);
begin
{with datamod do
begin
  adodaytotal.close;
  if maskedit2.Text<>'    /  /  ' then
  begin
     case  Combobox1.ItemIndex of
    0:
      adodaytotal.CommandText:='Select * From vatd32010 where isnull(kuanggong,0)<>0  and rq  between  '''+maskedit1.Text+''' and '''+maskedit2.Text+''' order by dept,workno ';
    1:
     adodaytotal.CommandText:='Select * From vatd32010 where isnull(leavehave,0)<>0  and rq  between  '''+maskedit1.Text+''' and '''+maskedit2.Text+''' order by dept,workno';
    2:
     adodaytotal.commandtext:='Select * From vatd32010 where isnull(late,0)<>0  and rq  between  '''+maskedit1.Text+''' and '''+maskedit2.Text+''' order by dept,workno';
    3:
     adodaytotal.commandtext:='Select * From vatd32010 where isnull(early,0)<>0  and rq  between  '''+maskedit1.Text+''' and '''+maskedit2.Text+''' order by dept,workno';
    end;
  end
  else
  begin
    case  Combobox1.ItemIndex of
    0:
      adodaytotal.CommandText:='Select * From vatd32010 where isnull(kuanggong,0)<>0  order by dept,workno';
    1:
     adodaytotal.CommandText:='Select * From vatd32010 where isnull(leavehave,0)<>0  order by dept,workno';
    2:
     adodaytotal.commandtext:='Select * From vatd32010 where isnull(late,0)<>0  order by dept,workno';
    3:
     adodaytotal.commandtext:='Select * From vatd32010 where isnull(early,0)<>0  order by dept,workno';
    end;
  end;
  adodaytotal.Open;
  Edit1.Text:='';
end; }
end;
procedure TFormatddata.ToolButton3Click(Sender: TObject);
begin
  panel5.Visible:=true;
  datetimepicker3.SetFocus;
end;

procedure TFormatddata.BitBtn1Click(Sender: TObject);
begin
  panel5.Visible:=false;
  label11.Visible:=false;
  datetimepicker3.Date :=now;
  datetimepicker4.Date :=now;
  Animate1.Active:=false;
end;

procedure TFormatddata.BitBtn2Click(Sender: TObject);
begin
if messagedlg('注意：移除前,请确认为已核算薪资的数据'+#13+'是否要进行移除',mtinformation,[mbyes,mbno],0)=mryes then
begin
  Animate1.Active:=true;
  adoquery1.Close;
  adoquery1.SQL.Clear;
  label11.Caption:='正在移除资料,请稍後........';
  label11.Visible:=true;
  label11.Update;
  adoquery1.SQL.text:='exec [32010bk] ''atd32010'',''1'','''+formatdatetime('yyyy/mm/dd',DateTimePicker3.DateTime)+''','''+formatdatetime('yyyy/mm/dd',DateTimePicker4.datetime)+'''';
  try
  adoquery1.ExecSQL;
  except
    ;
  end;
  label11.Caption:='移除完毕';
  label11.Update;
  with datamod do
  begin
    ADOdaytotal.close;
    ADOatddata.Close;
    ADOdaytotal.commandtext:='Select * from Vatd32010';
    ADOdaytotal.Open;
    adoatddata.CommandText:='Select * from tempatddata where workno=:workno and rq=:rq order by trans,itemtime';
    adoatddata.Open;
  end;
  Adoatdmonth.close;
  adoatdmonth.CommandText:='select * from Vatd34010';
  adoatdmonth.Open;
  Adoatdmonthsun.Close;
  Adoatdmonthsun.commandtext:='Select * from atd32010 where workno=:workno and (convert(varchar,year(rq))+''/''+case when len(convert(varchar,month(rq)))=1 then ''0''+ convert(varchar,month(rq)) else convert(varchar,month(rq)) end)=:monthy ';
  Adoatdmonthsun.Open;
  messagedlg('移除成功，谢谢使用！！！！',mtinformation,[mbok],0);
  Animate1.Active:=false;
  label11.Visible:=false;
end;
end;
procedure TFormatddata.BitBtn3Click(Sender: TObject);
begin
   if messagedlg('注意：还原资料,将删除现有的资料',mtinformation,[mbyes,mbno],0)=mryes then
  begin
    Animate1.Active:=true;
    label11.Caption:='正在还原资料,请稍後.......';
    label11.Visible:=true;
    label11.Update;
    adoquery1.Close;
    adoquery1.SQL.Clear;
    adoquery1.SQL.text:='exec [32010bk] ''atd32010'',''0'','''+formatdatetime('yyyy/mm/dd',DateTimePicker3.DateTime)+''','''+formatdatetime('yyyy/mm/dd',DateTimePicker4.datetime)+'''';
    try
      adoquery1.ExecSQL;
    except
      ;
    end;
    label11.Caption:='还原完毕';
    label11.Update;
    with datamod do
    begin
      ADOdaytotal.close;
      ADOatddata.Close;
      ADOdaytotal.commandtext:='Select * from Vatd32010';
      ADOdaytotal.Open;
      adoatddata.CommandText:='Select * from tempatddata where workno=:workno and rq=:rq order by trans,itemtime';
      adoatddata.Open;
    end;
    Adoatdmonth.close;
    adoatdmonth.CommandText:='select * from Vatd34010';
    adoatdmonth.Open;
    Adoatdmonthsun.Close;
    Adoatdmonthsun.commandtext:='Select * from atd32010 where workno=:workno and (convert(varchar,year(rq))+''/''+case when len(convert(varchar,month(rq)))=1 then ''0''+ convert(varchar,month(rq)) else convert(varchar,month(rq)) end)=:monthy ';
    Adoatdmonthsun.Open;
    messagedlg('还原成功，谢谢使用！！！！',mtinformation,[mbok],0);
    Animate1.Active:=false;
    label11.Visible:=false;
    label11.Update;
  end;
end;
procedure TFormatddata.ComboBox2Change(Sender: TObject);
begin
{  datamod.ADOdaytotal.Close;
  if combobox2.Text='全部' then
    datamod.adodaytotal.CommandText:='select * from vatd32010  order by dept,workno '
  else
    datamod.adodaytotal.CommandText:='select * from vatd32010 where dept='''+combobox2.Text+''' order by dept,workno ';
  datamod.ADOdaytotal.Open;}
end;

procedure TFormatddata.FormDeactivate(Sender: TObject);
begin
 book:=datamod.ADOdaytotal.GetBookmark;
end;

end.