Delphiの最も魅力的な機能の1つは、データベースのデスクトップツールを介してデータベースを簡単に作成および編集できる強力なデータベースアクセス機能です。実際的な理由により、プログラムの実行中に特定のデータベースを動的に確立する必要があることがよくあります。
データベースデスクトップツールを使用してデータテーブルを手動で作成するようにユーザーに依頼すると、書くプログラムは大幅に割引されますが、Delphiがこの機能を言語で完了できることを心配する必要はありません。私の研究と実践には、テーブルメソッドとSQLメソッドと呼ばれる2つの方法を要約しました。以下は、簡単な例を介して動的データベースの確立のプロセスについて説明します。
1。テーブル方法：
1。（ライブラリ名がljh.dbであると仮定して、パラドックスデータテーブルを確立する例を考えてください）。新しいプロジェクトファイルzhoudf.dprを作成します。
2。パネルのボタン要素を選択し、フォーム1テーブルに配置して、次のコードを入力します。
手順tform1.button2click（sender：tobject）;
var table1：ttable1：= ttable.create（self）;
table1を使用してアクティブになります：= false;
TableName：= 'ljh.db';
Tabletype：= ttparadox;
add（ 'yj'、ftdate、0、false）;
add（ 'zp'、ftstring、10、false）;
add（ 'zdm'、ftinteger、0、false）;
終わり;
indexDefsを使用すると、このメソッドはljh.dbにインデックスフィールドを追加します} clearを開始します。
add（ 'yjindex'、 'yj'、[ixprimary]）;
終わり;
createTable;
終わり;
終わり;
2。SQLメソッド：パネルのボタン要素を選択し、フォーム1テーブルに配置して、次のコードを入力します。
手順tform1.button2click（sender：tobject）;
var table2：tquery table2：= tquery.create（self）;
Table2を使用すると、SQLは明確になります。
add（ 'テーブルを作成 "ljh.db"'）;
add（ '（yj date、'）; {'（'}を引用符でnoteします
add（ 'zp char（10）、'）;
add（ 'zdm int）'）; {note '）'}
終わり;
execsql;
sql.clear;
sql.add（ '"ljh.db"（yj）'のインデックスyjの作成）;
execsql;
終わり;
終わり;
*このプログラムをコンパイルするだけです。 *ライブラリがすでにそこにある場合、エラーメッセージが生成され、ライブラリがすでにそこにある場合、テーブル方法を考慮する必要はありません。