datwika . Open App.Path & "\datwika.dat" For Random As #1 Len = Len(dat). Form_Load , Open App.Path & , . datwika , For Random , As #1 , Len = Len(dat) .
Put#1, id, dat, / . Put , #1 id , dat .
Get #1, id, dat, Get - , #1 - , id - , , dat - , . . , . Command2_Click. List1 List1.Clear, , id, id = 1, Seek #1, id
, #1 - , id - , . Do While Not EOF(1) , , Do While Not , , true, EOF(1) true, 1.
:
Private Type datwika
nam As String * 20
pz As String * 10
pog As String * 10
dip As String * 10
pit As String * 10
tem As String * 10
sig As String * 10
rez As String * 10
cena As String * 10
cvet As String * 10
End Type
15
Dim dat As datwika
Dim id As Long
Private Sub Command1_Click()
List1.Clear
End Sub
Private Sub Form_Load()
Open App.Path & "\datwika.dat" For Random As #1 Len = Len(dat)
End Sub
Private Sub Put1_Click()
If Text7.Text > 0 Then id = Text7.Text Else id = 1
If Text7.Text <= 0 Then Text7.Text = 1
dat.nam = Text1.Text
dat.pz = Text2.Text
dat.pog = Text3.Text
dat.dip = Text4.Text
dat.pit = Text5.Text
dat.tem = Text6.Text
dat.sig = Text9.Text
dat.rez = Text10.Text
dat.cena = Text11.Text
dat.cvet = Text12.Text
Put #1, id, dat
End Sub
Private Sub Get1_Click()
If Text7.Text > 0 Then id = Text7.Text Else id = 1
|
|
If Text7.Text <= 0 Then Text7.Text = 1
Get #1, id, dat
Text1.Text = dat.nam
Text2.Text = dat.pz
Text3.Text = dat.pog
Text4.Text = dat.dip
Text5.Text = dat.pit
Text6.Text = dat.tem
Text9.Text = dat.sig
Text10.Text = dat.rez
Text11.Text = dat.cena
Text12.Text = dat.cvet
End Sub
Private Sub First_Click()
List1.Clear
id = 1
Get #1, id, dat
Text1.Text = dat.nam
Text2.Text = dat.pz
Text3.Text = dat.pog
Text4.Text = dat.dip
Text5.Text = dat.pit
Text6.Text = dat.tem
Text9.Text = dat.sig
Text10.Text = dat.rez
Text11.Text = dat.cena
16
Text12.Text = dat.cvet
Text7.Text = id
End Sub
Private Sub Last_Click()
List1.Clear
id = LOF(1) / Len(dat)
Get #1, id, dat
Text1.Text = dat.nam
Text2.Text = dat.pz
Text3.Text = dat.pog
Text4.Text = dat.dip
Text5.Text = dat.pit
Text6.Text = dat.tem
Text9.Text = dat.sig
Text10.Text = dat.rez
Text11.Text = dat.cena
Text12.Text = dat.cvet
Text7.Text = id
End Sub
Private Sub Up_Click()
List1.Clear
If id > 1 Then id = id - 1 Else id = 1
Get #1, id, dat
Text1.Text = dat.nam
Text2.Text = dat.pz
Text3.Text = dat.pog
Text4.Text = dat.dip
Text5.Text = dat.pit
Text6.Text = dat.tem
Text9.Text = dat.sig
Text10.Text = dat.rez
Text11.Text = dat.cena
Text12.Text = dat.cvet
Text7.Text = id
End Sub
Private Sub Down_Click()
List1.Clear
If id < LOF(1) / Len(dat) Then id = id + 1 Else id = LOF(1) / Len(dat)
Get #1, id, dat
Text1.Text = dat.nam
Text2.Text = dat.pz
Text3.Text = dat.pog
Text4.Text = dat.dip
Text5.Text = dat.pit
Text6.Text = dat.tem
Text9.Text = dat.sig
Text10.Text = dat.rez
Text11.Text = dat.cena
Text12.Text = dat.cvet
Text7.Text = id
End Sub
17
Private Sub command2_Click()
List1.Clear
id = 1
Seek #1, id
Do While Not EOF(1)
Get #1, id, dat
If InStr(UCase(dat.cena), UCase(Text8.Text)) > 0 Or InStr(UCase(dat.cvet), UCase(Text8.Text)) > 0 Or InStr(UCase(dat.dip), UCase(Text8.Text)) > 0 Or InStr(UCase(dat.nam), UCase(Text8.Text)) > 0 Or InStr(UCase(dat.pit), UCase(Text8.Text)) > 0 Or InStr(UCase(dat.pog), UCase(Text8.Text)) > 0 Or InStr(UCase(dat.pz), UCase(Text8.Text)) > 0 Or InStr(UCase(dat.rez), UCase(Text8.Text)) > 0 Or InStr(UCase(dat.sig), UCase(Text8.Text)) > 0 Or InStr(UCase(dat.tem), UCase(Text8.Text)) > 0 Then List1.AddItem id & " | " & dat.nam & " | " & dat.pz & " | " & dat.pog & " | " & dat.dip & " | " & dat.pit & " | " & dat.tem & " | " & dat.sig & " | " & dat.rez & " | " & dat.cena & " | " & dat.cvet
id = id + 1
Loop
End Sub
.
, , . Wika . .
, , .
, Visual Basic. , . Visual Basic .
|
|
1. . / . ... .: , 2005.
2. : / .. [ .]. /: , 2007.
3. vb book.ru, vb zero. narod.ru.