quan.pas

职工信息管理系统的源代码

step.ProgressBar1.Position:=8;
copyfile(pchar(f10),pchar(s10),false);
step.ProgressBar1.Position:=9;
copyfile(pchar(f11),pchar(s11),false);
step.ProgressBar1.Position:=10;
copyfile(pchar(f12),pchar(s12),false);
step.ProgressBar1.Position:=11;
copyfile(pchar(f13),pchar(s13),false);
step.ProgressBar1.Position:=12;
copyfile(pchar(f14),pchar(s14),false);
step.ProgressBar1.Position:=13;
copyfile(pchar(f17),pchar(s17),false);
step.ProgressBar1.Position:=14;
copyfile(pchar(f18),pchar(s18),false);
step.ProgressBar1.Position:=15;
copyfile(pchar(f19),pchar(s19),false);
step.ProgressBar1.Position:=16;
copyfile(pchar(f20),pchar(s20),false);
step.ProgressBar1.Position:=17;
copyfile(pchar(f21),pchar(s21),false);
step.ProgressBar1.Position:=18;
copyfile(pchar(f22),pchar(s22),false);
step.ProgressBar1.Position:=19;
copyfile(pchar(f23),pchar(s23),false);
step.ProgressBar1.Position:=20;
step.Close;
application.MessageBox('数据备份已完成！','信息',mb_ok+mb_iconinformation);
end;

procedure Tqu.FormCreate(Sender: TObject);
var s1, s2,s3,s19,s20,s21,s22,s23,s24,s25,s27,s28,s29,s30,s31,s32,s35,s36,s37,s38:string;
day:extended;
begin
re:=Tregistry.create;
re.RootKey:=HKEY_USERS;
if re.OpenKey('.default\software\wo\date',false)=false then
begin
form3:=Tform3.create(application);
form3.SpeedButton2.Visible:=false;
form3.ShowModal;
end;
re.RootKey:=HKEY_USERS;
re.OpenKey('.default\software\wo\date',false);
if re.ReadInteger('zhu_ce')=0 then
begin
if ((date- re.ReadDateTime('lasttime'))>=re.ReadInteger('time')) or((date- re.ReadDateTime('lasttime'))<0) then
begin
application.MessageBox('本软件试用已到期,请注册!','信息',mb_ok+mb_iconinformation);
form3:=Tform3.create(application);
form3.SpeedButton2.Visible:=false;
form3.SpeedButton1.Visible:=false;
form3.ShowModal;
end
else
begin
day:=re.ReadInteger('time')-(date- re.ReadDateTime('lasttime'));
if application.MessageBox(pchar('支持正版软件！！您未注册本软件,您还有'+floattostr(day)+'天的使用期,要注册本软件请单击"确定"'),'信息',mb_okcancel+mb_iconinformation)=idok then
begin
form3:=Tform3.create(application);
form3.Button2.Visible:=false;
form3.SpeedButton1.Visible:=false;
form3.ShowModal;
end;
end;
end;
getdir(0,s);
s1:=s+'\tem.db';
s19:=s+'\zgb.db';
s20:=s+'\zgb.PX';
s21:=s+'\zgb.XG0';
s22:=s+'\zgb.YG0';
s23:=s+'\gzb.db';
s24:=s+'\gzb.PX';
s25:=s+'\chang.db';
s27:=s+'\bmb.db';
s28:=s+'\bmb.PX';
s29:=s+'\bmb.XG0';
s30:=s+'\bmb.YG0';
s31:=s+'\user.db';
s32:=s+'\user.PX';
s35:=s+'\zc.db';
s36:=s+'\zc.PX';
s37:=s+'\zgb.XG1';
s38:=s+'\zgb.YG1';
s3:=s+'\zgb.XG2';
s2:=s+'\zgb.YG2';
if(fileexists(s19)=false)or(fileexists(s20)=false)or(fileexists(s21)=false)or(fileexists(s22)=false)or(fileexists(s23)=false)or(fileexists(s24)=false)
or(fileexists(s25)=false)or(fileexists(s27)=false)or(fileexists(s28)=false)or(fileexists(s29)=false)or(fileexists(s30)=false)or(fileexists(s31)=false)
or(fileexists(s32)=false)or(fileexists(s35)=false)
 or(fileexists(s36)=false)or(fileexists(s1)=false)or(fileexists(s3)=false)or(fileexists(s2)=false)or(fileexists(s37)=false)or(fileexists(s38)=false)then
begin
application.MessageBox('程序必要的文件丢失，请重装系统或用数据恢复程序恢复.有关注意事项请在开始菜单中查看“帮助”解决','信息',mb_ok+mb_iconinformation);
halt;
end
else
if (re.ValueExists('bak')=false) or (re.ValueExists('dir')=false)or (re.ValueExists('username')=false) or(re.ValueExists('complay')=false) then
begin
application.MessageBox('注册信息丢失或被破坏!请重装系统','错误',mb_ok+mb_iconinformation);
halt;
end
else
begin
if re.ReadInteger('bak')=0 then
n20.Checked:=true
else
n20.Checked:=false;
label3.Caption:=re.ReadString('username');
label4.Caption:=re.ReadString('complay');
end;
end;



