unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB,
  Vcl.Grids, Vcl.DBGrids, Vcl.StdCtrls, ZAbstractRODataset, ZAbstractDataset,
  ZAbstractTable, ZDataset, ZAbstractConnection, ZConnection;

type
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    Button1: TButton;
    DataSource1: TDataSource;
    ZConnection1: TZConnection;
    ZTable1: TZTable;
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//=============================================================================
//  フォーム生成時の処理
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
  //TDataSource,TDBGridの設定
  DataSource1.DataSet := ZTable1;
  DBGrid1.DataSource  := DataSource1;
end;

//=============================================================================
//  フォームを閉じる時の処理
//=============================================================================
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ZTable1.Active := False;
  ZConnection1.Disconnect;
end;

//=============================================================================
//  ZeosLibを使用してJETデータベースに接続
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LConnectStr : string;
begin
  //念のため接続を切断してから設定
  ZConnection1.Disconnect;
  ZConnection1.LoginPrompt := False;

  //接続文字列の設定
  LConnectStr := 'Provider=Microsoft.Jet.OLEDB.4.0'
               + ';Data Source=' + ExpandFileName('..\TestMDB.mdb')
               + ';Persist Security Info=False';

  ZConnection1.Database := LConnectStr;
  ZConnection1.Protocol := 'ado';
  //データベースへ接続
  ZConnection1.Connect;

  //TZTableの設定
  ZTable1.Connection := ZConnection1;
  ZTable1.TableName  := 'Testtbl';
  //テーブルをアクティブにする
  ZTable1.Active     := True;
end;

end.

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB,
  Vcl.Grids, Vcl.DBGrids, Vcl.StdCtrls, ZAbstractRODataset, ZAbstractDataset,
  ZAbstractTable, ZDataset, ZAbstractConnection, ZConnection;

type
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    Button1: TButton;
    DataSource1: TDataSource;
    ZConnection1: TZConnection;
    ZQuery1: TZQuery;
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//=============================================================================
//  フォーム生成時の処理
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
  //TDataSource,TDBGridの設定
  DataSource1.DataSet := ZQuery1;
  DBGrid1.DataSource  := DataSource1;
end;

//=============================================================================
//  フォームを閉じる時の処理
//=============================================================================
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ZQuery1.Close;
  ZConnection1.Disconnect;
end;

//=============================================================================
//  ZeosLibを使用してJETデータベースに接続
//  Micorosoft Access 98 が使用しているJETエンジンが対象
//
//  JETエンジンのデータベースは1つのファイルに複数の表を格納する
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LConnectStr : string;
begin
  //念のため接続を切断してから設定
  ZQuery1.Close;
  ZConnection1.Disconnect;
  ZConnection1.LoginPrompt := False;

  //接続文字列の設定
  LConnectStr := 'Provider=Microsoft.Jet.OLEDB.4.0'
               + ';Data Source=' + ExpandFileName('..\TestMDB.mdb')
               + ';Persist Security Info=False';

  ZConnection1.Database := LConnectStr;
  ZConnection1.Protocol := 'ado';
  //データベースへ接続
  ZConnection1.Connect;

  //TZQueryの設定
  ZQuery1.Connection := ZConnection1;
  ZQuery1.Close;
  ZQuery1.SQL.Clear;
  ZQuery1.SQL.Add('select * from Testtbl');

  //クエリの実行
  ZQuery1.Open;
end;

end.

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB,
  Vcl.Grids, Vcl.DBGrids, Vcl.StdCtrls, ZAbstractRODataset, ZAbstractDataset,
  ZAbstractTable, ZDataset, ZAbstractConnection, ZConnection;

type
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    Button1: TButton;
    DataSource1: TDataSource;
    ZConnection1: TZConnection;
    ZQuery1: TZQuery;
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//=============================================================================
//  フォーム生成時の処理
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
  //TDataSource,TDBGridの設定
  DataSource1.DataSet := ZQuery1;
  DBGrid1.DataSource  := DataSource1;
end;

//=============================================================================
//  フォームを閉じる時の処理
//=============================================================================
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ZQuery1.Close;
  ZConnection1.Disconnect;
