monthendtj.pas

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

unit monthendtj;

interface

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

type
  Tfrmmonthendtj = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    sumbtn: TBitBtn;
    okbtn: TBitBtn;
    cancelbtn: TBitBtn;
    Edit4: TEdit;
    procedure cancelbtnClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure sumbtnClick(Sender: TObject);
    procedure okbtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }

  end;

var
  frmmonthendtj: Tfrmmonthendtj;
  monthif:string;
implementation

uses datarsgl;

{$R *.dfm}

procedure Tfrmmonthendtj.cancelbtnClick(Sender: TObject);
begin
close;
end;

procedure Tfrmmonthendtj.FormCreate(Sender: TObject);
begin
monthif:=inttostr(monthof(date));
edit4.Text:=monthif;
okbtn.Enabled:=false;
end;

procedure Tfrmmonthendtj.sumbtnClick(Sender: TObject);
begin
with dmrsgl.ygmonthgzqry do
begin
close;
sql.Clear;
sql.Add('select sum(gzze) as sumgzze,sum(kcgz) as sumkcgz,sum(sjgz) as sumsjgz from monthgz');
open;
edit1.Text:=inttostr(fieldbyname('sumgzze').AsInteger);
edit2.Text:=inttostr(fieldbyname('sumkcgz').asinteger);
edit3.Text:=inttostr(fieldbyname('sumsjgz').asinteger);
end;
okbtn.Enabled:=true;
sumbtn.Enabled:=false;
end;

