網頁

▼

2013/10/31

Day7 使用 LiteDAC 仿造一個 IBLite 的 Demo

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

Youtube : Mobile IBLite with Delphi XE5
 

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

使用 LiteDAC 時，就像在 VCL framework 的 2-Tier 下一樣簡單，底下是範例 Code






 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
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，對於行動裝置的開發實在是太方便啦！

沒有留言:

張貼留言