关于数据指针的问题
本帖最后由 csshow 于 2013-11-05 17:34:04 编辑
procedure TFrmMain.cxButton7Click(Sender: TObject);
begin
if IsChenked=False then
begin
with FrmLogin.OraQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('select SCSJKS,SCSJTZ,SJHJ,SCQK,FL,XH from ZMTSJB ' +
'where bc=:bc and mth=:mth and yf=:yf and day=:day order by xh');
Params.ParamByName('mth').Value:=botStr;
Params.ParamByName('bc').Value:=cxComboBox1.Text;
Params.ParamByName('yf').Value:=cxlbmonth.Caption;
Params.ParamByName('day').Value:=cxlbday.Caption;
Open;
end;
IsChenked:=True;
end;
{显示下一条数据}
ShowMessage(IntToStr(FrmLogin.OraQuery1.RecordCount));
try
FrmLogin.OraQuery1.Next;
cxTextEdit1.Text:=FrmLogin.OraQuery1.Fields[5].DisplayText; //显示序号
cxMaskEdit1.Text:=FrmLogin.OraQuery1.Fields[0].DisplayText; //开始时间
cxMaskEdit2.Text:=FrmLogin.OraQuery1.Fields[1].DisplayText; //停止时间
cxTextEdit4.Text:=FrmLogin.OraQuery1.Fields[2].DisplayText; //时间合计
cxTextEdit5.Text:=FrmLogin.OraQuery1.Fields[3].DisplayText; //生产情况
cxComboBox2.Text:=FrmLogin.OraQuery1.Fields[4].DisplayText; //情况分类
except
on E: Exception do
begin
ShowMessage(E.Message);
Exit;
end;
end;
end;