procedure Tqu.N20Click(Sender: TObject);
begin
if n20.Checked=false then
begin
re.WriteInteger('bak',0);
n20.Checked:=true
end
else
begin
re.WriteInteger('bak',1);
n20.Checked:=false;
end;
end;

procedure Tqu.N27Click(Sender: TObject);
begin
openForm(Tzc1,zc1,self);
end;

procedure Tqu.N18Click(Sender: TObject);
begin
if application.MessageBox('恢复数据前须认真考虑，因为进行数据恢复后您未保存的数据将丢失，且需要重启系统，在重启之前需要手动运行系统根目录下的"recover.exe"程序，要恢复吗?','信息',mb_okcancel+mb_iconinformation)=idok then
begin
n20.Checked:=false;
qu.Close;
end;
end;

procedure Tqu.N6Click(Sender: TObject);
begin
openForm(Tzcx,zcx,self);
end;

procedure Tqu.ControlBar9Click(Sender: TObject);
begin
n5.Click;
end;

procedure Tqu.SpeedButton1Click(Sender: TObject);
begin
n2.Click;
end;

procedure Tqu.SpeedButton2Click(Sender: TObject);
begin
n3.Click;
end;

procedure Tqu.SpeedButton3Click(Sender: TObject);
begin
n6.Click;
end;



procedure Tqu.SpeedButton4Click(Sender: TObject);
begin
n14.Click;
end;

procedure Tqu.SpeedButton5Click(Sender: TObject);
begin
n17.Click;
end;

procedure Tqu.SpeedButton6Click(Sender: TObject);
begin
n18.Click
end;

procedure Tqu.SpeedButton9Click(Sender: TObject);
begin
n5.Click;
end;

procedure Tqu.SpeedButton7Click(Sender: TObject);
begin
n25.Click;
end;

procedure Tqu.SpeedButton8Click(Sender: TObject);
begin
n26.Click;
end;

procedure Tqu.SpeedButton10Click(Sender: TObject);
begin
n15.Click;
end;

procedure Tqu.SpeedButton11Click(Sender: TObject);
begin
n27.Click;
end;

procedure Tqu.SpeedButton12Click(Sender: TObject);
begin
n4.Click;
end;

procedure Tqu.SpeedButton13Click(Sender: TObject);
begin
n8.Click;
end;

procedure Tqu.SpeedButton14Click(Sender: TObject);
begin
n9.Click;
end;

procedure Tqu.SpeedButton15Click(Sender: TObject);
begin
n11.Click;
end;

procedure Tqu.SpeedButton16Click(Sender: TObject);
begin
n12.Click;
end;

procedure Tqu.Button1Click(Sender: TObject);
begin
 shellexecute(application.Handle,'open',pchar(s+'/recover.exe'),'','',SW_SHOW);
end;

procedure Tqu.FormShow(Sender: TObject);
var
  i:integer;
begin
for i:=MDIChildCount-1 downto 0 do
qu.MDIChildren[i].Close;
ky:='';
start.ShowModal;
end;

procedure Tqu.N28Click(Sender: TObject);
begin
n2.Click;
end;

procedure Tqu.N29Click(Sender: TObject);
begin
n3.Click
end;

procedure Tqu.N30Click(Sender: TObject);
begin
 n15.Click;
end;

procedure Tqu.N31Click(Sender: TObject);
begin
n27.Click;
end;

procedure Tqu.N32Click(Sender: TObject);
begin
 n11.Click;
end;

procedure Tqu.N33Click(Sender: TObject);
begin
 n12.Click;
end;

procedure Tqu.N34Click(Sender: TObject);
begin
 n14.Click;
end;

procedure Tqu.N35Click(Sender: TObject);
begin
  n13.Click;
end;

procedure Tqu.N36Click(Sender: TObject);
begin
n4.Click;
end;

procedure Tqu.N37Click(Sender: TObject);
begin
 n17.Click;
end;

procedure Tqu.N38Click(Sender: TObject);
begin
 n18.Click;
end;

procedure Tqu.N39Click(Sender: TObject);
begin
 n19.Click;
end;

procedure Tqu.N40Click(Sender: TObject);
begin
n6.Click;
end;

procedure Tqu.N41Click(Sender: TObject);
begin
n5.Click;
end;

procedure Tqu.N42Click(Sender: TObject);
var
  i:integer;
begin
for i:=MDIChildCount-1 downto 0 do
qu.MDIChildren[i].Close;

end;

procedure Tqu.N43Click(Sender: TObject);
begin
n42.Click;
end;

procedure Tqu.N44Click(Sender: TObject);
begin
re.RootKey:=HKEY_USERS;
re.OpenKey('.default\software\wo\date',false);
if re.ReadInteger('zhu_ce')=1 then
begin
application.MessageBox('您已经注册了本软件！','信息',mb_ok+mb_iconinformation);
exit;
end;
form3.SpeedButton1.Visible:=false;
form3.button2.Visible:=false;
form3.ShowModal;
end;

end.