saldata.pas

来自「pasa人力资源考勤管理系统」· PAS 代码 · 共 1,174 行 · 第 1/3 页

     exit;
    end;
  if fcount<5 then
   begin
    fcount:=fcount+1;
    findex[fcount]:=dbgrid3.selectedindex;
    fsort[fcount]:='ASC';
    dbgrid3.Columns[dbgrid3.selectedindex].Color :=clgray;
   end;
  end;
{  3:
  begin
  for i:=1 to fcount do
   if dbgrid6.SelectedIndex =findex[i] then
    begin
     fsort[i]:='ASC';
     exit;
    end;
  if fcount<5 then
   begin
    fcount:=fcount+1;
    findex[fcount]:=dbgrid6.selectedindex;
    fsort[fcount]:='ASC';
    dbgrid6.Columns[dbgrid6.selectedindex].Color :=clgray;
   end;
  end; }
  4:
  begin
  for i:=1 to fcount do
   if dbgrid5.SelectedIndex =findex[i] then
    begin
     fsort[i]:='ASC';
     exit;
    end;
  if fcount<5 then
   begin
    fcount:=fcount+1;
    findex[fcount]:=dbgrid5.selectedindex;
    fsort[fcount]:='ASC';
    dbgrid5.Columns[dbgrid5.selectedindex].Color :=clgray;
   end;
  end;
  end;
end;

procedure TFormsaldata.N2Click(Sender: TObject);
var i:integer;
begin
case pagecontrol1.ActivePageIndex of
  0:
  begin
  for i:=1 to fcount do
   if dbgrid1.SelectedIndex =findex[i] then
    begin
     fsort[i]:='DESC';
     exit;
    end;
  if fcount<5 then
   begin
    fcount:=fcount+1;
    findex[fcount]:=dbgrid1.selectedindex;
    fsort[fcount]:='DESC';
    dbgrid1.Columns[dbgrid1.selectedindex].Color :=clgray;
   end;
  end;
  1:
  begin
  for i:=1 to fcount do
   if dbgrid2.SelectedIndex =findex[i] then
    begin
     fsort[i]:='DESC';
     exit;
    end;
  if fcount<5 then
   begin
    fcount:=fcount+1;
    findex[fcount]:=dbgrid2.selectedindex;
    fsort[fcount]:='DESC';
    dbgrid2.Columns[dbgrid2.selectedindex].Color :=clgray;
   end;
  end;
  2:
  begin
  for i:=1 to fcount do
   if dbgrid3.SelectedIndex =findex[i] then
    begin
     fsort[i]:='DESC';
     exit;
    end;
  if fcount<5 then
   begin
    fcount:=fcount+1;
    findex[fcount]:=dbgrid3.selectedindex;
    fsort[fcount]:='DESC';
    dbgrid3.Columns[dbgrid3.selectedindex].Color :=clgray;
   end;
  end;
{  3:
  begin
  for i:=1 to fcount do
   if dbgrid6.SelectedIndex =findex[i] then
    begin
     fsort[i]:='DESC';
     exit;
    end;
  if fcount<5 then
   begin
    fcount:=fcount+1;
    findex[fcount]:=dbgrid6.selectedindex;
    fsort[fcount]:='DESC';
    dbgrid6.Columns[dbgrid6.selectedindex].Color :=clgray;
   end;
  end;}
  4:
  begin
  for i:=1 to fcount do
   if dbgrid5.SelectedIndex =findex[i] then
    begin
     fsort[i]:='DESC';
     exit;
    end;
  if fcount<5 then
   begin
    fcount:=fcount+1;
    findex[fcount]:=dbgrid5.selectedindex;
    fsort[fcount]:='DESC';
    dbgrid5.Columns[dbgrid5.selectedindex].Color :=clgray;
   end;
  end;
  end;
end;