end;

//=============================================================================
//  ZeosLibを使用してJETデータベースに接続
//  Micorosoft Access 2007/2010 が使用しているJETエンジンが対象
//
//  JETエンジンのデータベースは1つのファイルに複数の表を格納する
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LConnectStr : string;
begin
  //念のため接続を切断してから設定
  ZQuery1.Close;
  ZConnection1.Disconnect;

  //接続文字列の設定
  //パスワードの設定あり
  LConnectStr := 'Provider=Microsoft.ACE.OLEDB.12.0'
               + ';Jet OLEDB:Database Password=123'
               + ';Data Source=' + ExpandFileName('..\TEST2007.mdb')
               + ';Persist Security Info=False';

  ZConnection1.Database := LConnectStr;
  ZConnection1.Protocol := 'ado';
  //データベースへ接続
  ZConnection1.Connect;

  //TZQueryの設定
  //日本語の表名は[]で括る
  //日本語の項目名は[]または"(ダブルクォーテーション)で括る
  ZQuery1.Connection := ZConnection1;
  ZQuery1.Close;
  ZQuery1.SQL.Clear;
  ZQuery1.SQL.Add('select * from [食品カロリ表] order by [番号]');

  //クエリを開く
  ZQuery1.Open;
end;

end.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ZAbstractRODataset, ZAbstractDataset, ZDataset,
  ZAbstractConnection, ZConnection, StdCtrls, Grids, DBGrids;

type
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    Button1: TButton;
    DataSource1: TDataSource;
    ZConnection1: TZConnection;
    ZQuery1: TZQuery;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

uses
  ZCompatibility;

{$R *.dfm}

//=============================================================================
//  フォーム生成時の処理
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
  //TDataSource,TDBGridの設定
  DataSource1.DataSet := ZQuery1;
  DBGrid1.DataSource := DataSource1;
end;

//=============================================================================
//  フォームを閉じる時の処理
//=============================================================================
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ZQuery1.Close;
  ZConnection1.Disconnect;
end;

//=============================================================================
//  ZeosLibを使用してParadoxデータベースに接続
//
//  Paradoxはフォルダがデータベース名
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LPdxDBName    : string;
  LPdxTableName : string;
  LConnectStr   : string;
begin
  if not OpenDialog1.Execute then exit;


  OpenDialog1.InitialDir := ExtractFileDir(OpenDialog1.FileName);
  LPdxDBName    := OpenDialog1.InitialDir;
  LPdxTableName := ChangeFileExt(ExtractFileName(OpenDialog1.FileName), '');

  //接続を切断してから設定
  ZQuery1.Close;
  ZConnection1.Disconnect;
  ZConnection1.LoginPrompt := False;

  //接続文字列の設定
  LConnectStr := 'Provider=Microsoft.Jet.OLEDB.4.0'
               + ';Data Source=' + LPdxDBName
               + ';Extended Properties=Paradox 5.x'
               + ';Persist Security Info=False';

  ZConnection1.Database := LConnectStr;
  ZConnection1.Protocol := 'ado';

  //UseMetadataをFalseにしないとWindows10で正常にデータを取得できない
  ZConnection1.UseMetadata := False;

  ZConnection1.Properties.Clear;
  ZConnection1.Properties.Add('AutoEncodeStrings=ON');
  ZConnection1.Properties.Add('controls_cp=CP_UTF16');

  //データベースへ接続
  ZConnection1.Connect;

  //TZQueryの設定
  ZQuery1.Connection := ZConnection1;
  ZQuery1.Close;
  ZQuery1.SQL.Clear;
  ZQuery1.SQL.Add('select * from ' + LPdxTableName);

  //クエリを開く
  ZQuery1.Open;
end;

end.

  ZQuery1.ParamByName('Val').AsBlob := TBlobField(Table1.FieldByName('Graphic')).Value;

var
  LStream : TMemoryStream;
begin
  LStream := TMemoryStream.Create;
  try
    ...

    TBlobField(Table1.FieldByName('Graphic')).SaveToStream(LStream);

    LStream.Position := 0;
    ZQuery1.ParamByName('Val').LoadFromStream(LStream, ftBlob);
    ...
  finally
    FreeAndNil(LStream);
  end;
  ...
