vb教務管理系統(tǒng)論文(編輯修改稿)
2025-03-09 09:06 本頁面
【文章內容簡介】 。劉明 39。)。 insert into 任課表 values (39。0001639。,39。c 語言 39。,39。關亮 39。)。 insert into 任課表 values(39。0000139。,39。數據結構 39。,39。王濤 39。)。 insert into 任課表 values (39。0002339。,39。英語 39。,39。王曉 39。)。 insert into 任課表 values(39。0000939。,39。高等數學 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。藝術系 39。)。 insert into teacher values(39。1139。,39。喬軒軒 39。,39。女 39。,39。19834939。, 39。副教授 39。,39。經濟管理系 39。)。 2 系統(tǒng)程序文件設計與編寫 本系統(tǒng)的登陸界面如圖 1 所示，相應的代碼如下： 圖 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 進入主界面后可以看到有四個主菜單項，單擊相應的菜單項，就可以使用相應的功能界面。下段代碼 是瀏覽表菜單項的實現代碼，其相應的界面如圖 、 、 、 所示。 procedure (Sender: TObject)。 begin TMyNavigator(DBNavigator1).Buttons[nbFirst].Caption:=39。 第一條39。 TMyNavigator(DBNavigator1).Buttons[nbPrior].Caption:=39。
公司管理相關推薦
鄂ICP備17016276號-1