Dim cn As New ADODB.Connection
Dim rs As ADODB.Recordset
Private Sub CmdAdd_Click()
Dim sname, stel, saddr As String
sname = TxtName.Text
stel = TxtTel.Text
saddr = TxtAddr.Text
Dim StrSQL As String
StrSQL = "insert into stu values ('" & sname & "','" & stel & "','" & saddr & "') "
MSH_ADO cn, StrSQL
End Sub
Private Sub CmdDelete_Click()
Dim sid As Integer
sid = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 1)
Dim StrSQL As String
StrSQL = "delete stu where sid=" & sid
MSH_ADO cn, StrSQL
End Sub
Private Sub CmdUpdate_Click()
Dim sid As Integer
Dim sname, stel, saddr As String
sid = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 1)
sname = TxtName.Text
stel = TxtTel.Text
saddr = TxtAddr.Text
Dim StrSQL As String
StrSQL = "update stu set sname='" & sname & "',stel='" & stel & "',saddr='" & saddr & "' where sid=" & sid
MSH_ADO cn, StrSQL
End Sub
Private Sub Form_Load()
cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=My_Stu;Data Source=."
cn.Open
Set rs = cn.Execute("select * from stu")
Set MSHFlexGrid1.DataSource = rs
MSHFlexGrid1.ColWidth(0) = 0
cn.Close
End Sub
Private Sub MSHFlexGrid1_EnterCell()
'单击某一单元时,改变该行颜色
Dim i_Col As Integer
Dim c_col As Integer
c_col = MSHFlexGrid1.Col
If c_col > 0 Then
For i_Col = 0 To MSHFlexGrid1.Cols - 1
MSHFlexGrid1.Col = i_Col
MSHFlexGrid1.CellBackColor = &HFFFFC0
Next i_Col
MSHFlexGrid1.Col = c_col
End If
TxtName.Text = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2)
TxtTel.Text = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 3)
TxtAddr.Text = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 4)
End Sub
Private Sub MSHFlexGrid1_LeaveCell()
'当某一行失去焦点时,改变该行颜色
Dim i_Col As Integer
Dim c_col As Integer
c_col = MSHFlexGrid1.Col
For i_Col = 0 To MSHFlexGrid1.Cols - 1
MSHFlexGrid1.Col = i_Col
MSHFlexGrid1.CellBackColor = vbWhite
Next i_Col
MSHFlexGrid1.Col = c_col
End Sub
Private Function MSH_ADO(cn As ADODB.Connection, StrSQL As String)
cn.Open
cn.Execute (StrSQL)
Dim rs As ADODB.Recordset
Set rs = cn.Execute("select * from stu")
Set MSHFlexGrid1.DataSource = rs
cn.Close
End Function