vb.txt

财务管理系统！自己看看挺好的！应该有用的！

Option Explicit
Dim rs_reader As New ADODB.Recordset
Dim rs_reader1 As New ADODB.Recordset


Private Sub Command1_Click() '查询记录

Text1.Visible = True
Label1.Visible = True
rst.Close

rst.Open "select * from biao where id=" & Trim(Text1.Text)




Set DataGrid1.DataSource = rst
End Sub

Private Sub Command2_Click() '删除记录
'Load Form2
'Form2.Show
'Unload Form1
Dim rs_reader As New ADODB.Recordset
Dim answer As String

Dim sql As String



answer = MsgBox("确定要删除吗？", vbYesNo, "")
If answer = vbYes Then
sql = "delete  from biao where id= " & Text1.Text & " "

rs_reader.CursorLocation = adUseClient

rs_reader.CursorLocation = adUseClient
rs_reader.Open sql, conn, adOpenKeyset, adLockPessimistic


   DataGrid1.Refresh
   Set DataGrid1.DataSource = rs_reader


' DataGrid1.AllowDelete = True
  
   'rs_reader.Delete
   'rs_reader.Update
   'DataGrid1.Refresh
   'MsgBox "成功删除！", vbOKOnly + vbExclamation, ""
   'DataGrid1.AllowDelete = False
   End If
End Sub

Private Sub Command3_Click() '插入记录
'rst.Close
'rst.Open "select * from biao", conn, adOpenDynamic, adLockBatchOptimistic
'If rst.BOF Then
     ' rst.MoveFirst
           'Else
        'rst.MoveNext
   'End If
'rst.AddNew
'rst.Fields("id") = Text2.Text
'rst.Fields("password") = Text3.Text
'rst.Update
'Set DataGrid1.DataSource = rst
'rst.Open "insert into biao(id,password) values('" & Trim(Text2.Text) & "," & Trim(Text3.Text) & "')" conn
Dim sql As String
Dim rs_reader1 As New ADODB.Recordset

sql = "insert into biao values('" & Trim(Text2.Text) & "','" & Text3.Text & "')"


rs_reader1.CursorLocation = adUseClient

rs_reader1.CursorLocation = adUseClient
rs_reader1.Open sql, conn, adOpenKeyset, adLockPessimistic
'conn.Execute (sql)'执行操作
   DataGrid1.Refresh
   Set DataGrid1.DataSource = rs_reader1

End Sub

Private Sub Command4_Click() '更新记录
Dim sql As String
Dim rs_reader1 As New ADODB.Recordset
Dim answer As String
answer = MsgBox("确定要修改吗？", vbYesNo, "")
If answer = vbYes Then
sql = "select * from biao where id=" & Trim(Text1.Text)

rs_reader1.CursorLocation = adUseClient
'rs_reader1.CursorLocation = adUseClient

rs_reader1.Open sql, conn, adOpenKeyset, adLockPessimistic
'conn.Execute (sql)'执行操作
rs_reader1.Fields(1) = Text2.Text
rs_reader1.Update
DataGrid1.Refresh

'rs_reader1.Close

   'DataGrid1.Refresh
   Set DataGrid1.DataSource = rs_reader1
End If


End Sub

Private Sub DataGrid1_Click()
'MsgBox DataGrid1.Columns(DataGrid1)

End Sub

Private Sub Form_Load()

Set rst = New ADODB.Recordset
Set conn = New ADODB.Connection
conn.CursorLocation = adUseClient
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\text.mdb"
conn.CommandTimeout = 30
conn.CursorLocation = adUseClient
rst.Open "select * from biao", conn
Set DataGrid1.DataSource = rst


End Sub
Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
  Dim i As Integer, x() As String
  ReDim x(DataGrid1.Columns.Count - 1)
  For i = 0 To UBound(x)
  x(i) = "Colums(" & i + 1 & "):   " & CStr(DataGrid1.Columns(i).Text)
  Next
   
  End Sub