umain.pas

说明: 比较简单的人事档案管理程序,包含了人事档案的大部分功能,做人事档案的兄弟可以看看. 本程序类型：delphi7 + Access2000 桌面数据库 初始用户名/密码:admin

unit Umain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, Menus, DB, ADODB, ImgList, Grids, DBGrids, StdCtrls,
  Buttons, ExtCtrls, ToolWin, WinSkinData, TFlatButtonUnit,
  TFlatSpeedButtonUnit, ActiveX, ComObj, jpeg, UntObject, dbgridehimpexp,
  ShellApi, PMyBaseDebug, OleServer, Excel2000, DBGridEh, WinSkinStore,
  RpCon, RpConDS, RpDefine, RpRave, RpBase, RpSystem, RpRender,
  RpRenderCanvas, RpRenderPreview;

type
  PMyData = ^Tmydata;
  Tmydata = record
    id:integer;
    nodetype:integer;
  end;
  TForm_Main = class(TForm)
    MainMenu1:TMainMenu;
    F1:TMenuItem;
    S1:TMenuItem;
    dept_Tree:TTreeView;
    ADOC1:TADOConnection;
    ADOQ1:TADOQuery;
    TabSystem:TADOTable;
    N1:TMenuItem;
    N2:TMenuItem;
    N3:TMenuItem;
    N4:TMenuItem;
    N5:TMenuItem;
    ICOlist:TImageList;
    StatusBar1:TStatusBar;
    TabDept:TADOTable;
    Tabdept2:TADOTable;
    GroupBox1:TGroupBox;
    Edit1:TEdit;
    Label1:TLabel;
    ComboBox1:TComboBox;
    N6:TMenuItem;
    TabPrepset:TADOTable;
    TabEmployee:TADOTable;
    DS1:TDataSource;
    N7:TMenuItem;
    MainMenu_AddNewEmployee:TMenuItem;
    N9:TMenuItem;
    BBSeach:TBitBtn;
    PMEmployeeTab:TPopupMenu;
    AddNewEmployee:TMenuItem;
    N11:TMenuItem;
    EditEmployee:TMenuItem;
    DeleteEmployee:TMenuItem;
    MoveOtherDept:TMenuItem;
    N12:TMenuItem;
    Family:TMenuItem;
    Award:TMenuItem;
    MoveToDept:TMenuItem;
    WorkStoy:TMenuItem;
    N13:TMenuItem;
    AllEmployeeNumber:TMenuItem;
    OutTxt:TMenuItem;
    N14:TMenuItem;
    OutEXCEL:TMenuItem;
    OutHTML:TMenuItem;
    ToolBar1:TToolBar;
    TBsystemset:TToolButton;
    ADOQDBGrid:TADOQuery;
    N10:TMenuItem;
    N15:TMenuItem;
    N16:TMenuItem;
    Leave:TMenuItem;
    TBEmployeeList:TToolButton;
    TBPrepSet:TToolButton;
    ToolButton2:TToolButton;
    TBNewEmployee:TToolButton;
    ToolButton6:TToolButton;
    ToolButton7:TToolButton;
    ToolButton8:TToolButton;
    ToolButton9:TToolButton;
    TBFamily:TToolButton;
    TBAward:TToolButton;
    TBCultivate:TToolButton;
    TBMoveto:TToolButton;
    TBWorkstoy:TToolButton;
    ToolButton14:TToolButton;
    ToolButton16:TToolButton;
    ToolButton17:TToolButton;
    TBFind:TToolButton;
    ToolButton19:TToolButton;
    ToolButton20:TToolButton;
    ToolButton21:TToolButton;
    ToolButton22:TToolButton;
    ToolButton23:TToolButton;
    ToolButton24:TToolButton;
    ToolButton25:TToolButton;
    ToolButton26:TToolButton;
    PopupMenu_Stat:TPopupMenu;
    PopupMenu2:TPopupMenu;
    N17:TMenuItem;
    N18:TMenuItem;
    PopupMenu_OutPut:TPopupMenu;
    N19:TMenuItem;
    EXECL1:TMenuItem;
    HTML1:TMenuItem;
    N20:TMenuItem;
    N21:TMenuItem;
    WinXP1:TMenuItem;
    Mac1:TMenuItem;
    Lunix1:TMenuItem;
    N22:TMenuItem;
    N23:TMenuItem;
    Label2:TLabel;
    N24:TMenuItem;
    MainMenu_EditEmployee:TMenuItem;
    MainMenu_DeleteEmployee:TMenuItem;
    MainMenu_MoveOtherDept:TMenuItem;
    N28:TMenuItem;
    MainMenu_Family:TMenuItem;
    MainMenu_Leave:TMenuItem;
    MainMenu_Award:TMenuItem;
    MainMenu_MoveToDept:TMenuItem;
    MainMenu_WorkStoy:TMenuItem;
    N29:TMenuItem;
    MainMenu_AllEmployeeNumber:TMenuItem;
    MainMenu_OutTxt:TMenuItem;
    N30:TMenuItem;
    MainMenu_OutExcel:TMenuItem;
    MainMenu_OutHtml:TMenuItem;
    RepairNumber:TMenuItem;
    N32:TMenuItem;
    Cultivate:TMenuItem;
    MainMenu_Plant:TMenuItem;
    TabFamily:TADOTable;
    TabAward:TADOTable;
    TabAbdicate:TADOTable;
    TabWorkStoy:TADOTable;
    TabLeave:TADOTable;
    TabCultivate:TADOTable;
    N8:TMenuItem;
    N25:TMenuItem;
    N26:TMenuItem;
    N27:TMenuItem;
    N33:TMenuItem;
    N34:TMenuItem;
    N35:TMenuItem;
    N36:TMenuItem;
    N37:TMenuItem;
    N38:TMenuItem;
    N39:TMenuItem;
    N40:TMenuItem;
    N41:TMenuItem;
    N42:TMenuItem;
    N43:TMenuItem;
    N44:TMenuItem;
    MainMenu_CombinationQuery:TMenuItem;
    N46:TMenuItem;
    N47:TMenuItem;
    N48:TMenuItem;
    N49:TMenuItem;
    N50:TMenuItem;
    N51:TMenuItem;
    N52:TMenuItem;
    N53:TMenuItem;
    N54:TMenuItem;
    N55:TMenuItem;
    N56:TMenuItem;
    N57:TMenuItem;
    N58:TMenuItem;
    N59:TMenuItem;
    N60:TMenuItem;
    N61:TMenuItem;
    N62:TMenuItem;
    N63:TMenuItem;
    N64:TMenuItem;
    N65:TMenuItem;
    SaveExeclDialog:TSaveDialog;
    MainMemu_QueryForDate:TMenuItem;
    MainMemu_WorkAge:TMenuItem;
    N68:TMenuItem;
    EmployeeCard:TMenuItem;
    N71:TMenuItem;
    Allmen:TMenuItem;
    AllWomen:TMenuItem;
    ALLJoinThisYear:TMenuItem;
    ALLJoinThisMonth:TMenuItem;
    N76:TMenuItem;
    AllOut:TMenuItem;
    AllEmployee:TMenuItem;
    N79:TMenuItem;
    BirthdayEmployee:TMenuItem;
    BargainEmployee:TMenuItem;
    N82:TMenuItem;
    OutFieldSet:TMenuItem;
    TabUser:TADOTable;
    N45:TMenuItem;
    SkinData1:TSkinData;
    N66:TMenuItem;
    N67:TMenuItem;
    DBGridEhEmployee:TDBGridEh;
    N69:TMenuItem;
    aboutmenu:TMenuItem;
    N72:TMenuItem;
    N73:TMenuItem;
    N74:TMenuItem;
    N75:TMenuItem;
    N77:TMenuItem;
    N78:TMenuItem;
    N80:TMenuItem;
    N81:TMenuItem;
    N83:TMenuItem;
    N85:TMenuItem;
    N86:TMenuItem;
    N87:TMenuItem;
    N88:TMenuItem;
    N89:TMenuItem;
    SkinStore1:TSkinStore;
    SkinOpenDialog:TOpenDialog;
    SaveDialog1:TSaveDialog;
    V1:TMenuItem;
    MainMenu_ViewRecord1:TMenuItem;
    N91:TMenuItem;
    MainMenu_ViewRecord2:TMenuItem;
    MainMenu_ViewRecord4:TMenuItem;
    MainMenu_ViewRecord5:TMenuItem;
    MainMenu_ViewRecord6:TMenuItem;
    MainMenu_ViewRecord7:TMenuItem;
    N92:TMenuItem;
    N93:TMenuItem;
    MainMenu_Compositor1:TMenuItem;
    MainMenu_Compositor2:TMenuItem;
    MainMenu_Compositor4:TMenuItem;
    MainMenu_Compositor3:TMenuItem;
    MainMenu_ViewRecord3:TMenuItem;
    MainMenu_Compositor5:TMenuItem;
    TabMoveTo:TADOTable;
    OpenHelpChm:TMenuItem;
    RvProject1:TRvProject;
    RvDataSetConnection1:TRvDataSetConnection;
    RvRenderPreview1:TRvRenderPreview;
    N31:TMenuItem;
    Initialize:TMenuItem;
    N70:TMenuItem;
    procedure FormCreate(Sender:TObject);
    procedure N5Click(Sender:TObject);
    procedure N1Click(Sender:TObject);
    procedure N6Click(Sender:TObject);
    procedure MainMenu_AddNewEmployeeClick(Sender:TObject);
    procedure N4Click(Sender:TObject);
    procedure N9Click(Sender:TObject);
    procedure DBGrid1CellClick(Column:TColumn);
    procedure AddNewEmployeeClick(Sender:TObject);
    procedure TBsystemsetClick(Sender:TObject);
    procedure DeleteEmployeeClick(Sender:TObject);
    procedure MoveToDeptClick(Sender:TObject);
    procedure MoveOtherDeptClick(Sender:TObject);
    procedure LeaveClick(Sender:TObject);
    procedure AllEmployeeNumberClick(Sender:TObject);
    procedure EditEmployeeClick(Sender:TObject);
    procedure ToolButton23Click(Sender:TObject);
    procedure ToolButton24Click(Sender:TObject);
    procedure ToolButton26Click(Sender:TObject);
    procedure dept_TreeClick(Sender:TObject);
    procedure TBEmployeeListClick(Sender:TObject);
    procedure ToolButton7Click(Sender:TObject);
    procedure N21Click(Sender:TObject);
    procedure TBPrepSetClick(Sender:TObject);
    procedure TBNewEmployeeClick(Sender:TObject);
    procedure ToolButton16Click(Sender:TObject);
    procedure ToolButton8Click(Sender:TObject);
    procedure N16Click(Sender:TObject);
    procedure N15Click(Sender:TObject);
    procedure MainMenu_EditEmployeeClick(Sender:TObject);
    procedure FamilyClick(Sender:TObject);
    procedure BBSeachClick(Sender:TObject);
    procedure Edit1KeyPress(Sender:TObject; var Key:Char);
    procedure TBFamilyClick(Sender:TObject);
    procedure MainMenu_FamilyClick(Sender:TObject);
    procedure MainMenu_MoveOtherDeptClick(Sender:TObject);
    procedure AwardClick(Sender:TObject);
    procedure CultivateClick(Sender:TObject);
    procedure WorkStoyClick(Sender:TObject);
    procedure TBWorkstoyClick(Sender:TObject);
    procedure MainMenu_WorkStoyClick(Sender:TObject);
    procedure TBAwardClick(Sender:TObject);
    procedure MainMenu_AwardClick(Sender:TObject);
    procedure TBCultivateClick(Sender:TObject);
    procedure MainMenu_LeaveClick(Sender:TObject);
    procedure TBFindClick(Sender:TObject);
    procedure ToolButton20Click(Sender:TObject);
    procedure N25Click(Sender:TObject);
    procedure N26Click(Sender:TObject);
    procedure N27Click(Sender:TObject);
    procedure N33Click(Sender:TObject);
    procedure N34Click(Sender:TObject);
    procedure N35Click(Sender:TObject);
    procedure N36Click(Sender:TObject);
    procedure N37Click(Sender:TObject);
    procedure N38Click(Sender:TObject);
    procedure N39Click(Sender:TObject);
    procedure N40Click(Sender:TObject);
    procedure N41Click(Sender:TObject);
    procedure N42Click(Sender:TObject);
    procedure N43Click(Sender:TObject);
    procedure N65Click(Sender:TObject);
    procedure N62Click(Sender:TObject);
    procedure N61Click(Sender:TObject);
    procedure N60Click(Sender:TObject);
    procedure N59Click(Sender:TObject);
    procedure N58Click(Sender:TObject);
    procedure N57Click(Sender:TObject);
    procedure N56Click(Sender:TObject);
    procedure N55Click(Sender:TObject);
    procedure N54Click(Sender:TObject);
    procedure N53Click(Sender:TObject);
    procedure N52Click(Sender:TObject);
    procedure N51Click(Sender:TObject);
    procedure N49Click(Sender:TObject);
    procedure OutFieldSetClick(Sender:TObject);
    procedure MainMenu_CombinationQueryClick(Sender:TObject);
    procedure FormShow(Sender:TObject);
    procedure MainMemu_QueryForDateClick(Sender:TObject);
    procedure MainMemu_WorkAgeClick(Sender:TObject);
    procedure AllmenClick(Sender:TObject);
    procedure AllWomenClick(Sender:TObject);
    procedure ALLJoinThisYearClick(Sender:TObject);
    procedure ALLJoinThisMonthClick(Sender:TObject);
    procedure AllOutClick(Sender:TObject);
    procedure AllEmployeeClick(Sender:TObject);
    procedure MainMenu_AllEmployeeNumberClick(Sender:TObject);
    procedure OutEXCELClick(Sender:TObject);
    procedure BirthdayEmployeeClick(Sender:TObject);
    procedure BargainEmployeeClick(Sender:TObject);
    procedure MainMenu_DeleteEmployeeClick(Sender:TObject);
    procedure DBGridEhEmployeeCellClick(Column:TColumnEh);
    procedure OutHTMLClick(Sender:TObject);
    procedure OutTxtClick(Sender:TObject);
    procedure MainMenu_OutHtmlClick(Sender:TObject);
    procedure MainMenu_OutExcelClick(Sender:TObject);
    procedure MainMenu_OutTxtClick(Sender:TObject);
    procedure TBMovetoClick(Sender:TObject);
    procedure MainMenu_MoveToDeptClick(Sender:TObject);
    procedure N19Click(Sender:TObject);
    procedure EXECL1Click(Sender:TObject);
    procedure HTML1Click(Sender:TObject);
    procedure N89Click(Sender:TObject);
    procedure N88Click(Sender:TObject);
    procedure N87Click(Sender:TObject);
    procedure N78Click(Sender:TObject);
    procedure N80Click(Sender:TObject);
    procedure N83Click(Sender:TObject);
    procedure N74Click(Sender:TObject);
    procedure N75Click(Sender:TObject);
    procedure N17Click(Sender:TObject);
    procedure N18Click(Sender:TObject);
    procedure N81Click(Sender:TObject);
    procedure ToolButton19Click(Sender:TObject);
    procedure N45Click(Sender:TObject);
    procedure WinXP1Click(Sender:TObject);
    procedure Mac1Click(Sender:TObject);
    procedure Lunix1Click(Sender:TObject);
    procedure N23Click(Sender:TObject);
    procedure MainMenu_ViewRecord2Click(Sender:TObject);
    procedure MainMenu_ViewRecord3Click(Sender:TObject);
    procedure MainMenu_ViewRecord4Click(Sender:TObject);
    procedure MainMenu_ViewRecord5Click(Sender:TObject);
    procedure MainMenu_ViewRecord6Click(Sender:TObject);
    procedure MainMenu_ViewRecord7Click(Sender:TObject);
    procedure MainMenu_Compositor1Click(Sender:TObject);
    procedure MainMenu_Compositor2Click(Sender:TObject);
    procedure MainMenu_Compositor4Click(Sender:TObject);
    procedure MainMenu_Compositor3Click(Sender:TObject);
    procedure MainMenu_Compositor5Click(Sender:TObject);
    procedure MainMenu_ViewRecord1Click(Sender:TObject);
    procedure N67Click(Sender:TObject);
    procedure RepairNumberClick(Sender:TObject);
    procedure FormClose(Sender:TObject; var Action:TCloseAction);
    procedure aboutmenuClick(Sender:TObject);
    procedure DBGridEhEmployeeDblClick(Sender:TObject);
    procedure OpenHelpChmClick(Sender:TObject);
    procedure ToolButton22Click(Sender:TObject);
    procedure EmployeeCardClick(Sender:TObject);
    procedure N85Click(Sender:TObject);
    procedure InitializeClick(Sender:TObject);
    procedure N70Click(Sender:TObject);
  private
    { Private declarations }
    CorpName:string; //存储公司名称
    userName:string; //存储当前用户名
    UserFieldList:string; //当前用户导出字段选项数
    UserFieldSql:string; //当前用户导出字段的ＳＱＬ语句
    FirstDeptName:string;
    SecondDeptName:string;
    FStartTime, FstopTime:Cardinal;
    procedure LoadDataForDeptTree;
    procedure PMEmployeeBeginning;
    procedure PMEmployeeOK;
    procedure Compositor(Column:TColumnEh);
    function GetNewID(var Number, idlength:integer):string;
    procedure InsertDataToNewEmployeeID(var newid, oldid:string);
    procedure UpdateDataToRecord(var newid, oldid:string);
    //开始运行时间
    procedure RunStartTime;
    //计算运行所用时间：毫秒
    function RunStoptime:Cardinal;
  protected
  public
    { Public declarations }
    AppPath:string; //保存程序路径
  end;

