同学录源码绚丽彩虹的简单介绍
本文目录一览：
Java同学录源代码
一个简单的同学录系统,有增、删、修改、查询、分页功能，非常适合JSP的初学者。 编程环境:MyEclipse+Access+Tomcat5.5 文件列表: index.jsp-------------------首页文件模块 add_new.jsp-----------------增加记录模块 modify.jsp------------------修改记录模块 del.jsp---------------------删除记录模块 save.jsp--------------------保存记录模块 search.jsp------------------查找记录模块 in.jsp----------------------导入常用的类模块 srcConDb.java--------------连接数据库的JavaBean 数据库文件:TXL.mdb 安装运行:解压后放入Tomcatwebapps 配置数据源:控制面板---数据源ODBC----系统DNS----添加-----Driver do Micrsoft Access(*.mdb) ----数据源名称:class----选择数据库文件所在目录 在浏览器下输入: QQ:137726
求VB同学录源代码，满意地给300分，急用
这是我玩的通讯录的代码，与同学录应该差不多吧
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
同学录的序言？
岁月如梭，青春如歌。x年擦肩而过，我们不知不觉已从懵懂少年踏入了不惑，回眸凝想，我们曾奋发向上，曾锲而不舍，演绎了一幕幕风采人生，谱写了一曲曲丹青华章。“再过20年我们再相会”，歌声仿佛就在昨天，而今，我们终于实现了梦寐以求的愿望---又一次相聚了！！
时光可以带走青春韶华，却带不走深厚的同窗情谊。x年的牵挂，促成了本次的相约相聚。总也忘不了教师里，我们苦学的背影，顽劣的身姿；更忘不了老师们不倦的教诲，同学们无私的帮助。岁月的长河冲刷去的只是零星的记忆，但浓浓的同学情、师生谊像陈年老酒越酿越香！真诚的友谊是永恒的，浓浓的祝福和思念将陪伴我们走过永远的春夏秋冬。
人生岂能尽如人意？逆境中，同学是一把火，点燃你的激情，教你屡败屡战，永不言弃；顺境里，同学是一块冰，劝你头脑清醒别热，宠辱不惊；风雨中，同学是相携相扶的臂膀，是遮风挡雨的那把伞；阳光里，同学是蓝天上飘荡的白云，是雨后的那一道绚丽彩虹。
通过这次具有历史意义的盛会，老师同学有了更多的沟通，进一步加强了联系，加深了同学情意；重叙旧情、互述衷肠之余，更能互相扶持，互相激励，我们的人生之路必将更加辉煌，更加美好。
一日同学，一世朋友，那是割不断的情，那是分不开的缘。“千年修得共枕眠，百年修得同船渡”，我们是“三世修得同窗读”。让我们，都珍惜这同学情吧！这是除爱情、亲情、友情、战友情外，人生又一种美好的、不可或缺的、值得终生回味的、永不褪色的真感情。
一册同学录，真情牵挂在此打结。愿我们常聚常思念，愿我们的友谊天长地久！
