main.pas

一个不错的信息管理系统

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, jpeg, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    mm1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    N34: TMenuItem;
    Image1: TImage;
    pm1: TPopupMenu;
    N35: TMenuItem;
    N36: TMenuItem;
    N37: TMenuItem;
    N38: TMenuItem;
    N39: TMenuItem;
    N40: TMenuItem;
    N44: TMenuItem;
    N46: TMenuItem;
    N47: TMenuItem;
    N48: TMenuItem;
    N49: TMenuItem;
    N50: TMenuItem;
    N51: TMenuItem;
    N53: TMenuItem;
    N55: TMenuItem;
    N56: TMenuItem;
    user1: TMenuItem;
    N58: TMenuItem;
    N61: TMenuItem;
    N41: TMenuItem;
    N42: TMenuItem;
    N43: TMenuItem;
    N62: TMenuItem;
    N12: TMenuItem;
    N17: TMenuItem;
    N23: TMenuItem;
    N33: TMenuItem;
    N45: TMenuItem;
    N68: TMenuItem;
    N11: TMenuItem;
    SQL1: TMenuItem;
    SQL2: TMenuItem;
    N32: TMenuItem;
    N57: TMenuItem;
    N59: TMenuItem;
    procedure N6Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N16Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N28Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure N56Click(Sender: TObject);
    procedure N59Click(Sender: TObject);
    procedure N60Click(Sender: TObject);
    procedure newClick(Sender: TObject);
    procedure modifyClick(Sender: TObject);
    procedure N67Click(Sender: TObject);
    procedure N66Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure N29Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N45Click(Sender: TObject);
    procedure N68Click(Sender: TObject);
    procedure N65Click(Sender: TObject);
    procedure SQL1Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N57Click(Sender: TObject);
    procedure SQL2Click(Sender: TObject);
    procedure N32Click(Sender: TObject);
    procedure N63Click(Sender: TObject);
    procedure N64Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses login, about, singlesearch, helps, text, doublesearch, singlesystem,
  freesearch, informationright, renewindex, selfchoose, randomsystem,
  subjectcount, doublesystem, gudingbaobiao, filecopy, informationachieve,
  gudingreport1, usermanager, modifyuser, 
  Unit21, baoshong, adminpasswordmodify, diaozhuan, huanyuan, shuoyin,
  diaochu, jiating, diaoru;

{$R *.dfm}

procedure TForm1.N6Click(Sender: TObject);
begin
beep();
if (messagedlg('是否真的要退出系统？',mtconfirmation,[mbyes,mbno],0)=mryes) then
begin
form1.Caption:='干部信息管理系统';
form1.N5.Enabled:=false;
form1.N8.Enabled:=false;
form1.N9.Enabled:=false;
form1.N10.Enabled:=false;
form1.sql2.enabled:=false;
form1.N14.enabled:=false;
form1.N15.enabled:=false;
form1.N16.enabled:=false;
form1.N17.Enabled:=false;
form1.N19.enabled:=false;
form1.N22.enabled:=false;
form1.N23.Enabled:=false;
form1.N25.Enabled:=false;
form1.N26.Enabled:=false;
form1.N27.Enabled:=false;
form1.N28.Enabled:=false;
form1.N29.Enabled:=false;
form1.N38.enabled:=false;
form1.N39.enabled:=false;
form1.N45.Enabled:=false;
form1.N53.enabled:=false;
form1.N32.enabled:=false;
form1.N35.enabled:=false;
form1.N36.enabled:=false;
form1.N51.enabled:=false;
form1.N57.enabled:=false;
form1.N22.enabled:=false;
form1.N41.Enabled :=false;
form1.N42.Enabled :=false;
form1.N57.enabled:=false;
form1.N59.Enabled :=false;
form1.N62.Enabled :=false;
form1.sql1.Enabled:=false;
form1.N68.Enabled:=false;
application.Terminate ;
end;
end;
procedure TForm1.N2Click(Sender: TObject);
begin
form2.Showmodal;
end;
procedure TForm1.N3Click(Sender: TObject);
begin
 form3.showmodal;
end;
procedure TForm1.N14Click(Sender: TObject);
begin
form12.ADOConnection1.Connected:=false;
form12.ADOConnection1.Connected:=true;
form12.showmodal;
end;
procedure TForm1.N4Click(Sender: TObject);
begin
form4.showmodal;
end;
procedure TForm1.N5Click(Sender: TObject);
begin
form5.showmodal;
end;
procedure TForm1.N15Click(Sender: TObject);
begin
form13.ADOConnection1.Connected:=false;
form13.ADOConnection1.Connected:=true;
form13.showmodal;
end;
procedure TForm1.N8Click(Sender: TObject);
begin
form7.ADOConnection1.Connected:=false;
form7.ADOConnection1.Connected:=true;
form7.showmodal;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
application.Terminate ;
end;
procedure TForm1.N16Click(Sender: TObject);
begin
form14.ADOConnection1.Connected:=false;
form14.ADOConnection1.Connected:=true;
form14.showmodal;
end;
procedure TForm1.N11Click(Sender: TObject);
begin
form10.showmodal;
end;
procedure TForm1.N12Click(Sender: TObject);
begin
form11.showmodal;
end;
procedure TForm1.N20Click(Sender: TObject);
begin
form17.showmodal;
end;
procedure TForm1.N10Click(Sender: TObject);
begin
form9.ADOConnection1.Connected:=false;
form9.ADOConnection1.Connected:=true;
form9.showmodal;
end;
procedure TForm1.N19Click(Sender: TObject);
begin
form16.ADOConnection1.Connected:=false;
form16.ADOConnection1.Connected:=true;
form16.showmodal;
end;
procedure TForm1.N9Click(Sender: TObject);
begin
form8.ADOConnection1.Connected:=false;
form8.ADOConnection1.Connected:=true;
form8.ADOTable1.Active :=true;
form8.ADOTable2.Active :=true;
form8.ADOTable3.Active :=true;
form8.ADOTable4.Active :=true;
form8.showmodal;
end;
procedure TForm1.N28Click(Sender: TObject);
begin
form23.showmodal;
end;

