reportforpeople.pas

来自「pasa人力资源考勤管理系统」· PAS 代码 · 共 1,558 行 · 第 1/4 页

      if (combobox9.Text='全部')and(combobox9.Visible=true) then
        ppreport15.Print
      else
        ppreport1.Print;
    end;
    14:
      begin
        ppReport9.print;
      end;
  end;
end;
procedure Treportformpeople.Button2Click(Sender: TObject);
begin
  close;
end;
procedure Treportformpeople.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  reportformpeople:=nil;
  action:=cafree;
end;
procedure Treportformpeople.ppReport1AfterPrint(Sender: TObject);
begin
  reportforpeople.Close;
  reportforpeople.CommandText:='select * from per24010 where leave<>1 and stoppay<>1 order by dept,workno';
  reportforpeople.Open;
end;
procedure Treportformpeople.ppDBText24GetText(Sender: TObject;
  var Text: String);
begin
  if text='0' then
     text:='未婚'
  else
     text:='已婚';
end;

procedure Treportformpeople.RadioGroup1Click(Sender: TObject);
var qry:tadoquery;
begin
  case radiogroup1.ItemIndex of
    0,10,12,13,11:
      begin
        combobox1.Visible:=false;
        combobox2.Visible:=false;
        combobox3.Visible:=false;
        combobox4.Visible:=false;
        combobox5.Visible:=false;
        combobox6.Visible:=false;
        combobox7.Visible:=false;
        //panel1.Visible:=false;
        combobox9.Visible:=false;
        combobox8.Visible:=false;
      end;
    1:
      begin
        combobox1.Visible:=true;
        combobox2.Visible:=false;
        combobox3.Visible:=false;
        combobox4.Visible:=false;
        combobox5.Visible:=false;
        combobox6.Visible:=false;
        combobox7.Visible:=false;
        //panel1.Visible:=false;
        combobox9.Visible:=false;
        combobox8.Visible:=false;
        qry:=tadoquery.Create(self);
        qry.Connection:=datamod.Database1;
        qry.SQL.Text:='select * from pub05010 order by dept,cdate';
        qry.Open;
        combobox1.items.clear;
        combobox1.Items.Add('全部');
        combobox1.ItemIndex:=0;
      while not qry.Eof do
         begin
           combobox1.Items.Add(qry.fieldbyname('dept').asstring);
           qry.Next;
         end;
           qry.Close;
      end;
      2:
        begin
          combobox1.Visible:=false;
          combobox2.Visible:=true;
          combobox3.Visible:=false;
          combobox4.Visible:=false;
          combobox5.Visible:=false;
          combobox6.Visible:=false;
          combobox7.Visible:=false;
          //panel1.Visible:=false;
          combobox9.Visible:=false;
          combobox8.Visible:=false;
          qry:=tadoquery.Create(self);
          qry.Connection:=datamod.Database1;
          qry.sql.text:='select profname from per01010 order by profno';      //职务
          qry.open;
          combobox2.items.clear;
          combobox2.Items.Add('全部');
          combobox2.ItemIndex:=0;
          while not qry.eof do
            begin
              combobox2.items.Add (qry.fieldbyname('profname').asstring);
              qry.Next;
            end;
       end;
      3:
        begin
        combobox1.Visible:=false;
        combobox2.Visible:=false;
        combobox3.Visible:=false;
        combobox4.Visible:=false;
        combobox5.Visible:=false;
        combobox6.Visible:=false;
        combobox7.Visible:=false;
        //panel1.Visible:=false;
        combobox9.Visible:=false;
        combobox8.Visible:=true;
        end;
      4:
        begin
          combobox1.Visible:=false;
          combobox2.Visible:=false;
          combobox3.Visible:=true;
          combobox4.Visible:=false;
          combobox5.Visible:=false;
          combobox6.Visible:=false;
          combobox7.Visible:=false;
          //panel1.Visible:=false;
          combobox9.Visible:=false;
          combobox8.Visible:=false;
          qry:=tadoquery.Create(self);
          qry.Connection:=datamod.Database1;
          qry.sql.text:='select * from per03010 where right(rtrim(provno),4)=''0000''';      //省籍
          qry.open;
          combobox3.items.clear;
          combobox3.Items.Add('全部');
          combobox3.ItemIndex:=0;
          while not qry.eof do
            begin
              combobox3.items.Add (qry.fieldbyname('provname').asstring);
              qry.Next;
            end;
        end;
      5:
        begin
          combobox1.Visible:=false;
          combobox2.Visible:=false;
          combobox3.Visible:=false;
          combobox4.Visible:=true;
          combobox5.Visible:=false;
          combobox6.Visible:=false;
          combobox7.Visible:=false;
          //panel1.Visible:=false;
          combobox9.Visible:=false;
          combobox8.Visible:=false;
          qry:=tadoquery.Create(self);
          qry.Connection:=datamod.Database1;
          qry.sql.text:='select degreename from per04010 ';      //学历
          combobox4.items.clear;
          combobox4.Items.Add('全部');
          combobox4.ItemIndex:=0;
          qry.open;
          Qry.First;
          while not qry.eof do
            begin
              combobox4.items.Add (qry.fieldbyname('degreename').asstring);
              qry.Next;
            end;
        end;
      6:
        begin
          combobox1.Visible:=false;
          combobox2.Visible:=false;
          combobox3.Visible:=false;
          combobox4.Visible:=false;
          combobox5.Visible:=true;
          combobox6.Visible:=false;
          combobox7.Visible:=false;
          //panel1.Visible:=false;
          combobox9.Visible:=false;
          combobox8.Visible:=false;
          qry:=tadoquery.Create(self);
          qry.Connection:=datamod.Database1;
          qry.sql.text:='select distinct atd01010.scheno from atd01010,per24010 where atd01010.scheno=per24010.scheno ';      //班次
          qry.open;
          combobox5.items.clear;
          combobox5.Items.Add('全部');
          combobox5.Itemindex:=0;
          while not qry.eof do
            begin
              combobox5.items.Add (qry.fieldbyname('scheno').asstring);
              qry.Next;
            end;
        end;
      7:
        begin
          combobox1.Visible:=false;
          combobox2.Visible:=false;
          combobox3.Visible:=false;
          combobox4.Visible:=false;
          combobox5.Visible:=false;
          combobox6.Visible:=true;
          combobox7.Visible:=false;
          //panel1.Visible:=false;
          combobox9.Visible:=false;
          combobox8.Visible:=false;
          qry:=tadoquery.Create(self);
          qry.Connection:=datamod.Database1;
          qry.sql.text:='select distinct pub06010.comcode from pub06010,per24010 where pub06010.comcode=per24010.dothing';      //行事历
          qry.open;
          combobox6.items.clear;
          combobox6.Items.Add('全部');
          combobox6.ItemIndex:=0;
          while not qry.eof do
            begin
              combobox6.items.Add (qry.fieldbyname('comcode').asstring);
              qry.Next;
            end;
        end;
      8:
        begin
          combobox1.Visible:=false;
          combobox2.Visible:=false;
          combobox3.Visible:=false;
          combobox4.Visible:=false;
          combobox5.Visible:=false;
          combobox6.Visible:=false;
          combobox7.Visible:=true;
          //panel1.Visible:=false;
          combobox9.Visible:=false;
          combobox8.Visible:=false;
          qry:=tadoquery.Create(self);
          qry.Connection:=datamod.Database1;
          qry.sql.text:='select distinct a.ruleno from atd03010 a,per24010 b where a.ruleno=b.ruleno';      //轮班规则
          qry.open;
          combobox7.items.clear;
          combobox7.Items.Add('全部');
          combobox7.ItemIndex:=0;
          while not qry.eof do
            begin
              combobox7.items.Add (qry.fieldbyname('ruleno').asstring);
              qry.Next;
            end;
        end;
    9:
      begin
        combobox1.Visible:=false;
        combobox2.Visible:=false;
        combobox3.Visible:=false;
        combobox4.Visible:=false;
        combobox5.Visible:=false;
        combobox6.Visible:=false;
        combobox7.Visible:=false;
        //panel1.Visible:=false;
        combobox9.Visible:=true;
        combobox8.Visible:=false;
        /////////////////////////////
      end;
   14:
      begin
        combobox1.Visible:=false;
        combobox2.Visible:=false;
        combobox3.Visible:=false;
        combobox4.Visible:=false;
        combobox5.Visible:=false;
        combobox6.Visible:=false;
        combobox7.Visible:=false;
        panel1.Visible:=true;
        combobox9.Visible:=false;
        combobox8.Visible:=false;
      end;
    end;
end;
procedure Treportformpeople.ppReport2AfterPrint(Sender: TObject);
begin
  reportforpeople.Close;
  reportforpeople.CommandText:='select * from per24010 where leave<>1 and stoppay<>1 order by dept,workno,indate';
  reportforpeople.Open;
end;

procedure Treportformpeople.ppReport3AfterPrint(Sender: TObject);
begin
  reportforpeople.Close;
  reportforpeople.CommandText:='select * from per24010 where leave<>1 and stoppay<>1 order by dept,workno,indate';
  reportforpeople.Open;
  reportforpeople.Open;
end;

procedure Treportformpeople.ppReport5PreviewFormCreate(Sender: TObject);
begin
   tppReport(Sender).PreviewForm.WindowState:=wsMaximized;
end;

procedure Treportformpeople.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then    
   begin
     key:=#0;
     postmessage(handle,wm_keydown,vk_tab,0);
   end;
end;

procedure Treportformpeople.ppReport4AfterPrint(Sender: TObject);
begin
  reportforpeople.Close;
end;

procedure Treportformpeople.ppReport5AfterPrint(Sender: TObject);
begin
  reportforpeople.Close;
end;

procedure Treportformpeople.ppReport6AfterPrint(Sender: TObject);
begin
  reportforpeople.Close;
end;

procedure Treportformpeople.ppReport7AfterPrint(Sender: TObject);
begin
  reportforpeople.Close;
end;

procedure Treportformpeople.ppReport8AfterPrint(Sender: TObject);
begin
  reportforpeople.Close;
end;

procedure Treportformpeople.DateTimePicker1CloseUp(Sender: TObject);
begin
  maskedit1.Text :=datetostr(datetimepicker1.Date);
end;

procedure Treportformpeople.DateTimePicker2CloseUp(Sender: TObject);
begin
  maskedit2.Text :=datetostr(datetimepicker2.Date);
end;

procedure Treportformpeople.FormCreate(Sender: TObject);
begin
  combobox8.ItemIndex:=0;
  combobox9.ItemIndex:=0;
  maskedit1.Text :=datetostr(Date);
  maskedit2.Text :=datetostr(Date);
  DateTimePicker1.Date:=date;
  DateTimePicker2.Date:=date;
end;

procedure Treportformpeople.ppDBText8GetText(Sender: TObject;
  var Text: String);
begin
  if text='0' then
    text:='月薪'
  else
    text:='日薪';
end;

procedure Treportformpeople.ppDBText67GetText(Sender: TObject;
  var Text: String);
begin
  if text='0' then
    text:='日薪'
  else
    text:='月薪'
end;

procedure Treportformpeople.ppDBText146GetText(Sender: TObject;
  var Text: String);
begin
  if text='0' then
    text:='月薪'
  else
    text:='日薪';
end;

procedure Treportformpeople.ppReport16PreviewFormCreate(Sender: TObject);
begin
  tppReport(Sender).PreviewForm.WindowState:=wsMaximized;
end;

procedure Treportformpeople.ppReport1BeforePrint(Sender: TObject);
begin
  pplabel15.Caption:='员工基本资料一览表';
  pplabel65.Caption :=companyname1;
  pplabel74.Caption :=pubworkname;
  pplabel149.Caption :='';
end;

end.