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 ......
¸÷λoracle¸ßÊÖ£¬Çë½ÌÒ»ÏÂΪʲôoracle 10gÔÚ°²×°µ½°Ù·ÖÖ®°ËÊ®ÎåµÄʱºò¾Í±¨´í²»ÄܼÌÐø°²×°£¿
ÄÚ´æ¶à´ó£¿¡¡ÖØÐÂϸöÊý¾Ý¿â°²×°ÊÔÊÔ..
ÒýÓÃ
¸÷λoracle¸ßÊÖ£¬Çë½ÌÒ»ÏÂΪʲôoracle 10gÔÚ°²×°µ½°Ù·ÖÖ®°ËÊ®ÎåµÄʱ ......
СµÜ£¬×î½üҪתÐÐÈ¥×öoracle¿ª·¢ÁË£¬ÓÉÓÚ´óѧ±Ïҵʱ£¬×ßÁ˸öÍä·£¬ÏÖÔÚºÜСÐÄ£¬ÎÊÏ£¬×öPL/SQLÓÐûÓÐǰ;£¿£¿£¿
µ±È»ÎÒ˵µÄÕâ¸öǰ;ÊÇÖ¸ ÒÔºóÒªÌø²Û£¬Êг¡¶ÔÕâÑùµÄÈ˲ŵÄÐèÇóÁ¿´ó²»´ó£¿£¿
3q ÄÇ¿´À´»¹Ö»ÄÜÏȽӴ ......
¼ÙÉètable01 ÖÐÓÐ ÒÔÏÂ×ÊÁÏ
emp_no emp_name
------- ------------
0001 TOM
0002 JOHN
0003 MARY
³£Óõ绰
¶øÎÒÃÇÒªµÃµ½ÒÔϵÄOUTPUT (»òÊǸ÷ÖÖÆäËûµÄoutput)
0001,TOM
0002,JOHN
......
oracle 11g °²×° 01092 ´íÎó,
ÈÕÖ¾ÐÅÏ¢£º
[oracle@linux trace]$ vi alert_orcl.log
MMON started with pid=14, OS id=9089
RESETLOGS after incomplete recovery UNTIL CHANGE 522752
Errors in file / ......