zarrin_306
شنبه 23 مهر 1384, 15:09 عصر
او ل کد زیر رو داشته باش
Public Class Form1
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Structure emp
Dim code As Integer
Dim name As String
Dim lname As String
End Structure
Dim emp1 As emp
Dim filenum As Integer
Private Sub setfields()
emp1.code = TextBox1.Text
emp1.name = TextBox2.Text
emp1.lname = TextBox3.Text
End Sub
Private Sub restorefields()
TextBox1.Text = emp1.code
TextBox2.Text = emp1.name
TextBox3.Text = emp1.lname
End Sub
Private Sub clearing()
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
filenum = FreeFile()
FileOpen(filenum, "emp.txt", OpenMode.Random)
Dim myCulture As New Globalization.CultureInfo("fa-IR")
Dim mylanguage As InputLanguage
InputLanguage.CurrentInputLanguage = mylanguage.FromCulture(myCulture)
End Sub
Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
Call setfields()
If emp1.code > 0 Then
FilePut(filenum, emp1, emp1.code)
MsgBox("ذخیره شد")
Call clearing()
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim name1 As String
name1 = InputBox("enter name")
Dim i As Integer
i = 1
Seek(filenum, i)
While Not EOF(filenum)
Seek(filenum, i)
FileGet(filenum, emp1, i)
If emp1.name = name1 Then
restorefields()
Exit Sub
End If
i = i + 1
End While
MsgBox("نداریم")
clearing()
End Sub
End Class
خوب حال توجه کن
ببین دوست من کد بالا که zip آن در ادامه داده شده است
بخوبی کار میکند وللی یه مشکل دارد وآن هم اینه که
وقتی برای فراخوانی input box را صدامیزند
اگر درون آن از اسمی استفاده کنی که قبل وارد کردی در صورتی که حرف " ی " در ان موجود باشد آنرا
بر نمگرداند و میگوید نداریم
اما برای کلماتی که حرف ی ندارند خوب کار میکند
اگر مشکل برطرف شد که هیچ
ولی اگر شما روش بهتری داری تا یک رکورد را بر اساس نام فراخوانی کند برایم بفرستید
با تشکر
zarrin_306@lycos.com
Public Class Form1
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Structure emp
Dim code As Integer
Dim name As String
Dim lname As String
End Structure
Dim emp1 As emp
Dim filenum As Integer
Private Sub setfields()
emp1.code = TextBox1.Text
emp1.name = TextBox2.Text
emp1.lname = TextBox3.Text
End Sub
Private Sub restorefields()
TextBox1.Text = emp1.code
TextBox2.Text = emp1.name
TextBox3.Text = emp1.lname
End Sub
Private Sub clearing()
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
filenum = FreeFile()
FileOpen(filenum, "emp.txt", OpenMode.Random)
Dim myCulture As New Globalization.CultureInfo("fa-IR")
Dim mylanguage As InputLanguage
InputLanguage.CurrentInputLanguage = mylanguage.FromCulture(myCulture)
End Sub
Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
Call setfields()
If emp1.code > 0 Then
FilePut(filenum, emp1, emp1.code)
MsgBox("ذخیره شد")
Call clearing()
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim name1 As String
name1 = InputBox("enter name")
Dim i As Integer
i = 1
Seek(filenum, i)
While Not EOF(filenum)
Seek(filenum, i)
FileGet(filenum, emp1, i)
If emp1.name = name1 Then
restorefields()
Exit Sub
End If
i = i + 1
End While
MsgBox("نداریم")
clearing()
End Sub
End Class
خوب حال توجه کن
ببین دوست من کد بالا که zip آن در ادامه داده شده است
بخوبی کار میکند وللی یه مشکل دارد وآن هم اینه که
وقتی برای فراخوانی input box را صدامیزند
اگر درون آن از اسمی استفاده کنی که قبل وارد کردی در صورتی که حرف " ی " در ان موجود باشد آنرا
بر نمگرداند و میگوید نداریم
اما برای کلماتی که حرف ی ندارند خوب کار میکند
اگر مشکل برطرف شد که هیچ
ولی اگر شما روش بهتری داری تا یک رکورد را بر اساس نام فراخوانی کند برایم بفرستید
با تشکر
zarrin_306@lycos.com