umain.pas

可实现学生成绩管理系统的各种功能,无需登陆,直接查询学生的各种信息

unit uMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Calendar, ComObj,    Menus, DB, ComCtrls, StdCtrls, ExtCtrls,
  jpeg;

type
  TfrmMain = class(TForm)
    MainMenu: TMainMenu;
    mnuQuery: TMenuItem;
    mnuExit: TMenuItem;
    mnuInsert: TMenuItem;
    StuBarMain: TStatusBar;
    Tpanel: TPanel;
    DiaPrinterSetup: TPrinterSetupDialog;
    DiaPrint: TPrintDialog;
    TimerMain: TTimer;
    mnuSys: TMenuItem;
    mnuChgPwd: TMenuItem;
    N3: TMenuItem;
    mnuPrinterSetup: TMenuItem;
    mnuHelp: TMenuItem;
    mnuContent: TMenuItem;
    N1: TMenuItem;
    mnuAbout: TMenuItem;
    mnuStudent: TMenuItem;
    mnuCourse: TMenuItem;
    mnuGrade: TMenuItem;
    mnuPrint: TMenuItem;
    mnuQryInfo: TMenuItem;
    N2: TMenuItem;
    LblTime: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    Image1: TImage;
    N4: TMenuItem;
    mnuCredit: TMenuItem;
    procedure TimerMainTimer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure mnuAboutClick(Sender: TObject);
    procedure mnuExitClick(Sender: TObject);

    procedure mnuChgPwdClick(Sender: TObject);
    procedure mnuPrinterSetupClick(Sender: TObject);

    procedure mnuStudentClick(Sender: TObject);
    procedure mnuCourseClick(Sender: TObject);
    procedure mnuGradeClick(Sender: TObject);

    procedure mnuQryInfoClick(Sender: TObject);
    procedure mnuPrintGradeClick(Sender: TObject);
    procedure StuBarMainDrawPanel(StatusBar: TStatusBar;
      Panel: TStatusPanel; const Rect: TRect);
    procedure mnuCreditClick(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
    procedure DisplayHint(Sender: TObject);
  end;

var
  frmMain: TfrmMain;

implementation

uses uChgPwd, uStudent, uCourse, uGrade, uCredit,
     uQryInfo, uPrint, uAbout, uPubProg ;

{$R *.dfm}


procedure TfrmMain.TimerMainTimer(Sender: TObject);
  var SystemTime    : TSystemTime;
      StatusDateStr : String;

begin
    GetLocalTime(SystemTime);
    StatusDateStr := IntToStr(SystemTime.wYear);
    StatusDateStr := ' '+ StatusDateStr + '年' + IntToStr(SystemTime.wMonth);
    StatusDateStr := StatusDateStr + '月' + IntToStr(SystemTime.wDay) + '日 ';
    StatusDateStr := StatusDateStr + IntToStr(SystemTime.wHour);
    StatusDateStr := StatusDateStr  + ':' + inttostr(SystemTime.wMinute);
    StatusDateStr := StatusDateStr + ':' + IntToStr(SystemTime.wSecond);
 {   NowDateTime := Now;
    DecodeDate(NowDateTime, Year, Month, Day);
    StatusDateStr := IntToStr(Year) + '年' + IntToStr(Month);
    StatusDateStr := StatusDateStr + '月' + IntToStr(Day) + '日 ';
    DecodeTime(NowDateTime, Hour, Min, Sec, MSec);
    StatusDateStr := StatusDateStr + IntToStr(Hour) + ':' + IntToStr(Min) ;
    StatusDateStr := StatusDateStr + ':' + IntToStr(Sec) ;       }
    LblTime.Caption := StatusDateStr;
end;

procedure TfrmMain.DisplayHint(Sender: TObject);
begin
  frmMain.StuBarMain.Panels[1].Text := Application.Hint;
end;


procedure TfrmMain.FormCreate(Sender: TObject);
begin
{  with TfrmLogIn.Create(Application) do
  try
    ShowModal;
  finally
    Free;
  end;}

  frmMain.StuBarMain.Panels[3].Text:=DeptName;
  frmMain.StuBarMain.Panels[5].Text:=OperatorName;
  Application.OnHint := DisplayHint;
end;

procedure TfrmMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if Application.MessageBox('确实要退出程序吗?', '提示信息', MB_YESNO) = IDNO then
    Abort ;

end;

procedure TfrmMain.mnuExitClick(Sender: TObject);
begin
  Close ;
end;

procedure TfrmMain.mnuChgPwdClick(Sender: TObject);
begin
  with TfrmChgPwd.Create(Application) do
  try
    ShowModal;
  finally
    Free;
  end;
end;

procedure TfrmMain.mnuPrinterSetupClick(Sender: TObject);
begin
  DiaPrinterSetup.Execute;
end;

procedure TfrmMain.mnuAboutClick(Sender: TObject);
begin                           { 创建并显示 About 窗体 }
  with TfrmAbout.Create(Application) do
  try
    ShowModal;
  finally
    Free;
  end;
end;


procedure TfrmMain.mnuStudentClick(Sender: TObject);
begin
  with TfrmStudent.Create(Application) do
    try
      ShowModal ;
    finally
      Free;
    end;
end;

procedure TfrmMain.mnuCourseClick(Sender: TObject);
begin
  with TfrmCourse.Create(Application) do
    try
      ShowModal ;
    finally
      Free;
    end;
end;

procedure TfrmMain.mnuGradeClick(Sender: TObject);
begin
  with TfrmGrade.Create(Application) do
    try
      ShowModal ;
    finally
      Free;
    end;
end;

procedure TfrmMain.mnuQryInfoClick(Sender: TObject);
begin
  with TfrmQryInfo.Create(Application) do
    try
      ShowModal ;
    finally
      Free;
    end;
end;

procedure TfrmMain.mnuPrintGradeClick(Sender: TObject);
begin
  with TfrmPrint.Create(Application) do
    try
      ShowModal ;
    finally
      Free;
    end;
end;


procedure TfrmMain.StuBarMainDrawPanel(StatusBar: TStatusBar;
  Panel: TStatusPanel; const Rect: TRect);
begin
  with StuBarMain do
  begin
    if Panel=Panels[1] then
    begin
       Canvas.Font.Color:=clRed;
       Canvas.TextOut(Rect.Left+5,Rect.Top+5,Panels[1].Text);
    end;
  end;
end;

procedure TfrmMain.mnuCreditClick(Sender: TObject);
begin
  with TfrmCredit.Create(Application) do
    try
      ShowModal ;
    finally
      Free;
    end;
end;

end.