VFP 愛用者社區

[ytyu]

偉大的構想不敢當!

可是這確確實確是一個跨IBM 3090, 跨Unisys 銀行作業系統,跨語音作業及跨一個叫OPICS的外匯交易系統,使用外部開發的程式,在一家外商銀行運作多年,主導跨行通匯匯款入帳業務,語音交易(轉帳之業務),自動提款機轉入,提款之扣款業務和外匯交易帳務處理的Interface Program.由於四個主程式都無法自由控制(都在別人家),可是為了每天的交易自動從這四大系統中update(登錄)到IBM 3090的財務系統裡面.由於缺乏IBM主程式修改的Resources,而且其程式修改還必須透過國外Regional的核准,但因當時所有人力均投入Y2K project的因素,主程式的修改被否決了. 當時消費金融正在蓬勃發展,每天的交易如果全用人工登錄所花的人力是非常大的壓力.因此在這種壓力下而開發了這個跨平台的 Interface Program.

沉澱了幾天我在思考,本想分享業界很少人使用過的經驗,在VFP論壇中探討,可是不但被澆了一灘的冷水,也被批評為"鬼扯",不要再拿我說過的事實來挖苦和消遣了!我不是大人物也沒有偉大的構想,只是有一個不受認同的實務經歷而已.

你那麼自負幹嘛!再來逼我"鬼扯"呢? 我沒有偉大理想!就讓我消失吧!

下列除了寫程式之外,不是你這個自己當老闆的人,在不同的時空背景下所能體會的到的!

"不是也有技術拔尖的廠商嗎?不是也可以凹嗎? "有些Special Cases就可以得到Free services"
自己不也是"In-house的程式我自己寫",
TEAM WORK 又是用在哪裡?
沒人可以 bodybody+team work 一下"

[syntech]

我不是懷疑這個工程的浩大程度,而你們確實也完成了一個系統,
銀行業用的系統確實會出現無法修改程式或是極為困難的情況,
並不是虛假,空口說白話的,
只是,除了銀行業之外,
可否應用在其他的行業?
又該怎麼應用?


如果vb可以做,那麼 vc++,delphi,bcb,等應該也可以做,
用vfp來做的競爭力在哪?

如果是 vfp做完前處理,轉成txt,讓vb來輸入資料,
使用現成的東西就行,
不需要重開發(當然對沒有的人就得重新開發),
vfp開發的難度是否比其他工具難,
尤其vfp 使用者普遍對作業系統底層處理不熟的情況下,

此外,對中小企業而言,
如果資料量不多,人工輸入就可以,
不需要這種東西,
如果是大企業,
除非是mis自己用vfp,
否則還輪不到vfp來做.
而vfp主要戰場在中小企業,或是專精的資料處理領域,
這樣算不算衝入一個不熟悉的紅海?


不管如何,
台灣的討論區通常都是要的人多,給的人少,
還是要感謝你提供這樣的資訊.
也許某天就會有人想出更好的應用方式.



==
另外, "鬼扯"一直指"你的廠商是否告知你錯誤的技術資訊,導致你誤解."
如果你覺得這個詞傷害你,我向你道歉,

其他你對我個人的臆測大多不正確.

[ytyu]

非常感謝您的回覆,這給我很大的鼓勵!其實我的用意只是想知道VFP也是無所不能.
別的程式語言可完成的VFP的同好也一樣可以做到.

另外一個出發點是,我們都是資訊人,身處在各行各業,每位狐友所面對的挑戰都不一様,也不是要想異想天開用VFP挑戰別的市場.可是當我們管理的系統受到Vendor的刁難或不可抗拒的理由,而又必須完成結果時,是否有自救的能力.

Dear 樓主非常感謝您的認同,也非常抱歉我用錯了Topic造成了大家的誤會了.本想只想知道跨視窗的Position控制,再來研究處理流程.

vfp主要戰場在中小企業,或是專精的資料處理領域,
這樣算不算衝入一個不熟悉的紅海? My answer is, 絕對不會!

如果vb可以做,那麼 vc++,delphi,bcb,等應該也可以做,
用vfp來做的競爭力在哪? VFP有以上的語言做不到的功能,我會找時間細述.
因為我現在正用VFP在做Unisys系統轉換至另外一個由印度公司開發的系統叫Finacle的case.幾百萬筆資料都用VFP在處理,從Unisys convert to Finacle,當然還有其他語言配合.

總之不要小看VFP,它的領域不只在銀行業,在中小企業所發揮的空間更大更廣,如營造業,買賣業,廣告業.....,的服務業.中國現在不是很流行VFP嗎?你知道嗎?我們臺灣即將被中國的服務業或其他的產業入侵了,未來他們懂VFP的人非常多,我們如不知VFP更大的領域如何跟他們競爭呢?您說是嗎?

[syntech]

vfp 實際上太過於專精在資料處理上頭,
變成他的使用者及其他不了解vfp的客戶都會認為vfp只會做資料處理,
這就造成vfp 系統在推廣上的困難.

vfp的進階開發者也通常需要學會第二或第三種開發工具.
最常選擇的就是 vb/asp.net, 其次就是 java,c# 等等的.



詠春拳除了拳之外,也還有刀法,棍法,
不然去菜市場救徒弟就糗了

[Patrick Wu]

