新建文本文档.txt

酷Grid控件示例 ... ... ..cj.CDX ..............cj.dbf ..............MyGrid.SCT ..............M

SELECT 待转换的数据.Yph AS Yph, 数据字典.设备id WHERE 待转换的数据.Zhan = 数据字典.Zhan AND 待转换的数据.Name = 数据字典.Name INTO CURSOR 已有id ORDER BY 待转换的数据.Yph
SELECT 待转换的数据.Yph AS Yph, 数据字典.设备id FROM 数据字典 WHERE 待转换的数据.Zhan = 数据字典.Zhan AND 待转换的数据.Name = 数据字典.Name INTO CURSOR 已有id ORDER BY 待转换的数据.Yph
SELECT 待转换的数据.Yph AS Yph, 数据字典.设备id FROM 数据字典 WHERE 待转换的数据.Zhan = 数据字典.Zhan AND 待转换的数据.Name = 数据字典.Name ORDER BY 待转换的数据.Yph INTO CURSOR 已有id
SELECT 待转换的数据.Yph AS Yph, 数据字典.设备id FROM 数据字典 WHERE 待转换的数据.Zhan = 数据字典.Zhan AND 待转换的数据.Name = 数据字典.Name INTO CURSOR 已有id 
BROWSE LAST
SELECT 待转换的数据.Yph AS Yph, 数据字典.设备id FROM 数据字典 WHERE 待转换的数据.Zhan = 数据字典.Zhan AND 待转换的数据.Name = 数据字典.Name INTO CURSOR 已有id ORDER BY 已有id.Yph
SELECT 7
BROWSE LAST
APPEND BLANK
SELECT 7
BROWSE LAST
UPDATE 色谱 SET 色谱.样品名称 = 设备编号.单位名称 + 设备编号.设备编号 + 设备编号.编号类别 WHERE 已有id.设备id = 设备编号.设备id
SELECT 8
BROWSE LAST
SELECT 设备参数.编号id FROM 设备参数 WHERE 已有id = 设备参数.设备id INTO ARRAY a设备编号
SELECT 设备参数.编号id FROM 设备参数 WHERE 已有id.设备id = 设备参数.设备id INTO ARRAY a设备编号
UPDATE 色谱 SET 色谱.样品名称 = 设备编号.单位名称 + 设备编号.设备编号 + 设备编号.编号类别 WHERE a设备编号 = 设备编号.设备id
UPDATE 色谱 SET 色谱.样品名称 = 设备编号.单位名称 + 设备编号.设备编号 + 设备编号.编号类别 WHERE a设备编号 = 设备编号.编号id
SELECT 1
BROWSE LAST
UPDATE 色谱 SET 色谱.样品名称 = 设备编号.单位名称 + 设备编号.设备编号 + 设备编号.编号类别 WHERE a设备编号 = 设备编号.编号id
SELECT 10
BROWSE LAST
SELECT 7
BROWSE LAST
SELECT 8
SELECT 7
BROWSE LAST
SELECT 8
BROWSE LAST
SELECT 7
BROWSE LAST
REINDEX
SELECT 8
BROWSE LAST
SELECT 10
BROWSE LAST
SELECT 11
BROWSE LAST
SELECT 色谱
APPEND BLANK
a色谱id=""
DO 生成id.prg WITH a色谱id

SELECT 设备参数.编号id FROM 设备参数 WHERE 设备id = 已有id.设备id INTO ARRAY a编号id
SELECT ALLTRIM(设备编号.单位名称)+ALLTRIM(设备编号.设备编号)+ALLTRIM(设备编号.编号类别);
	   FROM 设备编号 WHERE 设备编号.编号id =a编号id INTO ARRAY a样品名称
SELECT SUBSTR(TRANSFORM(待转换的数据.Time),1,4)+","+SUBSTR(TRANSFORM(待转换的数据.Time),5,2)+","+SUBSTR(TRANSFORM(待转换的数据.Time),7,2);
       FROM 待转换的数据 WHERE 待转换的数据.Yph = 已有id.Yph INTO ARRAY a分析日期
