VFP 愛用者社區

Niles · 註冊時間: 2004-12-07 文章: 53 第 1 樓

小弟最近想到一個 Memo 欄位應用方式 , 一方面分享 , 一方面希望如有不理想
處能夠得到指教

此構想是因為寫商用系統常會需要一堆參數設定,我有一支POS收銀程式已經開
了200多個參數 , 結果我的收銀設定也就開了200多個欄位 , 後來我希望減少欄
位使用 , 決定模仿 .ini 檔的方式 , 把設定分成幾類放在幾個 Memo 欄位即可

以下假設收銀設定.dbf 有一個欄位名為 sysConfig 以及內容

[分店]=001
[機台]=01
[數量上限]=99999
[金額上限]=999999
...
...

當要讀取設定值 [數量上限] 時
_getMemoSetVal("收銀設定","sysConfig","[數量上限]")
便會傳回99999

當要修改設定值 [金額上限] 時
_putMemoSetVal("收銀設定","sysConfig","[金額上限]","888888")

sysConfig 欄位內容就會變成

[分店]=001
[機台]=01
[數量上限]=99999
[金額上限]=888888
...
...

以下函數有許多檢查函數(可略過),主要功能寫在 otherwise 那一段

Procedure _getMemoSetVal
***********************************************************
Lparameters lcAlias , lcMemoField , lcSettingItem
Local cReturn
Store "%error%" To cReturn && 這是為了偵錯,有時設定值會是空的(但沒
&& 有錯,一但傳回 "%error%" 就可判定錯誤
Do Case
Case Parameters() # 3
Wait Window "Parameters() Error !"
Case !Inlist('C' , Vartype(lcAlias) , Vartype(lcMemoField) , Vartype(lcSettingItem))
Wait Window "Parameters Data Type Error !"
Case Type( Alltrim(lcAlias) + '.' + Alltrim(lcMemoField)) # 'M'
Wait Window "lcMemoField Require Memo Type !"
Otherwise
On Error cReturn = "%error%"
Store Strtran(Mline(&lcMemoField , Atline( lcSettingItem + '=' , &lcMemoField) ) , lcSettingItem + '=' , Space(0)) To cReturn
On Error
Endcase
Return cReturn
Endproc
***********************************************************

Procedure _putMemoSetVal
**********************************************************
Lparameters lcAlias , lcMemoField , lcSettingItem , lcReplacement
Local cReturn
Store "%error%" To cReturn
Do Case
Case Parameters() # 4
Wait Window "Parameters() Error !"
Case !Inlist('C' , Vartype(lcAlias) , Vartype(lcMemoField) , Vartype(lcSettingItem) , Vartype(lcReplacement))
Wait Window "Parameters Data Type Error !"
Case Type( Alltrim(lcAlias) + '.' + Alltrim(lcMemoField)) # 'M'
Wait Window "lcMemoField Require Memo Type !"
Otherwise
Store lcReplacement To cReturn
On Error cReturn = "%error%"
Local oldValue
Store Strtran(Mline(&lcMemoField , Atline( lcSettingItem + '=' , &lcMemoField) ) , lcSettingItem + '=' , Space(0)) To oldValue
Replace &lcMemoField With Strtran(&lcMemoField , Mline(&lcMemoField , Atline( lcSettingItem + '=' , &lcMemoField)) , lcSettingItem + '=' + lcReplacement) In &lcAlias
On Error
Endcase

Return cReturn

syntech · 發表於: 星期五二月 04, 2005 2:45 pm 文章主題:

為什麼需要這麼多參數?
我的直覺上認為如果可以不需要這麼多參數的話,
應該可以用其他簡單的方法吧!

朱育興 · 發表於: 星期五二月 04, 2005 3:47 pm 文章主題:

建議 MEMO 中的資料格式採用 XML，應用上應該會比較好。

他這樣子還算好啦！我之前對 MEMO 的運用更變態一點，裏面存放的是動態的資料表格的資料內容。

Niles · 註冊時間: 2004-12-07 文章: 53 第 4 樓

bin1x · 註冊時間: 2004-08-27 文章: 462 第 5 樓

上次好像有人談到webservice 部份
xml 就有可能用到吧
動態的資料表格的資料內容?
這個就有趣了
不妨說來聽聽
不過memo 我很少用,不必怕說被偷學走了

朱育興 · 發表於: 星期六二月 05, 2005 8:31 pm 文章主題:

樓主 MEMO 中的內容，實際上就是一個 TABLE 的資料樣式，這種型態的資料我用的很多(不過儲存內容的表達不一樣)，如果實際將這種 MEMO 資料直接用 EditBox 秀出來，第一、很醜，第二、對使用者而言實在很沒親和力。

所以我之前的做法是將 MEMO 內容轉成 Cursor 後以 Grid 顯示，一來可以很清楚的告訴使用者相關欄位的意義；二來可以即時做資料格式檢核及控管，然後在存入 MEMO 時才將它轉為它實際依自己內部規劃的資料格式以供程式內部使用。

我說變態，是因為此 MEMO 的內容，本質上就是一個 Table，那幹嘛不直接將它設為一個固定的 DBF 作為 SubTable 呢？而且這樣也不太符合資料庫正規化的...

沒辦法，歷史包袱及 Boss 的習慣，我只是將它改良；不過這類型的資料並不會隨便亂用，評估時是以預期它一定是「有限度」的筆數，而且不是相對主要(或相對重要)的資料記錄，這樣子才會取用它。

後來將這種內容改由 XML 格式儲存，它很明顯的在存取之間，其效率明顯的改進了，而且比較穩定(說比較是因用 XML 格式的時間不太久，還必須用過一段時間後才能確定是否如此)

至於「動態的資料表格的資料內容」，像我附圖 1 中的「飛機時刻表」，它就是存放在一個 MEMO 中，其他 8 個也是如此，附圖 2 就是它列印出來的報表之一。但由於每一家的相關報表的明細項次多少都不太一樣，所以呢我才稱它為動態...

Niles · 註冊時間: 2004-12-07 文章: 53 第 7 樓

朱大的應用方式果然夠猛 !! 小弟受教了...

garfield · 發表於: 星期一二月 07, 2005 12:03 am 文章主題:

我也來秀一段INI文字檔的應用, 請指教.

Niles · 註冊時間: 2004-12-07 文章: 53 第 9 樓

Garfield 大的方式比較正統, 而且函式分明且清楚, 小弟一時獻醜反而收穫良多..

garfield · 發表於: 星期一二月 07, 2005 1:40 pm 文章主題:

你太客氣了, 我寫的這個版本是類似功能的第二版, 第一版是在我寫的"自動更新程式"裡的一段 PROPERTIES , 程式的寫法的改進也是因為多看多寫才會自然的精進, 但有時候太注意程式的精簡或技巧反而造成以後回頭來看程式時的困擾, 那是不對的.
今天你將你的程式POST上來, 這是很好的行為, 本來寫程式都是一個人埋頭苦寫, 很容易默守成規, 如果把自己的程式碼POST上來大家一起討論, 那就可吸收別人的日月精華, 練就一身絕世武功,指日可待.... ^.^

bigear · 發表於: 星期一二月 07, 2005 2:16 pm 文章主題:

marvin · 註冊時間: 2004-06-01 文章: 321 第 12 樓

看了 garfield 的 INI code, 簡單又直接,
我用的 GetProfileString IN Win32API 可以扔了.

Niles · 註冊時間: 2004-12-07 文章: 53 第 13 樓

我現在也想找時間把以前的 CODE 再回顧一遍 , 整理過後應該會更好 Smile

, 多謝諸位先進賜教!