?? 倉庫管理dt930.txt

?? 一個CASICO 倉庫管理的系統(tǒng)
?? TXT
字號:
標(biāo)題:倉儲物流管理DT900典型程序,大家如果有做DT900的,可以參照這個代碼 

horseb 返回首頁  閱讀：11925 次  回復(fù)主題  作者編輯  刷新文章  關(guān)閉本頁 
#include "math.h"
#include "stdio.h"
#include "string.h"
#include "stdlib.h"
#include "itron.h"
#include "CMNDEF.H"
#include "bios1mac.h"
#include "casio.h"
/*#include "dplib.h"*/
void pd(void);
void ap_start(void);
void main_menu(void);
void kc_pd(UB *filename);
void rk(void);
void ck(void);
void rk_pd(UB *filename);
void Dsp_info(UB *data,W *pos);
ER find(UB *spcode,UB *data);
ER findrud(UB *spcode,UB *data);
void Dis_y(void);
void Dis_y1(void);
void Dis_ff(UB *data,W *pos);
void Dis_ff1(UB *data,W *pos);
void find_fici(void);
ER findrud(UB *spcode,UB *data);
void ck_pd(UB *filename);
void Dis_info(UB *data,W *pos);
void Dis_y2(void);
ER findrud4(UB *spcode,UB *data);
void ap_start(void)
{
SysInit(0);
main_menu();
}
void main_menu(void)
{ 
int kind;
static const UB *menu[]={" 倉儲物流管理",
"------------------",
" 1.入庫系統(tǒng)",
" 2.庫存系統(tǒng)",
" 3.出庫系統(tǒng)"
};
while(1)
{
cls();
Dsp_str(menu[0],1,0);
Dsp_str(menu[1],3,0);
Dsp_str(menu[2],5,0);
Dsp_str(menu[3],7,0);
Dsp_str(menu[4],9,0); 

kind=getkey();
switch(kind)
{
case '1':{ rk();
break;
}
case '2':{pd();break;
}
case '3':{ ck(); break;}
}
}
}
void rk(void)
{ER ret;
int kind,fd,err,i,pos=0,len=11,len1=8,ercd;
B *file_list1[]={"zdjs.txt",0};
static const UB *menu[]={" 入庫系統(tǒng)",
"--------------",
"1.入庫盤點",
"2.上傳數(shù)據(jù)",
"3.下載數(shù)據(jù)"
};
while(1)
{
cls();
key_clear();
Dsp_str(menu[0],1,0);
Dsp_str(menu[1],3,0);
Dsp_str(menu[2],5,0);
Dsp_str(menu[3],7,0);
Dsp_str(menu[4],9,0);
kind=getkey();
switch(kind)
{
case '1':{rk_pd("zdjs.txt");break;}
case '2':{lcd_cls();
Dsp_str("是否上傳?",2,1);
Dsp_str("ENT 上傳",5,3);
Dsp_str(" 任意鍵 否",7,3);
kind=getkey();
if(kind==13)
sendfile("zdjs.txt");
break;
}
case '3':{ lcd_cls();
Dsp_str("是否下載?",2,1);
Dsp_str("ENT 下載",5,3);
Dsp_str(" 任意鍵 否",7,3);
kind=getkey();
if(kind==13)
rece_n_file(file_list1);
break;
}
case 12: return;
}
}
}
void pd(void)
{int fp;
char kind;
static const B*rece_file[2];
B *file_list[]={"kc.txt","kc1.txt",0};
static const UB *menu[]={" 庫存系統(tǒng)",
"--------------",
" 1.庫存盤點",
" 2.上傳數(shù)據(jù)",
" 3.下載數(shù)據(jù)"
};
while(1)
{
cls();
key_clear();
Dsp_str(menu[0],1,0);
Dsp_str(menu[1],3,0);
Dsp_str(menu[2],5,0);
Dsp_str(menu[3],7,0);
Dsp_str(menu[4],9,0);
kind=getkey();
switch(kind)
{
case '1':{kc_pd("kc.txt");break;}
case '2':{lcd_cls();
Dsp_str("是否上傳?",2,1);
Dsp_str("ENT 上傳",5,3);
Dsp_str(" 任意鍵 否",7,3);
kind=getkey();
if(kind==13)
sendfile("zdjs.txt");
break;
}
case '3':{ lcd_cls();
Dsp_str("是否下載?",2,1);
Dsp_str("ENT 下載",5,3);
Dsp_str(" 任意鍵 否",7,3);
kind=getkey();
if(kind==13)
rece_n_file(file_list);
break;
}
case 12 :return;
}
}
} 


