delphiÁ¬postgresql³É¹¦£¬µ«²»ÄÜÔö¼Ó»òÐ޸ļǼ
»·¾³winXP,delphi 7, postsgresql 8.4, ÒÑ°²×°odbc for postgresql
Á¬½Ó·½Ê½ado -> odbc -> postgresql
Delphi(Pascal) code:
con1.ConnectionString := 'Provider=MSDASQL.1;Extended Properties="DRIVER={PostgreSQL ODBC Driver(UNICODE)};DATABASE=DataBase1;'
+ ' SERVER=127.0.0.1;PORT=5432;UID=postgres;PWD=123456; '
+ ' ReadOnly=0;Protocol=7.4;FakeOidIndex=0;ShowOidColumn=0; '
+ ' RowVersioning=0;ShowSystemTables=0;ConnSettings=;Fetch=100; '
+ ' Socket=4096;UnknownSizes=0;MaxVarcharSize=254; '
+ ' MaxLongVarcharSize=65536;Debug=0;CommLog=0;Optimizer=1;Ksqo=1; '
+ ' UseDeclareFetch=0;TextAsLongVarchar=1;UnknownsAsLongVarchar=0; '
+ ' BoolsAsChar=1;Parse=0;CancelAsFreeStmt=0; '
+ ' ExtraSysTablePrefixes=dd_;LFConversion=1;UpdatableCursors=1; '
+ ' DisallowPremature=0;TrueIsMinus1=0;BI=0;ByteaAsLongVarBinary=0; '
+ ' UseServerSidePrepare=0"' ;
qry1.Sql.Text := 'select id from table1';
qry1.Active := True;
qry1.Append;
qry1.FieldValues['id'] :='1';//Ö´Ðе½Õâ¾ä±¨´íField 'id' cannot be modified
Delphi(Pascal)
Ïà¹ØÎÊ´ð£º
ÎÒÓÃftpÉÏ´«Ò»¸öÎļþµ½ftp·þÎñÆ÷ÉÏ£¬Ç°¼¸Ì춼Óõĺúõģ¬ºóÃæÒ»Ö±µ½ÏÖÔÚÁ¬²»ÉÏftpÁË
-------------------------------------
IdHTTP1:=TIdHTTP.Create(GetIP); //Ϊ·ÀÖ¹¶ÏÍøºóidhttpÎÞ·¨Æô¶¯ÆðÀ´,ËùÒÔ ......
ÈçºÎÈÃMDI´°ÌåÖ»Äܽ¨Á¢Ò»¸ö×Ó´°Ìå?
1¡¢Ö»ÒªÒ»¸ö×Ó´°Ì壬ÄÇÓÃMDIÒâÒåºÎÔÚÄØ£¬¿ÉÒÔÖ±½ÓÓÃSDI´°ÌåÁË
2¡¢Èç¹ûÒ»¶¨ÒªÕâÑù£¬Í¨¹ýTForm.MDIChildCountÊôÐÔ¿ØÖÆ
Â¥Ö÷ÏëÒª×öÒ»¸öµ¼º½½çÃ棿£¿
µ¼º½Ò³ÃæµÄʵÏÖ˼ ......
//ÏÂÃæÊÇÒ»¼Ç¼£¬Èýά×ø±ê
type
Tposition = record
x:integer;
y:integer;
z:integer;
end;
//======ÏÂÃæÊÇÒªÔÚÒ»¸öÑ»· ......
delphiÄÚÖõļÓÃܽâÃܵ¥ÔªÊÇÄĸö£¿
DelphiÓÐÄÚÖüÓÃܽâÃܵ¥Ôª£¿
delphiÀïÓиö¼ÓÃܺͽâÃܵĵ¥Ôª
ÒýÓÃ
delphiÀïÓиö¼ÓÃܺͽâÃܵĵ¥Ôª
ÊÇÄĸö£¿
windowsµÄapi£¿
±ê×¼¼ÓÃܵÄÔ´´úÂ룬ÍøÉÏ ......
ÎÒ°²×°µÄÊÇÆóÒµ°æ¡£¡£¡£
ÎÒÎÊÏ£¬ CTRL+×ó¼ü Äܲ鿴 windows.pas Âð£¿
¾ÍÊÇ ½Ó¿ÚÀïµÄwindows¡£
µ±È»¿ÉÒÔ,CTRL+×ó¼üµã»÷Interface²¿·ÖµÄWindows¾Í¿ÉÒÔÁË
ɶɶÆóÒµ°æ£¿È¥°²×°Ä¿Â¼¿´¿´libÎļþ¼ÐÏÂÓÐÃ»Ó ......