salaryjia.pas

pasa人力资源考勤管理系统

    ppLine1: TppLine;
    ppLine2: TppLine;
    ppLine3: TppLine;
    ppLine4: TppLine;
    ppLine5: TppLine;
    ppLine6: TppLine;
    ppLine7: TppLine;
    ppLine8: TppLine;
    ppLine9: TppLine;
    ppLine10: TppLine;
    ppLine11: TppLine;
    ppDBText5: TppDBText;
    ppLine12: TppLine;
    ppDBText6: TppDBText;
    ppDBText7: TppDBText;
    ppLine13: TppLine;
    ppDBText8: TppDBText;
    ppLine14: TppLine;
    ppDBText9: TppDBText;
    ppDBText10: TppDBText;
    ppLine15: TppLine;
    ppLine16: TppLine;
    ppLine17: TppLine;
    ppLine18: TppLine;
    ppLine19: TppLine;
    ppDBText11: TppDBText;
    ppLine20: TppLine;
    ppLine21: TppLine;
    ppDBText12: TppDBText;
    ppLine22: TppLine;
    ppLine23: TppLine;
    ppLine26: TppLine;
    ppDBText13: TppDBText;
    ppDBText14: TppDBText;
    ppDBText15: TppDBText;
    ppDBText16: TppDBText;
    ppDBText17: TppDBText;
    ppDBText18: TppDBText;
    ppDBText19: TppDBText;
    ppDBText20: TppDBText;
    ppDBText21: TppDBText;
    ppDBText22: TppDBText;
    ppDBText23: TppDBText;
    ppDBText24: TppDBText;
    ppDBText25: TppDBText;
    ppGroup2: TppGroup;
    ppGroupHeaderBand2: TppGroupHeaderBand;
    ppLine29: TppLine;
    ppLabel25: TppLabel;
    ppLine34: TppLine;
    ppLabel26: TppLabel;
    ppLine35: TppLine;
    ppLabel27: TppLabel;
    ppLine36: TppLine;
    ppLabel28: TppLabel;
    ppLine37: TppLine;
    ppLine38: TppLine;
    ppLine39: TppLine;
    ppLine40: TppLine;
    ppLine41: TppLine;
    ppLine42: TppLine;
    ppLine43: TppLine;
    ppLine44: TppLine;
    ppLabel29: TppLabel;
    ppLine45: TppLine;
    ppLine46: TppLine;
    ppLabel30: TppLabel;
    ppLine47: TppLine;
    ppLabel31: TppLabel;
    ppLabel32: TppLabel;
    ppLine48: TppLine;
    ppLine49: TppLine;
    ppLine50: TppLine;
    ppLabel33: TppLabel;
    ppLine51: TppLine;
    ppLabel34: TppLabel;
    ppLabel35: TppLabel;
    ppLine52: TppLine;
    ppLabel36: TppLabel;
    ppLine53: TppLine;
    ppLine54: TppLine;
    ppLine55: TppLine;
    ppLabel37: TppLabel;
    ppLine56: TppLine;
    ppLabel38: TppLabel;
    ppLine57: TppLine;
    ppLabel39: TppLabel;
    ppLabel40: TppLabel;
    ppLabel41: TppLabel;
    ppDBText26: TppDBText;
    ppLine58: TppLine;
    ppLabel42: TppLabel;
    ppLabel43: TppLabel;
    ppLabel44: TppLabel;
    ppLabel45: TppLabel;
    ppLabel46: TppLabel;
    ppLabel47: TppLabel;
    ppLabel48: TppLabel;
    ppLabel49: TppLabel;
    ppLabel50: TppLabel;
    ppLabel51: TppLabel;
    ppLabel52: TppLabel;
    ppLabel53: TppLabel;
    ppLabel54: TppLabel;
    ppLabel55: TppLabel;
    ppLabel56: TppLabel;
    ppLabel57: TppLabel;
    ppLabel58: TppLabel;
    ppLabel59: TppLabel;
    ppGroupFooterBand2: TppGroupFooterBand;
    ppLabel60: TppLabel;
    ppDBCalc4: TppDBCalc;
    ppDBCalc5: TppDBCalc;
    ppLabel61: TppLabel;
    ppLabel62: TppLabel;
    ppDBCalc6: TppDBCalc;
    ppLabel63: TppLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure ppReport4BeforePrint(Sender: TObject);
    procedure ppReport4PreviewFormCreate(Sender: TObject);
    procedure ppReport8BeforePrint(Sender: TObject);
    procedure ppReport8PreviewFormCreate(Sender: TObject);
    procedure Edit2Exit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  salaryjiareport: Tsalaryjiareport;

