main.pas

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

unit main;

interface

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

type
  TFrm_main = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N_rs: TMenuItem;
    N_gz: TMenuItem;
    N_ygjbxxsr: TMenuItem;
    N_ygzbxxwh: TMenuItem;
    N_zbxxck: TMenuItem;
    N_tjcx: TMenuItem;
    N9: TMenuItem;
    N_bmcxwh: TMenuItem;
    N_zwwh: TMenuItem;
    N_zcwh: TMenuItem;
    N_gzzmwh: TMenuItem;
    N14: TMenuItem;
    N_yhwh: TMenuItem;
    N16: TMenuItem;
    N_close: TMenuItem;
    N_shutdown: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    StatusBar1: TStatusBar;
    ImageList1: TImageList;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    Timer1: TTimer;
    N_cp: TMenuItem;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ToolButton12: TToolButton;
    ToolButton13: TToolButton;
    N_gzdx: TMenuItem;
    N_jsb: TMenuItem;
    N_jsq: TMenuItem;
    N5: TMenuItem;
    N_pp: TMenuItem;
    N_cd: TMenuItem;
    N_jxh: TMenuItem;
    N10: TMenuItem;
    N_about: TMenuItem;
    N_ygzlbb: TMenuItem;
    N_rsqxfx: TMenuItem;
    ToolButton14: TToolButton;
    ToolButton15: TToolButton;
    ToolButton16: TToolButton;
    ActionList1: TActionList;
    WindowClose1: TWindowClose;
    WindowCascade1: TWindowCascade;
    WindowTileHorizontal1: TWindowTileHorizontal;
    WindowTileVertical1: TWindowTileVertical;
    WindowMinimizeAll1: TWindowMinimizeAll;
    WindowArrange1: TWindowArrange;
    FileExit1: TFileExit;
    DataSetFirst1: TDataSetFirst;
    DataSetPrior1: TDataSetPrior;
    DataSetNext1: TDataSetNext;
    DataSetLast1: TDataSetLast;
    rsgl1: TAction;
    procedure N20Click(Sender: TObject);
    procedure N_shutdownClick(Sender: TObject);
    procedure N_closeClick(Sender: TObject);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure N_bmcxwhClick(Sender: TObject);
    procedure N_zwwhClick(Sender: TObject);
    procedure N_ygjbxxsrClick(Sender: TObject);
    procedure N_yhwhClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure N_zcwhClick(Sender: TObject);
    procedure N_ygzbxxwhClick(Sender: TObject);
    procedure N_zbxxckClick(Sender: TObject);
    procedure N_tjcxClick(Sender: TObject);
    procedure N_gzzmwhClick(Sender: TObject);
    procedure N_cpClick(Sender: TObject);
    procedure N_gzdxClick(Sender: TObject);
    procedure N_jsbClick(Sender: TObject);
    procedure N_jsqClick(Sender: TObject);
    procedure N_ppClick(Sender: TObject);
    procedure N_cdClick(Sender: TObject);
    procedure N_jxhClick(Sender: TObject);
    procedure N_aboutClick(Sender: TObject);
    procedure N_ygzlbbClick(Sender: TObject);
    procedure N_rsqxfxClick(Sender: TObject);
    procedure rsgl1Execute(Sender: TObject);

  private
    { Private declarations }
    function f_get_week: string;
  public
    { Public declarations }
  end;

var
  Frm_main: TFrm_main;

implementation

uses bmxg, zwxg, rsgl, yhgl, ygzbxxxr, zcxg, ygzbxxwh, llygzzxx, ygzlcx,
  gzzmxg, cp, gzdx,shellapi, about, rybb, rsqkqxfs, dl;

//uses start;

{$R *.DFM}

procedure TFrm_main.N20Click(Sender: TObject);
begin
CLOSE;
end;

procedure TFrm_main.N_shutdownClick(Sender: TObject);
begin
if messagedlg('是否退出并关闭计算机？',mtinformation,[mbyes,mbno],1)=mryes then
begin
 close;
 ExitWindowsEx( EWX_FORCE or EWX_SHUTDOWN, 0 );
end;
end;
procedure TFrm_main.N_closeClick(Sender: TObject);
begin
close;
end;

procedure TFrm_main.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
statusbar1.Panels[2].text:='';
end;

procedure TFrm_main.N_bmcxwhClick(Sender: TObject);
begin

Application.CreateForm(TFrm_bmxg, Frm_bmxg);
if frm_bmxg.Adoquery1.active then frm_bmxg.ADoquery1.close;
frm_bmxg.Adoquery1.open;
end;

procedure TFrm_main.N_zwwhClick(Sender: TObject);
begin
 Application.CreateForm(TFrm_zwxg, Frm_zwxg);
 if frm_zwxg.ADOQuery1.active then
 frm_zwxg.ADOQuery1.close;
 frm_zwxg.ADOQuery1.open;
end;

