Форма 2 Вид формы, объекты формы
На рисунке 5 приводится вид первой формы «Начисления» программы. В ней использованы объекты «Button», «Label», «TextBox», «GroupBox».
Рис. 5. Форма «Начисления»
Программный код второй формы
Public Class Form2
Private Sub writesRub()
Dop.nach = txtNach.Text
FilePut(4, Dop, nDop)
txtT_num.Text = ""
txtNach.Text = ""
nDop += 1
If nDop <= kol Then
txtT_num.Text = nDop
Else
kol = nDop - 2
FileClose(4)
Me.Close()
End If
End Sub
Private Sub Form2_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
FileClose(4)
End Sub
Private Sub Form2_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
FileOpen(4, "Dop.dat", OpenMode.Random, _
OpenAccess.Default, OpenShare.Default, Len(Dop))
Dim p As Integer
p = LOF(4) / Len(Dop)
If p > kol Then
FileClose(4)
Me.Close()
End If
nDop = nkol
txtT_num.Text = nDop
End Sub
Private Sub cmdSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSave.Click
writesRub()
End Sub
End Class
Форма 3 Вид формы, объекты формы
На рисунке 6 приводится вид третьей формы «Удержания» программы. В ней использованы объекты «Button», «Label», «TextBox», «GroupBox».
Рис. 6. Форма «Удержания»
Программный код третьей формы
Public Class Form3
Dim s As Double
Private Sub readRab()
FileGet(3, Rab, nRab)
FileGet(4, Dop, nDop)
txtT_num.Text = Rab.t_num
Rab.uder_PF = Dop.nach * 0.01
Rab.uder_PN = (Dop.nach - s * Rab.count_l) * 0.12
TextBox1.Text = Rab.uder_PN
txtNach.Text = Rab.uder_PF
FilePut(3, Rab, nRab)
End Sub
Private Sub Form3_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
FileClose(3)
FileClose(4)
End Sub
Private Sub Form3_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
FileOpen(3, "Rab.dat", OpenMode.Random, _
OpenAccess.Default, OpenShare.Default, Len(Rab))
nRab = 1
FileOpen(4, "Dop.dat", OpenMode.Random, _
OpenAccess.Default, OpenShare.Default, Len(Dop))
nDop = 1
s = Val(InputBox("Введите размер МРОТ"))
readRab()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If nRab > 1 Then
nRab = nRab - 1
nDop = nDop - 1
readRab()
Else
MsgBox("Начало файла")
End If
End Sub
Private Sub ButDob_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButDob.Click
If nRab < LOF(3) / Len(Rab) Then
nRab = nRab + 1
nDop = nDop + 1
readRab()
Else
MsgBox("Конец файла")
End If
End Sub
End Class