xitong.pas

一个简单的学生费用管理系统

unit xitong;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, jpeg, ExtCtrls, ComCtrls, WinSkinData;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    Image1: TImage;
    N10: TMenuItem;
    StatusBar1: TStatusBar;
    Timer1: TTimer;
    SkinData1: TSkinData;
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses  dl, jiaofei, About, sftongji, daoru, daochu;

{$R *.dfm}

procedure TForm1.N1Click(Sender: TObject);
begin
  form2:=tform2.Create(nil);
  try
    form2.ShowModal;
  finally
    form2.Free;
  end;
end;

procedure TForm1.N2Click(Sender: TObject);
begin
  cxjf:=tcxjf.Create(nil);
  try
    cxjf.ShowModal;
  finally
    cxjf.Free;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 N2.Enabled:=FALSE;
 N3.Enabled:=FALSE;
 N4.Enabled:=FALSE;
end;

procedure TForm1.N9Click(Sender: TObject);
begin
  with TAbout_F.Create(nil)do
  try
    ShowModal;
  finally
    Free;
  end;
end;

procedure TForm1.N3Click(Sender: TObject);
begin
   form4:=tform4.Create(nil);
  try
    form4.ShowModal;
  finally
    form4.Free;
  end;
end;

procedure TForm1.N5Click(Sender: TObject);
begin
 if MessageBox(Handle,'是否真要退出?','提示',MB_ICONQUESTION or MB_YESNO) = idYes then
   close;
end;

procedure TForm1.N7Click(Sender: TObject);
begin
  form5:=tform5.Create(nil);                                                                     
  try
    form5.ShowModal;
  finally
    form5.Free;
  end;

end;

procedure TForm1.N8Click(Sender: TObject);
begin
   form6:=tform6.Create(nil);
  try
    form6.ShowModal;
  finally
    form6.Free;
  end;
end;

procedure TForm1.N10Click(Sender: TObject);
begin
  application.HelpFile:='.\help.hlp';
  application.HelpJump('');
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  statusbar1.Panels[1].Text:='日期:'+datetostr(now());
  statusbar1.Panels[2].Text:='时间:'+timetostr(now());
end;

end.