vb 局域网 斗地主
vb 编写的局域网斗地主,支持多人大厅,采用access 数据库,分为客户端及服务端
ado.Recordset.Close ado.Recordset.Open "select * from db1 where 准考证号='" + Txt1 + " '" If ado.Recordset.EOF Then MsgBox "数据库中没有你想查询的", 16, "错误" Else Form2.Txt1.Text = ado.Recordset.Fields("姓名").Value Form2.Txt2.Text = ado.Recordset.Fields("性别").Value Form2.Txt3.Text = ado.Recordset.Fields("语文").Value Form2.Txt4.Text = ado.Recordset.Fields("数学").Value Form2.Txt5.Text = ado.Recordset.Fields("英语").Value Form2.Txt6.Text = ado.Recordset.Fields("综合").Value Form2.Txt7.Text = ado.Recordset.Fields("总分").Value Form2.Txt8.Text = ado.Recordset.Fields("录取学校").Value Form2.Show Form2.Caption = RTrim(ado.Recordset.Fields("姓名").Value) & "的成绩" End If