factory_report1.pas

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

unit factory_report1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, ADODB, CheckLst, Db, ppDB, ppDBPipe, ppDBBDE,
  ppBands, ppCtrls, ppPrnabl, ppClass, ppCache, ppComm, ppRelatv, ppProd,
  ppReport;

type
  TFormfactory_report1 = class(TForm)
    RadioGroup1: TRadioGroup;
    ComboBox1: TComboBox;
    Panel1: TPanel;
    Edit1: TEdit;
    Edit2: TEdit;
    Panel2: TPanel;
    Edit3: TEdit;
    Edit4: TEdit;
    ComboBox2: TComboBox;
    Button1: TButton;
    Button2: TButton;
    qry: TADOQuery;
    ADOQuery1: TADOQuery;
    Panel3: TPanel;
    CheckListBox1: TCheckListBox;
    ppReport2: TppReport;
    ppColumnHeaderBand3: TppColumnHeaderBand;
    ppDetailBand3: TppDetailBand;
    ppShape4: TppShape;
    ppImage2: TppImage;
    ppDBText14: TppDBText;
    ppDBText16: TppDBText;
    ppDBText17: TppDBText;
    ppShape5: TppShape;
    ppDBText18: TppDBText;
    ppLabel10: TppLabel;
    ppDBImage2: TppDBImage;
    ppLabel13: TppLabel;
    ppDBText13: TppDBText;
    ppLabel6: TppLabel;
    ppLabel7: TppLabel;
    ppLabel8: TppLabel;
    ppLabel9: TppLabel;
    ppLabel11: TppLabel;
    ppColumnFooterBand3: TppColumnFooterBand;
    ppReport1: TppReport;
    ppColumnHeaderBand1: TppColumnHeaderBand;
    ppDetailBand1: TppDetailBand;
    ppShape2: TppShape;
    ppImage1: TppImage;
    ppDBText2: TppDBText;
    ppLabel1: TppLabel;
    ppLabel2: TppLabel;
    ppLabel3: TppLabel;
    ppLabel4: TppLabel;
    ppDBText5: TppDBText;
    ppDBText4: TppDBText;
    ppDBText3: TppDBText;
    ppShape1: TppShape;
    ppDBText6: TppDBText;
    ppLabel5: TppLabel;
    ppDBImage1: TppDBImage;
    ppLabel12: TppLabel;
    ppLabel16: TppLabel;
    ppLabel17: TppLabel;
    ppDBText1: TppDBText;
    ppColumnFooterBand1: TppColumnFooterBand;
    ppBDEPipeline1: TppBDEPipeline;
    DSfactory: TDataSource;
    Qryfactory: TADOQuery;
    Qryfactoryworkno: TStringField;
    Qryfactorycardno: TStringField;
    Qryfactoryname: TStringField;
    Qryfactorydept: TStringField;
    Qryfactoryprof: TStringField;
    Qryfactoryindate: TDateTimeField;
    Qryfactoryphoto: TStringField;
    RadioGroup2: TRadioGroup;
    Qrytemppic: TADOQuery;
    adoqry: TADOQuery;
    ppReport4: TppReport;
    ppColumnHeaderBand2: TppColumnHeaderBand;
    ppDetailBand2: TppDetailBand;
    ppShape3: TppShape;
    ppDBText7: TppDBText;
    ppDBText8: TppDBText;
    ppDBText9: TppDBText;
    ppDBText10: TppDBText;
    ppDBText11: TppDBText;
    ppDBText12: TppDBText;
    ppLabel14: TppLabel;
    ppColumnFooterBand2: TppColumnFooterBand;
    ppReport3: TppReport;
    ppColumnHeaderBand4: TppColumnHeaderBand;
    ppDetailBand4: TppDetailBand;
    ppShape6: TppShape;
    ppDBText19: TppDBText;
    ppDBText20: TppDBText;
    ppDBText21: TppDBText;
    ppDBText22: TppDBText;
    ppDBText23: TppDBText;
    ppDBText24: TppDBText;
    ppLabel15: TppLabel;
    ppColumnFooterBand4: TppColumnFooterBand;
    ppBDEPipeline2: TppBDEPipeline;
    ppDBText15: TppDBText;
    ppDBText25: TppDBText;
    ppDBText26: TppDBText;
    ppDBText27: TppDBText;
    ppPageStyle1: TppPageStyle;
    procedure RadioGroup1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ppReport1PreviewFormCreate(Sender: TObject);
    procedure ppReport1BeforePrint(Sender: TObject);
    procedure ppReport1AfterPrint(Sender: TObject);
    procedure ppDBText3GetText(Sender: TObject; var Text: String);
    procedure Edit1Exit(Sender: TObject);
    procedure Edit3Exit(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
    procedure ppReport2AfterPrint(Sender: TObject);
    procedure ppReport2PreviewFormCreate(Sender: TObject);
    procedure ppReport2BeforePrint(Sender: TObject);
    procedure ppDBText17GetText(Sender: TObject; var Text: String);
    procedure ppDBImage1GetPicture(Sender: TObject; aPicture: TPicture);
    procedure ppDBImage2GetPicture(Sender: TObject; aPicture: TPicture);
    procedure ppReport3BeforePrint(Sender: TObject);
    procedure ppReport4BeforePrint(Sender: TObject);
   private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formfactory_report1: TFormfactory_report1;
  sql:string;
implementation

uses datamol,main,factory, factory_report;
{$R *.DFM}

procedure TFormfactory_report1.RadioGroup1Click(Sender: TObject);
var qry:tadoquery;
begin
 with datamod do
 begin
   Qry:=TADOQuery.create(self);
   Qry.connection:=database1;
   case radiogroup1.ItemIndex of
     0:
     begin
        panel1.visible:=false;
        panel2.visible:=false;
        panel3.visible:=false;
        combobox1.visible:=false;
        combobox2.visible:=false;
     end;
     1:
     begin
        panel1.visible:=true;
        edit1.setfocus;
        panel2.visible:=false;
        panel3.visible:=false;
        combobox1.visible:=false;
        combobox2.visible:=false;
     end;
     2:
     begin
        panel1.visible:=false;
        panel2.visible:=true;
        edit3.SetFocus;
        panel3.visible:=false;
        combobox1.visible:=false;
        combobox2.visible:=false;
     end;
     3:
     begin
        panel1.visible:=false;
        panel2.visible:=false;
        panel3.visible:=false;
        combobox1.visible:=true;
        combobox2.visible:=false;
        combobox1.items.clear;
        qry.SQL.Text:='select * from pub05010 order by dept';
        qry.Open;
        combobox1.items.clear;
        while not qry.Eof do
        begin
           combobox1.Items.Add(qry.fieldbyname('dept').asstring);
           qry.Next;
        end;
        qry.Close;
        combobox1.text:=combobox1.items[1];
     end;
     4:
     begin
        panel1.visible:=false;
        panel2.visible:=false;
        panel3.visible:=false;
        combobox1.visible:=false;
        combobox2.visible:=true;
        qry.sql.text:='select profname from per01010 order by profno';      //职务
        qry.open;
        combobox2.items.clear;
        while not qry.eof do
        begin
           combobox2.items.Add (qry.fieldbyname('profname').asstring);
           qry.Next;
        end;
        qry.close;
        combobox2.text:=combobox2.items[1];

     end;
     5:
     begin
       panel3.Visible:=true;
       panel1.visible:=false;
       panel2.visible:=false;
       combobox1.visible:=false;
       combobox2.visible:=false;
     end;
   end;
 end;
end;

procedure TFormfactory_report1.Button2Click(Sender: TObject);
begin
  AdoQuery1.Close;
  Qry.Close;
  Self.close;
end;

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

procedure TFormfactory_report1.Button1Click(Sender: TObject);
var
  i:integer;
  qsql:string;
begin
    case radiogroup1.ItemIndex of
      0: sql:='';
      1: sql:='workno>='''+edit1.text+''' and workno<='''+edit2.text+''' ';
      2: sql:='cardno>='''+edit3.text+''' and cardno<='''+edit4.text+''' ';
      3: sql:='dept='''+combobox1.text+''' ';
      4: sql:='prof='''+combobox2.text+''' ';
      5:
      begin
        adoquery1.close;
        adoquery1.SQL.add('delete from selectprint');
        adoquery1.ExecSQL;
        for i:=0 to checklistbox1.items.count-1 do
        begin
          if checklistbox1.checked[i] then
          begin
//           adoquery1.Close;
//           showmessage(checklistbox1.items[i]);
           adoquery1.SQL.Add('insert into selectPrint(workno) values('''+copy(checklistbox1.Items[i],1,5)+''')');
//           showmessage(copy(checklistbox1.items[i],1,5));
          end;
        end;
        adoquery1.sql.savetofile('c:\xx.sql');
        adoquery1.ExecSQL;
        sql:='workno in (select * from selectPrint)';
        end;
      end;
      qryfactory.close;
      if sql<>'' then
      begin
       // qsql:=qryfactory.SQL.text;
        qryfactory.sql.text:='select workno,cardno,name,dept,prof,photo,indate from per24010 where leave=0 and '+
                             ''+sql+' order by workno ';
      end
      else
        qryfactory.SQL.text:='select workno,cardno,name,dept,prof,photo,indate,photo '+