یه مشکل توپ از حرفه ایاش کمک میخوام

[zarrin_306]

سلام دوستان
من از کد زیر برای ذخیره استفاده کردم
حال با مشکلات که میگم برخورد کردم
1-از openmode.random استفاده کردن که خوب بود ولی نتوانستم طول رکود را زیاد کنم وبا وارد کردن حداکثر دوخط پر میشود
اگر کسی بلده منو کمک کنه
2-بدلیل کمبود طول رکورد از openmode .binary استفاده کردم که خوب بود وطول رکورد خوبی داره اما نمتوانم به روش زیر با آن برخورد کنم
الف – نمیتوان کد های نزدیک به هم را ذخیره کرم مانند(101و102) باوارد کردن 101 اطلاعات ذخیره میشود ولی اگر102 راوارد کردی اطلاعا 102 برروی اطلاعات 101 ذخیره میشود و101 از کار میافتد
ولی برای اعدادی که نزدیک نیستند خوب ا ست ما نند101,201,301,401
ب- با وارد کردن اطلاعات کد اول کد آنها مثل هم است اطلاعات قبلی راحذف کرده وخود جاینشین میشود
مانند101,102,105,150,180,125,136,.....
اما برای کدهای مختلف درست است مانند102,203,305,506,408…..,
Public Structure emp
Dim code As Integer
Dim name As String
End Structure
Dim emp1 As emp
Dim filenum As Integer
Private Sub inittextbox()
TextBox1.Clear()
TextBox2.Clear()
End Sub
Private Sub setfield()
emp1.code = TextBox1.Text
emp1.name = TextBox2.Text
End Sub
Private Sub restory()
TextBox1.Text = emp1.code
TextBox2.Text = emp1.name
End Sub


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MBase.Load
filenum = FreeFile()
Call inittextbox()
FileOpen(filenum, "txt.txt", OpenMode.Random)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call setfield()
If emp1.code > 0 Then
FilePut(filenum, emp1, emp1.code)
MsgBox("record")
End If
Call inittextbox()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim code1 As Integer
code1 = Val(InputBox("enter no"))
If code1 = 0 Then
MsgBox("enter anumber>0")
Exit Sub
End If
Seek(filenum, code1)
FileGet(filenum, emp1)
Call restory()
End Sub
Protected Overrides Sub finalize()
MyBase.Finalize()
FileClose(filenum)
End
End Sub :گریه:
فایل کمکی را هم بایتان فرستادم