第10章圖書管理系統

■數據庫應用系統開發的基本思想和步驟

■創建關于圖書管理系統的表和數據庫

■創建借書表單

■創建還書表單

■創建資料查詢表單

■創建圖書管理表單

■創建讀者管理表單

■創建圖書管理系統的報表

■創建報表打印表單

■創建一個自定義工具欄類

■設計圖書管理系統的主表單

■初始化表單的制作

■制作數據備份表單

■創建數據恢復表單

■創建數據清空表單

■制作密碼驗證表單

■制作密碼修改表單

■創建系統封面表單

■圖書管理系統菜單的制作

■圖書管理系統主程序的制作

■創建項目組織系統結構

■應用系統的發布

案例1:數據庫應用系統開發的基本思想和步驟

學習VisualFoxPro最終的目的是開發一個數據庫應用系統，本章通過制作圖書管理

系統集中介紹數據庫開發的全過程，以與開發數據庫應用系統的制作方法和步驟。

一■、需求分析

1、開發目的：

這個圖書管理系統主要為小型圖書館、圖書社設計，根據這些圖書館、圖書社圖書管

理的需求，經過分析后要實現的功能有：

(1)能瀏覽圖書的資料信息和讀者的資料信息。

(2)能夠按一定條件查詢相關資料的信息。

(3)能夠修改、增加和刪除相關資料信息。

(4)能按條件打印相關資料信息。

(5)有安全性較強的系統入口。

(6)應用系統自身的維護功能。

2、數據需求：

作者經過數據需求的分析，這個系統需要建立關于圖書資料信息、讀者資料信息、借書

登記和管理的四個表，創建一個數據庫，并且實現圖書資料信息、讀者資料信息和借書登記

表之間的關聯，詳細的設計在案例二中講述。

3、功能分析：

(1)瀏覽

能瀏覽圖書的資料信息和讀者的資料信息。

(2)查詢

能對圖書資料、讀者資料和借閱登記的信息按照一定的條件進行查詢或者模糊查

詢。

(3)數據維護

對圖書資料、讀者資料和借書登記的相關數據進行修改、添加、刪除等的數據維護。

(4)撤消/保存

能撤消錯誤的操作，能保存用戶更改的信息。

(5)資料打印

對圖書資料、讀者資料和借書登記的相關數據信息按照指定的條件進行打印。

(6)數據備份、恢復和清除

能隨時對數據進行備份，也能對數據進行恢復，還可以對整個數據庫和表進行初始化

和清除操作。

(7)密碼的管理

可以修改密碼

二、模塊分析

1、系統維護模塊

系統維護模塊包括了系統初始化、數據表的清空、數據備份、數據恢復、密碼修改和

系統退出等的功能。這些功能是通過獨立的表單實現的。

2、借還書模塊

這個模塊包括兩個表單，分別實現借書和還書功能，在這兩個表單上我們可以查看要

借或者要還圖書的信息資料和讀者的信息資料，并且利用“借書”和“還書”兩個按鈕實現

借書和還書登記。

3、資料查詢模塊

這個模塊通過一個擁有兩個頁框的表單實現圖書資料和讀者資料的查詢，并且可以是

模糊查詢，也可以是精確查詢。

4、資料管理模塊

這個模塊包括兩個表單，分別實現圖書資料的管理和讀者資料的管理，管理包括：查

看資料、修改資料、刪除資料以與添加資料等等功能。

5、打印資料模塊

通過一個表單實現有條件打印，在這個表單里我們可以選擇要打印的數據，實現按條

件打印的目標。

三、開發步驟：

1、創建數據表和數據庫。表和數據庫是數據庫應用系統操作的基礎和核心，所以經過

需求分析后接著要做的就是設計表和數據庫。表的設計要合理，要建立關聯的表必須有一樣

的字段名，關于表和數據庫的設計知識我想大家一定知道，這里就不詳述了。

2、應用程序的設計。一個應用系統包含多種類型的文件，比如表單、菜單、報表、子

類等等，每一種文件又有好多個，這些種類數量繁多的應用程序必須有一個清晰的設計思路，

同一個系統不同的設計者有不同的設計思路，比如有人設計是從整體到局部、從大到小，先

建立項目管理器，接著創建主程序，然后是主界面，最后才是某個具體功能的表單、報表等

