کمک فوری دفترچه تلفن

[mili_n]

سلام دوستان...
من تا 4 5روز دیگه باید پروژه مبتنی بر وب رو بدمhttp://www.mobilestan.net/images/smilies/yahoo/17.gifhttp://www.mobilestan.net/images/smilies/yahoo/17.gif
یه دفترچه تلفن ساده با (visual studio.net http://www.mobilestan.net/images/smilies/yahoo/26.gifhttp://www.mobilestan.net/images/smilies/yahoo/43.gif
توضیحات تکمیلی:
1- یک دفترچه تلفن طراحی کنید . ( امکان وارد کردن – حذف – ویرایش و جستجو بر اساس نام و نام خانوادگی و شماره تلفن وجود داشته باشد . )
هرکسی از دوستان هم برام انجام داد انشاالله از خجالتش در میام

[Asad.Safari]

پروژه دانشجویی ممنوع است -

البته طبق قوانین سایت - مطالعه نمایید.

موفق باشید

[klinton]

لطفا سعی کنید یاد بگیرید نه کپی بگیرید . سورس برنامه رو واستون میزارم ولی یه کوچلو تغییر میخاد

[klinton]

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim st As student
st.name = TextBox1.Text
st.lname = TextBox2.Text
st.id = TextBox3.Text
FileOpen(1, "st.rnd", OpenMode.Random)
FilePut(1, st, st.id)
MsgBox("inserted")
FileClose(1)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
FileClose(1)
FileOpen(1, "st.rnd", OpenMode.Random)
Dim inid As Integer
inid = InputBox("enter id")
Seek(1, inid)
FileGet(1, st, inid)

TextBox1.Text = st.name
TextBox2.Text = st.lname
TextBox3.Text = st.id
FileClose(1)
End Sub
End Class
Public Structure student
Dim name As String
Dim lname As String
Dim id As Integer
End Structure