admin 管理员组

文章数量: 1184232


2024年1月23日发(作者：免费网站大全下载你懂的)

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

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

/*moneymanagementsystem*/#include#includemain(){

file*fp;structdated;

floatsum,chm=0.0;intlen,i,j=0;intc;

charch[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)gotomm;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编程 汽车租赁管理系统源代码 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/b/1705983734a496661.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。