fmain.~pas

一个基于delphi开发的人力资源管理的系统源码。

unit fmain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, ComCtrls, Menus, cxStyles, cxCustomData, cxGraphics,
  cxFilter, cxData, cxEdit, cxDBData, cxGridLevel, cxClasses, cxControls,
  cxGridCustomView, cxGridCustomTableView, cxGridTableView,Registry,shellapi,
  cxGridDBTableView, cxGrid, ExtCtrls, ToolWin, ActnMan, ActnCtrls, dxtree,
  dxdbtree, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit, ImgList,
  cxImage, cxDBEdit, cxSSheet, StdCtrls, StdActns, ActnList, cxSSRes,cxSSTypes,inifiles,
  dxExEdtr, dxInspRw, dxDBInRw, dxInspct, dxDBInsp, dxCntner,
  cxGridBandedTableView, XPMan, OleCtrls, AgentObjects_TLB, OleCtnrs,
  dxPSGlbl, dxPSUtl, dxPSEngn, dxPrnPg, dxBkgnd, dxWrap, dxPrnDev,
  dxPSCompsProvider, dxPSFillPatterns, dxPSEdgePatterns, dxPSCore,
  dxPSTVLnk, dxPSdxDBTVLnk, dxPSBaseGridLnk, dxPScxSSLnk, DBCtrls,ComObj;

