per_sallist.pas

pasa人力资源考勤管理系统

unit per_sallist;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  pub, Menus, ImgList, ExtCtrls, DBCtrls, ComCtrls, ToolWin, Grids, DBGrids,
  StdCtrls, Db, ppBands, ppClass, ppCtrls, myChkBox, ppVar, ppPrnabl,
  ppCache, ppProd, ppReport, ppDB, ppComm, ppRelatv, ppDBPipe, ppDBBDE,
  ADODB;

type
  TFormper_sallist = class(TFormpub)
    Panel1: TPanel;
    Label1: TLabel;
    Editworkno: TEdit;
    ppBDEPipeline2: TppBDEPipeline;
    ppReport2: TppReport;
    ppHeaderBand1: TppHeaderBand;
    ppLabel38: TppLabel;
    ppLabel39: TppLabel;
    ppLabel41: TppLabel;
    ppLabel42: TppLabel;
    ppLabel43: TppLabel;
    ppSystemVariable3: TppSystemVariable;
    ppLabel44: TppLabel;
    ppSystemVariable4: TppSystemVariable;
    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;
    ppLine2: TppLine;
    ppDetailBand2: TppDetailBand;
    ppDBText33: TppDBText;
    ppDBText34: TppDBText;
    ppDBText35: TppDBText;
    ppDBText36: TppDBText;
    ppDBText37: TppDBText;
    ppDBText38: TppDBText;
    ppDBText39: TppDBText;
    ppDBText40: TppDBText;
    ppDBText42: TppDBText;
    ppDBText43: TppDBText;
    ppDBText44: TppDBText;
    ppDBText45: TppDBText;
    ppFooterBand2: TppFooterBand;
    ppSummaryBand1: TppSummaryBand;
    ppLabel61: TppLabel;
    ppDBCalc2: TppDBCalc;
    ppGroup3: TppGroup;
    ppGroupHeaderBand3: TppGroupHeaderBand;
    ppDBText31: TppDBText;
    ppDBText32: TppDBText;
    ppLabel45: TppLabel;
    ppLine3: TppLine;
    ppGroupFooterBand3: TppGroupFooterBand;
    ppLabel60: TppLabel;
    ppDBCalc1: TppDBCalc;
    DataSource2: TDataSource;
    ppDBText1: TppDBText;
    ADODataSet1: TADODataSet;
    Panel2: TPanel;
    CheckBox1: TCheckBox;
    Adodataset2: TADODataSet;
    StringField7: TStringField;
    StringField8: TStringField;
    StringField10: TStringField;
    d: TStringField;
    StringField11: TStringField;
    StringField12: TStringField;
    StringField13: TStringField;
    StringField14: TStringField;
    BooleanField1: TBooleanField;
    BooleanField2: TBooleanField;
    FloatField1: TFloatField;
    FloatField6: TFloatField;
    FloatField7: TFloatField;
    FloatField8: TFloatField;
    FloatField9: TFloatField;
    FloatField20: TFloatField;
    FloatField22: TFloatField;
    FloatField23: TFloatField;
    BooleanField7: TBooleanField;
    BooleanField8: TBooleanField;
    Adodataset2other2: TBCDField;
    Adodataset2clearpay: TBCDField;
    Adodataset2noname1: TBCDField;
    Adodataset2noname1b: TBooleanField;
    Adodataset2noname2: TBCDField;
    Adodataset2noname2b: TBooleanField;
    Adodataset2noname3: TBCDField;
    Adodataset2noname3b: TBooleanField;
    Adodataset2noname4: TBCDField;
    Adodataset2noname4b: TBooleanField;
    Adodataset2noname5: TBCDField;
    Adodataset2noname5b: TBooleanField;
    Adodataset2noname6: TBCDField;
    Adodataset2noname6b: TBooleanField;
    Adodataset2noname7: TBCDField;
    Adodataset2noname7b: TBooleanField;
    Adodataset2noname1f: TStringField;
    Adodataset2noname2f: TStringField;
    Adodataset2noname3f: TStringField;
    Adodataset2noname4f: TStringField;
    Adodataset2noname5f: TStringField;
    Adodataset2noname6f: TStringField;
    Adodataset2noname7f: TStringField;
    Adodataset2meatmoney: TBCDField;
    Adodataset2insurance: TBCDField;
    Adodataset2cdate: TDateTimeField;
    Adodataset2operator: TWideStringField;
    Adodataset2specname4: TStringField;
    Adodataset2classname: TStringField;
    Adodataset2bankno: TStringField;
    Adodataset2openbank: TBooleanField;
    Adodataset2zhusu: TBCDField;
    Adodataset2laolu: TBCDField;
    Adodataset2prof1: TStringField;
    Adodataset2prof2: TStringField;
    Adodataset2otvalue: TBCDField;
    Adodataset2gongsa: TBCDField;
    Adodataset2yangrao: TBCDField;
    Adodataset2yiliao: TBCDField;
    Adodataset2lostwork: TBCDField;
    Adodataset2leaveworkmoney: TBooleanField;
    ADODataSet1workno: TStringField;
    ADODataSet1cardno: TStringField;
    ADODataSet1name: TStringField;
    ADODataSet1deptno: TStringField;
    ADODataSet1dept: TStringField;
    ADODataSet1prof: TStringField;
    ADODataSet1sexname: TStringField;
    ADODataSet1try: TBooleanField;
    ADODataSet1dayormon: TBooleanField;
    ADODataSet1stoppay: TBooleanField;
    ADODataSet1brushcard: TBooleanField;
    ADODataSet1gradename: TStringField;
    ADODataSet1classname: TStringField;
    ADODataSet1basepay: TFloatField;
    ADODataSet1prof1: TStringField;
    ADODataSet1prof2: TStringField;
    ADODataSet1meatmoney: TBCDField;
    ADODataSet1otvalue: TBCDField;
    ADODataSet1present: TFloatField;
    ADODataSet1clearpay: TBCDField;
    ADODataSet1profmoney: TBCDField;
    ADODataSet1zhusu: TBCDField;
    ADODataSet1laolu: TBCDField;
    ADODataSet1gongsa: TBCDField;
    ADODataSet1yangrao: TBCDField;
    ADODataSet1yiliao: TBCDField;
    ADODataSet1lostwork: TBCDField;
    ADODataSet1leaveworkmoney: TBooleanField;
    ADODataSet1noname1: TBCDField;
    ADODataSet1noname1b: TBooleanField;
    ADODataSet1noname2: TBCDField;
    ADODataSet1noname2b: TBooleanField;
    ADODataSet1noname3: TBCDField;
    ADODataSet1noname3b: TBooleanField;
    ADODataSet1noname4: TBCDField;
    ADODataSet1noname4b: TBooleanField;
    ADODataSet1noname5: TBCDField;
    ADODataSet1noname5b: TBooleanField;
    ADODataSet1noname6: TBCDField;
    ADODataSet1noname6b: TBooleanField;
    ADODataSet1noname7: TBCDField;
    ADODataSet1noname7b: TBooleanField;
    ADODataSet1noname1f: TStringField;
    ADODataSet1noname2f: TStringField;
    ADODataSet1noname3f: TStringField;
    ADODataSet1noname4f: TStringField;
    ADODataSet1noname5f: TStringField;
    ADODataSet1noname6f: TStringField;
    ADODataSet1noname7f: TStringField;
    ADODataSet1operator: TWideStringField;
    ADODataSet1cdate: TDateTimeField;
    adopersal2: TADODataSet;
    StringField1: TStringField;
    StringField2: TStringField;
    StringField3: TStringField;
    StringField4: TStringField;
    StringField5: TStringField;
    StringField6: TStringField;
    StringField9: TStringField;
    BooleanField3: TBooleanField;
    BooleanField4: TBooleanField;
    adopersal2classname: TStringField;
    StringField15: TStringField;
    FloatField2: TFloatField;
    adopersal2prof1: TStringField;
    adopersal2prof2: TStringField;
    adopersal2meatmoney: TBCDField;
    FloatField3: TFloatField;
    FloatField4: TFloatField;
    FloatField24: TFloatField;
    BooleanField5: TBooleanField;
    BooleanField6: TBooleanField;
    adopersal2noname1: TBCDField;
    adopersal2noname1b: TBooleanField;
    adopersal2noname2: TBCDField;
    adopersal2noname2b: TBooleanField;
    adopersal2noname3: TBCDField;
    adopersal2noname3b: TBooleanField;
    adopersal2noname4: TBCDField;
    adopersal2noname4b: TBooleanField;
    adopersal2noname5: TBCDField;
    adopersal2noname5b: TBooleanField;
    adopersal2noname6: TBCDField;
    adopersal2noname6b: TBooleanField;
    adopersal2noname7: TBCDField;
    adopersal2noname7b: TBooleanField;
    adopersal2cdate: TDateTimeField;
    adopersal2operator: TWideStringField;
    adopersal2zhusu: TBCDField;
    adopersal2laolu: TBCDField;
    adopersal2otvalue: TBCDField;
    adopersal2gongsa: TBCDField;
    adopersal2yangrao: TBCDField;
    adopersal2yiliao: TBCDField;
    adopersal2lostwork: TBCDField;
    adopersal2leaveworkmoney: TBooleanField;
    adopersal2insurance: TBCDField;
    adopersal2clearpay: TBCDField;
    procedure EditworknoExit(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure ppReport2BeforePrint(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure ppReport2PreviewFormCreate(Sender: TObject);
    procedure DBNavigator1BeforeAction(Sender: TObject;
      Button: TNavigateBtn);
    procedure ppDBText1GetText(Sender: TObject; var Text: String);
    procedure tbnfindClick(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Formper_sallist: TFormper_sallist;

implementation

uses datamol, per_salset,main,publicfunction, canfind, per_sal_modify;
{$R *.DFM}

procedure TFormper_sallist.EditworknoExit(Sender: TObject);
begin
    if trim(editworkno.text)<>'' then
    begin
      if not datamod.adopersal.locate('workno',editworkno.text,[]) then
      if not datamod.adopersal.locate('cardno',editworkno.text,[]) then
      if not datamod.adopersal.locate('name',editworkno.text,[]) then
        application.messagebox('对不起，找不到你指定的人','查找不到',mb_ok+mb_iconinformation);
    end;
end;
procedure TFormper_sallist.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  formper_sallist:=nil;
  inherited;
end;
procedure TFormper_sallist.DBGrid1DblClick(Sender: TObject);
begin
  dbnavigator1.BeforeAction (dbnavigator1,nbedit);
end;
procedure TFormper_sallist.ppReport2BeforePrint(Sender: TObject);
begin
  pplabel38.Caption:=companyname1;
  pplabel42.Caption:=pubworkname;
end;
procedure TFormper_sallist.ToolButton7Click(Sender: TObject);
begin
  ppReport2.print;
end;
procedure TFormper_sallist.ppReport2PreviewFormCreate(Sender: TObject);
begin
  tppReport(Sender).PreviewForm.WindowState:=wsMaximized;
end;
procedure TFormper_sallist.DBNavigator1BeforeAction(Sender: TObject;
  Button: TNavigateBtn);
begin
  case button of     //判断dbnavigator产生的何种操作
    nbedit:      //新增，修改
    begin
      if not assigned(formper_salset) then
      begin
        formper_salset:=tformper_salset.create(application);
        formper_salset.show;
      end;
    end
    else
    begin
          if not assigned(formper_salset) then
          begin
            formper_salset:=tformper_salset.create(application);
            formper_salset.show;
          end;
    end;
  end;
end;
procedure TFormper_sallist.ppDBText1GetText(Sender: TObject;
  var Text: String);
begin
  if text='0' then
     text:='月薪'
  else
     text:='日薪';
end;
procedure TFormper_sallist.tbnfindClick(Sender: TObject);
begin
  if assigned(formcanfind) then  formcanfind.close;
  findrecorder(adopersal2,'Adopersal2','per24010');
end;
procedure TFormper_sallist.ToolButton6Click(Sender: TObject);
begin
   formsal_modify:=TFormsal_modify.create(self);
   formsal_modify.showmodal;
   formsal_modify.free;
end;
procedure TFormper_sallist.FormCreate(Sender: TObject);
 var aqy:tadoquery;
begin
with datamod.Adoquery1 do
begin
    close;
    sql.clear;  //单人多人调薪
    sql.add('update per24010 set basepay=c.cbasepay ,present=c.pdeptpay '+
            'from ( select a.workno,a.cbasepay,a.cprofpay,a.pdeptpay,a.cpclass,a.pbasepay,a.prof2,a.cdeptpay  from per27012 a where  a.checkdate=(select max(checkdate)  from per27012 where per27012.workno '+
            ' =a.workno and checkdate<=getdate()) ) c where  per24010.workno=c.workno ');

    execsql;
    close;
  end;
   inherited;
   aqy:=tadoquery.create(application);
   aqy.connection:=datamod.database1;
   aqy.Close;
   aqy.sql.Clear;
   aqy.sql.add('select * from salnoname');
   aqy.open;
   if not aqy.eof then
   begin
    datamod.adopersalnoname1.displaylabel:=aqy.fieldbyname('noname1').asstring;
    datamod.adopersalnoname2.displaylabel:=aqy.fieldbyname('noname2').asstring;
    datamod.adopersalnoname3.displaylabel:=aqy.fieldbyname('noname3').asstring;
    datamod.adopersalnoname4.displaylabel:=aqy.fieldbyname('noname4').asstring;
    adopersal2noname1.displaylabel:=aqy.fieldbyname('noname1').asstring;
    adopersal2noname2.displaylabel:=aqy.fieldbyname('noname2').asstring;
    adopersal2noname3.displaylabel:=aqy.fieldbyname('noname3').asstring;
    adopersal2noname4.displaylabel:=aqy.fieldbyname('noname4').asstring;
   end;
end;
procedure TFormper_sallist.CheckBox1Click(Sender: TObject);
begin
  inherited;
  if checkbox1.Checked=true then
  begin
    datamod.adopersal.close;
    datamod.adopersal.CommandText:='select * from per24010 where leave=1';
    datamod.adopersal.Open;
  end
  else
  begin
    datamod.adopersal.close;
    datamod.adopersal.CommandText:='select * from per24010 where leave<>1';
    datamod.adopersal.Open;
  end;
  end;
end.