delphiÊý¾Ý¿â´¦Àí
µÚÒ»½Ú BDE¡¢ADO¡¢InterBaseºÍdbExpress
DelphiÖд¦ÀíÊý¾Ý¿âÖ÷ÒªÓÐÁ½ÖÖ·½·¨£¬Ò²¾ÍÊÇBDE¡¢ADO£¬´ÓDelphi 6.0¿ªÊ¼»¹¼ÓÈëÁËÒ»ÖÖdbExpress·½·¨¡£ ÁíÍ⣬Delphi»¹ÌṩÁËרÃÅ´¦ÀíBorland ¹«Ë¾×Ô¼ºµÄÊý¾Ý¿â²úÆ·InterBase Êý¾Ý¿âµÄרÃŵķ½·¨¡£
BDE£¨Borland Databas Engine£©£¬ ÊÇDelphiÖÐ×î¹ÅÀϵļ¼Êõ£¬´Ódelphi 2.0¼ÓÈëBDE ¼¼ÊõÒÔºó£¬Ò»Ö±ÊÇDelphi´¦ÀíÊý¾Ý¿âµÄÊÂʵÉϵıê×¼¡£BDE ÊÇÒ»¸ö»ùÓÚÇý¶¯³ÌÐòµÄÌåϵ½á¹¹£¬Ã¿Ò»ÖÖÊý¾Ý¸ñʽ»òÊý¾ÝÔ´¶¼ÓÐÒ»ÖÖÇý¶¯³ÌÐòÀ´Çý¶¯Ïà½üµÄÊý¾ÝÔ´¡£BDE ¿ÉÒԺܺõÄÖ§³ÖÏÖÔÚ×îÁ÷ÐеÄODBC API·½·¨£¬ODBCÊÇÒ»ÖÖC/C++ Ó¦ÓóÌÐò±à³Ì½Ó¿Ú£¨API £©£¬ÎÞÂÛÊǶÔÈκÎÒ»ÖÖ¿Í»§/ ·þÎñÆ÷¹ØϵÐÍÊý¾Ý¿â¹ÜÀíϵͳ£¨RDBMS £©£¬»¹ÊÇ×îÁ÷ÐÐË÷Òý˳Ðò·ÃÎÊ·½·¨£¨ISAM£©Êý¾Ý¿â£¨Jet¡¢Foxpro£©£¬ ¶¼ÄܺܺõķÃÎÊ¡£
ͬʱ£¬ÓÉÓÚBDE µÄÇý¶¯³ÌÐòÖ÷ÒªÖ±½ÓÀ´×ÔÓÚµÚÈý·½¿ª·¢ÉÌ£¬ËùÒÔ£¬¶ÔÓÚÏñOracleÕâЩ·Ç΢ÈíµÄÊý¾Ý¿â£¬Ö´ÐÐЧÂÊÉϱȽϸߡ£ÕýÊÇÕâЩÌص㣬ʹBDE ¼¼Êõ»¹Êǵõ½Á˺ܶàÊý¾Ý¿â¿ª·¢³ÌÐòÔ±µÄ»¶Ó¡£
ADO ¼¼ÊõÊÇ΢ÈíÌá³öÀ´µÄ´¦Àí¹ØϵÐÍÊý¾Ý¿âºÍ·Ç¹ØϵÐÍÊý¾Ý¿âµÄм¼Êõ£¬Ëü»ùÓÚ΢Èí±»³ÆΪOLE DBµÄÊý¾Ý·ÃÎÊģʽ£¬ËüÊÇרÃÅΪÁ˸ø´ó·¶Î§ÉÌÒµÊý¾ÝÔ´Ìṩ·ÃÎʶøÉè¼ÆµÄ£¬°üÀ¨´«Í³µÄ¹ØϵÐÍÊý¾Ý±í¡¢µç×ÓÓʼþϵͳ¡¢Í¼Ðθñʽ¡¢Internet×ÊÔ´µÈ¡£ADO ËùÐèÄÚ´æ¸üÉÙ£¬¸üÊʺϴóÁ÷Á¿ºÍ´óÊÂÎñÁ¿µÄÍøÂç¼ÆËã»úϵͳ¡£
ADO ¶¥²ãÓÐÈý¸ö¶ÔÏó£ºConnection¡¢Command¡¢Recordset¡£
ConnectionÓÃÒÔÖ¸¶¨Êý¾ÝÔ´£¬½¨Á¢ºÍÊý¾ÝÔ´µÄÁ¬½Ó¡£
Command ¶ÔÏóÓÃÒÔ¶ÔÊý¾çÔ´Ö´ÐÐÖ¸¶¨µÄÃüÁ¿ÉÒÔ½ÓÊÜSQL Óï¾ä£¬±íºÍ´æ´¢¹ý³ÌµÄÃû³Æ£¬Ö´ÐÐSQL ²éѯ£¬¸üÐÂÊý¾Ý£¬²åÈë¼Í¼µÈ¡£
Recordset ¶ÔÏó±íʾµÄÊÇÀ´×Ô±í»òÃüÁîÖ´Ðнá¹ûµÄ¼Ç¼ȫ¼¯£¬²Ù×ÝÀ´×ÔÌṩÕߵļ¸ºõËùÓÐÊý¾Ý¡£
ÓÉÓÚADO ¼¼ÊõµÄѸËÙÆÕ¼°£¬´ÓDelphi 5.0 ¿ªÊ¼£¬¼ÓÈëÁËADO ¼¼ÊõµÄÄ£¿é£¬²¢Öð²½³ÉΪDelphiÊý¾Ý¿âÉè¼ÆµÄÖ÷Á÷¡£µ«ÊÇ£¬ºÍVBµÄADODC Ïà±È£¬Ëü»¹ÊÇÓÐËù²»Í¬µÄ£¬ÔÚÊý¾Ý°ó¶¨ÉÏ£¬Ëü¸ü¶àµÄÎüÊÕÁËBDE µÄÌص㣬ÒÔ×öµ½ºÍÔÀ´µÄ³ÌÐò¼æÈÝ£¬Í¬Ê±£¬ËüÓÖ¿ÉÒÔ½ÓÊܱê×¼ADO ¼¼ÊõµÄ¸÷ÖÖÊô
ÐԺͷ½·¨£¬ÔÚ½ÓÊÜÕâЩÊôÐԺͷ½·¨Ê±£¬ËüÊǺÍÊý¾Ý°ó¶¨¿Ø¼þÍÑÀëµÄ£¬µ±È»´ÓijÖÖÒâÒåÉÏÀ´Ëµ£¬ÕâÖÖ·½°¸Ìá¸ßÁËÖ´ÐÐЧÂÊ£¬¸øÉè¼ÆÈËÔ±ÒÔ¸ü¶àµÄÑ¡Ôñ¡£
dbExpress ÊÇDelphi 6
Ïà¹ØÎĵµ£º
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
Button2: TButton;
procedure Butt ......
Delphi²Ù×÷XMLÊǺܷ½±ãµÄ£¬Ö÷ÒªÓÐÁ½ÖÖ·½·¨£»
1.ÓÃTClientDataSet²Ù×÷XML£»TClientDataSetÊǸöºÃ¶«Î÷£¬ÓÃËü²Ù×÷XMLÊǺܼòµ¥µÄÊ£¬²»¹ýȱµãÊÇÖ»ÄܲÙ×÷¹Ì¶¨¸ñʽµÄ XML£¬ËüÊʺϲÙ×÷±í½á¹¹µÄÊý¾Ý£¬Èç¹ûÄãÐèÒª°ÑÊý¾Ý±íµ¼³ö³ÉXMLÄÇÓÃTClientDataSetÊǸöºÃÖ÷Ò⣬±ÈÈçÏÂÃæÊÇÒ»¸öÊý¾Ý¼¯µ¼³ö³ÉXMLµÄ· ......
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Bu ......
implementation
uses ComOBJ;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var ExcelAPP1:Variant;
ExcelApp2:Variant;
I,j: Integer;
ID,IDX:string;
begin
try
ExcelAPP1:=CreateOleObject('Excel.Application');
E ......
uses Tlhelp32;
function KillTask(ExeFileName: string): integer;
const
PROCESS_TERMINATE = $0001;
var
ContinueLoop: BOOLean;
FSnapshotHandle: THandle;
FProcessEntry32: TProcessEntry32;
begin
Result := 0;
FSnapshotHandle := CreateToolhelp32Snapshot(T ......