delphiÔõÑùÁ¬½ÓSqlite Ôöɾ¸Ä²é
ÇódelphiÔõÑùÁ¬½ÓSqlite Ôöɾ¸Ä²éÀý×Ó
ÓÃASqlite3Query,ÉèÖÃËûµÄconnectionΪASqlite3DB
ASqlite3Query.Sql.text := 'insert into ....';
ASqlite3Query.Execsql;
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;
ÎÒÕâÑùдΪʲô²»ÐÐÄØ
Â¥Ö÷¿ÉÒÔÊÔÊÔÕâ¸ö£º
http://www.itwriting.com/blog/a-simple-delphi-wrapper-for-sqlite-3
¼òµ¥·½±ã
{{
Ïà¹ØÎÊ´ð£º
ÎÒ°²×°µÄÊÇÆóÒµ°æ¡£¡£¡£
ÎÒÎÊÏ£¬ CTRL+×ó¼ü Äܲ鿴 windows.pas Âð£¿
¾ÍÊÇ ½Ó¿ÚÀïµÄwindows¡£
µ±È»¿ÉÒÔ,CTRL+×ó¼üµã»÷Interface²¿·ÖµÄWindows¾Í¿ÉÒÔÁË
ɶɶÆóÒµ°æ£¿È¥°²×°Ä¿Â¼¿´¿´libÎļþ¼ÐÏÂÓÐÃ»Ó ......
ÎÒдÁ˸öС³ÌÐò£¬ÉÏÃæÌí¼ÓÁËÒ»¸öshockwaveflash¿Ø¼þ£¬È»ºóÔÚmovieÀïдÈëswfÎļþµÄ·¾¶£¬È»ºóÖ´ÐÐûÓÐÎÊÌâ¡£
µ±ÎÒ°ÑÕâ¸ö³ÌÐòתÒƵ½Áíһ̨µçÄÔÖ´ÐÐʱ£¬ shockwaveflash ¿Ø¼þÏÔʾ¿Õ°×¡£Ò²¾ÍÊÇûÓмÓÔØÄǸöswfÎļþ¡£ ......
procedure DynArrayDelete(var A;elSize:Longint;index,Count:Integer);
var
len,MaxDelete:Integer;
P:PLongint; //4 ¸ö×ֽڵij¤ÕûÐÎÖ¸Õë
begin
P:=PLongint(A);// È¡µÄ A µÄ ......
ÈçÌ⣺
ÎҵijÌÐò Create µÄʱºò ´´½¨ÁËN ¸öỊ̈߳»ÕâN¸öÏ̲߳»Í£µÄÔÚ ¼àÌýN¸öCOM¿ÚµÄÊý¾Ý£»µ±·ÖÎöÊý¾Ýʱ£¬ÓÐЩʱºòÒªµ¯³öapplication.messagebox ¶Ô»°¿òÅÐ¶Ï ÊÇ·ñ¼ÌÐø Ö´ÐÐỊ̈߳¬»¹ÊǹÒÆðÏ̡߳£µ±¶à¸öÏß³Ìͬʱ ......