用C编八皇后动态模拟的程序中怎样实现栈及其中变化

来源：百度知道 编辑：UC知道 时间：2024/05/26 02:48:37
在屏幕上显示棋盘棋子几棋子的移动过程。
在屏幕上显示栈的变化，显示程序。
跟踪程序并且程序的变化与棋盘，棋子及栈的变化相一致

Public userdwname As String
Public username As String
Public userright As String
Public conn As String

Private Sub Command1_Click()
Dim password As String
Dim respond As String
username = text1.Text
password = text2.Text
On Error GoTo err1
Adodc1.ConnectionString = conn
Adodc1.RecordSource = "select * from 用户登入 where 用户名=" & "'" & username & "'" & " and " & "密码=" & "'" & password & "'"
Adodc1.Refresh
If Adodc1.Recordset.AbsolutePosition = adPosUnknown Then
respond = MsgBox("用户名或密码错误，请重新输入！", vbOKOnly, "警告")
If respond <> vbOKOnly Then
text1.SetFocus
text1.Text = ""
text2.Text = ""
username = ""
password = ""
End If
Else
userright = Adodc1.Recordset.Fields("权限")
Unload frmLogin