ورود

نسخه کامل مشاهده نسخه کامل : برنامه ساده دفترچه تلفن



sama_65
05-01-2007, 18:42
سلام به اهالی خوب پی سی ورلد

من یه برنامه ی ساده دفتر چه تلفن نوشتم با وی بی که امکان جستجو از طریق شماره تلفن رو داشته باشه.
حالا میخوام یه جوری بشه که این امکان جستجو از طریق دیگر گزینه های اون یعنی : اسم، فامیل، آدرس وجود داشته باشه

ممنون میشم سریعتر کمکم کنین



کد برنامه برای کلید جستجو :



Private Sub Command3_Click()
Open "D:\test.txt" For Input As #1
Do While Not EOF(1)
Input #1, a, b, c
If c = "" & Text3.Text & "" Then
Text1.Text = a
Text2.Text = b
Exit Do
End If
Loop
Close
End Sub



کد برنامه برای کلید ثبت :


Private Sub Command1_Click()
Open "D:\test.txt" For Append As #1
Write #1, Text1.Text, Text2.Text, Text3.Text, Text4.Text
Close #1
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub

payam2200#
09-01-2007, 15:05
برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
به جای aaa اسم table و به جای name هم نام مورد نظر