delphiÔõÑùÁ¬½ÓSqlite Ôöɾ¸Ä²é
delphiÁ¬½ÓSqlite Ôöɾ¸Ä²éÀý×Ó
Êý¾Ý¿âÒѾÁ¬Í¨ÁË, ²åÈë»á±¨´í£¬no query specified
with dm.ASQLite3Query1 do
begin
dm.ASQLite3Query1.Close;
dm.ASQLite3Query1.SQL.Clear;
sqlstr:='insert into student_test(id,username,telephone,address,state) values(:id,:username,:telephone,:address,:state)'; dm.ASQLite3Query1id.Value:=Trim(id_edit.Text);
dm.ASQLite3Query1username.Value:=Trim(username_edit.Text);
dm.ASQLite3Query1telephone.Value:=Trim(phone_edit.Text);
dm.ASQLite3Query1address.Value:=Trim(address_edit.Text);
dm.ASQLite3Query1state.Value:=Trim(state_edit.Text);
dm.ASQLite3Query1.ExecSQL;
dm.ASQLite3Query1.Close;
dm.ASQLite3Query1.SQL.Clear;
dm.ASQLite3Query1.SQL.Text:='select * from student_test';
dm.ASQLite3Query1.Open;
end;
Delphi(Pascal) code:
with dm.ASQLite3Query1 do
begin
dm.ASQLite3Query1.Close;
dm.ASQLite3Query1.SQL.Clear;
sqlstr:='insert into student_test(id,username,telephone,address,state) values(:id,
Ïà¹ØÎÊ´ð£º
Çë½Ì¸÷·¸ßÊÖ¡£ÎäÁÖÇ°±²¡£ÎÒ½«B.EXE×ö³É×ÊÔ´Îļþ£¬È»ºó¼Óµ½123.dllÖС£ÓÃA.EXEÀ´µ÷ÓÃ123.dllÖеÄB.EXE
Çë¸÷λǰ±²°ïæָ½ÌÏ¡£A.exeÈçºÎÀ´µ÷ÓÃdllÖеÄexe£¿´úÂëÓÖ¸ÃÈçºÎд£¿
ÎÞÈ˻شð£¿
×ö³É×ÊÔ´Î ......
ÎҵijÌÐòÖÐÓÐÒ»¶Î¸üÐÂijһÌõ¼Ç¼µÄÓï¾ä£º
var
id:=integer;
begin
id:=strtoint(edit1.text);//edit1.textµÄÖµÒѾȡµÃ;
...
...
...
adoQuery1.sql.add('update ¼Æ»®Çåµ¥±í set ¼Æ»®ÈÕ ......
ÇëÎÊDelphiÓÐÊ÷ÐοؼþÂð£¿
ÔõÑùʹÓã¿
Ttreeview
treeview.items.addchild(nil(Éϼ¶½Úµã),'°¸·¢Ê±·¢'(text));
raize ¿Ø¼þ°üÀïÃæÓУ¬csdnÓÐÏÂÔصÄ
²é°ïÖúTTreeViewºÍTNodeÁ½¸öÀà
TTreeView ......
ÈçÌ⣺
ÎҵijÌÐò Create µÄʱºò ´´½¨ÁËN ¸öỊ̈߳»ÕâN¸öÏ̲߳»Í£µÄÔÚ ¼àÌýN¸öCOM¿ÚµÄÊý¾Ý£»µ±·ÖÎöÊý¾Ýʱ£¬ÓÐЩʱºòÒªµ¯³öapplication.messagebox ¶Ô»°¿òÅÐ¶Ï ÊÇ·ñ¼ÌÐø Ö´ÐÐỊ̈߳¬»¹ÊǹÒÆðÏ̡߳£µ±¶à¸öÏß³Ìͬʱ ......