學生信息管理系統的設計與實現—免費計算機畢業設計論文(編輯修改稿)

　

【文章內容簡介】 m student 39。)。 if or or or then (39。where39。)。 if then begin (39。39。++39。=39。+39。39。39。39。+ +39。39。39。39。)。 tf:=true。 end。 if then begin if tf then (39。and39。)。 (39。39。++39。=39。+39。39。39。39。+ +39。39。39。39。)。 tf:=true。 end。 if then begin if tf then (39。and39。)。 (39。39。++39。=39。+39。39。39。39。+ +39。39。39。39。)。 tf:=true。 end。 if then begin if tf then (39。and39。)。 (39。39。++39。=39。+39。39。39。39。+ +39。39。39。39。)。 tf:=true。 end。 。 。 end。 (4)課程管理部分的代碼： 選課管理： begin ([39。 系名 39。])。 //ComboBox1 連到系表的 系名 字段 。 end。 end。 procedure (Sender: TObject)。 begin 。 。 (39。select * from class where 系名=39。+39。39。39。39。++39。39。39。39。)。//查詢系名是否符合 。 。 while not do begin ([39。班級 39。])。//符合就調用班級表的字段 班級 。 end。 end。 procedure (Sender: TObject)。 begin 。 。 (39。select * from kecheng where 班級=39。+39。39。39。39。++39。39。39。39。)。//查詢課程表中字段 班級 是否符合，符合就調到 。 //DBgiid1 。 end。 procedure (Sender: TObject)。 begin 。 。 (39。select * from kecheng where 班級=39。+39。39。39。39。++39。39。39。 and 學期 =39。+39。39。39。39。++39。39。39。39。)。 //判斷學期是否符合 。 。 end。 procedure (Sender: TObject)。 begin while not do begin if ([39。課程號 39。]=[39。課程號 39。]) and ([39。 班級 39。]=) and ([39。學期 39。]=) then break。 。 end。 if then begin 。 //把選課內容添加到選課表中。 [39。課程號 39。]:=[39。課程號 39。]。 [39。班級 39。]:=。 [39。課程名 39。]:=[39。課程名 39。]。 [39。學期 39。]:=。 。 end else begin showmessage(39。本課程此班級已經選過 39。)。 //如果已經選過，彈出對話框“本課程此班級已經選過” end。 end。 procedure (Sender: TObject)。 begin if not then 。 end。 end. 課程管理 : procedure (Sender: TObject)。 begin 。 //關閉數據庫 。 //清空 (39。select * from kechengbiao39。)。 。 。 :=39。課程號 39。 :=39。課程名 39。 :=39。課時 39。 :=39。學分 39。 //:=39。學期 39。 :=39。類型 39。 end。 procedure (Sender: TObject)。 begin if =39。添加 39。 then begin 。 //添加到課程表 :=39。確定 39。 :=true。 :=false。 :=false。 end else if =39。確定 39。 then begin if =39。39。 then begin showmessage(39。請輸入課程號！ 39。)。 //如果課程號沒輸入 ,彈出對話框 end else begin 。 :=39。添加 39。 :=false。 :=true。 :=true。 end。 end。 end。 procedure (Sender: TObject)。 begin if then begin :=false。 :=false。 end。 if =39。刪除 39。 then begin :=39。確定 39。 :=true。 :=false。 :=false。 end else begin 。 //從數據表中刪掉所選記錄 :=39。刪除 39。 :=false。 :=true。 :=true。 end。 end。 procedure (Sender: TObject)。 begin 。 :=39。添加 39。 :=39。刪除 39。 :=39。修改 39。 :=false。 :=true。 :=true。 :=true。 end。 procedure (Sender: TObject)。 begin if =39。修改 39。 then begin 。 //修改課程表中的記錄 :=39。確定 39。 :=true。 :=false。 :=false。 end else begin 。 :=39。修改 39。 :=false。 :=true。 :=true。 end。 end。 procedure (Sender: TObject)。 begin form11:=(application)。 。 end。 end. 課程查詢部分： procedure (Sender: TObject)。 begin :=39。39。 :=false。 end。 procedure (Sender: TObject)。 begin if =true then begin 。 //先將數據庫關閉 。 //清空 ADOQuery1 內的 SQL 值 清空 (39。select * from kecheng where 39。++39。 = 39。+39。39。39。39。++39。39。39。 and 學期 = 39。+39。39。39。39。++39。39。39。39。)。 //合并查詢，符合的話在DBGrid 中顯示出來 。 。 end else begin 。 。 (39。select * from kecheng where 39。++39。 = 39。+39。39。39。39。++39。39。39。39。)。//單個條件查詢 。 。 end。 end。 procedure (Sender: TObject)。 begin //開啟其他管理界面 。 。 end。 procedure (Sender: TObject)。 begin 。 。 end。 procedure (Sender: TObject)。 begin 。 。 end。 procedure (Sender: TObject)。 begin 。 。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject。 var Key: Char)。 begin :=true。 //當輸入條件后，“確定”按鈕為有效狀態 end。 procedure (Sender: TObject)。 begin :=。// 把 查 詢 到 的 數 據 放 在DBGrid 上顯示出來 end。 end. 小方框無邊眼鏡，臉上總是掛著微笑，有人稱呼他卓總，也有人稱呼他教授，真正親近的朋友，管他叫強巴。 卓姆強巴，藏族，四十二歲，天獅名犬馴養基地公司總裁，也是復旦大學生物系客座教授，主講世界名犬。強巴生長在一個叫達瓦奴措的小村，那是深入藏原腹地、最接近無人區的地方，他的名字，原意是能戰勝大海的人。他沒有讓他的父母失望，如今已是擁有千萬資產的公司老總，也是著名大學的教授，可謂名利俱盛，讓他起家的資本，不是別的，是犬。 美國，賓夕法尼亞州。 “幾千年來，全世界所公認的，體形最龐大，性格最兇猛的，叫獒。那是我們藏區特產，它們已經存在幾千萬年了，約在兩千年前流傳到希臘，后到羅馬帝國，又由東歐的斯拉夫族人傳到歐洲各國，至今世界名犬的體內還保留著藏獒的研究理論“隔代大遺傳”是否有關。 或許聽錯了。你說，你不去德國了 ?” 方新教授肯定地點頭，瑪瑞重復道：“教授，方教授 !你真的不去參加那個論壇了嗎 ?那可是你一直想參加的啊 !” 方新長長吐了口氣，和藹地對瑪瑞笑笑，拍拍她的肩膀，說道：“去吧，瑪瑞，電話號碼簿在書 桌左邊臺燈的座下。” 瑪瑞滿腹狐疑，悻悻地去了，心里喃喃念叨著：“瘋了，教授一定是瘋了。默默研究了一輩子，誰會放棄可以證明價值的最高獎勵 ?到底是為什么 ?”她轉念心想，“那個高大的男人，肯定是魔鬼的化身 !” 方新教授剛剛轉過身來，就被卓木喜馬拉雅山脈的中部偏東南方向，可能越過國境線。”電腦上在氣象局發來的橘紅色區域中又用更深的大紅色畫出一塊，從珠峰以北畫到錫金和尼泊爾境內。方新一握拳，也忍不住激動道：“太好了 !” 只見電腦那頭的專家，打字回復調侃道：“老方，又要進藏逮狗嗎 ?聽說上次你進藏時，是把那話兒凍僵了才回來的。我一直想到上海來探望你，看看是不是真的。” 方新教授笑著回復：“是腳指頭截去了，你老哥??”這時，機場已經遙遙在望了。 方新收起電腦，喃喃道：“入藏后，就不能無線上網了，只是電腦里的很多資料很有用處。對了，飛機先飛成都嗎 ?” 卓木強微笑道：“不，我們直飛拉薩。” “哦 ?”方新疑惑道，“好像這個時段，沒有直飛拉薩的航班吧 ?” 卓木強道：“因為是我們要去拉薩，所以就有了去那里的直飛航班呢。” 進了機場，方新不由看了卓木強一眼，吸氣道：“軍用包機 !” 第 03 部分 第二個瘋子 第七回 第二個瘋子 上 卓木強看見方新有些驚訝，面色有些得意地解釋道：“嗯，拉薩來的，沒花多少錢。” 方新道：“可是，軍用包機不在拉薩機場降落，在旁邊有個專用的軍用機場，離城還有一段距離呢。” “什么 ?”這番輪到卓木強吃驚了，他道，“我??我不知道啊，以前沒包過。我以為，它們都在拉薩機場起降呢。”這是他為了討好導師，特意吩咐下人安排的，沒想到竟然不在拉薩降落，而屬下居然沒告知他，急得他直撓頭。 方新道：“不用著急，我打個電話，我和西藏軍區的一位領導頗有交 情，上次也是坐他的飛機去西藏的，所以才知道這情況。”卓木強忙道：“不用，不用了。到時候安排人來接我們就是了。” 方新道：“他們不一定熟悉，我們就讓機場方面替我們安排一下就好。這樣，我們就不用進拉薩，到時候直接從機場往南，看是先去你家還是先去蒙河 ?”說著，打了個電話，那位領導在外地，答應方新會替他們安排好的。他未曾想到，既然卓木強能搞到軍用包機，那自然和西藏那邊關系不淺。兩人遂登上軍用專機，從上海往西，朝著圣潔的高原 —— 西藏飛去。 軍區某團，團長班覺次仁，是藏區本地人，長得牛高馬大，方面闊口，兩道 濃眉下，一雙厲眼透出煞氣。次仁剛吃過午飯，一名士兵來報，上級領導打來電話，某教授會乘 A3097次專機在軍區機場降落，他們會從機場直赴蒙河，希望他能安排一下，準備輛車接應。 次仁摸了摸微微隆起的肚子，問道：“飛機什么時候到 ?” 那士兵道：“大約還有二十分鐘。” 次仁對他旁邊的年輕軍官道：“小張，你和小黃一起去