最近在做一个升级项目,源代码是Deplhi,对Deplhi了解不是很多,有些东西查不到,请知道的兄弟们帮个忙,我没有分数了,谢谢。
with QuerySK do begin
Close;
SQL.Clear;
SQL.ADD('SELECT SKAHIN,SKHYNO,SKNDAI,SKKSNO,SKSKOJ,SKSRYU,SKSEYM,SKSKYB,');
SQL.ADD(' SKCMPY,SKPLNC,SKCLUS,SKCPRJ,SKKNSO,SKPLVL');
SQL.ADD('FROM SKPLAN, CONMST');
SQL.ADD('WHERE CMTHIN = ''' + THIN + '''');
SQL.ADD(' AND SKAHIN = CMAHIN');
SQL.ADD(' AND SKCKIB LIKE '' ''');
SQL.ADD(' AND SKDEDF LIKE '' ''');
SQL.ADD('ORDER BY SKKNSO,SKAHIN,SKSKYB,SKSEYM,SKHYNO,SKNDAI');
// sql.savetofile('c:\querysk.txt');
SKKGrid.DataSource := DataSource1;
Prepare;
Open; ////////////////////////////////////////////////////////////////////////
这个DBRead(1)是什么意思?只读取第一行数据吗?????????????
SKKGrid.DBRead(1);
/////////////////////////////////////////////////////////////////////// iSKReccnt := RecordCount;
Close;
UnPrepare;
SKKGrid.DataSource := nil;
end;
with QuerySK do begin
Close;
SQL.Clear;
SQL.ADD('SELECT SKAHIN,SKHYNO,SKNDAI,SKKSNO,SKSKOJ,SKSRYU,SKSEYM,SKSKYB,');
SQL.ADD(' SKCMPY,SKPLNC,SKCLUS,SKCPRJ,SKKNSO,SKPLVL');
SQL.ADD('FROM SKPLAN, CONMST');
SQL.ADD('WHERE CMTHIN = ''' + THIN + '''');
SQL.ADD(' AND SKAHIN = CMAHIN');
SQL.ADD(' AND SKCKIB LIKE '' ''');
SQL.ADD(' AND SKDEDF LIKE '' ''');
SQL.ADD('ORDER BY SKKNSO,SKAHIN,SKSKYB,SKSEYM,SKHYNO,SKNDAI');
// sql.savetofile('c:\querysk.txt');
SKKGrid.DataSource := DataSource1;
Prepare;
Open; ////////////////////////////////////////////////////////////////////////
这个DBRead(1)是什么意思?只读取第一行数据吗?????????????
SKKGrid.DBRead(1);
/////////////////////////////////////////////////////////////////////// iSKReccnt := RecordCount;
Close;
UnPrepare;
SKKGrid.DataSource := nil;
end;
字面意思猜测是读取数据。