main.~pas

考勤信息管理系统

begin
a1:=fieldbyname('ychuqin').Value;
a2:=fieldbyname('chidao').Value*0.5;
a3:=fieldbyname('zaotui').value*0.5;
a4:=fieldbyname('qingjia').Value*0.3;
a5:=fieldbyname('kuanggong').Value;
fieldbyname('schuqin').Value:=a1-a2-a3-a4-a5;
end;
end;

procedure TmainForm.BitBtn3Click(Sender: TObject);
begin
table1.Open;
table1.MasterSource:=datasource2;
table1.MasterFields:='bianhao';
pagecontrol1.ActivePage:=tabsheet1;
bitbtn12.Visible:=true;
bitbtn12.BringToFront;
bitbtn12.SetFocus;
dbgrid1.Align:=alclient;
dbgrid1.ReadOnly:=true;
end;

procedure TmainForm.BitBtn2Click(Sender: TObject);
var bn:integer;
begin
bn:=messagedlg('真的要删除吗？',mtconfirmation,[mbOK,mbcancel],0);
if bn=mrok then
table2.Delete;
end;

procedure TmainForm.DBGrid2ColExit(Sender: TObject);
begin
dbchart1.show;
end;

procedure TmainForm.BitBtn4Click(Sender: TObject);
var rn:integer;
begin
formchuqin.showmodal;
if rn=mrok then
dbgrid2.SetFocus;
table2.close;
table2.Open;
end;

procedure TmainForm.BitBtn5Click(Sender: TObject);
begin
if (combobox3.text='') or (edit6.text='') or (edit7.text='') or (edit8.text='') then
   begin
        MessageDlg('资料输入不全!', mtWarning, [mbOk], 0);
        exit;
        end;
bitbtn6.Enabled:=true;
if radiogroup1.ItemIndex=0 then
truesalary:=strtofloat(edit7.text)+strtofloat(edit8.Text)*0.3;
if radiogroup1.itemindex=1 then
truesalary:=strtofloat(edit7.text)+strtofloat(edit8.Text)*0.8;
if radiogroup1.itemindex=2 then
truesalary:=strtofloat(edit7.text)+strtofloat(edit8.Text)*1.0;
if radiogroup1.itemindex=3 then
truesalary:=strtofloat(edit7.text)+strtofloat(edit8.Text)*1.2;
edit9.text:='';
edit9.text:=floattostr(truesalary);
showmessage('该员工本月的实际工资为'+floattostr(truesalary));

end;

procedure TmainForm.BitBtn6Click(Sender: TObject);
begin
if (combobox3.text='') or (edit6.text='') or (edit7.text='') or (edit8.text='') then
   begin
        MessageDlg('资料输入不全!', mtWarning, [mbOk], 0);
        exit;
        end;
table3.active:=true;
with table3 do
begin
  append;
  FieldValues['bianhao'] := trim(edit6.text);
  FieldValues['yuefen'] := trim('2001'+combobox3.text);
  FieldValues['jiangjin'] :=strtofloat(trim(edit8.text));
  FieldValues['gongzi'] :=strtofloat(trim(edit7.text));
  FieldValues['sgongzi']:=strtofloat(trim(edit9.Text));
  Post;
  end;
  combobox3.text:='';
  edit6.Text:='';
  edit7.Text:='';
  edit8.Text:='';
  edit9.Text:='';
  bitbtn6.Enabled:=false;
  end;

procedure TmainForm.BitBtn8Click(Sender: TObject);
begin
table1.Open;
table1.MasterSource:=datasource3;
table1.MasterFields:='bianhao';
pagecontrol1.ActivePage:=tabsheet1;
bitbtn13.Visible:=true;
bitbtn13.BringToFront;
bitbtn13.SetFocus;
dbgrid1.Align:=alclient;
dbgrid1.ReadOnly:=true;
end;

procedure TmainForm.Table3CalcFields(DataSet: TDataSet);
begin
{with table3 do
begin
fieldbyname('sgongzi').Value:=strtofloat(edit9.text);
end;  }
end;

