MariaDB(MySQL)でデータベース アプリケーション作成 ～Delphiソースコード集

• ホーム
• Delphiでお手軽プログラミング
• MariaDB(MySQL)でデータベース アプリケーション作成 ～Delphiソースコード集

MariaDB(MySQL)でデータベース アプリケーション作成 ～Delphiソースコード集

はじめに

単方向データセット

TFDConnection ⇔ TFDTable ⇔ TDataSetProvider ⇔ TClientDataSet ⇔ TDataSource ⇔ TDBGridやTDBNavigator

双方向データセット(ODBC経由でAccess[jet4.0]接続や、MS-SQL Server接続等)

TFDConnection ⇔ TFDTable ⇔ TDataSource ⇔ TDBGridやTDBNavigator

MariaDB(又はMySQL)に接続するDLLファイルをパスの通ったフォルダに入れる

MariaDB(又はMySQL)に物品貸出用データベースとテーブルを作成する

-- データベース「物品貸出（db_goods_rent）」の作成
Create database db_goods_rent character set utf8;

-- データベース「db_goods_rent」にユーザ「user」、パスワード「password」でユーザー作成と権限を与える
Grant all on db_goods_rent.* to user@localhost identified by 'password' with grant option;
Flush privileges;

-- データベースに「物品(t_goods)テーブル」を作成
Create table db_goods_rent.t_goods(
  goods_id int auto_increment,  -- 物品id
  goods_name varchar(45),       -- 物品名
  primary key(goods_id)
);

-- データベースに「貸出(t_rent)テーブル」を作成
Create table db_goods_rent.t_rent(
  rent_id int auto_increment,                    -- 貸出id
  goods_id int,                                  -- 貸出物品id
  rent_to_name varchar(45),                      -- 貸出先名
  rent_date datetime default CURRENT_TIMESTAMP,  -- 貸出日
  return_date datetime default null,             -- 返却日
  primary key(rent_id)
);

Delphiでのアプリケーション開発を行う

（１）Delphiを起動して新規プロジェクトを作成する

（２）フォームにコンポーネントをドラッグ＆ドロップする

（３）DB接続文字列を設定する

（４）プロパティの設定

（５）ソースコードを記述する

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, FireDAC.Stan.Intf, FireDAC.Stan.Option,
  FireDAC.Stan.Error, FireDAC.UI.Intf, FireDAC.Phys.Intf, FireDAC.Stan.Def,
  FireDAC.Stan.Pool, FireDAC.Stan.Async, FireDAC.Phys, FireDAC.VCLUI.Wait,
  FireDAC.Stan.Param, FireDAC.DatS, FireDAC.DApt.Intf, FireDAC.DApt,
  Datasnap.DBClient, Datasnap.Provider, Data.DB, FireDAC.Comp.DataSet,
  FireDAC.Comp.Client, Vcl.Grids, Vcl.DBGrids, FireDAC.Phys.MySQL,
  FireDAC.Phys.MySQLDef, Vcl.ExtCtrls, Vcl.DBCtrls;

type
  TForm1 = class(TForm)
    FDConnection1: TFDConnection;
    FDTable1: TFDTable;
    FDTable2: TFDTable;
    DataSetProvider1: TDataSetProvider;
    DataSetProvider2: TDataSetProvider;
    ClientDataSet1: TClientDataSet;
    ClientDataSet2: TClientDataSet;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    DBNavigator1: TDBNavigator;
    DBNavigator2: TDBNavigator;
    procedure ClientDataSet1AfterPost(DataSet: TDataSet);
    procedure ClientDataSet2AfterPost(DataSet: TDataSet);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ClientDataSet1AfterPost(DataSet: TDataSet);
var Bookmark: TBookmark;
begin
  //クライアントデータセットが更新されたら、MariaDB（MySQL）にも反映させる
  ClientDataSet1.ApplyUpdates(-1);
  bookmark:=ClientDataSet1.GetBookmark;
  ClientDataSet1.Refresh;
  ClientDataSet1.GotoBookmark(Bookmark);
end;

procedure TForm1.ClientDataSet2AfterPost(DataSet: TDataSet);
var Bookmark: TBookmark;
begin
  //クライアントデータセットが更新されたら、MariaDB（MySQL）にも反映させる
  ClientDataSet2.ApplyUpdates(-1);
  bookmark:=ClientDataSet2.GetBookmark;
  ClientDataSet2.Refresh;
  ClientDataSet2.GotoBookmark(Bookmark);
end;

end.

実行ボタンで実行させる