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

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³ÌÐòÔ±Òª¿ªÊ¼Ñ§Ï°JavaME

ÎÒһֱʹÓÃDelphi6¿ª·¢Èí¼þ£¬¿´µ½CSDNÉϵÄOPhoneÊÖ»ú¿ª·¢£¬ÓÖÈ¥GoogleÒ»·¬£¬Ìý˵±àдÊÖ»úÈí¼þ
ÄÜ׬Ǯ£¬ËùÒÔҪѧϰJava ME£¬¶ÁÁ˼¸Ì첩ÎÄ£¬´ó¶àÊý¸ÅÄî¸ãÇå³þÁË¡£
ҪѧJavaME¾ÍµÃÏÈѧJavaSE£¬ËùÒÔ×°Á˺ܶàÈí¼þ(²»×°ÄÇô¶à£¬OPhone¾Í×°²»ÉÏÈ¥)¡£
ÍÆ¼öһƪÓÅÐãµÄÎÄÕ£º
ÔÚ NetBeans IDE ÖÐÉè¼Æ Swing GUI
¶ÁÍêÕâÆªÎÄÕ£¬³õ ......

Delphi 7ʼþµÄ¶à´¦Àí»úÖÆ


 Delphi 7ʼþµÄ¶à´¦Àí»úÖÆ
Allen Tao
2007-08-19
¡¡¡¡Ê×ÏȽâÊÍÒ»ÏÂÕâ¸öÌâÄ¿¡£ÔÚÎÒʹÓÃDelphi 7µÄ¹ý³ÌÖз¢ÏÖ£¬Ò»¸ö¶ÔÏóµÄʼþÖ»Äܱ»Ò»¸ö¹ý³Ì´¦Àí¡£Èç¹û¶à´Î¸øÕâ¸ö¶ÔÏóµÄʼþ¸³¸ø´¦ÀíʼþµÄ¹ý³Ì£¬×îºóÕæÕý´¦ÀíʼþµÄ½«ÊÇ×îºó¸³ÖµµÄÄǸö¹ý³Ì¡£ÀýÈ磬ÓÐÀàTMyClassÖж¨ÒåÁËÒ»¸öʼþOnSomeFired£¬ÔÚÀàTClientClassÖи ......

DELPHI ÖÐÈçºÎÌáÉý½ø³ÌÁîÅÆ

ת:DELPHI ÖÐÈçºÎÌáÉý½ø³ÌÁîÅÆ
½üÒ»¶Îʱ¼äÔÚÓÃDELPHIд¸ö³ÌÐò,µ±ÎÒдµ½Ò»¸ö½áÊøÆäËû½ø³ÌµÄÄ£¿éµÄʱºòÓÐʱ²»³É¹¦,ÄÇÊÇÒòΪÆäËû½ø³Ì,È粡¶¾½ø³ÌµÄȨÏÞ¸ß,ͨ¹ý³£¹æµÄ½áÊø½ø³ÌµÄº¯ÊýÐв»Í¨,ÒªÊ×ÏÈÌá¸ß×ÔÉí³ÌÐòµÄȨÏÞ,ÔÙ½áÊøÆäËû½ø³Ì
ÔÚÍøÉÏÒ²¿´µ½ÁËһЩÌáÉý½ø³ÌÁîÅÆµÄº¯Êýµ«¶¼²»ÔõôºÃÓÃ,×îºóÎÒ»¹ÊÇ´ÓÒ»¸öºÚ¿ÍºóÃųÌÐòµÄÔ´´ú ......

delphi_ÊÖ¹¤´´½¨dataset

procedure TForm1.Button3Click(Sender: TObject);
begin
    //ÏÔʾ´´½¨µÄÊý¾Ý¼¯: dbgrid->datasource->clientdataset
    //Èç¹ûÊÖ¹¤¿ØÖÆdbgridÏÔʾ¿í¶È,dbgridÓÒ¼ü´´½¨Á½¸ö×Ö¶Îaa,bb,·Ö±ðÉèÖÿí¶È¼´¿É
    cds1.FieldDefs.Add('aa',ftString,40);
   ......

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

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