procedure TmainForm.BitBtn9Click(Sender: TObject);
begin
with query1 do
begin
close;
sql.Clear;
sql.Add('select * from information.db');
sql.Add(' where Bianma=:p1');
parambyname('p1').asstring:=trim(edit15.Text);
prepare;
open;
end;
edit15.Text:='';
end;

procedure TmainForm.BitBtn11Click(Sender: TObject);
begin
with query2 do
begin
close;
SQL.clear;
sql.Add('select * from salary where sgongzi between :p1 and :p2');
params[0].AsInteger:=strtoint(trim(edit13.Text));
params[1].Asinteger:=strtoint(trim(edit14.Text));
prepare;
open;
end;
edit13.Text:='';
edit14.Text:='';
end;

procedure TmainForm.BitBtn10Click(Sender: TObject);
begin
with query3 do
begin
close;
sql.Clear;
sql.Add('select * from onduty where (ychuqin-chidao*0.5-zaotui*0.5-qingjia*0.3-kuanggong) between :p1 and :p2');
query3.params[0].AsInteger:=strtoint(trim(edit11.Text));
query3.params[1].Asinteger:=strtoint(trim(edit12.Text));
query3.Active:=true;
end;
end;

procedure TmainForm.Query3CalcFields(DataSet: TDataSet);
var a1,a2,a3,a4,a5:real;
begin
with query3 do
begin
a1:=fieldbyname('ychuqin').Value;
a2:=fieldbyname('chidao').Value*0.5;
a3:=fieldbyname('zaotui').value*0.5;
a4:=fieldbyname('qingjia').Value*0.3;
a5:=fieldbyname('kuanggong').Value;
fieldbyname('schuqin').Value:=a1-a2-a3-a4-a5;
end;
end;

procedure TmainForm.BitBtn12Click(Sender: TObject);
begin
pagecontrol1.ActivePage:=tabsheet2;
table1.MasterFields:='';
table1.Active:=false;
table1.active:=true;
dbgrid1.Align:=alnone;
dbgrid1.Left:=280;
dbgrid1.Top:=0;
dbgrid1.Height:=217;
dbgrid1.width:=255;
bitbtn12.Visible:=false;
end;
procedure TmainForm.BitBtn13Click(Sender: TObject);
begin
pagecontrol1.ActivePage:=tabsheet3;
table1.MasterFields:='';
table1.Active:=false;
table1.active:=true;
dbgrid1.Align:=alnone;
dbgrid1.Left:=280;
dbgrid1.Top:=0;
dbgrid1.Height:=217;
dbgrid1.width:=255;
bitbtn13.Visible:=false;
end;

procedure TmainForm.BitBtn7Click(Sender: TObject);
var bn:integer;
begin
bn:=messagedlg('真的要删除吗？',mtconfirmation,[mbOK,mbcancel],0);
if bn=mrok then
table3.Delete;
end;

procedure TmainForm.FormPaint(Sender: TObject);
begin
//if pagecontrol1.ActivePage:=tabsheet5;
end;

procedure TmainForm.Timer1Timer(Sender: TObject);
begin
x:=x-1;
if x<-160 then

x:=image1.Height+20;
image1.Canvas.Font.Size:=11;
image1.canvas.Font.color:=clblue;
image1.Canvas.TextOut(10,x,'      有关本系统密码设置说明        ');
image1.Canvas.Font.color:=clblack;
image1.canvas.TextOut(10,x+15,'系统默认创建四个账户');
image1.canvas.TextOut(10,x+30,'设置密码时，请遵循以下策略：');
image1.canvas.TextOut(10,x+45,'1. 用户首次登录，立即修改密码；');
image1.canvas.TextOut(10,x+60,'2. 最好不要使用生日、电话等');
image1.canvas.TextOut(10,x+75,'    别人熟悉的名称或数字；');
image1.canvas.TextOut(10,x+90,'3. 密码不要与用户名相同；');
image1.canvas.TextOut(10,x+105,'4. 最好使用字母和数字的混合； ');
image1.canvas.TextOut(10,x+120,'5. 隔一段时间要修改密码；');
w:=image1.Canvas.TextWidth('5. 隔一段时间要修改密码；');
h:=image1.Canvas.TextHeight('5. 隔一段时间要修改密码；');
image1.Canvas.Pen.Color:=clbtnface;
image1.Canvas.MoveTo(10,h+x+15-2);
image1.Canvas.LineTo(10+w,h+x+15-2);
end;


