 |
VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
| 上一篇主題 :: 下一篇主題 |
| 發表人 |
內容 |
hichin
註冊時間: 2008-02-21
文章: 88
第 1 樓
|
 發表於: 星期六 三月 01, 2008 11:44 pm 文章主題: 請問grid用visual的方式設計,增刪column時,如何才不會動到之前已經寫好的程式? |
 |
|
如最後一欄的text1都會用lostfocus中 lastkey()判斷,而寫一大段程式
但是如果要增加新欄位時,則必須大動作搬移
比如原先只須4欄, 後增加至5欄,則lastkey()這段必須由coulmn4.text1搬移到column5.text1.lostfocus中,非常麻煩,請高手指點 |
|
| 回頂端 |
|
 |
andywilliams
註冊時間: 2004-10-23
文章: 111
第 2 樓
|
| 發表於: 星期日 三月 02, 2008 11:22 am 文章主題: |
|
|
修改grid..參數, 不要再用輔助工具修改
grid.Columncount = 5
grid.Column4.ColumnOrder = 5
grid.Column5.ColumnOrder = 4 |
|
| 回頂端 |
|
|
hichin
註冊時間: 2008-02-21
文章: 88
第 3 樓
|
| 發表於: 星期日 三月 02, 2008 1:07 pm 文章主題: 謝大大,我不希望用此方式 |
|
|
| andywilliams 寫到: | 修改grid..參數, 不要再用輔助工具修改
grid.Columncount = 5
grid.Column4.ColumnOrder = 5
grid.Column5.ColumnOrder = 4 |
=================
請問有沒像在GRID1.INIT 中設定屬性類似方法,設定LOSTFOCUS的內容THIS.SetAll("FONTSIZE",12)
THIS.SetAll("FONTNAME","新細明體")
FOR i=1 TO this.ColumnCount
this.Columns(i).SelectOnEntry = .F.
NEXT
this.column1.header1.Caption="項次"
this.column1.header1.Alignment= 2
this.column2.header1.Caption="產品編號"
this.column3.header1.Caption="品名規格"
this.column4.header1.Caption="客戶品號"
this.column5.header1.Caption="數量"
this.column5.header1.Alignment= 2
this.column6.header1.Caption="單位"
this.column7.header1.Caption="單價"
this.column7.header1.Alignment= 2
this.column8.header1.Caption="金額"
this.column8.header1.Alignment= 2
this.column9.header1.Caption="備註"
this.column1.Enabled = .F.
this.column1.ReadOnly=.T.
this.column1.BackColor= 16119285
this.column3.Enabled = .F.
this.column3.ReadOnly=.T.
this.column3.BackColor= 16119285
this.column8.Enabled = .F.
this.column8.ReadOnly=.T.
this.column8.BackColor= 16119285
========================
THIS.COLUMN9.TEXT1.LOSTFOCUS=某一段程序
我試過這樣不行 |
|
| 回頂端 |
|
|
syntech
註冊時間: 2003-05-16
文章: 4249
來自: Taipei,Taiwan
第 4 樓
|
| 發表於: 星期日 三月 02, 2008 3:44 pm 文章主題: |
|
|
正確的說,你沒有問清楚你的問題.
任何一個版本都不支援所謂的
| 代碼: |
THIS.COLUMN9.TEXT1.LOSTFOCUS=某一段�{序
|
如果你的目的是"想要設定欄位事件的程式碼"
你必須先說明有你是用哪一個版本的VFP,
不同版本有不同的作法.
例如VFP 8/9 可以用 BINDEVENT() 設定事件程式,
而舊的版本缺乏這個函式.
而必須用"某些方式"迂迴加入.
andywilliams 兄的方式也是對的,
就算我不知道這個"某些方式",
至少可以先在GRID中放進去不會改變的column,放進程式碼,再調整它的columnorder,
一樣可以做到同樣的"效果"
_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
| 回頂端 |
|
|
hichin
註冊時間: 2008-02-21
文章: 88
第 5 樓
|
| 發表於: 星期日 三月 02, 2008 6:53 pm 文章主題: 謝謝syntech大指點,沒錯我的意思是希望能將所有程式碼寫在grid.init,但不知有沒方法 |
|
|
| syntech 寫到: | 正確的說,你沒有問清楚你的問題.
任何一個版本都不支援所謂的
| 代碼: |
THIS.COLUMN9.TEXT1.LOSTFOCUS=某一段?#123;序
|
如果你的目的是"想要設定欄位事件的程式碼"
你必須先說明有你是用哪一個版本的VFP,
不同版本有不同的作法.
例如VFP 8/9 可以用 BINDEVENT() 設定事件程式,
而舊的版本缺乏這個函式.
而必須用"某些方式"迂迴加入.
andywilliams 兄的方式也是對的,
就算我不知道這個"某些方式",
至少可以先在GRID中放進去不會改變的column,放進程式碼,再調整它的columnorder,
一樣可以做到同樣的"效果" |
===========================
謝謝syntech大指點,沒錯我的意思是希望能將所有程式碼寫在grid.init,但不知有沒方法,我用vfp8 |
|
| 回頂端 |
|
|
syntech
註冊時間: 2003-05-16
文章: 4249
來自: Taipei,Taiwan
第 6 樓
|
| 發表於: 星期一 三月 03, 2008 1:07 am 文章主題: |
|
|
不可能辦到"所有程式碼寫在grid.init"
vfp 不允許在某一事件中定義另一個物件的事件的程式碼
現存的vfp 都是一樣.
但是仍有方法辦到你真正想要的東西.
心態老了,不想雞婆寫完答案.
就當我是大壞蛋,藏私,什麼有的沒的好了
_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
| 回頂端 |
|
|
nelsonchuang
註冊時間: 2003-09-04
文章: 563
來自: 臺灣
第 7 樓
|
| 發表於: 星期一 三月 03, 2008 9:09 am 文章主題: |
|
|
我也同意Syntech的想法
,因為有些東西或是作法,也可能
是別人想了很久才出來的解決方案,
沒什麼道理,在論壇上別人一問就掏心掏肺的講出來.
即使答案很簡單,但也都是別人辛苦磨練出來的祕訣~
_________________
大家好,請多指教 |
|
| 回頂端 |
|
|
garfield
Site Admin
註冊時間: 2003-01-30
文章: 2160
第 8 樓
|
|
| 回頂端 |
|
|
hichin
註冊時間: 2008-02-21
文章: 88
第 9 樓
|
| 發表於: 星期一 三月 03, 2008 10:08 am 文章主題: 這當然市一種想法,提供大家參考看看,vfp就是有這個缺點,不像vb6那麼靈活 |
|
|
| syntech 寫到: | 不可能辦到"所有程式碼寫在grid.init"
vfp 不允許在某一事件中定義另一個物件的事件的程式碼
現存的vfp 都是一樣.
但是仍有方法辦到你真正想要的東西.
心態老了,不想雞婆寫完答案.
就當我是大壞蛋,藏私,什麼有的沒的好了 |
============
謝大大, |
|
| 回頂端 |
|
|
hichin
註冊時間: 2008-02-21
文章: 88
第 10 樓
|
| 發表於: 星期一 三月 03, 2008 10:22 am 文章主題: 謝大大指點,我正在拜讀,看是否找出來答案 |
|
|
|
|
| 回頂端 |
|
|
andywilliams
註冊時間: 2004-10-23
文章: 111
第 11 樓
|
| 發表於: 星期一 三月 03, 2008 11:10 am 文章主題: |
|
|
DEFINE CLASS ...
PROCEDURE [LOSTFOCUS]
= MESSAGEBOX("gona LOSTFOCUS")
.....
ENDDEFINE
要寫這段程式, 可用..
1.用整個form用非視覺設計(prg)
2.將code寫在程序檔呼叫
....還是用視覺設計較方便...
.."將所有程式碼寫在某一個地方(grid.init)"並不是好的管理方式
該寫在那就寫在那..以後較好維護.
.....
* a prg sample
OPEN DATABASE (HOME(2) + 'data\testdata')
USE customer IN 0 && Opens Customer table
frmMyForm = CREATEOBJECT('Form') && Create a Form
frmMyForm.CLOSABLE = .F. && Disable the window pop-up menu
frmMyForm.ADDOBJECT('cmdCommand1','cmdMyCmdBtn') && Add Command button
frmMyForm.ADDOBJECT('grdGrid1','grdGrid1') && Add Grid control
frmMyForm.grdGrid1.LEFT = 25 && Adjust Grid position
frmMyForm.grdGrid1.SETALL("DynamicBackColor", ;
"IIF(MOD(RECNO( ), 2)=0, RGB(255,255,255) , RGB(0,255,0))", "Column") && Alternate white and green records
frmMyForm.grdGrid1.VISIBLE = .T. && Grid control visible
frmMyForm.cmdCommand1.VISIBLE =.T. && "Quit" Command button visible
*!* frmMyForm.grdGrid1.Column1.Header1.CAPTION = 'Customer ID'
*!* WITH frmMyForm.grdGrid1.Column1
*!* .Header1.CAPTION = ' ID'
*!* * .text1.BACKCOLOR = RGB(255,0,255)
*!* WITH .text1
*!* ENDWITH
*!* ENDWITH
frmMyForm.SHOW && Display the form
READ EVENTS && Start event processing
DEFINE CLASS cmdMyCmdBtn AS COMMANDBUTTON && Create Command button
CAPTION = '\<Quit' && Caption on the Command button
CANCEL = .T. && Default Cancel Command button (Esc)
LEFT = 125 && Command button column
TOP = 210 && Command button row
HEIGHT = 25 && Command button height
PROCEDURE CLICK
CLEAR EVENTS && Stop event processing, close form
* CLOSE ALL && Close table and database
ENDDEFINE
DEFINE CLASS grdGrid1 AS GRID
* with Column1.text1
* BACKCOLOR = RGB(255,0,255)
ADD OBJECT Column1 AS Column1
ENDDEFINE
DEFINE CLASS Column1 AS COLUMN
ADD OBJECT text1 AS textbox
currentControl = "text1"
* BACKCOLOR = RGB(255,0,255)
PROCEDURE text1.CLICK
= MESSAGEBOX('This is my click event procedure')
thisform.release &&
CLEAR EVENTS
ENDDEFINE |
|
| 回頂端 |
|
|
hichin
註冊時間: 2008-02-21
文章: 88
第 12 樓
|
| 發表於: 星期一 三月 03, 2008 1:01 pm 文章主題: 大大之意我懂,謝謝,有時真不知這些開發VFP的工程師在想甚麼,如果能有一個管理器... |
|
|
| andywilliams 寫到: | DEFINE CLASS ...
PROCEDURE [LOSTFOCUS]
= MESSAGEBOX("gona LOSTFOCUS")
.....
ENDDEFINE
要寫這段程式, 可用..
1.用整個form用非視覺設計(prg)
2.將code寫在程序檔呼叫
....還是用視覺設計較方便...
.."將所有程式碼寫在某一個地方(grid.init)"並不是好的管理方式
該寫在那就寫在那..以後較好維護.
.....
* a prg sample
OPEN DATABASE (HOME(2) + 'data\testdata')
USE customer IN 0 && Opens Customer table
frmMyForm = CREATEOBJECT('Form') && Create a Form
frmMyForm.CLOSABLE = .F. && Disable the window pop-up menu
frmMyForm.ADDOBJECT('cmdCommand1','cmdMyCmdBtn') && Add Command button
frmMyForm.ADDOBJECT('grdGrid1','grdGrid1') && Add Grid control
frmMyForm.grdGrid1.LEFT = 25 && Adjust Grid position
frmMyForm.grdGrid1.SETALL("DynamicBackColor", ;
"IIF(MOD(RECNO( ), 2)=0, RGB(255,255,255) , RGB(0,255,0))", "Column") && Alternate white and green records
frmMyForm.grdGrid1.VISIBLE = .T. && Grid control visible
frmMyForm.cmdCommand1.VISIBLE =.T. && "Quit" Command button visible
*!* frmMyForm.grdGrid1.Column1.Header1.CAPTION = 'Customer ID'
*!* WITH frmMyForm.grdGrid1.Column1
*!* .Header1.CAPTION = ' ID'
*!* * .text1.BACKCOLOR = RGB(255,0,255)
*!* WITH .text1
*!* ENDWITH
*!* ENDWITH
frmMyForm.SHOW && Display the form
READ EVENTS && Start event processing
DEFINE CLASS cmdMyCmdBtn AS COMMANDBUTTON && Create Command button
CAPTION = '\<Quit' && Caption on the Command button
CANCEL = .T. && Default Cancel Command button (Esc)
LEFT = 125 && Command button column
TOP = 210 && Command button row
HEIGHT = 25 && Command button height
PROCEDURE CLICK
CLEAR EVENTS && Stop event processing, close form
* CLOSE ALL && Close table and database
ENDDEFINE
DEFINE CLASS grdGrid1 AS GRID
* with Column1.text1
* BACKCOLOR = RGB(255,0,255)
ADD OBJECT Column1 AS Column1
ENDDEFINE
DEFINE CLASS Column1 AS COLUMN
ADD OBJECT text1 AS textbox
currentControl = "text1"
* BACKCOLOR = RGB(255,0,255)
PROCEDURE text1.CLICK
= MESSAGEBOX('This is my click event procedure')
thisform.release &&
CLEAR EVENTS
ENDDEFINE |
===========================
管理整個FORM的程式碼多好,VISUAL好處多,但是能一次看一整個FORM的程式多好,複製也方便,而且人性話 |
|
| 回頂端 |
|
|
syntech
註冊時間: 2003-05-16
文章: 4249
來自: Taipei,Taiwan
第 13 樓
|
| 發表於: 星期一 三月 03, 2008 4:15 pm 文章主題: |
|
|
寫在固定的位置比較好管理,
散在各個事件就很難管理.
所以我就弄個辦法把我們系統需要統一管理的事件通通集中起來.
_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
| 回頂端 |
|
|
hichin
註冊時間: 2008-02-21
文章: 88
第 14 樓
|
| 發表於: 星期一 三月 03, 2008 5:17 pm 文章主題: 感慨啊,像ACCESS,VB6就有此功能,VFP就差這點了,MS為何要停止這樣好的產品 |
|
|
| syntech 寫到: | 寫在固定的位置比較好管理,
散在各個事件就很難管理.
所以我就弄個辦法把我們系統需要統一管理的事件通通集中起來. |
================
像VB ,ACCESS的資料庫程式功能就沒VFP好,可是有一些操作功能卻比VFP好 |
|
| 回頂端 |
|
|
hichin
註冊時間: 2008-02-21
文章: 88
第 15 樓
|
| 發表於: 星期二 三月 04, 2008 9:02 am 文章主題: 請問syntech大,真有這種東東嗎? |
|
|
| syntech 寫到: | 寫在固定的位置比較好管理,
散在各個事件就很難管理.
所以我就弄個辦法把我們系統需要統一管理的事件通通集中起來. |
|
|
| 回頂端 |
|
|
|
|
您 無法 在這個版面發表文章
您 無法 在這個版面回覆文章
您 無法 在這個版面編輯文章
您 無法 在這個版面刪除文章
您 無法 在這個版面進行投票
您 無法 在這個版面附加檔案
您 無法 在這個版面下載檔案
|
|
常見問題
搜尋
會員列表
會員群組
會員註冊
個人資料
登入檢查您的私人訊息
登入
