. , , ,

,,,

,


Ք

:

. -282:

. .

:

. .

________________________

:

1996 .


TOC o "1-3" f ...... .......................................................................................................................................... GOTOBUTTON _Toc347180702 PAGEREF _Toc347180702 3

II. ... є.............................................................................................................. GOTOBUTTON _Toc347180703 PAGEREF _Toc347180703 3

III. . є............................................................................................................. GOTOBUTTON _Toc347180704 PAGEREF _Toc347180704 3

IV. .. ......................................................................................... GOTOBUTTON _Toc347180705 PAGEREF _Toc347180705 3

V. ... ............................................................. GOTOBUTTON _Toc347180706 PAGEREF _Toc347180706 4

VI. .. .......................................................................................................................................... GOTOBUTTON _Toc347180707 PAGEREF _Toc347180707 6

................................................................................................................................................... GOTOBUTTON _Toc347180708 PAGEREF _Toc347180708 7

I. ..... 唠 GOTOBUTTON _Toc347180709 PAGEREF _Toc347180709 8

II. .... , ............................ GOTOBUTTON _Toc347180710 PAGEREF _Toc347180710 13

III. .. .................................................................. GOTOBUTTON _Toc347180711 PAGEREF _Toc347180711 17

IV.... .......................................................................................................... GOTOBUTTON _Toc347180712 PAGEREF _Toc347180712 19


I.                 

() - () - () . /1/.

() є, , -, .

II.             

є . , , .

I.

III.          

є Microsoft Access 2.0 Microsoft Windows 3.1 * . /3-5/. , , , , /2/.

, , , Microsoft Access . є PDS.MDB.

, REF _Ref347152189 n REF _Ref347151590 n

IV.          

, , , Microsoft Access ( dBase, FoxPro, . ., ), , Microsoft Access , .

, - - - Access Basic. , , II.

є . , SQL-. SQL- II.

, , . II.

V.             

() , , , , , , , , . , .

( ) є PDS.MDB Microsoft Access :


:

     

     

     

, є , . , , , . - .

VI.          

є . , III.

IV , є.

TC " "

1.                 

2.                 

3.                 

4.                 

5.                 


TC " I. "






TC " II. , "


Sub _Click ()

On Error GoTo Err__Click

DoCmd GoToRecord , , A_NEWREC

Exit__Click:

Exit Sub

Err__Click:

MsgBox Error$

Resume Exit__Click

End Sub

Sub _Click ()

On Error GoTo Err__Click

DoCmd DoMenuItem A_FORMBAR, A_EDITMENU, A_SELECTRECORD_V2, , A_MENU_VER20

DoCmd DoMenuItem A_FORMBAR, A_EDITMENU, A_COPY, , A_MENU_VER20

DoCmd DoMenuItem A_FORMBAR, A_EDITMENU, 6, , A_MENU_VER20'Paste Append

Exit__Click:

Exit Sub

Err__Click:

MsgBox Error$

Resume Exit__Click

End Sub

Sub _Click ()

On Error GoTo Err__Click

DoCmd DoMenuItem A_FORMBAR, A_EDITMENU, A_SELECTRECORD_V2, , A_MENU_VER20

DoCmd DoMenuItem A_FORMBAR, A_EDITMENU, A_DELETE_V2, , A_MENU_VER20

Exit__Click:

Exit Sub

Err__Click:

MsgBox Error$

Resume Exit__Click

End Sub

Sub __Click ()

On Error GoTo Err___Click

Dim DocName As String

DocName = " "

DoCmd OpenForm DocName, , , "[] = Forms![]![].Form![]"

Exit___Click:

Exit Sub

Err___Click:

MsgBox Error$

Resume Exit___Click

End Sub

Sub 47_Click ()

On Error GoTo Err_47_Click

Dim DocName As String

Dim LinkCriteria As String

DocName = ""

LinkCriteria = "[ ] = Forms![]![].Form![46]"

DoCmd OpenForm DocName, , , LinkCriteria

DoCmd GoToControl "_16"

Forms![]![]. = 0

Forms![]![]. = 0

Forms![]![]. = 0

Forms![]![]. = 0

Forms![]![20]. = 0

Forms![]![21]. = 0

Forms![]![22]. = 0

Forms![]![]. = 0

Exit_47_Click:

Exit Sub

Err_47_Click:

MsgBox Error$

Resume Exit_47_Click

End Sub



Sub 2_Click ()

On Error GoTo Err_2_Click

Dim DocName As String

Dim LinkCriteria As String

DocName = ""

DoCmd OpenForm DocName, , , LinkCriteria

Exit_2_Click:

Exit Sub

Err_2_Click:

MsgBox Error$

Resume Exit_2_Click

End Sub

Sub 3_Click ()

On Error GoTo Err_3_Click

Dim DocName As String

Dim LinkCriteria As String

DocName = ""

DoCmd OpenForm DocName, , , LinkCriteria

Exit_3_Click:

Exit Sub

Err_3_Click:

MsgBox Error$

Resume Exit_3_Click

End Sub

Sub 9_Click ()

On Error GoTo Err_9_Click