a分析日期 = DATE(&a分析日期)
SELECT SUBSTR(TRANSFORM(待转换的数据.Qyrq),1,4)+","+SUBSTR(TRANSFORM(待转换的数据.Qyrq),5,2)+","+SUBSTR(TRANSFORM(待转换的数据.Qyrq),7,2);
       FROM 待转换的数据 WHERE 待转换的数据.Yph = 已有id.Yph INTO ARRAY a取样日期
a取样日期 = DATE(&a取样日期)
SELECT 待转换的数据.Qyyy  FROM 待转换的数据 WHERE 待转换的数据.Yph = 已有id.Yph INTO ARRAY a检测原因
SELECT 待转换的数据.H2    FROM 待转换的数据 WHERE 待转换的数据.Yph = 已有id.Yph INTO ARRAY aH2
SELECT 待转换的数据.Co    FROM 待转换的数据 WHERE 待转换的数据.Yph = 已有id.Yph INTO ARRAY aCo
SELECT 待转换的数据.Co2   FROM 待转换的数据 WHERE 待转换的数据.Yph = 已有id.Yph INTO ARRAY aCo2
SELECT 待转换的数据.Ch4   FROM 待转换的数据 WHERE 待转换的数据.Yph = 已有id.Yph INTO ARRAY aCh4
SELECT 待转换的数据.C2h4  FROM 待转换的数据 WHERE 待转换的数据.Yph = 已有id.Yph INTO ARRAY aC2h4
SELECT 待转换的数据.C2h6  FROM 待转换的数据 WHERE 待转换的数据.Yph = 已有id.Yph INTO ARRAY aC2h6
SELECT 待转换的数据.C2h2  FROM 待转换的数据 WHERE 待转换的数据.Yph = 已有id.Yph INTO ARRAY aC2h2
SELECT 待转换的数据.C1_c2 FROM 待转换的数据 WHERE 待转换的数据.Yph = 已有id.Yph INTO ARRAY a总烃
REPLACE 色谱.设备id WITH 已有id.设备id, 色谱.色谱id WITH a色谱id, 色谱.样品名称 WITH a样品名称,;
        色谱.分析日期 WITH a分析日期, 色谱.取样日期 WITH a取样日期,;
        色谱.检测原因 WITH a检测原因,;
        色谱.H2 WITH aH2, 色谱.Co WITH aCo, 色谱.Co2 WITH aCo2, 色谱.Ch4 WITH aCh4, 色谱.C2h4 WITH aC2h4,; 
        色谱.C2h6 WITH aC2h6, 色谱.C2h2 WITH aC2h2, 色谱.总烃 WITH a总烃 






























cu盘id = ""
DO u盘判断.prg WITH cu盘id
c待转换的数据 = "&cU盘id"+"待转换的数据.dbf"
cCddb         = "&cU盘id"+"Cddb.dbf"

IF !USED("待转换的数据")
	USE &c待转换的数据 EXCLUSIVE IN 0
ENDIF
IF !USED("Cddb")
	USE &cCddb EXCLUSIVE IN 0
ENDIF

SELECT 待转换的数据.yph, 数据字典.设备id;
 FROM  待转换的数据 INNER JOIN public!数据字典 ;
   ON  待转换的数据.zhan == 数据字典.zhan;
  AND  待转换的数据.name == 数据字典.name;
 INTO CURSOR 已有id;
 ORDER BY 待转换的数据.yph

SELECT 待转换的数据.yph; 
 FROM  待转换的数据; 
 WHERE 待转换的数据.yph;  
 NOT IN (SELECT 已有id.yph FROM 已有id);
 INTO CURSOR 无id;
 ORDER BY 待转换的数据.yph



SELECT * FROM 待转换的数据 INNER JOIN 已有id ON 待转换的数据.Yph == 已有id.Yph ORDER BY 待转换的数据.yph INTO CURSOR 待转换已有id



*THISFORM.grd已有id.RecordSource = .NULL.
THISFORM.grd已有id.RecordSource = "待转换已有id"
*THISFORM.Grid1.RecordSource = .NULL.
*THISFORM.Grid1.RecordSource = "SELECT * FROM 待转换的数据 INNER JOIN 无id ON 待转换的数据.Yph == 无id.Yph ORDER BY 待转换的数据.yph"