月份: 2014 年 8 月

免跑銀行 大眾銀行也推出網路西聯匯款

大眾銀行最近也推出網路西聯匯款了！以後領Google Adsense就不用到銀行去了 🙂

1 匯款來自國家 > Ireland

2 匯款人身份 >公司

3 公司名稱 >Google Ireland, Ltd.

4 匯款分類 > 19D-專業技術事務收入

tcbank

Delphi撰寫縮小到系統列程式

在畫面上放置
1 ApplicationEvents
2 TrayIcon
3 PopupMenu

然後在ApplicationEvents1Minimize寫上
[pascal]
Hide();
WindowState := wsMinimized;
TrayIcon1.Visible := True;
TrayIcon1.Animate := True;
TrayIcon1.ShowBalloonHint;
[/pascal]
接著在TrayIcon的Click事件讓popupmenu顯示
[pascal]
var
p : TPoint;
begin
GetCursorPos(p);
popupmenu1.Popup(p.X,p.Y);
end;
[/pascal]
最後在popupmenu上的onclick加上
[pascal]
Show;
WindowState := wsMaximized;
trayicon1.Visible := False;
[/pascal]

Delphi隨機產生英文大小寫、數字

Delphi如何透過隨機的函數產生英文大寫、英文小寫以及數字呢？
方法很簡單

[pascal]
// 英文小寫
Randomize;
S := Chr(ord(‘a’) + Random(26));
[/pascal]

[pascal]
// 英文大寫
Randomize;
S := Chr(ord(‘A’) + Random(26));
[/pascal]

[pascal]
// 數字
Randomize;
S := Chr(ord(‘0’) + Random(10));
[/pascal]

Delphi XE6 透過台北市Opendata取得旅遊住宿資料

Delphi在XE5開始就提供了REST Client的元件，讓開發REST Client應用的開發者能在最短的時間開發出相關的應用，今天就利用臺北市政府資料開放平台中的臺北市旅館資料庫資料來做一個簡單的範例「台北住宿通」。讓大家瞭解Delphi 如何存取json資料，並顯示。
詳細內文請見
CodeData >> Delphi APP 開發入門（十）REST Client 開發

 

xe6tour10-16

Delphi程式建立有密碼的access資料庫

如何直接利用Delphi建立有password的access mdb database？
[pascal]
Use System.Win.ComObj;

procedure TForm1.Button1Click(Sender: TObject);
var cnewmdb:variant;
begin
// 透過ADOX建立
cnewmdb := CreateOleObject(‘ADOX.Catalog’);
cnewmdb.Create(‘Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\test.MDB;Jet OLEDB:Database Password=”12345678”;’ );

// 連線
ADOConnection1.ConnectionString:=’Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\TT2.MDB;Jet OLEDB:Database Password=”12345678”;’;
ADOConnection1.LoginPrompt:=false;
ADOConnection1.connected:=true;
end;

[/pascal]

早餐店、餐廳、飲料店餐飲POS系統

許多朋友選擇自己創業做老闆時，最常見的創業就是餐飲業為主的方式。無論是自行創業或是加盟，都需要軟硬體設備及架構，當然也有許多人會評估使用餐飲POS系統。

餐飲POS系統依結帳流程不同主要分為先結帳及後結帳二種版本。先結帳版本常見於飲料店或一般早餐店；而後結帳版本主要於餐廳為主。而使用POS系統主要的原因除了提高點餐的正確性、便利性，也可以方便以電腦做管理以及瞭解營業狀況等分析。

目前POS系統價格平均一套在50,000元上下，一套系統大約包含１、POS主機一部　２、出單機　３、標籤機　４、發票機　５、錢櫃 6、餐飲系統軟體。而除了買斷外，亦有每月3000元月租方案的POS系統商。當然除了期初的硬體成本外，出單機、標籤機、發票機也會有耗材(紙張、碳粉)的成本。以及每年與系統廠商的維護合約。

Delphi 動態取得fastreport下物件

在Delphi下如何取得fastreport的元件及做值的修改?

[pascal]
var i:integer;
begin
frxreport1.LoadFromFile(‘test.fr3’);
frxreport1.Report.PrintOptions.Printer := ‘Adobe PDF’;
for i:=0 to frxreport1.ComponentCount -1 do begin //取得報表內所有物件
if frxreport1.Components[i].ClassName = ‘TfrxMemoView’ then begin // 找到TfrxMemoView
//ExtractFileName(frxreport1.FileName); 取得目前報表名稱
//frxreport1.Components[i].Name; 取得元件名稱
Tfrxmemoview(frxreport1.Components[i]).Text := ‘hello world’;
end;
end;
frxreport1.Report.PrintOptions.ShowDialog := false; // 不顯示對話框
frxreport1.Report.ShowProgress := False; // 不顯示列印進度
frxReport1.PrintOptions.Copies:=3; // 列印份數
frxreport1.Report.PrepareReport(true);
frxreport1.Print;
// 線上編輯報表
// frxreport1.DesignReport;
end;
[/pascal]