unstudent.~pas

最简单的Delphi班级管理系统

unit UnStudent;

interface

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

type
  TFm_ClassStudent = class(TForm)
    Image1: TImage;
    StatusBar1: TStatusBar;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    MainMenu1: TMainMenu;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    W3: TMenuItem;
    W4: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ImageList1: TImageList;
    Timer1: TTimer;
    Timer2: TTimer;
    N11: TMenuItem;
    N12: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure Timer2Timer(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure W3Click(Sender: TObject);
    procedure W4Click(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N14Click(Sender: TObject);
  private
    { Private declarations }
  public
     function init:boolean;
    { Public declarations }
  end;

var
  Fm_ClassStudent: TFm_ClassStudent;
  WeekCount:Integer;//用于存放标识星期几的常数，如1：星期日，2：星期二
  Week:String; //用于存放星期几

implementation

uses UnClass, UnStud, UnPwd, UnHelp;

{$R *.dfm}
function TFm_ClassStudent.init; //初始化
begin
  init:=false;
  if Application.FindComponent('Fm_ClassStudent')=nil then
     Application.CreateForm(TFm_ClassStudent,Fm_ClassStudent);
  init:=true;
end;


procedure TFm_ClassStudent.Timer1Timer(Sender: TObject);
begin
  //计算出当日为星期几，用dayofweek函数
  WeekCount:=DAYOFWEEK(date);
  IF WeekCount=1 THEN week:='星期日'
  ELSE IF WeekCount=2 THEN week:='星期一'
  ELSE IF WeekCount=3 THEN week:='星期二'
  ELSE IF WeekCount=4 THEN week:='星期三'
  ELSE IF WeekCount=5 THEN week:='星期四'
  ELSE IF WeekCount=6 THEN week:='星期五'
  ELSE week:='星期六';

  //在状态栏显示日期，星期和时间
  statusbar1.Panels[2].Text:=datetostr(date)+'   '+week+'   '+timetostr(time);
end;

procedure TFm_ClassStudent.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
   if (messagedlg('真的要退出班级管理系统吗?',mtconfirmation,[mbok,mbcancel],0)=mrok)
  then
    canclose:=true 
  else
    canclose:=false;
end;

procedure TFm_ClassStudent.Timer2Timer(Sender: TObject);
begin
  //使窗口标题闪烁
  FlashWindow(Handle,true);
end;

procedure TFm_ClassStudent.ToolButton3Click(Sender: TObject);
begin
  //直接调用Windows自带的记事本
  WinExec('notepad.exe',1);
end;

procedure TFm_ClassStudent.N8Click(Sender: TObject);
begin
  //直接调用Windows自带的记事本
  WinExec('notepad.exe',1);
end;

procedure TFm_ClassStudent.N9Click(Sender: TObject);
begin
  //直接调用Windows自带的计算器
  WinExec('calc.exe',1);
end;

procedure TFm_ClassStudent.ToolButton4Click(Sender: TObject);
begin
  //直接调用Windows自带的计算器
  WinExec('calc.exe',1);
end;

procedure TFm_ClassStudent.N10Click(Sender: TObject);
begin
  //直接调用Windows自带的画图工具
  WinExec('MSPAINT.EXE',1);
end;

procedure TFm_ClassStudent.ToolButton5Click(Sender: TObject);
begin
  //直接调用Windows自带的画图工具
  WinExec('MSPAINT.EXE',1);
end;

procedure TFm_ClassStudent.W3Click(Sender: TObject);
begin
  //是否显示工具栏
  if W3.Checked =true then
    begin
      W3.Checked :=false;
      CoolBar1.Visible :=false;
      ToolBar1.Visible :=false;
      Image1.Top :=0;
      Image1.Height :=Image1.Height+42;
    end
  else
    begin
      W3.Checked:=true;
      CoolBar1.Visible:=true;
      ToolBar1.Visible:=true;
      Image1.Top:=42;
      Image1.Height:=Image1.Height-42;
    end;
end;

procedure TFm_ClassStudent.W4Click(Sender: TObject);
begin
  //是否显示状态栏
  if W4.Checked=true then
    begin
      W4.Checked:=false;
      StatusBar1.Visible :=false;
      Image1.Height :=Image1.Height+26;
    end
  else
    begin
      W4.Checked:=true;
      StatusBar1.Visible :=true;
      Image1.Height:=Image1.Height-26;
    end;
end;

procedure TFm_ClassStudent.ToolButton9Click(Sender: TObject);
begin
  close;
end;

procedure TFm_ClassStudent.N7Click(Sender: TObject);
begin
  close;
end;

procedure TFm_ClassStudent.N17Click(Sender: TObject);
begin
  //调用班级界面
  if Fm_Class.init then
     Fm_Class.Show;
     fm_ClassStudent.Hide;
end;

procedure TFm_ClassStudent.N18Click(Sender: TObject);
begin
  //调用学生界面
  if Fm_Student.init then
     Fm_Student.Show;
     fm_ClassStudent.Hide;

end;

procedure TFm_ClassStudent.N12Click(Sender: TObject);
begin
  //调用学生界面
  if Fm_Student.init then
     Fm_Student.Show;
     fm_ClassStudent.Hide;
end;

procedure TFm_ClassStudent.N11Click(Sender: TObject);
begin
  //调用班级界面
 if Fm_Class.init then
     Fm_Class.Show;
     fm_ClassStudent.Hide;
end;

procedure TFm_ClassStudent.FormCreate(Sender: TObject);
begin
  //调用登陆界面
  if login.init then
     login.Show;
end;

procedure TFm_ClassStudent.N14Click(Sender: TObject);
begin
  //调用帮助界面
  if Form2.init then
     Form2.Show;
end;

end.