| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1743 人关注过本帖
标题:编写校友通讯录程序
取消只看楼主 加入收藏
Loveyourself
Rank: 1
等 级:新手上路
帖 子:25
专家分:0
注 册:2007-6-18
收藏
 问题点数:0 回复次数:15 
编写校友通讯录程序
谁愿意帮我啊,谢谢了啊,我不会啊
搜索更多相关主题的帖子: 通讯录 校友 编写 
2007-06-18 16:18
Loveyourself
Rank: 1
等 级:新手上路
帖 子:25
专家分:0
注 册:2007-6-18
收藏
得分:0 
会者不难,可是难者不会啊,因为我不会

生命理应追求阳光
2007-06-18 16:19
Loveyourself
Rank: 1
等 级:新手上路
帖 子:25
专家分:0
注 册:2007-6-18
收藏
得分:0 
sk可是我这几天等着要用啊,临时抱佛脚有用吗,以后我会加油的,可是现在我就过不去啊,你们能把代码写给我吗

生命理应追求阳光
2007-06-19 07:58
Loveyourself
Rank: 1
等 级:新手上路
帖 子:25
专家分:0
注 册:2007-6-18
收藏
得分:0 
回复:(jaychang)只叫别人给你做出来也没用呀.用最基...

嗯,我也知道啊,只是我现在等着要用啊,没有时间了啊


生命理应追求阳光
2007-06-19 07:59
Loveyourself
Rank: 1
等 级:新手上路
帖 子:25
专家分:0
注 册:2007-6-18
收藏
得分:0 
嗯,是啊,我会努力的..以下是引用西山居士在2007-6-18 20:10:33的发言:
不会不怕,怕的是不学,只要努力去学,最终都能会了。


生命理应追求阳光
2007-06-19 08:05
Loveyourself
Rank: 1
等 级:新手上路
帖 子:25
专家分:0
注 册:2007-6-18
收藏
得分:0 
回复:(b13690976754)[em03]没人会帮你的。如果你来...
你怎么没有屿心啊,我现在是没有退路啊,要不我会这样吗,我没有时间啊,过了这关后我一定好好学习,以后遇到别人不懂的我一定会先帮他们解决问题而不是在这里说道理,我会挂科的啊

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

生命理应追求阳光
2007-06-19 15:12
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
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
快速回复:编写校友通讯录程序
数据加载中...
 
   



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

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