家庭财务管理小程序 - 廖先生工控博客工控论坛

廖先生

学历：大学专科

职称：技术员

年龄：37岁

新闻信息(0/0)

工作图片(0)

技术论文(0/0)

交流论坛(1/2)

留言信箱(0)

浏览人次：1954

发表人：liaoxun

发表时间：2007/12/14 22:03:00

发表新论题

本栏论题：

家庭财务管理小程序 [2738]

    /*money management system*/
    　　#include "stdio.h"
    　　#include "dos.h"
    　　main()
    　　{
    　　FILE *fp;
    　　struct date d;
    　　float sum,chm=0.0;
    　　int len,i,j=0;
    　　int c;
    　　char ch[4]="",ch1[16]="",chtime[12]="",chshop[16],chmoney[8];
    　　pp: clrscr();
    　　sum=0.0;
    　　gotoxy(1,1);printf("|---------------------------------------------------------------------------|");
    　　gotoxy(1,2);printf("| money management system(C1.0) 2000.03 |");
    　　gotoxy(1,3);printf("|---------------------------------------------------------------------------|");
    　　gotoxy(1,4);printf("| -- money records -- | -- today cost list -- |");
    　　gotoxy(1,5);printf("| ------------------------ |-------------------------------------|");
    　　gotoxy(1,6);printf("| date: -------------- | |");
    　　gotoxy(1,7);printf("| | | | |");
    　　gotoxy(1,8);printf("| -------------- | |");
    　　gotoxy(1,9);printf("| thgs: ------------------ | |");
    　　gotoxy(1,10);printf("| | | | |");
    　　gotoxy(1,11);printf("| ------------------ | |");
    　　gotoxy(1,12);printf("| cost: ---------- | |");
    　　gotoxy(1,13);printf("| | | | |");
    　　gotoxy(1,14);printf("| ---------- | |");
    　　gotoxy(1,15);printf("| | |");
    　　gotoxy(1,16);printf("| | |");
    　　gotoxy(1,17);printf("| | |");
    　　gotoxy(1,18);printf("| | |");
    　　gotoxy(1,19);printf("| | |");
    　　gotoxy(1,20);printf("| | |");
    　　gotoxy(1,21);printf("| | |");
    　　gotoxy(1,22);printf("| | |");
    　　gotoxy(1,23);printf("|---------------------------------------------------------------------------|");
    　　i=0;
    　　getdate(&d);
    　　sprintf(chtime,"M.d.d",d.da_year,d.da_mon,d.da_day);
    　　for(;;)
    　　{
    　　gotoxy(3,24);printf(" Tab __browse cost list Esc __quit");
    　　gotoxy(13,10);printf(" ");
    　　gotoxy(13,13);printf(" ");
    　　gotoxy(13,7);printf("%s",chtime);
    　　j=18;
    　　ch[0]=getch();
    　　if(ch[0]==27)
    　　break;
    　　strcpy(chshop,"");
    　　strcpy(chmoney,"");
    　　if(ch[0]==9)
    　　{
    　　mm:i=0;
    　　fp=fopen("home.dat","r+");
    　　gotoxy(3,24);printf(" ");
    　　gotoxy(6,4);printf(" list records ");
    　　gotoxy(1,5);printf("|-------------------------------------|");
    　　gotoxy(41,4);printf(" ");
    　　gotoxy(41,5);printf(" |");
    　　while(fscanf(fp,"ss%f/n",chtime,chshop,&chm)!=EOF)
    　　{ if(i==36)
    　　{ getch();
    　　i=0;}
    　　if ((i6)<17)
    　　{ gotoxy(4,6+i);
    　　printf(" ");
    　　gotoxy(4,6+i);}
    　　else
    　　if((i6)>16)
    　　{ gotoxy(41,4+i-17);
    　　printf(" ");
    　　gotoxy(42,4+i-17);}
    　　i++;
    　　sum=sum+chm;
    　　printf("s %-14s %6.1f/n",chtime,chshop,chm);}
    　　gotoxy(1,23);printf("|---------------------------------------------------------------------------|");
    　　gotoxy(1,24);printf("| |");
    　　gotoxy(1,25);printf("|---------------------------------------------------------------------------|");
    　　gotoxy(10,24);printf("total is %8.1f$",sum);
    　　fclose(fp);
    　　gotoxy(49,24);printf("press any key to.....");getch();goto pp;
    　　}
    　　else
    　　{
    　　while(ch[0]!=’/r’)
    　　{ if(j<10)
    　　{ strncat(chtime,ch,1);
    　　j++;}
    　　if(ch[0]==8)
    　　{
    　　len=strlen(chtime)-1;
    　　if(j>15)
    　　{ len=len+1; j=11;}
    　　strcpy(ch1,"");
    　　j=j-2;
    　　strncat(ch1,chtime,len);
    　　strcpy(chtime,"");
    　　strncat(chtime,ch1,len-1);
    　　gotoxy(13,7);printf(" ");}
    　　gotoxy(13,7);printf("%s",chtime);ch[0]=getch();
    　　if(ch[0]==9)
    　　goto mm;
    　　if(ch[0]==27)
    　　exit(1);
    　　}
    　　gotoxy(3,24);printf(" ");
    　　gotoxy(13,10);
    　　j=0;
    　　ch[0]=getch();
    　　while(ch[0]!=’/r’)
    　　{ if (j<14)
    　　{ strncat(chshop,ch,1);
    　　j++;}
    　　if(ch[0]==8)
    　　{ len=strlen(chshop)-1;
    　　strcpy(ch1,"");
    　　j=j-2;
    　　strncat(ch1,chshop,len);
    　　strcpy(chshop,"");
    　　strncat(chshop,ch1,len-1);
    　　gotoxy(13,10);printf(" ");}
    　　gotoxy(13,10);printf("%s",chshop);ch[0]=getch();}
    　　gotoxy(13,13);
    　　j=0;
    　　ch[0]=getch();
    　　while(ch[0]!=’/r’)
    　　{ if (j<6)
    　　{ strncat(chmoney,ch,1);
    　　j++;}
    　　if(ch[0]==8)
    　　{ len=strlen(chmoney)-1;
    　　strcpy(ch1,"");
    　　j=j-2;
    　　strncat(ch1,chmoney,len);
    　　strcpy(chmoney,"");
    　　strncat(chmoney,ch1,len-1);
    　　gotoxy(13,13);printf(" ");}
    　　gotoxy(13,13);printf("%s",chmoney);ch[0]=getch();}
    　　if((strlen(chshop)==0)||(strlen(chmoney)==0))
    　　continue;
    　　if((fp=fopen("home.dat","a+"))!=NULL);
    　　fprintf(fp,"ss%6s",chtime,chshop,chmoney);
    　　fputc(’/n’,fp);
    　　fclose(fp);
    　　i++;
    　　gotoxy(41,5+i);
    　　printf("s %-14s %-6s",chtime,chshop,chmoney);
    　　}}}

以下是关于《家庭财务管理小程序》论题的回复（共2篇）

回复人：fenli

回复时间：2007/12/24 3:15:00

看不懂

回复人：lirongling

回复时间：2007/12/25 11:28:00

看不懂