Question

delphi xe2 运行记录集报错

procedure TFrm_main.edt_isbnKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);begin if Key = 13 then with BasicDm.Q_Temp1 do begin close; sql.Text := 'select 书籍编号 from 书籍资料 where 标准ISBN=' + QuotedStr(edt_isbn.Text); open; end;
if BasicDm.Q_Temp1.RecordCount > 0 then begin if MessageBox(Handle, '数据库中相同的ISBN，是否调出该图书资料！?', '系统提示', MB_YESNO or MB_ICONQUESTION or MB_DEFBUTTON2) = IDYES then with BasicDm.Q_Temp1.DataSource.DataSet do begin ClearAll;// edt_no.Text := FieldByName('书籍编号').AsString; edt_isbn1.Text := FieldByName('标准ISBN').AsString; edt_titile.Text := FieldByName('书籍名称').AsString;
edt_author.Text := FieldByName('作者信息').AsString; edt_price.Text := FieldByName('价格').AsString; edt_page.Text := FieldByName('书籍页数').AsString; edt_fb.Text := FieldByName('馆藏总量').AsString; edt_zgfb.Text := FieldByName('馆内剩余').AsString;
edt_kb.Text := FieldByName('书籍开本').AsString; edt_bc.Text := FieldByName('书籍版次').AsString; cbo_lang.ItemIndex := cbo_lang.Items.IndexOf (FieldByName('所属语种').AsString); cbo_bm.ItemIndex := cbo_bm.Items.IndexOf(FieldByName('印刷版面').AsString); cbo_status.ItemIndex := cbo_status.Items.IndexOf (FieldByName('在馆状态').AsString);
edt_fhm.Text := FieldByName('分类名称').AsString; edt_flh.Text := FieldByName('中图分类').AsString; edt_zch.Text := FieldByName('种次号').AsString; edt_ssh.Text := FieldByName('索取号').AsString; cbo_cswz.ItemIndex := cbo_cswz.Items.IndexOf (FieldByName('存放位置').AsString);
cbo_gcbm.ItemIndex := cbo_gcbm.Items.IndexOf (FieldByName('馆藏地').AsString); edt_wxlx.Text := FieldByName('文献类别').AsString; memo_text.Text := FieldByName('内容简介').AsString; edt_memo.Text := FieldByName('备注').AsString; edt_fjh.Text := FieldByName('分卷册号').AsString;
edt_csm.Text := FieldByName('所属丛书').AsString; dtp_indate.DateTime := FieldByName('入库时间').AsDateTime; edt_pubdate.Text := FieldByName('出版日期').AsString; edt_subject.Text := FieldByName('主题词').AsString; edt_cbd.Text := FieldByName('出版地点').AsString;
edt_atta.Text := FieldByName('附件').AsString; edt_cbs.Text := FieldByName('出版社名').AsString; cbo_sec.ItemIndex := cbo_sec.Items.IndexOf(FieldByName('密级').AsString); chk_logout.Checked := FieldByName('是否注销').AsBoolean; end else btn_nlc.Click; end;end;
运行到
edt_isbn1.Text := FieldByName('标准ISBN').AsString;时报错

Answer 1

表中isbn值不是文本格式