end;

implementation

uses
  ZDbcIntfs;

{$R *.dfm}

//=============================================================================
//  フォーム生成時の処理
//
//  tiReadCommitted等の定数名の使用にはusesにZDbcIntfsが必要
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
var
  LConnectStr : string;
begin
  //TDBGridからは編集できないようにする
  DBGrid1.ReadOnly := True;

  //TDataSource,TDBGridの設定
  DataSource1.DataSet := ZQuery1;
  DBGrid1.DataSource  := DataSource1;

  ZQuery1.Close;
  ZConnection1.Disconnect;
  ZConnection1.LoginPrompt := False;

  //接続文字列の設定
  LConnectStr := 'Provider=Microsoft.Jet.OLEDB.4.0'
               + ';Data Source=' + ExpandFileName('..\TestMDB.mdb')
               + ';Persist Security Info=False';

  ZConnection1.Database := LConnectStr;
  ZConnection1.Protocol := 'ado';

  //トランザクションの分離レベルの設定
  //ZeosLibの推奨はtiRepeatableReadであるが未サポートの警告が表示される
  ZConnection1.TransactIsolationLevel := tiReadCommitted;
  //データベースへ接続
  ZConnection1.Connect;

  ZQuery1.Connection := ZConnection1;
  OpenQuery;
end;

//=============================================================================
//  フォームを閉じる時の処理
//=============================================================================
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if ZConnection1.InTransaction then begin
    ZConnection1.Rollback;
  end;
  ZQuery1.Close;
  ZConnection1.Disconnect;
end;

//-----------------------------------------------------------------------------
//  表のデータを表示するためのクエリの実行
//-----------------------------------------------------------------------------
procedure TForm1.OpenQuery;
begin
  //TZQueryの設定
  ZQuery1.Close;
  ZQuery1.SQL.Clear;
  ZQuery1.SQL.Add('select * from Testtbl');

  //クエリの実行
  ZQuery1.Open;
end;

//=============================================================================
//  トランザクション開始
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
begin
  if not ZConnection1.Connected then exit;
  if ZConnection1.InTransaction then exit;
  if ZQuery1.IsEmpty then exit;

  ZConnection1.StartTransaction;
  try
    //別のTZQueryを使用して更新クエリを実行
    ZQuery2.Close;
    ZQuery2.Connection := ZConnection1;

    ZQuery2.SQL.Clear;
    ZQuery2.SQL.Text := 'UPDATE Testtbl SET [店舗名] ="' + Edit1.Text + '";';
    ZQuery2.ExecSQL;

    //実際にはここでコミットを実行することが多い
  except
    //失敗した場合
    //実際には何らかの表示等が必要だろう
    ZConnection1.Rollback;
  end;

  //確認表示
  OpenQuery;
end;

//=============================================================================
//  コミット(データを確定する)
//  コミット後は、データを元に戻すことはできない
//=============================================================================
procedure TForm1.Button2Click(Sender: TObject);
begin
  if not ZConnection1.InTransaction then exit;

  try
    ZConnection1.Commit;
  except
    //失敗した場合
    //実際には何らかの表示等が必要だろう
    ZConnection1.Rollback;
  end;
end;

//=============================================================================
//  ロールバック
//  トランザクション開始前のデータに戻す
//  元に戻せるのはトランザクション中に変更したデータ
//=============================================================================
procedure TForm1.Button3Click(Sender: TObject);
begin
  if not ZConnection1.InTransaction then exit;

  //ロールバック
  ZConnection1.Rollback;

  //確認表示
  OpenQuery;
end;

// TZQuery.ParamByName(またはTZQuery.Params.ParamByName)を使用する場合
// プロパティの設定は以下でも可能
//  TZConnection.Properties.Add('PrepareSQL=True');

  //TZConnectionのPrepareSQLプロパティの値をTrueにする
  TZConnection.Properties.Values['PrepareSQL'] := 'True';
  //パラメータのチェックありにする
  TZQuery.ParamCheck := True;

// PrepareSQLプロパティの値をデフォルトのFalseでパラメータを設定す場合
// 実際のパラメータの設定方法はサンプルコードを参照

  //パラメータのチェックなしにする(デフォルトはTrue)
  TZQuery.ParamCheck := False;

implementation

{$R *.dfm}

//=============================================================================
//  フォーム生成時の処理
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
var
  LConnectStr : string;
begin
  //TDataSource,TDBGridの設定
  DataSource1.DataSet := ZQuery1;
  DBGrid1.DataSource  := DataSource1;

  ZQuery1.Close;
  ZConnection1.Disconnect;
  ZConnection1.LoginPrompt := False;

  //接続文字列の設定
  LConnectStr := 'Provider=Microsoft.Jet.OLEDB.4.0'
               + ';Data Source=' + ExpandFileName('..\TestMDB.mdb')
               + ';Persist Security Info=False';

  ZConnection1.Database := LConnectStr;
  ZConnection1.Protocol := 'ado';

  //データベースへ接続
  ZConnection1.Connect;

  ZQuery1.Connection := ZConnection1;
  OpenQuery;
end;

//=============================================================================
//  フォームを閉じる時の処理
//=============================================================================
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ZQuery1.Close;
  ZQuery2.Close;
  ZConnection1.Disconnect;
end;

//-----------------------------------------------------------------------------
//  表のデータを表示するためのクエリの実行
//-----------------------------------------------------------------------------
procedure TForm1.OpenQuery;
begin
  //TZQueryの設定
  ZQuery1.Close;
  ZQuery1.SQL.Clear;
  ZQuery1.SQL.Add('select * from Testtbl');

  //クエリの実行
  ZQuery1.Open;
end;

//=============================================================================
//  SQL文のパラメータの設定方法
//  TZQuery.ParamByName(またはTZQuery.Params.ParamByName)を使用する場合
//
//  TZConnectionのPrepareSQLプロパティの値をTrueにする
//  TZQuery.ParamCheckの値はTrueとする
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    //別のTZQueryを使用して更新クエリを実行
    ZQuery2.Close;
    ZQuery2.CachedUpdates := True;
    ZQuery2.Connection := ZConnection1;
    ZQuery2.SQL.Clear;

    //TZConnectionのPrepareSQLプロパティの値をTrueにする
    ZConnection1.Properties.Clear;
    ZConnection1.Properties.Add('PrepareSQL=True');
    //パラメータのチェックありにする
    ZQuery2.ParamCheck := True;

    //SQL文
    ZQuery2.SQL.Text := 'UPDATE Testtbl SET [店舗名] = :SHOP, [請求日] = :DATE;';

    //クエリのパラメータの設定
    ZQuery2.ParamByName('SHOP').AsString   := Edit1.Text;
    ZQuery2.ParamByName('DATE').AsDateTime := StrToDateTime('2010/10/15');

    //更新クエリの実行
    ZQuery2.ExecSQL;
  except
  end;

  //確認表示
  OpenQuery;
end;

//=============================================================================
//  SQL文のパラメータの設定方法
//  PrepareSQLプロパティの値をデフォルトのFalseでパラメータを設定すする場合
//  TZQuery.Params.CreateParamメソッドを使用する方法
//
//  TZQuery.ParamCheckの値をFalseとする(Trueがデフォルト値)
//=============================================================================
procedure TForm1.Button2Click(Sender: TObject);
begin
  try
    //別のTZQueryを使用して更新クエリを実行
    ZQuery2.Close;
    ZQuery2.Connection := ZConnection1;

    //パラメータのチェックなしにする
    ZQuery2.SQL.Clear;
    ZQuery2.CachedUpdates := True;
    ZQuery2.ParamCheck := False;

    //SQL文
    ZQuery2.SQL.Text := 'UPDATE Testtbl SET [店舗名] = :SHOP, [請求日] = :DATE;';

    //クエリのパラメータの設定
    ZQuery2.Params.CreateParam(ftString, 'SHOP', ptInput).Value := Edit1.Text;
    ZQuery2.Params.CreateParam(ftDateTime,'DATE', ptInput).Value := Now;

    //更新クエリの実行
    ZQuery2.ExecSQL;
  except
  end;

  //確認表示
  OpenQuery;
