數(shù)據(jù)庫課程設(shè)計(jì)(編輯修改稿)
2024-09-03 07:24 本頁面
【文章內(nèi)容簡介】 me=39。39。39。+user+39。39。39。 and password=39。39。39。+pass+39。39。39。39。 //當(dāng)變量user 和 pass 的內(nèi)容和‘login’表中的一致時(shí)，顯示主窗體 。 if = 0 then //未找到用戶，提示用戶輸入錯(cuò)誤 begin (39。用戶名或密碼不正確！請重新輸入！39。,39。^_^注意！39。,MB_OK)。 :=39。39。 :=39。39。 i:=i+1。 if(i=3)then begin showmessage(39。密碼錯(cuò)誤三次，系統(tǒng)退出！39。)。 。 end。 end else begin 。//隱藏formlogin窗體 //或者用 :=false。 。 //顯示formmain主窗體 //或者用 :=true。 end。end。procedure (Sender: TObject)。begin。end。end.uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Menus。var Formmain: TFormmain。implementationuses usersinfo,jdxio,jdxgrade,helpform, jgxgrade, jgxio, wfxgrade, wfxio。{$R *.dfm}procedure (Sender: TObject)。begin hide。 。end。procedure (Sender: TObject)。begin。end。procedure (Sender: TObject)。beginhide。end。procedure (Sender: TObject)。begin。end。procedure (Sender: TObject)。begin。end。procedure (Sender: TObject。 var Action: TCloseAction)。begin 。//退出程序end。procedure (Sender: TObject)。begin hide。 //隱藏當(dāng)前窗體 。 //顯示 jdxioform窗體end。procedure (Sender: TObject)。beginhide。end。procedure (Sender: TObject)。beginhide。end。procedure (Sender: TObject)。beginhide。 。end。procedure (Sender: TObject)。beginhide。end。procedure (Sender: TObject)。begin hide。 。end。procedure (Sender: TObject)。begin。end。procedure (Sender: TObject)。beginhide。end。procedure (Sender: TObject)。begin。end。procedure (Sender: TObject)。beginhide。end。end.6．3基礎(chǔ)信息管理 機(jī)電系成績管理: 主要代碼 var Formjdxgrade: TFormjdxgrade。implementationuses dataconn,mainform。{$R *.dfm}procedure (Sender: TObject)。Begin //查詢符合相關(guān)學(xué)號的記錄 。 。 :=39。select 學(xué)號,課程號,成績 from jdxgrade where 學(xué)號=39。39。39。+Trim()+39。39。39。 39。 。 //求出平均成績和總分，分別賦值給edit 。 。 :=39。select sum(成績) as 求和,avg(成績) as 平均值 from jdxgrade where 學(xué)號=39。39。39。+Trim()+39。39。39。 39。 。 := (39。求和39。).AsString。 := (39。平均值39。).AsString。 //重新恢復(fù)S
電大資料相關(guān)推薦
鄂ICP備17016276號-1