Delphi¶àÏß³Ìѧϰ£¨9£©£º¶àÏß³ÌÊý¾Ý¿â²éѯ£¨ADO£©
ADO¶àÏß³ÌÊý¾Ý¿â²éѯͨ³£»á³öÏÖ3¸öÎÊÌ⣺
1¡¢CoInitialize ûÓе÷Óã¨CoInitialize was not called£©£»ËùÒÔ£¬ÔÚʹÓÃÈκÎdbGo¶ÔÏóǰ£¬±ØÐëÊÖ µ÷ÓÃCoInitializeºÍCoUninitialize¡£µ÷ÓÃCoInitializeʧ°Ü»á²úÉú"CoInitialize was not called"ÀýÍâ¡£
2¡¢»²¼²»ÔÊÐí»æ»£¨Canvas does not allow drawing£©£»ËùÒÔ£¬±ØÐëͨ¹ýSynchronize¹ý³ÌÀ´Í¨ÖªÖ÷Ï̷߳ÃÎÊÖ÷´°ÌåÉϵÄÈκοؼþ¡£
3¡¢²»ÄÜʹÓÃÖ÷ADOÁ¬½Ó£¨Main TADoConnection cannot be used!£©£»ËùÒÔ£¬Ïß³ÌÖв»ÄÜʹÓÃÖ÷Ïß³ÌÖÐTADOConnection¶ÔÏó£¬Ã¿¸öÏ̱߳ØÐë´´½¨×Ô¼ºµÄÊý¾Ý¿âÁ¬½Ó¡£
Delphi2007°²×°ºóÔÚX:\Program Files\Common Files\CodeGear Shared\DataĿ¼ÏÂÓÐÒ»¸ödbdemos.mdbÎļþ£¬ÓÃÀ´×÷Ϊ²âÊÔµÄÀý×Ó¡£dbdemos.mdbÖеÄcustomer±í±£´æÁ˿ͻ§ÐÅÏ¢£¬orders±íÖб£´æÁ˶©µ¥ÐÅÏ¢¡£
²âÊÔ³ÌÐòÁ÷³Ì´óÖÂÊÇÕâÑùµÄ£ºÔÚÖ÷´°ÌåÉÏ·ÅTADOConnectionºÍTQuery¿Ø¼þ£¬Æô¶¯Ê±Õâ¸öTQuery´ÓCustomer±íÖвé³ö¿Í»§±àÂëCustNoºÍ¹«Ë¾Ãû³ÆCompany£¬·Åµ½Èý¸öCombox¿òÖУ¬·Ö±ðÔÚÈý¸öÁбí¿òÖÐÑ¡¶¨¿Í»§¹«Ë¾Ãû³Æ£¬°´ÕÕ¹«Ë¾Ãû³ÆËù¶ÔÓ¦µÄ¿Í»§´úÂ뽨Á¢Èý¸öÏß³ÌͬʱÔÚorders±íÖвéѯÏúÊÛÈÕÆÚSaleDate·Ö±ðÌîÈëListBoxÖС£
{Ö÷´°Ìå´úÂë}
unit Main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, StdCtrls;
type
TForm2 = class(TForm)
ComboBox1: TComboBox;
ComboBox2: TComboBox;
ComboBox3: TComboBox;
ListBox1: TListBox;
ListBox2: TListBox;
ListBox3: TListBox;
Button1: TButton;
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
uses ADOThread;
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
const
SQL_CONST='Select SaleDate from orders where CustNo = %d';
var
c1,c2,c3:Integer;
s1,s2,s3:string;
begin
//È¡µÃÈý¸öÑ¡Ôñ¿ò¿Í»§µÄ±àÂë
c1:=Integ
Ïà¹ØÎĵµ£º
ʵ¼ÊÉÏÕâ¸öÃû×Ö½Ð[SDL & Delphi]Ò²²»³ÉÎÊÌ⣬ ÒòΪ³ýÁËDelphiËÆºõҲûÓÐÄĸöÁ÷ÐеĿª·¢¹¤¾ßÓõÄÊÇPascalÓïÑÔ¡£
SDLÆäʵÎÒҲֻѧÁ˲»µ½Á½ÐÇÆÚ¶øÒÑ¡£¸Õ¿ªÊ¼ÎÒÏëÊÔͼÓÃVC£¬ÒòΪÕâÑù×ÊÁÏ×îÈ«£¬Ò²ºÜºÃÕÒ£¬µ«Ì«¾ÃûÓÃVCÏÖÔÚ¿´CµÄ´úÂëÓеãÀ§ÄÑ£¨->Õâ¸öËã·ûÊǸÉÂðµÄÀ´×Å……£©¡£Æäʵ×÷Ϊһ¸öרҵ²»ÊǼÆËã»úµÄÈË ......
DelphiÖ®Tchart¿Ø¼þʹÓÃÐĵÃ
×î½üÔÚѧϰdelphi£¬×öÒ»¸öÈí¼þÁ·ÊÖ£¬Óõ½Tchart¿Ø¼þ£¬ÓÐЩ´ÖÂÔµÄʹÓÃÐĵ㬹©delphi³õѧÕ߲ο¼¡£
TChartÊÇdelphiÀïÃæÒ»¸ö±ê×¼µÄͼÐÎÏÔʾ¿Ø¼þ¡£Ëü¿ÉÒÔ¾²Ì¬Éè¼Æ£¨at design time£©Ò²¿ÉÒÔ¶¯Ì¬Éú³É¡£¿ÉÏÂÔØSteema TeeChart 7£¬Ã»ÓÐÔ´´úÂ룬ÄÜÓþͺã¡
&nb ......
TThreadÊÇÒ»¸ö³éÏóÀà,ÓÃÓÚÔÚdelphiÖд´½¨Ï̡߳£
´´½¨Ò»¸öTThreadµÄ×ÓÀà¶ÔÏó¼´Ï൱ÓÚ´´½¨Ò»¸öÏ̡߳£¡¡¡¡
µ±Ò»¸öÓ¦ÓóÌÐòÔËÐÐʱ£¬Ó¦ÓóÌÐò¾Í±»ÔØÈëÄÚ´æ×¼±¸Ö´ÐС£´Ëʱ£¬Ëü³ÉΪ°üº¬Ò»¸ö»ò¶à¸öÏ̵߳Ľø³Ì¡£Ïß³ÌÖ´ÐÐÓ¦ÓóÌÐòµÄ²¿·ÖÄÚÈÝ£¬²¢ÓɲÙ×÷ϵͳ·ÖÅäCPUʱ¼ä¡£Í¬Ò»½ø³ÌµÄËùÓÐÏ̹߳²ÏíͬһµØÖ·¿Õ¼ä£¬¿ÉÒÔ·ÃÎʽø³ÌµÄÈ«¾Ö±äÁ¿ ......
»¥³âÁ¿ÊÇϵͳÄں˶ÔÏó£¬ËÓµÓоÍËÖ´ÐС£ËüÓëÁÙ½çÇø¹¤×÷ºÜÀàËÆ¡£²»Í¬´¦ÔÚÓÚ£º1¡¢»¥³âÁ¿¿ÉÒÔ¿ç½ø³Ì±ß½çͬ²½Ï̡߳£2¡¢¿ÉÒÔ¸ø»¥³âÁ¿È¡¸öÃû×Ö£¬Í¨¹ýÒýÓû¥³âÁ¿µÄÃû×ÖÀ´Ê¹ÓÃÒ»¸öÒÑÖªµÄ»¥³âÁ¿¶ÔÏó¡£
ʹÓû¥³âÁ¿Ö®ÀàµÄ¶ÔÏóÐèÒª·´¸´µ÷ÓÃϵͳÄںˣ¬ÆÚ¼äÐèÒª½øÐнø³ÌÉÏÏÂÎÄת»»ºÍ¿ØÖƼ¶±ðת»»£¬´ó¸ÅÐèÒªºÄ· ......
EventʼþÓ÷¨ÓëMutex²î²»¶à£¬µ«Ëü¿ÉÒÔʹÓãºSetEvent£¨Æô¶¯ÔËÐУ©ResetEvent£¨ÔÝÍ£ÔËÐУ©¡¢PulseEvent£¨Ö´ÐÐÒ»´ÎºóÁ¢¼´ÔÝÍ££©¡£
ÏÈ¿´Ò»Ï´´½¨º¯Êý£ºCreateEvent(
......