hanshu.bas

学生信息管理系统

Attribute VB_Name = "hanshu"
Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Public Sub show_all()
msql = "select * from 1"
rs.Open msql, db, adOpenStatic, adLockOptimistic
Set Main.DataGrid1.DataSource = rs
Set rs = New Recordset
End Sub