学生信息管理系统设计 代码

发布网友 发布时间：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