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

正文內(nèi)容

儀器設(shè)備管理系統(tǒng)—計(jì)算機(jī)畢業(yè)設(shè)計(jì)(留存版)

  

【正文】 屬性 屬性值datagrid1 endabled .f. datagrid2 endabled .f.datagrid3 endabled .f.bo1 rowsource 儀器設(shè)備編號(hào),儀器設(shè)備名稱,采購(gòu)人,出產(chǎn)廠家,領(lǐng)取人,領(lǐng)取單位,使用情況,維修記錄 adodc1adodc2adodc3 mand1 name 檢索mand2 name 退出流程圖:新增代碼如下Private Sub Command1_Click()If ( = 儀器設(shè)備編號(hào)) Or ( = 儀器設(shè)備名稱) Or ( = 采購(gòu)人) Or ( = 出產(chǎn)廠家) Then = select * from cginfo where (cginfo. amp。)Exit SubEnd IfIf = 領(lǐng)取人 Or = 領(lǐng)取單位 Then = select as 儀器設(shè)備編號(hào),名稱 as 儀器設(shè)備名稱, as 采購(gòu)人,cginfo. 出產(chǎn)廠家 as 出產(chǎn)廠家,日期 as 出廠日期 , as 金額, as 采購(gòu)日期, as 采購(gòu)數(shù)量 from cginfo,tzinfo where (=) and (tzinfo. amp。)Exit SubEnd IfIf = 使用情況 Or = 維修記錄 Then = select as 儀器設(shè)備編號(hào),名稱 as 儀器設(shè)備名稱, as 采購(gòu)人,cginfo. 出產(chǎn)廠家 as 出產(chǎn)廠家,日期 as 出廠日期 , as 金額, as 采購(gòu)日期, as 采購(gòu)數(shù)量 from cginfo,wxinfo where (=) and (wxinfo. amp。)Exit SubEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load() (儀器設(shè)備編號(hào)) (儀器設(shè)備的名稱) (采購(gòu)人) (出產(chǎn)廠家) (使用情況) (維修記錄)End Sub另 form4 為儀器設(shè)備配件登錄的窗體,實(shí)現(xiàn)方法同 form3(儀器設(shè)備信息登記) ,form7 的主要作用是配件信息維護(hù),實(shí)現(xiàn)方法同 form6(儀器設(shè)備信息維護(hù)) 。結(jié)束語(yǔ)正值論文完成之際,謹(jǐn)向所有曾給予我指導(dǎo)、鼓勵(lì)、支持、幫助、關(guān)心和理解的老師、同學(xué)以及朋友表示深深的謝意!首先感謝我的畢業(yè)設(shè)計(jì)指導(dǎo)老師!在他的精心幫助,細(xì)致的指導(dǎo)和言傳身教下,我的開發(fā)軟件的能力和獨(dú)立思考的能力得到系統(tǒng)的鍛煉和很大的提高,使得本文得以順利完成。+39。+39。+39。 User Id=admin。 Data Source=。 amp。分別如下幾個(gè)圖所示: 儀器設(shè)備入庫(kù):使用與維護(hù):接受數(shù)據(jù)采購(gòu)管理維修管理 信息查詢 退出系統(tǒng)儀器設(shè)備采購(gòu)儀器設(shè)備名稱設(shè)備編號(hào)采購(gòu)人采購(gòu)日期生產(chǎn)廠家生產(chǎn)日期購(gòu)入數(shù)量金額使用與維護(hù)設(shè)備名稱設(shè)備編號(hào) 維修次數(shù)使用情況(良/差)維修費(fèi)用維修記錄儀器設(shè)備配件:本儀器設(shè)備管理系統(tǒng)功能需求可以用二層的 IDEF0 圖來(lái)表示。輔助軟件配置:Wiondows202Office202visual 。為了美化系統(tǒng)界面,本系統(tǒng)加上一個(gè)圖片在主界面上。世界經(jīng)濟(jì)發(fā)展已進(jìn)入一個(gè)激烈競(jìng)爭(zhēng)的年代,可以說,誰(shuí)先獲得信息,誰(shuí)就有可能抓住發(fā)展經(jīng)濟(jì)的機(jī)遇。某些使用儀器設(shè)備管理系統(tǒng)的單位,對(duì)儀器設(shè)備的跟蹤信息即使能體現(xiàn)在儀器設(shè)備檔案上,但儀器設(shè)備的缺陷處理及儀器設(shè)備缺陷等功能沒有實(shí)施。 Visual Basic 語(yǔ)言簡(jiǎn)單易學(xué),只要稍有語(yǔ)言基礎(chǔ)就可以很快的掌握并進(jìn)而精通。畢業(yè)論文儀器設(shè)備管理系統(tǒng)的設(shè)計(jì)與開發(fā)【摘要】本文以某儀器設(shè)備管理為例,對(duì)儀器設(shè)備管理系統(tǒng)的設(shè)計(jì)與應(yīng)用進(jìn)行研究,旨在通過儀器設(shè)備管理系統(tǒng)提高內(nèi)部?jī)x器設(shè)備的利用率及實(shí)現(xiàn)其最大的經(jīng)濟(jì)效益。可視化的用戶界面設(shè)計(jì)功能,把程序設(shè)計(jì)人員從繁瑣復(fù)雜的截面設(shè)計(jì)中解脫出來(lái);可視化編程環(huán)境的“所見即所得(WYSIWYG) ”功能,是界面設(shè)計(jì)如積木游戲一般,編程變成了一種享受;強(qiáng)大的多媒體功能可輕而易舉地開發(fā)出集聲音,動(dòng)畫,影像和圖片于一體的多媒體應(yīng)用程序;新增的網(wǎng)絡(luò)功能提供了編寫 Inter 程序的能力。整個(gè)教學(xué)儀器設(shè)備管理信息化仍處于較低水平。同樣,誰(shuí)能很好地管理和利用信息,誰(shuí)就有可能占領(lǐng)市場(chǎng),獲得效益。系統(tǒng)的整體結(jié)構(gòu)如下:信息錄入流程圖:儀器設(shè)備管理系統(tǒng)儀器設(shè)備采購(gòu)管理維修與使用管理儀器設(shè)備配件管理退出系統(tǒng)下面分別論述本系統(tǒng)的各個(gè)功能模塊的作用:(1)儀器設(shè)備采購(gòu)管理:本應(yīng)用模塊的主要功能是實(shí)現(xiàn)對(duì)儀器設(shè)備的入庫(kù)管理工作,包括記錄添加、編輯、刪除等操作。5.1.系統(tǒng)、可行性分析 可靠性分析概述 可靠性分析是在用戶的要求和系統(tǒng)調(diào)研的基礎(chǔ)上進(jìn)行的,對(duì)新系統(tǒng)的開發(fā)從社會(huì)、技術(shù)、經(jīng)濟(jì)、管理等方面進(jìn)行分析,并得出新系統(tǒng)的開發(fā)工作可行、不可行,最后完成可行性分析。圖下圖是第一層 IDEF0 圖,它表示該系統(tǒng)所需要完成的四大功能:儀器設(shè)備基礎(chǔ)信息管理、儀器設(shè)備配件管理、儀器設(shè)備維修管理功能。 TimeEnd SubPrivate Sub Form_Load()(2).Text = 歡迎使用儀器設(shè)備管理系統(tǒng)End SubPrivate Sub u2_Click()EndEnd SubPrivate Sub xx1_Click()End SubPrivate Sub xx2_Click()End SubPrivate Sub yy1_Click()End SubPrivate Sub yy2_Click()End SubPrivate Sub yy3_Click()End Sub下面介紹儀器設(shè)備管理系統(tǒng)的其他模塊的制作步驟:form3 的創(chuàng)建,單擊添加窗體,得到一個(gè)窗體 form3,在屬性欄 caption 里面輸○ 1入新增儀器設(shè)備入庫(kù),在窗體中放置 7 個(gè) label 控件,7 個(gè) text 控件,二個(gè)mand 控件,二個(gè) dtpicker,并分別輸入相應(yīng)的屬性值。 amp。 amp。 + + 39。 + + 39。 + + 39。感謝和我系機(jī)房的管理人員及教師,為我們畢業(yè)設(shè)計(jì)安排了理想的環(huán)境及儀器設(shè)備,為我們的畢業(yè)設(shè)計(jì)的實(shí)際完成提供了可能。%39。%39。%39。 (良) (差)End SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = 13 Then select * from cginfo where 儀器設(shè)備編號(hào)= + Trim(), conn, adOpenKeyset, adLockOptimisticIf Then MsgBox 沒有此儀器設(shè)備!, , 提示Else = rs(儀器設(shè)備的名稱 )End IfEnd IfEnd SubPrivate Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)If ((KeyCode 57) Or (KeyCode 33 And KeyCode 48)) ThenIf Then = Left(, Len() 1)MsgBox 儀器設(shè)備編號(hào)輸入錯(cuò)誤,該編號(hào)僅為數(shù)字編號(hào),請(qǐng)重新輸入!!!, , 提示End IfEnd SubPrivate Sub Text2_GotFocus() select * from cginfo where 儀器設(shè)備編號(hào)= + Trim(), conn, adOpenKeyset, adLockOptimisticIf Then MsgBox 沒有此儀器設(shè)備!, , 提示Else = rs(儀器設(shè)備的名稱 )End IfEnd SubPrivate Sub Text5_KeyUp(KeyCode As Integer, Shift As Integer)If ((KeyCode 57 And KeyCode 190) Or (KeyCode 33 And KeyCode 48)) ThenIf Then = Left(, Len() 1)MsgBox 維修費(fèi)用輸入錯(cuò)誤 ,你所輸入的數(shù)據(jù)可能含有非法字符 ,請(qǐng)重新輸入!!!, , 提示End IfEnd Sub③窗體 form6,在屬性欄 caption 里面輸入儀器設(shè)備信息查詢維護(hù),在窗體中放置 1 個(gè)datagrid 控件,1 個(gè) text 控件,4 個(gè) mand 控件 , 1 個(gè) adodc ,并分別輸入相應(yīng)的屬性值。 amp。If = Then39。5.2.3.整個(gè)管理系統(tǒng)的流程圖設(shè)備配件
點(diǎn)擊復(fù)制文檔內(nèi)容
范文總結(jié)相關(guān)推薦
文庫(kù)吧 www.dybbs8.com
備案圖鄂ICP備17016276號(hào)-1