Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

Delphi 5 ¿ØÖÆExcel

(Ò»)   ʹÓö¯Ì¬´´½¨µÄ·½·¨  
   
  Ê×ÏÈ´´½¨   Excel   ¶ÔÏó£¬Ê¹ÓÃComObj:  
  var   ExcelApp:   Variant;  
  ExcelApp   :=   CreateOleObject(   'Excel.Application'   );  
   
  1)   ÏÔʾµ±Ç°´°¿Ú£º  
  ExcelApp.Visible   :=   True;  
   
  2)   ¸ü¸Ä   Excel   ±êÌâÀ¸£º  
  ExcelApp.Caption   :=   'Ó¦ÓóÌÐòµ÷Óà   Microsoft   Excel';  
   
  3)   Ìí¼Óй¤×÷²¾£º  
  ExcelApp.WorkBooks.Add;  
   
  4)   ´ò¿ªÒÑ´æÔڵŤ×÷²¾£º  
  ExcelApp.WorkBooks.Open(   'C:\Excel\Demo.xls'   );  
   
  5)   ÉèÖõÚ2¸ö¹¤×÷±íΪ»î¶¯¹¤×÷±í£º  
  ExcelApp.WorkSheets[2].Activate;      
  »ò    
  ExcelApp.WorksSheets[   'Sheet2'   ].Activate;  
   
  6)   ¸øµ¥Ôª¸ñ¸³Öµ£º  
  ExcelApp.Cells[1,4].Value   :=   'µÚÒ»ÐеÚËÄÁÐ';  
   
  7)   ÉèÖÃÖ¸¶¨ÁеĿí¶È£¨µ¥Î»£º×Ö·û¸öÊý£©£¬ÒÔµÚÒ»ÁÐΪÀý£º  
  ExcelApp.ActiveSheet.Columns[1].ColumnsWidth   :=   5;  
   
  8)   ÉèÖÃÖ¸¶¨Ðеĸ߶ȣ¨µ¥Î»£º°õ£©£¨1°õ£½0.035ÀåÃ×£©£¬ÒÔµÚ¶þÐÐΪÀý£º  
  ExcelApp.ActiveSheet.Rows[2].RowHeight   :=   1/0.035;   //   1ÀåÃ×  
   
  9)   ÔÚµÚ8ÐÐ֮ǰ²åÈë·ÖÒ³·û£º  
  ExcelApp.WorkSheets[1].Rows[8].PageBreak   :=   1;  
   
  10)   ÔÚµÚ8ÁÐ֮ǰɾ³ý·ÖÒ³·û£º  
  ExcelApp.ActiveSheet.Columns[4].PageBreak   :=   0;  
   
  11)   Ö¸¶¨±ß¿òÏß¿í¶È£º  
  ExcelApp.ActiveSheet.Range[   'B3:D4'   ].Borders[2].Weight   :=   3;  
 


Ïà¹ØÎĵµ£º

³õ̽DelphiÖеIJå¼þ±à³Ì


ǰÑÔ 
¡¡¡¡ÎÒдDelphi³ÌÐòÊÇ´ÓMISϵͳÈëÃŵģ¬¿ªÊ¼³¢ÊÔ×Óϵͳ»®·ÖµÄʱºò²ÉÓõÄÊÇMDI´°ÌåµÄ½á¹¹¡£Ëæ×Åϵͳ¹¦ÄܵÄÀ©³ä£¬²»¶ÏÓÐеÄ×Óϵͳ¼ÓÈëϵͳÖУ¬µ¥¸ö¹¤³Ì»á±äµÃ·Ç³£´ó£¬Ã¿´Î×öÒ»µãÐ޸Ķ¼ÒªÖØÐ±àÒ룬µ¥¸ö¹¤³ÌµÄÐÎʽҲ²»ÀûÓÚÍŶÓЭ×÷¡£ÎªÁËÌá¸ß¹¤×÷ЧÂÊ£¬ÎÒÏ£ÍûÀûÓÃDLL¶¯Ì¬Á´½Ó¿âµÄÐÎʽʵÏÖ²å¼þ½á¹¹µÄ±à³Ì¡£
¡¡¡ ......

¹ØÓÚTDateTimePickerµÄÉ趨[delphi]

ÓÉÓÚÐèÒªÔÚ´°ÌåÖÐÉ趨һ¸öÈÕÆÚʱ¼ä£¬³öȥͨÓÃÐÍ¿¼ÂÇ£¬²ÉÓÃÁËTDateTimePicker¿Ø¼þ¡£
ÒòΪÕâ¸ö¿Ø¼þµÄĬÈÏ״ֻ̬ÄÜÏÔʾÈÕÆÚ£¬Ôì³ÉʹÓÃÉϵIJ»±ã£¬ËùÒÔÐèÒª×öÈçϵÄÉ趨£º
ÔڿؼþµÄformatÊôÐÔÀ¸ÀïÉèÖÃÈçÏÂÖµ£ºyyyy-mm-dd hh:mm:ss£»
É趨Íê³ÉºóµÄʱ¼äΪµ±Ç°µÄϵͳʱ¼ä£¬²»ÄÜͨ¹ýµ¯³öÈÕÀúÉ趨£¬Ö»ÄÜÔÚÎı¾¿òÖÐÉ趨¡£ ......

Delphiµ÷ÓÃÍⲿ³ÌÐòÏê½â

WinExecÖ÷ÒªÔËÐÐEXEÎļþ¡£È磺
WinExec("Notepad.exe Readme.txt", SW_SHOW);
ShellExecute²»½ö¿ÉÒÔÔËÐÐEXEÎļþ£¬Ò²¿ÉÒÔÔËÐÐÒѾ­¹ØÁªµÄÎļþ¡£
Ê×ÏȱØÐëÒýÓÃshellapi.pasµ¥Ôª£ºuses ShellAPI; 
1.±ê×¼Ó÷¨ 
¡¡¡¡ ShellExecuteº¯ÊýÔ­Ðͼ°²ÎÊýº¬ÒåÈçÏ£º 
function ShellExecute(hWnd: HWND; Operati ......

delphiÖÐTreeViewʹÓÃ

TreeViewÓɽڵ㹹³É£¬½¨Ê÷ͨ¹ý¶ÔTreeView.itemsÊôÐÔ½øÐвÙ×÷¡£ItemsÊÇÒ»¸öTTreeNodes¶ÔÏó£¬ÕâÊÇÒ»¸öTTreeNode¼¯¡£
Ò»¡¢Õë¶ÔTTreeNodes,Ò²¾ÍÊÇ TreeView.Items,ÓÐÕâЩÊôÐÔ£º
1¡¢count£¬½Úµã¸öÊý¡£
2¡¢item[index]  ,ͨ¹ýindexµÃµ½½Úµã¡£
¶þ¡¢Õë¶ÔTTreeNodes,Ò²¾ÍÊÇ TreeView.Items,³£ÓõÄÌí¼Ó½ÚµãµÄ²Ù×÷ÓУº
Add ......

delphiÈçºÎ設實現ÈçϽçÃæ

這個½çÃæÊÇÓÃPB×öµÄ£¬delphiÈçºÎ設實現ÄØ£¬ÏëÓÃdbControlGrid來實現(ºÃÏñÒ²×ö²»µ½)£¬
問題ÊÇÈçºÎ實現²»Í¬Éú產類別顯ʾ³ö來µÄ·½Ê½²»Ò»樣
......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