📄 caidan.~pas

📁 本软件的功能如下： 1.公司员工工资信息输入查找 2.工资计算 3.工资汇总 4.工资打印报表 5.到处数据
💻 ~PAS
字号:
unit caidan;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls, DB, DBTables;

type
  TForm2 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    Button1: TButton;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    EXCEL1: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    N32: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    Table1: TTable;
    SaveDialog1: TSaveDialog;
    SaveDialog2: TSaveDialog;
    N35: TMenuItem;
    N28: TMenuItem;
    N36: TMenuItem;
    N37: TMenuItem;
    N38: TMenuItem;
    N39: TMenuItem;
    N40: TMenuItem;
    N41: TMenuItem;
    N42: TMenuItem;
    N43: TMenuItem;
    N44: TMenuItem;
    N45: TMenuItem;
    N46: TMenuItem;
    N47: TMenuItem;
    N48: TMenuItem;
    N49: TMenuItem;
    N50: TMenuItem;
    N51: TMenuItem;
    N52: TMenuItem;
    N53: TMenuItem;
    N54: TMenuItem;
    N56: TMenuItem;
    N55: TMenuItem;
    N58: TMenuItem;
    procedure Button1Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N11Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N33Click(Sender: TObject);
    procedure N34Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure EXCEL1Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N28Click(Sender: TObject);
    procedure N30Click(Sender: TObject);
    procedure N35Click(Sender: TObject);
    procedure N56Click(Sender: TObject);
    procedure N58Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses GJGZGL, Unit3, cadanb, GZXX, rep1, Unit4, rep6, Unit6, Unit7, Unit1,
  Unit8, Unit9, Unit14, Unit15, Unit16, Unit17, Unit19, Unit18, Unit20,
  Unit21, Unit22, Unit23, Unit24, Unit25;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
form2.Close;
form1.close;

end;

procedure TForm2.N1Click(Sender: TObject);
begin
form3.show;
end;

procedure TForm2.N2Click(Sender: TObject);
begin
form5.show;
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin



form1.close;



end;

procedure TForm2.N11Click(Sender: TObject);
begin
form6.show;
form6.Caption:='打印指定部门工资表';

end;

procedure TForm2.N13Click(Sender: TObject);
begin

form4.Show;



end;

procedure TForm2.N12Click(Sender: TObject);
begin
form7.show;
end;

procedure TForm2.N24Click(Sender: TObject);
begin
quickreport7.Refresh;
quickreport7.Repaint;

form4.Show;

end;

procedure TForm2.N16Click(Sender: TObject);
begin
form8.show;
end;

procedure TForm2.N33Click(Sender: TObject);
begin
form9.show;
end;

procedure TForm2.N34Click(Sender: TObject);
begin

WITH TABLE1 DO
      BEGIN
      DISABLECONTROLS;
      FIRST;
WHILE NOT EOF DO
     BEGIN
      EDIT;


















FieldByName('应发工资').AsFloat:=FieldByName('工龄工资').AsFloat
        +FieldByName('技能工资').AsFloat
        +FieldByName('效益工资').AsFloat
        +FieldByName('待休工资').AsFloat
        +FieldByName('岗贴').AsFloat
        +FieldByName('线路津贴').AsFloat
        +FieldByName('独子费').AsFloat
        +FieldByName('补发1').AsFloat
        +FieldByName('补发2').AsFloat
        +FieldByName('补发3').AsFloat
        +FieldByName('差费').AsFloat
        +FieldByName('奖金').AsFloat
        +FieldByName('加班').AsFloat
        +FieldByName('其它工资').AsFloat
        +FieldByName('营养').AsFloat
        +FieldByName('上月尾').AsFloat
        +FieldByName('利润分成').AsFloat
        +FieldByName('病工资').AsFloat
        -FieldByName('矿扣').AsFloat
        -FieldByName('事扣').AsFloat
        -FieldByName('趟次扣').AsFloat
        -FieldByName('安全扣').AsFloat
        -FieldByName('服务扣').AsFloat
        -FieldByName('卫生扣').AsFloat
        -FieldByName('准点扣').AsFloat
        -FieldByName('技术扣').AsFloat
        -FieldByName('罚款').AsFloat
        +FieldByName('知补').AsFloat
        +FieldByName('生补').AsFloat
        +FieldByName('边贴').AsFloat
        +FieldByName('卫生').AsFloat
        +FieldByName('煤贴').AsFloat
        +FieldByName('房贴').AsFloat;