end;

//=============================================================================
//  SQL文のパラメータの設定方法
//  PrepareSQLプロパティの値をデフォルトのFalseでパラメータを設定すする場合
//  TZQuery.Params.CreateParamメソッドを使用する方法
//  TParamの変数を使用する例
//
//  TZQuery.ParamCheckの値をFalseとする(Trueがデフォルト値)
//=============================================================================
procedure TForm1.Button3Click(Sender: TObject);
var
  LSQLParam : TParam;
begin
  try
    //別のTZQueryを使用して更新クエリを実行
    ZQuery2.Close;
    ZQuery2.CachedUpdates := True;
    ZQuery2.Connection := ZConnection1;

    //パラメータのチェックなしにする
    ZQuery2.SQL.Clear;
    ZQuery2.ParamCheck := False;

    //SQL文
    ZQuery2.SQL.Text := 'UPDATE Testtbl SET [店舗名] = :SHOP, [請求日] = :DATE;';

    LSQLParam := ZQuery2.Params.CreateParam(ftString, 'SHOP', ptInputOutput);
    LSQLParam.AsString := Edit1.Text;

    //クエリのパラメータの設定
    LSQLParam := ZQuery2.Params.CreateParam(ftDateTime,'DATE', ptInput);
    LSQLParam.AsDateTime := Now;

    //更新クエリの実行
    ZQuery2.ExecSQL;
  except
  end;

  //確認表示
  OpenQuery;
end;

//=============================================================================
//  FieldByNameでレコード単位で値を代入するコード
//  上の2つのコードと結果は同じになる
//
//  プライマリインデックスがない表では正常に動作しない場合がある
//=============================================================================
procedure TForm1.Button4Click(Sender: TObject);
var
  LDateTime : TDateTime;
begin
  LDateTime := StrToDate('2010/10/05');

  ZQuery1.DisableControls;
  ZQuery1.CachedUpdates := True;
  try
    ZQuery1.First;
    while not ZQuery1.Eof do begin
      //編集モードにする
      ZQuery1.Edit;
      ZQuery1.FieldByName('店舗名').AsString   := Edit1.Text;
      ZQuery1.FieldByName('請求日').AsDateTime := LDateTime;
      ZQuery1.Post;
      ZQuery1.Next;
    end;
    //CachedUpdatesをTrueにした時はApplyUpdatesを実行しないと確定されない
    //CachedUpdatesがFalseの時は不要
    ZQuery1.ApplyUpdates;
  except
    //確認のためにエラーの再生成
    raise;
  end;

  ZQuery1.First;
  ZQuery1.EnableControls;
end;

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ZAbstractRODataset, ZSqlMetadata, ZAbstractConnection,
  ZConnection;

type
  TForm1 = class(TForm)
    Button1: TButton;
    ListBox1: TListBox;
    ZSQLMetadata1: TZSQLMetadata;
    Button2: TButton;
    ZConnection1: TZConnection;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

uses
  Types,
  ZClasses,
  ZDbcIntfs;

{$R *.dfm}

//=============================================================================
//  ZeosLibで接続可能なデータベースの一覧
//  これはProtocolプロパティの一覧
//
//  フォームにTZSQLMetadataを配置して、
//  usesにTypes,ZClasses,ZDbcIntfsが必要
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LDrivers   : ZClasses.IZCollection;
  LProtocols : Types.TStringDynArray;
  i          : Integer;
  j          : Integer;
begin
  ListBox1.Items.Clear;
  ListBox1.Items.BeginUpdate;
  LDrivers := ZDbcIntfs.DriverManager.GetDrivers;

  for i := 0 to LDrivers.Count - 1 do begin
    LProtocols := (LDrivers.Items[i] as IZDriver).GetSupportedProtocols;
    for j := 0 to High(LProtocols) do begin
      ListBox1.Items.Add(LProtocols[j]);
    end;
  end;
  ListBox1.Sorted := True;
  ListBox1.Items.EndUpdate;
end;

