分類: 生活雜感

在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同步備份，還有誤刪了手機通訊錄，所以要請朋友們如何要跟壽山手機聯繫的話。請先填下面的頁面，壽山輸入手機後才有可能接通，實在是好多無關緊要的電話流入。對想專注開發的壽山是一大阻礙!謝謝