main.pas

一个很好的勤工助学管理系统

{=================================================================
   My Password = 
   勤工助学管理系统  （系版）
   版权所有 万重   2001-2003
   西安科技学院 计算机系98-1
==================================================================}
unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Menus, ImgList, StdActns, DBActns, ActnList, ShellAPI;

type
  Tfrm_main = class(TForm)
    Image1: TImage;
    PopupMenu1: TPopupMenu;
    ActionList1: TActionList;
    SystemAbout: TAction;
    SystemSetup: TAction;
    SystemExit: TAction;
    FileOutData: TAction;
    FileQuery: TAction;
    U1: TMenuItem;
    A1: TMenuItem;
    N2: TMenuItem;
    ImageList1: TImageList;
    N3: TMenuItem;
    FileTable: TAction;
    T1: TMenuItem;
    Q1: TMenuItem;
    N5: TMenuItem;
    D1: TMenuItem;
    N1: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure SystemExitExecute(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FileTableExecute(Sender: TObject);
    procedure FileQueryExecute(Sender: TObject);
    procedure FileOutDataExecute(Sender: TObject);
    procedure SystemAboutExecute(Sender: TObject);
    procedure SystemSetupExecute(Sender: TObject);
  private
    { Private declarations }
  public
    Logined:Boolean;
    { Public declarations }
  end;

var
  frm_main: Tfrm_main;

  MyPath:String;

const
  MyPassW='123';

implementation

uses login, table, query, outdata, setup, About;

{$R *.dfm}

procedure Tfrm_main.FormCreate(Sender: TObject);
begin
  MyPath:=ExtractFilePath(ParamStr(0));
  ShortDateFormat:='yyyy/mm/dd';
  Logined:=False;
  Color:=Image1.Canvas.Pixels[0,0];
end;

procedure Tfrm_main.SystemExitExecute(Sender: TObject);
begin
  Close;
end;

procedure Tfrm_main.FormActivate(Sender: TObject);
begin
  if not Logined then frm_login.ShowModal;
end;

procedure Tfrm_main.FileTableExecute(Sender: TObject);
begin
  frm_Table.Show;
end;

procedure Tfrm_main.FileQueryExecute(Sender: TObject);
begin
  frm_Query.Show;
end;

procedure Tfrm_main.FileOutDataExecute(Sender: TObject);
begin                        
  frm_OutData.ShowModal;
end;

procedure Tfrm_main.SystemAboutExecute(Sender: TObject);
//var
//  Detail:string;
begin
//  Detail:='---------------------------------------'+#13+
//          '* 西安科技学院计算机系 万重 2001年9月 *';
//  ShellAbout(Handle,PChar(Application.Title+' v1.0'),PChar(Detail),Application.Icon.Handle);
  Application.CreateForm(Tfrm_about, frm_about);
  frm_about.ShowModal;
end;

procedure Tfrm_main.SystemSetupExecute(Sender: TObject);
begin
  frm_Setup.ShowModal;
end;

end.