tjxzunit.pas

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

unit TjXzUnit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, Buttons;

type
  TTjXz = class(TForm)
    ListBox1: TListBox;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    ListBox2: TListBox;
    SpeedButton1: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    SpeedButton2: TSpeedButton;
    procedure BitBtn3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  TjXz: TTjXz;

implementation

uses gzdata, DataTUnit, PassWordUnit, PrintShowUnit, tjPrintUnit, previewt;
{$R *.DFM}

procedure TTjXz.BitBtn3Click(Sender: TObject);
begin
data.query1.close;
close;
end;

procedure TTjXz.FormShow(Sender: TObject);
begin
  listbox2.Items.Clear;
  listbox1.Items.Clear;
  
  with datat.BmTable2 do
  begin
    open;
    first;
    while not eof do
    begin
       listbox2.Items.Add(datat.bmtable2.Fields[0].AsString+datat.bmtable2.Fields[1].AsString);
       next;
    end;
  end;
end;

procedure TTjXz.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #27 then Close;
end;

procedure TTjXz.SpeedButton1Click(Sender: TObject);
var ll,ddd:string;
    i,j,n,kk:integer;
begin


if listbox1.Items.Count<=0 then
abort;

 if printshowform=nil then
Application.CreateForm(TPrintShowForm, PrintShowForm);

//kk:=0;
ddd:='';
ddd:=password.maskedit1.text+'-'+inttostr(strtoint(password.edit4.text));

IF  (application.messagebox(pchar('您所选择的打印数据是:  '+ddd+'月,正确吗?'),'消息框',mb_okcancel+mb_defbutton1+mb_iconquestion)
     =idcancel) then  abort;
datat.Table2.DisableControls;
datat.Table5.DisableControls;
data.Query1.DisableControls;
data.Query4.DisableControls;

  data.Query1.Close;
  PrintShowForm.Show;
  PrintShowForm.Label1.Caption:='正在处理数据请稍候...';
  printshowForm.Label1.Update;
  PrintShowForm.Update;
 with data.Query1.SQL do
   begin
//    ll:='';
//    mm:='';
    ll:=copy(listbox1.Items[0],1,5);
//    mm:=listbox1.Items[0];
    PrintShowForm.Label1.Caption:='正在处理数据请稍候...';
    printshowForm.Label1.Update;
    clear;
    add('select * from lyk.dbf');
    add('where bmno='''+ll+'''');
    add('and riqi='''+ddd+'''');
    add('order by sfe desc');
  end;

     data.Query1.Open;

     if data.query1.isempty then
     begin
       ddd:=ddd+'数据不存在,请重新选择日期或者重新生成本月数据!!!';
       printshowform.Hide;
       application.messagebox(pchar(ddd),'消息框',mb_ok+mb_iconinformation);
       data.Query1.Close;
       abort;
     end;//判断数据是否存在



//选择打印部门
 if listbox1.Items.Count<>0 then
     begin
      data.Query1.Close;
      with data.Query1.SQL do
      begin
        clear;
        add('select sum(bz_gw),sum(bz_jn),sum(jb_js_d),sum(jb_js),sum(jb_jj),');
        add('sum(jb_jc),sum(jb_nt_d),sum(jb_nt),sum(jb_bj_d),sum(jb_bj),sum(jb_gs_d),sum(jb_gs),sum(jb_hc_d),sum(jb_hc),sum(jb_by),');
        add('sum(jb_qt),sum(jl_jj),sum(jl_ce),sum(jl_qt),sum(jt_xj_d),sum(jt_xj),sum(jt_gt),sum(jt_zr),sum(jt_yb),sum(jt_jg),sum(jt_st),');
        add('sum(jt_kl),sum(jt_jh),sum(jt_gat),sum(jt_7x),sum(jt_ly),sum(jt_lc),sum(jt_lj),');
        add('sum(jt_b9),sum(jt_hz),sum(jt_ft),sum(jt_qt),sum(qt_jb_d),sum(qt_jb),sum(qt_qt),');
        add('sum(fg_wc_d),sum(fg_wc),sum(fg_bj),sum(yf),sum(kk_yl),sum(kk_gj),sum(kk_qt1),sum(kk_qt2),');
        add('sum(sfe),sum(bz_hj),tj,count(tj) ,sum(zjqt3),sum(zjqt4) ,sum(zjng),sum(zjbzqt)from lyk');
        add('where riqi='''+ddd+'''');
          for i:=0 to listbox2.Items.Count-1 do
        begin
          try
            add('and bmno <> +'''+copy(listbox2.Items[i],1,5)+'''');
          except
             ShowMessage('sdfsdfsdfsd');
          end;
      end;
        add('group by tj');
       end;
    end;//选择打印部门
    data.Query1.Close;
    data.Query1.Open;


     datat.Table5.Close;
     datat.Table5.EmptyTable;
     datat.Table5.Open;

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