说明: 用vb做的一款学生成绩管理系统 Private Sub Form_Load() Set mclsMidTier = New clsMidTier Set rs = mclsMidTier.GetList("select * from UserInfo") If rs.RecordCount = 0 Then rs.AddNew rs("UserName") = "System" rs("UserPassword") = "123456" rs.Update Else rs.MoveFirst
<kaizi0123456789> 上传 | 大小:198kb