Levin's Blog-林壽山的c# .net奇幻旅程

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系統商。當然除了期初的硬體成本外，出單機、標籤機、發票機也會有耗材(紙張、碳粉)的成本。以及每年與系統廠商的維護合約。

Windows 7家用進階版開啟IIS功能

Windows7家用進階版如何開啟iis功能呢?

進入控制台，程式和功能中的開啟或關閉Windows功能，勾選Internet Information Serverices(IIS)功能即可。

打手機前請先填寫資料XD

因為前陣子在測試關閉iCloud同步備份，還有誤刪了手機通訊錄，所以要請朋友們如何要跟壽山手機聯繫的話。請先填下面的頁面，壽山輸入手機後才有可能接通，實在是好多無關緊要的電話流入。對想專注開發的壽山是一大阻礙!謝謝

載入中…

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]

RAD Studio XE7 預覽研討會

報名網址點我進入

研討會內容：

XE7 持續強化 D2D，M2M 的功能，XE7 加入了支援藍牙和低耗電藍牙 (BLE)，讓 App Tethering 可同時支持 WIFI 和藍芽。 XE7 的 FireMonkey 也再次進化並支援更多的強大功能，例如支援多螢幕顯示，支援 Immersive full-screen 模式，支援更多的 iOS 原生控制項等。XE7 的 IDE 也獲得了強化，例如支援 GIT 版本控制，新的專案管理員功能，加強的 Data Explorer 和許多其他新的功能。

“持續進化的完美” 是 RAD Studio XE7 的寫照，“持續強化的生產力” 是 RAD Studio XE7 的承諾。我們敬邀您一起來見證 XE7 再次令人驚嘆的進步，讓您在開發的領域中永遠遙遙領先。

同時我們將展示許多應用實例，包括整合各式硬體裝置廠商提供 .so 及 .jar 功能 (如：藍芽印表機、iBeacon 室內定位、條碼掃描器…等) 及網路攝影機 (IP Cam) 功能整合實機展示。萬勿錯過，請速報名。

主講人：
李維（Embarcadero 大中華區技術總監）

時間：
103 年 8 月 25 日 (一) 2:00~5:00pm （台北）
103 年 8 月 26 日 (二) 2:00~5:00pm （台中）
103 年 8 月 27 日 (三) 2:00~5:00pm （高雄）
103 年 8 月 28 日 (四) 2:00~5:00pm （新竹）

Delphi 多螢幕程式

在設計餐飲程式時，會遇到外接第二螢幕做為客戶顯示或展示廣告。在Delphi如何撰寫?

判斷系統螢幕數量
[pascal]
screen.MonitorCount
[/pascal]

將畫面移至第N螢幕(第一螢幕為0、第二螢幕為1…..)
[pascal]
self.Top := screen.Monitors[0].Top;
self.left := screen.Monitors[0].left;
[/pascal]

Delphi超強大日期函式庫

uses System.DateUtils;

[pascal]
// 取得某一天所在的星期一及星期天
procedure TForm1.Button1Click(Sender: TObject);
var dw1,dw7,dnow:tdatetime;
begin
dnow:=StrtoDatetime(edtnow.Text);
dw1:=(StartOfTheWeek(dnow));
edtw1.Text := Datetimetostr(dw1);
dw7:=(Endoftheweek(dnow));
edtw7.Text := Datetimetostr(dw7);
end;
[/pascal]

66 K 工作網

ROR好手xdite在2014.7.12更新了一則FB訊息「回到社會議題。又要炒冷飯。我覺得其實不應該做什麼 22K 薪資揭發網站，而是要做 66K 徵才網站。
一味打壓揭發低薪資，只會讓許多僱主知道，哦，原來社會可以這樣欺負弱勢族群和新入社會新鮮人。除了出氣，其實並沒有太多幫助。
做 66K 徵才網站才會讓大家知道，努力和有天份會有改變自身環境的一天。而且這個世界上很多人願意用高薪資爭取好人才。僱主要是自己不努力就等著被淘汰掉。但可惜大家在憤怒當下只做得出譴責 22K 網站。」
接著在7.13就更新了她花五小時做出來的66K工作網。
不由得佩服這位執行力超強的ROR高手 🙂

網址:http://66kjobs.tw/
Github原始碼:https://github.com/xdite/66kjobs

相關新聞
22K閃邊！66K工作網來了　給你好薪情

台中 RAD Studio XE7 預覽研討會