Delphi ˫ɫÇò·ÖÎöÈí¼þ(1)
ÓÐÒ»¶Îʱ¼äûÕý¾µÄÓÃdelphiÁË£¬Ç°Á½ÌìÏÂÔØÁËDelphi2010£¬ÓÃËüÀ´ÕÒÕÒDelphiµÄ¸Ð¾õ£¬°ÑдµÄһЩ¶«Î÷¹²Ïí³öÀ´£¬´ó¼Ò¹²Í¬Ñ§Ï°Ò»Ï£¬ºÇºÇ¡£
ÎÒÏë×öÒ»¸ö˫ɫÇòµÄ·ÖÎöÈí¼þ£¬ÒÔÏÂÊÇÆäÖÐʵÏֵIJ¿·ÖÀàµÄµ¥ÔªÎļþ£¬ÆäËûÎļþºóÐøÒ»µãÒ»µãµÄ²¹Æë£¬Óв»Í׵ĵط½£¬Ï£Íû´ó¼ÒÖ¸Õý£¬Ð»Ð»À²£¡
ÔÚʹÓÃDelphi2010ÊÇ£¬·¢ÏÖ¸öÎÊÌ⣬ÔÚÓÃshowº¯Êýµ÷Óô°Ìåʱ£¬Ö÷´°¿Ú×ÜÊÇÔÚ×Ó´°¿ÚµÄÏÂÃæ¡£
{¹¤¾ßÀ൥Ԫ£¬°üÀ¨Ò»Ð©Óõ½µÄ¸¨ÖúÀඨÒå}
unit uCustomUtils;
interface
uses
Classes;
type
TLottery = packed record
{ºìÇò¼¯ºÏ}
RedBalls: TStringList;
{ÀºÇò}
BlueBall: string;
{¿ª½±ÆÚºÅ}
Period: string;
{¿ª½±Ê±¼ä}
Time: string;
{ÆæÅ¼Êý±È}
OddEvenCompare: string;
{´óС±È}
BigSmallCompare: string;
{ºÍÖµ}
Sum: string;
end;
pLottery = ^TLottery;
implementation
end.
{Êý¾Ý¿â¸¨Öúµ¥Ôª£¬Í¨¹ýÕâ¸öÀàÈ¥ÓëÊý¾Ý¿â´ò½»µÀ,ÒòΪµ±Ç°Óõ½µÄÊÇAccessÊý¾Ý¿â£¬}
{ËùÒԼ̳ÐÁËÒ»¸öAccessµÄÀ࣬ÆäËûÊý¾Ý¿â£¬¿ÉÒÔÔÙÁíÐÐʵÏÖ}
unit uDBHelper;
interface
uses
Classes, ADODB, SysUtils, Windows,
uCustomUtils;
const
CONNECTION_STRING_ACCESS = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;Persist Security Info=False';
type
TDBHelper = class
private
FDBFilePath: string;
FCommandText: string;
FConnection: TADOConnection;
public
{Ö´ÐÐInsert,Delete,Update²Ù×÷}
procedure Execute; virtual; abstract;
{Ö´ÐÐselect²Ù×÷}
procedure SelectExecute; virtual; abstract;
{´ò¿ªÊý¾Ý¿âÁ¬½Ó}
procedure Open; virtual; abstract;
{¹Ø±ÕÊý¾Ý¿âÁ¬½Ó}
procedure Close; virtual; abstract;
{¹¹Ô캯Êý}
&n
Ïà¹ØÎĵµ£º
DelphiÖи߼¶DLLµÄ±àдºÍµ÷Óü¼ÇÉ
¸ù¾ÝDelphiÌṩµÄÓÐ¹Ø DLL±àдºÍµ÷ÓõİïÖúÐÅÏ¢£¬Äã¿ÉÒԺܿìÍê³ÉÒ»°ãµÄ DLL±àдºÍµ÷ÓÃµÄ Ó¦ÓóÌÐò¡£±¾ÎĽéÉܵÄÖ÷ÌâÊÇÈçºÎ±àдºÍµ÷ÓÃÄܹ»´«µÝ¸÷ÖÖ²ÎÊý£¨°üÀ¨¶ÔÏóʵÀý£©µÄ DLL¡£ÀýÈ磬 Ö÷½Ð³ÌÐò´«µÝ¸ø DLLÒ»¸öADOConnection ¶ÔÏóʾÀý×÷Ϊ²ÎÊý£¬ DLLÖеĺ¯ÊýºÍ
¸ù¾ÝDelphiÌṩµÄÓÐ¹Ø DLL±àÐ ......
×î½üÒ»Õó×Ó£¬×ÜÊDZ»Ò»¸öĪÃûÆäÃîµÄbugÀ§ÈÅ¡£×Ô¼ºÐ´µÄocx£¨.net2005£©ÔÚdelphi7Öе÷Óã¬Ã÷Ã÷ûÓÐÊÍ·ÅÖ÷¶¯ÊͷŹýÄڴ棬ȴ±»Á¬ÐøÊÍ·ÅÁËÁ½´Î¡£½á¹û£¬³ÌÐòÍ˳öʱ¾ÍdownµôÁË¡£µ±È»£¬ÕâÊÇÔÚdebugģʽϲŻá³öÏÖ£¬µ«ÊÇexeÅܵÄʱºò»áĪÃûÆæÃîµÄdownµô£¬¶øÇÒ³ö´íÍùÍùÖ¸Ïòocx£¬ÎÒÏëÒ»¶¨ºÍocxµÄµ÷ÓÃÓйء£
ÉÏÍøÕÒÁËpurify£¬boundscheck ......
procedure TForm1.Button3Click(Sender: TObject);
begin
//ÏÔʾ´´½¨µÄÊý¾Ý¼¯: dbgrid->datasource->clientdataset
//Èç¹ûÊÖ¹¤¿ØÖÆdbgridÏÔʾ¿í¶È,dbgridÓÒ¼ü´´½¨Á½¸ö×Ö¶Îaa,bb,·Ö±ðÉèÖÿí¶È¼´¿É
cds1.FieldDefs.Add('aa',ftString,40);
......
Õª
Òª£º±¾ÎÄͨ¹ýʹÓÃDelphiºÍWebServices¼¼Êõ¿ª·¢¶ÌÐÅÓ¦ÓóÌÐòµÄʵÀýÏêϸµÄ½éÉÜÁËÈçºÎÔÚDelphiÖпª·¢»ùÓÚWebServices¼¼Êõ
µÄÓ¦ÓóÌÐò¡£
¡¡¡¡¹Ø¼ü×Ö£ºDelphi£»WebService£»¶ÌÐÅÓ¦ÓóÌÐò¿ª·¢
¡¡¡¡Ò»ÌáÆð»ùÓÚWebServices¼¼ÊõµÄÓ¦ÓóÌÐò¿ª·¢£¬Ò»°ãÈËÊ×ÏÈÏëµ½µÄ¿ª·¢¹¤¾ßÊÇVS.net£¬Æäʵ×÷Ϊ¿ìËÙÓ¦ÓóÌÐò¿ª·¢¹¤¾ß
(RAD)µ ......