main.pas

档案管理系统,档案管理系统vb+access源代码+可执行文件+论文+开题报告+外文翻译..

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ComCtrls, ToolWin, DB, DBTables, ImgList,ShellAPI,
  ExtCtrls, jpeg, Grids, DBGridEh;

type
  TMainFrm = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    Database1: TDatabase;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton7: TToolButton;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    PopupMenu1: TPopupMenu;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    ImageList1: TImageList;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    PopupMenu2: TPopupMenu;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    ToolButton5: TToolButton;
    Bevel1: TBevel;
    Query1: TQuery;
    DataSource1: TDataSource;
    procedure N5Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure N2Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure DBGridEh1CellClick(Column: TColumnEh);
  private
    { Private declarations }
  public
    { Public declarations }
    Logined:Boolean;
  end;

var
  MainFrm: TMainFrm;
  MyPath:String;

implementation
uses login,Unit1, BuMen, LookUp, JiChu, GangWei, DiaoDong, Sys, DaYin;

{$R *.dfm}

procedure TMainFrm.N5Click(Sender: TObject);
begin
  with Tform1.Create(nil) do
  begin
  showmodal;
  free;
  end;
end;

procedure TMainFrm.N8Click(Sender: TObject);
begin
  with TformBuMen.Create(nil) do
  begin
    ShowModal;
    Free;
  end;
end;

procedure TMainFrm.N3Click(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TMainFrm.N6Click(Sender: TObject);
begin
  with Tform2.Create(nil) do
  begin
  ShowModal;
  Free;
  end;
end;

procedure TMainFrm.N11Click(Sender: TObject);
begin
  with Tform3.Create(nil) do
  begin
  ShowModal;
  Free;
  end;
end;

procedure TMainFrm.N12Click(Sender: TObject);
begin
  with Tform4.Create(nil) do
  begin
  ShowModal;
  Free;
  end;
end;

procedure TMainFrm.N22Click(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TMainFrm.N24Click(Sender: TObject);
begin
  with TformBuMen.Create(nil) do
  begin
    ShowModal;
    Free;
  end;
end;

procedure TMainFrm.N25Click(Sender: TObject);
begin
  with Tform3.Create(nil) do
  begin
  ShowModal;
  Free;
  end;
end;

procedure TMainFrm.N26Click(Sender: TObject);
begin
   with Tform4.Create(nil) do
  begin
  ShowModal;
  Free;
  end;
end;

procedure TMainFrm.N14Click(Sender: TObject);
begin
  with Tform1.Create(nil) do
  begin
  showmodal;
  free;
  end;
end;

procedure TMainFrm.N15Click(Sender: TObject);
begin
  with Tform2.Create(nil) do
  begin
  ShowModal;
  Free;
  end;
end;

procedure TMainFrm.N17Click(Sender: TObject);
begin
  with TformBuMen.Create(nil) do
  begin
    ShowModal;
    Free;
  end;
end;

procedure TMainFrm.N18Click(Sender: TObject);
begin
  with Tform3.Create(nil) do
  begin
  ShowModal;
  Free;
  end;
end;

procedure TMainFrm.N19Click(Sender: TObject);
begin
  with Tform4.Create(nil) do
  begin
  ShowModal;
  Free;
  end;
end;

procedure TMainFrm.ToolButton1Click(Sender: TObject);
begin
  with Tform1.Create(nil) do
  begin
  showmodal;
  free;
  end;
end;

procedure TMainFrm.ToolButton2Click(Sender: TObject);
begin
  with Tform2.Create(nil) do
  begin
  ShowModal;
  Free;
  end;
end;

procedure TMainFrm.ToolButton9Click(Sender: TObject);
begin
  application.Terminate;
end;

procedure TMainFrm.N10Click(Sender: TObject);
begin
  ShellExecute(handle,'open','help.chm','','',SW_ShowNormal);
end;

procedure TMainFrm.N23Click(Sender: TObject);
Var
  DaYinFrm:TDaYinFrm;
begin
  DaYinFrm:=TDaYinFrm.Create(application);
  DaYinFrm.ShowModal;
end;

procedure TMainFrm.FormCreate(Sender: TObject);
Var
  StopTime:LongInt;
begin
  StopTime:=GetTickCount div 1000;
  while ((GetTickCount div 1000)<(StopTime+2)) do
    Sleep(1);
end;

procedure TMainFrm.FormActivate(Sender: TObject);
begin
  if not Logined then form5.ShowModal;
end;

procedure TMainFrm.N13Click(Sender: TObject);
begin
  with Tdiaodongfrm.Create(nil) do
  begin
  showmodal;
  free;
  end;
end;

procedure TMainFrm.ToolButton3Click(Sender: TObject);
begin
  with TDiaoDongFrm.Create(nil) do
  begin
  showmodal;
  free;
  end;
end;

procedure TMainFrm.N21Click(Sender: TObject);
begin
  with TDiaoDongFrm.Create(nil) do
  begin
  showmodal;
  free;
  end;
end;

procedure TMainFrm.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  //if (ssAlt in shift)and(key=115) then
  //application.Terminate;
end;

procedure TMainFrm.N2Click(Sender: TObject);
Var
  SysFrm:TSysFrm;
begin
  SysFrm:=TSysFrm.Create(application);
  SysFrm.ShowModal;
end;

procedure TMainFrm.ToolButton5Click(Sender: TObject);
Var
  DaYinFrm:TDaYinFrm;
begin
  DaYinFrm:=TDaYinFrm.Create(application);
  DaYinFrm.ShowModal;
end;

procedure TMainFrm.DBGridEh1CellClick(Column: TColumnEh);
var
  Form1:TForm1;
begin
  Form1:=TForm1.Create(application);
  Form1.ShowModal;
end;

end.