كود :
Dim File1, name1, number1, bsalary, a, B, n As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
File1 = Application.StartupPath & "\Asem.txt"
End Sub
Private Sub BtnAdd_Click(sender As Object, e As EventArgs) Handles BtnAdd.Click
If File1 = "" Then
MsgBox("الرجاء تحديدالملف المطلوب أولا", MsgBoxStyle.Critical, "الرجاء إكمال خطوات البحث")
Else
FileOpen(1, File1, OpenMode.Append)
WriteLine(1, TextBox1.Text)
WriteLine(1, TextBox2.Text)
WriteLine(1, TextBox3.Text)
WriteLine(1, TextBox4.Text)
WriteLine(1, TextBox5.Text)
WriteLine(1, TextBox6.Text)
FileClose(1)
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
End If
End Sub
Private Sub BtnSearch_Click(sender As Object, e As EventArgs) Handles BtnSearch.Click
Dim msg As String
If TextBox2.Text = "" Then
MsgBox("الرجاء إدخال الإسم في حقل الإسمَ", MsgBoxStyle.Critical, "الرجاء إكمال خطوات البحث")
Else
msg = TextBox2.Text
If File1 = "" Then
MsgBox("الرجاء تحديد المحافظة أو البلد المطلوب أولا", MsgBoxStyle.Critical, "الرجاء إكمال خطوات البحث")
Else
FileOpen(1, File1, OpenMode.Input)
Do While Not EOF(1)
Input(1, name1) : Input(1, number1) : Input(1, bsalary) : Input(1, a) : Input(1, B) : Input(1, n)
If msg = number1 Then
TextBox1.Text = name1
TextBox2.Text = number1
TextBox3.Text = bsalary
TextBox4.Text = a
TextBox5.Text = B
TextBox6.Text = n
End If
Loop
FileClose(1)
End If
End If
End Sub