gzrymessage.pas

教务管理子系统的基本功能实现

unit gzrymessage;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus,stumessaweihu,stumessadisply,teahmessaluru, ComCtrls,
  Grids, Calendar,ExtCtrls,xibieguli,kechweihu,teahmessaweuhu,kechluru;

type
  Tgongzrymessage = class(TForm)
    Image1: TImage;
    StatusBar1: TStatusBar;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N8: TMenuItem;
    N7: TMenuItem;
    N9: TMenuItem;
    jsxxluru: TMenuItem;
    jsxxweihu: TMenuItem;
    kechengluru: TMenuItem;
    kechengweihu: TMenuItem;
    N13: TMenuItem;
    N18: TMenuItem;
    N20: TMenuItem;
    N19: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    procedure N2Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure jsxxluruClick(Sender: TObject);
    procedure jsxxweihuClick(Sender: TObject);
    procedure kechengluruClick(Sender: TObject);
    procedure kechengweihuClick(Sender: TObject);
    procedure N18Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  gongzrymessage: Tgongzrymessage;

implementation
 uses chjiweihu;
{$R *.dfm}

procedure Tgongzrymessage.N2Click(Sender: TObject);
begin
close;
end;

procedure Tgongzrymessage.N4Click(Sender: TObject);
begin
xibieguanli.ShowModal;
end;

procedure Tgongzrymessage.N8Click(Sender: TObject);
begin
stumessadisplyfrm.ShowModal;
end;

procedure Tgongzrymessage.N7Click(Sender: TObject);
begin
studmessaweihu.ShowModal;
end;

procedure Tgongzrymessage.jsxxluruClick(Sender: TObject);
begin
temessaluru.ShowModal;
end;

procedure Tgongzrymessage.jsxxweihuClick(Sender: TObject);
begin
teamessaweihu.ShowModal;
end;

procedure Tgongzrymessage.kechengluruClick(Sender: TObject);
begin
kechenglurufrm.ShowModal;
end;

procedure Tgongzrymessage.kechengweihuClick(Sender: TObject);
begin
kechengweihufrm.ShowModal;
end;

procedure Tgongzrymessage.N18Click(Sender: TObject);
begin
  chengjiweihu.ShowModal;
end;

end.