DoCmd Close

Exit_9_Click:

Exit Sub

Err_9_Click:

MsgBox Error$

Resume Exit_9_Click

End Sub

Sub 6_Click ()

On Error GoTo Err_6_Click

Dim DocName As String

Dim LinkCriteria As String

DocName = " "

DoCmd OpenForm DocName, , , LinkCriteria

Exit_6_Click:

Exit Sub

Err_6_Click:

MsgBox Error$

Resume Exit_6_Click

End Sub

Sub 5_Click ()

On Error GoTo Err_5_Click

Dim DocName As String

Dim LinkCriteria As String

DocName = ""

DoCmd OpenForm DocName, , , LinkCriteria

Exit_5_Click:

Exit Sub

Err_5_Click:

MsgBox Error$

Resume Exit_5_Click

End Sub



Sub Form_Close ()

Forms![]![]. = 1

Forms![]![]. = 1

Forms![]![]. = 1

Forms![]![]. = 1

Forms![]![20]. = 1

Forms![]![21]. = 1

Forms![]![22]. = 1

Forms![]![]. = 1

End Sub

Sub _Click ()

On Error GoTo Err__Click

DoCmd Close

Exit__Click:

Exit Sub

Err__Click:

MsgBox Error$

Resume Exit__Click

End Sub

Sub 20_Click ()

On Error GoTo Err_20_Click

DoCmd DoMenuItem A_FORMBAR, A_EDITMENU, 10, , A_MENU_VER20

Exit_20_Click:

Exit Sub

Err_20_Click:

MsgBox Error$

Resume Exit_20_Click

End Sub

Sub 21_Click ()

On Error GoTo Err_21_Click

DoCmd GoToRecord , , A_NEWREC

Exit_21_Click:

Exit Sub

Err_21_Click:

MsgBox Error$

Resume Exit_21_Click

End Sub

Sub 22_Click ()

On Error GoTo Err_22_Click

DoCmd DoMenuItem A_FORMBAR, A_EDITMENU, A_SELECTRECORD_V2, , A_MENU_VER20

DoCmd DoMenuItem A_FORMBAR, A_EDITMENU, A_DELETE_V2, , A_MENU_VER20

Exit_22_Click:

Exit Sub

Err_22_Click:

MsgBox Error$

Resume Exit_22_Click

End Sub

Sub _Click ()

On Error GoTo Err__Click

DoCmd GoToRecord , , A_FIRST

Exit__Click:

Exit Sub

Err__Click:

MsgBox Error$

Resume Exit__Click

End Sub

Sub _Click ()

On Error GoTo Err__Click

DoCmd GoToRecord , , A_LAST

Exit__Click:

Exit Sub

Err__Click:

MsgBox Error$

Resume Exit__Click

End Sub

Sub _Click ()

On Error GoTo Err__Click

DoCmd GoToRecord , , A_PREVIOUS

Exit__Click:

Exit Sub

Err__Click:

If Err <> 2105 Then MsgBox Error$

Resume Exit__Click

End Sub

Sub _Click ()

On Error GoTo Err__Click

DoCmd GoToRecord , , A_NEXT

Exit__Click:

Exit Sub

Err__Click:

If Err <> 2105 Then MsgBox Error$

Resume Exit__Click

End Sub



Sub __Click ()

On Error GoTo Err___Click

DoCmd Close

Exit___Click:

Exit Sub

Err___Click:

MsgBox Error$

Resume Exit___Click

End Sub

Sub _Click ()

On Error GoTo Err__Click

Dim DocName As String

DocName = ""

DoCmd OpenReport DocName, A_PREVIEW

Exit__Click:

Exit Sub

Err__Click:

MsgBox Error$

Resume Exit__Click

End Sub



Sub ___Click ()

On Error GoTo Err____Click

DoCmd Close

Exit____Click:

Exit Sub

Err____Click:

MsgBox Error$

Resume Exit____Click

End Sub

Sub ___Click ()

On Error GoTo Err____Click

Dim DocName As String

Dim LinkCriteria As String

DocName = ""

DoCmd OpenForm DocName, , , LinkCriteria

Exit____Click:

Exit Sub

Err____Click:

MsgBox Error$

Resume Exit____Click

End Sub

Sub _Click ()

On Error GoTo Err__Click

DoCmd GoToRecord , , A_NEWREC

Exit__Click:

Exit Sub

Err__Click:

MsgBox Error$

Resume Exit__Click

End Sub

Sub _Click ()

On Error GoTo Err__Click

Dim DocName As String

DocName = ""

DoCmd OpenReport DocName, A_PREVIEW

Exit__Click:

Exit Sub

Err__Click:

MsgBox Error$

Resume Exit__Click

End Sub

Sub _Click ()

On Error GoTo Err__Click

DoCmd GoToRecord , , A_FIRST

Exit__Click:

Exit Sub

Err__Click:

MsgBox Error$

Resume Exit__Click

End Sub

Sub _Click ()

On Error GoTo Err__Click

DoCmd GoToRecord , , A_LAST

Exit__Click:

Exit Sub

Err__Click:

