C-图形界面编程

《C-图形界面编程》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

Cー图形界面编程#include#include#include#include#includeくgraphics.h>#includechar*inputc(intx,inty)(charaa[10];intj,index,i;charch[2];ch[0]二''；ch[l]=>\O';j=O;index=O;setfillstyle(SOLID_FILL,0);bar(x+40,y,x+140,y+10);while(1)(setfillstyle(SOLID_FILL,0);bar(145,45,235,60);

1setcolor(14);ch[0]=bioskey(0);

2if(ch[0]=27)break;if(ch[0]=13)break;if(ch[O]==>\b*)(setfillstyle(SOLID_FILL,0);if(j!=0)j-=8;bar(x+40+j,y,x+40+j+8,y+10);if(index!=0)index—;aa[index]=NULL;continue;}outtextxy(x+40+j,y,ch);aa[index]=ch[0];aa[index+1]=NULL;index++;j+二8;if(index>10)Iouttextxy(150,50,"Max10bit.");

3break;returnaa;voidmy_delay(intclicks)Iunsignedintfar*clock=(unsignedintfar*)0x0000046CL;unsignedintnow;now=*clock;while(abs(*clock-now)

4_AX=2;geninterrupt(0x33);}/・取鼠标状态和鼠标位置・/voidgetmouse(int*button,int*x,int*y){_AX=3;_BX=0;geninterrupt(0x33);*button=_BL;*x=_CX;*y=_DX;}voiddrawm(intx,inty)(setcolor(8);line(x,y~5,x-5,y);line(x-5,y,x+5,y);line(x+5,y,x,y-5);line(x,y-5,x,y+5);)structfmintlx,rx,ty,dy;main()

5intscreen=O,flagl=O;intgd=DETECT,gm,index;charname[10];intid[10],time[10];chara[10];intflag,i,j,k,cl,c2,1,x2,y2,xl,yl,x3,y3,maxx,maxy,key,stepx,stepy,mx,my;intxdl,xd2,ydl,yd2;char*pr=NULL;unsignedlongIn;charch[2],*im,*jm,*pm;intbutton,mousex,mousey;structfmform[6];chartext[50]=“、〇”,buf[50];ch[0]=…；ch[l]=\0,;im=(unsignedchar*)malloc(100);jm=(unsignedchar*)malloc(300);pm=(unsignedchar*)malloc(300);registerbgidriver(EGAVGA_driver);initgraph(&gd,&gm,);setbkcolor(0);cl二WHITE;c2二DARKGRAY;setcolor(8);setlinestyle(SOLID_LINE,0,THICK_WIDTH);drawm(10,10);