//=============================================================================
//  ZeosLibで接続可能なデータベースの一覧
//  これはProtocolプロパティの一覧
//  TZConnection.GetProtocolNamesを使用する方法
//=============================================================================
procedure TForm1.Button2Click(Sender: TObject);
begin
  ZConnection1.GetProtocolNames(ListBox1.Items);
end;

end.

  TSQLMetadata.MetadataType := mdTables;

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ZAbstractRODataset, ZSqlMetadata, ZAbstractConnection,
  ZConnection, StdCtrls, Grids, DBGrids;

type
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    Button1: TButton;
    DataSource1: TDataSource;
    ZConnection1: TZConnection;
    OpenDialog1: TOpenDialog;
    ZSQLMetadata1: TZSQLMetadata;
    ComboBox1: TComboBox;
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

uses
  TypInfo;

{$R *.dfm}

//=============================================================================
//  フォーム表示開始時の処理
//  TComboBoxに列挙型のTZMetadataTypeの値を文字列でセット
//=============================================================================
procedure TForm1.FormShow(Sender: TObject);
var
  LpInfo : PTypeInfo;
  LpData : PTypeData;
  i     : Integer;
begin
  ComboBox1.Items.Clear;
  ComboBox1.Items.BeginUpdate;

  LpInfo := TypeInfo(TZMetadataType);

  //列挙型であれば調査
  if LpInfo^.Kind = tkEnumeration then begin
    LpData := GetTypeData(LpInfo);
    for i := LpData^.MinValue to LpData^.MaxValue do begin
      ComboBox1.Items.Add(GetEnumName(LpInfo, i));
    end;
  end;
  ComboBox1.Sorted := True;
  ComboBox1.Items.EndUpdate;

  ComboBox1.Text := 'mdTables';
end;

//=============================================================================
//  フォームを閉じる時の処理
//=============================================================================
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ZSQLMetadata1.Close;
  ZConnection1.Disconnect;
end;

//=============================================================================
//  ZeosLibを使用したParadoxのメタデータ取得
//
//  Paradoxはフォルダがデータベース名
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LPdxDBName    : string;
  LConnectStr   : string;
  LMetadataType : TZMetadataType;
  LText         : string;
  i             : Integer;
begin
  OpenDialog1.Filter := 'Paradox DB File|*.db';
  if not OpenDialog1.Execute then exit;

  OpenDialog1.InitialDir := ExtractFilePath(OpenDialog1.FileName);
  LPdxDBName := OpenDialog1.InitialDir;


  //接続を切断してから設定
  ZSQLMetadata1.Close;
  ZConnection1.Disconnect;
  ZConnection1.LoginPrompt := False;

  //接続文字列の設定
  //Paradoxデータベースへの接続にはADOの機能を使用する
  LConnectStr := 'Provider=Microsoft.Jet.OLEDB.4.0'
               + ';Data Source=' + LPdxDBName
               + ';Extended Properties=Paradox 5.x'
               + ';Persist Security Info=False';

  ZConnection1.Database := LConnectStr;
  ZConnection1.Protocol := 'ado';

  ///メタデータを取得するのでUseMetadataをTrueにする
  //設定しなくてもデフォルト値はTrue
  ZConnection1.UseMetadata := True;

  //コードページ関係の設定
  ZConnection1.Properties.Clear;
  ZConnection1.Properties.Add('AutoEncodeStrings=ON');
  ZConnection1.Properties.Add('controls_cp=CP_UTF16');


  DataSource1.DataSet := ZSQLMetadata1;
  DBGrid1.DataSource  := DataSource1;

  ZSQLMetadata1.Connection := ZConnection1;

  //TComboBoxの値を列挙型のTZMetadataTypeの値に変換する
  LText := Trim(ComboBox1.Text);
  LMetadataType := TZMetadataType(GetEnumValue(TypeInfo(TZMetadataType), LText));
  ZSQLMetadata1.MetadataType := LMetadataType;

  ZSQLMetadata1.Open;

  //TDBGridのカラム幅の調整
  for i := 0 to DBGrid1.Columns.Count - 1 do begin
    if DBGrid1.Columns[i].Width > 100 then begin
      DBGrid1.Columns[i].Width := 100;
    end;
  end;
end;

end.