軟件工程實(shí)驗(yàn)報(bào)告書(shū)-資料下載頁(yè)
2025-08-04 06:28本頁(yè)面
【正文】 End SubPrivate Sub Commok_Click()Dim Cnn As New Dim ret As New Dim local_db As StringDim username As StringDim password As StringIf = ThenMsgBox 用戶名不能為空, , 警告ElseIf = ThenMsgBox 密碼不能為空, , 警告ElseIf = ThenMsgBox 請(qǐng)確認(rèn)密碼, , 警告End IfEnd IfEnd IfIf = ThenIf And And Thenusername = Trim()password = Set Cnn = New Set ret = New Provider=。Data Source= + amp。 \data\ + 。Persist Security Info=False。 39。連接數(shù)據(jù)庫(kù)local_db = select 用戶名 from 用戶表 + _ where = + 39。 + username + 39。 local_db, CnnIf Not ( And ) ThenMsgBox 對(duì)不起，此用戶已存在, , 警告Elselocal_db = insert into 用戶表(用戶名,密碼) + _ values( + 39。 + username + 39。, + 39。 + password + 39。) local_dbMsgBox 新用戶添加成功！, , 提示 = = = = True = True = TrueIf userid = admin Then = True = TrueElse = False = FalseEnd IfEnd IfEnd IfElseIf And ThenMsgBox 密碼不一致，請(qǐng)重新輸入, , 警告End IfEnd IfEnd SubEnd Sub查詢修改實(shí)現(xiàn)代碼：查詢戶號(hào)；查詢修改用戶信息；查詢修改人員信息；列表查詢；單擊“查詢修改”下拉菜單中的“查詢戶號(hào)”選項(xiàng)即出現(xiàn)“查詢戶號(hào)”對(duì)話框，操作員只需輸入所要查詢戶口的戶主身份證號(hào)即可獲得該戶的戶號(hào)信息單擊“查詢修改”下拉菜單中的“查詢修改戶信息”選項(xiàng)，屏幕中會(huì)出現(xiàn)“查詢修改戶口信息”對(duì)話框，操作員在該窗口中輸入戶號(hào)后單擊查詢按鈕，即可出現(xiàn)“查詢修改戶信息”對(duì)話框，在此對(duì)話框中會(huì)顯示關(guān)于該住戶的信息，并可對(duì)該住戶的戶別及家庭住址等信息進(jìn)行修改，所作修改可及時(shí)記入相應(yīng)的數(shù)據(jù)庫(kù)系統(tǒng)中。Option ExplicitPrivate Sub Command1_Click()Unload frmuserlist = True = True = TrueIf userid = admin Then = True = TrueElse = False = FalseEnd IfGetStatus 就緒End Sub16 / 16
研究報(bào)告相關(guān)推薦
鄂ICP備17016276號(hào)-1