procedure Tfrmmonthendtj.okbtnClick(Sender: TObject);
begin
if edit4.Text='1' then
begin
with dmrsgl.yeargztbqry do
begin
close;
sql.Clear;
sql.Add('select onemonthgzze,onemonthkcgzze,onemonthsjgzze from yeargztb');
open;
append;
fieldbyname('onemonthgzze').AsInteger:=strtoint(edit1.Text);
fieldbyname('onemonthkcgzze').AsInteger:=strtoint(edit2.Text);
fieldbyname('onemonthsjgzze').AsInteger:=strtoint(edit3.Text);
if messagedlg('确认核算总计资金存盘吗?',mtinformation,[mbyes,mbno],0)=mryes then
begin
post;
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
end
else
messagedlg('你已取消了本次核算资金.',mtinformation,[mbyes],0);
cancel;
end;
end
else if edit4.Text='2' then
begin
with dmrsgl.yeargztbqry do
begin
close;
sql.Clear;
sql.Add('select twomonthgzze,twomonthkcgzze,twomonthsjgzze from yeargztb');
open;
append;
fieldbyname('twomonthgzze').AsInteger:=strtoint(edit1.Text);
fieldbyname('twomonthkcgzze').AsInteger:=strtoint(edit2.Text);
fieldbyname('twomonthsjgzze').AsInteger:=strtoint(edit3.Text);
if messagedlg('确认核算总计资金存盘吗?',mtinformation,[mbyes,mbno],0)=mryes then
begin
post;
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
end
else
messagedlg('你已取消了本次核算资金.',mtinformation,[mbyes],0);
cancel;
end;
end
else if edit4.Text='3' then
begin
with dmrsgl.yeargztbqry do
begin
close;
sql.Clear;
sql.Add('select threemonthgzze,threemonthkcgzze,threemonthsjgzze from yeargztb');
open;
append;
fieldbyname('threemonthgzze').AsInteger:=strtoint(edit1.Text);
fieldbyname('threemonthkcgzze').AsInteger:=strtoint(edit2.Text);
fieldbyname('threemonthsjgzze').AsInteger:=strtoint(edit3.Text);
if messagedlg('确认核算总计资金存盘吗?',mtinformation,[mbyes,mbno],0)=mryes then
begin
post;
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
end
else
messagedlg('你已取消了本次核算资金.',mtinformation,[mbyes],0);
cancel;
end;
end
else if edit4.Text='4' then
begin
with dmrsgl.yeargztbqry do
begin
close;
sql.Clear;
sql.Add('select fourmonthgzze,fourmonthkcgzze,fourmonthsjgzze from yeargztb');
open;
append;
fieldbyname('fourmonthgzze').AsInteger:=strtoint(edit1.Text);
fieldbyname('fourmonthkcgzze').AsInteger:=strtoint(edit2.Text);
fieldbyname('fourmonthsjgzze').AsInteger:=strtoint(edit3.Text);
if messagedlg('确认核算总计资金存盘吗?',mtinformation,[mbyes,mbno],0)=mryes then
begin
post;
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
end
else
messagedlg('你已取消了本次核算资金.',mtinformation,[mbyes],0);
cancel;
end;
end
else if edit4.Text='5' then
begin
with dmrsgl.yeargztbqry do
begin
close;
sql.Clear;
sql.Add('select fivemonthgzze,fivemonthkcgzze,fivemonthsjgzze from yeargztb');
open;
append;
fieldbyname('fivemonthgzze').AsInteger:=strtoint(edit1.Text);
fieldbyname('fivemonthkcgzze').AsInteger:=strtoint(edit2.Text);
fieldbyname('fivemonthsjgzze').AsInteger:=strtoint(edit3.Text);
if messagedlg('确认核算总计资金存盘吗?',mtinformation,[mbyes,mbno],0)=mryes then
begin
post;
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
end
else
messagedlg('你已取消了本次核算资金.',mtinformation,[mbyes],0);
cancel;
end;
end
else if edit4.Text='6' then
begin
with dmrsgl.yeargztbqry do
begin
close;
sql.Clear;
sql.Add('select sixmonthgzze,sixmonthkcgzze,sixmonthsjgzze from yeargztb');
open;
append;
fieldbyname('sixmonthgzze').AsInteger:=strtoint(edit1.Text);
fieldbyname('sixmonthkcgzze').AsInteger:=strtoint(edit2.Text);
fieldbyname('sixmonthsjgzze').AsInteger:=strtoint(edit3.Text);
if messagedlg('确认核算总计资金存盘吗?',mtinformation,[mbyes,mbno],0)=mryes then
begin
post;
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
end
else
messagedlg('你已取消了本次核算资金.',mtinformation,[mbyes],0);
cancel;
end;
end
else if edit4.Text='7' then
begin
with dmrsgl.yeargztbqry do
begin
close;
sql.Clear;
sql.Add('select sevenmonthgzze,sevenmonthkcgzze,sevenmonthsjgzze from yeargztb');
open;
append;
fieldbyname('sevenmonthgzze').AsInteger:=strtoint(edit1.Text);
fieldbyname('sevenmonthkcgzze').AsInteger:=strtoint(edit2.Text);
fieldbyname('sevenmonthsjgzze').AsInteger:=strtoint(edit3.Text);
if messagedlg('确认核算总计资金存盘吗?',mtinformation,[mbyes,mbno],0)=mryes then
begin
post;
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
end
else
messagedlg('你已取消了本次核算资金.',mtinformation,[mbyes],0);
cancel;
end;
end
else if edit4.Text='8' then
begin
with dmrsgl.yeargztbqry do
begin
close;
sql.Clear;
sql.Add('select eightmonthgzze,eightmonthkcgzze,eightmonthsjgzze from yeargztb');
open;
append;
fieldbyname('eightmonthgzze').AsInteger:=strtoint(edit1.Text);
fieldbyname('eightmonthkcgzze').AsInteger:=strtoint(edit2.Text);
fieldbyname('eightmonthsjgzze').AsInteger:=strtoint(edit3.Text);
if messagedlg('确认核算总计资金存盘吗?',mtinformation,[mbyes,mbno],0)=mryes then
begin
post;
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
end
else
messagedlg('你已取消了本次核算资金.',mtinformation,[mbyes],0);
cancel;
end;
end
else if edit4.Text='9' then
begin
with dmrsgl.yeargztbqry do
begin
close;
sql.Clear;
sql.Add('select ninemonthgzze,ninemonthkcgzze,ninemonthsjgzze from yeargztb');
open;
append;
fieldbyname('ninemonthgzze').AsInteger:=strtoint(edit1.Text);
fieldbyname('ninemonthkcgzze').AsInteger:=strtoint(edit2.Text);
fieldbyname('ninemonthsjgzze').AsInteger:=strtoint(edit3.Text);
if messagedlg('确认核算总计资金存盘吗?',mtinformation,[mbyes,mbno],0)=mryes then
begin
post;
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
end
else
messagedlg('你已取消了本次核算资金.',mtinformation,[mbyes],0);
cancel;
end;
end
else if edit4.Text='10' then
begin
with dmrsgl.yeargztbqry do
begin
close;
sql.Clear;
sql.Add('select tenmonthgzze,tenmonthkcgzze,tenmonthsjgzze from yeargztb');
open;
append;
fieldbyname('tenmonthgzze').AsInteger:=strtoint(edit1.Text);
fieldbyname('tenmonthkcgzze').AsInteger:=strtoint(edit2.Text);
fieldbyname('tenmonthsjgzze').AsInteger:=strtoint(edit3.Text);
if messagedlg('确认核算总计资金存盘吗?',mtinformation,[mbyes,mbno],0)=mryes then
begin
post;
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
end
else
messagedlg('你已取消了本次核算资金.',mtinformation,[mbyes],0);
cancel;
end;
end
else if edit4.Text='11' then
begin
with dmrsgl.yeargztbqry do
begin
close;
sql.Clear;
sql.Add('select elevenmonthgzze,elevenmonthkcgzze,elevenmonthsjgzze from yeargztb');
open;
append;
fieldbyname('elevenmonthgzze').AsInteger:=strtoint(edit1.Text);
fieldbyname('elevenmonthkcgzze').AsInteger:=strtoint(edit2.Text);
fieldbyname('elevenmonthsjgzze').AsInteger:=strtoint(edit3.Text);
if messagedlg('确认核算总计资金存盘吗?',mtinformation,[mbyes,mbno],0)=mryes then
begin
post;
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
end
else
messagedlg('你已取消了本次核算资金.',mtinformation,[mbyes],0);
cancel;
end;
end
else
with dmrsgl.yeargztbqry do
begin
close;
sql.Clear;
sql.Add('select twelevenmonthgzze,twelevenmonthkcgzze,twelevenmonthsjgzze from yeargztb');
open;
append;
fieldbyname('twelevenmonthgzze').AsInteger:=strtoint(edit1.Text);
fieldbyname('twelevenmonthkcgzze').AsInteger:=strtoint(edit2.Text);
fieldbyname('twelevenmonthsjgzze').AsInteger:=strtoint(edit3.Text);
if messagedlg('确认核算总计资金存盘吗?',mtinformation,[mbyes,mbno],0)=mryes then
begin
post;
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
end
else
messagedlg('你已取消了本次核算资金.',mtinformation,[mbyes],0);
cancel;
end;
end;

end.