 |
VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
| 上一篇主題 :: 下一篇主題 |
| 發表人 |
內容 |
Ruey
註冊時間: 2003-03-12
文章: 1698
來自: tunglo
第 1 樓
|
 發表於: 星期六 一月 24, 2004 2:07 am 文章主題: 程式生成表單(轉貼) |
 |
|
來源:梅子 網路盲流
http://www.meizibbs.3322.org/bbs/dispbbs.asp?boardID=2&ID=12464
原來是要用dbc的,但被我改成用cursor,我想這是一樣得.
*!* 一個用程式生成表單的例子，供有興趣者參考。
*!* 在這個示例程式中，我所用資料源表檔案名為：gtb.dbf、資料庫檔為子目錄 data 下的 cqcw_data.dbc。大家用此程式進行演示時，應在程式碼中作相應修改。
*!* 程式碼如下：
*==================
| 代碼: | create cursor test1( test c(20) )
insert into test1 values ( 'line 11' )
insert into test1 values ( 'line 21' )
Myform=CREATEOBJECT("Form1") && 根據自定義類 Form1 創建表單物件 Myform
Myform.show && 顯示表單 Myform
READ Events
*!* 通過下而的代碼創建一個自定義類 Form1
DEFINE CLASS form1 AS Form
AutoCenter=.T.
Caption="用命令生成的表單示例"
Name="Form1"
Height=340
width=400
ADD OBJECT label1 AS label WITH;
FontSize=16,;
Caption="請按下按鈕看效果",;
FontName="楷體_GB2312",;
ForeColor=RGB(0,0,64),;
DisabledForeColor=RGB(0,0,0),;
Height=60,;
Left=100,;
Top=20,;
width=324,;
Name="label1",;
enabled=.F.
ADD OBJECT command1 AS commandbutton WITH;
top=300,;
Left=120,;
Height=24,;
width=60,;
Caption="按鈕一",;
Name="command1"
ADD OBJECT command2 AS commandbutton WITH;
top=Thisform.command1.top,;
Left=Thisform.command1.Left+Thisform.command1.width+20,;
Height=24,;
width=60,;
Caption="按鈕二",;
Name="command2"
ADD OBJECT Grid1 AS Grid WITH;
top=60,;
Left=40,;
Height=200,;
width=300,;
Name="Grid1"
ADD OBJECT DataEnvironment AS DataEnvironment WITH;
Name="DataEnvironment" && 創建表單的資料環境
PROCEDURE Click
ThisForm.label1.DisabledForeColor=RGB(0,0,0)
ThisForm.label1.Caption="你擊點了表單！"
ENDPROC
PROCEDURE Destroy
CLEAR EVENTS && 結束事件迴圈
ENDPROC
PROCEDURE Init
Thisform.DataEnvironment.ADDOBJECT("Cursor1","Cursor") && 根據類 Cursor 在資料環境中添�[一個�{時表物件 Cursor1
Thisform.DataEnvironment.Cursor1.CursorSource="test1"
*Thisform.DataEnvironment.Cursor1.Database="data\cqcw_data.dbc" && 指定資料庫檔案名，對自由表，可略去該行
Thisform.DataEnvironment.OpenTables && 載入資料環境
Thisform.Grid1.RecordSource="test1" && 綁定表格控制項的資料源
Thisform.Grid1.DeleteMark=.F.
ThisForm.Label1.enabled=.F.
ENDPROC
PROCEDURE command1.Click
ThisForm.label1.DisabledForeColor=RGB(192,0,0)
ThisForm.label1.Caption="你按下了《按鈕一》！"
ENDPROC
PROCEDURE command2.Click
ThisForm.label1.DisabledForeColor=RGB(0,0,255)
ThisForm.label1.Caption="你單擊了'按鈕二'！"
ENDPROC
ENDDEFINE |
_________________
#############################
快樂媽咪系列幸福宅配,喝十全雞湯~原來幸福那麼簡單!!
學會VFP使用者社區的搜尋,Code才會更有趣~
############################# |
|
| 回頂端 |
|
 |
|
|
您 無法 在這個版面發表文章
您 無法 在這個版面回覆文章
您 無法 在這個版面編輯文章
您 無法 在這個版面刪除文章
您 無法 在這個版面進行投票
您 無法 在這個版面附加檔案
您 無法 在這個版面下載檔案
|
|
常見問題
搜尋
會員列表
會員群組
會員註冊
個人資料
登入檢查您的私人訊息
登入
