استخدم قاعدة بيانات
افتح ملف عشوائي
open filename (name path of file)as #1 for random
ضع الي فوق في load form
________________
ضع الاسفل في button
print data1.field1,#1
for i = 1 to recordset.count
1 text1.text=data1.feild
textn.text=datan.feildn
next i