6getimage(5,5,15,15,im);putimage(5,5,im,XORPUT);while(screen!=10)(if(screen==0)ixdl=10;xd2=90;ydl=120;yd2=150;k=50;setfillstyle(SOLID_FILL,0);bar(0,0,640,480);setcolor(15);xdl=10;xd2=90;ydl=120;yd2=150;k=50;outtextxy(25,ydl+10,"ORDERS");outtextxy(35,ydl+10+k,"BOM");outtextxy(35,ydl+10+k*2,"MPS");outtextxy(35,ydl+10+k*3,"MRP");outtextxy(30,ydl+10+k*4,"STOCK");outtextxy(17,ydl+10+k*5,"PURCHASE");rectangle(xdl,ydl,xd2,yd2);rectangle(xdl,ydl+k,xd2,yd2+k);

7rectangle(xdl,ydl+k*2,xd2,yd2+k*2);rectangle(xdl,ydl+k*3,xd2,yd2+k*3);rectangle(xdl,ydl+k*4,xd2,yd2+k*4);rectangle(xdl,ydl+k*5,xd2,yd2+k*5);rectangle(0,0,639,480);line(0,25,639,25);line(0,100,639,100);line(100,100,100,480);rectangle(140,140,600,450);setfillstyle(SOLID_FILL,15);bar(630,2,640,12);setcolor(0);outtextxy(631,3,"X");while(flagl!=1)iflag=0;mx=mousex;my=mousey;putimage(mx,my,im,X0R_PUT);/**/while(1){getmouse(&button,ftmousex,&mousey);if(button&l=l)if(mousex>xdl&&mousexydl&&mousey

8if(mx>xdl&&mxyd1+k&&myくyd2+k)(flag=l;screen=2;}if(mx>xdl&&mxydl+k*2&&myxdl&&mousexydl+k*3&&mouseyxdl&&mousexydl+k*4&&mouseyxdl&&mousexydl+k*5&&mousey

9(flag=l;screen=6;}if(mousex>630&&mousex<640&&mousey>24&mousey<12){exit(0);}}button=0;if(flag)break;if((abs(mx-mousex))>11I(abs(my-mousey)>1))break;putimage(mx,my,im,XORPUT);if(screen==lI|screen==2|screen==3|screen==4||screen==5|screen==6)break;my_delay(5);

10if(screen==l)setfillstyle(SOLID_FILL,0);bar(0,0,640,480);setcolor(15);outtextxy(12,130,"NEWORDERS");outtextxy(25,177,"SEARCH");outtextxy(25,187,"ORDERS");outtextxy(35,ydl+10+k*2,"BACK");rectangle(xdl,ydl,xd2,yd2);rectangle(xdl,ydl+k,xd2,yd2+k);rectangle(xdl,ydl+k*2,xd2,yd2+k*2);rectangle(0,0,639,480);line(0,25,639,25);line(0,100,639,100);line(100,100,100,480);rectangle(140,140,600,450);setfillstyle(SOLID_FILL,15);bar(630,2,640,12);setcolor(0);outtextxy(631,3,"X");flag=0;

11mx=mousex;my二mousey;putimage(mx,my,im,XORPUT);/**/while(1)igetmouse(febutton,&mousex,&mousey);if(button&l~l)(if(button=l&&mousex>xdl&&mousexydl&&mouseyxdl&&mousexydl+k&&mouseyxdl&&mousexydl+k*2&&mousey

12screenニ〇;if(button==l&&mousex>630&&mousex<640&&mousey>2&&mousey<12){flag=l;exit(0);}}button=0;if(flag)break;if((abs(mx-mousex))>11|(abs(my-mousey)>1))break;putimage(mx,my,im,XORPUT);if(screen==0||screen==ll||screen==12)break;)mydelay(5);)if(screen==ll)

13setfillstyle(SOLID_FILL,0);

14bar(O,0,640,480);setcolor(15);outtextxy(12,130,"OK");outtextxy(25,177,"BACK");rectangle(xdl,ydl,xd2,yd2);rectangle(xdl,ydl+k,xd2,yd2+k);rectangle(0,0,639,480);line(0,25,639,25);line(0,100,639,100);line(100,100,100,480);rectangle(140,140,600,450);setfillstyle(SOLID_FILL,15);bar(630,2,640,12);setcolor(0);outtextxy(631,3,"X");flag=0;while(flagl!=1)(mx=mousex;my=mousey;putimage(mx,my,im,XOR_PUT);*/

15getmouse(ftbutton,&mousex,&mousey);if(button&l=l){if(button==l&&mousex>xdl&&mousexydl&&mouseyxdl&&mousexydl+k&&mousey630&&mousex<640&&mousey>2&&.mousey<12){flag=l;exit(0);})button=0;if(flag)break;

16if((abs(mx-mousex))>11|(abs(my-mousey)>1))break;/*■putimage(mx,my,im,XOR_PUT);if(screen==l111screen==l)break;}mydelay(5);}if(screen==12)!setfillstyle(SOLID_FILL,0);bar(0,0,640,480);setcolor(15);outtextxy(240,110,"PLEASEINPUTTHEINFORMATION:");outtextxy(180,190,"NAME:り;outtextxy(195,250,"ID:");outtextxy(180,310,"TIME:");outtextxy(12,130,"OK");outtextxy(25,177,"BACK");rectangle(xdl,ydl,xd2,yd2);rectangle(xdl,ydl+k,xd2,yd2+k);rectangle(0,0,639,480);line(0,25,639,25);line(0,100,639,100);line(100,100,100,480);

17rectangle(140,140,600,450);setfillstyle(SOLID_FILL,15);bar(630,2,640,12);setcolor(0);outtextxy(631,3,"X");flag=0;while(flagl!=1)(mx=mousex;my=mousey;putimage(mx,my,im,XORPUT);while(1)(getmouse(ftbutton,&mousex,ftmousey);if(button&l==l)(if(button==l&&mousex>xdl&&mousexydl&&mousey

18if(button==l&&mousex>180&&mousex<240&&mousey>180&&mousey<200){x3=180;y3=190;pr=inputc(x3,y3);for(i=0;i<10;i++)name[i]=*(pr++);outtextxy(300,300,&name);}if(button==l&&mousex>195&&mousex<195+60&&mousey>2404imousey<240+20){x3=195;y3=250;pr=inputc(x3,y3);for(i=0;i<10;i++)id[i]=*(pr++);}if(button==l&&mousex>180&&mousex<180+60&&mousey>300&&mousey<300+20){x3=180;y3=310;pr=inputc(x3,y3);for(i=0;i<10;i++)time[i]=*(pr++);}

19if(button==l&&mousex>xdl&&mousexydl+k&&mousey630&&mousex<640&&mousey>24&mousey<12){exit(0);)}button=0;if(flag)break;if((abs(mx-mousex))>lI|(abs(my-mousey)>l))break;)/**/putimage(mx,my,im,XORPUT);if(screenニニ⑵|,screen==l)break;)my_delay(5);)

20if(screenニニ⑵)(setfillstyle(SOLID_FILL,0);bar(0,0,640,480);setcolor(15);outtextxy(12,130,"BACK");rectangle(xdl,ydl,xd2,yd2);rectangle(0,0,639,480);line(0,25,639,25);line(0,100,639,100);line(100,100,100,480);rectangle(140,140,600,450);setfillstyle(SOLID_FILL,15);bar(630,2,640,12);setcolor(0);outtextxy(631,3,"X");flag=0;while(flagl!=1)(mx=mousex;my=mousey;putimage(mx,my,im,XOR_PUT);/**/while(1){getmouse(ftbutton,&mousex,&mousey);if(button&l==l)(if(button==l&&mousex>xdl&&mousexydl&&mousey

21(button-l&&mousex>630&&mousex<640&&mousey>2&&n)ousey<12){exit(0);}}button=0;if(flag)break;if((abs(mx-mousex))>11|(abs(my-mousey)>l))break;}/**/putimage(mx,my,im,XORPUT);if(screen-12)break;)mydelay(5);}if(screen=2)Isetfillstyle(SOLID_FILL,0);bar(0,0,640,480);setcolor(15);outtextxy(20,130,"NEWBOM");

22outtextxy(20,ydl+10+k,"CORRECT");outtextxy(20,ydl+10+k*2,"SEARClT);outtextxy(35,ydl+10+k*3,"BACK");rectangle(xdl,ydl,xd2,yd2);rectangle(xdl,ydl+k,xd2,yd2+k);rectangle(xdl,ydl+k*2,xd2,yd2+k*2);rectangle(xdl,ydl+k*3,xd2,yd2+k*3);rectangle(0,0,639,480);line(0,25,639,25);line(0,100,639,100);line(100,100,100,480);rectangle(140,140,600,450);setfillstyle(SOLID_FILL,15);bar(630,2,640,12);setcolor(0);outtextxy(631,3,"X");flag=0;while(flagl!=1)(mx=mousex;my=mousey;putimage(mx,my,im,XOR_PUT);

23*/while(1)getmouse(ftbutton,&mousex,&mousey);if(button&l=l){if(button==l&&mousex>xdl&&mousexydl&&mouseyxdl&&mousexydl+k&&mouseyxdl&&mousexydl+k*2&&mouseyxdl&&mousexydl+k*3&&mousey

24(button==l&&mousex>630&&mousex<640&&mousey>24&mousey<12)flag=l;exit(0);}}button=0;if(flag)break;if((abs(mx-mousex))>11|(abs(my-mousey)>1))break;}/**/putimage(mx,my,im,XORPUT);if(screenニニ〇||screen==21||screen==22||screen==23)break;}my_delay(5);}if(screenニニ21)Isetfillstyle(SOLID_FILL,0);

