Delphi连接access方法|Delphi技巧 TTTBLOG

    with dm.AQR_BUFFER_010 do begin

        close;

        dm.AQR_BUFFER_010.Parameters.ParamByName('JOB_NO').Value := edtJob_No.text;

        open;

        if recordcount<=0 then begin

            x_pMsg:='未找到有效数据!'  ;

            messageDlg(x_pMsg,mtInformation,[mbOk],0);

            exit;

        end;

        while not eof do begin

            pTxt := fieldByName('PART_NO').AsString;

            next;

        end;