procedure TForm1.N26Click(Sender: TObject);
begin
form21.showmodal;
end;
procedure TForm1.N56Click(Sender: TObject);
begin
beep();
if (messagedlg('确实要注销吗？',mtconfirmation,[mbyes,mbno],0)=mryes) then begin
form1.Caption:='干部信息管理系统';
form2.Edit1.Text:='';
form2.Edit2.Text:='';
form1.N56.Enabled:=false;
form1.user1.Enabled:=false;
form1.N2.Enabled:=true;
form1.N6.Enabled:=true;
form1.N5.Enabled:=false;
form1.N8.Enabled:=false;
form1.N9.Enabled:=false;
form1.N10.Enabled:=false;
form1.sql2.enabled:=false;
form1.N15.enabled:=false;
form1.N16.enabled:=false;
form1.N17.Enabled:=false;
form1.N19.enabled:=false;
form1.N22.enabled:=false;
form1.N23.Enabled:=false;
form1.N25.Enabled:=false;
form1.N26.Enabled:=false;
form1.N27.Enabled:=false;
form1.N28.Enabled:=false;
form1.N29.Enabled:=false;
form1.N38.enabled:=false;
form1.N39.enabled:=false;
form1.N45.Enabled:=false;
form1.N47.Enabled :=true;
form1.N53.enabled:=false;
form1.N35.enabled:=false;
form1.N36.enabled:=false;
form1.N51.enabled:=false;
form1.N57.enabled:=false;
form1.N22.enabled:=false;
form1.N41.Enabled :=false;
form1.N42.Enabled :=false;
form1.N59.Enabled :=false;
form1.N62.Enabled :=false;
form1.sql1.Enabled:=false;
form1.N68.Enabled:=false;
end;
end;

procedure TForm1.N59Click(Sender: TObject);
begin
form18.QuickRep1.Preview ;
end;

procedure TForm1.N60Click(Sender: TObject);
begin
form28.QuickRep1.Preview ;
end;

procedure TForm1.newClick(Sender: TObject);
begin
form15.showmodal;
end;
procedure TForm1.modifyClick(Sender: TObject);
begin
form19.showmodal;
end;
procedure TForm1.N67Click(Sender: TObject);
begin
form24.showmodal;
end;
procedure TForm1.N66Click(Sender: TObject);
begin
form11.ShowModal;
end;
procedure TForm1.N25Click(Sender: TObject);
begin
form20.ShowModal;
end;
procedure TForm1.N27Click(Sender: TObject);
begin
form22.ShowModal;
end;
procedure TForm1.N29Click(Sender: TObject);
begin
form25.showmodal;
end;
procedure TForm1.N17Click(Sender: TObject);
begin
l.ShowModal;
end;
procedure TForm1.N23Click(Sender: TObject);
begin
form24.showmodal;
end;
procedure TForm1.N45Click(Sender: TObject);
begin
form15.showmodal;
end;
procedure TForm1.N68Click(Sender: TObject);
begin
form19.showmodal;
end;

procedure TForm1.N65Click(Sender: TObject);
begin
form17.QuickRep1.Preview ;
end;
procedure TForm1.SQL1Click(Sender: TObject);
begin
form11.ADOConnection1.Connected:=false;
form11.ADOConnection1.Connected:=true;
form11.ShowModal;
end;

procedure TForm1.N22Click(Sender: TObject);
begin
form6.ADOConnection1.Connected:=false;
form6.ADOConnection1.Connected:=true;
form6.ADOTable1.Active:=true;
form6.ADOTable2.Active:=true;
form6.ADOTable3.Active:=true;
form6.ADOTable4.Active:=true;
form6.ADOTable5.Active:=true;
form6.ADOTable6.Active:=true;
form6.ADOTable7.Active:=true;
form6.QuickRep1.Preview ;
end;

procedure TForm1.N57Click(Sender: TObject);
begin
form18.ADOConnection1.Connected:=false;
form18.ADOConnection1.Connected:=true;
form18.ADOTable1.Active:=true;
form18.ADOTable2.Active:=true;
form18.QuickRep1.Preview ;
end;

procedure TForm1.SQL2Click(Sender: TObject);
begin
form10.ADOConnection1.Connected:=false;
form10.ADOConnection1.Connected:=true;
form10.ShowModal;
end;

procedure TForm1.N32Click(Sender: TObject);
begin
form26.ADOConnection1.Connected:=false;
form26.ADOConnection1.Connected:=true;
form26.ShowModal;
end;

procedure TForm1.N63Click(Sender: TObject);
begin
ss.QuickRep1.Preview ;
end;

procedure TForm1.N64Click(Sender: TObject);
begin
ff.QuickRep1.Preview ;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
time:longint;
begin
time:=gettickcount div 1000;
while ((gettickcount div 1000)<(time+4))do
    sleep(1);
end;

end.