if (( FieldByName('应发工资').AsFloat-FieldByName('失保').AsFloat -FieldByName('养老').AsFloat

     -FieldByName('住房').AsFloat-FieldByName('医保').AsFloat)>1200) and

     ((FieldByName('应发工资').AsFloat-FieldByName('失保').AsFloat -FieldByName('养老').AsFloat
  -FieldByName('住房').AsFloat-FieldByName('医保').AsFloat)<=1700) then
       begin

     fieldbyname('税金').AsFloat:=((FieldByName('应发工资').AsFloat-FieldByName('失保').AsFloat -FieldByName('养老').AsFloat
     -FieldByName('住房').AsFloat-FieldByName('医保').AsFloat)-1200)*0.05;

      end;


if (( FieldByName('应发工资').AsFloat-FieldByName('失保').AsFloat -FieldByName('养老').AsFloat

     -FieldByName('住房').AsFloat-FieldByName('医保').AsFloat)>1700) and

     ((FieldByName('应发工资').AsFloat-FieldByName('失保').AsFloat -FieldByName('养老').AsFloat
  -FieldByName('住房').AsFloat-FieldByName('医保').AsFloat)<=2900) then


     begin

      fieldbyname('税金').AsFloat:=((FieldByName('应发工资').AsFloat-FieldByName('失保').AsFloat -FieldByName('养老').AsFloat
     -FieldByName('住房').AsFloat-FieldByName('医保').AsFloat)-1200)*0.1-25;
     end ;





      if (( FieldByName('应发工资').AsFloat-FieldByName('失保').AsFloat -FieldByName('养老').AsFloat
     -FieldByName('住房').AsFloat-FieldByName('医保').AsFloat)>2900)
        then


     begin

      fieldbyname('税金').AsFloat:=((FieldByName('应发工资').AsFloat-FieldByName('失保').AsFloat -FieldByName('养老').AsFloat
     -FieldByName('住房').AsFloat-FieldByName('医保').AsFloat)-1200)*0.15-25;
     end;


     if (( FieldByName('应发工资').AsFloat-FieldByName('失保').AsFloat -FieldByName('养老').AsFloat
     -FieldByName('住房').AsFloat-FieldByName('医保').AsFloat)>300)
        then


     begin

      fieldbyname('教育').AsFloat:=(FieldByName('应发工资').AsFloat

      -FieldByName('失保').AsFloat -FieldByName('养老').AsFloat
     -FieldByName('住房').AsFloat-FieldByName('医保').AsFloat)*0.007;

     end ;



FieldByName('实发工资').AsFloat:=FieldByName('应发工资').AsFloat
        -FieldByName('房电').AsFloat
         -FieldByName('托儿').AsFloat
        -FieldByName('另存').AsFloat
        -FieldByName('欠款').AsFloat
        -FieldByName('失保').AsFloat
        -FieldByName('养老').AsFloat
        -FieldByName('住房').AsFloat
        -FieldByName('医保').AsFloat
        -FieldByName('大病保').AsFloat
        -FieldByName('车队扣').AsFloat
        -FieldByName('扣款1').AsFloat
        -FieldByName('扣款2').AsFloat
        -FieldByName('教育').AsFloat
        -FieldByName('税金').AsFloat;

fieldbyname('本月尾').AsFloat:=FieldByName('实发工资').AsFloat-int(FieldByName('实发工资').AsFloat);


FieldByName('实发工资').AsFloat:=int(FieldByName('实发工资').AsFloat);















      post;
      NEXT


      END;

      EnableControls;
      END;


end;

procedure TForm2.N14Click(Sender: TObject);
begin
form14.show;
end;

procedure TForm2.N15Click(Sender: TObject);
begin
form15.show;

end;

procedure TForm2.N22Click(Sender: TObject);
begin

form16.show;

end;

procedure TForm2.N23Click(Sender: TObject);
begin

form17.show;


end;

procedure TForm2.N27Click(Sender: TObject);
var
nr:integer;
begin

nr:=MessageBox(0,'请注意','你真的要进行月初始化码？',4);
//edit1.Text:=inttostr(nr);


if nr=6 then
 begin


WITH TABLE1 DO
      BEGIN
      DISABLECONTROLS;
      FIRST;
WHILE NOT EOF DO
     BEGIN
      EDIT;






FieldByName('应发工资').AsFloat:=0.0;
FieldByName('工龄工资').AsFloat:=FieldByName('年工龄工资').AsFloat;
FieldByName('技能工资').AsFloat:=FieldByName('年技能工资').AsFloat;
FieldByName('效益工资').AsFloat:=FieldByName('年效益工资').AsFloat;
FieldByName('岗贴').AsFloat:=FieldByName('年岗贴').AsFloat;
FieldByName('独子费').AsFloat:=FieldByName('年独子费').AsFloat;
FieldByName('失保').AsFloat:=FieldByName('年失保').AsFloat;
FieldByName('养老').AsFloat:=FieldByName('年养老').AsFloat;
FieldByName('住房').AsFloat:=FieldByName('年住房').AsFloat;
FieldByName('医保').AsFloat:=FieldByName('年医保').AsFloat;
FieldByName('大病保').AsFloat:=FieldByName('年大病保').AsFloat;
FieldByName('另存').AsFloat:=FieldByName('年另存').AsFloat;
FieldByName('上月尾').AsFloat:=FieldByName('本月尾').AsFloat;





