|
:
:
,
, ,
,
.
,
,
.
.
,
.
:
;
;
;
;
.
(
,
)
,
.
,
,
,
,
.
,
,
.
.
,
.
,
(..
),
.
.
,
,
,
.
. ,
,
.
,
,
,
.
,
,
.
,
.
,
,
.
,
,
,
.
,
,
:
,
,
(
)
.
,
,
,
.
.
,
,
.
,
,
.
,
,
,
.
,
,
.
,
,
;
()
.
,
,
.
.
.
,
.
.
.
,
,
.
.
.
,
, ,
,
.
.
.
.
,
,
.
,
.
.
,
,
.
.
.
,
,
.
,
,
.
,
.
50%
20
40%, ,
,
.
30%
.
.
:
,
;
-
;
-, -
;
();
,
,
.
:
,
,
;
;
,
;
,
.
:
,
;
,
.
. ,
600 1500 .
, ,
.
,
.
80 120 ,
,
,
,
,
.
35 70 .
20 30 ,
10,
5 .
.
.
,
.
-
.
,
,
(
).
(
1800
8000 10000 ).
.
. ,
,
20
,
1
.
,
..
,
.
,
,
,
,
, ,
...
,
,
,
,
,
.
()
,
,
,
,
, ,
,
,
,
.
.
,
,
,
,
.
,
,
.
,
,
(
),
.
,
,
,
,
. ,
,
,
.
,
.
,
,
:
,
,
, ,
,
,
, ,
.
,
,
.
,
( ,
,
..
,
).
,
,
,
10 (0,1 /.).
125 (3 /.)
.
10 .
,
1
20
,
18 ,
,
17 ,
10
11
.
.
,
.
,
(
,
250
420 /., ..
6 10 /.).
,
,
;
,
;
.
,
:
,
.
,
,
,
;
,
.
,
,
, .
.
,
.
.
,
(
)
.
,
.
,
,
50
60 / .
20%.
(1, 2, 3, 4, 5)
.
()
1 2
,
.
4 5
.
,
,
.
.
.
:
, , , .
,
,
,
,
,
,
,
,
..
, -
28 120 ;
,
,
.
,
,
,
;
,
;
.
,
,
,
.
,
.
.
,
.
.
,
,
,
-
300 ,
100 .
,
,
,
,
,
1,5 ,
,
,
.
.
,
,
.
2,
.
35%.
,
.
Rmin = 4 0,1
= 3,9
.
25 ,
1200 /.
,
,
1
;
.
,
,
,
,
...
,
,
300 ,
.
,
,
,
.
,
.
, ,
,
,
.
.
.
.
.
.
............................................................................................................4
1.
............................................................................6
2.
..................................................................................7
2.1
.................................................................................7
2.1.1
....................................................................7
2.1.2
,
....8
2.1.3
.................9
2.1.4
,
,
..............................................................11
2.1.5
,
..............................................................................................12
2.1.6
.........................................................13
2.1.7
............................................13
2.1.8
..............................................14
2.2
...............15
2.2.1
.........................................................................................15
2.2.2
...............................................................18
2.2.3
.........................................................................21
2.3.
Ethernet.............25
2.4.
..........................27
2.5.
...........................................................................28
2.5.1.
.........................................................28
2.5.2.
..............................................................29
2.5.3.
.......................................................29
2.5.4.
..............................................................29
2.5.5.
...................................................................29
2.6.
............................................................................30
2.6.1. Borland
Pascal
7.0....................................................................31
2.6.2.
-
Turbo Vision...........31
2.6.3.
Turbo
Vision.............................................................31
2.6.4 .
.............................33
2.6.4.1
..........................................................33
2.6.4.2
......................34
2.6.4.3.
......................................................37
2.6.4.4.
................39
2.6.4.5.
..............................................45
2.6.4.6.
.............................................46
2.6.4.7.
..........................................................46
2.6.4.8.
...........................................47
2.6.4.9.
()........................................47
2.6.5.
..............................................................................50
2.7
..................................................50
2.7.1.
,
.......................................................................................50
2.7.2.
.......53
2.7.3.
...............................................58
2.7.4.
-
......................................................................................59
3.
....................................................................63
3.1
.. ....63
3.2
.........................................................................................71
4.
..................................................................................72
5.
....................................................................74
........................................................................................82
1.
.................................................................................83
2.
....................................................................................................84
3.
.........................................................................................85
.
.
,
,
-
.
, ,
,
.
,
,
,
,
... ,
,
(,
, ,
),
,
,
,
,
,
,
-
,
-
.
,
-
.
.
-
,
,
,
,
.
,
(),
,
--
.
80-
-
--
()
.
,
,
,
.
.
,
,
,
,
,
,
,
-
,
,
. ,
,
.
.
,
()
.
,
.
, -,
,
,
,
-- .
, ,
(,
..)
,
.
(
),
,
,
.
(,
,
, ,
,
).
,
, ,
()
,
,
,
.,
()
.
,
,
.
.
,
1.
1.1
.
.
,
,
,
,
,
,
,
.
,
.
, ,
,
,
,
,
,
,
,
.
,
,
,
.
.
,
,
.
:
-
,
.
“ ”
“ ”
(
);
-
.
:
-
IBM
Intel386SX (
) ,
;
-
-
;
-
;
-
,
(
,
,
)
;
-
;
-
,
;
-
-
;
-
,
;
-
;
-
,
.
2. .
2.1
.
2.1.1
.
,
,
,
-
..
,
,
-
,
.
,
,
,
,
.
,
.
,
-,
,
,
,
.
,
.
,
,
.
.
,
,
,
-
,
.
2.1.2
,
.
,
,
.
-
.
,
,
.
.
.
,
.
,
.
,
.
-
,
,
,
, ,
-.
,
.
,
,
.
.
:
,
;
;
,
.
2.1.3
.
,
Intel 486 ,
,
.
,
.
,
,
,
-
.
-
“ ”,
,
“ ”.
,
-,
,
,
,
-
.
,
,
,
,
,
.
:
,
..
,
-
;
,
..
-,
-
,
.
,
, ,
,
.
,
,
;
;
,
.
80-
,
,
.
:
.
,
,
.
.
,
:
,
,
.
.
2.1.4
, ,
.
:
1.
;
2.
,
;
3.
(
,
)
;
4.
,
;
5.
,
,
,
;
6.
;
7.
,
,
;
8.
-
.
:
;
,
;
.
,
,
,
.
.
:
,
,
.
,
-
,
.
:
-
;
,
.
2.1.5
,
.
,
,
,
,
,
,
-,
,
,
,
.
,
,
.
(,
)
“
”
,
.
,
.
- ,
,
:
;
,
;
;
;
;
;
.
.
( ,
).
, ,
,
.
,
,
.
2.1.6
.
,
.
:
,
,
-
;
,
-
,
;
,
;
;
;
;
;
.
:
1.
()
,
,
,
,
;
2.
.
2.1.7
.
-
.
.
,
,
. ,
,
,
,
;
-
();
.
:
,
,
()
,
.
.
.
,
,
.
2.1.8
.
,
-
,
,
,
.
,
,
, ,
,
,
,
.
()
.
.
,
,
,
.
,
,
,
,
.
,
,
.
,
.
,
.
,
,
,
,
.
,
,
.
:
1.
;
2.
;
3.
,
:
,
,
,
.
,
,
,
.
,
.
.
-
,
,
,
,
.
2.2
-
.
2.2.1
.
,
,
(
5 - 10 )
, ,
, ,
,
-
...
,
(),
(), ,
,
,
..
(,
)
,
,
.
,
,
,
,
,
,
,
-,
-
,
.
,
,
-
,
,
.
,
,
, ,
,
(),
.
()
() -- ,
, ,
,
,
...
()
,
,
.
,
,
..,
--
CD-ROM ,
...
,
--
.
,
,
.
IEEE802
(
,
),
,
:
“
,
, ,
, ,
...
,
,
,
,
IEEE802
,
1-2
/”.
,
,
,
, ,
(, )
.
.
.
,
.
1
10 /
.
,
,
,
(
) ,
.
, ,
.
--
.
,
.
:
(
),
(),
,
.
,
.
,
.
.
.
--
-
.
,
-,
,
.
,
-
.
.
,
,
.
(
)
.
()
(
).
.
:
,
. ,
,
.
,
,
,
.
,
(
)
,
--
.
, ,
.
(),
,
,
.
2.2.2
.
,
.
,
,
,
,
,
,
,
..
:
(,
,
),
(-),
,
-,
..
.
,
.
, ,
...
(-,
-, )
(
) ,
.
( )
.
.
(
).
(
)
(),
.
,
,
,
.
,
,
.
.
, ,
,
-
.
.
-
,
,
()
.
.
. ,
,
,
(
).
,
,
.
.
-,
.
,
-
.
.
.
,
.
()
.
()
.
,
.
,
,
.
,
,
.
,
,
,
“ ”
(,
“”)
..
,
,
.
,
,
,
.
,
,
.
,
.
.
, -,
,
-,
,
.
,
,
( )
(
).
.
,
,
.
,
,
-
.
.
(
)
.
(
).
,
,
.
T,
,
:
(
).
.
,
,
,
(
)
(
).
,
,
.
.
(),
.
,
( 1 .
/),
,
-
.
,
.
:
,
,
,
..
-
,
,
.
,
,
.
-
.
,
.
“
”
,
“
”.
.
.
,
,
,
(
)
,
.
2.2.3
,
..
,
.
,
,
, ,
(),
..
.
:
.
(
)
,
.
,
,
(.
.).
(. .).
,
, ,
,
.
,
.
(
).
(
),
,
T = KL + T +
T,
L
, ;
,
;
, ;
K = 10 /.
,
2
10
/
30 ,
300 .
,
,
.
,
2 4
.
(. . ).
()
:
;
;
(
);
;
.
.25.
.
,
.
,
,
.
,
,
.
.
(“”).
,
.
.
.
,
.
,
.
.
“”
“”,
,
.
.
,
“”
“”,
,
. ,
“”
,
“”
“ ”.
.
,
,
.
,
,
.
,
.
.
,
,
.
,
,
,
,
.
.
“
”.
,
.
. ,
.
,
,
“”,
“”,
“
”,
“”.
“”
“”
.
,
,
.
.
.
,
.
- ,
.
()
,
.
-
-
.
,
“ ”,
“”
.
,
.
,
,
.
,
,
.
:
,
,
.
,
.
,
(
)
;
;
.
“”
.
.
,
.
,
.
,
.
:
.
2.3.
Ethernet.
.
,
Ethernet
Xerox
,
,
1972 ..
,
,
Ethernet,
DEC, Intel
Xerox (DIX). 1982 .
,
802 IEEE,
(European Computer Manufactures
Association).
“”.
50 .
10 /.
,
CSMA/CD. ,
6,5 ,
1 1,25 .
.
,
“”
,
,
,
.
“”
,
ALOHA.
C
Ethernet
,
,
.
.
Ethernet
,
,
Ethernet
.
CSMA/CD
.
,
,
,
.
,
Ethernet
64 1518 .
8
6 6 2 64 1518 4
-
________________________________________________________
! !
! !
! - !
!(
-! ( -
! ! ! -
!
!)
! )
! ! ! !
CSMA/CD. ,
.
,
,
.
,
1518 .
.
,
64 ,
( 64 8 = 512 ),
10
/,
51,2 .
CSMA/CD ,
,
.
64
2,8 .
,
Ethernet:
“”
Ethernet (Thick Ethernet).
(
)
2,5 .
,
,
:
500
;
1000
3Com;
“”
Ethernet (Thin Ethernet).
Ethernet
RG-58A/U.
Ethernet
.
,
- .
,
“”
Ethernet:
185
;
304
3Com.
Ethernet
Ethernet
3Com () Novell Ethernet
Novell ().
-.
Ethernet
.
-
,
.
2.4
.
()
.
.
,
Norton Commander.
“”
,
()
.
,
( ).
LANtastic
Artisoft, LANstart
D-Link System, NET/30
Invisible Software,
WebNos
Websorp.
IBM PC,
,
MS
DOS.
,
(-)
.
,
.
1 2
.
,
,
,
.
.
.
NetWare Lite
Novell.
(
, ,
,
..).
.
2 25
.
.
,
,
,
()
.
NetWare Lite
,
IBM PC XT/AT.
MS DOS (
3., 4., 5.0, 6.0),
MS Windows,
,
,
,
.
.
NetWare Lite
IPX/SPX, , NetBIOS,
NetWare.
NetWare Lite
Ethernet Arcnet.
,
,
,
.
( 100
)
()
,
250
.
Novell.
NetWare
2., 3..
,
,
,
NetWare Lite Novell.
- .
2.5
.
-
.
,
.
,
:
, -
, ,
,
..
2.5.1.
.
, ,
.
.
,
.
, ,
.
-
,
.
.
-
.
.
,
,
,
.
2.5.2
.
.
-
,
,
.
.
2.5.3.
IBM PC XT/AT
;
EPSON;
MS-DOS 3.31
;
700Kb
;
CONFIG.SYS
FILES=NN, NN -
50.
2.5.4.
.
INSTALL.EXE
.
IPX ,
,
(
)
.
2.5.5.
1.
:
2.
.
-
.
:
,
,
,
,
,
-
,
,
.
.
3.
-.
.
,
,
(
,
) .
.
.
,
,
,
.
4.
.
,
.
,
:
5.
.
.
2.6.
2.6.1
BORLAND PASCAL 7.0
Borland
Pascal 7.0
,
DOS
WINDOWS.
,
,
,
IBM PC/XT. ,
BP
,
-
Turbo Vision 2.0,
,
DOS .
2.6.2.
-
TURBO VISION
-
DOS-
TURBO VISION 2.0
: TValidator
,
.
,
,
- ,
,
Paradox
dBASE.
,
Turbo Visoin 2.0 ? TV -
-
.
Borland International
Turbo Vision,
.
Turbo Vision -
-
,
:
TV
.
2.6.3.
TURBO VISION
Turbo Vision -
,
.
-
,
,
.
,
,
,
,
-
.
,
.
,
,
.
:
-
TDesktop,
.
,
TWindow, TDialog ..
TDesktop
TApplication
.
.
Turbo Vision
TWindow.
TFrame
.
,
-
Tab
Shift-Tab
()
.
.
TDialog
TWindow
.
TWindow
,
.
cmCancel
Esc (
)
cmDefault
Enter.
.
TButton -
,
.
TButton
TDialog
,
-
.
.
TInputLine.
,
-
,
/,
Backspace, Delete, Insert, Home, End.
.
TListViewer
.
.
TStaticText -
,
.
,
Writeln,
TStaticText
(
)
.
,
.
- -,
.
,
TV. ,
-
,
.
TV
.
Tapplication,
TV
.
,
F1
,
.
-
,
.
,
.
,
.
-
,
.
()
-
TURBO VISION. ,
,
.
2.6.4
.
2.6.4.1
.
:
,
, ,
.
,
,
...
,
.
.
:
BEGIN
{
}
{}
{
}
END.
,
.
Borland Pascal’,
Turbo
Vision !
Turbo
Vision
,
.
Turbo Vision.
Uses App;
Var
SklVks : TSklVks;
Begin
SklVks.Init;
SklVks.Run;
SklVks.Done;
End.
Turbo Vision
APP ( Application -
).
Turbo Vision.
TApplication, ..
(,
, ,
).
TApplication
INIT, RUN DONE.
.
,
(. 1) :
(
1)
,
“”,
,
ALT-X
.
,
?
,
TApplication
.
,
,
Init
Run TApplication.
,
:
(
),
(
)
( ).
2.6.4.2
.
-
.
SKLVKS.
()
TApplication
InitStatusLine InitMenuBar.
InitStatusLine
,
:
,
.
.
F1
F10
.
InitMenuBar
,
. (.
2)
USES
APP,OBJECTS,MENUS,DRIVERS,VIEWS;
Const
cmPrnSklad =
200;
cmSklad =
201;
cmZak =
203;
cmPriceLst =
204;
cmHelp_About = 205;
cmPrint =
206;
cmPrihod =
207;
cmSbros =
208;
cmNext =
209;
cmMore =
213;
cmSKL =
214;
cmDostup =
215;
cmDobavka =
216;
cmRekviz =
217;
cmKurs =
218;
cmTemp =
219;
cmPriceList =
220;
cmSdelka =
221;
cmPrih =
222;
cmVozvrat =
223;
cmKorPrihod =
224;
cmDolgi =
225;
cmUdal =
226;
cmMoney =
227;
cmArchive =
228;
Type
TSklVks
= object(TApplication)
Procedure
InitStatusLine ; Virtual;
Procedure
InitMenuBar ; Virtual;
End;
Procedure
TSklVks.InitStatusLine; {
}
var
R:
Trect;
Begin
GetExtent(R);
R.A.Y:=pred(R.B.Y); {
}
StatusLine:=New(PStatusLine,Init(R,NewStatusDef(0,$ffff,
NewStatusKey('
~ALT-X~- ',kbAltX,cmQuit,
NewStatusKey('
~F1~-',kbf1,cmHelp_About,
NewStatusKey('
~F10~-',kbf10,cmMenu,
nil))),nil)));
END;
Procedure
TSklVks.InitMenuBar; {
}
var
R:
Trect;
Begin
GetExtent(R);
R.B.Y
:=succ(R.A.Y); {
}
MenuBar:=New(PMenuBar,Init(R,NewMenu(NewSubMenu('~~',hcNoContext,
NewMenu(
NewItem('~~','
',kbNokey,cmSklad,hcNoContext,
NewItem('~~','
',kbNoKey,cmSdelka,hcNoContext,
NewItem('~~','
',kbNoKey,cmPrih,hcNoContext,
NewItem('~~','
',kbNoKey,cmDolgi,hcNoContext,
NewItem('~~','
',kbNoKey,cmMoney,hcNoContext,
NewLine(
NewItem('~~','ALT-X',kbAltX,cmQuit,hcNoContext,nil)))))))),
NewSubMenu('~~',hcNoContext,(NewMenu(
NewItem('~~','',kbNoKey,cmZak,hcNoConText,
NewItem('~~','',kbNoKey,cmVozvrat,hcNoConText,
nil)))),
NewSubMenu('~~',hcNoContext,NewMenu(
NewItem('
~~','',kbNoKey,cmPrihod,hcNoContext,
NewItem('~~
','',KbNoKey,cmKorPrihod,hcNoContext,
nil))),
NewSubMenu('~~',hcNoContext,NewMenu(
NewItem('~~
','
',kbNoKey,cmPrnSklad,hcNoContext,
NewItem('
~~',' ',KbNoKey,cmPriceList,hcNoContext,
nil))),
NewSubMenu('~~',hcNoContext,NewMenu(NewItem('~~
',
'
',kbNokey,cmArchive,hcNoContext,nil)),
NewSubMenu('~~',hcNoContext,NewMenu(
NewItem('~~','
',kbNoKey,cmDostup,hcNoContext,
NewItem('~~','
',kbNoKey,cmRekviz,hcNoContext,
NewItem('~~
','
',kbNoKey,cmKurs,hcNocontext,
nil)))),
NewSubMenu('~~',hcNoContext,NewMenu(
NewItem('
~~ ...
','',kbNokey,cmHelp_About,hcNoContext,
nil)),
nil))))))))));
end;
Var
SKLVKS
: TSKLVKS;
BEGIN
{
}
SklVks.Init;
SklVks.Run;
SklVks.Done;
END.
{
}
(
2)
2.6.4.3
,
-
.
,
-
.
HandleEvent
TApplication.
TSklVks
...
Type
TSklVks =
Object(TApplication)
......
Procedure
HandleEvent(var Event : Tevent); virtual;
End;
:
Procedure
TSklVks.HandleEvent(var Event : TEvent);
Begin
TApplication.HandleEvent(Event);
if Event.What
= evCommand then
case
Event.Command of
cmPrnSklad
: Begin
PrintSklad;
End;
cmSklad
: begin
Sklad;
end;
cmZak
: Begin
Zak;
End;
cmHelp_About
: Begin
Help_About;
End;
cmPrihod
: Begin
Prihod;
End;
cmPrih
: Begin
Prih;
End;
cmDostup
: begin
Dostup;
end;
cmRekviz
: begin;
rekviz;
end;
cmKurs
: Begin
Kurs;
end;
cmPriceList
: Begin
GetDate(yyyy,mm,dd,ww);
PriceList(dd,mm,yyyy);
ClearEvent(Event);
end;
cmSdelka
: Begin
Sdelki;
End;
cmVozvrat
: Begin
Vozvrat;
End;
cmKorPrihod
: Begin
KorPrihod;
End;
cmDolgi
: Begin
Dolgi;
End;
cmMoney
: Begin
Money;
End;
cmArchive
: Begin
Arc_;
End;
else
ClearEvent(Event);
end;
ClearEvent(Event)
End;
2.6.4.4
TSklVks.HandleEvent
,
.
Prih. -
.
,
,
.
,
.
:
(*
*)
Type PPP = record
Number :
LongInt; { }
FirmName :
String[22]; {
}
Date :
String[10]; {
}
Kurs :
Real; {
}
TotalItems :
LongInt; { -
}
SebSumma : Real; {
}
End;
(*
}
Type PPPItems =
Record
Number :
LongInt; {
}
PrihodNum : LongInt;
{ }
SkladNum : LongInt;
{
}
Name :
String[lpname]; {}
Rasf :
String[lprasf]; {}
Box :
Integer; {-
}
Kolvo :
LongInt; {-
}
SebPrice : Real;
{
}
Price : Real;
{
}
SellTimes :
Boolean; {}
End;
SKLTYPES.PAS.
,
:
Var {
}
PrihodData
: PPP;
PrihodItemsData :
PPPItems;
....{
}
PrihodFile :
File of PPP;
PrihodItemsFile
: File of PPPItems;
....
,
.
,
.
Dialog Designer 4.0.
, ,
.
, c
.
unit PRIHOD1;
interface
uses Drivers,
Objects, Views, Dialogs, Validate;
type
PrihodDataRec =
record
Field1 :
String[10];
Field3 :
String[13];
Field2 :
String[22];
end;
PPrihodDataRec =
^PrihodDataRec;
{ TPrihodDataDialog
}
PPrihodDataDialog =
^TPrihodDataDialog;
TPrihodDataDialog =
object(TDialog)
constructor Init;
constructor
Load(var S: TStream);
procedure
HandleEvent(var Event: TEvent); virtual;
procedure
Store(var S: TStream);
function
Valid(Command : word): boolean; virtual;
destructor Done;
virtual;
end;
Var
PRD : PrihodDataRec;
Const
RPrihodDataDialog :
TStreamRec = (
ObjType: 12345;
{= 100 here!!}
VmtLink:
Ofs(Typeof(TPrihodDataDialog)^);
Load :
@TPrihodDataDialog.Load;
Store :
@TPrihodDataDialog.Store);
implementation
{ TPrihodDataDialog }
constructor
TPrihodDataDialog.Init;
var
R: TRect;
Control : PView;
begin
R.Assign(13, 3, 66,
17);
inherited Init(R,
' /
');
Flags := Flags and
not wfMove;
R.Assign(24, 3, 36,
4);
Control :=
New(PInputLine, Init(R, 10));
Insert(Control);
PInputLine(Control)^.Validator
:= New(PPXPictureValidator, Init('{##}/{##}/{####}', true));
R.Assign(5, 3, 24,
4);
Insert(New(PLabel,
Init(R, ' : ', Control)));
R.Assign(24, 5, 39,
6);
Control :=
New(PInputLine, Init(R, 13));
Insert(Control);
PInputLine(Control)^.Validator
:= New(PPXPictureValidator, Init('*#[.#][#]', False));
R.Assign(5, 5, 24,
6);
Insert(New(PLabel,
Init(R, '
: ', Control)));
R.Assign(24, 7, 48,
8);
Control :=
New(PInputLine, Init(R, 22));
Insert(Control);
R.Assign(5, 7, 24,
8);
Insert(New(PLabel,
Init(R, '
: ', Control)));
R.Assign(7, 10, 18,
12);
Control :=
New(PButton, Init(R, '~~',
cmCancel, bfNormal));
Insert(Control);
R.Assign(23, 10, 41,
12);
Control :=
New(PButton, Init(R, '~~',
cmOK, bfDefault));
Insert(Control);
R.Assign(37, 3, 51,
4);
Control :=
New(PStaticText, Init(R, '[ //
]'));
Insert(Control);
SelectNext(False);
end;
constructor
TPrihodDataDialog.Load(var S: TStream);
begin
inherited Load(S);
end;
procedure
TPrihodDataDialog.HandleEvent(var Event: TEvent);
begin
(*---
if Event.What =
evMessage then
case Event.Command
of
end; --*)
inherited
HandleEvent(Event);
(*---
if Event.What =
evMessage then
case Event.Command
of
end; --*)
end;
procedure
TPrihodDataDialog.Store(var S: TStream);
begin
inherited Store(S);
end;
function
TPrihodDataDialog.Valid(Command : word): boolean;
var
Result : boolean;
begin
Result := inherited
Valid(Command);
Valid := Result;
end;
destructor
TPrihodDataDialog.Done;
begin
inherited Done;
end;
end.
PRIH
:
PRD.Field1:=ShowDate;
{
- }
Str(GetKurs:-1:2,PRD.Field3);
{
-
}
FillChar(PRD.Field2[1],22,'
'); {
}
c1:=ExecuteDialog(New(PPrihodDataDialog,Init),@PRD);
{
}
,
.
(.
PRIH2.PAS),
(,
,
,
..). (. . 3)
(.3)
,
.
,
.
(
. FIRMA.PAS) :
OpenPrihodFile; {
.
SklFiles.Pas}
Seek(PrihodFile,FileSize(PrihodFile)-1);
Write(PrihodFile,PrihodData);
ClosePrihodFile; {
.
SklFiles.Pas}
,
(
PRIH
)
TRUNCATE.
.
(.
PrintPrihodNakl PrintEndOfPrihodNakl
SklUnit).
LST,
LPT1,
Writeln(LST,‘
’)
.
: SKLAD.001 (
) , PRIHOD.001 (
), PRIHOD.002
(
).
: -,
-,
--,
-
,
-.
-.
.
:
,
(
).
()
(
,
).
:
,
(),
,
.
,
,
,
.
: SDELKA.001 (
), SDELKA.002 (
),
SKLAD.001
.
,
.
Data1:=New(PStrSor,Init(10,1));
{
}
For N:=0 to
FileSize(DataFile)-1 do {
,
)
begin {1}
Seek(DataFile,n);
Read(DataFile,Data);
{
}
val(Data.ProductOst,tempccc,code);
Str(Data1^.Count+1,Numm);
if tempccc=0 then
goto ccc; {
,
}
o[0]:=chr(57);
FillChar(o[1],57,'
');
with data do
begin {
: , ,
}
move(Numm[1],o[2],Length(Numm));
move(ProductName[1],o[succ(lpnum-1)+4],Length(Data.ProductName));
move(ProductRasf[1],o[succ(lpnum+lpname)+5],Length(Data.ProductRasf));
move(ProductNumber[1],o[50],Length(Data.ProductNumber));
end;
Data1^.Insert(NewStr(o));
{
}
ccc:
end; {1}
Turbo Vision
TListBox.
.
,
TListBox.NewList.
Var
SCR : PScrollBar ;
LIST : PLitstBox;
.....
Begin
.....
RR.Assign(50,05,51,17);
{
}
Scr:=New(PscrollBar,Init(RR));
{
}
Insert(Scr);
{ }
R.Assign(03,05,50,17);
{
}
List:=New(PMyListBox,Init(R,1,scr));
{
}
List^.NewList(Data1);
{
}
Insert(list);
{
}
....
End;
:
-.
.
.
()
.
.
,
DATECOMP
DATES.PAS.
,
(
)
(.
SKLSTR.PAS).
,
,
,
,
.
2.6.4.5
.
,
Borland Pascal.
(123
).
NUMSTR.PAS.
1000000.00
1,000,000.00.
NUMSTR.PAS.
2.6.4.6
.
,
.
-
.
()
(, ),
,
()
.
:
,
.
Ec
,
SDELKA.ARCHIVE
TRUE.
SDELKA.ARCHIVE
FALSE.
.
2.6.4.7
.
,
.
(
)
FIRMA.DAT,
:
Type
{
}
ConfigFileStructure
= record
CassName
: String[22]; { }
BuhName
: String[30]; { }
GenName
: String[30]; {
}
UserName
: String[30]; { }
Signature
: String[10]; {
BIOS' }
Reserved1
: String[10]; { }
Reserved2
: String[10]; {
}
Reserved3
: String[20]; { }
Password
: String[10]; {}
FirmName
: String[60]; {
}
Kurs
: Real; { }
end;
.
-
.
.
. ,
,
TInputLine.HandelEvent ,
,
‘*’ ().
.
PASSWORD.PAS.
OK
.
,
FIRMA.DAT
Password.
,
.
.
2.6.4.8.
.
,
,
.
ConfigFileStructure
PassWord
String[10];
Type
ConfigFileStructure =
record
....
Password :
String[10];
....
End;
-
cmDostup,
Dostup
SETUP.PAS.
:
:
.
OK
.
,
FIRMA.DAT.
.
(58+
)*2.
.
,
, ,
.
2.6.4.9.
().
.
,
,
.
,
,
( ,
..).
:
Type
DataType =
record {
}
ProductNumber :
String[5]; {}
ProductName :
String[22]; {}
ProductRasf
: String[10]; {}
PieceInBox
: String[5]; {-
}
ProductPrice
: String[12]; {
}
ProductKol
: String[12]; {
}
ProductFirm
: String[22]; { }
ProductDate
: String[l10]; { }
ProductOST
: String[12]; {
}
ProductKurs
: Real; {
}
ProductSellPrice :
Real; {
}
ProductVozvrat :
LongInt; {}
end;
Var
Data :
DataType;
DataFile : File of
DataType; { SKLAD.001}
()
()
:
.
.
-
Data
,
Write(DataFile,Data).
-
Read(DataFile,Data);
.
. :
Type {
}
SdelkaInfo =
record
SdelkaNumber
: LongInt; {
}
Reserved
: Word;
Archive
: Boolean; { }
ItemIndex
: LongInt; {
}
ItemsTaken
: LongInt; { }
FirmName
: String[22]; {}
Date
: String[10]; {
}
OplataDate
: String[10]; {
}
Summa
: Real; {}
Kurs
: Real; { }
SummaSkidka
: Real; {
}
Oplata
: Boolean; {TRUE -
}
End;
Type
OneItemInfo =
record { }
Number
: LongInt;
SdelkaNumber
: LongInt;
SklNum
: LongInt;
Name
: String[22];
Rasf
: String[10];
Box
: Integer;
KolVo
: LongInt;
SBPrice
: Real;
Price
: Real;
Vozvrat
: LongInt;
End;
Var
Sdelka :
SdelkaInfo;
SdelkaFile : File
of SdelkaInfo; { SDELKA.001}
Item :
OneitemInfo;
ItemsFile : File
of OneItemInfo; { SDELKA.002}
.
:
,
,
,
,
(
),
,
,
,
.
,
.
,
,
:
SdelkaFile ItemsFile;;
SdelkaFile
(Seek(SdelkaFile,n));
(Read(SdelkaFile,Sdelka);
,
Sdelka.ItemIndex ItemsFile
( Sdelka.ItemsIndex
Sdelka.ItemsIndex+Sdelka.ItemsTaken)
. (Read(ItemsFile,Item);
SdelkaFile ItemsFile;
Borland Pascal
:
OpenSdelkaFile;
OpenItemsFile;
{ :
SKLFILES.PAS}
Seek(SdelkaFile,
); {
}
Read(SdelkaFile,Sdelka);
{
}
for
n:=Sdelka.ItemIndex to Sdelka.ItemsTaken do {
- }
Begin
Seek(ItemsFile,n);
Read(ItemsFile,Items);
......
(
) .....
End;
CloseItemsFile;
CloseSdelkaFile
{ };
,
.
2.6.5.
BORLAND PASCAL 7.0 -
TURBO VISION
.
2.7
2.7.1.
,
,
,
()
.
,
,
,
,
,
.
,
,
.
,
,
...
,
,
()
,
.
,
,
,
.
,
,
,
,
.
.
,
,
,
,
...
,
...
:
,
,
,
,
,
,
.
,
...
,
,
(
),
,
.
,
,
,
,
.
.
,
,
,
,
,
,
.
,
,
.
,
,
,
,
.
,
.
,
,
.
,
.
, ,
(,
,
..) “
,
.
,
.
,
.
,
,
,
,
.
-
.
,
(. .).
“
”
:
1,
2,
3,
4,
5,
6,
7.
,
,
:
.
.
():
()
,
().
(),
.
,
.
,
,
.
.
,
.
.
.
.
,
,
,
.
.
,
.
2.7.2.
()
,
-
.
.
.
“
”,
(),
,
.
“
”
(,
,
..),
“
”,
.
“
”
“
”,
.
,
“
”
,
,
.
“
”
,
()
()
()
.
,
“
“
”.
,
, ,
, .
(
-
), ,
,
.
,
,
,
,
.
,
,
,
-
,
.
“”
,
,
.
,
,
.
: ,
,
()
.
,
.
, ,
.
.
“” ,
,
“”.
,
.
,
. ,
,
,
.
,
,
,
.
,
,
.
.
,
,
,
.
,
.
,
,
.
.
,
.
,
,
-
.
,
.
,
.
“”
.
(-)
(
).
,
.
-
(
),
.
,
.
,
()
-.
,
, .
, ,
(
,
)
.
,
,
.
“ ”
,
.
-,
,
,
,
-.
.
.
, ,
,
,
, ,
,
.
,
.
,
,
,
.
,
,
:
;
;
, ,
,
,
;
.
.
,
,
: ,
, ,
,
.
.
-
. ,
,
.
,
,
, ,
“”
“”
(“”)
.
,
,
,
.
, ,
.
.
,
.
, ,
,
.
,
,
.
,
.
,
,
,
...
,
,
,
-
,
.
,
.
,
,
,
,
,
,
“
”.
,
,
.
-
,
.
,
,
,
.
,
,
(),
,
,
.
,
.
,
,
,
,
.
.
, ,
,
,
. ,
,
,
.
,
, ,
,
.
,
( 0,5 1
80 ).
,
,
,
“
”
,
,
.
, ,
,
,
,
.
,
,
:
,
,
...
,
:
,
,
,
.
2.7.3.
,
.
,
.
,
,
:
()
(
,
)
()
( ,
);
,
;
,
,
...
,
.
,
,
, ..
.
(,
,
,
..)
(),
.
,
.
.
.
,
,
,
,
()
,
.
,
“
”,
“
F” (F
, .. ).
(
,
,
).
m
(
)
n
( ),
,
i-
j- ,
i-
j- .
,
m
n
,
,
,
,
,
.
,
.
,
“
”,
.
(),
i,
i j .
.
-
.
,
.
,
.
2.7.6.
. ,
,
.
,
.
1.
,
,
.
2.
, ..
.
3.
,
.
4.
,
,
.
5.
.
6.
,
,
.
7.
,
,
.
8.
.
9.
(
,
).
10.
.
11.
( )
(
).
12.
, ,
.
13.
-
,
,
,
.
14.
.
15.
.
:
-
;
;
.
,
,
.
.
,
,
.
.
1.
.
2.
,
.
3.
,
.
4.
.
5.
,
(
).
6.
, ,
...
7.
.
8.
.
9.
.
10.
,
,
,
.
11.
,
.
12.
.
-
,
.
1.
,
,
( )
-
().
2.
.
3.
-
,
.
4.
,
.
5.
2,5
,
,
,
, -
,
,
.
6.
.
7.
,
,
.
8.
.
,
. ,
,
.
1.
,
.
2
.
10.
2.
.
,
.
,
.
.
3.
.
.
4.
,
.
,
“
”
.
5.
,
.
6.
().
,
,
,
.
.
7.
,
.
.
1.
-
.
2.
.
3.
,
-.
-
,
,
,
.
4.
,
.
,
.
,
.
,
.
,
.
3.
3.1
,
, ,
,
.
,
,
.
.
,
.
:
;
;
;
;
.
(
,
)
,
.
,
,
,
,
.
,
,
.
.
,
.
,
(..
),
.
.
,
,
,
.
. ,
,
.
,
,
,
.
,
,
.
,
.
,
,
.
,
,
,
.
,
,
:
,
,
(
)
.
,
,
,
.
.
,
,
.
,
,
.
,
,
,
.
,
,
.
,
,
;
()
.
,
,
.
.
.
,
.
.
.
,
,
.
.
.
,
, ,
,
.
.
.
.
,
,
.
,
.
.
,
,
.
.
.
,
,
.
,
,
.
,
.
50%
20
40%, ,
,
.
30%
.
.
:
,
;
-
;
-, -
;
();
,
,
.
:
,
,
;
;
,
;
,
.
:
,
;
,
.
. ,
600 1500 .
, ,
.
,
.
80 120 ,
,
,
,
,
.
35 70 .
20 30 ,
10,
5 .
.
.
,
.
-
.
,
,
(
).
(
1800
8000 10000 ).
.
. ,
,
20
,
1
.
,
..
,
.
,
,
,
,
, ,
...
,
,
,
,
,
.
()
,
,
,
,
, ,
,
,
,
.
.
,
,
,
,
.
,
,
.
,
,
(
),
.
,
,
,
,
. ,
,
,
.
,
.
,
,
:
,
,
, ,
,
,
, ,
.
,
,
.
,
( ,
,
..
,
).
,
,
,
10 (0,1 /.).
125 (3 /.)
.
10 .
,
1
20
,
18 ,
,
17 ,
10
11
.
.
,
.
,
(
,
250
420 /., ..
6 10 /.).
,
,
;
,
;
.
,
:
,
.
,
,
,
;
,
.
,
,
, .
.
,
.
.
,
(
)
.
,
.
,
,
50
60 / .
20%.
(1, 2, 3, 4, 5)
.
()
1 2
,
.
4 5
.
,
,
.
.
.
:
, , , .
,
,
,
,
,
,
,
,
..
, -
28 120 ;
,
,
.
,
,
,
;
,
;
.
,
,
,
.
,
.
.
,
.
.
,
,
,
-
300 ,
100 .
,
,
,
,
,
1,5 ,
,
,
.
.
,
,
.
2,
.
35%.
:
1.
,
,
:
Rmin = 4 0,1
= 3,9
3,9
q
= 0,3
.max
= 1200 /.;
max = 25
2.
,
.
1
.
3. ,
,
.
.
4.
,
.
,
,
,
.
5.
,
.
,
,
,
,
q
= 300
290
/.,
,
1050 /..
6.
,
,
.
.lim
= 215 /.. ..
.lim < .max,
,
.
7.
,
,
, 25 .
,
,
.
8.
,
.
,
,
1200 /.,
35%,
,
.
,
|
-
|
-
-
-
-
-
|
-
-
(-
)
-
-
|
-
-
,
-
-
-
-
-
-
-
|
-
-
-
|
-
.max
|
-
,
|
-
.
:
-
,-
,
-
,
-
-
- 3
;
-
-
-
,
-
-
1,5 ;
-
|
1
|
|
-
,
-
-
-
|
290
/.
1050
|
215
/.
|
|
-
|
3.2
.
1.
1200 /.
25 ,
.
.
2.
,
..
300 /.,
.
3.
,
,
,
,
,
,
.
4.
1200 /.,
:
;
;
;
(
,
).
4.
.
, ,
,
.
;
, ,
.
,
.
,
.
,
,
,
.
,
.
,
, ,
,
.
,
.
,
,
,
.
, ,
,
.
,
,
,
,
.
,
,
,
.
.
.
,
,
. ,
,
.
,
,
,
.
,
.
,
,
,
,
.
,
.
.
3,5 .
250 ,
5 .
,
80 ,
4
.
:
.
. ,
,
,
.
5.
.
.
,
.
.
,
,
.
..
,
,
(,
).
,
,
.
,
,
,
,
.
,
.
.
,
,
,
,
,
,
,
.
,
-
, ,
.
,
,
., ,
.
,
,
,
.
,
“”,
.
,
.
,
.
.
,
,
,
.
,
,
,
.
.
.
,
,
,
.
.
,
,
,
, ,
.
,
,
. ,
.
.
. ,
,
.
,
.
,
, ,
.
,
,
,
,
.
.
, ,
:
=
+ + ,
,
.;
, .;
,
500000 .
,
.
.
(),
,
(d),
()
(q):
= a*f(d,c,q),
0 1, f(d,c,q)
.
.
,
1,
,
0.
f(d,c,q)
d, c q, ..:
f(d,c,q) = f(d) +
f(c) + f(q)
f(d,c,q)
.
d, c, q.
,
,
.
,
.
,
.. .
3 5%.
,
.
,
6
,
,
,
.
:
Rs = (R/S)*100,
Rs
;
R
;
S
,
.
,
(Rt),
(t0 tn), :
Rt = Rti = Rs*Sti
,
, ,
(Rs)
.
. ,
,
,
.
.
,
,
.
,
,
,
.
(
),
,
,
.
,
,
,
,
.
,
.
,
(
)
,
.
,
:
P < Ka
,
;
;
;
,
,
,
1 2%
,
40 50%
,
.
.
,
,
,
, ,
.
.
.
,
,
.
,
,
.
, ,
.
,
,
25 50%.
,
,
,
,
.
.
;
;
F
,
,
; F
;
.
,
F
F :
lim P/Pp = (1
F)*C/(1 F)*C = 1
FF
F F, ..
,
.
,
(F,
,
, ..
lim P/Pp = (1
F)*C/(1 F)*C = 0
F1
.
= (1
F)/(1 F)
.
,
.
.
5 10 .
,
,
.
.
:
,
,
.
,
,
, ,
.
.
,
,
.
,
n ,
,
.
:
= /n
+ /n + 1 + 1,
1
,
;
1
.
,
+ .
(1 + 1)
.
.
.
,
.
,
,
,
.
30%.
.
100 .
,
600000 ,
,
3500 ,
350
.
10%
, ,
,
35 .
35%
,
134750 .
,
,
,
,
750 ,
..
,
75 .
,
400 ,
6
, ,
,
,
1200 /
120
.
30%
,
105
.
772500 .
,
,
1004250 ,
.
,
.
,
,
.
.
ExecuteDialog (
Borlan Pascal)
, ..
.
.
, ,
,
.
;
, ,
.
,
.
,
.
,
,
,
.
,
.
,
, ,
,
.
,
.
,
,
,
.
, ,
,
.
,
,
,
,
.
,
,
,
.
.
.
,
,
. ,
,
.
,
,
,
.
,
.
,
,
,
,
.
,
.
.
3,5 .
250 ,
5 .
,
80 ,
4
.
.
. ,
,
,
.
A
..
,
.
.B. “
“
-
-
.
-
,
-.
,
,
.
-
.
.
.B.
____________ .
___________________________/ /
C
.
1.
. C.
. ..
.:
“
”,1994
2.
.., ..
.-.: “
”,1992
3.
..
. -
.: “
”,1994
4.
.. :
. -.: “
” , ,1994
5.
..
( 3- ).
3.
.
1.-.: “-
“-
”, 1993
6.
..
( 3- ).
2.
Turbo Vision.-.: “-
“-
”, 1993
7.
. Borland Pascal :
Turbo Vision 2.0.-: “”,1993
8.
.
Borland Pascal.-:
“”,1994
9. Turbo Vision
Pascal.
.-M.:”...-”,1992
10. Turbo Vision
Pascal. C.
-.: “...-”,1992
ଠ N 57a
,
䥤 ""
""
. 䥤ன 襢 ..
"__"________________ 1994 .
㤥 ਣ쥢 ..
89480 䠪 ⨪ 㯯 -3-89
ᯥ樠쭮 01.02
1. ࠡ⪠ ⥬ ࠢ ࠡ⮩
(⢥ত ਪ "__" _________ 1994. N______)
2. ப ᤠ 祭 䥢ࠫ 1995 .
3. 室
a) "Paradox For Windows" ࠪ 㪮⢮ ।. ᯨ饢
..,᪢,"",1993, ⮬ 1; ) "Paradox For Windows" ࠪ-
㪮⢮ ।. ᯨ饢 ..,᪢,"",1993,
⮬ 2; ) 쪮 ."Widows For WorkGroups" ᠭ 짮⥫,
, ࣮-⥫ ...,1994; ) ⮭ . ᠭ
ࠩ Windows,ॢ ,᪢,,1994 ) "-
쭮 ⥫ ", ᪢, , 1994.
4. ঠ ⭮-᭨⥫쭮 ᪨ ( 祭
ࠧࠡ⪥ ᮢ) 1.; 2.᭮ ; 2.1.⠭
; 2.2. ࠡ⪠ ⬠ ணࠬ; 2.3.롮 । 㭪-
ணࠬ; 2.4.ࠡ⪠ 䥩 ணࠬ; 2.5. -
ࠡ⪠ ⭮ ᯥ祭 ; 2.5.1.
쭮 ⥫ ⥩; 2.5.2. 롮 ⭮ । 㭪-
ணࠬ; 2.5.3. 㭪樮쭠 奬 ⭮
; 2.6. 짮⥫; 3. ࠭ 㤠; 4. ⭠
᪠ ; 5. Resume.
5. ࣠樮
a) ᪠ 楫ᮮࠧ ᮧ ணࠬ த;
) ᥡ⮨ । 業 ணࠬ த;
) 䥪⨢ ࠡ⪨.
6. ࠭ 㤠 ࠡ ⥬
।.
7. ⨢୮ ⮩稢
ந ࠤ .
8. ࣮ ______________________________________________
_______________________________________________________________________
9. 祭 ਠ ( 㪠 易⥫
⥦)
1: ୠ 奬 ଠ樮 ⮪ ।⨨;
2: ࠬ;
3: 譨 䥩 ணࠬ;
4: 奬 ;
5: ୠ 奬 ;
6: 㭪樮쭠 奬 ⭮ ᯥ祭 ;
10. 㪮⥫ ⠭ ( 㪠 䠬, ., .,
ࠡ ):
) 㪮⥫ __________________________________ ⮢ ..
) ⠭ ⥬ ___________________________ ⮢ ..
) ⠭ ࣠樮- _____ ..
) ⠭ ࠭ 㤠 ..., ..
) ⠭ _____________________________________ ﭨ ..
) ⠭ _____________________________________________________
11. 뤠 01 1994 .
ࠡ ⮬ ਮ ( 㪠 ꥬ
믮 㤮 ⤥ ⠯ 栬)
1. 祭 - 10%
2. ⭮-᭨⥫쭠 ᪠ (᭮ ) - 50% ( 06.01.1995)
3. ᪨ ਠ - 30% ( 01.02.1995)
4. ⭮-᪠ - 10% ( 10.02.95)
㪮⥫ ⮢ .. __________
ਭ ᯮ 28 1994 .
㤥 ਣ쥢 .. __________
|