×÷Õß¡¡: handsome1234
delphi µ÷Óà Excel ºê
ÎÒµÄÀí½âºê¾ÍÊǺ¯Êý,Ö»ÒªÎÒÄܵ÷ÓÃVBAµÄº¯Êý¾ÍËãÊǵ÷ÓÃExcelºê.
×î½üºÜ³¤Ê±¼äÑо¿ÈçºÎÓÃdelphiµ÷ÓÃExcelºê,ÕÒÁ˺ܶà×ÊÁÏ£¬´ó¶àÊǽ²ÈçºÎµ÷ÓÃExcel£¬Óкü¸ÖÖ·½Ê½£¬µ«ÕæÕý½²ºêµÄºÜÉÙ£¬ÎÒÏÖÔÚ°ÑÎÒµÄ×ÊÁϹ²Ïíһϣ¬Ê¡µÃ½ñºóÓÐÏëÁ˽âÕâ·½ÃæÄÚÈݵÄÐֵܽãÃÃÃÇÉÙ×ßÍä·¡££º
1¡¢¼ÓÔØactivexºÍvbide97µ¥Ôª£¬ÆäÖÐvbide97¾ßÌå·¾¶ÔÚC:\Program Files\Borland\Delphi5\Ocx\ServersÏÂ
{¶¯Ì¬¼ÓÔØºê³ýÁ˵ļ¸ÖÖ·½·¨:V.CodeModule.AddfromString
V.CodeModule.AddfromFile
V.CodeModule.InsertLines
»¹ÓÐһЩ·½·¨ÔÚvbide97.pasÀïÃæ¶¼¿ÉÒÔÕÒµ½
}
ÆäÖÐV:_VBComponent;ÀàÐÍ
ÎÒÔÚ UseExcelµ¥ÔªÖмÓÁËAddExcelMaroÕâ¸öº¯Êý£¬¿ÉÒÔÖ±½Óµ÷Óá£
ÏÂÃæÊÇUseExcel.pas ÆäÖÐÊÇmsgboxVBAµÄÒ»¸öº¯Êý¡£
unit UseExcel; //½«Êý¾Ýµ¼ÈëExcelµÄµ¥Ôª
{XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX ......
×î½ü½ðÉ½ÔÆ°²È«ÖÐÐĽػñÁËÒ»¸öºÜÅ£XµÄ²¡¶¾£¬½ðɽµÄ·´²¡¶¾¹¤³Ìʦ²»ÓÉ̾µÀYYºÜ¾ÃµÄ¶«Î÷ÖÕÓÚÓÐÈËʵÏÖÁË¡£
ÕâÊÇÒ»¶ÎÕë¶ÔITÃñ¹¤¡¢ÓÈÆäÊÇDelphi³ÌÐòÔ±µÄ²¡¶¾£¬¼òµ¥µÄÃèÊö¸Ã¶¾ÐÐΪ£¬¾ÍÊÇ£ºËüרßÐȾ³ÌÐòÔ±µÄµçÄÔ£¬Ò»µ©³É¹¦£¬³ÌÐòÔ±½ñºóд³öµÄÈκγÌÐò£¬¶¼ÊÇ´ø¶¾µÄ¡£
Ëüͨ¹ýijÖÖ·½Ê½È¥²éÕÒdephiµÄ°²×°Ä¿Â¼£¬Èç¹ûÕÒµ½dephiÕâ¸öÔ©´óÍ·£¬¾Í½«Ð°¶ñµÄ¶ñÒâ´úÂëǰÅŲåÈëSysConst.pasÎļþ£¬Õâ¸öÎļþ±àÒëµÄʱºò£¬»áÉú³ÉSysConst.dcu£¬¶øÕâ¸öÎļþ»á±»Ìí¼Óµ½Ã¿¸öеÄdephi¹¤³ÌÖУ¬all right£¡ÏÖÔÚ£¬Ãñ¹¤ÃÇËù±àдµÄ³ÌÐò¾ÍÈ«²¿¶¼´ø¶¾¿©£¡¡£
¶ø¸ü¿ÉŵÄÊÇ£¬¸ù¾Ý¶ÔȾ¶¾ÏµÍ³µÄ·ÖÎö£¬ÎÒÃÇ·¢Ïָö¾ÔÚÈ«ÇòÍøÂçÖÐÒѾ´«²¥Á˶àÔ¡£ÒѲ»ÖªµÀÓжàÉÙÃñ¹¤µÄÉú²ú¹¤¾ßÖÐÁËÕÐ……
Delphi³ÌÐòÔ±µÄ±¯²Ò¾Àú——²¡¶¾ÔËÐйý³ÌÃèÊö
ijÄêijÔÂijÈÕ£¬dephiجÃÎÖпªÊ¼ÎÞÉùÎÞÏ¢µÄÖ´ÐС£²¡¶¾µÄÔËÐÐÒÔºó,Ê×ÏÈÖ´Ðкó´Ó×¢²á±í"HKEY_LOCAL_MACHINE\Software\Borland\Delphi\"µÄRootDirֵ϶ÁÈ¡Delphi·¾¶.È»ºóÔÙ¶ÁÈ¡delphi·¾¶ÏµÄ\source\rtl\sys\SysConst.pas Îļþ,Ñ»·¶Áȡֱµ½implementationÐÐ.È»ºóÌø³öÑ»·,ÏÂÃæ¿ªÊ¼Ç°ÅŲåÈë¶ñÒâ´úÂë.±£´æÎļþºó,×îºóʹÓÃMoveFileº¯Êý½«ÔÀ´µÄ SysConst.dcuÃüÃûÎ ......
Ê×ÏÈ´´½¨Ò»¸öеÄÏîÄ¿£¬È»ºóÏò´°ÌåÉÏÌí¼ÓÒ»¸öTQuery×é¼þºÍÒ»¸öTListView×é¼þ.
¡¡ÉèÖÃTQuery×é¼þµÄDatabaseNameÊôÐÔÉèÖÃΪDBDEMOS£¬SQLÊôÐÔÉèÖÃΪselect * from country¡£È»ºóÌí¼Ó³ÌÐò³õʼ»¯´úÂëÈçÏ£º
with adoquery1 do
begin
close;
ADOConnection1:=TADOConnection.Create(nil);
Adoconnection1.LoginPrompt:=false;
ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb;Persist Security Info=False';
adoquery1.Connection := ADOConnection1;
SQL.Clear;
SQL.add('select * from BOSS');
Open;
end;
for i:=0 to adoquery1.FieldCount-1 do
begin
TempColumn:=self.ListView1.Columns.Add;
TempColumn.Caption:=adoquery1.Fields[i].FieldName;
end;
adoquery1.First;
while not adoquery1.Eof do
begin
TempItem:=self.ListView1.Items.Add;
TempItem.Caption:=adoquery1.Fields[0].AsString;
for i:=1 to adoquery1.FieldCount-1 do
begin
TempItem.SubItems.Add(adoquery1.Fields[i].AsString);
end;
adoquer ......
1.javascriptµÄ×÷ÓÃÓòÎÊÌ⣺
ÈκγÌÐò¶¼»áÔÚÒ»¸öÈ«¾Ö»·¾³ÖÐÔËÐС£
ÔÚjavascriptÀïµÄÈ«¾Ö»·¾³¾ÍÊÇÒ»¸ö¶ÔÏó£¬Õâ¸ö¶ÔÏóÊÇjavascriptÔËÐл·¾³µÄ¸ù£¬¶ÔÓÚä¯ÀÀÆ÷ÖеÄjavascriptÀ´Ëµ£¬Õâ¸ö¸ù¶ÔÏó¾ÍÊÇÎÒÃÇÊìÖªµÄwindow¶ÔÏó(·Çä¯ÀÀÆ÷ËÞÖ÷³ÌÐòÖпÉÄܲ»½Ðwindow)¡£¶ÔÓÚÈ«¾ÖµÄjavascriptÓï¾äÀ´Ëµ£¬window¶ÔÏó¾ÍÏ൱ÓÚµ±Ç°×÷ÓÃÓò¡£
var myName = "leadzen";//ÕâÊǶ¨ÒåÁËwindow×÷ÓÃÓòµÄÒ»¸ö±äÁ¿myName
myName = "leadzen";//ÕâÊǶ¨ÒåÁËwindow¶ÔÏóµÄÒ»¸öÊôÐÔmyName
<mce:script type="text/javascript"><!--
var yourName="Íõ·Æ";
myName="leadzen";
alert(myName + "like " +yourName);//Êä³ö£ºleadzen like Íõ·Æ
ChangeNames();//µ÷ÓøÄÃûº¯Êý
function ChangeNames()
{
alert(yourName);//Êä³öundefined
alert(myName);//Êä³öleadzen
var yourName = "Íõ¾²ÎÄ";//¶ÔÍâÃæµÄ±äÁ¿²»»áÓиıä
myName = "ÀîÕ½";//¶ÔÍâÃæµÄmyNameÓиı䣬ÒòΪËüÊÇwindow¶ÔÏóµÄÒ»¸öÊôÐÔ
alert(myName + "like "+yourName);//Êä³ö£ºÀîÕ½ like Íõ¾²ÎÄ
};
alert(myName + "like " + yourName);//Êä³ö£ºÀîÕ½ like Íõ·Æ
// --></mce:script>
2.Ó÷¨
& ......
document Îĵ²¶ÔÏó - JavaScript½Å±¾ÓïÑÔÃèÊö
———————————————————————
×¢:Ò³ÃæÉÏÔªËØnameÊôÐÔºÍJavaScriptÒýÓõÄÃû³Æ±ØÐëÒ»Ö°üÀ¨´óСд
·ñÔò»áÌáʾÄãÒ»¸ö´íÎóÐÅÏ¢ “ÒýÓõÄÔªËØÎª¿Õ»òÕß²»ÊǶÔÏó\\\\\
”
———————————————————————
¶ÔÏóÊôÐÔ
document.title //ÉèÖÃÎĵµ±êÌâµÈ¼ÛÓÚHTMLµÄtitle±êÇ©
document.bgColor //ÉèÖÃÒ³Ãæ±³¾°É«
document.fgColor //ÉèÖÃǰ¾°É«(Îı¾ÑÕÉ«)
document.linkColor //δµã»÷¹ýµÄÁ´½ÓÑÕÉ«
document.alinkColor //¼¤»îÁ´½Ó(½¹µãÔÚ´ËÁ´½ÓÉÏ)µÄÑÕÉ«
document.vlinkColor //Òѵã»÷¹ýµÄÁ´½ÓÑÕÉ«
document.URL //ÉèÖÃURLÊôÐÔ´Ó¶øÔÚͬһ´°¿Ú´ò¿ªÁíÒ»ÍøÒ³
document.fileCreatedDate //Îļþ½¨Á¢ÈÕÆÚ£¬Ö»¶ÁÊôÐÔ
document.fileModifiedDate //ÎļþÐÞ¸ÄÈÕÆÚ£¬Ö»¶ÁÊôÐÔ
document.charset //ÉèÖÃ×Ö·û¼¯ ¼òÌåÖÐÎÄ:gb2312
document.fileS ......
1. oncontextmenu="window.event.returnValue=false" ½«³¹µ×ÆÁ±ÎÊó±êÓÒ¼ü
<table border oncontextmenu=return(false)><td>no</table> ¿ÉÓÃÓÚTable
2. <body onselectstart="return false"> È¡Ïûѡȡ¡¢·ÀÖ¹¸´ÖÆ
3. onpaste="return false" ²»×¼Õ³Ìù
4. oncopy="return false;" oncut="return false;" ·ÀÖ¹¸´ÖÆ
5. <link rel="Shortcut Icon" href="favicon.ico"> IEµØÖ·À¸Ç°»»³É×Ô¼ºµÄͼ±ê
6. <link rel="Bookmark" href="favicon.ico"> ¿ÉÒÔÔÚÊղؼÐÖÐÏÔʾ³öÄãµÄͼ±ê
7. <input style="ime-mode:disabled"> ¹Ø±ÕÊäÈë·¨
8. ÓÀÔ¶¶¼»á´ø×Å¿ò¼Ü
<script language="JavaScript"><!--
if (window == top)top.location.href = "frames.htm"; //frames.htmΪ¿ò¼ÜÍøÒ³
// --></script>
9. ·ÀÖ¹±»ÈËframe
<SCRIPT LANGUAGE=JAVASCRIPT><!--
if (top.location != self.location)top.location=self.location;
// --></SCRIPT>
10. ÍøÒ³½«²»Äܱ»Áí´æÎª
<noscript><*** src="/*.html>";</***></noscript>
11. <input type=button value="/²é¿´ÍøÒ³Ô´´úÂë
o ......