| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1743 人关注过本帖
标题:编写校友通讯录程序
只看楼主 加入收藏
西山居士
Rank: 4
等 级:贵宾
威 望:11
帖 子:581
专家分:0
注 册:2007-4-21
收藏
得分:0 
请勿再发站内信息,不是大家不帮你,而是大家希望的是学习与交流,论坛不是“代码救助站”,不可能你要什么代码大家就完整的给你写出来。如果你真是太急用,学不及了。去找个人花点RMB算了。这样也是对你以后努力学习的激励~~~~~

2007-06-19 15:01
Loveyourself
Rank: 1
等 级:新手上路
帖 子:25
专家分:0
注 册:2007-6-18
收藏
得分:0 
回复:(西山居士)请勿再发站内信息,不是大家不帮你...
[em01]

生命理应追求阳光
2007-06-19 15:12
Joforn
Rank: 6Rank: 6
等 级:贵宾
威 望:23
帖 子:1242
专家分:122
注 册:2007-1-2
收藏
得分:0 

警告楼上的:请不要在技术区灌水,下次发现直接删除。


VB QQ群:47715789
2007-06-19 15:33
Loveyourself
Rank: 1
等 级:新手上路
帖 子:25
专家分:0
注 册:2007-6-18
收藏
得分:0 
回复:(Joforn)警告楼上的:请不要在技术区灌水,下...


生命理应追求阳光
2007-06-19 15:45
Loveyourself
Rank: 1
等 级:新手上路
帖 子:25
专家分:0
注 册:2007-6-18
收藏
得分:0 
回复:(Loveyourself)编写校友通讯录程序

自己来解决自己的问题,求人不如求己::
Option Explicit

Dim fileName As String
Private Sub Command1_Click()
'将文本框中的信息添加到列表框中
Dim i As Integer
With ListView1.ListItems.Add()
.Text = Text1(0)
For i = 1 To 4
.SubItems(i) = Text1(i)
Next i
End With
End Sub

Private Sub Command2_Click()
'删除列表框中信息
If ListView1.ListItems.Count > 0 Then
If MsgBox("真的要删除吗?", vbQuestion + vbYesNo + vbDefaultButton2) = vbYes Then
ListView1.ListItems.Remove ListView1.SelectedItem.Index
End If
End If
End Sub

Private Sub Form_Load()
Dim tpStr As String, i As Integer, j As Integer
Me.Caption = "通讯录"
For j = 0 To 4
Text1(j).Text = ""
Next j

fileName = App.Path & "\data.txt"
If Dir(fileName) <> "" Then
'加载数据
Open fileName For Input As #1
Do While Not EOF(1)
With ListView1.ListItems.Add()
For i = 0 To 4
Line Input #1, tpStr
If i = 0 Then
.Text = tpStr
Else
.SubItems(i) = tpStr
End If
Next i
End With
Loop
Close #1
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
Dim i As Integer
Dim tpList As ListItem
'保存数据
Open fileName For Output As #1
For Each tpList In ListView1.ListItems
Print #1, tpList.Text
For i = 1 To 4
Print #1, tpList.SubItems(i)
Next i
Next tpList
Close #1
End Sub


生命理应追求阳光
2007-06-20 09:03
西山居士
Rank: 4
等 级:贵宾
威 望:11
帖 子:581
专家分:0
注 册:2007-4-21
收藏
得分:0 
祝你成功,有什么具体问题大家会帮你的。

2007-06-20 10:03
hearo
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2007-6-18
收藏
得分:0 
很好吗,继续努力
2007-06-20 14:00
Loveyourself
Rank: 1
等 级:新手上路
帖 子:25
专家分:0
注 册:2007-6-18
收藏
得分:0 

Dim con
Dim link, sql As String

Set con = CreateObject("ADODB.Connection")
link = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;"
link = link & "Data Source=" & App.Path & "\DATA\UserData.mdb"
sql = "delete * from temp"
con.Open link
rs.Open sql, con, 3, 3 '写入数据库

Set rs = Nothing
con.Close
Set con = Nothing


生命理应追求阳光
2007-06-20 15:58
Loveyourself
Rank: 1
等 级:新手上路
帖 子:25
专家分:0
注 册:2007-6-18
收藏
得分:0 
代码
Option Explicit
private Sub Command1_click()
Data1.Recordset.AddNew. '添加新记录
End Sub

Private Sub Command2_Click()
Data1.UpdateRecord '添加记录后更新
Data1.Recordset.Bookmark=Data Recordset_Last Modified
End Sub

Private Sub Command3_Click
Dim msg As string '删除记录
msg="是否确定要删除记录"&Chr$(10)
msg=msg&Text1.Text
IfMsgBox(msg,17,"删除记录?")<>1 Then Exit sub
on Error Go To Handle
Data1.Recordset.MoveNext
If Data1.Recordset.EOFThen Date1.Recordset.MovePrevious
Handle:
Msg Box"该记录不能删除!!" '原记录不能被删除
End sub

Private Sub Commond_Click()
Dim msgfind As string '查找记录
msgfind=Input Box("请输入要查找的公司名:","查找记录"
If msgfind<>""Then data1.Recordset.FindFirst("[companyName]=msgfind"
End Sub
private Sub Command5_Click()
End
End Sub




生命理应追求阳光
2007-06-21 16:04
Loveyourself
Rank: 1
等 级:新手上路
帖 子:25
专家分:0
注 册:2007-6-18
收藏
得分:0 
回复:(hearo)很好吗,继续努力
谢谢啦

生命理应追求阳光
2007-06-21 16:06
快速回复:编写校友通讯录程序
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016991 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved