VB编程 汽车租赁管理系统源代码

2019-09-02 13:09

/*money management system*/ #include \#include \main() {

FILE *fp; struct date d;

float sum,chm=0.0; int len,i,j=0; int c;

char ch[4]=\pp: clrscr(); sum=0.0;

gotoxy(1,1);printf(\gotoxy(1,2);printf(\

gotoxy(1,3);printf(\gotoxy(1,4);printf(\

gotoxy(1,5);printf(\gotoxy(1,6);printf(\gotoxy(1,7);printf(\

gotoxy(1,8);printf(\

gotoxy(1,9);printf(\gotoxy(1,10);printf(\

gotoxy(1,11);printf(\gotoxy(1,12);printf(\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,\for(;;) {

gotoxy(3,24);printf(\gotoxy(13,10);printf(\gotoxy(13,13);printf(\

gotoxy(13,7);printf(\j=18;

ch[0]=getch(); if(ch[0]==27) break;

strcpy(chshop,\strcpy(chmoney,\if(ch[0]==9) {

mm:i=0;

fp=fopen(\gotoxy(3,24);printf(\

gotoxy(6,4);printf(\

gotoxy(1,5);printf(\gotoxy(41,4);printf(\gotoxy(41,5);printf(\

while(fscanf(fp,\{ 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(\

gotoxy(1,23);printf(\gotoxy(1,24);printf(\

gotoxy(1,25);printf(\gotoxy(10,24);printf(\fclose(fp);

gotoxy(49,24);printf(\} 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(\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(\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(\if((strlen(chshop)==0)||(strlen(chmoney)==0)) continue;

if((fp=fopen(\

fprintf(fp,\fputc('\\n',fp); fclose(fp); i++;

gotoxy(41,5+i);

printf(\}}}


VB编程 汽车租赁管理系统源代码.doc 将本文的Word文档下载到电脑 下载失败或者文档不完整,请联系客服人员解决!

下一篇:在人大常委会任免职位会议上的表态发言

相关阅读
本类排行
× 注册会员免费下载(下载后可以自由复制和排版)

马上注册会员

注:下载文档有可能“只有目录或者内容不全”等情况,请下载之前注意辨别,如果您已付费且无法下载或内容有问题,请联系我们协助你处理。
微信: QQ: