winmain.~pas

考勤管理 考勤管理 考勤管理

unit Winmain;
//****************************************************************
//*公司名：华夏数码有限公司
//*系统名：考勤管理系统
//*程序名：Winmain
//*
//*--------------------------------------------------------------
//*  [年月日]     [制造者]
//*--------------------------------------------------------------
//*  2005/11/09    徐二芳
//*
//****************************************************************
interface        

uses
  System.Drawing, System.Collections, System.ComponentModel,
  System.Windows.Forms, System.Data, System.Resources,clsmain,borland.Vcl.SysUtils,system.Diagnostics;

type
  TWinmain = class(System.Windows.Forms.Form)
  {$REGION 'Designer Managed Code'}
  strict private
    /// <summary>
    /// Required designer variable.
    /// </summary>
    components: System.ComponentModel.IContainer;
    MainMenu1: System.Windows.Forms.MainMenu;
    MenuItem1: System.Windows.Forms.MenuItem;
    Menuser: System.Windows.Forms.MenuItem;
    Menpass: System.Windows.Forms.MenuItem;
    Menreload: System.Windows.Forms.MenuItem;
    Menexit: System.Windows.Forms.MenuItem;
    MenuItem6: System.Windows.Forms.MenuItem;
    MenYuanGong: System.Windows.Forms.MenuItem;
    MenuItem9: System.Windows.Forms.MenuItem;
    MenuItem10: System.Windows.Forms.MenuItem;
    MenuItem11: System.Windows.Forms.MenuItem;
    Menabout: System.Windows.Forms.MenuItem;
    ToolBar1: System.Windows.Forms.ToolBar;
    ImageList1: System.Windows.Forms.ImageList;
    ToolBarButton1: System.Windows.Forms.ToolBarButton;
    ToolBarButton2: System.Windows.Forms.ToolBarButton;
    ToolBarButton3: System.Windows.Forms.ToolBarButton;
    ToolBarButton4: System.Windows.Forms.ToolBarButton;
    ToolBarButton5: System.Windows.Forms.ToolBarButton;
    ToolBarButton6: System.Windows.Forms.ToolBarButton;
    StatusBar1: System.Windows.Forms.StatusBar;
    sbpinfo: System.Windows.Forms.StatusBarPanel;
    sbpuser: System.Windows.Forms.StatusBarPanel;
    sbptime: System.Windows.Forms.StatusBarPanel;
    Timer1: System.Windows.Forms.Timer;
    Mendepart: System.Windows.Forms.MenuItem;
    menuxueli: System.Windows.Forms.MenuItem;
    Menupost: System.Windows.Forms.MenuItem;
    Menworktime: System.Windows.Forms.MenuItem;
    Menuchuqin: System.Windows.Forms.MenuItem;
    Mendelete: System.Windows.Forms.MenuItem;
    Menhelp: System.Windows.Forms.MenuItem;
    /// <summary>
    /// Required method for Designer support - do not modify
    /// the contents of this method with the code editor.
    /// </summary>
    procedure InitializeComponent;
    procedure TWinmain_Load(sender: System.Object; e: System.EventArgs);
    procedure ToolBar1_ButtonClick(sender: System.Object; e: System.Windows.Forms.ToolBarButtonClickEventArgs);
    procedure Timer1_Tick(sender: System.Object; e: System.EventArgs);
    procedure Menpass_Click(sender: System.Object; e: System.EventArgs);
    procedure TWinmain_Closing(sender: System.Object; e: System.ComponentModel.CancelEventArgs);
    procedure Menreload_Click(sender: System.Object; e: System.EventArgs);
    procedure Menabout_Click(sender: System.Object; e: System.EventArgs);
    procedure TWinmain_Closed(sender: System.Object; e: System.EventArgs);
    procedure Menuser_Click(sender: System.Object; e: System.EventArgs);
    //procedure Mendepartment_Click(sender: System.Object; e: System.EventArgs);
    procedure Mendepart_Click(sender: System.Object; e: System.EventArgs);
    procedure menuxueli_Click(sender: System.Object; e: System.EventArgs);
    procedure Menupost_Click(sender: System.Object; e: System.EventArgs);
    procedure Menworktime_Click(sender: System.Object; e: System.EventArgs);
    procedure MenYuanGong_Click(sender: System.Object; e: System.EventArgs);
    procedure Menexit_Click(sender: System.Object; e: System.EventArgs);
    procedure Menuchuqin_Click(sender: System.Object; e: System.EventArgs);
    procedure Mendelete_Click(sender: System.Object; e: System.EventArgs);
    procedure StatusBar1_PanelClick(sender: System.Object; e: System.Windows.Forms.StatusBarPanelClickEventArgs);
    procedure Menhelp_Click(sender: System.Object; e: System.EventArgs);

  {$ENDREGION}
  strict protected
    /// <summary>
    /// Clean up any resources being used.
    /// </summary>
    procedure Dispose(Disposing: Boolean); override;
  private
    procedure reload_close_set;   //重新登陆后关闭所有的已经打开窗体
    procedure quanxian_set();
    { Private Declarations }
  public
    constructor Create;
  end;

  [assembly: RuntimeRequiredAttribute(TypeOf(TWinmain))]
