2013/10/31

Day7 使用 LiteDAC 仿造一個 IBLite 的 Demo

在 EMBT 的 Youtube 中有一段 Demo 是在描述 dbExpress with IBLite 的範例

看起來很是麻煩,畢竟是單向資料集,需要用很多元件才能達成存取的目的。

使用 LiteDAC 時,就像在 VCL framework 的 2-Tier 下一樣簡單,底下是範例 Code
procedure TForm1.AddButtonClick(Sender: TObject);
var
  DeptName: String;
  NewDeptNo: Integer;
begin
  try
    if InputQuery('Enter New Dept Name', 'DNAME', DeptName) and not (DeptName.Trim() = '') then
    begin
      LiteQuery1.Last();
      NewDeptNo := LiteQuery1.FieldByName('DEPTNO').AsInteger + 10;
      LiteQuery1.Append();
      LiteQuery1.FieldByName('DNAME').Text := DeptName;
      LiteQuery1.Post();
      LinkFillControlToField1.BindList.FillList();
    end;
  except
    on e: Exception do
    begin
      ShowMessage(e.Message);
    end;
  end;
end;
///
procedure TForm1.DeleteButtonClick(Sender: TObject);
begin
  try
    if LiteQuery1.Locate('DNAME', ListView1.Selected.Text, []) then
      LiteQuery1.Delete();
    LinkFillControlToField1.BindList.FillList();
  except
    on E: Exception do
      ShowMessage(E.Message);
  end;
end;



事實證明,LiteDAC 在發佈到行動裝置時完全不需要再帶任何的 Libraries,對於行動裝置的開發實在是太方便啦!

沒有留言:

張貼留言

How to use URLEncode in Delphi

URL編碼,也稱【百分號編碼(Percent-encoding)】 由於 URL 不能直接接受 UTF8 文字,所以要先轉成百分號編碼後,如此網址才能順利送給 HTTP Server 從 Indy 加入 Delphi 後,就可以用 IdURI.TIdURI 單元進行編碼 ...