unit1.pas

学生管理系统(delphi7.0+sql2000) 对学生基本信息,学生成绩,课程进行插,删,改功能

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    F1: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N9: TMenuItem;
    H1: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    U2: TMenuItem;
    N8: TMenuItem;
    N10: TMenuItem;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ImageList1: TImageList;
    ToolBar2: TToolBar;
    ToolButton14: TToolButton;
    ToolButton15: TToolButton;
    ToolButton16: TToolButton;
    ImageList2: TImageList;
    ToolButton19: TToolButton;
    Panel1: TPanel;
    ToolButton9: TToolButton;
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure U2Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
   haveform11:boolean;

implementation

uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9, Unit10,
  Unit11;

{$R *.dfm}


procedure TForm1.N1Click(Sender: TObject);
begin
if NOT (application.FindComponent('基本信息录入')is Tform2) then
application.CreateForm(Tform2,form2);
form2.show;
end;

procedure TForm1.N2Click(Sender: TObject);
begin
  if not(application.FindComponent('基本信息修改') IS Tform3) then
     application.CreateForm(Tform3,form3);
  form3.show;
end;

procedure TForm1.N7Click(Sender: TObject);
begin
if not(application.FindComponent('成绩录入')IS Tform5) then
application.CreateForm(Tform5,form5);
form5.show;
end;

procedure TForm1.N9Click(Sender: TObject);
begin
if not(application.FindComponent('成绩查询')IS Tform6) then
application.CreateForm(Tform6,form6);
form6.show;
end;

procedure TForm1.N4Click(Sender: TObject);
begin
if not(application.FindComponent('课程增加')is Tform7)then
application.CreateForm(Tform7,form7);
form7.show;
end;

procedure TForm1.N5Click(Sender: TObject);
begin
if not(application.FindComponent('课程修改')is Tform8)then
application.CreateForm(Tform8,form8);
form8.show;
end;

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

procedure TForm1.N8Click(Sender: TObject);
begin
if not(application.FindComponent('课程查询')is Tform9)then
application.CreateForm(Tform9,form9);
form9.show;
end;

procedure TForm1.N3Click(Sender: TObject);
begin
  if not(application.FindComponent('基本信息查询') IS Tform4) then
     application.CreateForm(Tform4,form4);
  form4.show;
end;

procedure TForm1.N10Click(Sender: TObject);
begin
if not(application.FindComponent('成绩修改') IS Tform10) then
     application.CreateForm(Tform10,form10);
  form10.show;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
haveform11:=false;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
if form11.ComboBox1.text='学生' then
begin
N1.Enabled:=false;
N2.Enabled:=false;
N7.Enabled:=false;
N10.Enabled:=false;
N4.Enabled:=false;
N5.Enabled:=false;
ToolButton1.Enabled:=false;
ToolButton2.Enabled:=false;
ToolButton5.Enabled:=false;
ToolButton7.Enabled:=false;
ToolButton14.Enabled:=false;
ToolButton15.Enabled:=false;
end;
if not haveform11 then
begin
form11.show;
haveform11:=TRUE;
END;
end;



end.