tjxzunit.pas

龙矿集团工资管理系统2004源码

                  datat.table2.fieldbyname('zjqt3').asstring:=data.query1.fields[52].asstring;
                  datat.table2.fieldbyname('zjqt4').asstring:=data.query1.fields[53].asstring;
//                  datat.table2.fieldbyname('bmno').asstring:=data.query1.fields[50].asstring;
//                  datat.table2.fieldbyname('bz_hj').asfloat:=data.query1.fields[51].asfloat;

                  datat.Table2.Post;
                  data.query1.Next;
               end;
      end;
//流水库填充结束
//计算合计数
               i:=datat.Table2.RecordCount;
               if i<=8 then
               begin
                  j:=1;
                  while  j<=8-i do
                  begin
                   datat.Table2.Edit;
                   datat.Table2.Append;
                   datat.Table2.Post;
                   j:=j+1;
                  end;
               end
               else
               begin
                  i:=(i mod 9);
                  j:=1;
                  while j<9-i do
                   begin
                     datat.Table2.Edit;
                     datat.Table2.Append;
                     datat.Table2.Post;
                     j:=j+1;
                   end;
               end;

                  data.query4.close;
                  data.Query4.open;

                  datat.Table2.Append;
                  datat.Table2.Edit;
                  datat.table2.fieldbyname('bz_gw').asfloat:=data.query4.fields[0].asfloat;
                  datat.Table2.FieldByName('name').asstring:='合计  '+inttostr(kk)+'人';
                  datat.table2.fieldbyname('bz_jn').asfloat:=data.query4.fields[1].asfloat;
                  datat.table2.fieldbyname('jb_js_d').asfloat:=data.query4.fields[2].asfloat;
                  datat.table2.fieldbyname('jb_js').asfloat:=data.query4.fields[3].asfloat;
                  datat.table2.fieldbyname('jb_jj').asfloat:=data.query4.fields[4].asfloat;
                  datat.table2.fieldbyname('jb_jc').asfloat:=data.query4.fields[5].asfloat;
                  datat.table2.fieldbyname('jb_nt_d').asfloat:=data.query4.fields[6].asfloat;
                  datat.table2.fieldbyname('jb_nt').asfloat:=data.query4.fields[7].asfloat;
                  datat.table2.fieldbyname('jb_bj_d').asfloat:=data.query4.fields[8].asfloat;
                  datat.table2.fieldbyname('jb_bj').asfloat:=data.query4.fields[9].asfloat;
                  datat.table2.fieldbyname('jb_gs_d').asfloat:=data.query4.fields[10].asfloat;
                  datat.table2.fieldbyname('jb_gs').asfloat:=data.query4.fields[11].asfloat;
                  datat.table2.fieldbyname('jb_hc_d').asfloat:=data.query4.fields[12].asfloat;
                  datat.table2.fieldbyname('jb_hc').asfloat:=data.query4.fields[13].asfloat;
                  datat.table2.fieldbyname('jb_by').asfloat:=data.query4.fields[14].asfloat;
                  datat.table2.fieldbyname('jb_qt').asfloat:=data.query4.fields[15].asfloat;
                  datat.table2.fieldbyname('jl_jj').asfloat:=data.query4.fields[16].asfloat;
                  datat.table2.fieldbyname('jl_ce').asfloat:=data.query4.fields[17].asfloat;
                  datat.table2.fieldbyname('jl_qt').asfloat:=data.query4.fields[18].asfloat;
                  datat.table2.fieldbyname('jt_xj_d').asfloat:=data.query4.fields[19].asfloat;
                  datat.table2.fieldbyname('jt_xj').asfloat:=data.query4.fields[20].asfloat;
                  datat.table2.fieldbyname('jt_gt').asfloat:=data.query4.fields[21].asfloat;
                  datat.table2.fieldbyname('jt_zr').asfloat:=data.query4.fields[22].asfloat;
                  datat.table2.fieldbyname('jt_yb').asfloat:=data.query4.fields[23].asfloat;
                  datat.table2.fieldbyname('jt_jg').asfloat:=data.query4.fields[24].asfloat;
                  datat.table2.fieldbyname('jt_st').asfloat:=data.query4.fields[25].asfloat;
                  datat.table2.fieldbyname('jt_kl').asfloat:=data.query4.fields[26].asfloat;
                  datat.table2.fieldbyname('jt_jh').asfloat:=data.query4.fields[27].asfloat;
                  datat.table2.fieldbyname('jt_gat').asfloat:=data.query4.fields[28].asfloat;
                  datat.table2.fieldbyname('jt_7x').asfloat:=data.query4.fields[29].asfloat;
                  datat.table2.fieldbyname('jt_ly').asfloat:=data.query4.fields[30].asfloat;
                  datat.table2.fieldbyname('jt_lc').asfloat:=data.query4.fields[31].asfloat;
                  datat.table2.fieldbyname('jt_lj').asfloat:=data.query4.fields[32].asfloat;
                  //加班字段有问题
                  datat.table2.fieldbyname('jt_b9').asfloat:=data.query4.fields[33].asfloat;
                  datat.table2.fieldbyname('jt_hz').asfloat:=data.query4.fields[34].asfloat;
                  datat.table2.fieldbyname('jt_ft').asfloat:=data.query4.fields[35].asfloat;
                  datat.table2.fieldbyname('jt_qt').asfloat:=data.query4.fields[36].asfloat;
