mainpas.~pas

来自「本软件是一套功能完整成熟的固定资产管理系统,具有固定资产管理系统的相应全部功能」· ~PAS 代码 · 共 729 行 · 第 1/2 页

  windir: array[0..255] of char;
  s:string;
begin
  GetWindowsDirectory(WinDir,SizeOf(WinDir));
s:=trim(string(windir))+'\calc.exe';
if fileexists(s) then
ShellExecute(handle,nil,pchar(s),nil,nil,sw_shownormal) else
begin
s:=trim(string(windir))+'\system32\calc.exe';
ShellExecute(handle,nil,pchar(s),nil,nil,sw_shownormal);
end;

end;

procedure Tmainform.SpeedButton10Click(Sender: TObject);
begin
n7click(self);
end;

procedure Tmainform.N6Click(Sender: TObject);
begin
PrinterSetupDialog1.Execute 
end;

procedure Tmainform.SpeedButton12Click(Sender: TObject);
begin
n6click(self);
end;

procedure Tmainform.N39Click(Sender: TObject);
begin
w_about:=tw_about.create(application);
w_about.showmodal;
end;

procedure Tmainform.N36Click(Sender: TObject);
begin
zyqxform:=tzyqxform.create(application);
zyqxform.showmodal;
end;

procedure Tmainform.N12Click(Sender: TObject);
var i,j:integer;
begin
for i:=mainform.MDIChildCount-1 downto 0 do
mainform.MDIChildren[i].Close; 
if not checkreg() then
messagedlg('软件尚未注册,请速注册该软件!',mtwarning,[mbok],0);
N2.Enabled:=FALSE;
N3.Enabled:=FALSE;
N14.ENABLED:=FALSE;
for i:=2 to 4 do
for j:=0 to mainmenu1.items[i].Count-1 do
mainmenu1.items[i][j].enabled:=false;
SPEEDBUTTON3.Enabled:=FALSE;
SPEEDBUTTON4.Enabled:=FALSE;
SPEEDBUTTON5.Enabled:=FALSE;
SPEEDBUTTON6.Enabled:=FALSE;
SPEEDBUTTON7.Enabled:=FALSE;
SPEEDBUTTON8.Enabled:=FALSE;
SPEEDBUTTON9.Enabled:=FALSE;
SPEEDBUTTON13.Enabled:=FALSE;
SPEEDBUTTON14.Enabled:=FALSE;
STATUSBAR1.Panels[1].TEXT:='未登录';
end;

