factory_report1.pas

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

          'from per24010 where leave=0 order by workno';
      qryfactory.open;

      if radiogroup2.ItemIndex=0 then
        ppreport4.Print
      else
        ppreport3.Print;
  end;
procedure TFormfactory_report1.FormCreate(Sender: TObject);
begin
   qry.open;
   checklistbox1.items.clear;
   while  not qry.eof do
   begin
     checklistbox1.items.add(qry.fieldbyname('workno').asstring+'  '+qry.fieldbyname('name').asstring+'/'+qry.fieldbyname('dept').asstring);
     qry.next;
   end;
end;
procedure TFormfactory_report1.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action:=cafree;
  close;
end;

procedure TFormfactory_report1.ppReport1PreviewFormCreate(Sender: TObject);
begin
  tppReport(Sender).PreviewForm.WindowState:=wsMaximized;
//  TppViewer(tppReport(Sender).PreviewForm.Viewer).ZoomSetting := zsWholePage;
  qryfactory.first ;
end;

procedure TFormfactory_report1.ppReport1BeforePrint(Sender: TObject);
begin
   Formfactory_report.pplabel12.Caption:=companyname1;
   with formfactory do
   begin
     Formfactory_report.ppImage1.Picture:=Image2.Picture;
     Formfactory_report.pplabel12.font.Assign(dbtext8.font);
     Formfactory_report.ppdbtext2.font.Assign(dbtext1.font);
     Formfactory_report.ppdbtext4.font.Assign(dbtext2.font);
     Formfactory_report.ppdbtext3.font.Assign(dbtext3.font);
     Formfactory_report.ppdbtext5.font.Assign(dbtext4.font);
     Formfactory_report.ppdbtext6.font.Assign(dbtext5.font);
   end;
//初始化图片库
   with datamod do
   begin
        query1.close;
        query1.SQL.text:='Delete from temppic';
        query1.execsql;
        adopersonalpub.Close;
        adopersonalpub.open;
        adopersonalpub.first;
        qrytemppic.open;
        while not adopersonalpub.eof do
        begin
           qrytemppic.Insert;
           qrytemppic.fieldbyname('workno').asstring:=adopersonalpub.fieldbyname('workno').asstring;
           formfactory.dbimage1.Picture.LoadFromFile(adopersonalpub.fieldbyname('photo').asstring);
           qrytemppic.Post;
           adopersonalpub.next;
       end;
       adopersonalpub.close;
       query1.close;
   end;
end;

procedure TFormfactory_report1.ppReport1AfterPrint(Sender: TObject);
begin
  with datamod do
  begin
    Query1.close;
    Query1.sql.text:='Delete from temppic ';
    Query1.execsql;
    Query1.close;
  end;
end;
procedure TFormfactory_report1.ppDBText3GetText(Sender: TObject;
  var Text: String);
begin
  adoqry.close;
  adoqry.Open;
  if adoqry.Locate('dept',text,[]) then
    begin
      pplabel1.font.color:=adoqry.fieldbyname('color').asinteger;
      pplabel2.font.color:=adoqry.fieldbyname('color').asinteger;
      pplabel3.font.color:=adoqry.fieldbyname('color').asinteger;
      pplabel4.font.color:=adoqry.fieldbyname('color').asinteger;
      pplabel12.font.color:=adoqry.fieldbyname('color').asinteger;
      pplabel16.font.color:=adoqry.fieldbyname('color').asinteger;
      pplabel17.font.color:=adoqry.fieldbyname('color').asinteger;
      ppdbtext2.font.color:=adoqry.fieldbyname('color').asinteger;
      ppdbtext3.font.color:=adoqry.fieldbyname('color').asinteger;
      ppdbtext4.font.color:=adoqry.fieldbyname('color').asinteger;
      ppdbtext5.font.color:=adoqry.fieldbyname('color').asinteger;
      ppdbtext1.font.color:=adoqry.fieldbyname('color').asinteger;
      ppdbtext6.font.color:=adoqry.fieldbyname('color').asinteger;
    end;
  adoqry.close;
end;

procedure TFormfactory_report1.Edit1Exit(Sender: TObject);
begin
  Edit2.text:=Edit1.text;
end;

procedure TFormfactory_report1.Edit3Exit(Sender: TObject);
begin
  edit4.text:=edit3.text;
end;

procedure TFormfactory_report1.Edit1KeyPress(Sender: TObject;
  var Key: Char);
begin
  if key=#13 then
   begin
     key:=#0;
     selectnext(activecontrol,true,true);
   end;
end;

procedure TFormfactory_report1.Edit3KeyPress(Sender: TObject;
  var Key: Char);
begin
  if key=#13 then
 begin
   key:=#0;
   selectnext(activecontrol,true,true);
 end;
end;

procedure TFormfactory_report1.Edit2KeyPress(Sender: TObject;
  var Key: Char);
begin
    if key=#13 then
   begin
     key:=#0;
     selectnext(activecontrol,true,true);
   end;
end;

procedure TFormfactory_report1.Edit4KeyPress(Sender: TObject;
  var Key: Char);
begin
    if key=#13 then
   begin
     key:=#0;
     selectnext(activecontrol,true,true);
   end;
end;

procedure TFormfactory_report1.ppReport2AfterPrint(Sender: TObject);
begin
  with datamod do
  begin
    Query1.close;
    Query1.sql.text:='Delete from temppic ';
    Query1.execsql;
    Query1.close;
  end;
end;
procedure TFormfactory_report1.ppReport2PreviewFormCreate(Sender: TObject);
begin
  tppReport(Sender).PreviewForm.WindowState:=wsMaximized;
//  TppViewer(tppReport(Sender).PreviewForm.Viewer).ZoomSetting := zsWholePage;
  qryfactory.first ;
end;

procedure TFormfactory_report1.ppReport2BeforePrint(Sender: TObject);
begin
   pplabel13.caption:=companyname1;
   with formfactory do
   begin
     Formfactory_report.pplabel13.font.Assign(dbtext8.font);  // 公司名称
     Formfactory_report.ppImage2.Picture:=Image2.Picture;
     Formfactory_report.ppdbtext16.font.Assign(dbtext2.font);
     Formfactory_report.ppdbtext17.font.Assign(dbtext3.font);
     Formfactory_report.ppdbtext13.font.Assign(dbtext4.font);
     Formfactory_report.ppdbtext14.font.Assign(dbtext1.font);

     Formfactory_report.ppdbtext18.font.Assign(dbtext5.font);
   end;
//初始化图片库
   with datamod do
   begin
        query1.close;
        query1.SQL.text:='Delete from temppic';
        query1.execsql;
        adopersonalpub.Close;
        adopersonalpub.open;
        adopersonalpub.first;
        qrytemppic.open;
        while not adopersonalpub.eof do
        begin
           qrytemppic.Insert;
           qrytemppic.fieldbyname('workno').asstring:=adopersonalpub.fieldbyname('workno').asstring;
           formfactory.dbimage1.Picture.LoadFromFile(adopersonalpub.fieldbyname('photo').asstring);
           qrytemppic.Post;
           adopersonalpub.next;
       end;
       adopersonalpub.close;
       query1.close;
   end;











end;

procedure TFormfactory_report1.ppDBText17GetText(Sender: TObject;
  var Text: String);
begin
  adoqry.close;
  adoqry.Open;
  if adoqry.Locate('dept',text,[]) then
  begin
    ppdbtext18.font.color:=adoqry.fieldbyname('color').asinteger; //进厂日期
    ppdbtext16.font.color:=adoqry.fieldbyname('color').asinteger;
    ppdbtext17.font.color:=adoqry.fieldbyname('color').asinteger;
    ppdbtext13.font.color:=adoqry.fieldbyname('color').asinteger;
    ppdbtext14.font.color:=adoqry.fieldbyname('color').asinteger;
    pplabel13.font.color:=adoqry.fieldbyname('color').asinteger;
    pplabel6.font.color:=adoqry.fieldbyname('color').asinteger;
    pplabel7.font.color:=adoqry.fieldbyname('color').asinteger;
    pplabel8.font.color:=adoqry.fieldbyname('color').asinteger;
    pplabel9.font.color:=adoqry.fieldbyname('color').asinteger;
    pplabel11.font.color:=adoqry.fieldbyname('color').asinteger;

  end;
  adoqry.close;
end;
procedure TFormfactory_report1.ppDBImage1GetPicture(Sender: TObject;
  aPicture: TPicture);
begin
     if trim(qryfactoryphoto.asstring)<>'' then
        pplabel5.visible:=false;
     apicture.LoadFromFile(Qryfactoryphoto.asstring); //load a photo from the file located by the qryfactoryphoto
end;                                                  //which assiociated  with the field photo in the per24010.
procedure TFormfactory_report1.ppDBImage2GetPicture(Sender: TObject;
  aPicture: TPicture);
begin
    if trim(qryfactoryphoto.asstring)<>'' then
        pplabel10.visible:=false;
     apicture.LoadFromFile(Qryfactoryphoto.asstring); //load a photo from the file located by the qryfactoryphoto
end;                                                  //which assiociated  with the field photo in the per24010.
procedure TFormfactory_report1.ppReport3BeforePrint(Sender: TObject);
begin
  pplabel15.caption:=companyname1;
  pplabel15.Font.Assign(formfactory.DBText8.Font);
  ppdbtext19.font.assign(formfactory.dbedit7.Font);
  ppdbtext20.font.assign(formfactory.dbedit8.Font);
  ppdbtext21.font.assign(formfactory.dbedit9.Font);
  ppdbtext22.font.assign(formfactory.dbedit10.Font);
  ppdbtext23.font.assign(formfactory.dbedit11.Font);
  ppdbtext24.font.assign(formfactory.dbedit12.Font);
  ppdbtext15.font.assign(formfactory.dbedit1.Font);
  ppdbtext25.font.assign(formfactory.dbedit2.Font);
  ppdbtext26.font.assign(formfactory.dbedit3.Font);
  ppdbtext27.font.assign(formfactory.dbedit4.Font);

  ppshape6.Brush.Color:=formfactory.panel9.Color;
end;
procedure TFormfactory_report1.ppReport4BeforePrint(Sender: TObject);
begin
  pplabel14.caption:=companyname1;
  pplabel14.Font.Assign(formfactory.DBText8.Font);
  ppdbtext7.font.assign(formfactory.dbedit7.Font);
  ppdbtext8.font.assign(formfactory.dbedit8.Font);
  ppdbtext9.font.assign(formfactory.dbedit9.Font);
  ppdbtext10.font.assign(formfactory.dbedit10.Font);
  ppdbtext11.font.assign(formfactory.dbedit11.Font);
  ppdbtext12.font.assign(formfactory.dbedit12.Font);
 { ppdbtext15.font.assign(formfactory.dbedit1.Font);
  ppdbtext25.font.assign(formfactory.dbedit2.Font);
  ppdbtext26.font.assign(formfactory.dbedit3.Font);
  ppdbtext27.font.assign(formfactory.dbedit4.Font);}

  ppshape3.Brush.Color:=formfactory.panel9.Color;
end;
end.