studmessage.~pas

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

unit studmessage;

interface

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

type
  Tstumessage = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    GroupBox1: TGroupBox;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    E1: TMenuItem;
    U1: TMenuItem;
    S1: TMenuItem;
    R1: TMenuItem;
    N2: TMenuItem;
    T1: TMenuItem;
    N3: TMenuItem;
    H1: TMenuItem;
    E2: TMenuItem;
    B1: TMenuItem;
    StatusBar1: TStatusBar;
    SpeedButton6: TSpeedButton;
    DBEdit1: TDBEdit;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  stumessage: Tstumessage;

implementation
  uses datamodal, xuankexitong, chengjichaxuntiong, stukebiao,
  stumessadisply, stumimachage,constdef;


{$R *.dfm}

procedure Tstumessage.SpeedButton1Click(Sender: TObject);
begin
studenxuankefrm.show;
end;

procedure Tstumessage.SpeedButton2Click(Sender: TObject);
begin
chengjichaxunfrm.show;
end;

procedure Tstumessage.SpeedButton6Click(Sender: TObject);
begin
studkebiaofrm.show;
end;

procedure Tstumessage.SpeedButton3Click(Sender: TObject);
begin
stumessadisplyfrm.show;
end;

procedure Tstumessage.SpeedButton4Click(Sender: TObject);
begin
 studmimachange.ShowModal;
end;

procedure Tstumessage.FormShow(Sender: TObject);
begin
    edit1.Text:=zhanghu;
end;

procedure Tstumessage.FormCreate(Sender: TObject);
begin
   {edit1.Text:=zhanghu;
   with  DataModule1.xsxxTable do
   begin
     open;
     setkey;
     fieldbyname('Studentno').AsString:=Edit1.Text;
     if  gotokey then
      DBEdit1.Visible:=true;
   end;}
end;

procedure Tstumessage.SpeedButton5Click(Sender: TObject);
begin
close;
end;

end.