等，也有人是正好相反的步驟。而作者本人喜歡先設計小的、局部的，然后再設計大的、整

體的，我認為這樣對編程等方面是有利的。

3、連編生成應用程序或可執行文件。當一個項目建立好后，在項目運行前還必須對它

們“連編”。主要目的是生成可執行文件，同時可以設置項目信息，比如等，還可以測試和

校驗項目，測試程序組件是否可用。

4、測試并發布應用程序。以上步驟完成后，剩下的就是發布程序了。

案例2：創建關于圖書管理系統的表和數據庫

制作要點：

1、創建表

2、建立主索引和普通索引

3、創建數據庫

4、實現兩個表之間的關聯

步驟詳解：

剛才已經說過表和數據庫是數據庫應用系統操作的基礎和核心，設計的時候要充分考慮

到表之間的關聯，同時注意數據庫設計的合理性，以免造成數據冗余。下面列出圖書管理系

統的所有表的結構與必須的索引，表中的記錄大家可以自己加幾個，在這個案例中我們需要

這樣四個表：

1、讀者信息表(讀者信息.DBF)

結構：

讀者信息(讀者編號c(10)primarykey,讀者c(10),證件號c(20),性別c(2),單位部

門c(20),住址c(40),職業c(20),聯系c(12),備注c(40),未還書目c(2))

2、圖書資料表(圖書資料.DBF)

結構：

圖書資料(圖書編號c(10)primarykey,圖書類別c(10),圖書名稱c(50),作者c(20),

c(30),出版日期d,入館日期d,購買價格y(8),借閱次數n(4),備注c(50))

3、借書登記表(借書登記.DBF)

結構：

借書登記(讀者編號c(10),圖書編號c(10),讀者c(10),讀者證件號c(20),借閱日期

d,歸還日期d,借書標志c(4),foreignkey讀者編號tag讀者編號references讀者信

息，foreignkey圖書編號tag圖書編號references圖書資料)

4、系統表(系統賬號.DBF)

結構：

系統賬號(賬號c(20),密碼c(20))

接著再創建一個名為“讀者管理”的數據庫，把圖書資料.DBF、讀者資料.DBF和借書

登記.DBF三個表添加到數據庫里面并按表結構要求建立關聯。如圖10-1所示：

品數據庫設計器-讀者管理

因

昌字段:~

讀者編號讀者編號

讀者姓名圖書編號

證件號讀者姓名

讀者證件號

單位部門借閱日期

歸還日期

借書標志

聯系電話

13點引：

讀者編號

未還書目圖書編號

僚引：

質賣者編號

?II

圖10-1“讀者管理”數據庫

案例3:創建借書表單

案例運行效果與操作

在這個表單中，我們可以通過輸入讀者的讀者編號來了解讀者的信息，也可以輸入圖書

編號來了解要借圖書的信息，當讀者確定要借出時，單擊“借出”按鈕就可以把信息記錄在

借書登記表里面。借書表單的運行效果如圖10-2。

圖10-2“js”表單運行效果

其中單擊“清空”按鈕會將表單上所有的文本框容清除，退出表單時，單擊“退出”按

鈕就可以。

制作要點

1、SQL查詢語言

2、文本框屬性設置

步驟詳解

1、新建一個表單，保存文件名為js,打開“數據環境設計器”窗口，向其中添加讀者

信息表、圖書資料表以與借書登記表。如圖10-3添加對象，分別添加十六個標簽、十四個

文本框、五個按鈕和兩個形狀。

圖10-3“js”表單

2、這些控件的屬設置如表10-1：

表10-1“js”屬性設置

對象屬性屬性值說明

FormlAutoCenter.t.一真設置這個表單在首次顯

示時自動在VisuaIFoxPro

主窗口中自動居中

BorderSty1e2-固定對話框指定邊框樣式

Caption書籍借閱標題

1conmonitor,ico（自表單的圖標，大家可以

己選擇）使用自己喜歡的圖標

MaxButton.F.-假關閉最大化按鈕

NameForml表單名

ShowTips.T.-真顯示工具提示

ShowWindow1-在頂層表單中指定在創建過程中表單

窗口顯示表單

WindowType1-模式表單在顯示或運行時的

動作模式

Labe11Caption讀者信息

AutoSize.T.一真Label2到Label16的

AutoSize屬性都照此設置

BackSty1e0-透明Labe12到Labe116的

