我做了一個關(guān)于學(xué)生選課的數(shù)據(jù)庫,在"驗(yàn)證"表單下在設(shè)定了兩個全局變量:public textt1public textt1并把輸入的"姓名"學(xué)號"付值給他們textt1=alltirm( lue) ......... 在下一個表單里我建了兩個視圖"view1"view2"并為它們設(shè)了兩個參數(shù)"?par1"?par2"想用來對通過驗(yàn)證的學(xué)生進(jìn)行操作,下面是我在進(jìn)行"選課"時的CLICK下的代碼:*****************************************************select scuse "f:\student\database\sc"set order to 課號seek lueif sc.課號=alltrim(thisform.text7.text)*text7學(xué)生選的課號 if sc.學(xué)號=alltrim(thisform.text1.text)*text1為學(xué)生學(xué)號 messagebox('該課已經(jīng)選定',48,'信息窗口') else append blank replace sc.課號 with alltrim(thisform.text7.text) replace sc.學(xué)號 with alltrim(thisform.text1.text) endif else append blank replace sc.課號 with alltrim(thisform.text7.text) replace sc.學(xué)號 with alltrim(thisform.text1.text) endif *刷新VIEW2 cordsource=''par1=textt1select view1use view1 cordsource='view1' fresh *grdview1就是view1*刷新視圖2及控件5,6par2=textt1select view2use view2 fresh fresh 可是每次他都要我"設(shè)定"par1"par2"的值!(我設(shè)的那兩個變量好像不起什么作用呀!?)還有選完課后,grdview1表全變?yōu)榭樟?我查看數(shù)據(jù)庫發(fā)現(xiàn)課已經(jīng)選上了,下次再選時才可以看到!
熱心網(wǎng)友
何必用它!老掉牙的東西,用用新的數(shù)據(jù)庫,這樣的應(yīng)用非常容易解決。如Access.