teachermessage.~pas

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

unit teachermessage;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls, Buttons, ComCtrls,jskebiaosys,stumimachage,chenjiluru,
  Mask, DBCtrls;

type
  Tteamessage = class(TForm)
    StatusBar1: TStatusBar;
    GroupBox1: TGroupBox;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    E1: TMenuItem;
    U1: TMenuItem;
    S1: TMenuItem;
    R1: TMenuItem;
    H1: TMenuItem;
    E2: TMenuItem;
    B1: TMenuItem;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Edit1: TEdit;
    jsxingming: TDBEdit;
    Label2: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure E1Click(Sender: TObject);
    procedure S1Click(Sender: TObject);
    procedure R1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  teamessage: Tteamessage;

implementation
 uses datamodal,teachmmchage;
{$R *.dfm}

procedure Tteamessage.SpeedButton1Click(Sender: TObject);
begin
jskebiao.ShowModal;
end;

procedure Tteamessage.SpeedButton4Click(Sender: TObject);
begin
close;
end;

procedure Tteamessage.SpeedButton2Click(Sender: TObject);
begin
chejiluru.ShowModal;
end;

procedure Tteamessage.SpeedButton3Click(Sender: TObject);
begin
 teachmmchang.ShowModal;
end;

procedure Tteamessage.E1Click(Sender: TObject);
begin
close;
end;

procedure Tteamessage.S1Click(Sender: TObject);
begin
 jskebiao.ShowModal;
end;

procedure Tteamessage.R1Click(Sender: TObject);
begin
 chejiluru.ShowModal;
end;

end.