procedure TFormsaldata.N4Click(Sender: TObject);
var i:1..5;
begin
case pagecontrol1.activepageindex of
0:
begin
  datamod.Adosaldata.Sort:='';
  for i:=1 to fcount do
  begin
       if dbgrid1.Columns[findex[i]].Color=clgray then
       begin
         datamod.Adosaldata.Sort :=datamod.Adosaldata.Sort+dbgrid1.Columns[findex[i]].FieldName+' '+fsort[i];
         if i<fcount then datamod.Adosaldata.Sort:=datamod.Adosaldata.Sort+',';
       end;
  end;
end;
1:
begin
  datamod.Adosaldata.Sort:='';
  for i:=1 to fcount do
  begin
       if dbgrid2.Columns[findex[i]].Color=clgray then
       begin
         datamod.Adosaldata.Sort :=datamod.Adosaldata.Sort+dbgrid2.Columns[findex[i]].FieldName+' '+fsort[i];
         if i<fcount then datamod.Adosaldata.Sort:=datamod.Adosaldata.Sort+',';
       end;
  end;
end;
2:
begin
  datamod.Adosaldata.Sort:='';
  for i:=1 to fcount do
  begin
       if dbgrid3.Columns[findex[i]].Color=clgray then
       begin
         datamod.Adosaldata.Sort :=datamod.Adosaldata.Sort+dbgrid3.Columns[findex[i]].FieldName+' '+fsort[i];
         if i<fcount then datamod.Adosaldata.Sort:=datamod.Adosaldata.Sort+',';
       end;
  end;
end;
{3:
begin
  datamod.Adosaldata.Sort:='';
  for i:=1 to fcount do
  begin
       if dbgrid6.Columns[findex[i]].Color=clgray then
       begin
         datamod.Adosaldata.Sort :=datamod.Adosaldata.Sort+dbgrid6.Columns[findex[i]].FieldName+' '+fsort[i];
         if i<fcount then datamod.Adosaldata.Sort:=datamod.Adosaldata.Sort+',';
       end;
  end;
end;}
4:
begin
  adofacevalue.Sort:='';
  for i:=1 to fcount do
  begin
       if dbgrid5.Columns[findex[i]].Color=clgray then
       begin
         adofacevalue.Sort :=adofacevalue.Sort+dbgrid5.Columns[findex[i]].FieldName+' '+fsort[i];
         if i<fcount then adofacevalue.Sort:=adofacevalue.Sort+',';
       end;
  end;
end;
end;
end;

procedure TFormsaldata.N3Click(Sender: TObject);
var i:1..5;
begin
case pagecontrol1.ActivePageIndex of
  0: for i:=1 to fcount do
       dbgrid1.Columns[findex[i]].Color :=clwindow;
  1: for i:=1 to fcount do
       dbgrid2.Columns[findex[i]].Color :=clwindow;
  2: for i:=1 to fcount do
       dbgrid3.Columns[findex[i]].Color :=clwindow;
  3: for i:=1 to fcount do
       dbgrid4.Columns[findex[i]].Color :=clwindow;
  4: for i:=1 to fcount do
       dbgrid5.Columns[findex[i]].Color :=clwindow;
  end;
  fcount:=0;
end;

procedure TFormsaldata.DBGrid5TitleClick(Column: TColumn);
begin
   if f='DESC' then
     f:='ASC'
   else
     f:='DESC';
   Adofacevalue.Sort :=column.FieldName+' '+f;
end;

procedure TFormsaldata.DBGrid6TitleClick(Column: TColumn);
begin
   if f='DESC' then
     f:='ASC'
   else
     f:='DESC';
   adodataset1.Sort :=column.FieldName+' '+f;
end;

procedure TFormsaldata.FormKeyPress(Sender: TObject; var Key: Char);
begin
   if key=#13 then
   begin
      key:=#0;
      selectnext(activecontrol,true,true);
   end;
end;

procedure TFormsaldata.tbrefrushClick(Sender: TObject);
begin
   maskedit1.text:='';
   edit1.text:='';
   with datamod do
   begin
      adosaldata.Close;
      adosaldata.filter:='';
      adosaldata.filtered:=false;
      adosaldata.open;
   end;
end;

