小弟不才请大哥教一下 delphi的问题，解释详细加分50

procedure Tcprk_win.rkdno_EditExit(Sender: TObject);
begin
  tempQuery.close;
  tempQuery.sql.clear;
  tempQuery.sql.add('select * from jkd where (ckbh="' + curckbh + '") and (rkdno="' + rkdno_Edit.Text + '")');
  tempQuery.open;
  if not tempQuery.Eof then
  begin
    kd_date_Edit.Text := tempQuery.fieldbyname('kd_date').asstring;
    rkshm_edit.Text := tempQuery.fieldbyname('rkshm').asstring;
    dwbh_Edit.Text := tempQuery.fieldbyname('dwbh').asstring;
    factory_Edit.Text := tempQuery.fieldbyname('factory').asstring;
    slr_edit.Text := tempQuery.fieldbyname('slr').asstring;
    chrlx.Text := tempQuery.fieldbyname('chrlx').asstring;
    oldchrlx := tempQuery.fieldbyname('chrlx').asstring;
    jzy_Edit.Text := qm;
    cgdhdno_edit.Text := tempQuery.fieldbyname('cgdhdno').asstring;
    nowdate_Edit.Text := tempQuery.fieldbyname('nowdate').asstring;
    record_exist := true;
  end
  else
  begin
    kd_date_Edit.Text := DateTimeToStr(Date);
    cgdhdno_edit.Text := '';
    rkshm_edit.Text := '';
    dwbh_Edit.Text := '';
    factory_Edit.Text := '';
    slr_edit.Text := '';
    oldchrlx := '';
    jzy_Edit.Text := qm;
    nowdate_Edit.Text := '';
    record_exist := false;
  end;
  tempQuery.close;
  tempQuery.sql.clear;
  tempQuery.sql.add('select * from subjkd where');
  tempQuery.sql.add('(ckbh="' + curckbh + '") and (rkdno="' + rkdno_Edit.Text + '")');
  tempQuery.open;

  tempTable.emptytable;
  tempTable.batchmove(tempQuery, batappend);
  tempTable.refresh;
  oldTable.emptytable;
  oldTable.batchmove(tempQuery, batappend);
  doupdate;


  tempQuery.close;
  tempQuery.sql.clear;
  tempQuery.sql.add('select * from subwtjg where');
  tempQuery.sql.add('(ckbh="' + curckbh + '") and (rkdno="' + rkdno_Edit.Text + '")');
  tempQuery.open;

  tempTable1.emptytable;
  tempTable1.batchmove(tempQuery, batappend);
  doupdate1;
end;

追问：能加你qq吗高手659774244

答案：你想问什么？

其他：偶啊换个撒谎过因为全国电话vd 

上一个：现在用delphi7，想编一个最最简单的局域网聊天程序，越简单越好，能点对点发文字，就行谁能帮帮忙哈，谢谢
下一个：delphi中关于free的应用，要再什么样的前提条件下才可以对窗体进行free呢？