大學計算機信息處理綜合作業-資料下載頁

　　

【正文】 1i0nd8kc amp。amp。 vxh VALIDREGION 1seek alltrim(vxh)if .() vxh=space(4) wait wind 39。該學號所對應的記錄不存在39。 a1=.f. a2=.t. a3=.f.else vxm=姓名 vzy=val(專業) vxb=性別 vcsrq=出生日期 vrxcj=入學成績 vzzmm=政治面貌 vjl=簡歷 a1=.t. a2=.f. a3=.f.endifshow getsFUNCTION _11i0nd8kw amp。amp。 xgjl VALIDREGION 1a1=.f.a2=.f.a3=.t.show getsFUNCTION _11i0nd8l3 amp。amp。 scjl VALIDREGION 1delepackdo abca1=.f.a2=.t.a3=.f.show getsretuFUNCTION _11i0nd8la amp。amp。 bcjl VALIDREGION 1repl 學號 with vxhrepl 姓名 with vxmrepl 專業 with str(vzy,1)repl 性別 with vxbrepl 出生日期 with vcsrqrepl 入學成績 with vrxcjrepl 政治面貌 with vzzmmrepl 簡歷 with vjldo abca1=.f.a2=.t.a3=.f.show getsFUNCTION _11i0nd8li amp。amp。 fqxg VALIDREGION 1do abca1=.f.a2=.t.a3=.f.show getsFUNCTION _11i0nd8lp amp。amp。 tcbj VALIDREGION 1cd1=.f. (查詢模塊) REGION 0REGIONAL , , IF SET(TALK) = ON SET TALK OFF = ONELSE = OFFENDIF = SET(COMPATIBLE)SET COMPATIBLE FOXPLUS = SET(READBORDER)SET READBORDER ON = SELECT()IF NOT WEXIST(_11i0swe35) DEFINE WINDOW _11i0swe35 。 AT , 。 SIZE , 。 TITLE 學生信息查詢窗口 。 FONT MS Sans Serif, 8 。 FLOAT 。 NOCLOSE 。 MINIMIZE 。 SYSTEM 。 COLOR RGB(,0,255,255) MOVE WINDOW _11i0swe35 CENTERENDIFREGION 1set talk offset safe offuse xsxxgo topdo case case 專業=39。139。 vzy1=39。計算機信息管理39。 case 專業=39。239。 vzy1=39。計算機網絡39。 case 專業=39。339。 vzy1=39。計算機軟件39。 case 專業=39。439。 vzy1=39。機關管理及辦公自動化39。 case 專業=39。539。 vzy1=39。行政管理39。 case 專業=39。639。 vzy1=39。新聞學39。endcasea1=.f.a3=.f.cd1=.t.show getsREGION 1IF WVISIBLE(_11i0swe35) ACTIVATE WINDOW _11i0swe35 SAMEELSE ACTIVATE WINDOW _11i0swe35 NOSHOWENDIF@ , SAY 學號 。 FONT 宋體, 11 。 STYLE BT 。 COLOR RGB(0,0,255,)@ , SAY 姓名 。 FONT 宋體, 11 。 STYLE BT 。 COLOR RGB(0,0,255,)@ , SAY 專業 。 FONT 宋體, 11 。 STYLE BT 。 COLOR RGB(0,0,255,)@ , SAY 性別 。 FONT 宋體, 11 。 STYLE BT 。 COLOR RGB(0,0,255,)@ , SAY 出生日期 。 FONT 宋體, 11 。 STYLE BT 。 COLOR RGB(0,0,255,)@ , SAY 入學成績 。 FONT 宋體, 11 。 STYLE BT 。 COLOR RGB(0,0,255,)@ , SAY 政治面貌 。 FONT 宋體, 11 。 STYLE BT 。 COLOR RGB(0,0,255,)@ , SAY 簡歷 。 FONT 宋體, 11 。 STYLE BT 。 COLOR RGB(0,0,255,)@ , GET 。 SIZE , 。 DEFAULT 。 FONT 宋體, 9 。 PICTURE @K 9999 。 WHEN a3 。 COLOR ,RGB(,0,255,0)@ , GET 。 SIZE , 。 DEFAULT 。 FONT 宋體, 9 。 PICTURE @K 。 WHEN a3 。 COLOR ,RGB(,0,255,0)@ , GET 。 SIZE , 。 DEFAULT { / / } 。 FONT 宋體, 9 。 PICTURE @K 。 WHEN a3 。 COLOR ,RGB(,0,255,0)@ , GET 。 SIZE , 。 RANGE 0 。 DEFAULT 0 。 FONT 宋體, 9 。 PICTURE @K 999 。 WHEN a3 。 COLOR ,RGB(,0,255,0)@ , EDIT 。 SIZE , 。 PICTURE @K 。 DEFAULT 。 FONT 宋體, 9 。 SCROLL 。 WHEN a3 。 COLOR ,RGB(,0,255,0)@ , GET 。 SIZE , 。 DEFAULT 。 FONT 宋體, 9 。 PICTURE @K 。 WHEN a3 。 COLOR ,RGB(,0,255,0)@ , GET 。 SIZE , 。 DEFAULT 。 FONT 宋體, 9 。 PICTURE @K 。 WHEN a3 。 COLOR ,RGB(,0,255,0)@ , GET vzy1 。 SIZE , 。 DEFAULT 。 FONT 宋體, 9 。 PICTURE @K 。 WHEN a3 。 COLOR ,RGB(,0,255,0)@ , GET phan 。 PICTURE @*HN 首記錄。末記錄。上一條。下一條 。 SIZE , 。 DEFAULT 1 。 FONT 宋體, 9 。 STYLE B 。 VALID _11i0swegd()@ , SAY 學號 。 FONT 宋體, 11 。 STYLE BT 。 COLOR RGB(0,0,255,)@ , GET vxh 。 SIZE , 。 DEFAULT 。 FONT 宋體, 9 。 PICTURE @K 9999 。 WHEN a1 。 COLOR ,RGB(,0,255,0)@ , SAY 姓名 。 FONT 宋體, 11 。 STYLE BT 。 COLOR RGB(0,0,255,)@ , GET vxm 。 SIZE , 。 DEFAULT 。 FONT 宋體, 9 。 PICTURE @K 。 WHEN a1 。 COLOR ,RGB(,0,255,0)@ , SAY 專業 。 FONT 宋體, 11 。 STYLE BT 。 COLOR RGB(0,0,255,)@ , GET vzy 。 PICTURE @^ 。計算機信息管理。計算機網絡。計算機軟件。機關管理及辦公自動化。行政管理。新聞學 。 SIZE , 。 DEFAULT 。 FONT 宋體, 9 。 WHEN a1 。 COLOR ,,RGB(,0,255,0),RGB(,0,255,0)@ , GET qbcx 。 PICTURE @*HN 全部查詢 。 SIZE , 。 DEFAULT 1 。 FONT 宋體, 11 。 STYLE B 。 VALID _11i0swegz()@ , GET djcx 。 PICTURE @*HN 條件查詢 。 SIZE , 。 DEFAULT 1 。 FONT 宋體, 11 。 STYLE B 。 VALID _11i0sweh6()@ , GET dccx 。 PICTURE @*HT 退出查詢 。 SIZE , 。 DEFAULT 1 。 FONT 宋體, 11 。 STYLE B 。 VALID _11i0swehe()@ , GET zxcx 。 PICTURE @*HN 執行查詢 。 SIZE , 。 DEFAULT 1 。 FONT 宋體, 11 。 STYLE B 。 WHEN a1 。 VALID _11i0swehl()@ , SAY 學 生 信 息 查 詢 窗 口 。 FONT 楷體_GB2312, 18 。 STYLE BT 。 COLOR RGB(255,0,0,)@ , TO , 。 PEN 2, 8 。 STYLE 16 。 COLOR RGB(0,0,255,)@ , SAY 查詢條件組合 。 FONT 仿宋_GB2312, 12 。 STYLE BT 。 COLOR RGB(0,128,128,)@ , TO , 。 PEN 2, 8 。 STYLE 16 。 COLOR RGB(0,0,255,)@ , TO , 。 PEN 2, 8 。 STYLE 16 。 COLOR RGB(0,128,128,)@ , TO , 。 PEN 2, 8 。 STYLE 16 。 COLOR RGB(0,0,255,)IF NOT WVISIBLE(_11i0swe35) ACTIVATE WINDOW _11i0swe35ENDIFREAD CYCLERELEASE WINDOW _11i0swe35SELECT ()REGION 0SET READBORDER amp。rborderIF = ON SET TALK ONENDIFIF = ON SET COMPATIBLE ONENDIFREGION 1proc abcdo case case 專業=39。139。 vzy1=39。計算機信息管理39。 case 專業=39。239。 vzy1=39。計算機網絡39。 case 專業=39。339。 vzy1=39。計算機軟件39。 case 專業=39。439。 vzy1=39。機關管理及辦公自動化39。