⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 quan.pas

📁 职工信息管理系统的源代码
💻 PAS
📖 第 1 页 / 共 2 页
字号:
🔍
12 
unit quan;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, Menus, StdCtrls, DB, DBTables,registry,shellapi,
  Buttons, ToolWin, ComCtrls;

type
  Tqu = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N21: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N22: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N15: TMenuItem;
    N23: TMenuItem;
    N27: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    Image1: TImage;
    ControlBar1: TControlBar;
    Panel1: TPanel;
    Panel3: TPanel;
    Image2: TImage;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    Image4: TImage;
    SpeedButton9: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    Panel4: TPanel;
    Image5: TImage;
    SpeedButton10: TSpeedButton;
    SpeedButton11: TSpeedButton;
    SpeedButton12: TSpeedButton;
    SpeedButton15: TSpeedButton;
    SpeedButton16: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton1: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton13: TSpeedButton;
    SpeedButton14: TSpeedButton;
    Label4: TLabel;
    Label3: TLabel;
    Label2: TLabel;
    Label1: TLabel;
    PopupMenu1: TPopupMenu;
    N28: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    N32: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    N37: TMenuItem;
    N38: TMenuItem;
    N39: TMenuItem;
    N40: TMenuItem;
    N41: TMenuItem;
    N42: TMenuItem;
    N43: TMenuItem;
    N44: TMenuItem;
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure ControlBar9Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton10Click(Sender: TObject);
    procedure SpeedButton11Click(Sender: TObject);
    procedure SpeedButton12Click(Sender: TObject);
    procedure SpeedButton13Click(Sender: TObject);
    procedure SpeedButton14Click(Sender: TObject);
    procedure SpeedButton15Click(Sender: TObject);
    procedure SpeedButton16Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure N28Click(Sender: TObject);
    procedure N29Click(Sender: TObject);
    procedure N30Click(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure N32Click(Sender: TObject);
    procedure N33Click(Sender: TObject);
    procedure N34Click(Sender: TObject);
    procedure N35Click(Sender: TObject);
    procedure N36Click(Sender: TObject);
    procedure N37Click(Sender: TObject);
    procedure N38Click(Sender: TObject);
    procedure N39Click(Sender: TObject);
    procedure N40Click(Sender: TObject);
    procedure N41Click(Sender: TObject);
    procedure N42Click(Sender: TObject);
    procedure N43Click(Sender: TObject);
    procedure N44Click(Sender: TObject);

  private
    
    { Private declarations }
  public
   function cf( str:string):string;
    { Public declarations }
  end;

var
  qu: Tqu;
  username:string;
  s,ky:string;
  re:Tregistry;
  procedure OpenForm(FormClass: TFormClass; var fm; AOwner:TComponent);
implementation

uses zgb1, gzb1, start1, adduser1, deluser1, right1, changpass1, beifen1,
  chang1, inqure, bmb1, Unit1, Unit2, about1, zc, reg, CHAXUN1,
  chaxun2, step1, hint1;

{$R *.dfm}
procedure OpenForm(FormClass: TFormClass; var fm; AOwner:TComponent);
var
  i: integer;
  Child:TForm;
begin
  for i := 0 to Screen.FormCount -1 do
      if Screen.Forms[i].ClassType=FormClass then
      begin
        Child:=Screen.Forms[i];
        if Child.WindowState=wsMinimized then
           ShowWindow(Child.handle,SW_SHOWNORMAL)
        else
           ShowWindow(Child.handle,SW_SHOWNA);
        if (not Child.Visible) then Child.Visible:=True;
        Child.BringToFront;
        Child.Setfocus;
        TForm(fm):=Child;
        exit;
      end;
  Child:=TForm(FormClass.NewInstance);
  TForm(fm):=Child;
  Child.Create(AOwner);
end;
function Tqu.cf( str:string):string;
var i,j:integer;
temp:pchar;
buf:string ;
c:char;
begin
j:=0;
for i:=1 to length(str) do
begin
j:=(j+1) mod 10;
temp:=pchar(copy(str,i,1));
c:=temp^;
buf:=buf+chr(ord(c) xor j*12);
end;
result:=buf;
end;
procedure Tqu.N2Click(Sender: TObject);
begin
openForm(Tzgb,zgb,self);
end;

procedure Tqu.N3Click(Sender: TObject);
begin
openForm(Tgzb,gzb,self);
end;

procedure Tqu.N11Click(Sender: TObject);
begin
openForm(Tadduser,adduser,self);
end;

procedure Tqu.N12Click(Sender: TObject);
begin
openForm(Tdeluser,deluser,self);
end;

procedure Tqu.N13Click(Sender: TObject);
begin
openForm(Tright,right,self);
end;

procedure Tqu.N14Click(Sender: TObject);
begin
openForm(Tchangpass,changpass,self);
end;

procedure Tqu.N19Click(Sender: TObject);
begin
openForm(Tbeifen,beifen,self);
end;

procedure Tqu.N4Click(Sender: TObject);
begin
openForm(Tchang,chang,self);
end;

procedure Tqu.N5Click(Sender: TObject);
begin
if application.MessageBox('确实要退出系统吗？','信息',mb_okcancel+mb_iconquestion)=idok then
begin
if n20.Checked=true then
n17.Click;
re.Free;
qu.close;
end;
end;

procedure Tqu.N15Click(Sender: TObject);
begin
openForm(Tbmb,bmb,self);
end;

procedure Tqu.N8Click(Sender: TObject);
begin
report.bmb.Refresh;
report.zgb.Refresh;
report.QuickRep1.PreviewModal;
end;

procedure Tqu.N9Click(Sender: TObject);
begin
report1.gzb.Refresh;
report1.zc.Refresh;
report1.chang.Refresh;
report1.QuickRep1.PreviewModal;
end;

procedure Tqu.N25Click(Sender: TObject);
begin
about.showmodal;
end;

procedure Tqu.N26Click(Sender: TObject);
begin
shellexecute(application.Handle,'open',pchar(s+'\help\xi_tong.htm'),'','',SW_SHOW);
end;

procedure Tqu.N17Click(Sender: TObject);
var ss,s1,s2,s3,s4,s5,s6,s7,s19,s20,s21,s22,s23,f22,f23,f21,f19,f20,s9,s10,s11,s12,s13,s14,s17,s18,f1,f17,f18,f2,f3,f4,f5,f6,f7,f9,f10,f11,f12,f13,f14:string;
begin
ss:=re.ReadString('dir');
if ansicomparestr(s,ss)=0 then
begin
application.MessageBox('备份路径不得与"职工工资管理系统"的根目录相同','错误！',mb_ok);
exit;
end;
s1:=ss+'/zgb.db';
s2:=ss+'/zgb.PX';
s3:=ss+'/zgb.XG0';
s4:=ss+'/zgb.YG0';
s5:=ss+'/gzb.db';
s6:=ss+'/gzb.PX';
s7:=ss+'/chang.db';
s9:=ss+'/bmb.db';
s10:=ss+'/bmb.PX';
s11:=ss+'/bmb.XG0';
s12:=ss+'/bmb.YG0';
s13:=ss+'/user.db';
s14:=ss+'/user.PX';
s17:=ss+'/zc.db';
s18:=ss+'/zc.PX';
s19:=ss+'/zgb.XG1';
s20:=ss+'/zgb.YG1';
s22:=ss+'/zgb.XG2';
s23:=ss+'/zgb.YG2';
s21:=ss+'/tem.db';
f1:=s+'/zgb.db';
f2:=s+'/zgb.PX';
f3:=s+'/zgb.XG0';
f4:=s+'/zgb.YG0';
f5:=s+'/gzb.db';
f6:=s+'/gzb.PX';
f7:=s+'/chang.db';
f9:=s+'/bmb.db';
f10:=s+'/bmb.PX';
f11:=s+'/bmb.XG0';
f12:=s+'/bmb.YG0';
f13:=s+'/user.db';
f14:=s+'/user.PX';
f17:=s+'/zc.db';
f18:=s+'/zc.PX';
f19:=s+'/zgb.XG1';
f20:=s+'/zgb.YG1';
f21:=s+'/tem.db';
f22:=s+'/zgb.XG2';
f23:=s+'/zgb.YG2';
step.Show;
copyfile(pchar(f1),pchar(s1),false);
step.ProgressBar1.Position:=1;
copyfile(pchar(f2),pchar(s2),false);
step.ProgressBar1.Position:=2;
copyfile(pchar(f3),pchar(s3),false);
step.ProgressBar1.Position:=3;
copyfile(pchar(f4),pchar(s4),false);
step.ProgressBar1.Position:=4;
copyfile(pchar(f5),pchar(s5),false);
step.ProgressBar1.Position:=5;
copyfile(pchar(f6),pchar(s6),false);
step.ProgressBar1.Position:=6;
copyfile(pchar(f7),pchar(s7),false);
step.ProgressBar1.Position:=7;
copyfile(pchar(f9),pchar(s9),false);
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -