ΠΠ°ΠΊΠ»ΡΡΠ΅Π½ΠΈΠ΅.
Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·ΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠ³ΠΎ ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ ΠΌΠ΅ΡΡΠ° ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠ° ΠΏΠΎ ΠΏΡΠΈΠ΅ΠΌΡ ΠΏΠ»Π°ΡΠ΅ΠΆΠ΅ΠΉ ΠΠ "ΠΠ°Π·ΠΏΠΎΡΡΠ°"
ΠΠΈΠ³ΠΎ Π‘. Π. «ΠΡΠΎΠ΅ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ Π±Π°Π· Π΄Π°Π½Π½ΡΡ » — Π.: Π€ΠΈΠ½Π°Π½ΡΡ ΠΈ ΡΡΠ°ΡΠΈΡΡΠΈΠΊΠ°, 1995. Caption = «ΠΠ½ΠΈΠΌΠ°Π½ΠΈΠ΅ Π΄Π°Π½Π½Π°Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΠΏΡΠ΅Π΄Π½Π°Π·Π½Π°ΡΠ΅Π½Π½Π° Π΄Π»Ρ Π½Π΅ΠΊΠΎΠΌΠ΅ΡΡΠ΅ΡΠΊΠΎΠ³ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ.». ΠΡΠΈ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅ ΠΊΡΡΡΠΎΠ²ΠΎΠΉ ΡΠ°Π±ΠΎΡΡ Π±ΡΠ»ΠΈ ΡΠ΅ΡΠ΅Π½Ρ ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ ΠΏΠΎΡΡΠ°Π²Π»Π΅Π½Π½ΡΠ΅ Π·Π°Π΄Π°ΡΠΈ, Π° ΠΈΠΌΠ΅Π½Π½ΠΎ: Const KEY_ALL_ACCESS = KEY_QUERY_VALUE + KEY_SET_VALUE + KEY_CREATE_SUB_KEY + KEY_ENUMERATE_SUB_KEYS + KEY_NOTIFY + KEY_CREATE_LINK… Π§ΠΈΡΠ°ΡΡ Π΅ΡΡ >
ΠΠ°ΠΊΠ»ΡΡΠ΅Π½ΠΈΠ΅. Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·ΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠ³ΠΎ ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ ΠΌΠ΅ΡΡΠ° ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠ° ΠΏΠΎ ΠΏΡΠΈΠ΅ΠΌΡ ΠΏΠ»Π°ΡΠ΅ΠΆΠ΅ΠΉ ΠΠ "ΠΠ°Π·ΠΏΠΎΡΡΠ°" (ΡΠ΅ΡΠ΅ΡΠ°Ρ, ΠΊΡΡΡΠΎΠ²Π°Ρ, Π΄ΠΈΠΏΠ»ΠΎΠΌ, ΠΊΠΎΠ½ΡΡΠΎΠ»ΡΠ½Π°Ρ)
Π Π½Π°ΡΡΠΎΡΡΠ΅Π΅ Π²ΡΠ΅ΠΌΡ ΠΊΡΡΠΏΠ½ΡΠ΅ ΠΏΡΠ΅Π΄ΠΏΡΠΈΡΡΠΈΡ ΡΠΆΠ΅ Π½Π΅ ΠΌΠΎΠ³ΡΡ ΠΎΠ±ΠΎΠΉΡΠΈΡΡ Π±Π΅Π· ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ ΡΠΈΡΡΠ΅ΠΌ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·Π°ΡΠΈΠΈ, ΠΏΠΎΠ·Π²ΠΎΠ»ΡΡΡΠΈΡ ΡΡΡΠ΅ΠΊΡΠΈΠ²Π½ΠΎ Ρ ΡΠ°Π½ΠΈΡΡ, ΠΈΠ·Π²Π»Π΅ΠΊΠ°ΡΡ ΠΈ Π°Π½Π°Π»ΠΈΠ·ΠΈΡΠΎΠ²Π°ΡΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ ΠΈ ΡΠΏΡΠ°Π²Π»ΡΡΡ Π±ΠΎΠ»ΡΡΠΈΠΌΠΈ ΠΎΠ±ΡΠ΅ΠΌΠ°ΠΌΠΈ Π΄Π°Π½Π½ΡΡ .
ΠΡΠΈ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅ ΠΊΡΡΡΠΎΠ²ΠΎΠΉ ΡΠ°Π±ΠΎΡΡ Π±ΡΠ»ΠΈ ΡΠ΅ΡΠ΅Π½Ρ ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ ΠΏΠΎΡΡΠ°Π²Π»Π΅Π½Π½ΡΠ΅ Π·Π°Π΄Π°ΡΠΈ, Π° ΠΈΠΌΠ΅Π½Π½ΠΎ:
- 1) ΠΎΠ±ΠΎΡΠ½ΠΎΠ²Π°Π½Π° Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎΡΡΡ ΠΏΡΠΈΠΌΠ΅Π½Π΅Π½ΠΈΡ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ½ΠΎΠΉ ΡΠ΅Ρ Π½ΠΈΠΊΠΈ;
- 2) ΡΠΎΠ·Π΄Π½Π° Π±Π°Π·Π΄Π°Π½Π½ΡΡ Π΄Π»Ρ Ρ ΡΠ°Π½Π΅Π½ΠΈΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ;
- 3) ΡΠ°Π·ΡΠ°Π±ΠΎΡΠ°Π½ΠΎ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·ΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠ΅ ΡΠ°Π±ΠΎΡΠ΅Π΅ ΠΌΠ΅ΡΡΠΎ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠ° ΠΏΠΎ ΠΏΡΠΈΠ΅ΠΌΡ ΠΏΠ»Π°ΡΠ΅ΠΆΠ΅ΠΉ Π² ΡΡΠ΅Π΄Π΅ VB.
ΠΠ»Ρ ΡΠ΅ΡΠ΅Π½ΠΈΡ Π·Π°Π΄Π°ΡΠΈ ΠΏΠ΅ΡΠ΅Π½ΠΎΡΠΈΠΌΠΎΡΡΠΈ Π½Π° ΡΠ°Π±ΠΎΡΠΈΠ΅ ΡΡΠ°Π½ΡΠΈΠΈ ΠΈ Π΄Π»Ρ ΡΠΎΠ³ΠΎ, ΡΡΠΎΠ±Ρ Π½Π΅ ΡΡΡΠ°Π½Π°Π²Π»ΠΈΠ²Π°ΡΡ Π΄ΠΎΠΏΠΎΠ»Π½ΠΈΡΠ΅Π»ΡΠ½ΠΎΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠ΅ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΠ΅ Π½Π° ΡΠ°Π±ΠΎΡΠΈΠ΅ ΡΡΠ°Π½ΡΠΈΠΈ, Π±ΡΠ»ΠΎ ΠΏΡΠΈΠ½ΡΡΠΎ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡΡ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΡ ΡΠ΅ΡΠ΅Π· ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡ Π½Π° ΠΎΡΠ½ΠΎΠ²Π΅ ΠΏΠ»Π°ΡΡΠΎΡΠΌΡ Microsoft Windows XP Professional. ΠΠ»Ρ Ρ ΡΠ°Π½Π΅Π½ΠΈΡ ΠΈ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠΈ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ ΡΠ΅ΡΠ΅Π½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΠΈΡΡΠ΅ΠΌΡ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ Π±Π°Π·Π°ΠΌΠΈ Π΄Π°Π½Π½ΡΡ Microsoft Office Access 2003. Π ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡΠ° Π΄ΠΎΡΡΡΠΏΠ° ΡΠΎ ΡΡΠΎΡΠΎΠ½Ρ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΉ ΠΈ Π°Π΄ΠΌΠΈΠ½ΠΈΡΡΡΠ°ΡΠΎΡΠΎΠ² ΡΠΈΡΡΠ΅ΠΌΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅, ΡΠ°Π·ΡΠ°Π±ΠΎΡΠ°Π½Π½ΠΎΠ΅ Π² ΡΡΠ΅Π΄Π΅ Visual Basic Π΄Π»Ρ ΡΡΠ΅Π΄Ρ Windows.
Π‘ΠΏΠΈΡΠΎΠΊ Π»ΠΈΡΠ΅ΡΠ°ΡΡΡΡ
- 1. Microsoft Corporation, ΠΡΠΎΠ΅ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΠΈ ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΡ Π±Π°Π· Π΄Π°Π½Π½ΡΡ Microsoft SQL Server 2000. Π£ΡΠ΅Π±Π½ΡΠΉ ΠΊΡΡΡ MCAD/MCSE, MCDBA, Π. ΠΠ·Π΄Π°ΡΠ΅Π»ΡΡΠΊΠΎ-ΡΠΎΡΠ³ΠΎΠ²ΡΠΉ Π΄ΠΎΠΌ «Π ΡΡΡΠΊΠ°Ρ Π Π΅Π΄Π°ΠΊΡΠΈΡ», 2003
- 2. Π£ΠΈΠ»ΡΡΠΌ Π . Π‘ΡΠ°Π½Π΅ΠΊ Internet Information Services 5.0. Π‘ΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊ Π°Π΄ΠΌΠΈΠ½ΠΈΡΡΡΠ°ΡΠΎΡΠ°. Π.: ΠΠ·Π΄Π°ΡΠ΅Π»ΡΡΠΊΠΎ-ΡΠΎΡΠ³ΠΎΠ²ΡΠΉ Π΄ΠΎΠΌ «Π ΡΡΡΠΊΠ°Ρ Π Π΅Π΄Π°ΠΊΡΠΈΡ», 2002
- 5. Π’ΠΈΠΏΠΎΠ²ΡΠ΅ Π½ΠΎΡΠΌΡ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ Π½Π° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π·Π°Π΄Π°Ρ Π΄Π»Ρ ΠΠΠ. — Π.: ΠΠΊΠΎΠ½ΠΎΠΌΠΈΠΊΠ°, 2002.
- 6. Π£ΠΊΡΡΠΏΠ½Π΅Π½Π½ΡΠ΅ Π½ΠΎΡΠΌΡ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ Π½Π° ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΡ ΡΡΠ΅Π΄ΡΡΠ² Π²ΡΡΠΈΡΠ»ΠΈΡΠ΅Π»ΡΠ½ΠΎΠΉ ΡΠ΅Ρ Π½ΠΈΠΊΠΈ. Π£ΠΊΡΡΠΏΠ½Π΅Π½Π½ΡΠ΅ Π½ΠΎΡΠΌΡ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ Π½Π° ΠΈΠ·Π³ΠΎΡΠΎΠ²Π»Π΅Π½ΠΈΠ΅ ΠΈ ΡΠΎΠΏΡΠΎΠ²ΠΎΠΆΠ΄Π΅Π½ΠΈΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΡ ΡΡΠ΅Π΄ΡΡΠ² Π²ΡΡΠΈΡΠ»ΠΈΡΠ΅Π»ΡΠ½ΠΎΠΉ ΡΠ΅Ρ Π½ΠΈΠΊΠΈ — Π.: ΠΠΊΠΎΠ½ΠΎΠΌΠΈΠΊΠ°, 2002.
- 7. Active Server Pages 3.0 Π΄Π»Ρ ΠΏΡΠΎΡΠ΅ΡΡΠΈΠΎΠ½Π°Π»ΠΎΠ² Π’.1. Π. ΠΠ·Π΄Π°ΡΠ΅Π»ΡΡΡΠ²ΠΎ «ΠΠΎΡΠΈ», 2002
- 8. ΠΠΈΠ³ΠΎ Π‘. Π. «ΠΡΠΎΠ΅ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ Π±Π°Π· Π΄Π°Π½Π½ΡΡ » — Π.: Π€ΠΈΠ½Π°Π½ΡΡ ΠΈ ΡΡΠ°ΡΠΈΡΡΠΈΠΊΠ°, 1995
- 9. ΠΠΈΠΊ Π. Π. «ΠΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΡΠ΅ ΡΠΈΡΡΠ΅ΠΌΡ Π² ΡΠΊΠΎΠ½ΠΎΠΌΠΈΠΊΠ΅» — Π.: Π€ΠΈΠ½Π°Π½ΡΡ ΠΈ ΡΡΠ°ΡΠΈΡΡΠΈΠΊΠ°, 1996
- 10. ΠΡΡΠΈΠ±ΡΠ°ΡΠΎΠ² Π. Π., ΠΡΠ΄ΡΠ½ΠΎ Π. Π., ΠΠΈΡΠΈΡΠ΅Π½ΠΊΠΎ Π. Π. ΠΡΡΠΈΡΠ»ΠΈΡΠ΅Π»ΡΠ½ΡΠ΅ ΡΠΈΡΡΠ΅ΠΌΡ, ΡΠ΅ΡΠΈ ΠΈ ΡΠ΅Π»Π΅ΠΊΠΎΠΌΠΌΡΠ½ΠΈΠΊΠ°ΡΠΈΠΈ — Π.: Π€ΠΈΠ½Π°Π½ΡΡ ΠΈ ΡΡΠ°ΡΠΈΡΡΠΈΠΊΠ°, 1998
- 11. Π‘ΠΌΠΈΡΠ½ΠΎΠ²Π° Π. Π. ΠΡΠΎΠ΅ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΡΠΊΠΎΠ½ΠΎΠΌΠΈΡΠ΅ΡΠΊΠΈΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΡΡ ΡΠΈΡΡΠ΅ΠΌ — Π.: Π€ΠΈΠ½Π°Π½ΡΡ ΠΈ ΡΡΠ°ΡΠΈΡΡΠΈΠΊΠ°, 2001
ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ Π
ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΠΉ ΠΊΠΎΠ΄ ΠΎΡΠ½ΠΎΠ²Π½ΡΡ ΠΌΠΎΠ΄ΡΠ»Π΅ΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ.
Private Sub Command2_Click ().
Frame1.Visible = False.
cmdDelete_Click.
End Sub.
Private Sub Create_Click ().
Unload Me.
Form2.Show.
End Sub.
Private Sub DataCombo1_Change ().
cmdAdd_Click.
Frame1.Caption = «ΠΠ»Π°ΡΠ΅ΠΆ Π·Π° «& DataCombo1.Text.
Adodc1.Recordset.MoveFirst.
Do Until Adodc1.Recordset.EOF.
If Text6. Text = DataCombo1. Text Then.
Exit Do.
End If.
Adodc1.Recordset.MoveNext.
Loop.
txtFields (13).Text = Text5.Text.
txtFields (0).Text = Number.
txtFields (2).Text = Text2.Text.
txtFields (3).Text = Date.
txtFields (1).Text = Data1.Recordset.RecordCount & «/» & CVar (Date).
Text3.Text = Text7.Text.
Adodc2.Recordset.MoveFirst.
Do Until Adodc2.Recordset.EOF.
If Text3. Text = Text8. Text Then.
Exit Do.
End If.
Adodc2.Recordset.MoveNext.
Loop.
txtFields (4).Text = Text9.Text.
Frame1.Visible = True.
End Sub.
Private Sub Form_Activate ().
Adodc1.ConnectionString = «» .
Adodc1.ConnectionString = «Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Pohta.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=False» .
Adodc1.RecordSource = «Tarif» .
txtFields (3) = Date.
txtFields (0).Text = Number.
Text4.Text = NameOperator.
Data2.Recordset.MoveFirst.
Do Until Data2.Recordset.EOF.
If Text4. Text = Text1. Text Then.
Exit Do.
End If.
Data2.Recordset.MoveNext.
Loop.
txtFields (2).Text = Text2.Text.
End Sub.
Private Sub Klient_Click ().
Unload Me.
frmKlient.Show.
End Sub.
Private Sub LoadUser_Click ().
Unload Me.
FRMLOAD.Show.
End Sub.
Private Sub Platej_Click ().
Unload Me.
frmSpravohnikPlateley.Show.
End Sub.
Private Sub PLPeriod_Click ().
Zn = 2.
Form1.Show.
End Sub.
Private Sub PlSegodnya_Click ().
Zn = 1.
Form1.Show.
End Sub.
Private Sub PlVse_Click ().
Zn = 3.
Form1.Show.
End Sub.
Private Sub Tarif_Click ().
Unload Me.
frmFormTarif.Show.
End Sub.
Private Sub txtFields_GotFocus (Index As Integer).
On Error Resume Next.
txtFields (12).Text = ((CSng (txtFields (8)) — CSng (txtFields (9)))) * CSng (txtFields (13)).
txtFields (14).Text = CSng (txtFields (12).Text) + CSng (Text12.Text).
End Sub.
Private Sub txtFields_KeyPress (Index As Integer, KeyAscii As Integer).
Dim k As Byte.
k = 0.
If KeyAscii = 13 Then.
Adodc3.Recordset.MoveFirst.
Do Until Adodc3.Recordset.EOF.
If txtFields (5).Text = Text10. Text Then.
k = 1.
Exit Do.
Else.
k = 0.
End If.
Adodc3.Recordset.MoveNext.
Loop.
If k = 0 Then.
MsgBox «ΠΠ²Π΅Π΄Π΅Π½Π½ΡΠΉ Π»ΠΈΡΠ΅Π²ΠΎΠΉ ΡΡΠ΅Ρ Π½Π΅ Π½Π°ΠΉΠ΄Π΅Π½ !», vbInformation, «Π‘ΠΎΠΎΠ±ΡΠ΅Π½ΠΈΠ΅» .
txtFields (5).Text = «» .
txtFields (5).SetFocus.
End If.
txtFields (6).Text = Text11.Text.
txtFields (7).Text = Text13.Text.
txtFields (10).Text = Text14.Text.
txtFields (11).Text = Text15.Text.
MaskEdBox6.Text = Text16.Text.
End If.
End Sub.
Private Sub Ustanovki_Click ().
Unload Me.
frmProperties.Show.
End Sub.
Private Sub Vyxod_Click ().
End.
End Sub.
Private Sub cmdAdd_Click ().
Data1.Recordset.AddNew.
End Sub.
Private Sub cmdDelete_Click ().
If Data1.Recordset.EOF = False And Data1.Recordset.BOF = False Then.
'this may produce an error if you delete the last.
'record or the only record in the recordset.
Data1.Recordset.Delete.
Data1.Recordset.MoveNext.
End If.
End Sub.
Private Sub cmdRefresh_Click ().
'this is really only needed for multi user apps.
Data1.Refresh.
End Sub.
Private Sub cmdUpdate_Click ().
Data1.UpdateRecord.
Data1.Recordset.Bookmark = Data1.Recordset.LastModified.
End Sub.
Private Sub Data1_Error (DataErr As Integer, Response As Integer).
'This is where you would put error handling code.
'If you want to ignore errors, comment out the next line.
'If you want to trap them, add code here to handle them.
MsgBox «Data error event hit err:» & Error$(DataErr).
Response = 0 'throw away the error.
End Sub.
Private Sub Data1_Reposition ().
Screen.MousePointer = vbDefault.
On Error Resume Next.
'This will display the current record position.
'for dynasets and snapshots.
Data1.Caption = «Record: «& (Data1.Recordset.AbsolutePosition + 1).
'for the table object you must set the index property when.
'the recordset gets created and use the following line.
'Data1.Caption = «Record: «& (Data1.Recordset.RecordCount * (Data1.Recordset.PercentPosition * 0.01)) + 1.
End Sub.
Private Sub Data1_Validate (Action As Integer, Save As Integer).
'This is where you put validation code.
'This event gets called when the following actions occur.
Select Case Action.
Case vbDataActionMoveFirst.
Case vbDataActionMovePrevious.
Case vbDataActionMoveNext.
Case vbDataActionMoveLast.
Case vbDataActionAddNew.
Case vbDataActionUpdate.
Case vbDataActionDelete.
Case vbDataActionFind.
Case vbDataActionBookmark.
Case vbDataActionClose.
End Select.
Screen.MousePointer = vbHourglass.
End Sub.
VERSION 5.00.
Object = «{831FDD16−0C5C-11D2-A9FC-0000F8754DA1}#2.0#0»; «MSCOMCTL.OCX» .
Begin VB. Form Form2.
BorderStyle = 1 'Fixed Single.
ClientHeight = 1455.
ClientLeft = 45.
ClientTop = 330.
ClientWidth = 5385.
LinkTopic = «Form2» .
MaxButton = 0 'False.
MinButton = 0 'False.
ScaleHeight = 1455.
ScaleWidth = 5385.
StartUpPosition = 2 'CenterScreen.
Begin VB. Timer Timer1.
Interval = 100.
Left = 240.
Top = 720.
End.
Begin MSComctlLib. ProgressBar ProgressBar1.
Height = 375.
Left = 240.
TabIndex = 0.
Top = 240.
Width = 5055.
_ExtentX = 8916.
_ExtentY = 661.
_Version = 393 216.
Appearance = 1.
End.
Begin VB. Label Label1.
BackStyle = 0 'Transparent.
BorderStyle = 1 'Fixed Single.
BeginProperty Font.
Name = «MS Sans Serif» .
Size = 13.5.
Charset = 204.
Weight = 700.
Underline = 0 'False.
Italic = 0 'False.
Strikethrough = 0 'False.
EndProperty.
ForeColor = &H00FF0000&.
Height = 375.
Left = 240.
TabIndex = 1.
Top = 840.
Visible = 0 'False.
Width = 5055.
End.
End.
Attribute VB_Name = «Form2» .
Attribute VB_GlobalNameSpace = False.
Attribute VB_Creatable = False.
Attribute VB_PredeclaredId = True.
Attribute VB_Exposed = False.
Dim i As Integer.
Dim s1 As String.
Dim s2 As String.
Dim k As String.
Dim m As String.
Private Sub Form_Activate ().
Dither Me.
s1 = FileSystem. CurDir$ & «Pohta.mdb» .
s2 = FileSystem. CurDir$ & «ezerv» & Date & «.mdb» .
Print s2.
Select Case (MsgBox («ΠΡ Π΄Π΅ΠΉΡΡΠ²ΠΈΡΠ΅Π»ΡΠ½ΠΎ Ρ ΠΎΡΠΈΡΠ΅ ΡΠΎΠ·Π΄Π°ΡΡ ΡΠ΅Π·Π΅ΡΠ²Π½ΡΡ ΠΊΠΎΠΏΠΈΡ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ », vbYesNo, «ΠΠ°ΠΏΡΠΎΡ»)).
Case vbYes.
FileCopy s1, s2.
Timer1_Timer.
Case vbNo.
Unload Me.
FRMPLATEJ.Show.
End Select.
End Sub.
Private Sub Timer1_Timer ().
On Error Resume Next.
Label1.Visible = True.
Label1.Caption = s2.
i = 0.
i = i + 1.
ProgressBar1.Value = ProgressBar1. Value + i.
If ProgressBar1. Value >= 95 Then.
Timer1.Enabled = False.
MsgBox «Π Π΅Π·Π΅ΡΠ²Π½Π°Ρ ΠΊΠΎΠΏΠΈΡ ΠΠ ΡΠΎΠ·Π΄Π°Π½Π° ΡΡΠΏΠ΅ΡΠ½ΠΎ», vbOKOnly, «Π‘ΠΎΠΎΠ±ΡΠ΅Π½ΠΈΠ΅» .
Unload Me.
FRMLOAD.Show.
End If.
End Sub.
Private Sub Form_Unload (Cancel As _.
Integer).
Win95Shrivel Me.
End Sub.
Sub Dither (vForm As Form).
Dim intLoop As Integer.
vForm.DrawStyle = vbInsideSolid.
vForm.DrawMode = vbCopyPen.
vForm.ScaleMode = vbPixels.
vForm.DrawWidth = 2.
vForm.ScaleHeight = 256.
For intLoop = 0 To 255.
vForm.Line (0, intLoop)-(Screen.Width, intLoop — 1), _.
RGB (500 — intLoop, 500 — intLoop, 0), B.
Next intLoop.
End Sub.
Public Sub Win95Shrivel (xForm As Form).
ΠΌΠΈΠ½ΠΈΠΌΠΈΠ·ΠΈΡΡΠ΅Ρ ΠΎΠΊΠ½ΠΎ.
xForm.WindowState = 1.
End Sub.
VERSION 5.00.
Object = «{831FDD16−0C5C-11D2-A9FC-0000F8754DA1}#2.0#0»; «mscomctl.ocx» .
Begin VB. Form Form3.
BackColor = &H0000FFFF&.
BorderStyle = 0 'None.
Caption = «Form3» .
ClientHeight = 2820.
ClientLeft = 0.
ClientTop = 0.
ClientWidth = 9015.
LinkTopic = «Form3» .
ScaleHeight = 2820.
ScaleWidth = 9015.
ShowInTaskbar = 0 'False.
StartUpPosition = 2 'CenterScreen.
Begin VB. PictureBox Picture1.
Height = 1455.
Left = 240.
Picture = «Form3.frx» :0000.
ScaleHeight = 1395.
ScaleWidth = 8475.
TabIndex = 1.
Top = 360.
Width = 8535.
End.
Begin VB. Timer Timer1.
Interval = 50.
Left = 240.
Top = 2040.
End.
Begin MSComctlLib. ProgressBar ProgressBar1.
Height = 255.
Left = 840.
TabIndex = 0.
Top = 2040.
Width = 7575.
_ExtentX = 13 361.
_ExtentY = 450.
_Version = 393 216.
Appearance = 1.
End.
End.
Attribute VB_Name = «Form3» .
Attribute VB_GlobalNameSpace = False.
Attribute VB_Creatable = False.
Attribute VB_PredeclaredId = True.
Attribute VB_Exposed = False.
Dim i As Integer.
Private Sub Timer1_Timer ().
i = i + 1.
ProgressBar1.Value = ProgressBar1. Value + 1.
If ProgressBar1. Value >= 98 Then.
Unload Me.
FRMLOAD.Show.
End If.
End Sub.
VERSION 5.00.
Begin VB. Form frmAbout.
BorderStyle = 3 'Fixed Dialog.
Caption = «Π ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅» .
ClientHeight = 3555.
ClientLeft = 2340.
ClientTop = 1935.
ClientWidth = 5730.
ClipControls = 0 'False.
LinkTopic = «Form2» .
MaxButton = 0 'False.
MinButton = 0 'False.
ScaleHeight = 2453.724.
ScaleMode = 0 'User.
ScaleWidth = 5380.766.
ShowInTaskbar = 0 'False.
StartUpPosition = 2 'CenterScreen.
Begin VB. PictureBox picIcon.
AutoSize = -1 'True.
ClipControls = 0 'False.
Height = 540.
Left = 240.
Picture = «frmAbout.frx» :0000.
ScaleHeight = 337.12.
ScaleMode = 0 'User.
ScaleWidth = 337.12.
TabIndex = 1.
Top = 240.
Visible = 0 'False.
Width = 540.
End.
Begin VB. CommandButton cmdOK.
Cancel = -1 'True.
Caption = «OK» .
Default = -1 'True.
Height = 345.
Left = 4245.
TabIndex = 0.
Top = 2625.
Visible = 0 'False.
Width = 1260.
End.
Begin VB. CommandButton cmdSysInfo.
Caption = «&System Info…» .
Height = 345.
Left = 4260.
TabIndex = 2.
Top = 3075.
Visible = 0 'False.
Width = 1245.
End.
Begin VB. Label lblDisclaimer.
BackColor = &H0000FFFF&.
Caption = «ΠΠ½ΠΈΠΌΠ°Π½ΠΈΠ΅ Π΄Π°Π½Π½Π°Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΠΏΡΠ΅Π΄Π½Π°Π·Π½Π°ΡΠ΅Π½Π½Π° Π΄Π»Ρ Π½Π΅ΠΊΠΎΠΌΠ΅ΡΡΠ΅ΡΠΊΠΎΠ³ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ.» .
ForeColor = &H00FF0000&.
Height = 825.
Left = 120.
TabIndex = 6.
Top = 2505.
Visible = 0 'False.
Width = 3870.
End.
Begin VB. Label lblVersion.
BackColor = &H0000FFFF&.
Caption = «ΠΠ΅ΡΡΠΈΡ: 1.0.3» .
BeginProperty Font.
Name = «MS Sans Serif» .
Size = 8.25.
Charset = 204.
Weight = 700.
Underline = 0 'False.
Italic = 0 'False.
Strikethrough = 0 'False.
EndProperty.
ForeColor = &H00FF0000&.
Height = 225.
Left = 915.
TabIndex = 5.
Top = 660.
Visible = 0 'False.
Width = 3885.
End.
Begin VB. Label lblTitle.
BackColor = &H0000FFFF&.
Caption = «ΠΠ ΠΠΠ ΠΠΠΠ ΠΠ ΠΠΠΠ ΠΠΠΠ’ΠΠΠΠ» .
BeginProperty Font.
Name = «MS Sans Serif» .
Size = 8.25.
Charset = 204.
Weight = 700.
Underline = 0 'False.
Italic = 0 'False.
Strikethrough = 0 'False.
EndProperty.
ForeColor = &H00FF0000&.
Height = 480.
Left = 915.
TabIndex = 4.
Top = 120.
Visible = 0 'False.
Width = 3885.
End.
Begin VB. Label lblDescription.
BackColor = &H0000FFFF&.
Caption = «Π Π°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊ: Π‘Π°ΡΠ³Π°Π»ΠΈΠ½ΠΎΠ² ΠΡΠ½Π΅Ρ @mail: ΠΡΠΎΡ Π°Π΄ΡΠ΅Ρ e-mail Π·Π°ΡΠΈΡΠ΅Π½ ΠΎΡ ΡΠΏΠ°ΠΌ-Π±ΠΎΡΠΎΠ². Π§ΡΠΎΠ±Ρ ΡΠ²ΠΈΠ΄Π΅ΡΡ Π΅Π³ΠΎ, Ρ ΠΠ°Ρ Π΄ΠΎΠ»ΠΆΠ΅Π½ Π±ΡΡΡ Π²ΠΊΠ»ΡΡΠ΅Π½ Java-Script «.
BeginProperty Font.
Name = «MS Sans Serif» .
Size = 8.25.
Charset = 204.
Weight = 700.
Underline = 0 'False.
Italic = 0 'False.
Strikethrough = 0 'False.
EndProperty.
ForeColor = &H00FF0000&.
Height = 1170.
Left = 915.
TabIndex = 3.
Top = 1005.
Visible = 0 'False.
Width = 3885.
End.
Begin VB. Line Line1.
BorderColor = &H00808080&.
BorderStyle = 6 'Inside Solid.
Index = 1.
X1 = 84.515.
X2 = 5309.398.
Y1 = 1687.583.
Y2 = 1687.583.
End.
Begin VB. Line Line1.
BorderColor = &H00FFFFFF&.
BorderWidth = 2.
Index = 0.
Visible = 0 'False.
X1 = 98.6.
X2 = 5309.398.
Y1 = 1697.936.
Y2 = 1697.936.
End.
End.
Attribute VB_Name = «frmAbout» .
Attribute VB_GlobalNameSpace = False.
Attribute VB_Creatable = False.
Attribute VB_PredeclaredId = True.
Attribute VB_Exposed = False.
Option Explicit.
Reg Key Security Options…
Const READ_CONTROL = &H20000.
Const KEY_QUERY_VALUE = &H1.
Const KEY_SET_VALUE = &H2.
Const KEY_CREATE_SUB_KEY = &H4.
Const KEY_ENUMERATE_SUB_KEYS = &H8.
Const KEY_NOTIFY = &H10.
Const KEY_CREATE_LINK = &H20.
Const KEY_ALL_ACCESS = KEY_QUERY_VALUE + KEY_SET_VALUE + KEY_CREATE_SUB_KEY + KEY_ENUMERATE_SUB_KEYS + KEY_NOTIFY + KEY_CREATE_LINK + READ_CONTROL.
Reg Key ROOT Types…
Const HKEY_LOCAL_MACHINE = &H80000002.
Const ERROR_SUCCESS = 0.
Const REG_SZ = 1 ' Unicode nul terminated string.
Const REG_DWORD = 4 ' 32-bit number.
Const gREGKEYSYSINFOLOC = «SOFTWAREMicrosoftShared Tools Location» .
Const gREGVALSYSINFOLOC = «MSINFO» .
Const gREGKEYSYSINFO = «SOFTWAREMicrosoftShared ToolsMSINFO» .
Const gREGVALSYSINFO = «PATH» .
Private Declare Function RegOpenKeyEx Lib «advapi32» Alias «RegOpenKeyExA» (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, ByRef phkResult As Long) As Long.
Private Declare Function RegQueryValueEx Lib «advapi32» Alias «RegQueryValueExA» (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, ByRef lpType As Long, ByVal lpData As String, ByRef lpcbData As Long) As Long.
Private Declare Function RegCloseKey Lib «advapi32» (ByVal hKey As Long) As Long.
Private Sub cmdSysInfo_Click ().
Call StartSysInfo.
End Sub.
Private Sub cmdOK_Click ().
Unload Me.
End Sub.