procedure Tmainform.N11Click(Sender: TObject);
var i,j:integer;
begin
n12click(self);  //先注销
w_login:=tw_login.create(application);
IF w_login.showmodal=MROK THEN
begin
STATUSBAR1.Panels[1].TEXT:=hjzcdata.yhdlcx.FIELDBYNAME('职员姓名').Value;
if hjzcdata.yhdlcx.FIELDBYNAME('职员姓名').Value='管理员' then
begin  //所有权限
for i:=0 to mainmenu1.Items.Count-1 do
for j:=0 to mainmenu1.items[i].Count-1 do
mainmenu1.items[i][j].Enabled:=true;
end else
begin
with hjzcdata.czqxcx do  //查询权限
begin
close;
parameters.parambyname('zyxm').value:=hjzcdata.yhdlcx.fieldbyname('职员姓名').value;
prepared;
open;
end;
if not hjzcdata.czqxcx.isempty then
        begin
            while not hjzcdata.czqxcx.eof do
                begin
                        for i:=0 to mainmenu1.items.Count-3 do
                        for j:=0 to mainmenu1.items[i].Count-1 do
                                if UPPERCASE(mainmenu1.items[i][j].Name)=UPPERCASE(hjzcdata.czqxcx.fields[0].asstring) then
                                mainmenu1.items[i][j].enabled:=true;
                        hjzcdata.czqxcx.Next;
                end;
        end;
        end;
        //初始快捷按钮
        if N16.Enabled THEN
                SPEEDBUTTON3.Enabled:=TRUE ELSE
               SPEEDBUTTON3.Enabled:=FALSE;
        if N17.Enabled THEN
                SPEEDBUTTON4.Enabled:=TRUE ELSE
                SPEEDBUTTON4.Enabled:=FALSE;
        if N18.Enabled THEN
                SPEEDBUTTON5.Enabled:=TRUE ELSE
                SPEEDBUTTON5.Enabled:=FALSE;
        if N19.Enabled THEN
                SPEEDBUTTON6.Enabled:=TRUE ELSE
                SPEEDBUTTON6.Enabled:=FALSE;
        if N20.Enabled THEN
                SPEEDBUTTON7.Enabled:=TRUE ELSE
                SPEEDBUTTON7.Enabled:=FALSE;
        if N22.Enabled THEN
                SPEEDBUTTON8.Enabled:=TRUE ELSE
                SPEEDBUTTON8.Enabled:=FALSE;
        if N25.Enabled THEN
                SPEEDBUTTON9.Enabled:=TRUE ELSE
                SPEEDBUTTON9.Enabled:=FALSE;
        if N23.Enabled THEN
                SPEEDBUTTON13.Enabled:=TRUE ELSE
                SPEEDBUTTON13.Enabled:=FALSE;
       if N24.Enabled THEN
                SPEEDBUTTON14.Enabled:=TRUE ELSE
                SPEEDBUTTON14.Enabled:=FALSE;
        end;

end;

procedure Tmainform.SpeedButton1Click(Sender: TObject);
begin
N11CLICK(SELF);
end;

procedure Tmainform.SpeedButton2Click(Sender: TObject);
begin
N12CLICK(SELF);
end;

procedure Tmainform.N35Click(Sender: TObject);
begin
findchild(tw_zclbsz,w_zclbsz);
end;

procedure Tmainform.N37Click(Sender: TObject);
begin
w_zcxhsz:=tw_zcxhsz.create(application);
w_zcxhsz.showmodal;
end;

procedure Tmainform.N16Click(Sender: TObject);
begin
w_gdzcrk:=tw_gdzcrk.create(application);
w_gdzcrk.showmodal;
end;

procedure Tmainform.N17Click(Sender: TObject);
begin
w_zcplrk:=tw_zcplrk.create(application);
w_zcplrk.showmodal;
end;

procedure Tmainform.N18Click(Sender: TObject);
begin
findchild(tw_zcbfform,w_zcbfform);
end;

procedure Tmainform.N19Click(Sender: TObject);
begin
findchild(tw_zccjform,w_zccjform);
end;

procedure Tmainform.N20Click(Sender: TObject);
begin
findchild(tw_zcghform,w_zcghform);
end;

procedure Tmainform.N48Click(Sender: TObject);
begin
findchild(tw_zcwxform,w_zcwxform);
end;

procedure Tmainform.N22Click(Sender: TObject);
begin
if not checkreg() then
messagedlg('软件尚未注册,请速注册该软件!',mtwarning,[mbok],0);
findchild(tw_gdzccx,w_gdzccx);
end;

procedure Tmainform.N14Click(Sender: TObject);
begin
w_passset:=tw_passset.create(application);
w_passset.showmodal;
end;

procedure Tmainform.N25Click(Sender: TObject);
begin
findchild(tw_zcbfcx,w_zcbfcx);
end;

procedure Tmainform.N23Click(Sender: TObject);
begin
findchild(tw_cjcx,w_cjcx);
end;

procedure Tmainform.N2Click(Sender: TObject);
var
  NewFileName: string;
  sourfile:string;
begin
  NewFileName := extractfilepath(application.ExeName) + 'gdzc.bak';
  if MessageDlg('您确认要备份数据吗?', mtConfirmation, [mbyes,mbno], 0) = mryes then
  begin
    sourfile := extractfilepath(application.ExeName) + 'gdzc.mdb';
    copyfile(pchar(sourfile),pchar(newfilename),true);
     messagedlg('数据备份成功!',mtconfirmation,[mbok],0);
   end;
  end;