type                                                           
  TStyleValue = (svAlign, svFontName, svSize, svBold, svItalic, svUnderline, svStrikeOut);
  TStyleValueSet = set of TStyleValue;
  TMain = class(TForm)
    ADOconn: TADOConnection;
    StatusBar1: TStatusBar;
    MainMenu1: TMainMenu;
    N2: TMenuItem;
    N3: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N20: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    staffinfo: TADOQuery;
    staffsource: TDataSource;
    PopupMenu1: TPopupMenu;
    N28: TMenuItem;
    N29: TMenuItem;
    N31: TMenuItem;
    N32: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    dele: TADOQuery;
    tmpquery: TADOQuery;
    Panel1: TPanel;
    dxDBTreeView1: TdxDBTreeView;
    Splitter1: TSplitter;
    BranchSource: TDataSource;
    branch: TADOTable;
    PopupMenu2: TPopupMenu;
    N36: TMenuItem;
    N37: TMenuItem;
    N38: TMenuItem;
    N39: TMenuItem;
    N40: TMenuItem;
    N41: TMenuItem;
    stafftable: TADOTable;
    Panel2: TPanel;
    cxGrid1: TcxGrid;
    cxGrid1DBTableView1: TcxGridDBTableView;
    cxGrid1DBTableView1DBColumn1: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn2: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn6: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn7: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn4: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn5: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn3: TcxGridDBColumn;
    cxGrid1Level1: TcxGridLevel;
    Splitter2: TSplitter;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet4: TTabSheet;
    TabSheet5: TTabSheet;
    TabSheet7: TTabSheet;
    cxGrid2DBTableView1: TcxGridDBTableView;
    cxGrid2Level1: TcxGridLevel;
    cxGrid2: TcxGrid;
    stachposteditSource: TDataSource;
    cxGrid1DBTableView1DBColumn8: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn9: TcxGridDBColumn;
    cxGrid2DBTableView1DBColumn1: TcxGridDBColumn;
    cxGrid2DBTableView1DBColumn2: TcxGridDBColumn;
    cxGrid2DBTableView1DBColumn3: TcxGridDBColumn;
    PopupMenu3: TPopupMenu;
    N42: TMenuItem;
    N43: TMenuItem;
    N44: TMenuItem;
    N45: TMenuItem;
    N46: TMenuItem;
    N47: TMenuItem;
    N48: TMenuItem;
    ImageList1: TImageList;
    cxGrid3DBTableView1: TcxGridDBTableView;
    cxGrid3Level1: TcxGridLevel;
    cxGrid3: TcxGrid;
    brancheditsource: TDataSource;
    cxGrid3DBTableView1DBColumn1: TcxGridDBColumn;
    cxGrid3DBTableView1DBColumn2: TcxGridDBColumn;
    cxGrid3DBTableView1DBColumn3: TcxGridDBColumn;
    r_staffbranchedit: TADOTable;
    PopupMenu4: TPopupMenu;
    N49: TMenuItem;
    N50: TMenuItem;
    N51: TMenuItem;
    tmpquery2: TADOQuery;
    stachpostedit: TADOTable;
    r_staffpost: TADOTable;
    r_staffpostSource: TDataSource;
    cxGrid4DBTableView1: TcxGridDBTableView;
    cxGrid4Level1: TcxGridLevel;
    cxGrid4: TcxGrid;
    Splitter3: TSplitter;
    cxGrid4DBTableView1DBColumn1: TcxGridDBColumn;
    r_staffpict: TADOTable;
    r_staffpictSource: TDataSource;
    PopupMenu5: TPopupMenu;
    N52: TMenuItem;
    N53: TMenuItem;
    N54: TMenuItem;
    cxGrid5DBTableView1: TcxGridDBTableView;
    cxGrid5Level1: TcxGridLevel;
    cxGrid5: TcxGrid;
    cxGrid5DBTableView1DBColumn1: TcxGridDBColumn;
    cxGrid5DBTableView1DBColumn2: TcxGridDBColumn;
    cxGrid5DBTableView1DBColumn3: TcxGridDBColumn;
    cxGrid5DBTableView1DBColumn4: TcxGridDBColumn;
    cxGrid5DBTableView1DBColumn5: TcxGridDBColumn;
    cxGrid5DBTableView1DBColumn6: TcxGridDBColumn;
    r_staffpay: TADOTable;
    r_staffpaySource: TDataSource;
    N55: TMenuItem;
    N56: TMenuItem;
    N30: TMenuItem;
    N57: TMenuItem;
    PopupMenu6: TPopupMenu;
    N58: TMenuItem;
    N59: TMenuItem;
    TabSheet8: TTabSheet;
    cxSpreadSheetBook1: TcxSpreadSheetBook;
    N60: TMenuItem;
    sheetpopup: TPopupMenu;
    N61: TMenuItem;
    N62: TMenuItem;
    N63: TMenuItem;
    N64: TMenuItem;
    N65: TMenuItem;
    N110: TMenuItem;
    N67: TMenuItem;
    N68: TMenuItem;
    N69: TMenuItem;
    N70: TMenuItem;
    imgFormatting: TImageList;
    imgBordersImages: TImageList;
    imgStandart: TImageList;
    imgHistory: TImageList;
    cbMain: TControlBar;
    tbsStandart: TToolBar;
    tbsNew: TToolButton;
    tbsOpen: TToolButton;
    tbsSave: TToolButton;
    ToolButton20: TToolButton;
    tbsCut: TToolButton;
    tbsCopy: TToolButton;
    tbsPaste: TToolButton;
    tlbHistory: TToolBar;
    tbUndo: TToolButton;
    ToolButton21: TToolButton;
    alMain: TActionList;
    actNew: TAction;
    actDeleteCells: TAction;
    actOpenSpreadSheet: TAction;
    actSaveSpeadSheet: TAction;
    actInsertCells: TAction;
    actExit: TAction;
    actAutomaticCalc: TAction;
    actRecalcFormulas: TAction;
    actCut: TAction;
    actCopy: TAction;
    actPaste: TAction;
    actBeveledLookandFeel: TAction;
    actBufferedpaint: TAction;
    actShowcaptions: TAction;
    actShowgrid: TAction;
    actShowheaders: TAction;
    actShowformulas: TAction;
    actR1C1Referencestyle: TAction;
    actCells: TAction;
    actRow: TAction;
    actColumn: TAction;
    actSheet: TAction;
    actWindowClose: TWindowClose;
    actWindowCascade: TWindowCascade;
    actWindowTileHorizontal: TWindowTileHorizontal;
    actWindowTileVertical: TWindowTileVertical;
    actWindowMinimizeAll: TWindowMinimizeAll;
    actWindowArrange: TWindowArrange;
    actCellLeftAlign: TAction;
    actCellRightAlign: TAction;
    actCellCenterAlign: TAction;
    actBold: TAction;
    actItalic: TAction;
    actUnderline: TAction;
    actStrikeOut: TAction;
    actMergeCells: TAction;
    actSplitCells: TAction;
    actSortAscending: TAction;
    actSortDescending: TAction;
    actSum: TAction;
    actFont: TAction;
    actFontSize: TAction;
    actAverage: TAction;
    actCount: TAction;
    actMax: TAction;
    actMin: TAction;
    actFormatCells: TAction;
    actHideCells: TAction;
    actShowCells: TAction;
    actHideCol: TAction;
    actShowCol: TAction;
    actHideRow: TAction;
    actShowRow: TAction;
    actUndo: TAction;
    actRedo: TAction;
    SaveDialog1: TSaveDialog;
    cxGrid5DBTableView1DBColumn7: TcxGridDBColumn;
    pmBorders: TPopupMenu;
    MenuItem1: TMenuItem;
    MenuItem2: TMenuItem;
    MenuItem3: TMenuItem;
    MenuItem4: TMenuItem;
    MenuItem5: TMenuItem;
    MenuItem6: TMenuItem;
    N71: TMenuItem;
    N81: TMenuItem;
    N91: TMenuItem;
    N101: TMenuItem;
    N111: TMenuItem;
    N121: TMenuItem;
    pmSummary: TPopupMenu;
    Sum1: TMenuItem;
    Average1: TMenuItem;
    Count1: TMenuItem;
    Max1: TMenuItem;
    Min1: TMenuItem;
    N66: TMenuItem;
    N72: TMenuItem;
    N73: TMenuItem;
    N74: TMenuItem;
    N75: TMenuItem;
    N76: TMenuItem;
    N77: TMenuItem;
    N78: TMenuItem;
    N79: TMenuItem;
    N80: TMenuItem;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton8: TToolButton;
    cxTextEdit1: TcxTextEdit;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton13: TToolButton;
    ToolButton14: TToolButton;
    ToolButton19: TToolButton;
    tbsFormatting: TToolBar;
    cbxFont: TComboBox;
    cbxSize: TComboBox;
    ToolButton15: TToolButton;
    tbLeftAlign: TToolButton;
    tbCenterAlign: TToolButton;
    tbRightAlign: TToolButton;
    ToolButton16: TToolButton;
    tbBold: TToolButton;
    tbItalic: TToolButton;
    tbUnderline: TToolButton;
    tbStrikeOut: TToolButton;
    ToolButton17: TToolButton;
    tbMerge: TToolButton;
    tgSplit: TToolButton;
    ToolButton18: TToolButton;
    tbSummary: TToolButton;
    tbBorderStyle: TToolButton;
    cxsave: TPopupMenu;
    N82: TMenuItem;
    N83: TMenuItem;
    tmpado: TADOTable;
    sheetopen: TPopupMenu;
    N84: TMenuItem;
    N85: TMenuItem;
    OpenDialog1: TOpenDialog;
    N86: TMenuItem;
    N87: TMenuItem;
    N88: TMenuItem;
    N89: TMenuItem;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet6: TTabSheet;
    N5: TMenuItem;
    N13: TMenuItem;
    N92: TMenuItem;
    N93: TMenuItem;
    N94: TMenuItem;
    N95: TMenuItem;
    N96: TMenuItem;
    N97: TMenuItem;
    PrinterSetupDialog1: TPrinterSetupDialog;
    N10: TMenuItem;
    N12: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    TabSheet9: TTabSheet;
    cxGrid6: TcxGrid;
    cxGridDBTableView1: TcxGridDBTableView;
    cxGridDBColumn1: TcxGridDBColumn;
    cxGridDBColumn2: TcxGridDBColumn;
    cxGridDBColumn6: TcxGridDBColumn;
    cxGridDBColumn7: TcxGridDBColumn;
    cxGridDBColumn9: TcxGridDBColumn;
    cxGridLevel1: TcxGridLevel;
    Noset: TADOQuery;
    nosetdatasource: TDataSource;
    ToolButton5: TToolButton;
    N17: TMenuItem;
    N18: TMenuItem;
    PopupMenu7: TPopupMenu;
    N19: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N35: TMenuItem;
    N90: TMenuItem;
    N98: TMenuItem;
    N99: TMenuItem;
    N100: TMenuItem;
    N102: TMenuItem;
    N103: TMenuItem;
    N104: TMenuItem;
    N105: TMenuItem;
    N1: TMenuItem;
    N4: TMenuItem;
    Branchimage: TImageList;
    N6: TMenuItem;
    N107: TMenuItem;
    ColorBox1: TColorBox;
    ToolButton6: TToolButton;
    N108: TMenuItem;
    N109: TMenuItem;
    N112: TMenuItem;
    N113: TMenuItem;
    N114: TMenuItem;
    N115: TMenuItem;
    r_staffteach: TADOTable;
    r_staffteachDataSource: TDataSource;
    cxGrid7DBTableView1: TcxGridDBTableView;
    cxGrid7Level1: TcxGridLevel;
    cxGrid7: TcxGrid;
    r_staffteachid: TADOTable;
    r_staffteachidDataSource: TDataSource;
    cxGrid7DBTableView1DBColumn1: TcxGridDBColumn;
    cxGrid7DBTableView1DBColumn2: TcxGridDBColumn;
    cxGrid7DBTableView1DBColumn3: TcxGridDBColumn;
    PopupMenu8: TPopupMenu;
    N116: TMenuItem;
    N117: TMenuItem;
    N118: TMenuItem;