```e procedure 主程序() 数据库建立("User.db") 数据库执行("CREATE TABLE IF NOT EXISTS User (ID INTEGER PRIMARY KEY AUTOINCREMENT, UserName TEXT, Password TEXT)") while 1 整数 n = 消息框("请选择操作", "消息", "0" & chr(13) & "1" & chr(13) & "2") 取舍 n => 1 : 用户注册(True) 2 : 用户登录(False) 0 : 退出程序(True) wend end procedure 用户注册(注册:布尔) 文字 用户名, 密码 if 注册 ==> else end if 整数 rowid = 数据库执行("INSERT INTO User (UserName, Password) VALUES ('" & 用户名 & "', '" & 密码 & "')") if rowid = 0 消息框("注册成功", "消息", "提示") else 消息框("注册失败", "消息", "提示") end if end procedure 用户登录(登陆:布尔) 文字 用户名, 密码 if 登陆 ==> else end if 文字 p = 数据库执行("SELECT UserName, Password FROM User WHERE UserName='" & 用户名 & "' AND Password='" & 密码 & "'") if p <> "" 消息框("登录成功", "消息", "提示") else 消息框("登录失败", "消息", "提示") end if end ```
