標籤: POS

許多餐飲或是快餐POS系統都會提供拖曳去更改按鈕排序！
在Delphi可不可以做得到呢？當然是簡單的~

1)MouseDown事件加上
(sender as tbutton).BeginDrag(false);
2)DragOver事件加上
if source is TButton then
Accept:=true;
3)DragDrop事件加上 >> 互換對方的caption
if Sender is TButton then begin
TempCaption := TButton(Source).Caption;
TButton(Source).Caption := TButton(Sender).Caption;
TButton(Sender).Caption := TempCaption;
end;

開發餐飲POS或是其他系統，如果想打入國際市場的話，都會考量多國語系的問題，大部份就是使用mapping的方式。

在Delphi裡面的做法也很簡單~

先取得form上面的元件數(ComponentCount)

接下來用一個迴圈去比對即可。

資料表也可以開成一個

表單名稱、元件名稱、語言1、語言2、語言3的欄位…

不過因為裡面使用了infopower的wwdbgrid元件，寫在formcreate或formshow都抓不到值，後來是放到FormActivate才順利抓到

以下提供簡單的範例

 
[pascal]
var
sFormName:String;
i:integer;
begin
sFormName:= Self.Name; // 表單名稱
for i:=0 to self.ComponentCount -1 do begin
if Components[i] is TLabel then begin
if (TLabel(components[i]).Caption <>”) then begin
TLabel(components[i]).Caption := 取得語系….;
end;
end;
if Components[i] is TButton then begin
if (TButton (components[i]).Caption <>”) then begin
TButton (components[i]).Caption := 取得語系….;
end;
end;
end;
end;
[/pascal]
wwDBGrid的話關鍵有:
s:= TwwDBGrid(Components[i]).DataSource.DataSet.Fields[j].FieldName;
TwwDBGrid(Components[i]).ColumnByName(s).DisplayLabel
TwwDBGrid(Components[i]).ColumnByName(s).GroupName

雖然在Delphi有clientdataset可以使用，但美中不足的是必需在程式部署時附上midas.dll，或是在程式中uses MidasLib。最近看到國外在討論的kbmmemtable，由於在寫餐飲的POS功能所以也來測試一下。

因為kbmmemtable不需要BDE支援，所以不用特別去設定DatabaseName, TableName和TableType這些屬性。

建立欄位很簡單，

with kbmMemTable1.FieldDefs do
begin
Clear;
Add(‘t01’, ftInteger, 0, false);
end;

建立index也只需要

Add(‘Index01’, ‘value’, []);

接著就可以像一般的ttable一樣，append新增edit修改delete刪除等動作…..

然後呢也可以直接讓datasource指定它，讓kbmmemtable的值顯示在dbgird上面。

它支援loadfromdataset的功能，如果需要cache資料在程式裡不要連結資料庫時，就可以利用這個功能。另外也可以支援savetofile的功能，共有二種

1)二進位資料

SaveToBinaryFile

LoadFromBinaryFile

2)csv格式

SaveToFile

LoadFromFile