mainunit.~pas

使用delphi语言

unit mainunit;

interface

uses
  Windows,shellapi, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ImgList, Buttons, ToolWin, ComCtrls, ExtCtrls, jpeg, ADODB,
  StdCtrls, ActnList, XPStyleActnCtrls, ActnMan, ActnCtrls, ActnMenus,
  StdStyleActnCtrls, ActnColorMaps;

type
  Tmainform = class(TForm)
    MainMenu1: TMainMenu;
    ImageList1: TImageList;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    ToolBar1: TToolBar;
    SpeedButton3: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    SpeedButton10: TSpeedButton;
    SpeedButton11: TSpeedButton;
    SpeedButton12: TSpeedButton;
    SpeedButton13: TSpeedButton;
    StatusBar1: TStatusBar;
    image1: TImage;
    TreeView1: TTreeView;
    ImageList2: TImageList;
    SpeedButton2: TSpeedButton;
    ActionManager1: TActionManager;
    Action1: TAction;
    Action2: TAction;
    Action3: TAction;
    Action4: TAction;
    Action5: TAction;
    Action11: TAction;
    Action12: TAction;
    Action13: TAction;
    Action14: TAction;
    Action15: TAction;
    Action21: TAction;
    Action22: TAction;
    Action23: TAction;
    Action24: TAction;
    Action25: TAction;
    Action26: TAction;
    Action31: TAction;
    Action32: TAction;
    Action33: TAction;
    Action41: TAction;
    Action42: TAction;
    Action43: TAction;
    Action44: TAction;
    Action45: TAction;
    Action51: TAction;
    Action52: TAction;
    ActionMainMenuBar1: TActionMainMenuBar;
    XPColorMap1: TXPColorMap;
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormCreate(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure TreeView1Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N29Click(Sender: TObject);
    procedure N30Click(Sender: TObject);
    procedure SpeedButton13Click(Sender: TObject);
    procedure SpeedButton12Click(Sender: TObject);
    procedure SpeedButton11Click(Sender: TObject);
    procedure SpeedButton10Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure SpeedButton13MouseMove(Sender: TObject; Shift: TShiftState;
      X, Y: Integer);
    procedure image1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure TreeView1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure TreeView1Expanded(Sender: TObject; Node: TTreeNode);
    procedure TreeView1CustomDraw(Sender: TCustomTreeView;
      const ARect: TRect; var DefaultDraw: Boolean);
    procedure TreeView1Collapsed(Sender: TObject; Node: TTreeNode);
    procedure ToolBar1AdvancedCustomDraw(Sender: TToolBar;
    const ARect: TRect; Stage: TCustomDrawStage;
      var DefaultDraw: Boolean);
    procedure FormDestroy(Sender: TObject);
    procedure TreeView1KeyPress(Sender: TObject; var Key: Char);
    procedure FormResize(Sender: TObject);
  private
    oldpix:integer;
  public
  name:string;
  bm,gz,base,qcye,infor,autodz,autodel,manual,getfunds,
  lx,dellx,yecx,mxcx,gr_dw,user1,databack:boolean;
    { Public declarations }
  end;

var
  mainform: Tmainform;
  BMPTb,BMPIG,tempBT:Tbitmap;
implementation
  uses dmunit,auto_dzunit,bmunit,personunit,baseunit,qcyeunit,infor_seleunit,inforunit,
       auto_delunit,manualunit,getfundunit,lxunit,aviunit,manual_lxunit,auto_lxunit,
       lx_delunit,cx_mxunit,cxmxunit,cx_dw_personunit,cxdw_personunit,cx_yeunit,cxyeunit,
       userunit,passwordunit,aboutunit,helpunit,databackunit,databfunit,datahfunit;
{$R *.dfm}
procedure Tmainform.SpeedButton2Click(Sender: TObject);
begin
  self.Close;
end;

procedure Tmainform.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if messagebox(self.Handle,'确定要退出住房公积金管理系统吗？','提示信息',mb_yesno+mb_iconquestion)=idyes then
    canclose:=true
  else
    canclose:=false;
end;

procedure Tmainform.FormCreate(Sender: TObject);
var
 dir:string;
begin
  oldpix:=image1.Width;
  getdir(0,dir);
  keypreview:=true;
  dm.user.Active:=false;
  try
    bmpTB:=Tbitmap.Create;
    bmpTB.LoadFromFile(dir+'\bmpTB.bmp');
  Except
    bmpTb.Free;
  end;

    tempBT:=TBitmap.create;

 { if FileExists(dir+'\01.bmp') then
  begin
    image1.Picture.LoadFromFile(dir+'\01.bmp');
    try
      bmpIG:=Tbitmap.Create;
      bmpIG.LoadFromFile(dir+'\01.bmp');
    Except
      bmpIG.Free;
    end;
  end; }

end;

procedure Tmainform.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (key=69)or (key=101) then  //e
    speedbutton2.Click ;
  if (key=67)or (key=99) then  //c
    speedbutton3.Click ;
  {if (key=66)or (key=98) then  //b
  speedbutton4.Click ;  }
  if (key=76)or (key=108) then    //l
    speedbutton5.Click ;
  if (key=75)or (key=107) then //k
    speedbutton6.Click ;
  if (key=74)or (key=106) then  //j
    speedbutton7.Click ;
  if (key=72)or (key=104) then //h
    speedbutton8.Click ;
  if (key=71)or (key=103) then    //g
    speedbutton9.Click ;
  if (key=70)or (key=102) then  //f
    speedbutton10.Click ;
  if (key=68)or (key=100) then  //d
    speedbutton11.Click ;
  if key=83 then
    speedbutton12.Click ;//s
  if (key=65)or (key=97) then
    speedbutton13.Click ;//a
end;

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

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

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

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

procedure Tmainform.N10Click(Sender: TObject);
begin
  if infor=false then
  begin
    messagebox(self.Handle,'您没有在这个程序中设置权限','提示信息',mb_iconinformation);
    exit;
  end;
  application.CreateForm(tinfor_seleform,infor_seleform);
  if infor_seleform.ShowModal=mrok then
  begin
    application.CreateForm(tinforform,inforform);
    if infor_seleform.rb1.Checked =true then
    begin
      inforform.Panel1.Visible:=true;
      inforform.Panel2.Visible:=false;
      inforform.Panel3.Visible:=false;
    end;
    if infor_seleform.rb2.Checked =true then
    begin
      inforform.Panel1.Visible:=false;
      inforform.Panel2.Visible:=false;
      inforform.Panel3.Visible:=true;
    end;
    if infor_seleform.rb3.Checked =true then
    begin
      inforform.Panel1.Visible:=false;
      inforform.Panel2.Visible:=true;
      inforform.Panel3.Visible:=false;
    end;
    inforform.ShowModal ;
    inforform.Free;
  end;
  infor_seleform.Free;
end;

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

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

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

procedure Tmainform.N16Click(Sender: TObject);
begin