mainunit.~pas

使用delphi语言

  if getfunds=false then
  begin
    messagebox(self.Handle,'您没有在这个程序中设置权限','提示信息',mb_iconinformation);
    exit;
  end;
  application.CreateForm(tgetfundform,getfundform);
  getfundform.ShowModal ;
  getfundform.Free;
end;

procedure Tmainform.N17Click(Sender: TObject);
begin
  if lx=false then
  begin
    messagebox(self.Handle,'您没有在这个程序中设置权限','提示信息',mb_iconinformation);
    exit;
  end;
  application.CreateForm(tlxform,lxform);
  if lxform.ShowModal =mrok then
  begin
    if lxform.rb1.Checked =true then
    begin
      application.CreateForm(tmanual_lxform,manual_lxform);
      manual_lxform.ShowModal ;
      manual_lxform.Free;
    end;
    if lxform.rb2.Checked=true then
    begin
      application.CreateForm(tauto_lxform,auto_lxform);
      auto_lxform.ShowModal ;
      auto_lxform.Free;
    end;
  end;
  lxform.Free;
end;

procedure Tmainform.N18Click(Sender: TObject);
begin
  if dellx=false then
  begin
    messagebox(self.Handle,'您没有在这个程序中设置权限','提示信息',mb_iconinformation);
    exit;
  end;
  application.CreateForm(tlx_delform,lx_delform);
  lx_delform.ShowModal ;
  lx_delform.Free;
end;

procedure Tmainform.N20Click(Sender: TObject);
begin
  if mxcx=false then
  begin
    messagebox(self.Handle,'您没有在这个程序中设置权限','提示信息',mb_iconinformation);
    exit;
  end;
  application.CreateForm(tcx_mxform,cx_mxform);
  if cx_mxform.ShowModal=mrok then
  begin
    application.CreateForm(tcxmxform,cxmxform);
    cxmxform.ShowModal ;
    cxmxform.Free;
  end;
  cx_mxform.Free;
end;

procedure Tmainform.N21Click(Sender: TObject);
//var
//cxdw_presonform : tcxdw_personform;
begin
  if gr_dw=false then
  begin
    messagebox(self.Handle,'您没有在这个程序中设置权限','提示信息',mb_iconinformation);
    exit;
  end;
  application.CreateForm(tcx_dw_personform,cx_dw_personform) ;
  if  cx_dw_personform.ShowModal=mrok then
  begin
  try
    application.CreateForm(tcxdw_personform,cxdw_personform);
    cxdw_personform.ShowModal ;
  finally
    cxdw_personform.Free;
  end;
  end;
  cx_dw_personform.Free;
end;

procedure Tmainform.N19Click(Sender: TObject);
begin
  if yecx=false then
  begin
    messagebox(self.Handle,'您没有在这个程序中设置权限','提示信息',mb_iconinformation);
    exit;
  end;
  application.CreateForm(tcx_yeform,cx_yeform);
  if cx_yeform.ShowModal=mrok then
  begin
    application.CreateForm(tcxyeform,cxyeform);
    cxyeform.ShowModal ;
    cxyeform.Free;
  end;
  cx_yeform.Free;
end;

procedure Tmainform.N24Click(Sender: TObject);
begin
  if user1=false then
  begin
    messagebox(self.Handle,'您没有在这个程序中设置权限','提示信息',mb_iconinformation);
    exit;
  end;
  application.CreateForm(tuserform,userform);
  userform.ShowModal ;
  userform.Free;
end;

procedure Tmainform.N25Click(Sender: TObject);
begin
  application.CreateForm(tpasswordform,passwordform);
  passwordform.ShowModal ;
  passwordform.Free;
end;

procedure Tmainform.N27Click(Sender: TObject);
var
  dirchar:array[0..255] of char;
begin
  GetSystemDirectory(dirchar,255);
  strcat(dirchar,'\calc.exe');
  shellexecute(application.Handle,nil,dirchar,nil,nil,sw_shownormal);
end;

procedure Tmainform.TreeView1Click(Sender: TObject);
begin
  if treeview1.Selected.Text='职工档案' then
    n7.Click ;
  if treeview1.Selected.Text='部门档案' then
    n6.Click ;
  if treeview1.Selected.Text='职工月基本系数' then
    n8.Click ;
  if treeview1.Selected.Text='期初余额' then
    n9.Click ;
  if treeview1.Selected.Text='职工信息变动' then
    n10.Click ;
  if treeview1.Selected.Text='按月自动登账' then
    n13.Click ;
  if treeview1.Selected.Text='按月取消登账' then
    n14.Click ;
  if treeview1.Selected.Text='手工登账调整' then
    n15.Click ;
  if treeview1.Selected.Text='提取住房公积金' then
    n16.Click ;
  if treeview1.Selected.Text='利息结算' then
    n17.Click ;
  if treeview1.Selected.Text='取消利息结算' then
    n18.Click ;
  if treeview1.Selected.Text='余额表查询' then
    n19.Click ;
  if treeview1.Selected.Text='明细表查询' then
    n20.Click ;
  if treeview1.Selected.Text='个人与单位缴纳汇总表' then
    n21.Click ;
  if treeview1.Selected.Text='用户管理' then
    n24.Click ;
  if treeview1.Selected.Text='口令修改' then
    n25.Click ;
  if treeview1.Selected.Text='数据备份与恢复' then
    n26.Click ;
