Question

明早答辩 vb 讲解酒店管理系统 我负责房态查询 和 住宿查询 有些语句看不懂 有谁能给我讲解一下

Answer 1

PublicFunctionaddLst()AsBooleanlstUser.Clear()mySql="select*fromsqlusers"rs=myRs(mySql,sqlIP,1)lstUser.View=View.DetailsDimiAsIntegerIfrs.Fields.Count>0Then'添加列表框列标题项目Fori=1Tors.Fields.CountlstUser.Columns.Add(rs.Fields.Item(i-1).Name)Next'添加列表框数据内容Ifrs.RecordCount>0Thenrs.MoveFirst()Fori=1Tors.RecordCountlstUser.Items.Add(rs("用户名").Value)lstUser.Items.Item(i-1).SubItems.Add(rs("密码").Value)lstUser.Items.Item(i-1).SubItems.Add(rs("用户类型").Value)rs.MoveNext()NextEndIfEndFunction