- 博客(5)
- 收藏
- 关注
原创 机房收费系统——组合查询
Public Function FieldName(strFieldName As String) As String'此函数可以让汉子转化为数据库中的字段Select Case strFieldName Case "学号" FieldName = "studentNo" Case "卡号" FieldName = "cardno" Case "姓名" FieldName = "student
2014-09-07 12:12:21 824 12
原创 机房收费系统——禁用Menu
Private Sub MDIForm_Load() MenuCao.Enabled = False MenuUser.Enabled = False MenuGuan.Enabled = False txtsql = "select * from User_Info where userID='" & UserName & "'" '连接数据库 Set
2014-09-07 11:45:58 829 14
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人