var
  Form_Main:TForm_Main;

implementation
uses UUserlogin, UDeptSet, UsystemSet, UPrepSet,
  Uemployee, UAutoSaveClear, UMoveTo,
  UTransfer, ULeave, UDataBak, UFamily,
  UAwardAndPenalize, UCultivate, UWorkStoy,
  UFindEmployee, UDBchart, UOutFieldSet,
  UCombinationQuery, UQueryForDate, UAtTerm,
  USelectEmployee, Ueditform, UWorkAge,
  UDataRecord, UViewRecord, UViewEmployee,
  UEmployeeCard, UUserSet;

{$R *.dfm}

procedure TForm_Main.RunStartTime;
begin
  FStartTime := GetTickCount;
end;

procedure TForm_Main.PMEmployeeBeginning;
begin
  //职工表右键菜单
  AddNewEmployee.Enabled := true;
  EditEmployee.Enabled := false;
  DeleteEmployee.Enabled := false;
  MoveOtherDept.Enabled := false;
  Family.Enabled := false;
  Leave.Enabled := false;
  Award.Enabled := false;
  Cultivate.Enabled := false;
  MoveToDept.Enabled := false;
  WorkStoy.Enabled := false;
  AllEmployeeNumber.Enabled := false;
  OutTxt.Enabled := false;
  OutEXCEL.Enabled := false;
  OutHTML.Enabled := false;
  //主菜单-编辑
  MainMenu_AddNewEmployee.Enabled := true;
  MainMenu_EditEmployee.Enabled := false;
  MainMenu_DeleteEmployee.Enabled := false;
  MainMenu_MoveOtherDept.Enabled := false;
  MainMenu_Family.Enabled := false;
  MainMenu_Leave.Enabled := false;
  MainMenu_Award.Enabled := false;
  MainMenu_Plant.Enabled := false;
  MainMenu_MoveToDept.Enabled := false;
  MainMenu_WorkStoy.Enabled := false;
  MainMenu_AllEmployeeNumber.Enabled := false;