Programı aşağıya yazdım program şu anda calışıyo fakat 2 tane sorunun icinde cıkmadım yardımcı olabilecek arkadaşlardan yardımlarını esirgememelerini istiyorum.
Sorun ŞU 1.Kayıt esnasında aynı kod girilmeyecek (orn.1.ci kod a kişi eklemişsek o o 1 combo clickden kalkacak.)
2.Kayıt aramada kombo kutusuna sadece kayıtlı olanların numarası gelecek mesela 5 kişiş kayıtlı acılınca 5 tane kayıt gostercek ben denemek icin bunu 100 yapmıştım ama bulamadım.Cokda uzman olduğum bi konu değl yardımcı olursanız sevinirim.İyi calışmalar.



FORM1
dim ad,soy,ev,suc as string
dim kod,ceza,k as integer
private sub command1_click()
form1.hide
form2.show
End sub
Private sub command2_click()
form1.hide
form3.show
end sub
private sub command3_click()
form1.hide
form4.show
private sub command4_click()
End
End Sub
FORM2
Private sub comand1_click()[KAYDET]
open "d:\suc.dat" for append as #1
ad=text1
soy=text2
kod=val(combo1.text)
if option1.value=true then suc="cinayet"
if option2.value=true then suc="gasp"
if option3.value=true then suc="teror"
ceza=val(combo2.text)
ev=combo3.text
write #1,ad,soy,kod,suc,ceza,ev
close #1
end sub
Private Sub command2_click()[TEMİZLE]
text1.text=""
text2.text=""
combo1.listindex=0
combo2.listindex=0
combo3.listindex=0
end sub
Private Sub command3_click[ANAMENU]
form2.hide
form1.show
end sub
Private sub Command4_click()[ONCEKİ TUM KAYITLARI SİL]
open "d:\suc.dat" for output as #1
close#1
end sub
FORM3
Private sub form_Load()
for k=1 to 100:combo1.additem k: next k
combo1.listindex=0
for k=1 to 30 : combo2.additem k: next k
combo2.listindex=0
combo3.additem "METRİS"
combo3.additem "TUZLA"
combo3.additem "SİVAS"
combo3.listindex=0
end sub
Private sub combo1_click()[KODU]
open "d:\suc.dat" for input as #1
ilyas:
if eof(1) then goto cakir
input #1,ad,soy,kod,suc,ceza,ev
if kod=val(combo1.text) then
text1.text=ad
text2.text=soy
text3.text=suc
text4.text=ceza
text5.text=ev
else
goto ilyas
cakir:
text1.text="":text2.text=""
text3.text="":text4.text=""
text5.text=""
end if
close #1
end sub
Private Sub Form_load()
form3.hide
form1.show
end sub
Private sub form_load()
for k=1 to 100:combo1.additem k:next k
combo1.listindex=0
end sub
FORM4
Private sub command1_click()[Listeleme]
open "d:\suc.dat" for input as #1
ilyas:
if eof(1) then goto serper
input #1,ad,soy,kod,suc,ceza,ev
list1.additem ad
list2.additem soy
list3.additem kod
list4.additem suc
list5.additem ceza
list6.additem ev
goto ilyas
cakir:
close #1
text1.text=list.listcount
end sub
Private sub command2_click()[ANA Menu]
form4.hide
form1.show
end sub
__________________