delphi + oracle µÝ¹éµÄÎÊÌâ
´ó¼ÒºÃ£º
ÎÒĿǰҪ¿ª·¢Ò»¸öERPÖеÄBOM¹¤Ê±»ã×ܳÌÐò£¬ÔÚORACLEÖУ¬BOM±íµÄ½á¹¹ÊÇ´«Í³µÄ ¸¸¼þ ×Ó¼þ ʽµÄ£¬¹¤Ê±ÔÚÁíÒ»¸ö±íÖУ¬¿ÉÒÔÓÃleft outer joinÀ´¹ØÁª£¬¿ÉÒÔÈÏΪ£¬¹ØÁªºóµÄ±í½á¹¹Îª [¸¸¼þ] [×Ó¼þ] [¹¤Ê±] [»ã×ܽá¹û]¡£
ÎÒĿǰÓÃDELPHI¿ª·¢£¬ÎÒÏëÓõݹéµÄ·½Ê½À´»ã×Ü×Ó¼þµÄ¹¤Ê±£¬ÌîÈë»ã×ܽá¹û¡£Õâ¸öµÝ¹éÓ¦¸ÃÔõôд°¡£¿
û¿´Ã÷°×
¡°»ã×ܽá¹û¡±ÊÇÒª¼ÆËãµÄÄÚÈÝ£¿
ÊÇÒª¼ÆËã×Ó¼þµÄ¹¤Ê±£¿»¹Êǽ«×Ó¼þµÄ¹¤Ê±ÀÛ¼Óµ½¸¸¼þÖУ¿
Êǽ«×Ó¼þµÄ¹¤Ê±ÀÛ¼Óµ½¸¸¼þÖУ¿
Äã¿ÉÒÔÔÚÍøÉÏÕÒһϣ¬oracleÊÇ¿ÉÒԵݹéµÄ£º
iID := 100;
start with id = iID
connect by prior parentid = iID;
ÕâÖÖ¸ñʽ£»
BOM±íÓ빤ʱ¿ÉÒÔ¹ØÁª³ÉÒ»¸ö±í£¬È»ºó×öµÝ¹é
¸øÄãÒ»¸öÀàËÆµÄ
create table tt(autoid int,cname varchar2(20),fartherid int);
insert into tt values(13,'ÐÇÐǹ«Ë¾', 0);
insert into tt values(14,'×ܹ«Ë¾', 13);
insert into tt values(15,'ÐÐÕþ²¿', 14);
insert into tt values(16,'·Ö¹«Ë¾', 13);
insert into tt values(17,'ÏúÊÛ´¦', 16);
procedure TForm1.RefreshTreeView;
procedure getStructrueInfo(vKeyID: string;tnode: TTreeNode);
var
oraQuery1: TOraQuery;
Tnode1: TTreeNode;
begin
oraQuery1 := TOraQuery.Create(nil);
try
with oraQuery1 do
begin
close;
Ïà¹ØÎÊ´ð£º
°²×°ÁËOracle 10g£¬Ä¬Èϰ²×°ÁËorclÊý¾Ý¿â£¬Õâ¸öÊý¾Ý¿âÄܲ»ÄÜɾ³ý°¡£¬»¹ÓÐÎÒÈç¹ûн¨ÁËÆäËûÊý¾Ý¿â£¬Ôõô֪µÀÔÚwebÖеǽ²»Í¬Êý¾Ý¿âµÄµØÖ·°¡£¿
1
¿ÉÒÔɾ³ý
2
ÔÚWEBµØÖ·À¸ÖÐÊäÈëµØÖ·µÄʱºòÖ¸¶¨Ð´´½¨µÄÊý¾Ý¿âµÄIP ......
ÎÒÊÇÓÃÔ¶³Ì×ÀÃæÁ¬²Ù×÷·þÎñÆ÷ÉϵÄÊý¾Ý¿â¡£
ÔÚ´´½¨Ò»¸öÓû§Ö®ºó£¬ÔÙÓÃPLSQLµÇ¼£¬ÔòPLSQLËÀµôÁË¡£
ÎҹصôPLSQLÖ®ºó£¬ÓÃÆäËûÓû§Ò²²»ÄܵǼ¡£
ÎÒ°ÑoracleµÄ·þÎñÍ£Ö¹£¬½á¹û¾ÍÊÇoracleµÄ·þÎñ״̬¾ÍÍ£ÁôÔÚ¡°Í ......
delphi ÊÖ¶¯×°ÔØÇý¶¯ÎļþÌáʾ£º
RROR (1058): The driver is marked as disabled (Start=4) in its service database entry.
ÊDz»ÊÇÕâ¸öÇý¶¯±ØÐèÒªÓÃINFÀ´°²×°¡£¡£ÓÃ×Ô´øµÄINFÀ´×°ÊÇÕý³£µÄ¡£ÓÃÊÖ¶¯×°ÔؾÍÌáʾÈçÉÏ¡ ......
ÎÒÓÐÒ»¸ö±í£¬½á¹¹ÊÇÕâÑù¡£
ת³ö µ¥Î» תÈ뵥λ ±ÊÊý ½ð¶î
date(Ö÷) outid(Ö÷) inid(Ö÷) num amt
2009 1 2 1 500 Ϊ 1 µ¥Î» ÔÚ2009Ä ......
²éÁËÒ»ÌìµÄblob£¬»¹ÊÇûÀí½âµ½£¬ÎÒÏëÔÚVCÏ´æÈ¡¶þ½øÖƵÄÎļþ£¬Ê¹ÓõÄÊÇoo4o£¬ÕÕ×ŰïÖúÎĵµÉÏÃæµÄдÁËдÈëÊý¾Ý¿âµÄ´úÂ룬»¹ÊÇûд¶Ô£¬´íÎóÌáʾÊÇthis operation is not permitted on a empty LOB£¬ÕâÊÇʲôÒâ˼°¡£¿ÕÕ ......