prtjdrp.pas

毕业设计时候开发的人事管理系统

unit prtjdrp;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, DB, ADODB;

type
  Tfrmprtjdrp = class(TForm)
    Label1: TLabel;
    ComboBox1: TComboBox;
    BitBtn1: TBitBtn;
    adoquery1: TADOQuery;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmprtjdrp: Tfrmprtjdrp;

implementation

uses datarsgl, jdrp;

{$R *.dfm}

procedure Tfrmprtjdrp.FormCreate(Sender: TObject);
begin
combobox1.Items.Add('第一度总表');
combobox1.Items.Add('第二度总表');
combobox1.Items.Add('第三度总表');
end;

procedure Tfrmprtjdrp.BitBtn1Click(Sender: TObject);
var sumkcgz,sumsjgz:integer;
begin
inherited;
with tfrmjdrp.Create(self) do
begin
adoquery1.Connection:=dmrsgl.adorsgl;
with adoquery1 do
begin
close;
sql.Clear;
sql.Add('select * from yeargztb');
active:=true;
quickrep1.DataSet:=adoquery1;
if combobox1.Text='第一度总表' then
begin
QRLabel1.Caption:='第一度资金表';
QRLabel2.Caption:='一月扣资';
QRLabel3.Caption:='一月实资';
QRLabel4.Caption:='二月扣资';
QRLabel5.Caption:='二月实资';
QRLabel6.Caption:='三月扣资';
QRLabel7.Caption:='三月实资';
QRLabel8.Caption:='四月扣资';
QRLabel9.Caption:='四月实资';
sumkcgz:=(fieldbyname('onemonthkcgzze').AsInteger+fieldbyname('twomonthkcgzze').AsInteger+fieldbyname('threemonthkcgzze').AsInteger+fieldbyname('fourmonthkcgzze').AsInteger);
sumsjgz:=(fieldbyname('onemonthsjgzze').AsInteger+fieldbyname('twomonthsjgzze').AsInteger+fieldbyname('threemonthsjgzze').AsInteger+fieldbyname('fourmonthsjgzze').AsInteger);
QRLabel11.Caption:='第一度合计扣除工资：'+inttostr(sumkcgz)+'元';
QRLabel12.Caption:='第一度合计实发工资：'+inttostr(sumsjgz)+'元';
QRDBText1.DataSet:=adoquery1;
QRDBText1.DataField:='onemonthkcgzze';
QRDBText2.DataSet:=adoquery1;
QRDBText2.DataField:='onemonthsjgzze';
QRDBText3.DataSet:=adoquery1;
QRDBText3.DataField:='twomonthkcgzze';
QRDBText4.DataSet:=adoquery1;
QRDBText4.DataField:='twomonthsjgzze';
QRDBText5.DataSet:=adoquery1;
QRDBText5.DataField:='threemonthkcgzze';
QRDBText6.DataSet:=adoquery1;
QRDBText6.DataField:='threemonthsjgzze';
QRDBText7.DataSet:=adoquery1;
QRDBText7.DataField:='fourmonthkcgzze';
QRDBText8.DataSet:=adoquery1;
QRDBText8.DataField:='fourmonthsjgzze';
quickRep1.Preview;
end
else if combobox1.Text='第二度总表' then
begin
QRLabel1.Caption:='第二度资金表';
QRLabel2.Caption:='五月扣资';
QRLabel3.Caption:='五月实资';
QRLabel4.Caption:='六月扣资';
QRLabel5.Caption:='六月实资';
QRLabel6.Caption:='七月扣资';
QRLabel7.Caption:='七月实资';
QRLabel8.Caption:='八月扣资';
QRLabel9.Caption:='八月实资';
sumkcgz:=(fieldbyname('fivemonthkcgzze').AsInteger+fieldbyname('sixmonthkcgzze').AsInteger+fieldbyname('sevenmonthkcgzze').AsInteger+fieldbyname('eightmonthkcgzze').AsInteger);
sumsjgz:=(fieldbyname('fivemonthsjgzze').AsInteger+fieldbyname('sixmonthsjgzze').AsInteger+fieldbyname('sevenmonthsjgzze').AsInteger+fieldbyname('eightmonthsjgzze').AsInteger);
QRLabel11.Caption:='第二度合计扣除工资：'+inttostr(sumkcgz)+'元';
QRLabel12.Caption:='第二度合计实发工资：'+inttostr(sumsjgz)+'元';
QRDBText1.DataSet:=adoquery1;
QRDBText1.DataField:='fivemonthkcgzze';
QRDBText2.DataSet:=adoquery1;
QRDBText2.DataField:='fivemonthsjgzze';
QRDBText3.DataSet:=adoquery1;
QRDBText3.DataField:='sixmonthkcgzze';
QRDBText4.DataSet:=adoquery1;
QRDBText4.DataField:='sixmonthsjgzze';
QRDBText5.DataSet:=adoquery1;
QRDBText5.DataField:='sevenmonthkcgzze';
QRDBText6.DataSet:=adoquery1;
QRDBText6.DataField:='sevenmonthsjgzze';
QRDBText7.DataSet:=adoquery1;
QRDBText7.DataField:='eightmonthkcgzze';
QRDBText8.DataSet:=adoquery1;
QRDBText8.DataField:='eightmonthsjgzze';
quickRep1.Preview;
end
else if combobox1.Text='第三度总表' then
begin
QRLabel1.Caption:='第三度资金表';
QRLabel2.Caption:='九月扣资';
QRLabel3.Caption:='九月实资';
QRLabel4.Caption:='十月扣资';
QRLabel5.Caption:='十月实资';
QRLabel6.Caption:='十一月扣资';
QRLabel7.Caption:='十一月实资';
QRLabel8.Caption:='十二月扣资';
QRLabel9.Caption:='十二月实资';
sumkcgz:=(fieldbyname('ninemonthkcgzze').AsInteger+fieldbyname('tenmonthkcgzze').AsInteger+fieldbyname('elevenmonthkcgzze').AsInteger+fieldbyname('twelevenmonthkcgzze').AsInteger);
sumsjgz:=(fieldbyname('ninemonthsjgzze').AsInteger+fieldbyname('tenmonthsjgzze').AsInteger+fieldbyname('elevenmonthsjgzze').AsInteger+fieldbyname('twelevenmonthsjgzze').AsInteger);
QRLabel11.Caption:='第三度合计扣除工资：'+inttostr(sumkcgz)+'元';
QRLabel12.Caption:='第三度合计实发工资：'+inttostr(sumsjgz)+'元';
QRDBText1.DataSet:=adoquery1;
QRDBText1.DataField:='ninemonthkcgzze';
QRDBText2.DataSet:=adoquery1;
QRDBText2.DataField:='ninemonthsjgzze';
QRDBText3.DataSet:=adoquery1;
QRDBText3.DataField:='tenmonthkcgzze';
QRDBText4.DataSet:=adoquery1;
QRDBText4.DataField:='tenmonthsjgzze';
QRDBText5.DataSet:=adoquery1;
QRDBText5.DataField:='elevenmonthkcgzze';
QRDBText6.DataSet:=adoquery1;
QRDBText6.DataField:='elevenmonthsjgzze';
QRDBText7.DataSet:=adoquery1;
QRDBText7.DataField:='twelevenmonthkcgzze';
QRDBText8.DataSet:=adoquery1;
QRDBText8.DataField:='twelevenmonthsjgzze';
quickRep1.Preview;
end;
end;
end;
end;
end.