机房之一般用户查询余额

界面
当前卡号登录上机，label显示当前登录的卡号，各个文本框设置成不可编辑

流程图

代码实现

Private Sub Form_Load()
    lblcardno.Caption = "卡号：" & username
    Dim mrc As adodb.Recordset
    Dim txtsql As String
    Dim msgtext As String
    
    '设置窗体的位置和大小
    Me.Left = 0
    Me.Top = 700
    Me.Height = 16000
    Me.Width = 18000
    
    '从学生表和卡号表中查询信息显示在文本框中
    txtsql = "select * from student_info,card_info where cardno='" & username & _
    "'and student_info.studentNo=card_info.studentno"
    Set mrc = ExecuteSQL(txtsql, msgtext)
    txtsno.Text = mrc!studentno
    txtbalance.Text = mrc!cash
    txtname.Text = mrc!studentname
    txtsex.Text = mrc!sex
    txtdepartment.Text = mrc!department
    txtgrade.Text = mrc!grade
    txtclass.Text = mrc!Class
    txtcomment.Text = mrc!explain
    
    '设置各个文本框不可以编辑修改
    txtsno.Enabled = False
    txtbalance.Enabled = False
    txtname.Enabled = False
    txtsex.Enabled = False
    txtdepartment.Enabled = False
    txtgrade.Enabled = False
    txtclass.Enabled = False
    txtcomment.Enabled = False
    
End Sub