void kc_pd(UB *filename)
{
UB spcode[13],spname[20],kuwei[10],num[10],xjnum[10];
UB data[57];
ER ret;

while(1)
{
Dis_y();
memset(spcode,0x00,sizeof(spcode));
memset(data,0x00,sizeof(data));
ret=read_s(6,5,0,spcode,13,NONE);
if(ret==CLS) return;
else
{
if(strlen(spcode)!=0)
{
memset(data,0x00,sizeof(data));
ret=find(spcode,data);
}
}
}
}
void Dis_y(void)
{
cls();
Dsp_str("掃描條碼:",3,0);
}
ER find(UB *spcode,UB *data)
{
ER ret;
int keylen;
W pos;
int datalen=72;
int start_pos;

ret=search("kc.txt",0,56,0,6,spcode,data,&pos);
if (ret==E_OK)
{
Dis_info(data,&pos);
return(0);
}
else
cls();
Dsp_str("無此商品",2,0);
Dsp_str(" 任意鍵 從新輸入",4,0);
WAIT
return(1);
}
void Dis_info(UB *data,W *pos)
{
UB spcode[13],kwei[10],name[20];
UB num[10],xjnum[10];
int kind;

ER ret ;
cls();
Dsp_str("條碼:",1,0);
Dsp_str("名稱:",5,0);
Dsp_str("庫位:",7,0);
Dsp_str("庫存數(shù)量:",9,0);
memset(spcode,0x00,sizeof(spcode));
memset(kwei,0x00,sizeof(kwei));
memset(name,0x00,sizeof(name));
memset(num,0x00,sizeof(num));
memset(xjnum,0x00,sizeof(xjnum));
memcpy(spcode,data,13);spcode[12]=0x00;
memcpy(name,data+14,12);name[15]=0x00;name[16]=0x00;name[17]=0x00;name[18]=0x00;
name[19]=0x00;
memcpy(kwei,data+45,9);kwei[9]=0x00;
Dsp_str(spcode,3,1,12);
Dsp_str(kwei,7,11,9);
if (name[20]==0x20)
name[20]=0x00;
Dsp_str(name,5,7);
lcd_csr_put(3,7);
lcd_csr_set((H)LCD_CSR_UNDER);
ret=read_s(9,11,0,xjnum,9,NONE);
kind=getkey();
if (kind==13)
memset(data,0x00,sizeof(data));
memcpy(data,spcode,13);
memcpy(data+14,name,20);
memcpy(data+35,xjnum,9);
data[56]=0x0D;
data[57]=0x0A;
dat_F_Write("kc1.txt",1,0,data,56);
}
void rk_pd(UB *filename)
{
UB spcode[13],spname[20],kuwei[10],num[10],gyname[10];
UB data[65];
ER ret;

while(1)
{
Dis_y1();
memset(spcode,0x00,sizeof(spcode));
memset(data,0x00,sizeof(data));
ret=read_s(6,5,0,spcode,13,NONE);
if(ret==CLS) return;
else
{
if(strlen(spcode)!=0)
{
memset(data,0x00,sizeof(data));
ret=findrud(spcode,data);
}
}
}
}
void Dis_y1(void)
{
cls();
Dsp_str("掃描條碼:",3,0);
}
ER findrud(UB *spcode,UB *data)
{
ER ret;
int keylen;
W pos;
int datalen=72;
int start_pos;

ret=search("zdjs.txt",0,64,0,6,spcode,data,&pos);
if (ret==E_OK)
{
Dis_ff(data,&pos);
return(0);
}
else
cls();
Dsp_str("無此商品",2,0);
Dsp_str(" 任意鍵 從新輸入",4,0);
WAIT
return(1);
}
void Dis_ff(UB *data,W *pos)
{
UB spcode[13],kwei[10],name[20],gyname[10];
UB num[10],xjnum[10];
int kind;

ER ret ;
cls();
Dsp_str("條碼:",1,0);
Dsp_str("名稱:",3,0);
Dsp_str("庫位:",5,0);
Dsp_str("供應(yīng)商:",7,0);
Dsp_str("收貨數(shù)量:",9,0);
memset(spcode,0x00,sizeof(spcode));
memset(kwei,0x00,sizeof(kwei));
memset(name,0x00,sizeof(name));
memset(num,0x00,sizeof(num));
memset(xjnum,0x00,sizeof(xjnum));
memcpy(spcode,data,13);spcode[12]=0x00;
memcpy(name,data+14,16);name[15]=0x00;name[16]=0x00;name[17]=0x00;name[18]=0x00;
name[19]=0x00;
memcpy(kwei,data+40,8);kwei[8]=0x00;kwei[9]=0x00;
memcpy(gyname,data+49,10);gyname[9]=0x00;

Dsp_str(spcode,1,7,12);
Dsp_str(kwei,5,9,8);
if (name[19]==0x20)
name[19]=0x00;
Dsp_str(name,3,7,16);
Dsp_str(gyname,7,10,8);
/* lcd_csr_put(9,10);
lcd_csr_set((H)LCD_CSR_UNDER);*/
ret=read_s(9,11,0,xjnum,10,NONE);
kind=getkey();
if (kind==13)
memset(data,0x00,sizeof(data));
memcpy(data,spcode,13);
memcpy(data+14,name,17);
memcpy(data+33,xjnum,6);
memcpy(data+40,kwei,8);
memcpy(data+49,gyname,10);
data[63]=0x0D;
data[64]=0x0A;
dat_F_Write("zdjs.txt",0,*pos,data,63);
}
void ck(void)
{ER ret;
int kind,fd,err,i,pos=0,len=11,len1=8,ercd;
B *file_list1[]={"ckd.txt",0};
static const UB *menu[]={" 出庫系統(tǒng)",
"--------------",
"1.出庫盤點",
"2.上傳數(shù)據(jù)",
"3.下載數(shù)據(jù)"
};
while(1)
{
cls();
key_clear();
Dsp_str(menu[0],1,0);
Dsp_str(menu[1],3,0);
Dsp_str(menu[2],5,0);
Dsp_str(menu[3],7,0);
Dsp_str(menu[4],9,0);
kind=getkey();
switch(kind)
{
case '1':{rk_pd("ckd.txt");break;}
case '2':{lcd_cls();
Dsp_str("是否上傳?",2,1);
Dsp_str("ENT 上傳",5,3);
Dsp_str(" 任意鍵 否",7,3);
kind=getkey();
if(kind==13)
sendfile("ckd.txt");
break;
}
case '3':{ lcd_cls();
Dsp_str("是否下載?",2,1);
Dsp_str("ENT 下載",5,3);
Dsp_str(" 任意鍵 否",7,3);
kind=getkey();
if(kind==13)
rece_n_file(file_list1);
break;
}
case 12: return;
}
}
}
void ck_pd(UB *filename)
{
UB spcode[13],spname[20],kuwei[10],num[10],xjnum[10];
UB data[56];
ER ret;

while(1)
{
Dis_y2();
memset(spcode,0x00,sizeof(spcode));
memset(data,0x00,sizeof(data));
ret=read_s(6,5,0,spcode,13,NONE);
if(ret==CLS) return;
else
{
if(strlen(spcode)!=0)
{
memset(data,0x00,sizeof(data));
ret=findrud(spcode,data);
}
}
}
}
void Dis_y2(void)
{
cls();
Dsp_str("掃描條碼:",3,0);
}
ER findrud4(UB *spcode,UB *data)
{
ER ret;
int keylen;
W pos;
int datalen=72;
int start_pos;

ret=search("ckd.txt",0,55,0,6,spcode,data,&pos);
if (ret==E_OK)
{
Dis_ff1(data,&pos);
return(0);
}
else
cls();
Dsp_str("無此商品",2,0);
Dsp_str(" 任意鍵 從新輸入",4,0);
WAIT
return(1);
}
void Dis_ff1(UB *data,W *pos)
{
UB spcode[13],kwei[10],name[20],gyname[20];
UB num[10],xjnum[10];
int kind;

ER ret ;
cls();
Dsp_str("條碼:",1,0);
Dsp_str("名稱:",3,0);
Dsp_str("庫位:",5,0);

Dsp_str("出貨數(shù)量:",7,0);
memset(spcode,0x00,sizeof(spcode));
memset(kwei,0x00,sizeof(kwei));
memset(name,0x00,sizeof(name));
memset(num,0x00,sizeof(num));
memset(xjnum,0x00,sizeof(xjnum));
memcpy(spcode,data,13);spcode[12]=0x00;
memcpy(name,data+14,12);name[15]=0x00;name[16]=0x00;name[17]=0x00;name[18]=0x00;
name[19]=0x00;
memcpy(kwei,data+40,9);kwei[9]=0x00;
memcpy(gyname,data+49,10);gyname[9]=0x00;

Dsp_str(spcode,1,7,12);
Dsp_str(kwei,5,9,8);
if (name[19]==0x20)
name[19]=0x00;
Dsp_str(name,3,7,16);
Dsp_str(gyname,7,10,8);
lcd_csr_put(9,10);
lcd_csr_set((H)LCD_CSR_UNDER);
ret=read_s(7,11,0,xjnum,10,NONE);
kind=getkey();
if (kind==13)
memset(data,0x00,sizeof(data));
memcpy(data,spcode,13);
memcpy(data+14,name,17);
memcpy(data+33,xjnum,6);
memcpy(data+40,kwei,8);
memcpy(data+49,gyname,10);
data[64]=0x0D;
data[65]=0x0A;
dat_F_Write("ckd.txt",0,*pos,data,63);
}
 
歡迎來到海豚計算機工作室知識庫工程站點 海豚計算機工作室 
 
  發(fā)表時間:2007-2-24 17:09:50
?? 文件大小 3 K
?? 上傳用戶 jihengzhang
?? 所屬分類企業(yè)管理
??? 相關(guān)標(biāo)簽

#CASICO #倉庫管理
?? 快捷鍵說明

復(fù)制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? 倉庫管理dt930.txt

?? 快捷鍵說明
