saldatareport.pas

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

    ppLabel246: TppLabel;
    ppLine138: TppLine;
    ppLabel247: TppLabel;
    ppLine139: TppLine;
    ppLabel248: TppLabel;
    ppLine126: TppLine;
    ppLine121: TppLine;
    ppLabel234: TppLabel;
    ppLine122: TppLine;
    ppLabel235: TppLabel;
    ppLine123: TppLine;
    ppLabel236: TppLabel;
    ppLine124: TppLine;
    ppLabel237: TppLabel;
    ppLine127: TppLine;
    ppLabel239: TppLabel;
    ppLine131: TppLine;
    ppLine132: TppLine;
    ppLabel241: TppLabel;
    ppLine25: TppLine;
    ppLabel138: TppLabel;
    ppLine129: TppLine;
    ppLine125: TppLine;
    ppLabel238: TppLabel;
    ppLabel240: TppLabel;
    ppLine133: TppLine;
    ppLabel242: TppLabel;
    ppLabel142: TppLabel;
    ppLabel143: TppLabel;
    ppLine30: TppLine;
    ppLine32: TppLine;
    ppLine120: TppLine;
    ppLabel139: TppLabel;
    ppLabel140: TppLabel;
    ppLine130: TppLine;
    ppLabel173: TppLabel;
    ppLabel214: TppLabel;
    ppLabel215: TppLabel;
    ppLabel216: TppLabel;
    ppLabel217: TppLabel;
    ppLabel218: TppLabel;
    ppLabel219: TppLabel;
    ppLabel220: TppLabel;
    ppLabel222: TppLabel;
    ppLabel223: TppLabel;
    ppLabel224: TppLabel;
    ppLabel225: TppLabel;
    ppLine146: TppLine;
    ppLabel250: TppLabel;
    ppLine142: TppLine;
    ppLine141: TppLine;
    ppLine144: TppLine;
    ppLabel249: TppLabel;
    ppLine27: TppLine;
    ppLabel141: TppLabel;
    ppLine140: TppLine;
    ppLabel174: TppLabel;
    ppLabel221: TppLabel;
    ppLine1: TppLine;
    ppLine2: TppLine;
    ADODataSet4deptname: TStringField;
    ADODataSet5deptname: TStringField;
    Button3: TButton;
    procedure Button2Click(Sender: TObject);
    procedure ppReport1PreviewFormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure RadioGroup1Click(Sender: TObject);
    procedure ppReport9PreviewFormCreate(Sender: TObject);
    procedure Edit2Exit(Sender: TObject);
    procedure ppReport8BeforePrint(Sender: TObject);
    procedure ppReport8PreviewFormCreate(Sender: TObject);
    procedure ppReport4BeforePrint(Sender: TObject);
    procedure ppReport4PreviewFormCreate(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  persaldata: Tpersaldata;

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

procedure Tpersaldata.Button2Click(Sender: TObject);
begin
  close;
end;
procedure Tpersaldata.ppReport1PreviewFormCreate(Sender: TObject);
begin
  tppReport(Sender).PreviewForm.WindowState:=wsMaximized
//  TppViewer(tppReport(Sender).PreviewForm.Viewer).ZoomSetting:= zsWholePage;
end;

procedure Tpersaldata.Button1Click(Sender: TObject);
begin
 if not assigned(formprint) then
  formprint:=tformprint.create(self);
 formprint.show;
 formprint.formname:=name;
end;
procedure Tpersaldata.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
   begin
      key:=#0;
      selectnext(activecontrol,true,true);
   end;
end;

procedure Tpersaldata.FormCreate(Sender: TObject);
begin
  edit1.Text:=copy(datetostr(date),1,7);
end;

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

procedure Tpersaldata.RadioGroup1Click(Sender: TObject);
var
qry:tadoquery;
begin
     case radiogroup1.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 pub05010 order by dno';
         qry.Open;
//         statictext1.Visible:=false;
      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 Tpersaldata.ppReport9PreviewFormCreate(Sender: TObject);
begin
  tppReport(Sender).PreviewForm.WindowState:=wsMaximized
end;

procedure Tpersaldata.Edit2Exit(Sender: TObject);
begin
  edit3.text:=edit2.text;
end;

procedure Tpersaldata.ppReport8BeforePrint(Sender: TObject);
begin
  pplabel353.caption:=pubworkname;
  pplabel315.Caption:= companyname1;
  pplabel316.Caption:='日/月薪员工'+ Edit1.Text+'月薪资';

end;

procedure Tpersaldata.ppReport8PreviewFormCreate(Sender: TObject);
begin
 tppReport(Sender).PreviewForm.WindowState:=wsMaximized;
end;

procedure Tpersaldata.ppReport4BeforePrint(Sender: TObject);
begin
  pplabel149.caption:=pubworkname;
  pplabel144.Caption:= companyname1;
  pplabel145.Caption:='计薪员工'+ Edit1.Text+'薪资';
end;

procedure Tpersaldata.ppReport4PreviewFormCreate(Sender: TObject);
begin
 tppReport(Sender).PreviewForm.WindowState:=wsMaximized;
end;

procedure Tpersaldata.Button3Click(Sender: TObject);
begin
 formmain.form:='persaldata';
case radiogroup3.ItemIndex of
0:
begin
      formmain.labe:='日/月薪员工'+edit1.Text+'月薪资条';
      if (trim(edit1.Text) <>'/')  then
      begin
        if (radiogroup1.itemindex=0)and (radiogroup2.ItemIndex=0) then
          formmain.sql:=' a.monthy='''+edit1.text+''' and b.leave<>1 and b.mankind<>''计件''' 
        else if (radiogroup1.itemindex=1)and (radiogroup2.ItemIndex=0) then
        begin
         formmain.sql:=' a.deptname='''+combobox1.text+''' and a.monthy='''+edit1.text+''' and b.leave<>1 and b.mankind<>''计件'''; 
        end
        else if (radiogroup1.itemindex=2)and (radiogroup2.ItemIndex=0) then
        begin
          formmain.sql:=' a.workno between '''+edit2.text+''' and '''+edit3.text+''' and a.monthy='''+edit1.text+''' and b.leave<>1 and b.mankind<>''计件'' ';
         end
         else if (radiogroup1.itemindex=0)and (radiogroup2.ItemIndex=1) then
         begin
           formmain.sql:='  a.monthy='''+edit1.text+'''  and b.leave=1  and b.leaveworkmoney=0 and b.mankind<>''计件'' ';
          end
          else if (radiogroup1.itemindex=1)and (radiogroup2.ItemIndex=1) then
          begin
            formmain.sql:='  a.deptname='''+combobox1.text+''' and a.monthy='''+edit1.text+''' and b.leave=1 and b.leaveworkmoney=0  and b.mankind<>''计件'' ';
          end
          else if (radiogroup1.itemindex=2)and (radiogroup2.ItemIndex=1) then
          begin
            formmain.sql:='  a.workno between '''+edit2.text+''' and '''+edit3.text+''' and a.monthy='''+edit1.text+''' and b.leave=1  and b.leaveworkmoney=0  and b.mankind<>''计件'' ';
          end
          ////////////
             else if (radiogroup1.itemindex=0)and (radiogroup2.ItemIndex=2) then
         begin
           formmain.sql:=' a.monthy='''+edit1.text+'''  and b.leave=1  and b.leaveworkmoney=1 and b.mankind<>''计件''';
          end
          else if (radiogroup1.itemindex=1)and (radiogroup2.ItemIndex=2) then
          begin
            formmain.sql:=' a.deptname='''+combobox1.text+''' and a.monthy='''+edit1.text+''' and b.leave=1 and b.leaveworkmoney=1 and b.mankind<>''计件''';
          end
          else if (radiogroup1.itemindex=2)and (radiogroup2.ItemIndex=2) then
          begin
            formmain.sql:=' a.workno between '''+edit2.text+''' and '''+edit3.text+''' and a.monthy='''+edit1.text+''' and b.leave=1  and b.leaveworkmoney=1 and b.mankind<>''计件''';
          end;
          end;
 end;
1:
begin
      formmain.labe:='计件员工'+edit1.Text+'月薪资条';
      if (trim(edit1.Text) <>'/')  then
      begin
        if (radiogroup1.itemindex=0)and (radiogroup2.ItemIndex=0) then
        begin 
          formmain.sql:=' a.monthy='''+edit1.text+'''  and b.leave<>1 and b.mankind=''计件''';
        end
        else if (radiogroup1.itemindex=1)and (radiogroup2.ItemIndex=0) then
        begin
          formmain.sql:=' a.deptname='''+combobox1.text+''' and a.monthy='''+edit1.text+''' and b.leave<>1 and b.mankind=''计件''';
        end
        else if (radiogroup1.itemindex=2)and (radiogroup2.ItemIndex=0) then
        begin
          formmain.sql:=' a.workno between '''+edit2.text+''' and '''+edit3.text+''' and a.monthy='''+edit1.text+''' and b.leave<>1 and b.mankind=''计件''';
         end
         else if (radiogroup1.itemindex=0)and (radiogroup2.ItemIndex=1) then
         begin
           formmain.sql:=' a.monthy='''+edit1.text+'''  and b.leave=1  and b.leaveworkmoney=0  and b.mankind=''计件''';
          end
          else if (radiogroup1.itemindex=1)and (radiogroup2.ItemIndex=1) then
          begin
            formmain.sql:=' a.deptname='''+combobox1.text+''' and a.monthy='''+edit1.text+''' and b.leave=1 and b.leaveworkmoney=0  and b.mankind=''计件''';
          end
          else if (radiogroup1.itemindex=2)and (radiogroup2.ItemIndex=1) then
          begin
            formmain.sql:=' a.workno between '''+edit2.text+''' and '''+edit3.text+''' and a.monthy='''+edit1.text+''' and b.leave=1  and b.leaveworkmoney=0  and b.mankind=''计件''';
          end
          ////////////
             else if (radiogroup1.itemindex=0)and (radiogroup2.ItemIndex=2) then
         begin
           formmain.sql:=' a.monthy='''+edit1.text+'''  and b.leave=1  and b.leaveworkmoney=1  and b.mankind=''计件''';
          end
          else if (radiogroup1.itemindex=1)and (radiogroup2.ItemIndex=2) then
          begin
            formmain.sql:=' a.deptname='''+combobox1.text+''' and a.monthy='''+edit1.text+''' and b.leave=1 and b.leaveworkmoney=1 and b.mankind=''计件''';
          end
          else if (radiogroup1.itemindex=2)and (radiogroup2.ItemIndex=2) then
          begin
            formmain.sql:=' a.workno between '''+edit2.text+''' and '''+edit3.text+''' and a.monthy='''+edit1.text+''' and b.leave=1  and b.leaveworkmoney=1 and b.mankind=''计件''';
          end;
     end;
end;
end;
 
 if not assigned(formprint) then
  formprint:=tformprint.create(self);

 formprint.show;

end;

end.