mainunit.pas

帮朋友编写的幼儿教育的管理平台

unit MainUnit;

interface

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

type
  TMainForm = class(TForm)
    MainMenu1: TMainMenu;
    JCSJ: TMenuItem;
    XTGL: TMenuItem;
    BZ: TMenuItem;
    Image1: TImage;
    StatusBar1: TStatusBar;
    CX: TMenuItem;
    N2: TMenuItem;
    N1: TMenuItem;
    procedure XTGL_TCXTClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormActivate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure CXClick(Sender: TObject);
    procedure JCSJClick(Sender: TObject);
    procedure XTGLClick(Sender: TObject);
    procedure N1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

uses Login, NewUnit, CXUnit, XZZUnit, DataM, About, ViewUnit,
  ViewGuestUnit, ADDGuestUnit, ADDCustomUnit, TestGuestUnit;

{$R *.dfm}

procedure TMainForm.XTGL_TCXTClick(Sender: TObject);
begin
Close ;
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
//声明Caption的名称
Caption:=Application.Title ;
//隐藏主窗体
//Hide ;
//调用登录系统的窗体
//Application.CreateForm(TLoginForm,LoginForm) ;
//LoginForm.ShowModal ;
//LoginForm.Free ;
if(now()>strtodate('2009-11-07')) then
begin
showmessage('程序未注册超过试用期!');
showmessage('请发送邮件至[e-mail]获得正式授权！');
application.Terminate;//超过30天，则禁止运行
end;

end;

procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//
Application.Terminate ;
//
end;

procedure TMainForm.FormActivate(Sender: TObject);
begin
//StatusBar1.Panels.Items[0].Text := ' 当前操作员：'+ Gusername  ;
StatusBar1.Panels.Items[1].Text := FormatDateTime('YYYY-MM-DD HH:MM:SS',Now())+'  ';
end;

procedure TMainForm.FormShow(Sender: TObject);
var randomint:integer;
begin
randomize; 
randomint:= random(4) ;
//MainForm.Image1.Picture.LoadFromFile('RedFox.bmp')
Image1.Picture.LoadFromFile(GetCurrentDir+'\database\images\images-00'+IntToStr(randomint+1)+'.jpg') ;
Image1.Show ;
end;

procedure TMainForm.N2Click(Sender: TObject);
begin
if(now()>strtodate('2009-10-07')) then
begin
showmessage('程序未注册超过试用期，将终止运行!');
showmessage('请发送邮件至[e-mail]获得正式授权！');
showmessage('谢谢合作！');
//application.Terminate;//超过30天，则禁止运行
end;
Application.CreateForm(TView_Form,View_Form);
View_Form.Caption := Application.Title + '--会员资料' ;
View_Form.Show ;
//View_Form.Free ;
end;

procedure TMainForm.CXClick(Sender: TObject);
begin
Application.CreateForm(TViewGuest_Form,ViewGuest_Form);
ViewGuest_Form.Caption := Application.Title + '--来访情况' ;
ViewGuest_Form.Show ;
//ViewGuest_Form.Free ;
end;

procedure TMainForm.JCSJClick(Sender: TObject);
begin
Application.CreateForm(TADDGuest_Form,ADDGuest_Form);
ADDGuest_Form.Caption := Application.Title + '--来访登记' ;
ADDGuest_Form.Show ;
//ADDGuest_For.Free ;
end;

procedure TMainForm.XTGLClick(Sender: TObject);
begin
Application.CreateForm(TADDCustom_Form,ADDCustom_Form);
ADDCustom_Form.Caption := Application.Title + '--报名登记' ;
ADDCustom_Form.Show ;
//ADDGuest_For.Free ;
end;

procedure TMainForm.N1Click(Sender: TObject);
begin
Application.CreateForm(TTestGuest_Form,TestGuest_Form);
TestGuest_Form.Caption := Application.Title + '--试听登记' ;
TestGuest_Form.Show ;
//ADDGuest_For.Free ;
end;

end.