儀器設(shè)備管理系統(tǒng)—計(jì)算機(jī)畢業(yè)設(shè)計(jì)-文庫吧在線文庫
【正文】 from wxinfo where (wxinfo. amp。)Exit SubEnd IfIf = 使用情況 Or = 維修記錄 Then = select as 儀器設(shè)備編號(hào),名稱 as 儀器設(shè)備名稱, as 采購人,cginfo. 出產(chǎn)廠家 as 出產(chǎn)廠家,日期 as 出廠日期 , as 金額, as 采購日期, as 采購數(shù)量 from cginfo,wxinfo where (=) and (wxinfo. amp。) = select as 儀器設(shè)備編號(hào),名稱 as 儀器設(shè)備名稱 , as 使用情況 , as 維修記錄, as 維修日期, as 維修費(fèi)用 from tzinfo,wxinfo where (=wxinfo. 儀器設(shè)備編號(hào)) and (tzinfo. amp。)Exit SubEnd IfIf = 領(lǐng)取人 Or = 領(lǐng)取單位 Then = select as 儀器設(shè)備編號(hào),名稱 as 儀器設(shè)備名稱, as 采購人,cginfo. 出產(chǎn)廠家 as 出產(chǎn)廠家,日期 as 出廠日期 , as 金額, as 采購日期, as 采購數(shù)量 from cginfo,tzinfo where (=) and (tzinfo. amp。) = select as 儀器設(shè)備編號(hào),名稱 as 儀器設(shè)備名稱 , as 使用情況 , as 維修記錄, as 維修日期 , as 維修費(fèi)用 from cginfo,wxinfo where NY開始設(shè)置查詢信息顯示查詢結(jié)果是否繼續(xù)退出(=) and (cginfo. amp。倉庫儀器設(shè)備信息維護(hù)如下：控件名 屬性 屬性值datagrid endabled .f.adodc namemand1 name 檢索mand2 name 退出mand3 name 刪除當(dāng)前修改mand4 name 保存當(dāng)前修改流程圖：新增代碼如下：Private Sub Command1_Click()If = ThenMsgBox 請輸入儀器設(shè)備編號(hào)Exit SubEnd If = select * from cginfo where 儀器設(shè)備編號(hào)= + End SubPrivate Sub Command2_Click()Unload MeEnd SubNY開始查找/修改/刪除記錄是否繼續(xù)退出Private Sub Command3_Click()Dim myval As Stringmyval = MsgBox(是否確定刪除該記錄, vbYesNo)If myval = vbYes ThenEnd IfEnd SubPrivate Sub Command4_Click()Dim myval As Stringmyval = MsgBox(是否保存已經(jīng)修改的記錄, vbYesNo)If myval = vbYes ThenEnd 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),請重新輸入 !!!)End IfEnd Sub④窗體 form8 在屬性欄 caption 里面輸入儀器設(shè)備使用維修信息維護(hù)，在窗體中放置 1個(gè) datagrid 控件，1 個(gè) text 控件，4 個(gè) mand 控件 , 1 個(gè) adodc ，并分別輸入相應(yīng)的屬性值儀器設(shè)備使用維修信息維護(hù)：控件名 屬性 屬性值datagrid endabled .f.adodc namemand1 name 檢索mand2 name 退出mand3 name 刪除當(dāng)前修改mand4 name 保存當(dāng)前修改流程圖：新增代碼如下：Private Sub Command1_Click()If = ThenMsgBox 請輸入儀器設(shè)備編號(hào), , 提示Exit SubEnd If = select * from wxinfo where 儀器設(shè)備編號(hào)= + End SubPrivate Sub Command2_Click()Unload MeNY開始使用維修信息維護(hù)是否繼續(xù)退出End SubPrivate Sub Command3_Click()Dim myval As Stringmyval = MsgBox(是否確定刪除該記錄, vbYesNo, 提示)If myval = vbYes ThenEnd IfEnd SubPrivate Sub Command4_Click()Dim myval As Stringmyval = MsgBox(是否保存已經(jīng)修改的記錄, vbYesNo, 提示)If myval = vbYes ThenEnd 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),請重新輸入!!!, , 提示End IfEnd Sub⑤窗體 form9 在屬性欄 caption 里面輸入儀器設(shè)備信息查詢，在窗體中放置 3 個(gè)datagrid 控件，1 個(gè) text 控件，2 個(gè) mand 控件 , 3 個(gè) adodc ，1 個(gè) bo1 并分別輸入相應(yīng)的屬性值儀器設(shè)備信息查詢?nèi)缦拢嚎丶? 屬性 屬性值datagrid1 endabled .f. datagrid2 endabled .f.datagrid3 endabled .f.bo1 rowsource 儀器設(shè)備編號(hào)，儀器設(shè)備名稱，采購人，出產(chǎn)廠家，領(lǐng)取人，領(lǐng)取單位，使用情況，維修記錄 adodc1adodc2adodc3 mand1 name 檢索mand2 name 退出流程圖：新增代碼如下Private Sub Command1_Click()If ( = 儀器設(shè)備編號(hào)) Or ( = 儀器設(shè)備名稱) Or ( = 采購人) Or ( = 出產(chǎn)廠家) Then = select * from cginfo where (cginfo. amp。 = = = MsgBox 數(shù)據(jù)已經(jīng)成功保存到數(shù)據(jù)庫!, , 提示End SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load() = DateSet conn = New Set rs = New Provider=。 Password=。End IfIf = ThenMsgBox 請輸入采購數(shù)量 , , 提示Exit SubEnd IfIf = ThenMsgBox 請輸入儀器設(shè)備編號(hào), , 提示Exit SubEnd If select * from cginfo, conn, adOpenKeyset, adLockOptimisticrs(儀器設(shè)備的名稱) = rs(采購人 ) = rs(出產(chǎn)廠家 ) = rs(出廠日期 ) = rs(金額 ) = rs(采購日期 ) = rs(采購數(shù)量 ) = rs(儀器設(shè)備編號(hào)) = rs(儀器設(shè)備規(guī)格) = = = = 39。MsgBox 請輸入出廠日期 39。（4）單擊工程菜單下的部件選項(xiàng)，在彈出的列表中選中[Microsoft windows mon control ]選項(xiàng)，然后單擊確定按鈕，imagelist 控件、toolbar 控件、statusbar 控件將被添加到工具箱中。數(shù)據(jù)庫與程序的連接采用微軟數(shù)據(jù)訪問組件 ADO 來實(shí)現(xiàn)。（3）軟件資源 軟件資源的可行性分析主要考慮以下幾點(diǎn)是否滿足用戶的要求：①操作系統(tǒng)的選擇；②編譯系統(tǒng)的選擇；③數(shù)據(jù)庫管理系統(tǒng)的選擇；④高級編程語言的選擇；⑤漢字處理系統(tǒng)的選擇； 本系統(tǒng)在開發(fā)前，與相關(guān)的部門的領(lǐng)導(dǎo)和具體的操作人員密切溝通，認(rèn)真聽取他們的意見，并吸收他們的積極觀點(diǎn)，使本系統(tǒng)的開發(fā)在相當(dāng)大的程度上具有一定的先進(jìn)性和合理性。
范文總結(jié)相關(guān)推薦
鄂ICP備17016276號(hào)-1