求助,哪位大神可以给小弟我一个VB做的校友录
--------------------编程问答-------------------- 自己试着做,不会的来问,不要懒 --------------------编程问答-------------------- 自己查查问问1,2天就搞定了 --------------------编程问答-------------------- 恩,蛮简单的 --------------------编程问答-------------------- Private Sub Command1_Click()
End
End Sub
Private Sub Command2_Click()
Set DataGrid1.DataSource = Adodc2
Adodc1.Recordset.MoveFirst
sn = Val(Adodc1.Recordset("编号"))
Do While Adodc1.Recordset.EOF = False
If sn < Val(Adodc1.Recordset("编号")) Then sn = Val(Adodc1.Recordset("编号"))
Adodc1.Recordset.MoveNext
Loop
Adodc1.Recordset.MoveLast
Set DataGrid1.DataSource = Adodc1
Text1 = sn + 1
If MsgBox("确实要增加记录吗?", vbYesNo) = vbYes Then
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("编号") = Text1
Adodc1.Recordset.Fields("姓名") = Text2
Adodc1.Recordset.Fields("工作单位") = Text3
Adodc1.Recordset.Fields("电话") = Text4
Adodc1.Recordset.Fields("手机") = Text5
Adodc1.Recordset.Fields("传真") = Text6
Adodc1.Recordset.Fields("地址") = Text7
Adodc1.Recordset.Fields("备注") = Text8
Adodc1.Recordset.Update
End If
End Sub
Private Sub Command3_Click()
On Error Resume Next
If Command3.Caption = "修改" Then
If MsgBox("确实要修改记录吗?", vbYesNo) = vbYes Then
Text1 = Adodc1.Recordset.Fields("编号")
Text2 = Adodc1.Recordset.Fields("姓名")
Text3 = Adodc1.Recordset.Fields("工作单位")
Text4 = Adodc1.Recordset.Fields("电话")
Text5 = Adodc1.Recordset.Fields("手机")
Text6 = Adodc1.Recordset.Fields("传真")
Text7 = Adodc1.Recordset.Fields("地址")
Text8 = Adodc1.Recordset.Fields("备注")
Adodc1.Recordset.Update
Command3.Caption = "确定"
Command2.Enabled = False
Command4.Enabled = False
DataGrid1.Enabled = False
Adodc1.Enabled = False
Exit Sub
End If
Else
Adodc1.Recordset.Fields("姓名") = Text2
Adodc1.Recordset.Fields("工作单位") = Text3
Adodc1.Recordset.Fields("电话") = Text4
Adodc1.Recordset.Fields("手机") = Text5
Adodc1.Recordset.Fields("传真") = Text6
Adodc1.Recordset.Fields("地址") = Text7
Adodc1.Recordset.Fields("备注") = Text8
Adodc1.Recordset.Update
Command3.Caption = "修改"
Command2.Enabled = True
Command4.Enabled = True
DataGrid1.Enabled = True
Adodc1.Enabled = True
End If
End Sub
Private Sub Command4_Click()
If MsgBox("确实要删除吗?", vbYesNo) = vbYes Then
Adodc1.Recordset.Delete
DataGrid1.Refresh
End If
End Sub
Private Sub Form_Load()
Adodc1.ConnectionString = " Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\通讯录.mdb;Persist Security Info=False"
Adodc1.RecordSource = "通讯录"
Adodc1.Refresh
End Sub
Private Sub Text10_Change()
Adodc1.RecordSource = "select * from 通讯录 where 工作单位 like + '%'+'" + Text10.Text + "'+ '%'"
Adodc1.Refresh
End Sub
Private Sub Text9_Change()
Adodc1.RecordSource = "select * from 通讯录 where 姓名 like + '%'+'" + Text9.Text + "'+ '%'"
Adodc1.Refresh
End Sub
数据库自己建吧 --------------------编程问答-------------------- 没学过VB的怎么可能1到2天自己做出来,呵呵 --------------------编程问答-------------------- 友情Up..........
--------------------编程问答--------------------
没学过就麻烦了,你很难看懂
如果愿意出钱,一天内发到你的邮箱 --------------------编程问答-------------------- 很简单的东西!数据库的基本知识! --------------------编程问答-------------------- 源代码是肯定没的,如果你已经下定决心做这个事情了,而你又对VB感兴趣,建议你先把界面做好,然后把数据库建好,想实现什么功能,可以在这上面多问,里面的大侠们会为你解决!! --------------------编程问答--------------------
对于你来说,也不难啊~
你设计好一个库,比方说Access的,把表建好。这个不难吧?
然后用VB的数据工程向导,两分钟就搞定了!几乎不用你自己写代码~~ --------------------编程问答-------------------- 飘过 --------------------编程问答-------------------- 给你个自己做的通讯录,有源码,功能全面,包含添加、修改、删除、查询等等,自己去下载吧!地址如下:
http://download.csdn.net/source/1887292 --------------------编程问答--------------------
没学过VB,给你也没用阿,你连编译,打包都不会.
还不如拿Excel直接打表格呢 --------------------编程问答--------------------
已发到您的邮箱,请笑纳。 --------------------编程问答--------------------
太佩服你的了 --------------------编程问答-------------------- 服务真到位 --------------------编程问答-------------------- 非技术问题,转移! --------------------编程问答-------------------- 顶一下 --------------------编程问答-------------------- 顶一下 --------------------编程问答--------------------
补充:VB , 非技术类