まず、空のフォームに、追加します。TFDConnection、TFDPhysSQLiteDriverLink、TFDGUIxWaitCursor、TFDQuery 、のTDataSource、のTDBGrid( およびデザイン時に関連付けられて良い)。
あなたはまた、下のテキストボックスの内容をコピーし、フォームに迅速にダイレクトに掲載することができます上記のプロセスを追加します。
コード:
{建立} 手順 TForm1.FormCreate(送信者:TObjectを)。 constの DBPATH = 'C:\一時\ SQLiteTest.sdb' ; strTable = 'CREATE TABLE MyTableという(同上PRIMARY KEY AUTOINCREMENT、名前ストリング(10)、年齢バイト整数)'。// ID、氏名、年齢三个字段 // PRIMARY KEY AUTOINCREMENT整数:自增字段 始める 場合 FILEEXISTS(DBPATH) 、その後 DeleteFileを(DBPATH)。 FDConnection1.ConnectionString:= 「DriverID = SQLiteの。データベース=」 + DBPATH。 FDConnection1.ExecSQL(strTable)。 FDQuery1.Open('MyTableとSELECT * FROM'); エンド ; {挿入} 手順 TForm1.Button1Click(送信者:TObjectを); CONST strInsert = 'INSERT INTO MyTableという(名前、年齢)VALUES(:名,:年齢') ; //名前,:年齢方式(以下、アレイまたFormat関数列よりも便利である値を対応する方法)、によって与え 始める FDConnection1.ExecSQL(strInsertを、[ 「AAA」、11 ])。 FDConnection1.ExecSQL(strInsert [ 'BBB' 、22 ])。 FDConnection1.ExecSQL(strInsert、[ 'CCC' 、33 ])。 FDConnection1.ExecSQL(strInsert、[ 'DDD' 、44 ])。 FDConnection1.ExecSQL(strInsert、[ 'EEE' 、55 ])。 FDQuery1.Refresh; エンド ; {更新} 手順 TForm1.Button2Click(送信者:TObjectを)。 開始 FDConnection1.ExecSQL('UPDATE MyTableというSET年齢= WHERE NAME =:N'、[ランダム(100)、'AAA' ])。 FDQuery1.Refresh; エンド ; {删除} 手順 TForm1.Button3Click(送信者:TObjectを)。 開始 FDConnection1.ExecSQLを('MyTableという。DELETE FROM WHERE年齢> 33'); FDQuery1.Refresh; エンド ; {最初の条件の検索結果} 手順 TForm1.Button4Click(送信者:TObjectを); VAR V:バリアント。 開始 V:= FDConnection1.ExecSQLScalar( 'MyTableというWHERE NAME = FROM SELECT年齢:X' [ 'BBB' ])。 ShowMessage(V)。 エンド ; //: テスト名= SELECT * FROM 'ABCDE' COLLATE NOCASE。 表テストを作成する(id整数、名前テキストCOLLATE NOCASE)。