delphi×é¼þµÄÊý¾ÝÈçºÎתΪÊý¾Ý¿âÀïµÄÊý¾ÝÀàÐÍ

ÎÒÊdzõѧÕߣ¬ÇëÎÊÈçºÎ½«Edit1.captionµÄÊý¾Ýת»»³ÉaccessÊý¾Ý¿âÀïµÄÊýÖµÐÍÊý¾Ý¡£

---

Ê×ÏÈcaptionÄڵĵÃÊÇÊý×Ö
strtoint(edit1.caption)//תΪÕûÐÍ

---

תµ½SQLÀï,ÊÇÓï¾ä,ÄǾÍÊÇ×Ö·û´®,ÊDz»ÓÃתµÄ

---

StrTointDef(Edit1.caption, -1);
Èç¹ûcaptionÊÇÊý¾ÝÔò½á¹ûÊÇcaption´ú±íµÄÊý¾Ý£¬·ñÔò·µ»Ø-1

---

Edit1ÓÐcaptionÊôÐÔÂð?
³ý·ÇÄãµÄEdit1²»ÊÇ´ÓTEdit¼Ì³ÐÏÂÀ´µÄ

Var
k:Integer;

Try
k:=StrToInt(Trim(Edit1.Text))
Except
Showmessage('ÇëÊäÈëÊý×Ö');
Exit;
End;

...
ÏÂÃæ±£´æµ½Êý¾Ý¿âÖоÍÖ±½ÓʹÓÃk

---

ºÇºÇ~~¹ÃÇÒÈÏΪÊÇedit.text

with ADOQuery1 do
begin
close;
sql.text := 'select * from tablename';
open;
end;
¡­¡­ ¡­¡­

ADOQUery1.FieldByName('fieldname').asstring := Trim(edit1.text);

×îºó±ðÍüÁËpost

---

with ADOQuery1 do
begin
  close;
  sql.text := 'update tablename set fieldname='+trim(edit1.text)+' where 1=1';
  execute;
end;

¡­¡­ ¡­¡­