if treeview1.Selected.Parent <> nil then
  treeview1.Selected:=treeview1.Selected.Parent;

end;

procedure Tmainform.N23Click(Sender: TObject);
begin
    self.TreeView1.Visible :=not  self.TreeView1.Visible;
end;

procedure Tmainform.N29Click(Sender: TObject);
begin
  application.CreateForm(taboutform,aboutform);
  aboutform.ShowModal ;
  aboutform.Free;
end;

procedure Tmainform.N30Click(Sender: TObject);
begin
  application.CreateForm(thelpform,helpform);
  helpform.ShowModal ;
  helpform.Free;
end;

procedure Tmainform.SpeedButton13Click(Sender: TObject);
begin
  n23.Click ;
end;

procedure Tmainform.SpeedButton12Click(Sender: TObject);
begin
  n13.Click ;
end;

procedure Tmainform.SpeedButton11Click(Sender: TObject);
begin
  n14.Click ;
end;

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

procedure Tmainform.SpeedButton7Click(Sender: TObject);
begin
  n16.Click ;
end;

procedure Tmainform.SpeedButton9Click(Sender: TObject);
begin
  n17.Click ;
end;

procedure Tmainform.SpeedButton8Click(Sender: TObject);
begin
  n18.Click ;
end;

procedure Tmainform.SpeedButton6Click(Sender: TObject);
begin
  n19.Click ;
end;

procedure Tmainform.SpeedButton5Click(Sender: TObject);
begin
  n20.Click ;
end;

procedure Tmainform.SpeedButton4Click(Sender: TObject);
begin
  n26.Click ;
end;

procedure Tmainform.SpeedButton3Click(Sender: TObject);
begin
  n27.Click ;
end;

procedure Tmainform.N26Click(Sender: TObject);
begin
  if databack=false then
  begin
    messagebox(self.Handle,'您没有在这个程序中设置权限','提示信息',mb_iconinformation);
    exit;
  end;
  application.CreateForm(tdatabackform,databackform);
  if  databackform.ShowModal =mrok  then
  begin
    if databackform.rb1.Checked =true then
    begin
      application.CreateForm(tdatabfform,databfform);
      databfform.ShowModal ;
      databfform.Free;
    end;
    if databackform.rb2.Checked =true then
    begin
      application.CreateForm(tdatahfform,datahfform);
      datahfform.ShowModal ;
      datahfform.Free;
    end;
  end;
  databackform.Free;
end;

procedure Tmainform.SpeedButton13MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  statusbar1.Panels[3].Text:=(sender as TSpeedButton).Hint;
end;

procedure Tmainform.image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  statusbar1.Panels[3].Text:='www.mingrisoft.com';
end;

procedure Tmainform.TreeView1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
  statusbar1.Panels[3].Text:='功能目录';
end;

procedure Tmainform.TreeView1Expanded(Sender: TObject; Node: TTreeNode);
begin
  (sender as TTreeView).Repaint;
end;

procedure Tmainform.TreeView1CustomDraw(Sender: TCustomTreeView;
  const ARect: TRect; var DefaultDraw: Boolean);
begin
  tempBT.Height:=arect.Bottom-arect.Top;
  tempBt.Width:=arect.Right-arect.Left;

  stretchBlt(tempBT.Canvas.Handle,0,0,arect.Right-arect.Left,arect.Bottom-arect.Top,
  image1.Canvas.Handle,5,0,arect.Right-arect.Left,image1.Picture.Height  ,srccopy);

  stretchBlt(TreeView1.Canvas.Handle,arect.Left,arect.Top,arect.Right-arect.Left,arect.Bottom-arect.Top,
  tempBT.Canvas.Handle,0,0,round(self.oldpix/image1.Width *tempbt.width), tempbt.height,srccopy);


end;

procedure Tmainform.TreeView1Collapsed(Sender: TObject; Node: TTreeNode);
begin
  (sender as TTreeView).Repaint;
end;

procedure Tmainform.ToolBar1AdvancedCustomDraw(Sender: TToolBar;
  const ARect: TRect; Stage: TCustomDrawStage; var DefaultDraw: Boolean);
begin
  sender.Canvas.StretchDraw(arect,BmpTb);
end;

procedure Tmainform.FormDestroy(Sender: TObject);
begin
  bmpTb.Free;
  tempBT.Free;
end;

procedure Tmainform.TreeView1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
  begin
    TreeView1Click(sender);
  end;
end;

procedure Tmainform.FormResize(Sender: TObject);
begin
  treeview1.Align:=alLeft;
  treeview1.Align:=alnone;
  treeview1.Height:=image1.Height;
  treeview1.Width:=round(0.25*image1.Width);
  if treeview1.Width<200 then
    begin
      treeview1.Width:=200;
    end;
  Treeview1.Repaint;
end;

end.