通過樣例01,學習到了數據單元的定義方法,靜態服務器的創建方式,以及ORM的基本使用方法,現在來看看樣例02 - Embedded SQLite3 ORM,同樣從字面意思猜測它應該是介紹嵌入式SQLite3數據庫的ORM方法.

通過例02的源碼,可以發現只有Project02.dpr工程文件源碼,并沒有pas單元文件,在例01里邊簡單做過說明,是因為例02共用01的所有單元,所以看到的項目管理界面和例01是一樣的,僅僅有2行工程代碼有點變動,如下:

{ 嵌入式數據庫引擎初始化 }  
Form1.Database := TSQLRestServerDB.Create(Form1.Model, ChangeFileExt(ExeVersion.ProgramFileName, '.db3'));
{ 根據Model(SampleData單元中的定義)創建表格 }
TSQLRestServerDB(Form1.Database).CreateMissingTables;

因為Unit1.pas單元代碼就是例01的,所以直接運行程序看看,同樣輸入3組測試數據:
a MessageA,b MessageB,c MessageC

然后借助sqliteadmin打開例2文件夾下的Project02.db3文件,可以看到數據的存儲情況.

添加和查找的過程就是CRUD中的Create和Read,下面試試Update和Delete,先把界面改造一下,添加2個按鈕Update和Delete,再添加一個顯示日志的Memo,具體界面如下:

具體的實現代碼如下:

{ 刪除數據的操作 }
procedure TForm1.DeleteButtonClick(Sender: TObject);
var
  Rec: TSQLSampleRecord;
begin
  Rec := TSQLSampleRecord.Create(Database, 'Name=?', [StringToUTF8(NameEdit.Text)]);
  try
    if Rec.ID = 0 then
      LogMemo.Lines.Add('Delete:無此數據,當前記錄' + IntToStr(Database.TableRowCount(TSQLSampleRecord)) + '條')
    else
    begin
      if Database.Delete(TSQLSampleRecord, Rec.ID) then
        LogMemo.Lines.Add('Delete:刪除一條數據,當前記錄' + IntToStr(Database.TableRowCount(TSQLSampleRecord)) + '條')
      else
        LogMemo.Lines.Add('Delete:刪除失敗,當前記錄' + IntToStr(Database.TableRowCount(TSQLSampleRecord)) + '條');
    end;
  finally
    Rec.Free;
  end;
end;
{ 更新數據的操作 }
procedure TForm1.UpdateButtonClick(Sender: TObject);
var
  Rec: TSQLSampleRecord;
begin
  Rec := TSQLSampleRecord.Create(Database, 'Name=?', [StringToUTF8(NameEdit.Text)]);
  try
    if Rec.ID = 0 then
      LogMemo.Lines.Add('Update:無此數據,當前記錄' + IntToStr(Database.TableRowCount(TSQLSampleRecord)) + '條')
    else
    begin
      Rec.Question := StringToUTF8(QuestionMemo.Text);
      if Database.Update(Rec) then
        LogMemo.Lines.Add('Update:更新一條記錄,當前記錄' + IntToStr(Database.TableRowCount(TSQLSampleRecord)) + '條')
      else
        LogMemo.Lines.Add('Update:更新失敗,當前記錄' + IntToStr(Database.TableRowCount(TSQLSampleRecord)) + '條')
    end;
  finally
    Rec.Free;
  end;
end;

同樣的代碼可以直接用到例01中,效果是一樣的,實現這些并沒有寫任何SQL語句,也就是說這些基本操作是和數據庫無關的,看樣子這樣的設計應該比較好維護,繼續學習,希望在學習中不斷得到新的養分,充實自己,每天都需要挑戰,每天都要進步一點點,防止老年癡呆.