IF THISFORM.CHK_01.MOUSEPOINTER = 99
Declare Integer InternetGetConnectedState In wininet.Dll Integer @lpdwFlags, Integer dwReservednReserved

DO CASE
CASE InternetGetConnectedState(0,0) = 0
= MESSAGEBOX(" { 網路 } 連 線 失 敗 ", 06 , " 請 重 新 { 連線 } ")
CASE LEN(TRIM(THISFORM.CHK_01.VALUE) + M->RGT_CD2) != 12 .AND. ;
LEN(TRIM(THISFORM.CHK_01.VALUE) + M->RGT_CD2) != 14 .AND. ;
LEN(TRIM(THISFORM.CHK_01.VALUE) + M->RGT_CD2) != 20
= MESSAGEBOX(" { 掛號號碼 } 6 碼 " + CHR(13) + " { 郵局代碼 } 6 或 8 或 14 碼 " , 06 , " 號 碼 位 數 不 符 ")
OTHERWISE
_SCREEN.WindowState = 1

oIE = CREATEOBJECT( "internetexplorer.application" )
oIE.NAVIGATE( "http://postserv.post.gov.tw/webpost/CSController?cmd=POS4001_1&_ACTIVE_ID=190" )
oIE.VISIBLE = .T.

DO WHILE oIE.BUSY OR oIE.READYSTATE <> 4
ENDDO

oIE.DOCUMENT.FORMS.MainForm.MAILNO1.VALUE = TRIM(THISFORM.CHK_01.VALUE) + M->RGT_CD2
oIE.DOCUMENT.FORMS.MainForm.cmd.value = "POS4001_2"
oIE.DOCUMENT.FORMS.document.MainForm.submit()

************************************************************************************
DO WHILE oIE.BUSY OR oIE.READYSTATE <> 4
ENDDO

M->I_E_STR = oIE.Document.Body.InnerHtml

IF AT( "投遞成功" , M->I_E_STR ) != 0
STORE SUBSTR(M->I_E_STR , AT( "dispFormatDateTimeEng" , M->I_E_STR ) + 23 , 0 TO M->I_E_STR
STORE CTOD(SUBSTR(M->I_E_STR,05,02) + "/" + SUBSTR(M->I_E_STR,07,02) + "/" + SUBSTR(M->I_E_STR,01,04)) TO M->A_D_01

IF TYPE("M->A_D_01") = "D" .AND. M->A_D_01 != { / / }

oIE.TOP = 0
oIE.LEFT = 0
oIE.HEIGHT = 570 * M->SCR_HIG
oIE.WIDTH = 200 * M->SCR_WID

THISFORM.A_D_01.REFRESH()
THISFORM.A_D_01.DISABLEDBACKCOLOR = RGB(255,255,0)
THISFORM.儲存.SETFOCUS()
_SCREEN.WindowState = 2
ENDIF
ELSE
STORE "" TO M->I_E_STR
ENDIF
************************************************************************************
SELECT 50
ENDCASE
ENDIF

這是後學 寫的一個小程式 {{請教過各先進 承蒙各先進的指導}}
郵局寄送 掛號 OR 限掛 於 VFP 輸入 執據號碼 即可自動連上 郵局網頁查詢信件是否 送達
如已送達 則用土法練鋼的方式 {{{抓字}}} {{{"投遞成功"}}} 自動傳回 送達 {{{日期}}}
VFP 再按儲存 即完成一信件的 寄出(可印 大宗單) 輸入 執據號碼 再查詢是否寄達

[Patrick Wu]

信件執據程式

[syntech]

這就是 6樓指的,
某一種網頁的寫法可以這樣做,
但並非直接搜尋螢幕資料,

[ytyu]

是的沒有錯!這也是vfp上市後,太Focus於資料處理,也因為同時期 net
的戶開始巨增,software develop house開始朝向它發展的原故,許多++ and
新的語言陸續上市.但是融會貫通才是最主要的元素,沒有一個系統只靠單一語
言可以開發完成的,因此我說您才高八斗,十八般武藝樣樣精通.這才是您業務上
最大的助力.

大型企業的系統需要有如您所述的語言來配合運作,對於資料處理類如有懂vfp的人來配合就如如魚得水了.

當然啦!我提出來探討的運作方式,不是每一個應用者,都使用的上,它只是一種應用技巧的延伸,以備不時之需,運用原有系統內部的原始作業程序,透過外部程式引導,從Emulation之不同的終端環境,遵循制式的程序持續運作.它對於中小企業及資料量不大的用戶或許用不上,可是如果用戶買的是套裝軟體或者主程式無法修改,而且
又不希望重複做登錄的作業,那它可就起作用了.

[ytyu]

Hello 50樓樓主 Patrick 您好!

非常感謝分享您的成果!基本上它已算是一支跨視窗的作業了,請問它需要人工介入嗎?

[黃澤民]

[ytyu]

50樓樓主,請教您的RGT_FORM.jpg作業劃面是怎麼貼上的?是否用附加檔案?

[Patrick Wu]

是用附加檔案

[green]

VFP真的很強 .....

[goodnight]

微軟抓畫面到word的範例, 可惜我在 win7 x64 執行有問題, 不知道結果為何
http://support.microsoft.com/kb/255279

[raster]

ㄜ...我有個很單純的想法...

1.建個「透明」「全營幕」的From
2.藉由Form的MouseMove取得nXCoord,nYCoord