学生信息管理系统设计 代码
发布网友
发布时间:2022-05-04 14:49
我来回答
共2个回答
热心网友
时间:2022-06-23 05:55
Private Sub cmd_adser_Click()
Dim newrst As ADODB.Recordset
Dim sql As String
sql = "insert into 用户表 values(" & "'" & Trim(txt_username.Text)& "'," _
&"'" & Trim(txt_password.Text) & "'," _
&"'" & Trim(txt_power) & "'" & ")"
Set newrst = execute_sql(sql)
sql = "select * from 用户表"
Set newrst = select_sql(sql)
Set DataGrid1.DataSource = newrst
End Sub
Private Sub cmd_cancel_Click()
Unload Me
End Sub
Private Sub cmd_delete_Click()
Dim sql As String
sql = "select * from 用户表"
If txt_username <> "" Then
Set objrs = ExecuteSQL(sql, "")
Set DataGrid1.DataSource = objrs
'刷新网格,显示操作后的结果
End If
If objrs.RecordCount = 0 Then
MsgBox "库中没有记录!"
Exit Sub
End If
If objrs.RecordCount <> 0 Then
If MsgBox("真的要删除该级用户信息吗?", vbYesNo +vbQuestion, "警告") = vbYes Then
objrs.Delete
MsgBox "删除成功!", vbInformation, "提示"
End If
End If
End Sub
Private Sub Form_Load()
Dim newrst As ADODB.Recordset
Dim sql As String
sql = "select * from 用户表"
Set newrst = select_sql(sql)
Set DataGrid1.DataSource = newrst
End Sub
热心网友
时间:2022-06-23 05:55
开发设计的语言是,还是只要实现功能就ok