有没有大神帮小弟看一下的

[大类比]

功能要求：
⑴ 档案管理
① 保存有关工资计算以及工资管理所必须的数据
② 能对各种数据进行插入、修改、删除等操作
③ 能对数据进行查询、统计
⑵ 工资计算
① 正确计算出个人月工资、部门月工资以及全厂月工资。
② 能对病假扣款系数进行修正。
③ 能打印输出工资计算表、个人工资单、部门工资单、工资汇总表四种表格。
1.3 数据要求：
⑴ 每个职工的各种数据分为三类：
① 职工的代号、姓名、性别、出生日期、参加工作日期、所属部门、人员类别、工种职别、技术等级、技术职称、文化程度、民族、籍贯、现住址。
② 职工的基本工资、岗位津贴、物价补贴、职务津贴、住房补贴、房租。
③ 职工的出勤日数、公伤日数、产假日数、病假日数、旷工日数、事假日数、加班日数、夜班日数、病假系数。
⑵ 工资单数据：
本月基本工资、岗位津贴、物价补贴、职务津贴、住房补贴、加班费、夜班费、房租、病假扣款、事假扣款、旷工扣款、其它扣款、实发工资。

上面是要求，下面是小弟写的一些基本代码，有没有大神能按照要求帮小弟完善一下下面的代码，谢谢了，给个思路或者建议或者私信我交流都可以，很棘手！
（1）“增加新记录”按钮控件源代码：
thisform.pageframe1.page1.fy1.enabled=.F.
thisform.pageframe1.page1.command2.enabled=.F.
thisform.pageframe1.page1.command3.enabled=.F.
thisform.pageframe1.page1.command4.enabled=.T.
if thisform.pageframe1.page1.command1.caption='增加新记录'
thisform.pageframe1.page1.txtpid.enabled=.T.
thisform.pageframe1.page1.txtpname.enabled=.T.
thisform.pageframe1.page1.txtpsex.enabled=.T.
thisform.pageframe1.page1.txtpjob.enabled=.T.
thisform.pageframe1.page1.txtpindate.enabled=.T.
thisform.pageframe1.page1.txtprank.enabled=.T.
append blank
thisform.pageframe1.page1.command1.caption='增加确认'
thisform.pageframe1.page1.refresh
thisform.pageframe1.page1.txtpid.setfocus
else
getid=alltrim(thisform.pageframe1.page1.txtpid.value)
getname=alltrim(thisform.pageframe1.page1.txtpname.value)
getsex=alltrim(thisform.pageframe1.page1.txtpsex.value)
getjob=alltrim(thisform.pageframe1.page1.txtpjob.value)
getindate=alltrim(thisform.pageframe1.page1.txtpindate.value)
getrank=alltrim(thisform.pageframe1.page1.txtprank.value)
if empty(getid) or empty(getname) or empty(getsex) or empty(getjob) or empty(getindate) or empty(getrank)
messagebox("资料不足",48,"错误")
else
thisform.pageframe1.page1.command1.caption='增加新记录'
tableupdate(.t.)
thisform.pageframe1.page1.txtpid.enabled=.F.
thisform.pageframe1.page1.txtpname.enabled=.F.
thisform.pageframe1.page1.txtpsex.enabled=.F.
thisform.pageframe1.page1.txtpjob.enabled=.F.
thisform.pageframe1.page1.txtpindate.enabled=.F.
thisform.pageframe1.page1.txtprank.enabled=.F.
thisform.pageframe1.page1.fy1.enabled=.T.
thisform.pageframe1.page1.command2.enabled=.T.
thisform.pageframe1.page1.command3.enabled=.T.
thisform.pageframe1.page1.command4.enabled=.F.
endif
endif
（2）“修改这条记录”按钮控件源代码：
thisform.pageframe1.page1.command1.enabled=.F.
thisform.pageframe1.page1.command3.enabled=.F.
thisform.pageframe1.page1.command4.enabled=.T.
thisform.pageframe1.page1.fy1.enabled=.F.
if thisform.pageframe1.page1.command2.caption='修改这条记录'
thisform.pageframe1.page1.txtpid.enabled=.T.
thisform.pageframe1.page1.txtpname.enabled=.T.
thisform.pageframe1.page1.txtpsex.enabled=.T.
thisform.pageframe1.page1.txtpjob.enabled=.T.
thisform.pageframe1.page1.txtpindate.enabled=.T.
thisform.pageframe1.page1.txtprank.enabled=.T.
thisform.pageframe1.page1.command2.caption='修改确认'
thisform.pageframe1.page1.refresh
thisform.pageframe1.page1.txtpid.setfocus
else
thisform.pageframe1.page1.command2.caption='修改这条记录'
tableupdate(.t.)
thisform.pageframe1.page1.txtpid.enabled=.F.
thisform.pageframe1.page1.txtpname.enabled=.F.
thisform.pageframe1.page1.txtpsex.enabled=.F.
thisform.pageframe1.page1.txtpjob.enabled=.F.
thisform.pageframe1.page1.txtpindate.enabled=.F.
thisform.pageframe1.page1.txtprank.enabled=.F.
thisform.pageframe1.page1.command1.enabled=.T.
thisform.pageframe1.page1.command3.enabled=.T.
thisform.pageframe1.page1.command4.enabled=.F.
thisform.pageframe1.page1.fy1.enabled=.T.
endif