BackStyIe屬性都照此設置

FontName宋體Labe12到Labe116的

FontName屬性都照此設置

FontSize11Labe110的FontSize屬

性也是11,其它從Label2

到Labe116的FontSize屬性

都是9

Labe12Caption讀者編號：

Labe13Caption姓名：

Labe14Caption性別：

Label5Caption證件號：

Labe16Caption單位部門：

LabeI7Caption聯系：

Label8Caption備注：

Labe19Caption未還書目：

Labe110Caption圖書信息

Labe111Caption圖書編號：

Labe112Caption圖書名稱：

Label13Caption圖書類別：

Label14Caption作者：

Label15Caption:

Label16Caption購買價格：

ShapelBackSty1e0-透明指定形狀的背景為透明

Specia1Effe0-3維指定形狀的格式

ct

Shape2BackSty1e0-透明

Specia1Effe0-3維

ct

TextlBackCo1or224,224,224背景色，自己選擇一種

喜歡的顏色就行，Text2到

Text14的BackCoIor屬性都

可照此設置

Text2Contro1Sour讀者信息.讀者指定文本框的數據源是表讀

ce者信息中的讀者字段

Text3Contro1Sour讀者信息.性別

ce

Text4Contro1Sour讀者信息.證件號

ce

Text5Contro1Sour讀者信息.單位部

ce門

Text6Contro1Sour讀者信息.聯系

ce

Text7Contro1Sour讀者信息.備注

ce

Text8Contro1Sour讀者信息.未還書

ce目

TextIOContro1Sour圖書資料.圖書名

ce稱

Textl1Contro1Sour圖書資料.圖書類

ce別

Textl2Contro1Sour圖書資料.作者

ce

Textl3Contro1Sour圖書資料.

ce

Text14Contro1Sour圖書資料.購買價

ce格

CommandlCaption確定按鈕上顯示的文字

FontName宋體按鈕上顯示的文字字體

Command2Caption確定

FontName宋體

CommandsCaption借出

FontName宋體

Command4Caption清空

FontName宋體

Command5Caption退出

FontName宋體

3、按照圖示調整好這些對象的大小和位置，然后雙擊表單給這些對象添加代碼:

Forml的Load事件代碼：

seIe1

use讀者信息

seIe2

use圖書資料

Unload事件代碼：use

設置Command1“確定"按鈕的01ick事件代碼：

seIe1

Iocatefor讀者編號二upper(aIIt(thisform.textl.vaIue))

ifnotfound()

二messagebox('沒有該讀者編號!,,0+64+0,'提示‘)

gotop

eIse

thisformmand3.enabIed=.T.

endif

thisform.refresh

設置Command2“確定"按鈕的Click事件代碼：

seIe2

Iocatefor圖書編號二upper(aI11(thisform.text9.vaIue))

ifnotfound()

