Delphi + DBµÄ²éѯÓÅ»¯Éè¼ÆË¼Ïë
¾µä°¸Àý·ÖÏí Ôݲ»Éæ¼°·ÖÇø±í,±íÉè¼ÆµÈ Ö»´Ó±È½ÏdzµÄ½Ç¶ÈÀ´ÓÅ»¯
1.Ïȼì²é³ÌÐò ¼ì²éÄ£ÐͲãµÄÉè¼ÆÓë±àÂëÊÇ·ñºÏÀí ½«ºÍÕâ¸ö±íÓÐÓа󶨵ÄÊý¾Ý¸ÐÖª¿Ø¼þÈ«²¿È¥µô¡£
2.¹ÀËãÒ»¸öÊý¾ÝµÄ×î´óÁ¿ ¿ÉÒÔ´ÓÉè¼Æ½Ç¶È Ò²¿ÉÒÔ´Ó¿Í»§ÌṩµÄÊý¾Ý·ÖÎö δÀ´Ò»¶¨ÖÜÆÚÄÚµÄÔ¤Ôö³¤Á¿
3.½«ÌõÂëµÄ³¤¶È±£´æÆðÀ´£¬ÏÈÓÃÌõÂëµÄ³¤¶È½øÐйýÂË£¬Èç¹û80%ÒÔÉϵij¤¶È¶¼ÊÇÒ»¸ö³¤¶È£¬Ôò²»ÓÃÕâ¸ö·½·¨
4.½«ÌõÂëÖеÄżÊý¸öÊý±£´æÔÚÒ»¸ö¶ÀÁ¢µÄÊý×Ö×Ö¶ÎÖУ¬ÏȽøÐбȽϣ¬Ó¦¸ÃÏÈÄÜÅųýÒ»°ë
5.½«ÌõÂëµÄ×îºó¼¸Î»Êý¾Ý¶ÀÁ¢±£´æÔÚÒ»¸öÊý×Ö×Ö¶ÎÖУ¬ÏȽøÐбȽϣ¬Êý×ֱȽÏËÙ¶ÈÓ¦¸Ã±È×ֶαȽϿì
6.ÔÚ¸ù¾ÝÒµÎñ¿´ÊÇ·ñÄÜÓÃʱ¼äÀ´»®·Ö£¬Ã¿Ìì»òÿÖÜ£¬Ã¿Ô½¨Á¢Ò»Õűí
7.Ôö¼ÓÒ»intÀàÐ͵ÄÖ÷¼ü¡£³·ÏúÌõÂëµÄÖ÷¼ü¡£
×ܵÄÔÔòÊǽ«Êý¾Ý·ÖÀàÀ´²é£¬²»ÒªÃ¿½«¶¼ÔÚÒ»´ó¶ÑÖвéÕÒ£¬¾ÍÏóÔÚÊéµêÒ»Ñù£¬¿ÉÒÔ°´³ö°æÉÌ£¬°´ÊéÀàÐͽøÐÐ
Êé¼Ü·ÖÀ࣬ȻºóÕÒÊéµÄʱ¼ä²ÅÄÜ¿ìËÙ¶¨Î»¡£
/////////////////////////////////////////////////////////////////////////
¾µäÒ»¾äSQL:
if not exists(select akey from a where akey='1234')
insert into a values(akey, b,c,d)
Ïà¹ØÎĵµ£º
function BrowseCallbackProc(Wnd: HWND; uMsg: UINT; lParam, lpData: LPARAM): Integer; stdcall;
begin
if uMsg = BFFM_INITIALIZED then
begin
SendMessage(Wnd, BFFM_SETSELECTION, 1, lpData);
SetWindowText(Wnd, 'Ñ¡ÔñÒ»¸öÄ¿±ê');
end;
Result := 0;
end;
//hdl: ´°¿Ú¾ä±ú
//Root: ¸ùÄ ......
Delphi ÖÐÁ÷µÄʹÓÃ(1) Óà TMemoryStream(ÄÚ´æÁ÷) ÈëÃÅ
ǰÑÔ:
Ëùν"Á÷", ¾ÍÊÇÒ»¶ÎÊý¾Ý»òÊÇÒ»¿éÄÚ´æ;
ÔÚ½øÐÐÁ÷²Ù×÷ʱ, ÎÒÃDz»±Ø¹ØÐÄÁ÷ÖеÄÊý¾Ýµ½µ×ÊÇʲô; Ö»ÐèÒªÖªµÀÁ÷µÄ´óСºÍµ±Ç°µÄÖ¸ÕëλÖÃ. ËùÒÔÁ÷Ö»ÓÐÁ½¸öÊôÐÔ:
Size¡¢Position.
¶ÔÁ÷µÄ²Ù×÷, ²»¹ý¾ÍÊǶÁÈ¡ºÍдÈë. ËùÒÔÁ÷×îÖ÷ÒªµÄ·½·¨¾ÍÊÇ Read ºÍ Write.
Ôںܶ࿠......
(Ò») ʹÓö¯Ì¬´´½¨µÄ·½·¨
Ê×ÏÈ´´½¨ Excel ¶ÔÏó£¬Ê¹ÓÃComObj:
var ExcelApp: Variant;
ExcelApp := CreateOleObject( 'Excel.Application' );
1) ÏÔʾµ±Ç°´°¿Ú£º
ExcelApp.Visible := True;
2) ¸ü¸Ä Excel ±êÌâÀ¸£º
ExcelApp.Caption := 'Ó¦ÓóÌÐòµ÷Óà Microsoft Excel';
3) Ìí¼Óй¤×÷²¾£º
ExcelApp.WorkBooks.Add ......
DELPHI²ÎÊý¼¸¸ö¸ÅÄîÉϵÄÇø±ð ÊÕ²Ø
ÒýÓòÎÊý£º
ÒýÓòÎÊýÓÃvar¹Ø¼ü×Ö±êʾ
procedure DoubleTheValue (var Value: Integer);
begin
Value := Value * 2;
end;ÔÚÕâÖÖÇé¿öÏ£¬²ÎÊý¼È°ÑÒ»¸öÖµ´«µÝ¸ø¹ý³Ì£¬ÓÖ°ÑÐÂÖµ·µ»Ø¸øµ÷Óùý³ÌµÄ´úÂë¡£µ±ÄãÖ´ÐÐÍêÒÔÏ´úÂëʱ£º
var
X: Integer;
begin
X : ......
Ŀ¼
===============================================================================
¡Ñ RTTI ¼ò½é
¡Ñ Àà(class) ºÍ VMT µÄ¹ØÏµ
¡Ñ Àà(class)¡¢ÀàµÄÀà(class of class)¡¢Àà±äÁ¿(class variable) µÄ¹ØÏµ
¡Ñ TObject.ClassType ºÍ TObject.ClassInfo
¡Ñ is ºÍ as ÔËËã·ûµÄÔÀí
¡Ñ TTypeInfo – RTTI ÐÅÏ¢µÄ½ ......