vb教務(wù)管理系統(tǒng)論文(編輯修改稿)
2025-03-09 09:06 本頁面
【文章內(nèi)容簡介】 。劉明 39。)。 insert into 任課表 values (39。0001639。,39。c 語言 39。,39。關(guān)亮 39。)。 insert into 任課表 values(39。0000139。,39。數(shù)據(jù)結(jié)構(gòu) 39。,39。王濤 39。)。 insert into 任課表 values (39。0002339。,39。英語 39。,39。王曉 39。)。 insert into 任課表 values(39。0000939。,39。高等數(shù)學(xué) 39。,39。李莉莉 39。)。 （ 2）．插入到 teacher 表中 10 insert into teacher values(39。0139。,39。王方 39。,39。男 39。,39。19811239。, 39。助教 39。,39。計算機系 39。)。 insert into teacher values(39。0939。,39。趙艷 39。,39。女 39。,39。19824539。, 39。教授 39。,39。語言 系 39。)。 insert into teacher values(39。1239。,39。郭濤 39。,39。男 39。,39。19803639。, 39。副教授 39。,39。機電系 39。)。 insert into teacher values(39。3239。,39。李名 39。,39。男 39。,39。197912439。, 39。助教 39。,39。生化系 39。)。 insert into teacher values(39。1639。,39。孫曉 39。,39。女 39。,39。19826539。, 39。教授 39。,39。藝術(shù)系 39。)。 insert into teacher values(39。1139。,39。喬軒軒 39。,39。女 39。,39。19834939。, 39。副教授 39。,39。經(jīng)濟管理系 39。)。 2 系統(tǒng)程序文件設(shè)計與編寫 本系統(tǒng)的登陸界面如圖 1 所示，相應(yīng)的代碼如下： 圖 1 procedure (Sender: TObject)。 var pastword:string。 begin pastword:=InputBox(39。登陸 39。,39。請輸入密碼 !39。,39。39。) 。 begin 11 if pastword=39。12339。 then begin showmessage(39。 歡迎進入 !39。)。 end else ShowMessage(39。密碼不正確 ,請重新輸入密碼 !39。)。 end。 end。 procedure (Sender: TObject)。 begin close。 end。 end. 圖 圖 在登陸界面上輸入下面的一段代碼，即可以登陸到主界面，主界面如圖 2 所示： procedure (Sender: TObject)。 begin 。 12 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)。 13 begin 。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin if =216 then := else :=273。 end。 procedure (Sender: TObject)。 begin close。 end。 end. 14 圖 2 進入主界面后可以看到有四個主菜單項，單擊相應(yīng)的菜單項，就可以使用相應(yīng)的功能界面。下段代碼 是瀏覽表菜單項的實現(xiàn)代碼，其相應(yīng)的界面如圖 、 、 、 所示。 procedure (Sender: TObject)。 begin TMyNavigator(DBNavigator1).Buttons[nbFirst].Caption:=39。 第一條39。 TMyNavigator(DBNavigator1).Buttons[nbPrior].Caption:=39。
公司管理相關(guān)推薦
鄂ICP備17016276號-1