FieldByName('线路津贴').AsFloat:=0.0;

FieldByName('补发1').AsFloat:=0.0;
FieldByName('补发2').AsFloat:=0.0;
FieldByName('补发3').AsFloat:=0.0;
FieldByName('任务百分点').AsFloat:=0.0;
FieldByName('趟次百分点').AsFloat:=0.0;
FieldByName('成本百分点').AsFloat:=0.0;
FieldByName('差费').AsFloat:=0.0;
FieldByName('奖金').AsFloat:=0.0;
FieldByName('营养').AsFloat:=0.0;
FieldByName('利润分成').AsFloat:=0.0;
FieldByName('旷天数').AsInteger:=0;
FieldByName('事天数').AsInteger:=0;
FieldByName('病天数').AsInteger:=0;
FieldByName('平加天数').AsInteger:=0;
FieldByName('日加天数').AsInteger:=0;
FieldByName('节加天数').AsInteger:=0;
FieldByName('出勤天数').AsInteger:=0;
FieldByName('平待天数').AsInteger:=0;
FieldByName('日待天数').AsInteger:=0;
FieldByName('节待天数').AsInteger:=0;
FieldByName('其它出勤').AsInteger:=0;






FieldByName('加班').AsFloat:=0.0;
FieldByName('其它工资').AsFloat:=0.0;
FieldByName('待休工资').AsFloat:=0.0;
FieldByName('病工资').AsFloat:=0.0;
FieldByName('矿扣').AsFloat:=0.0;
FieldByName('事扣').AsFloat:=0.0;
FieldByName('趟次扣').AsFloat:=0.0;
FieldByName('安全扣').AsFloat:=0.0;
FieldByName('服务扣').AsFloat:=0.0;
FieldByName('卫生扣').AsFloat:=0.0;
FieldByName('准点扣').AsFloat:=0.0;
FieldByName('技术扣').AsFloat:=0.0;
FieldByName('罚款').AsFloat:=0.0;
FieldByName('知补').AsFloat:=0.0;
FieldByName('生补').AsFloat:=0.0;
FieldByName('边贴').AsFloat:=0.0;
FieldByName('卫生').AsFloat:=0.0;
FieldByName('煤贴').AsFloat:=0.0;
FieldByName('房贴').AsFloat:=0.0;







FieldByName('实发工资').AsFloat:=0.0;

FieldByName('房电').AsFloat:=0.0;
FieldByName('托儿').AsFloat:=0.0;

FieldByName('欠款').AsFloat:=0.0;





FieldByName('车队扣').AsFloat:=0.0;
FieldByName('扣款1').AsFloat:=0.0;
FieldByName('扣款2').AsFloat:=0.0;
FieldByName('教育').AsFloat:=0.0;
FieldByName('税金').AsFloat:=0.0;

fieldbyname('本月尾').AsFloat:=0.0;





      post;
      NEXT


      END;

      EnableControls;
      END;




end



end;

procedure TForm2.EXCEL1Click(Sender: TObject);

var
fname:pchar;
f:string;
begin
if SaveDialog1.Execute=true then


begin
f:=savedialog1.FileName;

Showmessage('备份失败');

copyfile('e:\gjgzgl\gz.dbf',pchar(f),true);

end;





end;

procedure TForm2.N26Click(Sender: TObject);
var
fname:string;
begin
if savedialog2.Execute then

begin


fname:=savedialog2.filename;


copyfile('e:\gjgzgl\gz.dbf',pchar(fname),true);


showmessage('数据备份成功');

end;
end;

procedure TForm2.N21Click(Sender: TObject);
begin
  form18.show;
//quickreport19.preview;
end;

procedure TForm2.N20Click(Sender: TObject);
begin

form20.show;
              



end;

procedure TForm2.N18Click(Sender: TObject);
begin
form21.show;
end;

procedure TForm2.N28Click(Sender: TObject);
begin
form22.show;
end;

procedure TForm2.N30Click(Sender: TObject);
begin
FORM23.SHOW;
end;

procedure TForm2.N35Click(Sender: TObject);
begin
FORM24.SHOW;
end;

procedure TForm2.N56Click(Sender: TObject);
begin
form25.show;
end;

procedure TForm2.N58Click(Sender: TObject);

var
fname:pchar;
f:string;
begin
if SaveDialog2.Execute=true then


begin
f:=savedialog2.FileName;

Showmessage('数据备份成功');

copyfile('e:\gjgzgl\gzhz.dbf',pchar(f),true);

end;

end;


end.
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -