factory_report.pas

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

  var Action: TCloseAction);
begin
  Action:=cafree;
  close;
end;

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

procedure TFormfactory_report.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_report.ppReport1AfterPrint(Sender: TObject);
begin
  with datamod do
  begin
    Query1.close;
    Query1.sql.text:='Delete from temppic ';
    Query1.execsql;
    Query1.close;
  end;
end;
procedure TFormfactory_report.ppDBText3GetText(Sender: TObject;
  var Text: String);
begin
  adoqry.close;
  adoqry.Open;
  if adoqry.Locate('dept',text,[]) then
    begin
      pplabel7.Font.Color:=Adoqry.fieldbyname('color').AsInteger;
      ppdbtext1.Font.Color:=Adoqry.fieldbyname('color').asinteger;
      ppdbtext7.Font.Color:=Adoqry.fieldbyname('color').AsInteger;
      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
    else
    begin
      ppdbtext1.Font.Color:=clblack;
      ppdbtext7.Font.Color:=clblack;
      pplabel1.font.color:=clblack;
      pplabel2.font.color:=clblack;
      pplabel3.font.color:=clblack;
      pplabel4.font.color:=clblack;
      pplabel12.font.color:=clblack;
      pplabel16.font.color:=clblack;
      pplabel17.font.color:=clblack;
      ppdbtext2.font.color:=clblack;
      ppdbtext3.font.color:=clblack;
      ppdbtext4.font.color:=clblack;
      ppdbtext5.font.color:=clblack;
      ppdbtext1.font.color:=clblack;
      ppdbtext6.font.color:=clblack;
    end;
  adoqry.close;
end;

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

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

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

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

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

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

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

procedure TFormfactory_report.ppReport2BeforePrint(Sender: TObject);
begin
   pplabel13.caption:=companyname1;
   with formfactory do
   begin
     Formfactory_report.pplabel13.font.Assign(dbtext8.font);  // 公司名称
  //   formfactory_report.pplabel13.Left:=dbtext8.Left;
  //   formfactory_report.pplabel13.top:=dbtext8.top;
     Formfactory_report.ppImage2.Picture:=Image2.Picture;
 //    Formfactory_report.ppImage2.left:=image2.Left;
  //   Formfactory_report.ppImage2.top:=image2.top;
//     ppshape4.Left:=panel8.Left;
   //  ppshape4.top:=panel8.Top;
///////////
     Formfactory_report.ppdbtext16.font.Assign(dbtext2.font);
     //Formfactory_report.ppdbtext16.Left:=dbtext2.Left;
    // Formfactory_report.ppdbtext16.top:=dbtext2.top;
///////
     Formfactory_report.ppdbtext17.font.Assign(dbtext3.font);
  //   Formfactory_report.ppdbtext17.left:=dbtext3.left;
 //    Formfactory_report.ppdbtext17.top:=dbtext3.top;
////////////////
     Formfactory_report.ppdbtext13.font.Assign(dbtext4.font);
  //   Formfactory_report.ppdbtext13.left:=dbtext4.Left;
  //   Formfactory_report.ppdbtext13.top:=dbtext4.top;
  //////
     Formfactory_report.ppdbtext14.font.Assign(dbtext1.font);
   //  Formfactory_report.ppdbtext14.left:=dbtext1.Left;
   //  Formfactory_report.ppdbtext14.top:=dbtext1.top;
  //////////
     Formfactory_report.ppdbtext18.font.Assign(dbtext5.font);
 //   Formfactory_report.ppdbtext18.left:=dbtext5.left;
//     Formfactory_report.ppdbtext18.top:=dbtext5.Top;
    ///////标签
  {   pplabel6.Left:=label1.left;
     pplabel6.top:=label1.top;
     pplabel7.Left:=label3.Left;
     pplabel7.Top:=label3.Top;
     pplabel8.Left:=label2.Left;
     pplabel8.top:=label2.top;
     pplabel9.Left:=label4.Left;
     pplabel9.top:=label4.Top;
     pplabel11.left:=label8.Left;
     pplabel11.top:=label8.Top; }

   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_report.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;
    ppdbtext8.Font.Color:=adoqry.fieldbyname('color').asinteger;
    ppdbtext9.Font.Color:=adoqry.fieldbyname('color').asinteger;
    pplabel14.Font.Color:=adoqry.fieldbyname('color').AsInteger;
  end
  else
  begin
    ppdbtext18.font.color:=clblack;
    ppdbtext16.font.color:=clblack;
    ppdbtext17.font.color:=clblack;
    ppdbtext13.font.color:=clblack;
    ppdbtext14.font.color:=clblack;
    pplabel13.font.color:=clblack;
    pplabel6.font.color:=clblack;
    pplabel7.font.color:=clblack;
    pplabel8.font.color:=clblack;
    pplabel9.font.color:=clblack;
    pplabel11.font.color:=clblack;
    ppdbtext8.Font.Color:=clblack;
    ppdbtext9.Font.Color:=clblack;
    pplabel14.Font.Color:=clblack;
  end;
  adoqry.close;
end;
procedure TFormfactory_report.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_report.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.
end.