如何用计算机语言编程(我们只学过vb),建立一个简单的数据库
要求这个数据库功能包括数据的输入,存储,排序,查询,增加,删除,输出)电脑屏幕输出或打印功能输出都可以...
要求这个数据库功能包括数据的输入,存储,排序,查询,增加,删除,输出)电脑屏幕输出或打印功能输出都可以
展开
5个回答
展开全部
Private Sub Command1_Click()
Data1.Recordset.AddNew
End Sub
Private Sub Command10_Click()
End Sub
Private Sub Command2_Click()
If MsgBox("删除当前记录吗?", vbOKCancel, "删除记录") = vbOK Then
Data1.Recordset.Delete
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then
Data1.Recordset.MoveLast
End If
End If
End Sub
Private Sub Command3_Click()
Dim aa As String
Dim bb As String
aa = InputBox("请输入要查询的姓名:", "查找")
If aa = "" Then
Exit Sub
End If
Data1.RecordsetType = 0
bb = "姓名=" & aa & ""
Data1.Recordset.FindFirst (bb)
If Data1.Recordset.NoMatch Then
Call MsgBox("要查询的学生姓名不存在!", vbOKOnly, "警告!")
Data1.Recordset.MoveFirst
End If
End Sub
Private Sub Command4_Click()
Data1.Recordset.CancelUpdate
End Sub
Private Sub Command5_Click()
Data1.Recordset.MovePrevious
If Data1.Recordset.BOF Then
Data1.Recordset.MoveFirst
End If
End Sub
Private Sub Command6_Click()
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then
Data1.Recordset.MoveLast
End If
End Sub
Private Sub Command7_Click()
End
End Sub
Private Sub Command8_Click()
Data1.UpdateRecord
Data1.Recordset.Bookmark = Data1.Recordset.LastModified
End Sub
Private Sub Command9_Click()
MSFlexGrid1.Visible = True
Print
Text9.Visible = True
Text9.Text = "谢谢观看"
End Sub
Private Sub Form_Load()
Data1.DatabaseName = "student1.mdb"
Data1.RecordSource = "message"
End Sub
这些包括你的要求了只不过根本的基地数据库student1.mdb要自己简陋
Data1.Recordset.AddNew
End Sub
Private Sub Command10_Click()
End Sub
Private Sub Command2_Click()
If MsgBox("删除当前记录吗?", vbOKCancel, "删除记录") = vbOK Then
Data1.Recordset.Delete
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then
Data1.Recordset.MoveLast
End If
End If
End Sub
Private Sub Command3_Click()
Dim aa As String
Dim bb As String
aa = InputBox("请输入要查询的姓名:", "查找")
If aa = "" Then
Exit Sub
End If
Data1.RecordsetType = 0
bb = "姓名=" & aa & ""
Data1.Recordset.FindFirst (bb)
If Data1.Recordset.NoMatch Then
Call MsgBox("要查询的学生姓名不存在!", vbOKOnly, "警告!")
Data1.Recordset.MoveFirst
End If
End Sub
Private Sub Command4_Click()
Data1.Recordset.CancelUpdate
End Sub
Private Sub Command5_Click()
Data1.Recordset.MovePrevious
If Data1.Recordset.BOF Then
Data1.Recordset.MoveFirst
End If
End Sub
Private Sub Command6_Click()
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then
Data1.Recordset.MoveLast
End If
End Sub
Private Sub Command7_Click()
End
End Sub
Private Sub Command8_Click()
Data1.UpdateRecord
Data1.Recordset.Bookmark = Data1.Recordset.LastModified
End Sub
Private Sub Command9_Click()
MSFlexGrid1.Visible = True
Text9.Visible = True
Text9.Text = "谢谢观看"
End Sub
Private Sub Form_Load()
Data1.DatabaseName = "student1.mdb"
Data1.RecordSource = "message"
End Sub
这些包括你的要求了只不过根本的基地数据库student1.mdb要自己简陋
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
你用SQL server编把,很好学的 或者vfp
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
要是VB2008就非常简单。。。
追问
可是我们要用visual basic 6.0中文版做
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询