Форма 4 Вид формы, объекты формы
На рисунке 7 приводится вид четвёртой формы «Общая сумма зарплат» программы. В ней использованы объекты «Button», «Label», «TextBox», «GroupBox».
Рис. 7. Форма «Общая сумма зарплат»
Программный код четвёртой формы
Public Class Form4
Dim s As Integer
Private Sub Writeread()
FileGet(3, Rab, nRab)
FileGet(4, Dop, nDop)
txt_tnum.Text = nRab
txt_sum.Text = Dop.nach - (Rab.uder_PF + Rab.uder_PN)
End Sub
Private Sub Form4_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
FileClose(3)
FileClose(4)
End Sub
Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
FileOpen(3, "Rab.dat", OpenMode.Random, _
OpenAccess.Default, OpenShare.Default, Len(Rab))
FileOpen(4, "Dop.dat", OpenMode.Random, _
OpenAccess.Default, OpenShare.Default, Len(Dop))
kol = LOF(3) / Len(Rab)
s = Val(InputBox("Введите табельный номер"))
While s < 1 Or s > kol
MsgBox("Неправильный введенный номер." & Chr(13) & Chr(10) & "Максимальное значение " & kol)
s = Val(InputBox("Введите табельный номер"))
End While
nRab = s
nDop = s
Writeread()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
s = Val(InputBox("Введите табельный номер"))
While s < 1 Or s > kol
MsgBox("Неправильный введенный номер." & Chr(13) & Chr(10) & "Максимальное значение " & kol)
s = Val(InputBox("Введите табельный номер"))
End While
nRab = s
Writeread()
End Sub
End Class
Форма 5 Вид формы, объекты формы
На рисунке 8 приводится вид пятой формы «Расчёт зарплаты к выдаче» программы. В ней использованы объекты «Button», и «GroupBox».
Рис. 8. Форма «Расчёт зарплаты к выдаче»
Программный код 5 формы
Public Class main
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim form_1 As Form1 = New Form1
form_1.Show()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim form_2 As Form2 = New Form2
form_2.Show()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim form_3 As Form3 = New Form3
form_3.Show()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim form_4 As Form4 = New Form4
form_4.Show()
End Sub
End Class
Программный код модуля
Structure Rabotnik
<VBFixedString(40), System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices. _
UnmanagedType.ByValTStr, SizeConst:=20)> Public I_r As String
<VBFixedString(40), System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices. _
UnmanagedType.ByValTStr, SizeConst:=20)> Public F_r As String
<VBFixedString(40), System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices. _
UnmanagedType.ByValTStr, SizeConst:=20)> Public Ot_r As String
Dim t_num As Integer
Dim num_ot As Integer
Dim count_l As Integer
Dim uder_PF As Double
Dim uder_PN As Double
End Structure
Structure Dopolnitelno
Dim nach As Double
End Structure
Module Module1
Public Rab As Rabotnik
Public Dop As Dopolnitelno
Public nRab As Integer
Public nDop As Integer
Public kol As Integer
Public nkol As Integer
End Module