軟件工程實驗報告書-資料下載頁
2025-08-04 06:28本頁面
【正文】 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 請確認密碼, , 警告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。連接數據庫local_db = select 用戶名 from 用戶表 + _ where = + 39。 + username + 39。 local_db, CnnIf Not ( And ) ThenMsgBox 對不起，此用戶已存在, , 警告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 密碼不一致，請重新輸入, , 警告End IfEnd IfEnd SubEnd Sub查詢修改實現代碼：查詢戶號；查詢修改用戶信息；查詢修改人員信息；列表查詢；單擊“查詢修改”下拉菜單中的“查詢戶號”選項即出現“查詢戶號”對話框，操作員只需輸入所要查詢戶口的戶主身份證號即可獲得該戶的戶號信息單擊“查詢修改”下拉菜單中的“查詢修改戶信息”選項，屏幕中會出現“查詢修改戶口信息”對話框，操作員在該窗口中輸入戶號后單擊查詢按鈕，即可出現“查詢修改戶信息”對話框，在此對話框中會顯示關于該住戶的信息，并可對該住戶的戶別及家庭住址等信息進行修改，所作修改可及時記入相應的數據庫系統(tǒng)中。Option ExplicitPrivate Sub Command1_Click()Unload frmuserlist = True = True = TrueIf userid = admin Then = True = TrueElse = False = FalseEnd IfGetStatus 就緒End Sub16 / 16
研究報告相關推薦
鄂ICP備17016276號-1