main.~pas

信息系统工作核心代码,若要具体可以联系我,这只是一部分核心代码,大家一起交流分享.谢谢

unit main;

interface

uses
  Windows, SysUtils, Variants, Classes, Graphics, Forms, Controls, Menus,
  StdCtrls, Dialogs, Buttons, Messages, ExtCtrls, ComCtrls, StdActns,
  ActnList, ToolWin, ImgList, DB, ADODB;

type
  TMainForm = class(TForm)
    MainMenu1: TMainMenu;
    File1: TMenuItem;
    Window1: TMenuItem;
    Help1: TMenuItem;
    N1: TMenuItem;
    WindowCascadeItem: TMenuItem;
    WindowTileItem: TMenuItem;
    WindowArrangeItem: TMenuItem;
    OpenDialog: TOpenDialog;
    WindowMinimizeItem: TMenuItem;
    ActionList1: TActionList;
    WindowCascade1: TWindowCascade;
    WindowTileHorizontal1: TWindowTileHorizontal;
    WindowArrangeAll1: TWindowArrange;
    WindowMinimizeAll1: TWindowMinimizeAll;
    HelpAbout1: TAction;
    WindowTileVertical1: TWindowTileVertical;
    WindowTileItem2: TMenuItem;
    ToolBar2: TToolBar;
    ToolButton8: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ImageList1: TImageList;
    Splitter1: TSplitter;
    ModifyPassword: TAction;
    QuitSystem: TAction;
    P1: TMenuItem;
    Q1: TMenuItem;
    H1: TMenuItem;
    Calculator: TAction;
    Calendar: TAction;
    NoteBook: TAction;
    N2: TMenuItem;
    C1: TMenuItem;
    R1: TMenuItem;
    R2: TMenuItem;
    StatusBar1: TStatusBar;
    Panel1: TPanel;
    SBtnExit: TSpeedButton;
    Panel2: TPanel;
    SpeedButton1: TSpeedButton;
    N3: TMenuItem;
    AbloutAction: TAction;
    N4: TMenuItem;
    N5: TMenuItem;
    RestartAction: TAction;
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormShow(Sender: TObject);
    procedure CalculatorExecute(Sender: TObject);
    procedure CalendarExecute(Sender: TObject);
    procedure NoteBookExecute(Sender: TObject);
    procedure HelpAbout1Execute(Sender: TObject);
    procedure ModifyPasswordExecute(Sender: TObject);
    procedure QuitSystemExecute(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SBtnExitClick(Sender: TObject);
    procedure AbloutActionExecute(Sender: TObject);
    procedure RestartActionExecute(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
    FIsRestart: Boolean;
  public
    { Public declarations }
  end;


var
  MainForm: TMainForm;

implementation
uses
  EntityTemplet, About, Un_Dialogs, ExplorerFrm;

{$R *.dfm}

procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if FIsRestart then begin
    if ZWMessageDlg('确定系统重新启动吗？',mtZWConfirmation,[mbZWYes,mbZWNo],0,'系统提示')=mrZWYes then
      CanClose:= true
    else begin
      CanClose:= False;
      FIsRestart:= False;
    end;    
  end
  else begin
    if ZWMessageDlg('确定退出系统吗？',mtZWConfirmation,[mbZWYes,mbZWNo],0,'系统提示')=mrZWYes then
      CanClose:= true
    else
      CanClose:= False;
  end;    
end;

procedure TMainForm.FormShow(Sender: TObject);
begin
  TExplorer.Instance;
  FIsRestart:= False;
end;

procedure TMainForm.CalculatorExecute(Sender: TObject);
begin
  WinExec('CALC.EXE',SW_SHOW);
end;

procedure TMainForm.CalendarExecute(Sender: TObject);
begin
  Winexec('rundll32.exe shell32.dll,Control_RunDLL timedate.cpl',SW_SHOW);  //SW_RESTORE
end;

procedure TMainForm.NoteBookExecute(Sender: TObject);
begin
  WinExec('NOTEPAD.EXE',SW_SHOW);
end;

procedure TMainForm.HelpAbout1Execute(Sender: TObject);
begin
//
end;

procedure TMainForm.ModifyPasswordExecute(Sender: TObject);
begin
//
end;

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

procedure TMainForm.SpeedButton1Click(Sender: TObject);
begin
  if TExplorer.Instance.WindowState=wsMinimized then
    TExplorer.Instance.WindowState:= wsNormal;
  TExplorer.Instance.Show;
end;

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

procedure TMainForm.AbloutActionExecute(Sender: TObject);
begin
  TAboutBox.ShowForm;
end;

procedure TMainForm.RestartActionExecute(Sender: TObject);
begin
  FIsRestart:= True;
  Close;
end;

procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if FIsRestart then
    WinExec(Pchar('"'+Application.ExeName+'"'),SW_SHOW);
  Action:= caFree;   
end;

end.