reportforraisepay.pas

来自「pasa人力资源考勤管理系统」· PAS 代码 · 共 232 行

unit reportforraisepay;

interface

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

type
  Treportformraisepay = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    DataSource5: TDataSource;
    ppDBPipeline5: TppDBPipeline;
    RadioGroup2: TRadioGroup;
    ComboBox1: TComboBox;
    Edit2: TEdit;
    StaticText1: TStaticText;
    Edit3: TEdit;
    Adodataset5: TADODataSet;
    Adodataset5id: TStringField;
    Adodataset5workno: TStringField;
    Adodataset5cardno: TStringField;
    Adodataset5name: TStringField;
    Adodataset5deptno: TStringField;
    Adodataset5dept: TStringField;
    Adodataset5prof: TStringField;
    Adodataset5prof1: TStringField;
    Adodataset5prof2: TStringField;
    Adodataset5pbasepay: TStringField;
    Adodataset5ptechpay: TStringField;
    Adodataset5Cprofpay: TBCDField;
    Adodataset5profpay: TBCDField;
    Adodataset5gradename: TStringField;
    Adodataset5classname: TStringField;
    Adodataset5basepay: TBCDField;
    Adodataset5Cbasepay: TBCDField;
    Adodataset5checkman: TStringField;
    Adodataset5pdate: TDateTimeField;
    Adodataset5pwho: TStringField;
    Adodataset5operator: TStringField;
    Adodataset5checkdate: TDateTimeField;
    Adodataset5cdate: TDateTimeField;
    Adodataset5cpclass: TStringField;
    Adodataset5cpgrade: TStringField;
    Adodataset5pprofpay: TBCDField;
    Adodataset5pdeptpay: TBCDField;
    Adodataset5deptpay: TBCDField;
    Adodataset5pclass: TStringField;
    Adodataset5Ctechpay: TBCDField;
    Adodataset5Cdeptpay: TBCDField;
    ppReport1: TppReport;
    ppHeaderBand1: TppHeaderBand;
    ppDetailBand1: TppDetailBand;
    ppFooterBand1: TppFooterBand;
    ppLabel1: TppLabel;
    ppLabel2: TppLabel;
    ppLine1: TppLine;
    ppLine2: TppLine;
    ppLine3: TppLine;
    ppLabel3: TppLabel;
    ppLabel4: TppLabel;
    ppLabel5: TppLabel;
    ppLabel6: TppLabel;
    ppLabel7: TppLabel;
    ppLabel8: TppLabel;
    ppLabel9: TppLabel;
    ppLabel10: TppLabel;
    ppLabel11: TppLabel;
    ppLabel12: TppLabel;
    ppLabel13: TppLabel;
    ppLabel14: TppLabel;
    ppLine4: TppLine;
    ppLine5: TppLine;
    ppLine6: TppLine;
    ppLine7: TppLine;
    ppLine8: TppLine;
    ppLine9: TppLine;
    ppLine10: TppLine;
    ppLine11: TppLine;
    ppLine12: TppLine;
    ppLine13: TppLine;
    ppLine14: TppLine;
    ppLine15: TppLine;
    ppLine16: TppLine;
    ppLine17: TppLine;
    ppLine18: TppLine;
    ppLine19: TppLine;
    ppLine20: TppLine;
    ppLine21: TppLine;
    ppLine22: TppLine;
    ppLine23: TppLine;
    ppLine24: TppLine;
    ppLine25: TppLine;
    ppLine26: TppLine;
    ppLine27: TppLine;
    ppLine28: TppLine;
    ppLine29: TppLine;
    ppLine30: TppLine;
    ppLine31: TppLine;
    procedure ppReport6PreviewFormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure Button1Click(Sender: TObject);
    procedure ppReport6AfterPrint(Sender: TObject);
    procedure RadioGroup2Click(Sender: TObject);
    procedure Edit2Exit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  reportformraisepay: Treportformraisepay;

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

procedure Treportformraisepay.ppReport6PreviewFormCreate(Sender: TObject);
begin
  tppReport(Sender).PreviewForm.WindowState:=wsMaximized;
  //TppViewer(tppReport(Sender).PreviewForm.Viewer).ZoomSetting := zsWholePage;
end;

procedure Treportformraisepay.Button2Click(Sender: TObject);
begin
  close;
end;

procedure Treportformraisepay.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  reportformraisepay:=nil;
  action:=cafree;
end;

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

procedure Treportformraisepay.Button1Click(Sender: TObject);
begin
  case radiogroup2.ItemIndex of
    1:
      begin
        adodataset5.Close;
        adodataset5.CommandText:='select * from per27012 where dept='''+combobox1.text+'''';
        adodataset5.Open;
      end;
    0:
      begin
        adodataset5.Close;
        adodataset5.CommandText:='select * from per27012';
        adodataset5.Open;
      end;
    2:
      begin
        adodataset5.Close;
        adodataset5.CommandText:='select * from per27012 where workno between '''+edit2.text+''' and '''+edit3.text+''' ';
        adodataset5.Open;
      end;
    end;

end;

procedure Treportformraisepay.ppReport6AfterPrint(Sender: TObject);
begin
  adodataset5.Close;
end;

procedure Treportformraisepay.RadioGroup2Click(Sender: TObject);
var
qry:tadoquery;
begin
     case radiogroup2.ItemIndex of
       0:
         begin
           combobox1.visible:=false;
           edit2.visible:=false;
           edit3.visible:=false;
           statictext1.Visible:=false;
         end;
       1:
       begin
         combobox1.visible:=true;
         combobox1.SetFocus;
         edit2.Visible:=false;
         edit3.visible:=false;
         qry:=tadoquery.Create(self);
         qry.Connection:=datamod.Database1;
         qry.SQL.Text:='select * from per27012';
         qry.Open;
         statictext1.Visible:=false;
         qry.First;
         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[0];
       end;
       2:
         begin
           edit2.Visible:=true;
           edit2.SetFocus;
           edit3.visible:=true;
           combobox1.Visible:=false;
           statictext1.Visible:=true;
         end;
     end;
end;

procedure Treportformraisepay.Edit2Exit(Sender: TObject);
begin
  edit3.Text:=edit2.Text;
end;

end.