implementation

uses datamol, main;

{$R *.DFM}

procedure Tsalaryjiareport.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  salaryjiareport:=nil;
  action:=cafree;
end;

procedure Tsalaryjiareport.FormCreate(Sender: TObject);
begin
edit1.Text:=copy(datetostr(date),1,7);
Width:=340;
end;

procedure Tsalaryjiareport.RadioGroup1Click(Sender: TObject);
var
qry:tadoquery;
begin
     case radiogroup1.ItemIndex of
       0:
         begin
           combobox1.visible:=false;
           edit2.visible:=false;
           edit3.visible:=false;
           statictext1.Visible:=false;
         end;
       1:
       begin
         combobox1.visible:=true;
         combobox1.SetFocus;
         edit2.Visible:=false;
         edit3.visible:=false;
         qry:=tadoquery.Create(self);
         qry.Connection:=datamod.Database1;
         qry.SQL.Text:='select * from pub05010 order by dno';
         qry.Open;
         statictext1.Visible:=false;
      while not qry.Eof do
        begin
          combobox1.Items.Add(qry.fieldbyname('dept').asstring);
          qry.Next;
        end;
          qry.Close;
        combobox1.text:=combobox1.items[0];
       end;
       2:
         begin
           edit2.Visible:=true;
           edit2.SetFocus;
           edit3.visible:=true;
           combobox1.Visible:=false;
           statictext1.Visible:=true;
         end;
     end;
 end;

procedure Tsalaryjiareport.Button1Click(Sender: TObject);
begin
case radiogroup3.ItemIndex of
0:
begin
      if (trim(edit1.Text) <>'/')  then
      begin
        adodataset4.Close;
        if (radiogroup1.itemindex=0)and (radiogroup2.ItemIndex=0) then
        begin
          Adodataset4.commandtext:=' select  a.deptname,a.workno,a.name, a.otjieri,a.yearmoney,a.othours,a.otmoney,a.otjiari,a.smoney,b.prof,a.indate,a.factbasepay,a.factdays,a.facthours,'+
                                   'a.noname55,a.insurance,a.facttech,mustgive,a.mustdec,a.factmoney,a.eightornine,a.latedec,a.kuanggongdec ,isnull(a.mustdec,0)-isnull(a.insurance,0)-isnull(a.facttech,0)-isnull(a.eightornine,0)-isnull(a.latedec,0)'+
                                   '-isnull(a.kuanggongdec,0) otherdec, isnull(a.mustgive,0)-isnull(a.factbasepay,0)-isnull(a.otmoney,0)-isnull(a.yearmoney,0)-isnull(a.smoney,0)-isnull(a.noname55,0) otheradd  from sal21010 a'+
                                   '  left join per24010 b  on a.workno=b.workno '+
                                   ' where  a.monthy='''+edit1.text+'''  and b.leave<>1  and b.mankind<>''计件'' order by a.deptname,a.workno ';
          adodataset4.Open;
          ppreport8.Print;
        end
        else if (radiogroup1.itemindex=1)and (radiogroup2.ItemIndex=0) then
        begin
          Adodataset4.commandtext:=' select  a.deptname,a.workno,a.name, a.otjieri,a.yearmoney,a.othours,a.otmoney,a.otjiari,a.smoney,b.prof,a.indate,a.factbasepay,a.factdays,a.facthours,'+
                                   'a.noname55,a.insurance,a.facttech,mustgive,a.mustdec,a.factmoney,a.eightornine,a.latedec,a.kuanggongdec ,isnull(a.mustdec,0)-isnull(a.insurance,0)-isnull(a.facttech,0)-isnull(a.eightornine,0)-isnull(a.latedec,0)'+