“查询”按钮控件源代码：
getpid=alltrim(thisform.pageframe1.page2.text1.value)
getpname=alltrim(thisform.pageframe1.page2.text2.value)
flag1=thisform.pageframe1.page2.check1.value
flag2=thisform.pageframe1.page2.check2.value
if flag1=0 and flag2=0
messagebox("请输入查询条件",48,"错误")
endif
if flag1=1 and flag2=0
set order to pid
seek getpid
if found()
messagebox("查到记录",48,"注意")
select * from personnel where pid=getpid into cursor ling
thisform.pageframe1.page3.enabled=.T.
thisform.pageframe1.page3.refresh
else
messagebox("没有这条记录",48,"注意")
endif
endif
if flag1=0 and flag2=1
set order to pname
seek getpname
if found()
messagebox("查到记录",48,"注意")
select * from personnel where pname=getpname into cursor ling
thisform.pageframe1.page3.enabled=.T.
thisform.pageframe1.page3.refresh
else
messagebox("没有这条记录",48,"注意")
endif
endif
if flag1=1 and flag2=1
set order to pid
seek getpid
if personnel.pname=getpname
messagebox("查到记录",48,"注意")
select * from personnel where pid=getpid and pname=getpname into cursor ling
thisform.pageframe1.page3.enabled=.T.
thisform.pageframe1.page3.refresh
else
messagebox("没有这条记录",48,"注意")
endif
endif

“修改”按钮控件源代码：
thisform.grdrank.column1.text1.enabled=.T.
thisform.grdrank.column2.text1.enabled=.T.
thisform.grdrank.column1.text1.setfocus
“修改确认”按钮控件源代码：
thisform.grdrank.column1.text1.enabled=.F.
thisform.grdrank.column2.text1.enabled=.F.
“添加”按钮控件源代码：
append blank
go bottom
thisform.grdrank.column1.text1.enabled=.T.
thisform.grdrank.column2.text1.enabled=.T.
thisform.grdrank.column1.text1.setfocus
“删除”按钮控件源代码：
thisform.grdrank.recordsource=''
use rank exclusive
delete from rank where rname=getid
pack
thisform.grdrank.recordsource='rank'
thisform.grdrank.refresh
“退出”按钮控件源代码：
thisform.release
do form form\dataformat

[张自强]

这个自己搞下就好了，都写的很清楚了。 都看不懂你这个代码是什么语言写的。 www.tools138.com这里有几个项目源码你参考下

[teemai]

你这是什么源代码！？

[其实我是真性情]

引用 1 楼 huxiweng 的回复:

你这是什么源代码！？

课程设计源代码！

[酷酷啦啦xsx]

高端大气上档次啊，新手精神支持你

[Fish--]

你的难点在哪？你的思路清晰否？API都懂嘛？ 代码上的东西，基本百度都能自己解决，主要是你自己画画流程图，把整个思路理清楚了。 流程图有了，再看看代码结构怎么设计。 这样问，我是不想回答。太花时间了。

[快乐的小呆]

一堆东西不明觉厉，乱七八糟，没勇气看完。。。没找到重点