MsgBox Error$

Resume Exit__Click

End Sub

Sub _Click ()

On Error GoTo Err__Click

DoCmd GoToRecord , , A_PREVIOUS

Exit__Click:

Exit Sub

Err__Click:

If Err <> 2105 Then MsgBox Error$

Resume Exit__Click

End Sub

Sub _Click ()

On Error GoTo Err__Click

DoCmd GoToRecord , , A_NEXT

Exit__Click:

Exit Sub

Err__Click:

If Err <> 2105 Then MsgBox Error$

Resume Exit__Click

End Sub

Sub _Click ()

On Error GoTo Err__Click

DoCmd DoMenuItem A_FORMBAR, A_EDITMENU, 10, , A_MENU_VER20

Exit__Click:

Exit Sub

Err__Click:

MsgBox Error$

Resume Exit__Click

End Sub

Sub __Click ()

On Error GoTo Err___Click

Dim DocName As String

Dim LinkCriteria As String

DocName = ""

LinkCriteria = "[] = []![]"

DoCmd OpenForm DocName, , , LinkCriteria

Exit___Click:

Exit Sub

Err___Click:

MsgBox Error$

Resume Exit___Click

End Sub

Sub _AfterUpdate ()

DoCmd ApplyFilter , " = Me![]"

End Sub

Sub _Click ()

On Error GoTo Err__Click

DoCmd DoMenuItem A_FORMBAR, A_EDITMENU, A_SELECTRECORD_V2, , A_MENU_VER20

DoCmd DoMenuItem A_FORMBAR, A_EDITMENU, A_DELETE_V2, , A_MENU_VER20

Exit__Click:

Exit Sub

Err__Click:

MsgBox Error$

Resume Exit__Click

End Sub


( SQL)

SELECT DISTINCTROW ., ., ., ., ., ., .

FROM INNER JOIN ON . = .

WHERE ((.=[Forms]![]![]));

SELECT DISTINCTROW ., ., ., .

FROM INNER JOIN ( INNER JOIN ON . = .) ON . = .

WHERE ((.=[forms]![ ]![]));


TC " III. "

22

23

24

25

5

26

27

28

29

30

31

32

33

34

(. )

35

(. )

36

37

( .)

38

39

24

5

1

N1

0.02

0.2

1

1.2

1.03

120

0

25

5

1

N2

0.05

0.2

0

1.2

1.03

120

0

26

6

2

N1

0.00143

0.25

205

4.35

1.003

15

1

27

7

4

N1

0.0045

0.2

15

2.3

1.02

20

0

29

7

4

N4

0.0032

0.25

0

1.2

1.02

20

0

30

7

4

N5

0.08

0.25

0

1.2

1.02

20

0

32

8

3

0.00432

0.2

0.2

2.2

1.033

0.1

0

1

.

2

.

3

.

4

.

5

""

6

" "

7

""

8

""

1

22

1

2.75

2.5

0

2

25

1

1.8

3.5

0.03

3

28

1

0.05

0.03

0.1

4

31

1

0.005

0.0006

0.3

5

26

1

1.5

0

0

6

29

1

10.3

0

0

7

36

1

1.2

0

0

8

37

1

300

10

0

9

22

2

2.75

2.5

0

10

23

2

1.3

2.5

0.4

11

24

2

3.4

5.6

0.005

12

25

2

1.8

0.04

0

13

26

2

1.5

0.05

0.05

14

27

2

2.3

1.2

0

15

22

4

2.75

2.5

0.01

16

24

4

3.4

2.3

0

17

23

4

1.3

1.1

0

18

25

4

1.8

0.1

0

19

27

4

2.3

0.0001

0.06

5

22

30

2

7

23

30

0.2

8

28

30

0.32

9

29

30

0.0004

10

26

30

0

11

25

30

1.4

12

36

30

0

13

37

30

0

14

25

30

0

15

24

24

2.4

16

28

24

0.01

17

31

24

0.001

18

36

24

0

19

32

24

0.005

20

37

24

10

21

34

24

1.2

22

30

24

0.0003

23

39

24

0

24

23

26

1.2

25

29

26

1

26

24

26

2.8

27

26

26

0.02

28

27

26

0.003

29

23

25

0.1

30

24

25

2.4

31

27

25

1.2

32

29

25

1.3

33

36

25

0

34

26

25

0

35

35

25

0.002

36

22

27

4.8

37

23

27

10.12

38

25

27

12.89

39

22

29

13.4

40

23

29

12.8

41

24

29

4.6

42

25

29

1.2

43

22

32

0.02

44

23

32

0.06

45

29

32

1.2

46

36

32

5.6


TC " IV. "

: ""

: N1

: 0.02 . /

: 0.2

: 1

: 1.2

120 /

:

: ""

: N2

: 0.05 . /

: 0.2

: 0

: 1.2

120 /

:


N1

: ""

(/)

堠 2.4

頠 0.01

0.001

0

0.005

( .) 10

(. ) 1.2

0.0003

0



* Microsoft Access . , , . . ( /2/).

Ք : . -282: . . : . . _

 

 

 

! , , , .
. , :