因為有facebook的關係,所以很少分享生活中的點滴。不過就破例一下 🙂
昨天跟太平洋百貨豐原店企劃課林幽蘭課長合照,出現了美女與野獸(野生壽山)的照片~最後換了一套結合萬聖節及聖誕節的「生膽老公公」造型裝扮~
結果有不少人來合照,還有媽媽叫小朋友過去合照,小朋友不敢還被媽媽笑沒膽XD
來!靠近我就生膽給你了XD
anyway~還是祝大家聖誕節快樂!Merry Xmas~
大型網站架構..net 架構師.rabbitMQ.redis.行動開發.APP開發教學.PHP Laravel開發..net core C# 開發.架構師之路.Delphi開發.資料庫程式.進銷存.餐飲POS系統
[pascal]
//
// _oo0oo_
// o8888888o
// 88" . "88
// (| -_- |)
// 0\ = /0
// ___/`—‘\___
// .’ \\| |// ‘.
// / \\||| : |||// \
// / _||||| -:- |||||- \
// | | \\\ – /// | |
// | \_| ”\—/” |_/ |
// \ .-\__ ‘-‘ ___/-. /
// ___’. .’ /–.–\ `. .’___
// ."" ‘< `.___\_<|>_/___.’ >’ "".
// | | : `- \`.;`\ _ /`;.`/ – ` : | |
// \ \ `_. \_ __\ /__ _/ .-` / /
// =====`-.____`.___ \_____/___.-`___.-‘=====
// `=—=’
//
//
// ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
//
// 佛祖保佑 永無bug
//
//***************************************************
[/pascal]
在MySQL透過SQL語法
SHOW FULL COLUMNS FROM Table_NAME
可以取得資料表的欄位、型態
field 欄位名稱
type 欄位型態(varchar、text….)
extra 附加(auto_increment)
comment 備註
如此一來就可以動態根據備註、型態、名稱去產生對應的程式了 🙂 動腦想想可以發揮許多創意
Unable to rename C:\Program Files (x86)\Borland\Delphi7\Bin\delphi32.$$$ to
‘C:\Program Files (x86)\Borland\Delphi7\Bin\delphi32.dro
1 C:\Program Files (x86)\Borland\DelphiX 唯讀屬性勾選掉
2 使用系統管理員身分執行
業務上的需求要開發電子發票的模組,前同事給了Delphi 6的範例程式,經過了一番修改後,終於在 Delphi XE3能正確使用了。
主要的問題如下:
1) Char改 AnsiChar
2) PChar改 PAnsiChar
3) String 改 AnsiString
4) XE3 Length取長度時,也需要先以AnsiString才會正確。
主要加密元件宣告
[pascal]
procedure QRCodeINV(a_InvoiceNumber: AnsiString;
a_InvoiceDate: AnsiString;
a_InvoiceTime: AnsiString;
a_RandomNumber: AnsiString;
af_SalesAmount: Double;
af_TaxAmount: Double;
af_TotalAmount: Double;
a_BuyerIdentifier: AnsiString;
a_RepresentIdentifier: AnsiString;
a_SellerIdentifier: AnsiString;
a_BusinessIdenti: AnsiString;
a_AESKey: AnsiString;
a_output: pAnsiChar;
var ai_errorCode : Integer) STDCALL; external ‘QRDLL.DLL’;
[/pascal]
附上電子發票開發需要文件:
因為前陣子在測試關閉iCloud同步備份,還有誤刪了手機通訊錄,所以要請朋友們如何要跟壽山手機聯繫的話。請先填下面的頁面,壽山輸入手機後才有可能接通,實在是好多無關緊要的電話流入。對想專注開發的壽山是一大阻礙!謝謝