main.pas

一个用vb mysql实现的人事管理信息系统希望对大家有用。

unit main;

interface

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

type
  TMainForm = class(TForm)
    MainMenu1: TMainMenu;
    ActionList1: TActionList;
    EditCut1: TEditCut;
    EditCopy1: TEditCopy;
    EditPaste1: TEditPaste;
    EditSelectAll1: TEditSelectAll;
    EditUndo1: TEditUndo;
    EditDelete1: TEditDelete;
    DataSetFirst1: TDataSetFirst;
    DataSetPrior1: TDataSetPrior;
    DataSetNext1: TDataSetNext;
    DataSetLast1: TDataSetLast;
    DataSetInsert1: TDataSetInsert;
    DataSetDelete1: TDataSetDelete;
    DataSetEdit1: TDataSetEdit;
    DataSetPost1: TDataSetPost;
    DataSetCancel1: TDataSetCancel;
    DataSetRefresh1: TDataSetRefresh;
    FilePrintSetup1: TFilePrintSetup;
    FileExit1: TFileExit;
    PrintSetup1: TMenuItem;
    Copy1: TMenuItem;
    Edit1: TMenuItem;
    Cut1: TMenuItem;
    Delete1: TMenuItem;
    Paste1: TMenuItem;
    SelectAll1: TMenuItem;
    Undo1: TMenuItem;
    ToolBar1: TToolBar;
    StatusBar: TStatusBar;
    ImageList1: TImageList;
    ImageList2: TImageList;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton5: TToolButton;
    ToolButton8: TToolButton;
    ToolButton11: TToolButton;
    ToolButton12: TToolButton;
    ToolButton13: TToolButton;
    ToolButton16: TToolButton;
    rsgl: TAction;
    N1: TMenuItem;
    N2: TMenuItem;
    WindowClose1: TWindowClose;
    WindowCascade1: TWindowCascade;
    WindowTileHorizontal1: TWindowTileHorizontal;
    WindowTileVertical1: TWindowTileVertical;
    WindowMinimizeAll1: TWindowMinimizeAll;
    WindowArrange1: TWindowArrange;
    Windows: TMenuItem;
    Arrange1: TMenuItem;
    Cascade1: TMenuItem;
    Close1: TMenuItem;
    MinimizeAll1: TMenuItem;
    ileHorizontally1: TMenuItem;
    ileVertically1: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    ToolButton14: TToolButton;
    Timer1: TTimer;
    N8: TMenuItem;
    yhgl: TAction;
    N7: TMenuItem;
    N9: TMenuItem;
    zcxg: TAction;
    gzzmxg: TAction;
    zwxg: TAction;
    bmxg: TAction;
    N10: TMenuItem;
    N11: TMenuItem;
    zcxg1: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    procedure rsglExecute(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure yhglExecute(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure gzzmxgExecute(Sender: TObject);
    procedure zcxgExecute(Sender: TObject);
    procedure zwxgExecute(Sender: TObject);
    procedure bmxgExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation
uses About,yhgl,zcxg,zwxg,bmxg,gzzmxg;
{$R *.dfm}

procedure OpenForm(FormClass: TFormClass; var fm; AOwner:TComponent);
var
  i: integer;
  Child:TForm;
begin
  for i := 0 to Screen.FormCount -1 do
      if Screen.Forms[i].ClassType=FormClass then
      begin
        Child:=Screen.Forms[i];
        if Child.WindowState=wsMinimized then
           ShowWindow(Child.handle,SW_SHOWNORMAL)
        else
           ShowWindow(Child.handle,SW_SHOWNA);
        if (not Child.Visible) then Child.Visible:=True;
        Child.BringToFront;
        Child.Setfocus;
        TForm(fm):=Child;
        exit;
      end;
  Child:=TForm(FormClass.NewInstance);
  TForm(fm):=Child;
  Child.Create(AOwner);
end;

procedure TMainForm.rsglExecute(Sender: TObject);
begin
//  OpenForm(TxsForm,xsForm, self);
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
//     Application.HintPause:=100;
end;

procedure TMainForm.N4Click(Sender: TObject);
begin
    Winexec('CALC.EXE',sw_Normal);
end;

procedure TMainForm.N5Click(Sender: TObject);
begin
    Winexec('Notepad.exe',sw_Normal);
end;

procedure TMainForm.Timer1Timer(Sender: TObject);
begin
   StatusBar.Panels[2].Text:=FormatDateTime('yyyy"年"mm"月"dd"日" hh:nn:ss',Now);
end;

procedure TMainForm.yhglExecute(Sender: TObject);
begin
   OpenForm(Tfrm_yhgl,frm_yhgl, self);
end;

procedure TMainForm.N9Click(Sender: TObject);
begin
   OpenForm(Tfrm_about,frm_about, self);
end;

procedure TMainForm.gzzmxgExecute(Sender: TObject);
begin
   OpenForm(TFrm_gzzmwh,Frm_gzzmwh, self);
end;

procedure TMainForm.zcxgExecute(Sender: TObject);
begin
   OpenForm(TFrm_zcxg,Frm_zcxg, self);
end;

procedure TMainForm.zwxgExecute(Sender: TObject);
begin
   OpenForm(TFrm_zwxg,Frm_zwxg, self);
end;

procedure TMainForm.bmxgExecute(Sender: TObject);
begin
   OpenForm(TFrm_bmxg,Frm_bmxg, self);
end;

end.