张美红

机房收费系统，我还未

首先，配置DSN文件，相信大家都已经很熟悉了，之前在学生信息管理系统中已经用过一次了。

目前机房收费系统，我还有上下机和报表两个类型，

Private Sub MDIForm_Load() MenuCao.Enabled = False MenuUser.Enabled = False MenuGuan.Enabled = False txtsql = "select * from User_Info where userID='" & UserName & "'" '连接数据库 Set

Public Function FieldName(strFieldName As String) As String'此函数可以让汉子转化为数据库中的字段Select Case strFieldName Case "学号" FieldName = "studentNo" Case "卡号" FieldName = "cardno" Case "姓名" FieldName = "student

做到结账这的时候，第一次遇到的问题是不知道那是

Dim Report As grproLibCtl.GridppReportDim strtxtSQL As StringPrivate Sub Form_Load() '实例化报表 Set Report = New grproLibCtl.GridppReport '报表建立的位置 Report.LoadFromFi