MyDAC是怎樣工作的？

MyDAC，您可以連接到MySQL在兩個方面：在直接模式或客戶端模式。

在直接模式，MyDAC直接連接到MySQL不使用MySQL的客戶端軟件。 在客戶端模式，MyDAC通過連接到MySQL的MySQL客戶端庫。 MySQL客戶端庫提供了MySQL服務器。

相比之下，Borland數據庫引擎（BDE）使用若干層來訪問MySQL和需要額外的數據訪問軟件安裝在客戶機上。

BDE的數據傳輸協議，如下所示。

BDE連接協議

在客戶使用MyDAC模式允許您的應用程序，以避免使用溴化和ODBC。

MyDAC連接流[客戶端模式]

使用MyDAC在直接模式提供最佳的轉移路線。

MyDAC連接流[直接模式]

主要特點

以下列表描述的主要特點是數據訪問組件為MySQL。

• 直接訪問服務器的數據不使用客戶端庫。不需要安裝其他數據提供層（如BDE和ODBC）
• 的VCL，VCL.NET，和CLX版本的庫可用
• 全面 支持最新版本的MySQL服務器
• 支持所有MySQL Server數據類型
• 斷開連接的模型自動連接控制與數據離線
• 局部故障檢測方面的損失，並含蓄地重新執行某些操作
• 所有類型的地方進行排序和篩選，包括計算和查閱字段
• 自動數據更新與 TMyQuery，TMyTable 和 TMyStoredProc 組件
• Unicode和國家字符集支持
• 支持MySQL的許多特有的功能，如鎖定，SET和枚舉類型
• 先進的腳本執行功能與 TMyScript 組件
• 支持使用宏在SQL
• 集成dbForge融合標準版的MySQL的執行先進的數據庫開發和管理任務
• 從BDE輕鬆遷移的遷移嚮導
• 允許您使用專業版的Delphi和C + + Builder開發客戶機/服務器應用程序
• 包括年度MyDAC訂閱的優先支持
• 許可免版稅每個開發，每個團隊或每個站點

MyDAC設計時視圖

Quick Sort -delphi

 procedure QuickSort(var A: array of Integer; iLo, iHi: Integer);
  var
    Lo, Hi, Mid, T: Integer;
  begin
    Lo := iLo;
    Hi := iHi;
    Mid := A[(Lo + Hi) div 2];

    repeat

      while   A[Lo] 　＜     Mid    do Inc(Lo);

      while A[Hi]      ＞　  Mid do Dec(Hi);

      if Lo 　＜= 　Hi then
      begin
       
        T := A[Lo];
        A[Lo] := A[Hi];
        A[Hi] := T;
        Inc(Lo);
        Dec(Hi);
      end;
    until　　 Lo ＞ Hi;

    if Hi ＞　　 iLo then QuickSort(A, iLo, Hi);
    if Lo ＜　 iHi then QuickSort(A, Lo, iHi);

 end;

//==============================================
SEE AS:

Bubble Sort - delphi

 

Selection Sort - delphi

Selection Sort - delphi

procedure  SelectionSort(var A: array of Integer);
var
  I, J, T: Integer;
begin
  for I := Low(A) to High(A) - 1 do
    for J := High(A) downto I + 1 do
      if A[I] ＞ A[J] then
      begin
       
        T := A[I];
        A[I] := A[J];
        A[J] := T;
      
      end;
end;


//=================================
// see as:

Bubble Sort - delphi

Quick Sort -delphi

 

Bubble Sort - delphi

procedure  BubbleSort(var A: array of Integer);
var
  I, J, T: Integer;
begin

  for I := High(A) downto Low(A) do
    for J := Low(A) to High(A) - 1 do
      if A[J] > A[J + 1] then
      begin
           
        T := A[J];
        A[J] := A[J + 1];
        A[J + 1] := T;
       
      end;
end;

//=================================
// see as:

Selection Sort - delphi

Quick Sort -delphi