procedure TFormsaldata.ComboBox1Change(Sender: TObject);
begin
 with datamod do
 begin
   if trim(combobox1.text)<>'' then
   begin
      adosaldata.close;
      if trim(combobox1.text)='全部' then
      begin
         adosaldata.filter:='';
         adosaldata.filtered:=false;
      end else if trim(combobox1.text)='日薪' then
      begin
         adosaldata.filter:=' dayormon=1 ';
         adosaldata.Filtered:=true;
      end else if trim(combobox1.text)='月薪' then
      begin
         adosaldata.filter:=' dayormon=0 ';
         adosaldata.filtered:=true;
      end else if trim(combobox1.text)='免卡' then
      begin
         adosaldata.filter:=' brushcard=0 ';
         adosaldata.filtered:=true;
      end;
      adosaldata.Open;
   end;
 end;
end;

procedure TFormsaldata.FormActivate(Sender: TObject);

 var aqy:tadoquery;
begin
  inherited;
   aqy:=tadoquery.create(application);
   aqy.connection:=datamod.database1;
   aqy.Close;
   aqy.sql.Clear;
   aqy.sql.add('select * from salnoname');
   aqy.open;
   if not aqy.eof then
   begin
   with datamod do
   begin
     // ADOsaldatanoname11.displaylabel:=aqy.fieldbyname('noname1').asstring;
      //ADOsaldatanoname22.displaylabel:=aqy.fieldbyname('noname2').asstring;
      //ADOsaldatanoname33.displaylabel:=aqy.fieldbyname('noname3').asstring;
      //ADOsaldatanoname44.displaylabel:=aqy.fieldbyname('noname4').asstring;
     // ADOsaldatanoname55.displaylabel:=aqy.fieldbyname('noname5').asstring;
     // ADOsaldatanoname66.displaylabel:=aqy.fieldbyname('noname6').asstring;
     // ADOsaldatanoname77.displaylabel:=aqy.fieldbyname('noname7').asstring;
     // ADOsaldatanoname88.displaylabel:=aqy.fieldbyname('noname8').asstring;
     // ADOsaldatanoname99.displaylabel:=aqy.fieldbyname('noname9').asstring;
     // ADOsaldatanoname100.displaylabel:=aqy.fieldbyname('noname10').asstring;
    //  ADOsaldatanoname110.displaylabel:=aqy.fieldbyname('noname11').asstring;
   end;

  end;
end;

procedure TFormsaldata.ToolButton2Click(Sender: TObject);
begin
  panel5.Visible:=true;
  maskedit2.SetFocus;
end;

procedure TFormsaldata.BitBtn2Click(Sender: TObject);
var
  i:string;
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 [salback] ''1'','''+maskedit2.Text+'''';
  try
  adoquery1.ExecSQL;
  except
    ;
  end;
  label11.Caption:='移除完毕';
  label11.Update;
  datamod.ADOsaldata.Close;
  datamod.ADOsaldata.CommandText:='select * From sal21010';
  datamod.ADOsaldata.Open;
  messagedlg('移除成功，谢谢使用！！！！',mtinformation,[mbok],0);
  Animate1.Active:=false;
  label11.Visible:=false;
end;
end;

procedure TFormsaldata.BitBtn1Click(Sender: TObject);
begin
  panel5.Visible:=false;
  label11.Visible:=false;
  Animate1.Active:=false;
end;

procedure TFormsaldata.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 [salback] ''0'','''+maskedit2.Text+'''';
    adoquery1.sql.savetofile('add.sql');
    try
      adoquery1.ExecSQL;
    except
      ;
    end;
    label11.Caption:='还原完毕';
    label11.Update;
    datamod.ADOsaldata.Close;
    datamod.ADOsaldata.CommandText:='select * From sal21010';
    datamod.ADOsaldata.Open;
    messagedlg('还原成功，谢谢使用！！！！',mtinformation,[mbok],0);
    Animate1.Active:=false;
    label11.Visible:=false;
    label11.Update;
  end;
end;
end.