unit1.pas

用Delphi写的学生信息管理系统的源代码

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    U1: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    W1: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    G1: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    U2: TMenuItem;
    N17: TMenuItem;
    N19: TMenuItem;
    ADOConnection1: TADOConnection;
    StatusBar1: TStatusBar;
    F1: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    H1: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    ImageList1: TImageList;
    N16: TMenuItem;
    N18: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    ADOTable1: TADOTable;
    H2: TMenuItem;
    A1: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    Image1: TImage;
    Image2: TImage;
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    
    procedure N4Click(Sender: TObject);
    procedure U2Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure A1Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
   
    
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9, Unit10, Unit11,
  Unit12, Unit13, Unit14, Unit15, Unit16, Unit17, Unit18, Unit19, Unit20,
  Unit21, Unit22, Unit23;

//uses Unit2;

{$R *.dfm}

procedure TForm1.N1Click(Sender: TObject);
begin
if NOT (application.FindComponent('jbxxlr')is Tjbxxlr) then
application.CreateForm(Tjbxxlr,jbxxlr);
jbxxlr.showmodal;
end;

procedure TForm1.N2Click(Sender: TObject);
begin
  if not(application.FindComponent('jbxxxg') IS Tjbxxxg) then
     application.CreateForm(Tjbxxxg,jbxxxg);
  jbxxxg.show;
  //ShowModal;
end;

procedure TForm1.N3Click(Sender: TObject);
begin
if not(application.FindComponent('jbxxcx')IS Tjbxxcx)then
application.CreateForm(Tjbxxcx,jbxxcx);
jbxxcx.showmodal;
end;

procedure TForm1.N7Click(Sender: TObject);
begin
if not(application.FindComponent('cjlr')IS Tcjlr) then
application.CreateForm(Tcjlr,cjlr);
cjlr.showmodal;
end;

procedure TForm1.N8Click(Sender: TObject);
begin
if not (application.FindComponent('cjxg')IS Tcjxg) then
application.CreateForm(Tcjxg,cjxg);
cjxg.showmodal;
end;

procedure TForm1.N9Click(Sender: TObject);
begin
if not(application.FindComponent('cjcx')IS Tcjcx) then
application.CreateForm(Tcjcx,cjcx);
cjcx.showmodal;
end;

procedure TForm1.N10Click(Sender: TObject);
begin
if not (application.FindComponent('jlgl')IS Tjlgl) then
application.CreateForm(Tjlgl,jlgl);
jlgl.showmodal;
end;


procedure TForm1.N11Click(Sender: TObject);
begin
if not(application.FindComponent('cfgl')IS Tcfgl) then
application.CreateForm(Tcfgl,cfgl);
cfgl.showmodal;
end;

procedure TForm1.N12Click(Sender: TObject);
begin
if not(application.FindComponent('byxxlr')IS Tbyxxlr)then
application.CreateForm(Tbyxxlr,byxxlr);
byxxlr.showmodal;
end;

procedure TForm1.N13Click(Sender: TObject);
begin
if not(application.FindComponent('byxxxg')IS Tbyxxxg) then
  application.CreateForm(Tbyxxxg,byxxxg);
  byxxxg.showmodal;
end;

procedure TForm1.N17Click(Sender: TObject);
begin
if not(application.FindComponent('byxxcx')is Tbyxxcx)then
 application.CreateForm(Tbyxxcx,byxxcx);
 byxxcx.showmodal;
end;

procedure TForm1.N14Click(Sender: TObject);
begin
if not (application.FindComponent('jsxxlr')is Tjsxxlr)then
application.CreateForm(Tjsxxlr,jsxxlr);
jsxxlr.showmodal;
end;

procedure TForm1.N15Click(Sender: TObject);
begin
if not(application.FindComponent('jsxxxg')is Tjsxxxg)then
application.CreateForm(Tjsxxxg,jsxxxg);
jsxxxg.showmodal;
end;

procedure TForm1.N19Click(Sender: TObject);
begin
if not(application.FindComponent('jsxxcx')is Tjsxxcx)then
application.CreateForm(Tjsxxcx,jsxxcx);
jsxxcx.showmodal;
end;

procedure TForm1.N4Click(Sender: TObject);
begin
if not(application.FindComponent('kczj')is Tkczj)then
application.CreateForm(Tkczj,kczj);
kczj.showmodal;
end;

procedure TForm1.U2Click(Sender: TObject);
begin
self.Close;
end;

procedure TForm1.N5Click(Sender: TObject);
begin
if not(application.FindComponent('kcxg')is Tkcxg)then
application.CreateForm(Tkcxg,kcxg);
kcxg.showmodal;
end;

procedure TForm1.N18Click(Sender: TObject);
begin
if not(application.FindComponent('bjsr')is Tbjsr)then
application.CreateForm(Tbjsr,bjsr);
bjsr.showmodal;
end;

procedure TForm1.N20Click(Sender: TObject);
begin
if not(application.FindComponent('bjxg')is Tbjxg)then
application.CreateForm(Tbjxg,bjxg);
bjxg.showmodal;
end;

procedure TForm1.N21Click(Sender: TObject);
begin
if not(application.FindComponent('bjcx')is Tbjcx)then
 application.CreateForm(Tbjcx,bjcx);
 bjcx.showmodal;
end;

procedure TForm1.A1Click(Sender: TObject);
begin
if not(application.FindComponent('aboat')is Taboat)then
application.CreateForm(Taboat,aboat);
aboat.showmodal;
end;

procedure TForm1.N23Click(Sender: TObject);
begin
if not(application.FindComponent('cjtj')is Tcjtj)then
   application.CreateForm(Tcjtj,cjtj);
   cjtj.showmodal;
end;

end.