procedure TmainForm.TabSheet5Show(Sender: TObject);
begin
timer1.Enabled:=true;
timer1.Interval:=50;
image1.BringToFront;
x:=image1.Height+20;
if username='system' then
label25.Caption:='系统管理员';
if username='renshi' then
label25.Caption:='人事部门员工';
if username='caiwu' then
label25.Caption:='财务部门员工';
tabsheet5.Repaint;
image1.Canvas.Brush.Color:=clbtnface;
pic:=rect(0,0,image1.Width,image1.Height);
image1.Canvas.FillRect(pic);
end;

procedure TmainForm.BitBtn14Click(Sender: TObject);
var
df:file;
numread:integer;
begin
assignfile(df,'system.ini');
reset(df,1);
while not eof(df) do
begin
blockread(df,ss,12,numread);
if ss=username then
begin
blockwrite(df,a2,12,numread);
messagedlg('您的密码已经修改！',mtconfirmation,[mbok],0);
exit;
end;
blockread(df,ss,12,numread);
end;
closefile(df);
end;


procedure TmainForm.Edit18Exit(Sender: TObject);
begin
a2:=trim(edit17.Text);
a3:=trim(edit18.Text);
if a2<>a3 then
begin
  messagedlg('验证密码不正确，请重新输入！',mtwarning,[mbok],0);
  exit;
  edit18.SetFocus;
  end;
end;

procedure TmainForm.TreeView1Change(Sender: TObject; Node: TTreeNode);
var ii:integer;
begin
ii:=treeview1.Selected.AbsoluteIndex;
if ii=0 then
richedit1.Lines.LoadFromFile('welcome.txt');
if ii=1 then
richedit1.Lines.LoadFromFile('1.txt');
if ii=2 then
richedit1.Lines.loadfromfile('welcome.txt');
if ii=3 then
richedit1.Lines.LoadFromFile('1.txt');
if ii=4 then
richedit1.Lines.loadfromfile('welcome.txt');
if ii=5 then
richedit1.Lines.loadfromfile('welcome.txt');
if ii=6 then
richedit1.Lines.loadfromfile('welcome.txt');
if ii=7  then
richedit1.Lines.loadfromfile('welcome.txt');
if ii=8 then
richedit1.Lines.loadfromfile('welcome.txt');
if ii=9 then
richedit1.Lines.loadfromfile('welcome.txt');
if ii=10 then
richedit1.Lines.loadfromfile('welcome.txt');
if ii=11 then
richedit1.Lines.LoadFromFile('1.txt');
if ii=12 then
richedit1.Lines.loadfromfile('welcome.txt');
end;

procedure TmainForm.BitBtn15Click(Sender: TObject);
begin
richedit1.Print('考勤信息管理系统-用户帮助');
end;

procedure TmainForm.Button1Click(Sender: TObject);
var x:cardinal;
begin
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Sysdm.cpl,,0',9);
end;

procedure TmainForm.Button3Click(Sender: TObject);
var r:integer;
begin
r:=messagedlg('真要退出系统吗？',mtconfirmation,[mbOK,mbCancel],0);
if r=mrok then
application.Terminate
else
exit;
end;

procedure TmainForm.Button2Click(Sender: TObject);
begin
zuozheform.showmodal;
end;

procedure TmainForm.Edit10Exit(Sender: TObject);
begin
a1:=trim(edit10.Text);
if userpass<>a1 then
begin
  Messagedlg('旧密码不正确,请重新输入！',mtwarning,[mbok],0);
  edit10.Text:='';
  edit10.SetFocus;
end;
end;

end.