datecurshjunit.pas

工资管理系统

unit DateCurShjunit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Mask, Buttons, ComCtrls, ExtCtrls, Animate, GIFCtrl, Grids,
  DBGrids;

type
  TDataCurShj = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    MaskEdit1: TMaskEdit;
    UpDown1: TUpDown;
    Label2: TLabel;
    Edit4: TEdit;
    UpDown2: TUpDown;
    Label3: TLabel;
    RxGIFAnimator1: TRxGIFAnimator;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    MaskEdit2: TMaskEdit;
    UpDown3: TUpDown;
    Edit1: TEdit;
    UpDown4: TUpDown;
    Label8: TLabel;
    Label9: TLabel;
    MaskEdit3: TMaskEdit;
    UpDown5: TUpDown;
    Edit2: TEdit;
    UpDown6: TUpDown;
    Label10: TLabel;
    Label11: TLabel;
    MaskEdit4: TMaskEdit;
    UpDown7: TUpDown;
    Edit3: TEdit;
    UpDown8: TUpDown;
    Label12: TLabel;
    Label13: TLabel;
    MaskEdit5: TMaskEdit;
    UpDown9: TUpDown;
    Edit5: TEdit;
    UpDown10: TUpDown;
    Label14: TLabel;
    Label15: TLabel;
    MaskEdit6: TMaskEdit;
    UpDown11: TUpDown;
    Edit6: TEdit;
    UpDown12: TUpDown;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    Label16: TLabel;
    Label17: TLabel;
    MaskEdit7: TMaskEdit;
    UpDown13: TUpDown;
    Edit7: TEdit;
    UpDown14: TUpDown;
    CheckBox6: TCheckBox;
    Label18: TLabel;
    Label19: TLabel;
    MaskEdit8: TMaskEdit;
    UpDown15: TUpDown;
    Edit8: TEdit;
    UpDown16: TUpDown;
    CheckBox7: TCheckBox;
    Label20: TLabel;
    Label21: TLabel;
    MaskEdit9: TMaskEdit;
    UpDown17: TUpDown;
    Edit9: TEdit;
    UpDown18: TUpDown;
    CheckBox8: TCheckBox;
    Label22: TLabel;
    Label23: TLabel;
    MaskEdit10: TMaskEdit;
    UpDown19: TUpDown;
    Edit10: TEdit;
    UpDown20: TUpDown;
    CheckBox9: TCheckBox;
    Label24: TLabel;
    Label25: TLabel;
    MaskEdit11: TMaskEdit;
    UpDown21: TUpDown;
    Edit11: TEdit;
    UpDown22: TUpDown;
    CheckBox10: TCheckBox;
    Label26: TLabel;
    Label27: TLabel;
    MaskEdit12: TMaskEdit;
    UpDown23: TUpDown;
    Edit12: TEdit;
    UpDown24: TUpDown;
    CheckBox11: TCheckBox;
    Label28: TLabel;
    Label29: TLabel;
    MaskEdit13: TMaskEdit;
    UpDown25: TUpDown;
    Edit13: TEdit;
    UpDown26: TUpDown;
    CheckBox12: TCheckBox;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DataCurShj: TDataCurShj;

implementation

uses gzdata, PassWordUnit, GzKqSrUnit, KqDayUnit;

{$R *.DFM}

procedure TDataCurShj.FormShow(Sender: TObject);
begin
   maskedit1.Text:=password.MaskEdit1.Text;
   edit13.Text:=inttostr(strtoint(password.Edit4.text));
   maskedit13.Text:=password.MaskEdit1.Text;
   edit1.Text:=inttostr(strtoint(password.Edit4.text));
   edit2.Text:=inttostr(strtoint(password.Edit4.text));
   edit3.Text:=inttostr(strtoint(password.Edit4.text));
   edit4.Text:=inttostr(strtoint(password.Edit4.text));
   edit5.Text:=inttostr(strtoint(password.Edit4.text));
   edit6.Text:=inttostr(strtoint(password.Edit4.text));
   edit7.Text:=inttostr(strtoint(password.Edit4.text));
   edit8.Text:=inttostr(strtoint(password.Edit4.text));
   edit9.Text:=inttostr(strtoint(password.Edit4.text));
   edit10.Text:=inttostr(strtoint(password.Edit4.text));
   edit10.Text:=inttostr(strtoint(password.Edit4.text));
   edit12.Text:=inttostr(strtoint(password.Edit4.text));

   maskedit1.Text:=password.MaskEdit1.Text;
   maskedit2.Text:=password.MaskEdit1.Text;
   maskedit3.Text:=password.MaskEdit1.Text;
   maskedit4.Text:=password.MaskEdit1.Text;
   maskedit5.Text:=password.MaskEdit1.Text;
   maskedit6.Text:=password.MaskEdit1.Text;
   maskedit7.Text:=password.MaskEdit1.Text;
   maskedit8.Text:=password.MaskEdit1.Text;
   maskedit9.Text:=password.MaskEdit1.Text;
   maskedit10.Text:=password.MaskEdit1.Text;
   maskedit11.Text:=password.MaskEdit1.Text;
   maskedit12.Text:=password.MaskEdit1.Text;



   maskedit1.SetFocus;

