freepeople性欧美熟妇, 色戒完整版无删减158分钟hd, 无码精品国产vα在线观看DVD, 丰满少妇伦精品无码专区在线观看,艾栗栗与纹身男宾馆3p50分钟,国产AV片在线观看,黑人与美女高潮,18岁女RAPPERDISSSUBS,国产手机在机看影片

正文內(nèi)容

實驗室設(shè)備管理系統(tǒng)vbsql(編輯修改稿)

2024-09-03 20:01 本頁面
 

【文章內(nèi)容簡介】 據(jù)類型長度允許空設(shè)備型號varchar10not null設(shè)備名varchar20not null報廢日期datetime8null責(zé)任人varchar10null⑤ 申請表列名數(shù)據(jù)類型長度允許空設(shè)備型號varchar10not null設(shè)備名varchar20not null規(guī)格varchar10not null數(shù)量int4null三:軟件編碼1. 用戶登陸界面代碼procedure (Sender: TObject)。var u,p:string。 //temp:string。begin u:=。 p:=。 if(u=39。39。)then begin showmessage(39。用戶名不允許為空!39。)。 。 exit。 end。 。 。 (39。select 用戶名,密碼,登錄權(quán)限 from 登錄表 where 用戶名=39。+39。39。39。39。+u+39。39。39。39。+39。 and 密碼=39。+39。39。39。39。+p+39。39。39。39。 )。 。 //temp:=(39。登錄權(quán)限39。).asstring。 if =0 then begin (39。密碼錯誤,請輸入正確的密碼??!39。,39。提示39。,mb_ok)。 。 exit。 end else 。 。 //end。end。end.2.報廢記錄表界面代碼procedure (Sender: TObject)。beginif(=39。39。) thenbeginshowmessage(39。請輸入要查詢的設(shè)備名!!39。)。exit。end。(39。select * from 報廢表 where 設(shè)備名=39。+39。39。39。39。++39。39。39。39。+39。39。 )。if =0 then begin showmessage(39。沒有匹配結(jié)果??!39。)。 。 。 end。end。procedure (Sender: TObject)。beginif (=39。39。)or(=39。39。)or(=39。39。)or(=39。39。) thenbegin showmessage(39。查詢條件不允許為空??!39。)。 。 exit。 end。(39。select * from 報廢表 where 設(shè)備型號=39。+39。39。39。39。++39。39。39。39。+39。 and 設(shè)備名=39
點擊復(fù)制文檔內(nèi)容
化學(xué)相關(guān)推薦
文庫吧 www.dybbs8.com
備案圖片鄂ICP備17016276號-1