.


:




:

































 

 

 

 


17.2. Open (html, txt)




, , , , , , , . . , , . , Ctrl+Pause Break - , , .

- , , , . , MS Office , , . , , , .

frm_In.

frm_In

17.3 frm_In.

Private Sub cmd_Exit_Click()

frm_In.Hide

' frm_In

' frm_Main

End Sub

 

Private Sub cmd_Rec_Click()

'

Dim num_Address

'

num_Address = ActiveSheet.Range("B1") + _

ActiveSheet.Range("B2")

'

ActiveSheet.Cells(num_Address, 1) = _

ActiveSheet.Range("B1")

'

ActiveSheet.Cells(num_Address, 2) = _

Date

' -

ActiveSheet.Cells(num_Address, 3) = _

cbo_Type.Value

' -

ActiveSheet.Cells(num_Address, 4) = _

Val(txt_Sum)

' -

ActiveSheet.Cells(num_Address, 5) = _

txt_Info

'

ActiveSheet.Range("B1") = _

ActiveSheet.Range("B1") + 1

'

Initial

End Sub

 

Private Sub UserForm_Activate()

'

'

Initial

End Sub

 

Sub Initial()

'

lbl_Date = Date

lbl_RecNum = ActiveSheet.Range("B1")

cbo_Type.Clear

cbo_Type.AddItem ""

cbo_Type.AddItem ""

cbo_Type.Value = ""

txt_Info = ""

txt_Sum = ""

End Sub

17.3. frm_In (html, txt)

frm_Out

frm_Out

17.4 frm_Out. Load_Data(). num_Index - , . , .

Private Sub UserForm_Initialize()

'

Load_Data (1)

End Sub

 

Private Sub cmd_Backward_Click()

'

If Val(lbl_RecNum) > 1 Then

Load_Data (Val(lbl_RecNum) - 1)

End If

End Sub

 

Private Sub cmd_Exit_Click()

frm_Out.Hide

End Sub

 

Private Sub cmd_First_Click()

'

Load_Data (1)

End Sub

 

Private Sub cmd_Forward_Click()

'

If Val(lbl_RecNum) < ActiveSheet.Range("B1") Then

Load_Data (Val(lbl_RecNum) + 1)

End If

End Sub

 

Private Sub cmd_Last_Click()

'

Load_Data (ActiveSheet.Range("B1") - 1)

End Sub

 

Private Sub cld_First_Click()

' ,

'

'

For i = 1 To ActiveSheet.Range("B1") - 1

If ActiveSheet.Cells _

(i + ActiveSheet.Range("B2"), 2) = _

cld_First.Value Then

Load_Data (i)

Exit For

End If

Next i

End Sub

 

Private Sub cmd_Rec_Click()

'

Dim num_Address

'

num_Address = Val(lbl_RecNum + _

ActiveSheet.Range("B2"))

'

' -

'

'

ActiveSheet.Cells(num_Address, 4) = _

Val(txt_Sum)

'

ActiveSheet.Cells(num_Address, 5) = _

txt_Info

End Sub

 

Sub Load_Data(num_Index As Integer)

'

'

'

Dim num_Address

'

num_Address = num_Index + _

ActiveSheet.Range("B2")

'

lbl_RecNum = _

ActiveSheet.Cells(num_Address, 1)

'

lbl_Date = _

ActiveSheet.Cells(num_Address, 2)

'

lbl_Type = _

ActiveSheet.Cells(num_Address, 3)

'

txt_Sum = _

ActiveSheet.Cells(num_Address, 4)

'

txt_Info = _

ActiveSheet.Cells(num_Address, 5)

End Sub





:


: 2016-09-06; !; : 337 |


:

:

, , 1:10
==> ...

964 - | 936 -


© 2015-2024 lektsii.org - -

: 0.015 .