&&建立数据表.prg

CREATE TABLE datas\授权用户;
    (用户名 c(20) PRIMARY KEY,;
    密码 c(20),;
    权限 i)

CREATE TABLE datas\材料流水;
    (总流水号 i PRIMARY KEY,;
    收支 l,;
    账单号 c(16) unique,;
    单内序号 i,;
    材料编号 i unique,;
    收支数量 n(12,3),;
    购入单价 n(12,3),;
    购入金额 n(12,3),;
    标准单价 n(12,3),;
    标准金额 n(12,3),;
    差价 n(12,3),;
    差价原因 c(32),;
    保管地点 i unique)
   
CREATE TABLE datas\收料明细;
    (账单号 c(16) PRIMARY KEY;
    REFERENCES 材料流水 TAG 账单号,;
    收料时间 t,;
    供应单位 i unique,;
    本单几项 i,;
    交料人 i unique,;
    收料人 i unique,;
    单总差价 n(12,3))
   
CREATE TABLE datas\用料明细;
    (账单号 c(16) PRIMARY KEY;
    REFERENCES 材料流水 TAG 账单号,;
    领料时间 t,;
    领料部门 i unique,;
    用途 i unique,;
    领料人 i unique,;
    派料人 i unique,;
    审批人 i unique)
   
CREATE TABLE datas\材料总计;
    (材料编号 i PRIMARY KEY;
    REFERENCES 材料流水 TAG 材料编号,;
    材料分类 i unique,;
    型号明细 c(32),;
    常规单位 i unique,;
    购入总数 n(12,3),;
    购入总额 n(12,3),;
    支出总数 n(12,3),;
    支出总额 n(12,3),;
    差价累计 n(12,3),;
    剩余库存 n(12,3),;
    库1现存 n(12,3),;
    库2现存 n(12,3),;
    库3现存 n(12,3),;
    库4现存 n(12,3),;
    库5现存 n(12,3))

CREATE TABLE datas\材料分类;
    (分类编号 i PRIMARY KEY;
    REFERENCES 材料总计 TAG 材料分类,;
    分类名称 c(20))
   
CREATE TABLE datas\用途;
    (用途编号 i PRIMARY KEY;
    REFERENCES 用料明细 TAG 用途,;
    用途描述 c(50),;
    用途热度 i)

CREATE TABLE datas\供应单位;
    (供应编号 i PRIMARY KEY;
    REFERENCES 收料明细 TAG 供应单位,;
    单位全称 c(50),;
    供应热度 i)

CREATE TABLE datas\计量单位;
    (计量编号 i PRIMARY KEY;
    REFERENCES 材料总计 TAG 常规单位,;
    单位名称 c(10))
   
CREATE TABLE datas\保管地点;
    (地点编号 i PRIMARY KEY;
    REFERENCES 材料流水 TAG 保管地点,;
    地点名称 c(30))

CREATE TABLE datas\单位人员;
    (人号编号 i PRIMARY KEY,;
    姓名 c(10),;
    所在部门 i unique,;
    交料热度 i unique;
    REFERENCES 收料明细 TAG 交料人,;
    收料热度 i unique;
    REFERENCES 收料明细 TAG 收料人,;
    领料热度 i unique;
    REFERENCES 用料明细 TAG 领料人,;
    派料热度 i unique;
    REFERENCES 用料明细 TAG 派料人,;
    审批热度 i unique;
    REFERENCES 用料明细 TAG 审批人)

CREATE TABLE datas\所在部门;
    (部门编号 i PRIMARY KEY;
    REFERENCES 单位人员 TAG 所在部门,;
    部门名称 c(30),;
    部门热度 i unique;
    REFERENCES 用料明细 TAG 领料部门)

一、建表的时候　　无法建普通索引吗？可重复的那种，，，，，，

二、不关联的话　　只是影响查询速度吗？

三、影响的非常严重　　要另外用索引命令建索引再关联吗？

&&导入测试数据.prg

OPEN DATABASE "datas\材料管理"
IF !USED("材料流水")
    USE "材料流水" IN 1
ENDIF
IF !USED("收料明细")
    USE "收料明细" IN 2
ENDIF
IF !USED("用料明细")
    USE "用料明细" IN 3
ENDIF
IF !USED("材料总计")
    USE "材料总计" IN 4
ENDIF
IF !USED("材料分类")
    USE "材料分类" IN 5
ENDIF
IF !USED("用途")
    USE "用途" IN 5
ENDIF
IF !USED("供应单位")
    USE "供应单位" IN 7
ENDIF
IF !USED("计量单位")
    USE "计量单位" IN 8
ENDIF
IF !USED("保管地点")
    USE "保管地点" IN 9
ENDIF
IF !USED("单位人员")
    USE "单位人员" IN 10
ENDIF
IF !USED("所在部门")
    USE "所在部门" IN 11
ENDIF

SELECT 所在部门
INSERT INTO 所在部门 (部门编号,部门名称) VALUES (1,'企业办经理')
INSERT INTO 所在部门 (部门编号,部门名称) VALUES (2,'企业办仓库')
INSERT INTO 所在部门 (部门编号,部门名称) VALUES (3,'企业办财务')
INSERT INTO 所在部门 (部门编号,部门名称) VALUES (4,'工程1队仓库')
INSERT INTO 所在部门 (部门编号,部门名称) VALUES (5,'工程1队')
INSERT INTO 所在部门 (部门编号,部门名称) VALUES (6,'工程2队仓库')
INSERT INTO 所在部门 (部门编号,部门名称) VALUES (7,'工程2队')

SELECT 单位人员
INSERT INTO 单位人员 (人员编号,姓名,所在部门) VALUES (1,'企业办王总',;
    SELECT 部门编号 FROM 所在部门 WHERE 部门名称='企业办经理')

四、最后一句INSERT 的最后一个values　　想用查询　　，前两个不用　　格式是怎么样的？

字段名改一样　　也不行　　必须是主或候选　　　不唯一的索引　　　关联不上　　　。。。

VFP的SQL语法　　好蛋疼　　。。。

SELECT 单位人员
INSERT INTO 单位人员 (人号编号,姓名) VALUES (1,'企业办王总')
UPDATE 单位人员 SET;
    所在部门=(select 部门编号 from 所在部门 WHERE 部门编号=1)
INSERT INTO 单位人员 (人号编号,姓名) VALUES (2,'企业办库管')
UPDATE 单位人员 SET;
    所在部门=(select 部门编号 from 所在部门 WHERE 部门名称="企业办仓库";
    AND 单位人员.人员编号=2)   

DIMENSION laSld(7)  &&定义收料单对应的数组
laSld(2)=DATETIME()  &&收料日期
laSld(4)=3  &&本单共三项材料
laSld(1)='S'+ALLTRIM(STR(laSld(4)))+ALLTRIM(TTOc(laSld(2)),':','.')
?laSld(1)

把日期和时间做为表里编号的依据　　可是有几个：和.是间隔日期和时分秒的

有什么函数　　能把这些位于字符串中间的：之类的符号　　去掉？

DIMENSION laSld(7)  &&定义收料单对应的数组
laSld(2)=DATETIME()  &&收料日期
laSld(4)=3  &&本单共三项材料
laSld(1)='S'+ALLTRIM(STR(laSld(4)))+STRTRAN(STRTRAN(STRTRAN(TTOc(laSld(2)),':',''),'.',''),' ','')
?laSld(1)

３Ｑ