//                  datat.table2.fieldbyname('j_ce').asfloat:=data.query4.fields[37].asfloat;
                  datat.table2.fieldbyname('qt_jb').asfloat:=data.query4.fields[38].asfloat;
                  datat.table2.fieldbyname('qt_qt').asfloat:=data.query4.fields[39].asfloat;
                  datat.table2.fieldbyname('fg_wc_d').asfloat:=data.query4.fields[40].asfloat;
                  datat.table2.fieldbyname('fg_wc').asfloat:=data.query4.fields[41].asfloat;
                  datat.table2.fieldbyname('fg_bj').asfloat:=data.query4.fields[42].asfloat;
                  datat.table2.fieldbyname('yf').asfloat:=data.query4.fields[43].asfloat;
                  datat.table2.fieldbyname('kk_yl').asfloat:=data.query4.fields[44].asfloat;
                  datat.table2.fieldbyname('kk_gj').asfloat:=data.query4.fields[45].asfloat;
                  datat.table2.fieldbyname('kk_qt1').asfloat:=data.query4.fields[46].asfloat;
                  datat.table2.fieldbyname('kk_qt2').asfloat:=data.query4.fields[47].asfloat;
                  datat.table2.fieldbyname('sfe').asfloat:=data.query4.fields[48].asfloat;
                  datat.table2.fieldbyname('bz_hj').asfloat:=data.query4.fields[49].asfloat;

                  datat.table2.fieldbyname('zjqt3').asfloat:=data.query4.fields[50].asfloat;
                  datat.table2.fieldbyname('zjqt4').asfloat:=data.query4.fields[51].asfloat;

                  datat.Table2.Post;




//计算合计数End
//转移到打印库
    datat.Table2.First;
    while not (datat.table2.eof) do
            begin
               datat.table5.Append;
                for n:=0 to datat.table2.FieldCount-1 do
                        begin
                                datat.Table5.Edit;
                                datat.Table5.Fields[n].assign(datat.table2.Fields[n]);
                                datat.Table5.Post;
                                datat.Table5.Edit;
                        end;
                 datat.table2.Next;
             end;
//zhuanyi 流水库结束

//清零

with datat.Table5 do
   begin
       open;
       first;
       while not eof do
    begin
        for i:=0 to datat.table5.FieldCount-1 do
      begin
          edit;
        if fields[i].asstring='0' then
          begin
               fields[i].asstring:='';
               post;
           end;
      end;
          next;
     end;
end;

//清零end


     Application.CreateForm(Ttjprint,tjprint);
     if not(datat.UnitTable1.active) then
     datat.UnitTable1.Open;
     tjprint.QRLabel50.Caption:=ddd+datat.UnitTable1.fieldbyname('unitname').asstring;
     datat.UnitTable1.Close;
     PrintShowForm.hide;
     tjprint.QuickRep1.Preview;
      prev.release;
     tjprint.Hide;
     tjprint.release;
     datat.Table2.EnableControls;
     datat.Table5.EnableControls;
     data.Query1.EnableControls;
     data.Query4.EnableControls;
end;

procedure TTjXz.SpeedButton6Click(Sender: TObject);
var i:integer;
begin
try
      ListBox1.Items.Add(listbox2.Items[listbox2.ItemIndex]);
      //listbox1.Items.Delete(listbox1.itemindex);
      listbox2.SetFocus;
      listbox2.Update;
     // ShowMessage(IntToStr(listbox1.ItemIndex));
      i:=listbox2.ItemIndex;
      listbox2.Items.Delete(listbox2.itemindex);
      listbox2.ItemIndex:=i;

except
MessageBox(Handle,'请选择部门(单击部门列表再选择)',pchar(caption),Mb_iconstop+Mb_ok);
end;

end;

procedure TTjXz.SpeedButton7Click(Sender: TObject);
begin
try
      ListBox2.Items.Add(listbox1.Items[listbox1.ItemIndex]);
      listbox1.Items.Delete(listbox1.itemindex);
      listbox1.SetFocus;
except
MessageBox(Handle,'请选择部门(单击部门列表再选择)',pchar(caption),Mb_iconstop+Mb_ok);
end;
end;

procedure TTjXz.SpeedButton8Click(Sender: TObject);
var i:integer;
begin
try
   for i:=0 to listbox2.Items.Count do
     begin
      ListBox1.Items.Add(listbox2.Items[i]);
     end;
except
end;
      try
      listbox2.Items.Clear;
      except
      end;
end;

procedure TTjXz.SpeedButton9Click(Sender: TObject);
var i:integer;
begin
try
   for i:=0 to listbox1.Items.Count do
     begin
      ListBox2.Items.Add(listbox1.Items[i]);
     end;
  except
end;
  try
      listbox1.Items.Clear;
    except
  end;
end;


procedure TTjXz.SpeedButton2Click(Sender: TObject);
begin
 Close;
end;

end.