readme.txt

我自己编写的用VFP的简单进销存程序供大家参考

STOCK.EXE
商品管理系统

数据表：
COMPANY (ID I,NAME C(10),FULLNAME C(50),ADDR C(100),ZIP C(10),TEL C(20),MAN C(10),NOTE C(200))

EMPLOYEE (ID I,NUM C(10),NAME C(10),WORK C(10),PWD C(10),NOTE C(30))

KEEPLIST(ID I,CODE C(16),CLASS C(16),CLASSDET C(16),MODEL C(16),PARA C(16),KEEPNUM I,WARN I,NAME C(20),UNIT C(4),PKEEP Y,PKEEPSUM Y,PIN Y,PAVERAGE Y,POUT Y,TAX I,KEEPAREA C (10),TAG T,NID I,UPID I,SUN C(1))

TICKET(DATETIME T,NUMBER I,TYPE C(30),NAME C(10),NUM I,PRICE Y,WORKER C(10),MAKER C(10),NOTE C(30),TAG T)

TICKETDE(NUMBER I,KID I,NUM I,PRICE Y,TICKETDT T,INOUT C(1),KEEPNOW I,KEEPITID C(10),KEEPITAR C(10))




程序流程：
LOGIN: 初始用户:"Admin",口令:"Admin9",失败3次自动退出程序。

主菜单：
1、货品管理：货品管理，数据查询，进销存统计，数据报送；
2、系统维护：往来单位，单位员工，数据损坏恢复，数据备份；
3、退出。

调用本程序：DO STOCK.EXE (IF LCCALLAPP=="CALLAPP" RETURN ELSE QUIT)
调用子程序：
1、数据报送.EXE
2、进销存统计.EXE
3、数据报送.EXE
4、STOCK_PLUGIN_DATAREADIN.EXE
5、STOCK_PLUGIN_DATAREADOUT.EXE
6、STOCK_PLUGIN_DATAINPUT.EXE

注意事项：
1、入库数量、单价、识别编码、存放货位；
2、出库数量、单价、识别编码、存放货位；
3、货位存放的货品清单；
4、入库数量统计，出库数量统计，库存数量统计；
5、库存数量不为零的货品不能被删除或增加子类。
6、按先进先出法计算库存成本。


货品清单:货品编号,货品编码,类别,细类,型号,参数,库存数量,警戒库存,名称,单位,
  内部单价,库存总额,入库单价,出库单价,平均单价,增值税率,访问时间,记录顺序,
  上级货品编号,是否有子类货品

库存清单：库存编号,货品编号,入库单号，入库时间,入库单价,入库数量,库存数量,识别编码,存放货位,是否有效.
所有入库明细加入库存清单中。


入出库单据:单据号,单据时间,入出库类别,往来单位,数量,金额,经办,制表,备注,生成时间,是否有效.

出库明细:出库顺序ID，单据号,库存编号,出库单价,数量.(库存数量),是否有效

往来单位:顺序号,简称,全名,地址,邮编,电话,联系人,备注,是否有效

单位员工:顺序号,员工号,姓名,职位,口令,备注,是否有效

入库：
首先










tree控件：
1、需要文件COMCTL32。OCX；
2、示例：
WITH SELECTEDITEM
 CHILDREN=0
 EXPANDED=.F.
 FULLPATH='NAME1\NAME2\NAME3'
 INDEX=16
 KEY='        16_'
 SELECTED=.T.
 SORTED=.F.
 TEXT='NAME3'
ENDWITH

pkey=str(LNUPID)+"_"
IF ID>0
 thisform.Olectl.nodes.add(pkey,4,str(ID)+"_",ALLT(NAME),,)
 thisform.Olectl.nodes(str(ID)+"_").selected=.T.
 thisform.Olectl.SETFOCUS
ENDI
THISFORM.REFRESH

LNID=UPID
LNKEY=THISFORM.OLECTL.SELECTEDITEM.KEY
IF VAL(LNKEY)>0
thisform.Olectl.nodes.REMOVE(LNKEY)
thisform.Olectl.nodes(str(LNID)+"_").selected=.T.
thisform.Olectl.SETFOCUS
ENDI

LNID=VAL(THIS.DISPLAYVALUE)
SELE KEEPLIST
LOCA FOR ID=LNID AND (SUN='S' OR SUN=' ')
IF !FOUN()
LOCA FOR ID=0
ENDI
thisform.Olectl.nodes(str(ID)+"_").selected=.T.
thisform.Olectl.SETFOCUS
THISFORM.REFRESH