vb课程设计 职工工资管理系统代码(共3篇)
vb课程设计 职工工资管理系统代码 篇1
Load Form2
Form2.Show
Me.Hide
MsgBox “登陆成功,欢迎您进入职工工资管理系统”, vbInformation, “登陆成功”
Else
errorCount = errorCount + 1
If errorCount < 3 Then
MsgBox “用户名或密码错误(第” & errorCount & “次)!”, vbOKOnly + vbExclamation, “登陆失败”
Text1.SetFocus
End If
If errorCount >= 3 Then
Text1.Enabled = False
Text2.Enabled = False
Command1.Enabled = False
MsgBox “三次输入用户名或密码错误,程序将自动退出!”, vbOKOnly + vbExclamation, “登陆失败”
End
End If End If
End Sub
Private Sub Command2_Click()Unload Me End Sub
Private Sub Form_Load()errorCount = 0 End Sub
Private Sub Form_Unload(Cancel As Integer)If MsgBox(“是否要退出程序?”, vbYesNo, “退出提示”)= vbNo Then
Cancel = 1 End If End Sub
For i = 1 To jlNum
ygList(i).shifagongzi =(CSng(ygList(i).jibengz)+ ygList(i).gerensui
CSng(ygList(i).jingtie)
ygList(y).shifagongzi = ygList(zuishao).shifagongzi ygList(zuishao).shifagongzi = linShi.shifagongzi End If Next loadData End Sub
Private Sub Command5_Click()Dim linShi As YuanGong
linShi.ygnamg = InputBox(“请输入要添加的姓名”, “添加员工-姓名录入”)If Len(Trim(linShi.ygnamg))> 0 Then
linShi.jibengz = InputBox(“请输入添加员工的基本工资”, “添加员工-基本工资录入”)
If Len(Trim(linShi.jibengz))> 0 Then
linShi.jingtie = InputBox(“请输入添加员工的津贴”, “添加员工-津贴录入”)
If Len(Trim(linShi.jingtie))> 0 Then
linShi.gerensui = InputBox(“请输入添加员工的个人所得税”, “添加员工-个税录入”)
If Len(Trim(linShi.gerensui))> 0 Then
linShi.suidianfei = InputBox(“请输入添加员工的水电费”, “添加员工-水电费录入”)
If Len(Trim(linShi.suidianfei))> 0 Then
Open filedir For Append As #1
Write #1, linShi.ygnamg;linShi.jibengz;linShi.jingtie;linShi.gerensui;linShi.suidianfei
Close #1
MsgBox “添加员工成功!”, vbOKOnly + vbInformation, “成功”
jlNum = 0 If Len(Trim(filedir))> 0 Then
Open filedir For Input As #1
Do While Not EOF(1)
Line Input #1, a
If Len(Trim(a))> 0 Then
jlNum = jlNum + 1
End If
Loop
Close #1
ReDim Preserve ygList(jlNum)As YuanGong
jlNum = 0
Open filedir For Input As #1
Do While Not EOF(1)
jlNum = jlNum + 1
Input #1, ygList(jlNum).ygnamg
Input #1, ygList(jlNum).jibengz
Input #1, ygList(jlNum).jingtie
Next
Close #1
MsgBox “删除员工成功!”, vbOKOnly + vbInformation, “成功”
jlNum = 0 If Len(Trim(filedir))> 0 Then
Open filedir For Input As #1
Do While Not EOF(1)
Line Input #1, a
If Len(Trim(a))> 0 Then
jlNum = jlNum + 1
End If
Loop
Close #1
ReDim ygList(jlNum)As YuanGong
jlNum = 0
Open filedir For Input As #1
Do While Not EOF(1)
jlNum = jlNum + 1
Input #1, ygList(jlNum).ygnamg
Input #1, ygList(jlNum).jibengz
Input #1, ygList(jlNum).jingtie
Input #1, ygList(jlNum).gerensui
Input #1, ygList(jlNum).suidianfei
Loop
Close #1
loadData
Command2.Enabled = True
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = True
Command6.Enabled = True End If
Text1.Text = “姓名” & vbTab & “工资” & vbTab & “津贴” & vbTab & “所得税” & vbTab & “水电费” & vbCrLf
For i = 1 To jlNum
Text1.Text = Text1.Text & ygList(i).ygnamg & vbTab & ygList(i).jibengz & vbTab & ygList(i).jingtie & vbTab & ygList(i).gerensui & vbTab & ygList(i).suidianfei & vbCrLf
Next Else
MsgBox “删除员工失败!”, vbOKOnly + vbExclamation, “失败” End If End Sub
vb课程设计 职工工资管理系统代码 篇2
关键词:军队职工,绩效工资,收入分配
2006年总后勤部发布《军队机关事业单位职工收入分配制度改革实施意见》, 提出要大力推进军队事业单位工资制度改革, 按照“先套工资、后改制度、整体设计、逐步到位”的思路, 理顺分配关系, 建立与岗位职责、工作业绩、实际贡献紧密联系的收入分配制度。《意见》明确军队机关事业单位职工实行岗位绩效工资制度, 岗位绩效工资由岗位工资、薪级工资、绩效工资和津贴补贴四部分组成。
一、基于KPI绩效管理的绩效工资内涵
绩效工资又称绩效加薪、奖励工资 (Merit pay) 或与评估挂钩的工资 (Appraisal related pay) , 是以职工被聘上岗的工作岗位为主, 根据岗位技术含量、责任大小、劳动强度和环境优劣确定岗级, 主要体现职工工作业绩和实际贡献, 以经济效益和劳动力价位确定工资总量, 以职工的劳动成果为依据支付劳动报酬, 是劳动制度、人事制度与工资制度密切结合的工资制度, 是军队机关事业单位职工进行激励的重要手段。计算绩效工资的方法有很多, 对我军建设和工资制度改革最具借鉴意义的是KPI考核制。
关键绩效指标法 (Key Performance Indicator, KPI) , 它把对绩效的评估简化为对几个关键指标的考核, 将关键指标当作评估标准, 把职工的绩效与关键指标作出比较地评估方法, 在一定程度上可以说是目标管理法与帕累托定律的有效结合。关键指标必须符合SMART原则:具体性 (Specific) 、衡量性 (Measurable) 、可达性 (Attainable) 、相关性 (Relevant) 、时限性 (Timebased) 。彭剑锋在《人力资源管理概论》一书中提出“关键绩效指标是指企业宏观战略目标决策经过层层分解产生的可操作性的战术目标, 是宏观战略决策执行效果的监测指针。”由此可以得出, 关键业绩指标是促进并检测企业宏观战略决策执行效果的一种绩效考评工具, 基于关键业绩指标的绩效管理体系是在对工作流程进行分析的基础上, 它通过把企业战略目标和使命转化为战术目标, 再将战术目标分解至各岗位, 形成绩效目标, 在此基础上设定实现这些目标的关键业绩指标, 并以此为考评工具对职工进行绩效考评及为实现绩效目标而进行的一系列有关沟通、反馈、改进的过程, KPI绩效管理的绩效工资就是据此指标计算职工个人的绩效工资。
二、KPI绩效工资实施的原则
1. 实施的基本原则是要以人为本。
以人为本, 就是要推进职工个人的全面发展, 真正把职工放在军队主体地位, 实现好、维护好、发展好广大职工的利益, 坚持以人为本, 是构建和谐军营的必然选择;坚持以人为本, 才能更好地处理职工内部矛盾, 才能更好地激发职工的创造力。总之在绩效工资设计时只有坚持以人为本原则, 在设计时既要考虑岗位的职责和重要性, 又要体现不同绩效获得不同报酬, 才能激励广大职工工作的积极性和主动性, 才能真正实现军队和职工自身的和谐发展。
2. 体现军队职工职业特点。
军队职工是不穿军装的“军人”, 所从事的是特殊行业的社会劳动, 部分职工常年在艰苦、边远、高山、海岛的地方, 从事着高强度、高消耗的劳动。因此, 在确定职工绩效工资的时候必须给予充分的考虑和倾斜, 向长期工作在艰苦地区和急、难、险、重的岗位倾斜。
三、KPI考核基本步骤
1. 前期阶段获得单位广大职工的支持并进行广泛动员。
基于KPI绩效考核模式是对原有的评价体系、评价方案进行全面变革, 在绩效考核全面展开之前, 首先要取得广大职工的支持, 只有他们支持, 才能保障项目方案的顺利实施;其次, 确定并培训考核者, 单位应根据考核要求并结合自身的组织结构、组织运行方式、各岗位的具体情况等来灵活确定各类各级岗位的考核者, 要对他们进行前馈式面谈、考核实施、沟通与积极聆听、反馈评价结果等技巧的培训。
2. 构建考核体系确定考核指标体系。
KPI指标主要分为定性和定量指标两大类。首先, 在明确单位的战略目标和组织业务重点的基础上, 确定出整个单位层面的KPI;其次, 根据部门关键成功因素, 各部门的主管依据单位级KPI建立部门级KPI, 并对相应部门的KPI进行分解, 确定实现目标的工作流程, 以便确定考核指标体系。最后, 使用“鱼骨图”分析法, 各部门的主管和相关人员根据不同职类职种的工作性质和岗位的工作产出, 将KPI进一步细分制定出具体岗位的KPI。
3. 实施考核绩效考核信息收集与记录。
让考核者填写关键事件记录卡来获取被考核者的信息, 使得在考核时有据可查, 这是进行绩效考核和持续绩效沟通的关键因素。
4. 举行绩效面谈和进行效果评价。
首先, 绩效反馈面谈一般情况下由直接分管领导或专业人员来负责。评价职工在工作业绩、工作行为等方面取得的进步, 对于那些值得肯定的业绩, 要鼓励其今后继续保持和自我突破。其次, 单位考核工作结束后, 还应对实施效果进行评价, 并与预期效果进行比较, 总结考核过程中的经验和不足, 不断完善KPI考核模式。
5. 依据考核结果计算绩效工资额度。
财务部门依据考核结果计算职工绩效工资额。
四、KPI绩效工资模型设计 (以某工厂为列, 以下简称L厂)
基本假设:职工工资结构采用调和性薪酬结构;职工岗位采取竞争上岗, 定岗定薪模式;N为L厂职工总人数;为人员类别系数, 按照《职工专业职业名称》分类方法, 将工人岗位分为通用类和特有类, 职员分为技术类和管理类;为部门类别系数, 将部门设为机关和基层两类;D为上级机关核定的绩效工资总量;E为基础性绩效工资, 基础性绩效选取为定额。
1. KPI指标选取。
月初, 车间职工根据部门工作任务和维修工序, 使用“鱼骨图”分析法将职工每月工作分解为表1, 机关职工按照部门实际工作任务, 同样分解为表1。
因某原因导致工作无法按计划进度完成, 需要填列表2。
因某原因需要增加临时工作任务量, 需填列表3。
2. KPI指标统计。
运用L厂信息管理系统, 自动统计职工KPI分值, 综合计算得出KPI权重系数K (xi…xn) 。
3. 职工工资模型。
采用调和性工资结构, 将绩效工资部分分为基础性绩效工资和奖励性绩效工资, 建立L厂职工绩效工资模型:
工资总额=岗位工资+薪级工资+绩效工资+津补贴
F (xi…xn) 为某职工工资总额, Z (xi) 为岗位工资, G (xi) 为薪级工资, J (xi) 为绩效工资, H (xi) 为津补贴
综上所述, 职工工资模型用函数表达为:
Z (xi) 、G (xi) 是经过科学论证后相对固定的, 为全军统一标准。从模型设计思路可以看出, 只要合理选取S (xi…xn) 与B (xi…xn) 系数、E额所占绩效工资比例以及KPI指标, 就能体现向一线员工倾斜, 也能实现不同工种的差异区别, 还能达到以岗定薪、易岗易薪的目的。因此, 绩效的考评是军队职工工资激励机制实行的前提和基础, 绩效考评的科学与否关系到整个职工激励机制的运行效果, 必须结合军队和单位特点, 合理选择KPI指标, 科学确定S (xi…xn) 和B (xi…xn) 系数。
五、实施KPI绩效工资应把握的问题
要做到三个避免。第一, 要避免考核沦为填表游戏。为实现考核指标的全面量化, 部分单位设计名目繁多的KPI指标, 在月末年终更是不辞辛劳地为每位职工计算各考核项的得分, 但从运行效果来看, 这种耗财费力的庞大考核工程为单位赢得的不是业绩的持续攀升, 而是考核者与被考核者的双重抱怨, 因为很多指标实在是没有客观资料可以拿来作为支撑;第二, 要避免职工价值观沦陷。KPI考核蕴含的是一种绩效管理思想, 而非一种绩效算分工具;第三, 要避免人际关系紧张, 核心人才外流。一般来说, 努力做事的人不一定善于“精心做人”, 对于工作能力比较强的核心技术人员来说, 特定的性格决定了他们“精心做人”的能力相对较弱, 所以在“算分”运动中未必能够讨得高分。
六、结束语
KPI绩效工资实施也有其局限性, 岗位聘任是基础, 绩效评价是关键, 尚有诸多问题需要在实践中不但探索。总之, 职工收入分配制度改革, 要按照总部《军队机关事业单位职工收入分配制度改革实施意见》要求, 只有从军队改革和发展实际出发, 建立符合军队性质和特点的、以岗位绩效工资为主体的收入分配制度, 将工资管理纳入事业单位人力资源管理系统, 形成有利于吸引人才、稳定人才、用好人才、灵活多样和科学规范的收入分配激励机制, 才能真正实现预期改革目标。
参考文献
[1]江书立等.人事劳动工作实践与探索[C].成都:成都军区空军后勤部司令部, 2007
[2]绩效工资[DB/OL].http://baike.baidu.com/view/1092533.htm
[3]关键绩效指标法[DB/OL].http:/wenku.baidu.com/view/cbca368071fe910ef12df8a0.html
[4]吴新珍.高校教师绩效工资模式与特点.南京:江苏高教[J].2010 (1) :101
[5]古银华.“360°+KPI+优势分析”绩效考核模式.社会科学家[J]2009 (12) :124
[6]孙延东等.军人工资福利待遇研究.军事科学出版社[M].2007
vb课程设计 职工工资管理系统代码 篇3
int number;//航班号
int Number;//飞机号
int week;//星期几飞行
int day;//日期
int left;//余票额
int n;//与数组flag一起确定客户订票状态 public:
int flag[20];//订票状态数组,-1为预订票,1为已定票,0为初始化状态
Plane()//构造函数
{
name[0]=';
number=0;
Number=0;
week=0;
day=0;
left=M;
n=0;//数组从0开始计数
for(int i=0;i<20;i++)
flag[i]=0;} void init()//初始化每种飞机票
{
cout<<“请输入终点站名:”;
cin>>name;
cout<<“请输入航班号:”;
cin>>number;
cout<<“请输入飞机号:”;
cin>>Number;
cout<<“请输入星期几飞行:”;
cin>>week;
cout<<“请输入航班的日期:”;
cin>>day;} ~Plane(){};//析构函数 char *getname(){return name;}//获得终点站名
int getnumber(){return number;}//获得航班号
int getNumber(){return Number;}//获得飞机号
int getweek(){return week;}//获得星期几飞行
int getday(){return day;}//获得日期
int getleft(){return left;}//获得余票额
int getn(){return n;}//获得旅客数目
void inleft(int n){left=left+n;}//余票额增加函数
void deleft(int n){left=left-n;}//余票额减少函数
void inn(){n++;}//旅客数目增加函数 };Plane pl[N];int showmenu();//菜单函数 void start();//初始化函数 void query();//查询函数 void make();//订票函数 void back();//退票函数 int main(){ cout<<“这是民航售票处的计算机系统程序”< int choice; choice=showmenu(); switch(choice) { case 1:query();break; case 2:make();break; case 3:back();break; case 0:return 0; default:cout<<“你敲错了!n”; } } return 0;} int showmenu(){ int ch;cout< pl[i].init(); cout< if(strcmp(name,pl[i].getname())==0) { num++; cout<<“航班号:”< cout<<“飞机号:”< cout<<“星期:”< cout<<“航班日期:”< cout<<“余票额:”< break; } if(num==0) cout<<“没有此航班”< if(number==pl[i].getnumber()) { num++; if(n<=pl[i].getleft()) { cout<<“此航班有票”< pl[i].deleft(n); pl[i].inn(); pl[i].flag[pl[i].getn()]=1; for(i=0;i { cout<<“座位号”; cin>>sitnumber; } } else { cout<<“余票额少于订票额,请重新输入订票数额,”<<“订票数额应该少于或等于”< cin>>nu; if(nu<=pl[i].getleft()) { cout<<“此航班有票”< pl[i].deleft(nu); pl[i].inn(); pl[i].flag[pl[i].getn()]=1; for(i=0;i { cout<<“座位号”; cin>>sitnumber; } } else { cout<<“是否需要预约”< cout<<“是(1) 否(2)”< cin>>ch; switch(ch) { case 1:pl[i].inn();pl[i].flag[pl[i].getn()]=-1;break; case 2:break; default:cout<<“你敲错了!”< } } } } if(num==0) cout<<“没有此航班”< cout<<“请输入日期:”;cin>>day;cout<<“请输入航班:”;cin>>number;for(int i=0;i if((day==pl[i].getday())&&(number==pl[i].getnumber()))//日期与航班是否满足 { num++;//日期与航班满足 cout<<“输入退票数目”; cin>>n; cout<<“退票成功”< pl[i].inleft(n);//该种飞机票增加,即已退票 for(int j=0;j<=pl[i].getn();j++)//顺序查询客户订票状态 { if(pl[i].flag[j]==-1)//客户是否为预定状态 { cout<<“有预约订票,请输入订票数额:”; cin>>nu; if(nu<=pl[i].getleft())//余票额是否满足要求 { cout<<“此航班有票”< pl[i].flag[j]=1; cout<<“订票成功”< pl[i].deleft(nu); for(int k=0;k { } cout<<“座位号”<<“ ”; cin>>sitnumber; } cout<<“余票额为”< } } else cout<<“没有预约订票!”<<“余票额为”< 【vb课程设计 职工工资管理系统代码】推荐阅读: VB学生成绩管理系统课程设计报告07-01 工资管理系统课程设计04-17 C语言课程设计——飞机订票系统源代码08-29 vb课程设计05-16 VB 课程设计09-13 课程设计职工管理系统05-22 编译原理课程设计代码05-21 vb课程设计实验报告08-21 软件工程课程设计代码07-07 c语言课程设计代码09-12