main.pas

pasa人力资源考勤管理系统

unit main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, ToolWin, ComCtrls, ExtCtrls, Outlook, ImgList, SBPro, StdCtrls,
  Db, DBTables, RxCalc, Grids, ADODB, jpeg, AppEvnts, Winsock,
  DBGrids, Registry, Buttons, DBCtrls, RxLookup,  RXCtrls, OleServer,
  Excel97, XPBarMenu, INIFiles, ClipBrd, scExcelExport, publicfunction,shellapi;

type
  Tformmain = class(TForm)
    Timer1: TTimer;
    PopupMenu1: TPopupMenu;
    RxCalculator1: TRxCalculator;
    Outlook1: TOutlook;
    Qrypublic: TADOQuery;
    ImageList2: TImageList;
    ImageList1: TImageList;
    ApplicationEvents1: TApplicationEvents;
    Splitter1: TSplitter;
    ToolBar1: TToolBar;
    logout: TToolButton;
    ToolButton1: TToolButton;
    Excel: TToolButton;
    helptool: TToolButton;
    quit: TToolButton;
    Image1: TImage;
    ExcelApplication1: TExcelApplication;
    N24: TMenuItem;
    D1: TMenuItem;
    Timer2: TTimer;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    StatusBarPro1: TStatusBarPro;
    XPBarMenu1: TXPBarMenu;
    MainMenu1: TMainMenu;
    personal: TMenuItem;
    per_basic: TMenuItem;
    per_change: TMenuItem;
    per_move: TMenuItem;
    per_reward: TMenuItem;
    per_leave: TMenuItem;
    per_stop: TMenuItem;
    N29: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N20: TMenuItem;
    N34: TMenuItem;
    N21: TMenuItem;
    attendance: TMenuItem;
    atd_clock: TMenuItem;
    atd_set: TMenuItem;
    N19: TMenuItem;
    N35: TMenuItem;
    changeschement: TMenuItem;
    changesche: TMenuItem;
    N22: TMenuItem;
    auto: TMenuItem;
    autoread: TMenuItem;
    autoprocess: TMenuItem;
    atd_read: TMenuItem;
    atd_handle: TMenuItem;
    N23: TMenuItem;
    N25: TMenuItem;
    atd_overtime: TMenuItem;
    atd_continue: TMenuItem;
    atd_leave: TMenuItem;
    N5: TMenuItem;
    atd_atddata: TMenuItem;
    atd_originaldata: TMenuItem;
    atdchange: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    salary: TMenuItem;
    tcform: TMenuItem;
    sal_set: TMenuItem;
    N8: TMenuItem;
    N2: TMenuItem;
    account: TMenuItem;
    per_adjust: TMenuItem;
    N3: TMenuItem;
    sal_kind: TMenuItem;
    sal_all: TMenuItem;
    sal_day: TMenuItem;
    sal_month: TMenuItem;
    sal_remove: TMenuItem;
    N33: TMenuItem;
    N37: TMenuItem;
    sal_total: TMenuItem;
    N9: TMenuItem;
    N4: TMenuItem;
    N1: TMenuItem;
    bank: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N7: TMenuItem;
    A1: TMenuItem;
    N17: TMenuItem;
    common: TMenuItem;
    company_comm: TMenuItem;
    company_basic: TMenuItem;
    company_country: TMenuItem;
    company_area: TMenuItem;
    company_dept: TMenuItem;
    company_orga: TMenuItem;
    company_celendar: TMenuItem;
    company_dept_celendar: TMenuItem;
    personal_comm: TMenuItem;
    personal_prof: TMenuItem;
    personal_level: TMenuItem;
    personal_province: TMenuItem;
    personal_edu: TMenuItem;
    personal_kind: TMenuItem;
    personal_spec: TMenuItem;
    personal_visa: TMenuItem;
    personal_people: TMenuItem;
    personal_foreign: TMenuItem;
    atd_comm: TMenuItem;
    atd_clockset: TMenuItem;
    atd_basic: TMenuItem;
    atd_sche: TMenuItem;
    atd_ask_kind: TMenuItem;
    atd_ask_course: TMenuItem;
    atd_leavekind: TMenuItem;
    atd_leavereason: TMenuItem;
    atd_stopreason: TMenuItem;
    jcreason: TMenuItem;
    sal_comm: TMenuItem;
    sal_basic: TMenuItem;
    N6: TMenuItem;
    commonpara: TMenuItem;
    password_set: TMenuItem;
    password_change: TMenuItem;
    Helpmenu: TMenuItem;
    windows: TMenuItem;
    Outlook2: TMenuItem;
    view_hide: TMenuItem;
    N26: TMenuItem;
    tileshow: TMenuItem;
    cascadeshow: TMenuItem;
    help_online: TMenuItem;
    N41: TMenuItem;
    Year: TMenuItem;
    Calculator: TMenuItem;
    N27: TMenuItem;
    output: TMenuItem;
    TXT1: TMenuItem;
    N18: TMenuItem;
    N28: TMenuItem;
    PASA1: TMenuItem;
    data_base: TMenuItem;
    backup_data: TMenuItem;
    restore_data: TMenuItem;
    companyname: TMenuItem;
    N111: TMenuItem;
    about: TMenuItem;
    factory: TMenuItem;
    room: TMenuItem;
    card: TMenuItem;
    door: TMenuItem;
    meal: TMenuItem;
    insurance: TMenuItem;
    labor: TMenuItem;
    medicine: TMenuItem;
    education: TMenuItem;
    empoly: TMenuItem;
    N32: TMenuItem;
    N36: TMenuItem;
    N38: TMenuItem;
    N39: TMenuItem;
    N40: TMenuItem;
    N42: TMenuItem;
    N43: TMenuItem;
    N44: TMenuItem;
    N45: TMenuItem;
    N46: TMenuItem;
    N47: TMenuItem;
    N48: TMenuItem;
    N49: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    N50: TMenuItem;
    N51: TMenuItem;
    scExcelExport1: TscExcelExport;
    N52: TMenuItem;
    N53: TMenuItem;
    N54: TMenuItem;
    N55: TMenuItem;
    N56: TMenuItem;
    N57: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure Outlook1ItemClick(Sender: TObject; Item: String);
    procedure YearClick(Sender: TObject);
    procedure CalculatorClick(Sender: TObject);
    procedure view_outlookClick(Sender: TObject);
    procedure view_hideClick(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure companynameClick(Sender: TObject);
    procedure aboutClick(Sender: TObject);
    procedure company_basicClick(Sender: TObject);
    procedure company_countryClick(Sender: TObject);
    procedure company_deptClick(Sender: TObject);
    procedure company_orgaClick(Sender: TObject);
    procedure company_celendarClick(Sender: TObject);
    procedure personal_profClick(Sender: TObject);
    procedure sal_styleClick(Sender: TObject);
    procedure per_basicClick(Sender: TObject);
    procedure per_leaveClick(Sender: TObject);
    procedure atd_ask_kindClick(Sender: TObject);
    procedure atd_basicClick(Sender: TObject);
    procedure atd_scheClick(Sender: TObject);
    procedure atd_clockClick(Sender: TObject);
    procedure per_rewardClick(Sender: TObject);
    procedure changescheClick(Sender: TObject);
    procedure atd_readClick(Sender: TObject);
    procedure atd_handleClick(Sender: TObject);
    procedure atd_atddataClick(Sender: TObject);
    procedure per_moveClick(Sender: TObject);
    procedure per_adjustClick(Sender: TObject);
    procedure per_stopClick(Sender: TObject);
    procedure atd_overtimeClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure atd_continueClick(Sender: TObject);
    procedure atd_leaveClick(Sender: TObject);
    procedure changeschementClick(Sender: TObject);
    procedure company_dept_celendarClick(Sender: TObject);
    procedure per_methodClick(Sender: TObject);
    procedure atd_originaldataClick(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure cardClick(Sender: TObject);
    procedure company_areaClick(Sender: TObject);
    procedure roomClick(Sender: TObject);
    procedure atdchangeClick(Sender: TObject);
    procedure sal_smallClick(Sender: TObject);
    procedure phrase_setClick(Sender: TObject);
    procedure rule_setClick(Sender: TObject);
    procedure sal_basicClick(Sender: TObject);
    procedure quitClick(Sender: TObject);
    procedure logoutClick(Sender: TObject);
    procedure newreportClick(Sender: TObject);
    procedure sal_removeClick(Sender: TObject);
    procedure sal_totalClick(Sender: TObject);
    procedure tileshowClick(Sender: TObject);
    procedure cascadeshowClick(Sender: TObject);
    procedure help_onlineClick(Sender: TObject);
    procedure accountClick(Sender: TObject);
    procedure ApplicationEvents1Message(var Msg: tagMSG;
      var Handled: Boolean);
    procedure FormShow(Sender: TObject);
    procedure outputClick(Sender: TObject);
    procedure piesetClick(Sender: TObject);
    procedure commonparaClick(Sender: TObject);
    procedure password_setClick(Sender: TObject);
    procedure password_changeClick(Sender: TObject);
    procedure atd_clocksetClick(Sender: TObject);
    procedure laborClick(Sender: TObject);
    procedure FormKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure N2Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure PASA1Click(Sender: TObject);
    procedure D1Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure autoreadClick(Sender: TObject);
    procedure autoprocessClick(Sender: TObject);
    procedure backup_dataClick(Sender: TObject);
    procedure restore_dataClick(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure N28Click(Sender: TObject);
    procedure N29Click(Sender: TObject);
    procedure N34Click(Sender: TObject);
    procedure N35Click(Sender: TObject);
    procedure Outlook2Click(Sender: TObject);
    procedure N39Click(Sender: TObject);
    procedure N40Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure TXT1Click(Sender: TObject);
    procedure tcformClick(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure A1Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure bankClick(Sender: TObject);
    procedure N36Click(Sender: TObject);
    procedure N38Click(Sender: TObject);
    procedure N44Click(Sender: TObject);
    procedure N46Click(Sender: TObject);
    procedure N47Click(Sender: TObject);
    procedure N48Click(Sender: TObject);
    procedure N49Click(Sender: TObject);
    procedure mealClick(Sender: TObject);
    procedure N32Click(Sender: TObject);
    procedure doorClick(Sender: TObject);
    procedure N30Click(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure N50Click(Sender: TObject);
    procedure N51Click(Sender: TObject);
    procedure N53Click(Sender: TObject);
    procedure N55Click(Sender: TObject);
    procedure N57Click(Sender: TObject);
  private
    { Private declarations }
    OutCanvas: TCanvas;
    OldWinProc, NewWinProc: Pointer;
    procedure showimage (var Msg: TMessage);  //显示主窗体的背景画
  public
    form,sql,labe:string;
    { Public declarations }
    procedure connectsql;   //显示主窗体时，再一次联接sql server中的pasa
    procedure displayhint(sender:TObject);  //在状态栏中显示控件的hint
    procedure login;     //初始化菜单项
    procedure wmsystemcommand(var MSG:TWMSysCommand); message WM_SysCommand;
    procedure ExportData(Table:TDataset);
    procedure menuenable(menuname,parentname,subparentname:string);
    function tablerecord(dataset:TDataset):integer;
    function Gettablename(sql:String):string;
    procedure publicfind;   //共用查找  F3快捷键
    procedure inidesktop(Section:String);   //自定喜好桌面
    Procedure SavedefaultDesktop;   //保存自定的喜好桌面
    procedure showbackground;

  end;

var
  formmain: Tformmain;
  pubworkname:string;    //操作员名称
  pubworkno,fmat:string;      //操作员代号
  server,database,sqluser,sqlpass:string;//服务器名称、数据库名称
  language:String;       //当前使用何种语言
  default:integer;
  worknolong:integer;
  cardnolong:integer;
  computername:string;   //电脑名
  atd:string;            //考勤资料还是打卡原始资料
  sal:integer;           //执行员工预借现金，绩效奖金，年节奖金，生产奖金，年终奖金维护
  sal_cal:integer;       //以何种方式计算薪资：日月薪免卡计件全部
  Reg:TRegistry;
  beforedecafter:string; // 奖惩就否为前功抵後过
  dismissdot:integer;    //超过点点要开除
  companyname1:string;
  ReportI:integer;       //用来标识对那个Table进行报表自定义
  colorphoto:boolean;    //用来区分底图显示图还是显示颜色
  screencount,screentime,screenint:integer;   //用来计时以便启动屏幕保护,Screentime为设定的计时数,screenint为显示图片的时间间隔
  screenpic,screendir:string;      //屏幕保护所用到的图片
  sresult:TClipboard;    //存放共用查找资料
  U_Right:PUserRight; //使用者权限记录
  FuncList:TList;  //记录当前使用者的所有权限资料
  menuname:string; //当前点击的菜单名，对应权限用
  formname:TForm;  //当前点击菜单对应的窗体名

implementation

uses year,datamol,security,frmpassword, historyfile,door,
     changepass, about, formcompany, formctycode, formdepatment,
  formdeptchart, formcomrec, formzonghe, formsalkind, formperson,
  formdismiss1, activeset, atdset, schebrow, atd_clockset,
  jiangchen, changesche, readrecord, atddata, publicparameter,
  profmove, raisepay, stoppay, overtime,  ask, changebc,