【正文】 (alltrim()) and bamp。ziduan2amp。fuhao2+alltrim() and a學號==b學號 into cursor tmp39。 case alltrim()==成績 =39。sele a學號,b姓名,a科目,a成績,a考試時間,a班級 from 成績 a,學生基本情況 b where aamp。ziduan1amp。fuhao1+val(alltrim()) and aamp。ziduan2amp。fuhao2+val(alltrim()) and a學號==b學號 into cursor tmp39。 case alltrim()==考試時間 =39。sele a學號,b姓名,a科目,a成績,a考試時間,a班級 from 成績 a,學生基本情況 b where aamp。ziduan1amp。fuhao1+val(alltrim()) and aamp。ziduan2amp。fuhao2+ctod(alltrim()) and a學號==b學號 into cursor tmp39。 otherwise =39。sele a學號,b姓名,a科目,a成績,a考試時間,a班級 from 成績 a,學生基本情況 b where aamp。ziduan1amp。fuhao1+val(alltrim()) and aamp。ziduan2amp。fuhao2+alltrim() and a學號==b學號 into cursor tmp39。 endcase case alltrim()==考試時間 do case case alltrim()==選擇查詢類別 =39。sele a學號,b姓名,a科目,a成績,a考試時間,a班級 from 成績 a,學生基本情況 b where aamp。ziduan1amp。fuhao1+ctod(alltrim()) and a學號==b學號 into cursor tmp39。 case alltrim()==姓名 =39。sele a學號,b姓名,a科目,a成績,a考試時間,a班級 from 成績 a,學生基本情況 b where aamp。ziduan1amp。fuhao1+ctod(alltrim()) and bamp。ziduan2amp。fuhao2+alltrim() and a學號==b學號 into cursor tmp39。 case alltrim()==成績 =39。sele a學號,b姓名,a科目,a成績,a考試時間,a班級 from 成績 a,學生基本情況 b where aamp。ziduan1amp。fuhao1+ctod(alltrim()) and aamp。ziduan2amp。fuhao2+val(alltrim()) and a學號==b學號 into cursor tmp39。 case alltrim()==考試時間 =39。sele a學號,b姓名,a科目,a成績,a考試時間,a班級 from 成績 a,學生基本情況 b where aamp。ziduan1amp。fuhao1+ctod(alltrim()) and aamp。ziduan2amp。fuhao2+ctod(alltrim()) and a學號==b學號 into cursor tmp39。 otherwise =39。sele a學號,b姓名,a科目,a成績,a考試時間,a班級 from 成績 a,學生基本情況 b where aamp。ziduan1amp。fuhao1+ctod(alltrim()) and aamp。ziduan2amp。fuhao2+alltrim() and a學號==b學號 into cursor tmp39。 endcase otherwise do case case alltrim()==選擇查詢類別 =39。sele a學號,b姓名,a科目,a成績,a考試時間,a班級 from 成績 a,學生基本情況 b where aamp。ziduan1amp。fuhao1+alltrim() and a學號==b學號 into cursor tmp39。 case alltrim()==姓名 =39。sele a學號,b姓名,a科目,a成績,a考試時間,a班級 from 成績 a,學生基本情況 b where aamp。ziduan1amp。fuhao1+alltrim() and bamp。ziduan2amp。fuhao2+alltrim() and a學號==b學號 into cursor tmp39。 case alltrim()==成績 =39。sele a學號,b姓名,a科目,a成績,a考試時間,a班級 from 成績 a,學生基本情況 b where aamp。ziduan1amp。fuhao1+alltrim() and aamp。ziduan2amp。fuhao2+val(alltrim()) and a學號==b學號 into cursor tmp39。 case alltrim()==考試時間 =39。sele a學號,b姓名,a科目,a成績,a考試時間,a班級 from 成績 a,學生基本情況 b where aamp。ziduan1amp。fuhao1+alltrim() and aamp。ziduan2amp。fuhao2+ctod(alltrim()) and a學號==b學號 into cursor tmp39。 otherwise =39。sele a學號,b姓名,a科目,a成績,a考試時間,a班級 from 成績 a,學生基本情況 b where aamp。ziduan1amp。fuhao1+alltrim() and aamp。ziduan2amp。fuhao2+alltrim() and a學號==b學號 into cursor tmp39。 endcaseendcase endif if _tally=0 ?? chr(7) =messagebox(對不起，無相關記錄！,48,信息窗口) endif成績查詢表單的打印預覽按鈕的click事件代碼：do case case alltrim()==姓名 do case case alltrim()==選擇查詢類別 sele a學號,b姓名,a科目,a成績,a考試時間,a班級 from 成績 a,學生基本情況 b where bamp。ziduan1amp。fuhao1+alltrim() and a學號==b學號 into cursor tmp case alltrim()==成績 sele a學號,b姓名,a科目,a成績,a考試時間,a班級 from 成績 a,學生基本情況 b where bamp。ziduan1amp。fuhao1+alltrim() and aamp。ziduan2amp。fuhao2+val(alltrim()) and a學號==b學號 into cursor tmp case alltrim()==考試時間 sele a學號,b姓名,a科目,a成績,a考試時間,a班級 from 成績 a,學生基本情況 b where bamp。ziduan1amp。fuhao1+alltrim() and aamp。ziduan2amp。fuhao2+ctod(alltrim()) and a學號==b學號 into cursor tmp otherwise sele a學號,b姓名,a科目,a成績,a考試時間,a班級 from 成績 a,學生基本情況 b where bamp。ziduan1amp。fuhao1+alltrim() and aamp。ziduan2amp。fuhao2+alltrim() and a學號==b學號 into cursor tmp endcase case alltrim()==成績 do case case alltrim()==選擇查詢類別 sele a學號,b姓名,a科目,a成績,a考試時間,a班級 from 成績 a,學生基本情況 b where aamp。ziduan1amp。fuhao1+val(alltrim()) and a學號==b學號 into cursor tmp case alltrim()==姓名 sele a學號,b姓名,a科目,a成績,a考試時間,a班級 from 成績 a,學生基本情況 b where aamp。ziduan1amp。fuhao1+val(alltrim()) and bamp。ziduan2amp。fuhao2+alltrim() and a學號==b學號 into cursor tmp case alltrim()==成績 sele a學號,b姓名,a科目,a成績,a考試時間,a班級 from 成績 a,學生基本情況 b where aamp。ziduan1amp。fuhao1+val(alltrim()) and aamp。ziduan2amp。fuhao2+val(alltrim()) and a學號==b學號 into cursor tmp case alltrim()==考試時間 sele a學號,b姓名,a科目,a成績,a考試時間,a班級 from 成績 a,學生基本情況 b where aamp。ziduan1amp。fuhao1+val(alltrim()) and aamp。ziduan2amp。fuhao2+ctod(alltrim()) and a學號==b學號 into cursor tmp otherwise sele a學號,b姓名,a科目,a成績,a考試時間,a班級 from 成績 a,學生基本情況 b where aamp。ziduan1amp。fuhao1+val(alltrim()) and aamp。ziduan2amp。fuhao2+alltrim() and a學號==b學號 into cursor tmp endcase case alltrim()==考試時間 do case case alltrim()==選擇查詢類別 sele a學號,b姓名,a科目,a成績,a考試時間,a班級 from 成績 a,學生基本情況 b where aamp。ziduan1amp。fuhao1+ctod(alltrim()) and a學號==b學號 into cursor tmp case alltrim()==姓名 sele a學號,b姓名,a科目,a成績,a考試時間,a班級 from 成績 a,學生基本情況 b where aamp。ziduan1amp。fuhao1+ctod(alltrim()) and bamp。ziduan2amp。fuhao2+alltrim() and a學號==b學號 into cursor tmp case alltrim()==成績 sele a學號,b姓名,a科目,a成績,a考試時間,a班級 from 成績 a,學生基本情況 b where aamp。