}
( m) 保存文件函数 { i; *;
(((\ {
(\ \\n\ (0); }
(0<) 将内存中职工的信息输出到磁盘文件中去 (([i]( ),1)1) (\ \\n\ (); }
() 导入函数 {
*; 0;
(((\ {
(\ \\n\ (0); } { {
([i]( ),1); ; } (()0); } ();
(1)循环过程中跳出循环时i自动加一,所以要减去一 }
() 浏览函数 {
i; ();
(\ 职工号姓名性别年龄学历工资住址电话 \\n\ (0<) 为输入部分的职工人数
(\ \\n\ [i][i][i][i][i]); }
() 删除函数 { ; {
(\按职工号删除请按1; 按姓名删除请按2; 进入主函数请按3\\n\ (\
(t>=1<=3) { 1; ; }
{ 0;
(\您输入有误,请重新选择!\ } }
(0); (1) {
(t) {
1(\按职工号删除\\n\ 2(\按姓名删除\\n\ 3(); ; } } }
() 按姓名删除函数 {
(); ; [20];
(\原来的职工信息:\\n\ (); 调用浏览函数 (\
(\请输入要删除的职工的姓名:\\n\ (\ (10<) {
(([i])0) {
(\已找到此人,原始记录为:\\n\
(\ 职工号姓名性别年龄学历工资住址电话 \\n\ (\ \\n\ [i][i][i][i][i]);
(\确实要删除此人信息请按1,不删除请按0\\n\ (\
(1) {
(<1) {
([j][1])(12)把2指向的字符串复制到1中去 [j][1]; [j][1]; [j][1]; ([j][1]); [j][1]; ([j][1]);
([j][1])把下一员工的信息复制到上一个员工信息的位置中去 } 0; } } }
() 取逻辑反,及0 1;
(\对不起,查无此人!\\n\
(\浏览删除后的所有职工信息:\\n\ (m); 调用保存函数 (); 调用浏览函数
(\不在删除请按0, 返回删除菜单请按1,继续按姓名删除请按2\\n\ (\
(t) { 0(); 1:del(); 2; ; } }
() 按职工号删除函数 { (); ; ;
(\原来的职工信息:\\n\ (); 调用浏览函数 (\
(\请输入要删除的职工的职工号:\\n\ (\ (10<) { ([i]) {
(\已找到此人,原始记录为:\\n\
(\ 职工号姓名性别年龄学历工资住址电话 \\n\ (\ \\n\ [i][i][i][i][i]);
(\确实要删除此人信息请按1,不删除请按0\\n\ (\
(1) {
(<1) {
([j][1])(12)把2指向的字符串复制到1中去 [j][1]; [j][1]; [j][1]; ([j][1]); [j][1]; ([j][1]);
([j][1])把下一员工的信息复制到上一个员工信息的位置中去 } 0;
相关推荐: