分類: 生活雜感

[pascal]
//
// _oo0oo_
// o8888888o
// 88" . "88
// (| -_- |)
// 0\ = /0
// ___/`—‘\___
// .’ \\| |// ‘.
// / \\||| : |||// \
// / _||||| -:- |||||- \
// | | \\\ – /// | |
// | \_| ”\—/” |_/ |
// \ .-\__ ‘-‘ ___/-. /
// ___’. .’ /–.–\ `. .’___
// ."" ‘< `.___\_<|>_/___.’ >’ "".
// | | : `- \`.;`\ _ /`;.`/ – ` : | |
// \ \ `_. \_ __\ /__ _/ .-` / /
// =====`-.____`.___ \_____/___.-`___.-‘=====
// `=—=’
//
//
// ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
//
// 佛祖保佑 永無bug
//
//***************************************************
[/pascal]

朋友傳來給我的一張gif圖，真的是我目前看過手機設計最棒的使用者體驗

晚上就住這…文章後補

在MySQL透過SQL語法

SHOW FULL COLUMNS FROM Table_NAME

可以取得資料表的欄位、型態

field 欄位名稱

type 欄位型態(varchar、text….)

extra 附加(auto_increment)

comment 備註

如此一來就可以動態根據備註、型態、名稱去產生對應的程式了 🙂  動腦想想可以發揮許多創意

業務上的需求要開發電子發票的模組，前同事給了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]

附上電子發票開發需要文件：

二代電子發票加解密API文件下載

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