procedure Tmainform.N3Click(Sender: TObject);
var
  NewFileName: string;
  sourfile:string;
begin
  NewFileName := extractfilepath(application.ExeName) + 'gdzc.mdb';
  if MessageDlg('您确认要恢复数据吗?', mtConfirmation, [mbyes,mbno], 0) = mryes then
  begin
  hjzcdata.hjzcdatabase.Connected:=false;
   sourfile := extractfilepath(application.ExeName) + 'gdzc.bak';
   if fileexists(sourfile) then
   begin
   deletefile(newfilename);
    copyfile(pchar(sourfile),pchar(newfilename),true);
 messagedlg('数据恢复成功!',mtconfirmation,[mbok],0);
 end else
 messagedlg('无备份数据可恢复!',mterror,[mbok],0);
    hjzcdata.hjzcdatabase.Connected:=true;

   end;


end;

procedure Tmainform.N50Click(Sender: TObject);
begin
w_xtcs:=tw_xtcs.create(application);
w_xtcs.showmodal;
end;

procedure Tmainform.SpeedButton3Click(Sender: TObject);
begin
N16CLICK(SELF);
end;

procedure Tmainform.SpeedButton4Click(Sender: TObject);
begin
N17CLICK(SELF);

end;

procedure Tmainform.SpeedButton5Click(Sender: TObject);
begin
N18CLICK(SELF);

end;

procedure Tmainform.SpeedButton6Click(Sender: TObject);
begin
N19CLICK(SELF);

end;

procedure Tmainform.SpeedButton7Click(Sender: TObject);
begin
N20CLICK(SELF);

end;

procedure Tmainform.SpeedButton8Click(Sender: TObject);
begin
N22CLICK(SELF);

end;

procedure Tmainform.SpeedButton9Click(Sender: TObject);
begin
N25CLICK(SELF);

end;

procedure Tmainform.SpeedButton13Click(Sender: TObject);
begin
N23CLICK(SELF);

end;

procedure Tmainform.N24Click(Sender: TObject);
begin
findchild(tw_cjdqcx,w_cjdqcx);
end;

procedure Tmainform.SpeedButton14Click(Sender: TObject);
begin
n24click(self);
end;

procedure Tmainform.N5Click(Sender: TObject);
var s:string;
begin
s:=extractfilepath(application.ExeName)+'help\help.htm';
ShellExecute(handle,nil,pchar(s),nil,nil,sw_shownormal);

end;

procedure Tmainform.FormActivate(Sender: TObject);
begin
if not showdw then
begin
if not hjzcdata.xtcsb.Active then
hjzcdata.xtcsb.Active:=true;
statusbar1.Panels[4].text:=hjzcdata.xtcsb.fields[0].value;
showdw:=true;
end;

end;

procedure Tmainform.FormCreate(Sender: TObject);
begin
showdw:=false;
end;

procedure Tmainform.N47Click(Sender: TObject);
begin
w_rhzc.Edit1.text:=inttostr(diskinfo1.serialnumber)+strjm;
w_rhzc.showmodal;
end;

procedure Tmainform.N44Click(Sender: TObject);
begin
if checkreg then
messagedlg('软件已经注册!',mtconfirmation,[mbok],0) else
begin
w_zc.edit1.text:=inttostr(diskinfo1.serialnumber)+strjm;
w_zc.showmodal;
end;
end;

procedure Tmainform.N52Click(Sender: TObject);
begin
findchild(tw_zcedit,w_zcedit);
end;

procedure Tmainform.N54Click(Sender: TObject);
begin
  if not checkreg() then
  messagedlg('软件尚未注册,请速注册该软件!',mtwarning,[mbok],0);
  findchild(tw_zcfltj,w_zcfltj);
end;

end.