二messagebox('沒有該圖書編號！',0+64+0,'提示‘)

gotop

eIse

thisformmand3.enabIed=.T.

endif

thisform.refresh

設置Commands”借出“按鈕的Click事件代碼：

□Answer二MESSAGEBOX('確認所借書目的資料無誤嗎？’，4+32+0,'重要提示‘)

ifnAnswer=6

insertinto借書登記(圖書編號，讀者，讀者證件號，借閱日期,借書標志)；

vaIues(upper(alIt(thisform.textl0.vaIue)),;

upper(aI11(thisform.text2.vaIue)),;

upper(aI11(thisform.text4.vaIue)),;

datetime。，'借出')

seIe2

repIace借閱次數with借閱次數+1

endif

設置Command4“清空“按鈕的Click事件代碼：

thisform.textl.vaIue=,,

thisform.text2.value=''

thisform.text3.vaIue=''

thisform.text4.vaIue=''

thisform.text5.value=''

thisform.text6.value=''

thisform.text7.vaIue=''

thisform.text8.vaIue=''

thisform.text9.vaIue=''

thisform.textIO.value=''

thisform.textl1.vaIue=''

thisform.text12.value=''

thisform.text13.value=''

thisform.textl4.vaIue=0.00

thisform.textl.setfocus

設置Commands“退出“按鈕的Click事件代碼：

thisform.reIease

保存表單，保存文件名為Js。執行表單，看看運行效果如何。

案例4：創建還書表單

案例運行效果與操作

還書表單的運行效果和還書表單運行效果基本上一樣，只不過顯示的一些信息有變化,

“借出”按鈕變成了“還書”按鈕，還書表單的運行效果如圖10-4所示：

圖10-4還書表單的運行效果

我們可以輸入已借的圖書編號，單擊“確定”查看指定的圖書信息以與借書登記信息,

單擊''還書"按鈕，實現還書登記。其他按鈕的功能和借書表單中的一樣按鈕一樣。

制作要點

1、SQL查詢語言

2、文本框屬性設置

3、一些常用函數的使用

步驟詳解

1、創建還書表單（hs.scx）,在命令窗口中輸入命令：CREATEFORMhs0打開“數據環

境設計器”窗口，向其中添加圖書資料表以與借書登記表。

2、如圖10-5所示添加控件，控件包括十二個標簽、十一個文本框、兩個形狀和四個按

鈕，并且調整它們的位置和大小，合理分布在表單上。

圖10-5還書表單

4、設置這些表單控件的屬性，見表10-2：

表10-2“hs”屬性設置

對象屬性屬性值說明

FormlAutoCenter.t.-真

BorderStyIe2-固定對話框

Caption還書

Iconmonitor,ico（自己

選擇）

MaxButton.F.-假

NameForml

ShowTips.T.-真

ShowWindow1-在頂層表單中

WindowType1-模式

Labe11Caption所還圖書信息

AutoSize.T.一真

BackStyIe0-透明

FontName宋體

FontSize11

Labe12Caption圖書編號：

AutoSize.T.一真Label2到Label112

的AutoSize屬性都照此設

置

BackStyIe0-透明Labe12到Labe112的

BackStyIe屬性都照此設

置

FontName宋體Labe12到Labe112的

FontName屬性都照此設置

FontSize9Labe12到Labe112的

FontSize屬性都照此設置

Labe13Caption圖書名稱：

Labe14Caption圖書類別：

Labe15Caption作者：

Labe16Caption?

Labe17Caption購買價格：

Label8Caption讀者編號：

Labe19Caption姓名：

Labe110Caption借書日期：

Label11Caption證件號：

Label12Caption應還日期：

TextlBackCoIor224,224,224

Top59文本框高度，Text2

到Textl1的Top屬性準

此

Width168文本框寬度Text2到

Textl1的Width屬性準此

Text2ControISour圖書資料.圖書名稱

ce

Text3ControISour圖書資料.圖書類別

ce

Text4ControISour圖書資料.作者

ce

Text5ControISour圖書資料.

ce

Text6ControISour圖書資料.購買價格

ce

Text7ControISour借書登記.讀者編號

ce

Text8ControISour借書登記.讀者

ce

Text9ControISour借書登記.借閱日期

ce

TextIOControISour借書登記.讀者證件

ce號

Textl1ControISour借書登記.歸還日期

ce

ShapelBackSty1e0-透明指定形狀的背景為透明

Specia1Effe0-3維指定形狀的格式

ct

Shape2BackSty1e0-透明

Specia1Effe0-3維

ct

CommandlCaption還書

FontName宋體

Command2Caption確定

FontName宋體

Command3Caption清空

FontName宋體

Command4Caption退出

FontName宋體

3、按照圖示調整好這些對象的大小和位置，然后雙擊表單給這些對象添加代碼:

Forml的Load事件代碼：

opendatabase讀者管理

Forml的llnIoad事件代碼:

cIosedatabase

設置Command2“確定”按鈕的Click事件代碼：

seIe2

Iocatefor圖書編號二upper（alIt仕hisform.textl.value））

ifnotfound0

二messagebox（'沒有該圖書編號！',0+64+0,'提示‘）

gotop

eIse

thisformmandl.enabIed=.T.

endif

thisform.refresh

設置Commandl“還書“按鈕的CIick事件代碼：

□Answer=MESSAGEBOX（'確認你還的書目的資料無誤嗎？’，4+32+0,'重要提示‘）

ifnAnswer=6

seIe3

repIace借書標志with"還回"，歸還日期withdatetime0for圖書編號

=aI11（thisform.textl.vaIue）

thisform.refresh

二messagebox（'操作完成，該書已經歸檔！’，0+64+0,'完成’）

Endif

設置Commands“清空“按鈕的Click事件代碼：

thisform.textl.vaIue=,,

thisform.text2.value=,,

thisform.text3.value=,,

thisform.text4.vaIue=''

thisform.text5.vaIue=''

thisform.text6.vaIue=0.00

thisform.text7.value=''

thisform.text8.value=''

thisform.text9.value=,,

thisform.textIO.value=''

thisform.textl1.vaIue=''

thisform.textl.setfocus

設置Command4“退出“按鈕的Click事件代碼：

thisform.reIease

案例5:創建資料查詢表單

案例運行效果與操作

這個表單是包含兩個選項卡的查詢對話框，用于查詢讀者信息資料和圖書信息資料，每

一個選項卡都有查詢選項和用于顯示查詢結果的表格，還可以選擇是否用模糊查找。表單上

除了兩個選項卡外，還設計了四個按鈕輔助查詢。表單的運行效果如圖10-6和10-7所示，

在查詢欄中輸入其中的一些信息，可以是一個也可以是幾個，并且選擇是否模糊查找，然后

單擊選項卡上的“確定”或者選項卡外的“確定”按鈕，表單中就會顯示查詢結果?！扒蹇铡?/p>

按鈕用于清除文本框中的數據。另外表單中還有一個“全部顯示”按鈕，功能是顯示圖書資

料全部信息或者是讀者信息資料，顯示那一個由選項卡的活動頁決定，也就是說，由你選擇

的選項卡決定?！巴顺觥卑粹o用于釋放表單。

O貸料查詢⑶叵區

圖10-6資料查詢一圖書資料查詢運行效果

圖10-7資料查詢一讀者資料查詢運行效果

制作要點

1、頁框添加以與頁框屬性的設置

2、表格添加以與表格屬性的設置

3、字符串比較函數

步驟詳解

1、新建一個表單，保存文件名為ex,打開“數據環境設計器”窗口，向其中添加讀者

信息表、圖書資料表。

2、如圖10-6和10-7通過“表單控件”添加控件，分別添加一個頁框控件(Pageframel)、

和四個按鈕控件。然后右擊頁框，選擇“編輯”，在頁框的兩個頁面(Pagel和Page2)上分

別添加其它控件。頁面Pagel上有一個形狀控件、五個標簽控件、四個文本框控件、一個復

選框控件、一個表格控件和兩個按鈕控件；同樣頁面Page2上有一個形狀控件、五個標簽控

件、四個文本框控件、一個復選框控件、一個表格控件和兩個按鈕控件。這些控件的主要屬

性設置如表10-3所示：

表10-3“ex”屬性設置

對象屬性屬性值說明

FormlAutoCenter.t.-真

BorderStyIe2-固定對話框

Caption資料查詢

Iconmonitor,ico（自己

選擇）

MaxButton.F.-假

NameForml

ShowTips.T.-真

ShowWindow1-在頂層表單中

WindowType1-模式

Command1Caption查詢

FontName宋體

Height61

Width73

Picturekfind.ico按鈕上顯示的圖標，

大家可以自己選擇合適

的，VFP中自帶很多圖標，

一?般保存在…\Microsoft

VisuaI

Studio\Common\Graphics

\Icons文件中

TooITipText單擊查詢控件提示文本

Command2Caption顯示全部

FontName宋體

Height61

Width73

Picturefont_type1.ico

TooITipText顯示全部資料

Command3Caption清空

FontName宋體

Height61

Width73

Picturetrashcan_empty.i

co

Too1TipText清空數據

Command4Caption退出

FontName宋體

Height61

Width73

Picturexapp.ico

Too1TipText關閉此表單

PageframelNamePageframel

PageCount2頁框包含的頁數

PagelCaption圖書資料查詢

ShapelBackSty1e0-透明

Specia1Effe0-3維

ct

Labe11Caption查詢

AutoSize.T.一真StandardIabe11到

StandardIabe14的

AutoSize屬性都照此設置

BackSty1e0-透明StandardIabe11到

StandardIabe14的

BackStyIe屬性都照此設

置

FontName宋體StandardIabe11到

StandardIabe14的

FontName屬性都照此設置

FontSize10StandardIabe11到

StandardIabe14的

AutoSize屬性都設置為9

StandardIabeICaption圖書編號：

1

StandardIabeICaption圖書類別：

2

StandardIabeICaption圖書名稱：

3

StandardIabeICaption作者：

4

ChecklCaption模糊查找

AutoSize.T.一真

Command1Caption查找

Command2Caption清空

GridlCoIumnCount10表格列數

BackCoIor237,237,226表格背景

CoIumn1ControISour圖書資料.圖書編號表格列數據來源

ce

HeaderlCaption圖書編號

Co1umn2ControISour圖書資料.圖書名稱

ce

Header2Caption圖書名稱

Co1umn3ControISour圖書資料.作者

ce

Header3Caption作者

Co1umn4ControISour圖書資料.圖書類別

ce

Header4Caption圖書類別

Co1umn5ControISour圖書資料.

ce

Header5Caption

Co1umn6ControISour圖書資料.出版日期

ce

Header6Caption出版日期

Co1umn7ControISour圖書資料.入館日期

ce

Header7Caption入館日期

Co1umn8ControISour圖書資料.購買價格

ce

Header8Caption購買價格

Co1umn9ControISour圖書資料.借閱次數

ce

Header?Caption借閱次數

Co1umn10ControISour圖書資料.備注

ce

Header10Caption備注

Page2Caption讀者資料查詢

ShapelBackStyIe0-透明

SpeciaIEffe0-3維

ct

Labe11Caption查詢

AutoSize.T.一真StandardIabe11到

StandardIabe14的

AutoSize屬性都照此設置

BackStyIe0-透明StandardIabe11到

StandardIabe14的

BackStyIe屬性都照此設

置

FontName宋體StandardIabe11到

StandardIabe14的

FontName屬性都照此設置

FontSize10StandardIabe11到

StandardIabe14的

AutoSize屬性都設置為9

Standard1abe1Caption讀者編號：

1

StandardIabeICaption證件號：

2

StandardIabeICaption讀者：

3

StandardIabeICaption職業：

4

ChecklCaption模糊查找

AutoSize.T.一真

Command1Caption查找

Command2Caption清空

GridlCo1umnCount10表格列數

BackCo1or237,237,226表格背景

CoIumn1Contro1Sour讀者信息.讀者編號表格列數據來源

ce

HeaderlCaption讀者編號

Co1umn2Contro1Sour讀者信息.讀者

ce

Header2Caption讀者

Co1umn3Contro1Sour讀者信息.證件號

ce

Header3Caption證件號

Co1umn4Contro1Sour讀者信息.性別

ce

Header4Caption性別

Co1umn5Contro1Sour讀者信息.單位部門

ce

Header5Caption單位部門

Co1umn6Contro1Sour讀者信息.住址

ce

Header6Caption住址

Co1umn7Contro1Sour讀者信息.職業

ce

Header7Caption職業

CoIumn8ControISour讀者信息.聯系

ce

Header8Caption聯系

CoIumn9ControISour讀者信息.未還書目

ce

Header?Caption未還書目

Column10ControISour圖書資料.備注

ce

HeaderWCaption備注

3、按照圖示調整好這些對象的大小和位置，然后雙擊表單給這些對象添加代碼。

首先給表單右邊的四個按鈕添加代碼。

“查詢”按鈕的Click事件代碼：

ifthisform.Pageframel.activepage=1

thisform.pageframel.pagel.Grid1.recordsourceType=4

tsbh=aI11(thisform.Pageframel.pagel.textl.vaIue)

zz=aI11(thisform.pageframel.pagel.text2.vaIue)

tsmc=aI11(thisform.pageframel.pagel.text3.vaIue)

tsIb=aI11(thisform.pageframel.pagel.text4.vaIue)

ifthisform.pageframel.pagel.checkl.vaIue=0

thisform.pageframel.pagel.Grid1.recordsource二；

"select*from圖書資料wheretsbh$圖書編號；

.or.zz$作者.or.tsmc$圖書名稱.or.ts16$圖書類別intocursora"

eIse

setexacton

thisform.pageframel.pagel.Grid1.recordsource二；

"seIect*from圖書資料wheretsbh=圖書編號;

.or.zz=作者.or.tsmc二二圖書名稱.or.tsIb二二圖書類別intocursora"

setexactoff

endif

eIse

ifthisform.Pageframel.activepage=2

thisform.pageframel.page2.Grid1.recordsourceType=4

dzbh=aI11(thisform.Pageframel.page2.textl.vaIue)

dzxx=aI11(thisform.Pageframel.page2