end;

procedure TDataCurShj.BitBtn1Click(Sender: TObject);
var ddd,d2,ts,sy:string;
    a1,a2,a3:string;
begin
   ddd:='';
   d2:='';
   ddd:=inttostr(strtoint(maskedit1.Text))+'-'+inttostr(strtoint(edit4.Text));
   d2:= inttostr(strtoint(maskedit2.Text))+'-'+inttostr(strtoint(edit1.Text));

   a1:= inttostr(strtoint(maskedit2.Text))+'-'+inttostr(strtoint(edit1.Text));
   a2:= inttostr(strtoint(maskedit3.Text))+'-'+inttostr(strtoint(edit2.Text));
   a3:= inttostr(strtoint(maskedit4.Text))+'-'+inttostr(strtoint(edit3.Text));

   if not checkbox2.Checked then
      a2:=a1;

   if not checkbox3.Checked then
      a3:=a1;

//上月税金额query1
   data.Query1.Close;
   with data.Query1.SQL do
   begin
       data.Query1.SQL.clear;
        data.Query1.SQL.add('select lyk."code",sum(lyk."zjsjhj") from lyk.dbf  lyk');
        data.Query1.SQL.add('where lyk."riqi"='''+a1+''' or lyk."riqi"='''+a2+''' or lyk."riqi"='''+a3+'''');
        data.Query1.SQL.add('group by lyk."code"');
   end;
   data.Query1.Open;
   if data.Query1.IsEmpty then
   begin
   ts:='';
   ts:='不存在'+ddd+'数据,请重新选择日期或重新产生本月数据';
   application.MessageBox(pchar(ts),'提示',mb_ok+mb_iconinformation);
   abort;
   end;

//本月税金计算、提取query5合计数,query2本月数据
   data.Query5.Close;
   with data.Query5.SQL do
   begin
      clear;
      add('select sum(zjqt3) from lyk');
      add('where riqi='''+ddd+'''');
   end;
    data.Query5.Open;
   if data.Query5.IsEmpty then
   begin
   ts:='';
   ts:='不存在'+ddd+'数据,请重新选择日期或重新产生本月数据';
   application.MessageBox(pchar(ts),'提示',mb_ok+mb_iconinformation);
   abort;
   end
   else
   begin
   ts:='';
  if (data.Query5.fields[0].asfloat>=0)  then
       begin
       ts:=ddd+'月 已有税金'+floattostr(data.Query5.fields[0].asfloat)+'元,继续进行吗?';
       IF  (application.messagebox(pchar(ts),'消息框',mb_okcancel+mb_defbutton1+mb_iconquestion)
        =idok) then
begin
//产上月月税金
data.Query1.DisableControls;
data.Query2.DisableControls;

   data.Query2.Close;
   with data.Query2.SQL do
   begin
      clear;
      add('select * from lyk');
      add('where riqi='''+ddd+'''');
   end;
   data.Query2.Open;
   with data.query2 do
   begin
       first;
       while not eof do
       begin
            edit;
            fieldbyname('zjqt3').asfloat:=0;

            sy:=data.query2.fieldbyname('code').asstring;

            data.query1.first;
            if (data.query1.Locate('code',sy,[])) then
               begin
                    data.query2.fieldbyname('zjqt3').asfloat:=
                    round((data.Query1.fields[1].asfloat)*100)/100;
               end;

    if fieldbyname('zjqt5').asfloat=0 then
       fieldbyname('zjqt3').asfloat:=0;

     post;
     next;
     end;
     data.Query1.EnableControls;
     data.Query2.EnableControls;
end;
application.MessageBox(pchar('税金计算完毕！！！'),'提示',mb_ok+mb_iconinformation);
data.query1.Close;
data.query2.close;
data.query5.close;
        end
       else
       abort;
       end;
end;
end;

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


















procedure TDataCurShj.BitBtn2Click(Sender: TObject);
begin
close;
end;

end.