procedure TFrm_main.N_ygjbxxsrClick(Sender: TObject);
begin
Application.CreateForm(Tfrm_ygzbxxsr, frm_ygzbxxsr);
end;

procedure TFrm_main.N_yhwhClick(Sender: TObject);
begin
if  dluser='system' then
begin
Application.CreateForm(TFrm_yhgl, Frm_yhgl);
 if frm_yhgl.ADOQuery1.active then
    frm_yhgl.ADOQuery1.close;
    frm_yhgl.ADOQuery1.open;
 end
 else
 begin
 showmessage('你没有用户管理的权限');
 exit;
 end;
 end;

procedure TFrm_main.FormShow(Sender: TObject);
begin
  statusbar1.Panels[0].text:=concat('【','欢迎使用人事工资管理系统','】');
end;

procedure TFrm_main.Timer1Timer(Sender: TObject);


var y,m,d:word;
 begin
 decodedate(now,y,m,d);
   statusbar1.Panels[1].text:=concat('【',inttostr(y),'年',inttostr(m),'月',inttostr(d),'日 ',formatdatetime('hh:nn:ssAM/PM',now) ,f_get_week,'】');
 end;

procedure TFrm_main.N_zcwhClick(Sender: TObject);
begin
Application.CreateForm(TFrm_zcxg, Frm_zcxg);
 if frm_zcxg.ADOQuery1.active then
 frm_zcxg.ADOQuery1.close;
 frm_zcxg.ADOQuery1.open;
end;

procedure TFrm_main.N_ygzbxxwhClick(Sender: TObject);
begin
Application.CreateForm(Tfrm_ygzbxxwh, frm_ygzbxxwh);
end;

procedure TFrm_main.N_zbxxckClick(Sender: TObject);
begin
Application.CreateForm(Tfrm_llygzbxx, frm_llygzbxx);
end;


procedure TFrm_main.N_tjcxClick(Sender: TObject);
begin
Application.CreateForm(Tfrm_ygzlcx, frm_ygzlcx);
end;

procedure TFrm_main.N_gzzmwhClick(Sender: TObject);
begin
Application.CreateForm(TFrm_gzzmwh, Frm_gzzmwh);
if Frm_gzzmwh.ADOQuery1.active then Frm_gzzmwh.ADOQuery1.close;
Frm_gzzmwh.ADOQuery1.open;
end;

procedure TFrm_main.N_cpClick(Sender: TObject);
begin
Application.CreateForm(Tfrm_cp, frm_cp);
end;

procedure TFrm_main.N_gzdxClick(Sender: TObject);
begin
frm_gzdx:=Tfrm_gzdx.create(application);
frm_gzdx.showmodal;
frm_gzdx.free;
end;

procedure TFrm_main.N_jsbClick(Sender: TObject);
begin
ShellExecute(handle,'open','notepad.exe',nil,nil,SW_ShowNormal);
end;

procedure TFrm_main.N_jsqClick(Sender: TObject);
begin
ShellExecute(handle,'open','calc.exe',nil,nil,SW_ShowNormal); 
end;

procedure TFrm_main.N_ppClick(Sender: TObject);
begin
 TileMode := tbVertical;
  Tile;
end;

procedure TFrm_main.N_cdClick(Sender: TObject);
begin
Cascade;

end;

procedure TFrm_main.N_jxhClick(Sender: TObject);
var i:integer;
begin
with frm_main do
  begin
    for i := MDIchildcount-1 downto 0 do
    MDIChildren[i].Windowstate := wsMinimized;
  end;


end;

procedure TFrm_main.N_aboutClick(Sender: TObject);
begin
Frm_about:=Tfrm_about.Create(application);
Frm_about.show;


end;

function  Tfrm_main.f_get_week :string;
var
  days: array[1..7] of string;
begin
  days[1] := '星期日';
  days[2] := '星期一';
  days[3] := '星期二';
  days[4] := '星期三';
  days[5] := '星期四';
  days[6] := '星期五';
  days[7] := '星期六';
  result :=days[DayOfWeek(now)];
end;

procedure TFrm_main.N_ygzlbbClick(Sender: TObject);
begin
frm_ygbb:=Tfrm_ygbb.create(application);
if frm_ygbb.Query1.active then  frm_ygbb.Query1.close;
frm_ygbb.Query1.open;
frm_ygbb.QuickRep1.Prepare;
frm_ygbb.QuickRep1.Preview;
frm_ygbb.Free;

end;

procedure TFrm_main.N_rsqxfxClick(Sender: TObject);
begin
  Application.CreateForm(Tfrm_rsqkqxfs, frm_rsqkqxfs);
  if frm_rsqkqxfs.ADOQuery1.Active then frm_rsqkqxfs.ADOQuery1.Close;
  frm_rsqkqxfs.ADOQuery1.open;

end;

procedure TFrm_main.rsgl1Execute(Sender: TObject);
begin
Application.CreateForm(Tfrm_ygzbxxsr, frm_ygzbxxsr);
end;

end.