implementation

uses Winflash, Winlogin,Winpass, Winabout, Winuser, Windepart, Windiploma,
  Winpost, Winworktime, WinYuanGong, Winchuqin, WinDel, WinYGjilu;
 var
  mtwinabout:twinabout;
  Mtwinpass:twinpass;
  Mtwinuser:twinuser;
  Mtwindepart:twindepart;
  Mtwindiploma:twindiploma;
  Mtwinpost:twinpost;
  Mtwinworktime:twinworktime;
  MtwinYuangong:twinyuangong;
  Mtwinchuqin:twinchuqin;
  Mtwindel:twindel;
{$REGION 'Windows Form Designer generated code'}
/// <summary>
/// Required method for Designer support -- do not modify
/// the contents of this method with the code editor.
/// </summary>
procedure TWinmain.InitializeComponent;
type
  TSystem_Windows_Forms_MenuItemArray = array of System.Windows.Forms.MenuItem;
  TSystem_Windows_Forms_ToolBarButtonArray = array of System.Windows.Forms.ToolBarButton;
  TSystem_Windows_Forms_StatusBarPanelArray = array of System.Windows.Forms.StatusBarPanel;
var
  resources: System.Resources.ResourceManager;
begin
  Self.components := System.ComponentModel.Container.Create;
  resources := System.Resources.ResourceManager.Create(TypeOf(TWinmain));
  Self.MainMenu1 := System.Windows.Forms.MainMenu.Create;
  Self.MenuItem1 := System.Windows.Forms.MenuItem.Create;
  Self.Menuser := System.Windows.Forms.MenuItem.Create;
  Self.Menpass := System.Windows.Forms.MenuItem.Create;
  Self.Menreload := System.Windows.Forms.MenuItem.Create;
  Self.Menexit := System.Windows.Forms.MenuItem.Create;
  Self.MenuItem6 := System.Windows.Forms.MenuItem.Create;
  Self.MenYuanGong := System.Windows.Forms.MenuItem.Create;
  Self.MenuItem9 := System.Windows.Forms.MenuItem.Create;
  Self.Menuchuqin := System.Windows.Forms.MenuItem.Create;
  Self.Mendelete := System.Windows.Forms.MenuItem.Create;
  Self.MenuItem10 := System.Windows.Forms.MenuItem.Create;
  Self.Mendepart := System.Windows.Forms.MenuItem.Create;
  Self.menuxueli := System.Windows.Forms.MenuItem.Create;
  Self.Menupost := System.Windows.Forms.MenuItem.Create;
  Self.Menworktime := System.Windows.Forms.MenuItem.Create;
  Self.MenuItem11 := System.Windows.Forms.MenuItem.Create;
  Self.Menabout := System.Windows.Forms.MenuItem.Create;
  Self.Menhelp := System.Windows.Forms.MenuItem.Create;
  Self.ToolBar1 := System.Windows.Forms.ToolBar.Create;
  Self.ToolBarButton1 := System.Windows.Forms.ToolBarButton.Create;
  Self.ToolBarButton2 := System.Windows.Forms.ToolBarButton.Create;
  Self.ToolBarButton3 := System.Windows.Forms.ToolBarButton.Create;
  Self.ToolBarButton4 := System.Windows.Forms.ToolBarButton.Create;
  Self.ToolBarButton5 := System.Windows.Forms.ToolBarButton.Create;
  Self.ToolBarButton6 := System.Windows.Forms.ToolBarButton.Create;
  Self.ImageList1 := System.Windows.Forms.ImageList.Create(Self.components);
  Self.StatusBar1 := System.Windows.Forms.StatusBar.Create;
  Self.sbpinfo := System.Windows.Forms.StatusBarPanel.Create;
  Self.sbpuser := System.Windows.Forms.StatusBarPanel.Create;
  Self.sbptime := System.Windows.Forms.StatusBarPanel.Create;
  Self.Timer1 := System.Windows.Forms.Timer.Create(Self.components);
  (System.ComponentModel.ISupportInitialize(Self.sbpinfo)).BeginInit;
  (System.ComponentModel.ISupportInitialize(Self.sbpuser)).BeginInit;
  (System.ComponentModel.ISupportInitialize(Self.sbptime)).BeginInit;
  Self.SuspendLayout;
  // 
  // MainMenu1
  // 
  Self.MainMenu1.MenuItems.AddRange(TSystem_Windows_Forms_MenuItemArray.Create(Self.MenuItem1, 
          Self.MenuItem6, Self.MenuItem9, Self.MenuItem10, Self.MenuItem11));
  // 
  // MenuItem1
  // 
  Self.MenuItem1.Index := 0;
  Self.MenuItem1.MenuItems.AddRange(TSystem_Windows_Forms_MenuItemArray.Create(Self.Menuser, 
          Self.Menpass, Self.Menreload, Self.Menexit));
  Self.MenuItem1.Text := '系统设置(&X)';
  // 
  // Menuser
  // 
  Self.Menuser.Index := 0;
  Self.Menuser.Text := '用户管理';
  Include(Self.Menuser.Click, Self.Menuser_Click);
  // 
  // Menpass
  // 
  Self.Menpass.Index := 1;
  Self.Menpass.Text := '修改密码';
  Include(Self.Menpass.Click, Self.Menpass_Click);
  // 
  // Menreload
  // 
  Self.Menreload.Index := 2;
  Self.Menreload.Text := '重新登陆';
  Include(Self.Menreload.Click, Self.Menreload_Click);
  // 
  // Menexit
  // 
  Self.Menexit.Index := 3;
  Self.Menexit.Text := '退出系统';
  Include(Self.Menexit.Click, Self.Menexit_Click);
  // 
  // MenuItem6
  // 
  Self.MenuItem6.Index := 1;
  Self.MenuItem6.MenuItems.AddRange(TSystem_Windows_Forms_MenuItemArray.Create(Self.MenYuanGong));
  Self.MenuItem6.Text := '员工管理(&Y)';
  // 
  // MenYuanGong
  // 
  Self.MenYuanGong.Index := 0;
  Self.MenYuanGong.Text := '员工信息维护';
  Include(Self.MenYuanGong.Click, Self.MenYuanGong_Click);
  // 
  // MenuItem9
  // 
  Self.MenuItem9.Index := 2;
  Self.MenuItem9.MenuItems.AddRange(TSystem_Windows_Forms_MenuItemArray.Create(Self.Menuchuqin, 
          Self.Mendelete));
  Self.MenuItem9.Text := '考勤管理(&k)';
  // 
  // Menuchuqin
  // 
  Self.Menuchuqin.Index := 0;
  Self.Menuchuqin.Text := '出勤管理';
  Include(Self.Menuchuqin.Click, Self.Menuchuqin_Click);
  // 
  // Mendelete
  // 
  Self.Mendelete.Index := 1;
  Self.Mendelete.Text := '数据删除';
  Include(Self.Mendelete.Click, Self.Mendelete_Click);
  // 
  // MenuItem10
  // 
  Self.MenuItem10.Index := 3;
  Self.MenuItem10.MenuItems.AddRange(TSystem_Windows_Forms_MenuItemArray.Create(Self.Mendepart, 
          Self.menuxueli, Self.Menupost, Self.Menworktime));
  Self.MenuItem10.Text := '数据维护(&S)';
  // 
  // Mendepart
  // 
  Self.Mendepart.Index := 0;
  Self.Mendepart.Text := '部门管理';
  Include(Self.Mendepart.Click, Self.Mendepart_Click);
  // 
  // menuxueli
  // 
  Self.menuxueli.Index := 1;
  Self.menuxueli.Text := '学历管理';
  Include(Self.menuxueli.Click, Self.menuxueli_Click);
  // 
  // Menupost
  // 
  Self.Menupost.Index := 2;
  Self.Menupost.Text := '职务管理';
  Include(Self.Menupost.Click, Self.Menupost_Click);
  // 
  // Menworktime
  // 
  Self.Menworktime.Index := 3;
  Self.Menworktime.Text := '工作时间';
  Include(Self.Menworktime.Click, Self.Menworktime_Click);
  // 
  // MenuItem11
  // 
  Self.MenuItem11.Index := 4;
  Self.MenuItem11.MenuItems.AddRange(TSystem_Windows_Forms_MenuItemArray.Create(Self.Menabout, 
          Self.Menhelp));
  Self.MenuItem11.Text := '帮助(&H)';
  // 
  // Menabout
  // 
  Self.Menabout.Index := 0;
  Self.Menabout.Text := '关于';
  Include(Self.Menabout.Click, Self.Menabout_Click);
  // 
  // Menhelp
  // 
  Self.Menhelp.Index := 1;
  Self.Menhelp.Text := '系统帮助';
  Include(Self.Menhelp.Click, Self.Menhelp_Click);
  // 
  // ToolBar1
  // 
  Self.ToolBar1.Buttons.AddRange(TSystem_Windows_Forms_ToolBarButtonArray.Create(Self.ToolBarButton1, 
          Self.ToolBarButton2, Self.ToolBarButton3, Self.ToolBarButton4, Self.ToolBarButton5, 
          Self.ToolBarButton6));
  Self.ToolBar1.DropDownArrows := True;
  Self.ToolBar1.ImageList := Self.ImageList1;
  Self.ToolBar1.Location := System.Drawing.Point.Create(0, 0);
  Self.ToolBar1.Name := 'ToolBar1';
  Self.ToolBar1.ShowToolTips := True;
  Self.ToolBar1.Size := System.Drawing.Size.Create(528, 44);
  Self.ToolBar1.TabIndex := 1;
  Include(Self.ToolBar1.ButtonClick, Self.ToolBar1_ButtonClick);
  // 
  // ToolBarButton1
  // 
  Self.ToolBarButton1.ImageIndex := 6;
  Self.ToolBarButton1.Tag := '1';
  Self.ToolBarButton1.ToolTipText := '员工管理';
  // 
  // ToolBarButton2
  // 
  Self.ToolBarButton2.ImageIndex := 11;
  Self.ToolBarButton2.Tag := '2';
  Self.ToolBarButton2.ToolTipText := '出勤管理';
  // 
  // ToolBarButton3
  // 
  Self.ToolBarButton3.ImageIndex := 15;
  Self.ToolBarButton3.Tag := '3';
  Self.ToolBarButton3.ToolTipText := '工作时间';
  // 
  // ToolBarButton4
  // 
  Self.ToolBarButton4.ImageIndex := 3;
  Self.ToolBarButton4.Tag := '4';
  Self.ToolBarButton4.ToolTipText := '职务管理';
  // 
  // ToolBarButton5
  // 
  Self.ToolBarButton5.ImageIndex := 0;
  Self.ToolBarButton5.Tag := '5';
  Self.ToolBarButton5.ToolTipText := '密码修改';
  // 
  // ToolBarButton6
  // 
  Self.ToolBarButton6.ImageIndex := 4;
  Self.ToolBarButton6.Tag := '6';
  Self.ToolBarButton6.ToolTipText := '退出系统';
  // 
  // ImageList1
  // 
  Self.ImageList1.ImageSize := System.Drawing.Size.Create(32, 32);
  Self.ImageList1.ImageStream := (System.Windows.Forms.ImageListStreamer(resources.GetObject('ImageList1.ImageStream')));