25bar(0,0,640,480);setcolor(15);outtextxy(12,130,z，0K，z);outtextxy(25,177,"BACK");rectangle(xdl,ydl,xd2,yd2);rectangle(xdl,ydl+k,xd2,yd2+k);rectangle(0,0,639,480);line(0,25,639,25);line(0,100,639,100);line(100,100,100,480);rectangle(140,140,600,450);rectangle(150,150,590,220);outtextxy(155,160,^MATERIALSLIST:z，);outtextxy(400,160,“TIME:");outtextxy(155,180,"EDITION:");outtextxy(400,180,"WRITER:");outtextxy(155,200,"DEADLINE:");outtextxy(150,225,"LEVEL");rectangle(150,240,590,260);line(325,240,325,260);outtextxy(152,245,“LEVEL:;outtextxy(330,245,"MATERIALSID:");outtextxy(150,270,"MATERIALSLIST");rectangle(150,280,590,360);outtextxy(152,290,"MATERIALSNAME:");line(150,300,590,300);outtextxy(152,310,"AMOUNT:");line(150,320,590,320);outtextxy(152,330,"LEADTIME:");line(150,340,590,340);outtextxy(152,350,"LOGO:");

26setfillstyle(SOLID_FILL,15);bar(630,2,640,12);setcolor(0);outtextxy(631,3,"X");flagニ〇;while(flagl!=1)(mx=mousex;my=mousey;putimage(mx,my,im,XORPUT);/**/while(1)igetmouse(ftbutton,&mousex,&mousey);if(button&l==l)(if(button==l&&mousex>150&&mousex<200&&mousey>235&&mousey<255){x3=170;y3=245;pr=inputc(x3,y3);for(i二〇;iく10;i++)name[i]=*(pr++);/・层次数・/)

27if(button==l&&mousex>330&&mousex<400&&mousey>235&&mousey<255){x3=420;y3=245;pr=inputc(x3,y3);for(i=0;i<10;i++)name[i]=*(pr++);/*物料编码*/}if(button==l&&mousex>152&&mousex<230&&mousey>280&&mousey<300){x3=240;y3=287;pr=inputc(x3,y3);for(i=0;i<10;i++)name[i]二・(pr++);/・物料名称・/}if(button==l&&mousex>152&&mousex<200&&mousey>300&&mousey<320){x3=240;y3=307;pr=inputc(x3,y3);for(i=0;i<10;i++)

28name[i]=*(pr++);/・数量・/}if(button==l&&mousex>152&&mousex<200&&mousey>320&&mousey<340){x3=240;y3=327;pr=inputc(x3,y3);for(i=0;i<10;i++)name[i]=*(pr++);/・提前期・/}if(button==l&&mousex>152&&mousex<200&&mousey>340&&mousey<360){x3=240;y3=347;pr=inputc(x3,y3);for(i=0;i<10;i++)name[i]二・(pr++);/・提前期・/}if(button==l&&mousex>155&&mousex<215&&mousey>150&&mousey<170){x3=235;y3=160;pr=inputc(x3,y3);for(i=0;i<10;i++)name[i]=*(pr++);/*物料清单号・/

29}if(button==l&&mousex>400&&mousex<460&&mousey>150&&mousey<170){x3=420;y3=160;pr=inputc(x3,y3);for(i=0;i<10;i++)name[i]=*(pr++);/・日期・/}if(button==l&&mousex>155&&mousex<215&&mousey>170&&mousey<190){x3=195;y3=180;pr=inputc(x3,y3);for(i=0;i<10;i++)name[i]=*(pr++);/*版本号・/}if(button==l&&mousex>400&&mousex<460&&mousey>170&&mousey<190){x3=420;y3=180;pr=inputc(x3,y3);for(i=0;i<10;i++)name[i]=*(pr++);/・作者・/}

30if(button==l&&mousex>155&&mousex<215&&mousey>190&&mousey<210){x3=195;y3=200;pr=inputc(x3,y3);for(i=0;i<10;i++)name[i]=*(pr++);/・有效期・/}if(button=l&&mousex>xdl&&mousexydl&&mouseyxdl&&mousexydl+k&&mousey630&&mousex<640&&mousey>2&&mousey<12){flag=l;exit(0);

31button=0;if(flag)break;if((abs(mx-mousex))>11|(abs(my-mousey)>l))break;putimage(mx,my,im,XORPUT);if(screen==l111!screen==l)break;}my_delay(5);}if(screen==3)(setfillstyle(SOLID_FILL,0);bar(0,0,640,480);setcolor(15);outtextxy(12,130,"NEWMPS");outtextxy(25,177,"SEARCH");outtextxy(25,187,"MPS");outtextxy(35,ydl+10+k*2,"BACK");rectangle(xdl,ydl,xd2,yd2);rectangle(xdl,ydl+k,xd2,yd2+k);rectangle(xdl,ydl+k*2,xd2,yd2+k*2);rectangle(0,0,639,480);line(0,25,639,25);line(0,100,639,100);line(100,100,100,480);rectangle(140,140,600,450);setfillstyle(SOLID_FILL,15);bar(630,2,640,12);

32setcolor(0);outtextxy(631,3,"X");flagニ〇;while(flagl!=1)(mx=mousex;my=mousey;putimage(mx,my,im,XORPUT);/**/while(1)(getmouse(&button,&mousex,&mousey);if(button&l=l)(if(button==l&&mousex>xdl&&mousexydl&&mouseyxdl&&mousexydl+k&&mousey

33if(button==l&&mousex>xdl&&mousexydl+k*2&&mousey

34flag=l;screen=O;}if(button==l&&mousex>630&&mousex<640&&mousey>2&&mousey<12)(exit(0);}}button=0;if(flag)break;if((abs(mx-mousex))>11I(abs(my-mousey)>1))break;}/**/putimage(mx,my,im,XOR_PUT);if(screen==0||screen==31||screen==32)break;}mydelay(5);

35setfillstyle(SOLID_FILL,0);bar(0,0,640,480);setcolor(15);outtextxy(10,130,"SEARCHMPS");outtextxy(25,180,"SELECT");outtextxy(35,ydl+10+k*3,"BACK");outtextxy(10,ydl+10+k*2,"PROGRAMMING");rectangle(xdl,ydl,xd2,yd2);rectangle(xdl,ydl+k,xd2,yd2+k);rectangle(xdl,ydl+k*2,xd2,yd2+k*2);rectangle(xdl,ydl+k*3,xd2,yd2+k*3);rectangle(0,0,639,480);line(0,25,639,25);line(0,100,639,100);line(100,100,100,480);rectangle(140,140,600,450);setfillstyle(SOLID_FILL,15);bar(630,2,640,12);setcolor(0);outtextxy(631,3,"X");flag=0;while(flagl!=1)(mx=mousex;my=mousey;putimage(mx,my,im,XOR_PUT);/**/

36while(1){getmouse(ftbutton,fimousex,fimousey);if(button&l=l)(if(button==l&&mousex>xdl&&mousexydl&&mouseyxdl&&mousexydl+k*3&&mousey630&&mousex<640&&mousey>24&mousey<12){exit(0);)}

37buttonニ〇;if(flag)break;if((abs(mx-mousex))>11|(abs(my-mousey)>1))break;putimage(mx,my,im,XORPUT);if(screen==3||screen==311)break;}mydelay(5);}if(screen==311){setfillstyle(SOLID_FILL,0);bar(0,0,640,480);setfillstyle(SOLID_FILL,1);bar(xdl,ydl,xd2,yd2);setcolor(15);outtextxy(10,130,"SEARCHMPS");rectangle(460,410,510,440);outtextxy(470,425,"OK");rectangle(540,410,590,440);

38outtextxy(550,425,"BACK");outtextxy(240,110,"PLEASEINPUTTHEINFORMATION:");rectangle(xdl,ydl,xd2,yd2);outtextxy(25,180,"SELECT");outtextxy(35,ydl+10+k*3,ZZBACK/Z);outtextxy(10,ydl+10+k*2,"PROGRAMMING");outtextxy(180,180,"ORDERID:");outtextxy(213,220,"NAME:");outtextxy(190,260,"PRODUCT:9;outtextxy(165,300,"ORDERTIME:");outtextxy(365,300,"TO");outtextxy(180,340,"PAYTIME:");outtextxy(365,340,"TO");rectangle(xdl,ydl,xd2,yd2);rectangle(xdl,ydl+k,xd2,yd2+k);rectangle(xdl,ydl+k*2,xd2,yd2+k*2);rectangle(xdl,ydl+k*3,xd2,yd2+k*3);rectangle(0,0,639,480);line(0,25,639,25);line(0,100,639,100);line(100,100,100,480);rectangle(140,140,600,450);setfillstyle(SOLID_FILL,15);bar(630,2,640,12);setcolor(0);

39outtextxy(631,3,"X");flagニ〇;while(flagl!=1){mx=mousex;my=mousey;putimage(mx,my,im,XORPUT);/**/while(1)!getmouse(&button,&mousex,ftmousey);if(button&l==l)(if(button==l&&mousex>180&&mousex<240&&mousey>170&&mousey<190){x3=213;y3=180;pr=inputc(x3,y3);for(i=0;i<10;i++)name[i]=*(pr++);/*ORDERID*/}if(button==l&&mousex>180&&mousex<240&&mousey>210&&mousey<230){x3=213;y3=220;

40pr=inputc(x3,y3);for(iエ0;iく10;i++)name[i]二・(pr++);/*NAME*/)if(button==l&&mousex>180&&mousex<240&&mousey>250&&mousey<270){x3=213;y3=260;pr=inputc(x3,y3);for(i=0;iく10;i++)name[i]=*(pr++);/*PRODUCT*/}if(button==l&&mousex>180&&mousex<240&&mousey>290&&mousey<310){x3=213;y3=300;pr=inputc(x3,y3);for(i=0;i<10;i++)name[i]二*(pr++);/*ORDERTIME"/}if(button==l&&mousex>365&&mousex<400&&mousey>290&&mousey<310){x3=385;y3=300;pr=inputc(x3,y3);for(i=0;i<10;i++)

41name[i]=*(pr++);/*ORDERTIMETO*/)if(button==l&&mousex>180&&mousex<240&&mousey>330&&mousey<350){x3=213;y3=340;pr=inputc(x3,y3);for(i=0;i<10;i++)name[i]=*(pr++);/*PAYTIME*/}if(button==l&&mousex>3654&mousex<400&&mousey>330&&mousey<350){x3=385;y3=340;pr=inputc(x3,y3);for(i=0;i<10;i++)name[i]二・(pr++);/*PAYTIMETO*/}if(button==l&&mousex>540&&mousex<590&&mousey>410&&mousey<440){screen=31;flag=l;if(button==l&&mousex>460&&mousex<510&&mousey>410&&mousey<440){screen=312;flag=l;

42}}button=0;if(flag)break;if((abs(mx-mousex))>11|(abs(my-mousey)>1))break;}/**/putimage(mx,my,im,XORPUT);if(screen==31||screen==312)break;}my_delay(5);}if(screen==312)!setfillstyle(SOLID_FILL,0);bar(0,0,640,480);setfillstyle(SOLID_FILL,D；bar(xdl,ydl+k,xd2,yd2+k);outtextxy(25,180,“SELECT");

43setcolor(15);rectangle(300,410,350,440);outtextxy(310,425,"UP");rectangle(380,410,430,440);outtextxy(390,425,""DOWN");rectangle(460,410,510,440);outtextxy(470,425,"OK");rectangle(540,410,590,440);outtextxy(550,425,"BACK");outtextxy(240,110,"PLEASEINPUTTHEINFORMATION:");rectangle(xdl,ydl,xd2,yd2);outtextxy(10,130,"SEARCHMPS");outtextxy(35,ydl+10+k*3,"BACK");outtextxy(10,ydl+10+k*2,"PROGRAMMING");rectangle(xdl,ydl,xd2,yd2);rectangle(xdl,ydl+k,xd2,yd2+k);rectangle(xdl,ydl+k*2,xd2,yd2+k*2);rectangle(xdl,ydl+k*3,xd2,yd2+k*3);rectangle(160,160,590,360);line(160,200,590,200);line(160,240,590,240);line(160,280,590,280);line(160,320,590,320);line(303,160,303,360)：line(446,160,446,360);

44outtextxy(200,180,"NO.");outtextxy(340,180,"NAME");outtextxy(480,180,“ORDERID");outtcxtxy(160,380,"ORDERNUMBER;");rectangle(0,0,639,480);line(0,25,639,25);line(0,100,639,100);linedOO,100.100,480);rectangle(140,140,600,450);outtextxy(200,220,"NO,");outtextxy(340,220,"NAME");outtextxy(480,220,“ORDERID");outtextxy(200,260,"NO.");outtextxy(340,260,"NAME");outtextxy(480,260,"ORDERID");outtextxy(200,300,"N0.");outtextxy(340,300,"NAME");outtextxy(480,300,"ORDERID");/*SCREEN312内容・/setfillstyle(SOLID_F1LL,15);bar(630,2,640,12);setcolor(0);outtextxy(631,3,"X");flag=0;

45while(flagl!=1)(mx=mousex;my=mousey;putimage(mx,my,im,XOR_PUT);/**/while(1)(getmouse(&button,&mousex,&mousey);if(button&l==l)(if(button==l&&mousex>310&&mousex<350&&mousey>410&&mousey<440){setfillstyle(SOLID_FILL,0);bar(160,160,590,360);setcolor(15);rectangle(160,160,590,360);line(160,200,590,200);line(160,240,590,240);line(160,280,590,280);line(160,320,590,320);outtextxy(200,180,^N0./z);outtextxy(340,180,"NAME");outtextxy(480,180,"ORDERID");line(303,160,303,360);line(446,160,446,360);/*UP*/}if

46(button==l&&mousex>380&&mousex<430&&mousey>410&&mousey<440){setfillstyle(SOLIDFILL,0);bar(160,160,590,360);setcolor(15);rectangle(160,160,590,360);line(160,200,590,200);line(160,240,590,240);line(160,280,590,280);line(160,320,590,320);outtextxy(200,180,"N0.");outtextxy(340,180,"NAME");outtextxy(480,180,""ORDERID");line(303,160,303,360);line(446,160,446,360);/*D0WN*/}if(button==l&&mousex>160&&niousex<240&&mousey>370&&mousey<390){x3=240;y3=380;pr=inputc(x3,y3);for(i=0;i<10;i++)name[i]=・(pr++);/*所需定单号・/}if(button==l&&mousex>xdl&&mousexydl+k*3&&mousey

47if(button==l&&niousex>540&&mousex<590&&mousey>410&&mousey<440){screen=311;flag=l;}if(button==l&&mousex>460&&mousex<510&&mousey>410&&mousey<440){screen=313;flag=l;})button=0;if(flag)break;if((abs(mx-mousex))>11|(abs(my-mousey)>1))break;putimage(mx,my,im,XORPUT);if(screen-313|iscreen==311)break;}my_delay(5);

48)if(screen-313){setfillstyle(SOLID_FILL,0);bar(0,0,640,480);setfillstyle(SOLID^FILL,1);bar(xdl,ydl+k*2,xd2,yd2+k*2);outtextxy(10,ydl+10+k*2,"PROGRAMMING");setcolor(15);rectangle(460,410,510,440);outtextxy(470,425,"SAVE");rectangle(540,410,590,440);outtextxy(550,425,"BACK");outtextxy(240,110,"PLEASEINPUTTHEINFORMATION:");rectangle(xdl,ydl,xd2,yd2);outtextxy(25,180,"SELECT");outtextxy(10,130,"SEARCHMPS");outtextxy(35,ydl+10+k*3,"BACK");rectangle(150,150,590,210);line(150,180,590,180)：line(295,150,295,210);line(440,150,440,210);outtextxy(160,165,"MPSID");outtextxy(305,165,“WRITER");outtextxy(450,165,"TIME");rectangle(150,230,590,390);

49line(225,230,225,390);line(300,230,300,390);line(375,230,375,390);line(450,230,450,390)：line(525,230,525,390);line(150,260,590,260);line(150,290,590,290);line(150,320,590,320);line(150,350,590,350);outtextxy(155,245,"NO.");outtextxy(230,245,"ID");outtextxy(305,245,"NAME");outtextxy(380,245,"AMOUNT");outtextxy(455,245,"BEGIN");rectangle(xdl,ydl,xd2,yd2);rectangle(xdl,ydl+k,xd2,yd2+k);rectangle(xdl,ydl+k*2,xd2,yd2+k*2);rectangle(xdl,ydl+k*3,xd2,yd2+k*3);rectangle(0,0,639,480);line(0,25,639,25);line(0,100,639,100);line(100,100,100,480);rectangle(140,140,600,450);

50setfillstyle(SOLID_FILL,15);bar(630,2,640,12);setcolor(0);outtextxy(631,3,"X");flag=0;while(flagl!=1){mx=mousex;my=mousey;putimage(mx,my,im,X0R_PUT);/**/while(1)getmouse(ftbutton,&mousex,&mousey);if(button&l==l)if(button=l&&mousex>150&&mousex<295&&mousey>150&&mousey<180){x3=130;y3=195;pr=inputc(x3,y3);for(i=0;i<10;i++)name[i]=*(pr++);/*MPS号・/}if(button==l&&niousex>295&&mousex<440&&mousey>1504&mousey<180){x3=275;y3=195;pr=inputc(x3,y3);

51for(i=0;i<10;i++)name[i]=*(pr++);/*编制人*/}if(button==l&&mousex>440&&mousex<590&&mousey>150&&mousey<180){/・编制日期・/x3=420;y3=195;pr=inputc(x3,y3);for(i=0;i<10;i++)name[i]=*(pr++);

52(button==l&&mousex>xdl&&mousexydl+k*3&&mousey540&&mousex<590&&mousey>410&&mousey<440){screen=312;flag=l;}if(button==l&&mousex>460&&mousex<510&&mousey>410&&mousey<440){button=0;if(flag)break;if((abs(mx-mousex))>11I(abs(my-mousey)>1))break;putimage(mx,my,im,XOR_PUT);

53if(screen==312|screen==31)break;my_delay(5);if(screen-32)(setfillstyle(SOLIDFILL,0);bar(0,0,640,480);setcolor(15);outtextxy(12,130,，ZBACK/Z);rectangle(300,410,350,440);outtextxy(310,425,"UP");rectangle(380,410,430,440);outtextxy(390,425,"DOWN");rectangle(460,410,510,440);outtextxy(470,425,"OK");rectangle(540,410,590,440);outtextxy(550,425,"NEXT");INFORMATION:");outtextxy(160,380,"ORDERouttextxy(240,110,"PLEASEINPUTTHENUMBER:");rectangle(xdl,ydl,xd2,yd2);outtextxy(180,180,"ORDERID:");outtextxy(213,200,"NAME:");outtextxy(190,220,"PRODUCT:");outtextxy(165,240,“ORDERTIME:");

54outtextxy(380,240,"TO");rectangle(145,255,590,370);outtextxy(185,270,"NO.");outtextxy(285,270,"MPSID");outtextxy(395,270,"WRITER");outtextxy(515,270,"TIME");line(145,290,590,290);line(145,330,590,330);line(255,255,255,370);line(365,255,365,370);line(475,255,475,370)：rectangle(0,0,639,480);line(0,25,639,25);line(0,100,639,100);line(100,100,100,480);rectangle(140,140,600,450);setfillstyle(SOLID_FILL,15);bar(630,2,640,12);setcolor(0);outtextxy(631,3,"X");flag=0;while(flagl1=1)mx=mousex;my=mousey;

55putimage(mx,my,im,XORPUT);/**/while(1)(getmouse(&button,&mousex,&mousey);if(button&l==l)(if(button==l&&mousex>310&&mousex<350&&mousey>410&&mousey<440){setfillstyle(SOLID_FILL,0);bar(145,255,590,370);setcolor(15);rectangle(145,255,590,370);outtextxy(185,270,"N0.");outtextxy(285,270,"MPSID");outtextxy(395,270,"WRITER");outtextxy(515,270,"TIME");line(145,290,590,290);line(145,330,590,330);line(255,255,255,370);line(365,255,365,370);line(475,255,475,370);/*UP*/if(button==l&&mousex>380&&mousex<430&&mousey>410&&mousey<440){setfillstyle(SOLID_FILL,0);bar(145,255,590,370);setcolor(15);

56rectangle(145,255,590,370);outtextxy(185,270,"NO.");outtextxy(285,270,"MPSID");outtextxy(395,270,"WRITER");outtextxy(515,270,"TIME");line(145,290,590,290);line(145,330,590,330);line(255,255,255,370);line(365,255,365,370);line(475,255,475,370);/*D0WN*/}if(button==l&&mousex>160&&mousex<240&&mousey>370&&mousey<390){x3=240;y3=380;pr=inputc(x3,y3);for(i=0;i<10;i++)name[i]=*(pr++);/*ORDERNUMBER*/(button==l&&mousex>180&&mousex<2404&mousey>170&&mousey<190){x3=213;y3=180;pr=inputc(x3,y3);for(i=0;i<10;i++)name[i]=*(pr++);/*ID*/}if

57(button==l&&niousex>180&&mousex<240&&mousey>190&&mousey<210){x3=213;y3=200;pr=inputc(x3,y3);for(i=0;i<10;i++)name[i]=*(pr++);/*NAME*/}if(button==l&&mousex>180&&mousex<240&&mousey>210&&mousey<230){x3=213;y3=220;pr=inputc(x3,y3);for(i=0;i<10;i++)name[i]=*(pr++);/*PRODUCT*/

58(button==l&&mousex>165&&mousex<240&&mousey>230&&mousey<250){x3=213;y3=240;pr=inputc(x3,y3);for(i=0;i<10;i++)name[i]=*(pr++);/*ORDERTIME*/}if(button==l&&niousex>380&&mousex<420&&mousey>230&&mousey<250){x3=370;y3=240;pr=inputc(x3,y3);for(i=0;i<10;i++)name[i]=*(pr++);/*T0*/}if(button==l&&mousex>540&&mousex<590&&mousey>410&&mousey<440){flag=l;screen=313;}if(button==l&&mousex>460&&mousex<510&&mousey>410&&mousey<440){flag=l;outtextxy(185,310,"NO.");outtextxy(285,310,"MPSID");outtextxy(395,310,"WRITER");outtextxy(515,310,"TIME");outtextxy(185,330,"NO.");outtextxy(285,330,"MPSID");outtextxy(395,330,"WRITER");outtextxy(515,330,"TIME");}if(button==l&&mousex>xdl&&mousexydl&&mousey

59screen=3;}if(button==l&&mousex>630&&mousex<640&&mousey>2&&mousey<12){exit(0);}}button=0;if(flag)break;if((abs(mx-mousex))>11|(abs(my-mousey)>1))break;}/**/putimage(mx,my,im,XORPUT);if(screen==31|screen==313)break;mydelay(5);}if(screen==4)(

60setfillstyle(SOLID_FILL,0);bar(0,0,640,480);setcolor(15);outtextxy(12,130,"NEWMRP");outtextxy(25,177,"SEARCH");outtextxy(25,187,"MRP");outtextxy(35,ydl+10+k*2,"BACK");rectangle(xdl,ydl,xd2,yd2);rectangle(xdl,ydl+k,xd2,yd2+k);rectangle(xdl,ydl+k*2,xd2,yd2+k*2);rectangle(0,0,639,480);line(0,25,639,25);line(0,100,639,100);line(100,100,100,480);rectangle(140,140,600,450);setfillstyle(SOLID_FILL,15);bar(630,2,640,12);setcolor(0);outtextxy(631,3,"X");flag=0;while(flagl!=1){mx=mousex;my二mousey;

61putimage(mx,my,im,XOR_PUT);/**/while(1){getmouse(&button,&mousex,ftmousey);if(button&l=l)(if(button==l&&mousex>xdl&&mousexydl&&mouseyxdl&&mousexydl+k&&mouseyxdl&&mousexydl+k*2&&mousey630&&mousex<640&&mousey>2&&mousey<12)

62exit(0);))buttonニ〇;if(flag)break;if((abs(mx-mousex))>lI|(abs(my-mousey)>1))break;}/**/putimage(mx,my,im,XORPUT);if(screen==0||screenニニ41||screen==42)break;)mydelay(5);)if(screen=41)(setfillstyle(SOLIDFILL,〇);bar(0,0,640,480);setcolor(15);outtextxy(10,130,"SELECTMPS");outtextxy(25,180,"MAKEMRP");

63outtextxy(25,ydl+10+k*2,"PRACHASE");outtextxy(35,ydl+10+k*3,"BACK");rectangle(xdl,ydl,xd2,yd2);rectangle(xdl,ydl+k,xd2,yd2+k);rectangle(xdl,ydl+k*2,xd2,yd2+k*2);rectangle(xdl,ydl+k*3,xd2,yd2+k*3);rectangle(0,0,639,480);line(0,25,639,25);line(0,100,639,100);line(100,100,100,480);rectangle(140,140,600,450);setfillstyle(SOLID_FILL,15);bar(630,2,640,12);setcolor(0);outtextxy(631,3,"X");flag=0;while(flagl!=1)imx=mousex;my=mousey;putimage(mx,my,im,XORPUT);/**/while(1)igetmouse(&button,&mousex,&mousey);if(button&l=l)

64(button==l&&mousex>xdl&&mousexydl&&mouseyxdl&&mousexydl+k&&mouseyxdl&&mousexydl+k*24&mouseyxdl&&mousexydl+k*3&&mousey630&&mousex<640&&mousey>2&&mousey<12)exit(0);}button=O;if(flag)break;

65if((abs(mx-mousex))>lI|(abs(my-mousey)>1))break;putimage(mx,my,im,XOR_PUT);if(screen==4||screen==411||screen==412||screen==413)break;}my_delay(5);}if(screen==5)if(screen==6)}}