. , , ,

,,,

" " — ,

, , .

, . () .

- , . . , , .

, . : , , , .

, .

.

, . , , .

, .

, . , .

Delphi Access.

:

1.  ;

2.  ;

3.  ;

4.  ;

5.  ;

6.  ;

7.  .

8. 


1.

1.1 

 

2007 .

. - ( ) - , . . .. .

1100 -, , , , . 200 . .

. , , .

, , . 280 , .

1.2 

, .

:

- , , - .

- , , , , - .

- , , , , (), - .

- , .

- , , , .

- , , .

- .

- , .

- , .

1.3

, , , , . 1.

1 - .

1.4

1 2010.

1- 2010.

.
1 2 3 4 5 6 7 8 9 10
5740 01--10 39 . . 11003024 .. 01--10
5741 01--10 10 0009925855 .. 02--10
5742 01--10 23 2706271126
5743 02--10 BB0428011292 .. 17--10
5744 02--10 Epson LX 300 1Y1Y199108 .. 09--10
5745 02--10 WC5020 00240065891
5746 02--10 CC 118 40200005791 .. 12--10
5747 02--10 10 R9RQ5A0005300 .. 10--10
5748 02--10 07 3536244 .. 03--10
5749 03--10 39 -3 160010NS06668 .. 03--10
5750 03--10 EMS -- 00177548 .. 03--10
5751 03--10 - .. 01--10
5752 03--10 - 09.11.10. 16-00
5753 03--10 EMS -32.2-22 48376 .. 19--10
5754 08--10 07 3660618 03--10
5755 08--10 22 Epson TM U950P
5756 09--10 . HPLJ1100 FRHR401497 .. 13--10
5757 09--10 15 . 0010122511 .. 10--10
5758 09--10 13 07 3554026 .. 09--10
5759 09--10 07 0009875652 . .. 09--10
5760 09--10 3 07 3670426 .. 10--10
5761 09--10 15.3-22 13419 ..
5762 10--10 22
5763 10--10 22 07 108685 .. 10--10
5764 10--10 35 07 3682324 , , .. 11--10
5765 10--10 3 07 3670805 2020 .. 11--10
5766 11--10 29 201 0601502 .. 11--10
5767 11--10 . HPLJ1200 CNCSL08201 (c ) .. 03--10
5768 11--10 . Xerox hazer 3121 3823826213 ..
5769 12--10 16 2706283990 .. 15--10
5770 12--10 --3/150 147615 ( ) .. 12--10
5771 12--10 22 Epson EPL6200 ( .) .. 13--10
5772 13--10 07 3422128 .. 29--10
5773 15--10 . 9897821
5774 15--10 Epson EPL6200 FGNZ160077
5775 15--10 07 3551301 .. 16--10
5776 15--10 6 2706262479 () .. 15--10
5777 15--10 29 201 0601502 .. 16--10
5778 15--10 07 3658056 .. 16--10
5779 15--10 . BB0350036737 .. 15--10
5780 15--10 22 R9RQ5B0013772 .. 17--10
5781 16--10 . 012454-012 .. 16--10
5782 16--10 R9RQ5C0014832 , . .. 03--10
5783 16--10 22 R9RQ5A0005594 .. 17--10
5784 16--10 Epson EPL6200 FGNZ112775 .. 07--10
5785 16--10 Epson EPL6200 FGNZ100266
5786 16--10 3 07 3670426 .. 17--10
5787 16--10 07 3671188 .. 23--10
5788 16--10 . 0009862312 .. 23--10
5789 16--10 . 0010164649 .. 23--10
5790 17--10 7 .. 22--10
5791 17--10 5 R9RQ5B0013774 .. 19--10
5792 17--10 6 3657516 (0009977670) USB- .. 19--10
5793 17--10 22 07 3354229 .. 17--10
5794 17--10 11
5795 18--10 6
5796 18--10 HPLJ1022 CNBV636HSQ .. 07--10
5797 18--10 HPLJ1022 CNBV636HKK .. 03--10
5798 18--10 HPLJ1022 CNBV636HXV .. 03--10
5799 18--10 HPLJ1160 CNM2D66667 .. 07--10
5800 18--10 HPLJ1300 CNCKF21219 .. 03--10
5801 18--10 HPLJ1018 VHC4K43530 .. 03--10
5802 19--10 15 07 3437140 , .. 19--10
5803 19--10 6 2706262479
5804 19--10 3
5805 19--10 22 " "" (???). (?) .. 22--10
5806 22--10 36
5807 22--10 .. 24--10
5808 22--10 R9RQ5A0006780 .. 29--10
5809 22--10 BB0520014452 .. 29--10
5810 22--10 4B0815P19912 .. 29--10
5811 22--10 5 07 .. 22--10
5812 22--10 7
5813 22--10 . BB0550027341 .. 24--10
5814 23--10 53703C02363 ..
5815 23--10 43609C13933 ..
5816 23--10 ..
5817 23--10 53707C04079 ..
5818 23--10 GB9712240101 ..
5819 23--10 GB9703894767 ..
5820 23--10 BB0111001636 ..
5821 23--10 BB0611008029 .. 06--10
5822 23--10 LP502A083 ..
5823 23--10 . 0009862310 () ..
5824 23--10 22 07 3554054 040 .. 25--10
5825 23--10 36 ..
5826 23--10 -- 00160687 ..
5827 24--10 6 .. 24--10
5828 24--10 6 (.) .. 24--10
5829 24--10 3 07 3677514 .. 24--10
5830 26--10 EMS -50 18327 .. 29--10
5831 29--10 38 07 3657595 . .. 29--10
5832 29--10 2
5833 29--10 4 07 3669540 .. 29--10
5834 29--10 07 3546919 .. 29--10
5835 30--10 07 3669554 .. 03--10
5836 30--10 3 07 .. 30--10
5837 30--10 39 BB0639060012 .. 03--10
5838 30--10 EMS -- .. 03--10
5839 30--10
5840 30--10 39 R9RQ5A0006823 .. 03--10
5841 30--10 07 3658056 .. 30--10

1.5

, , . , .

, , , .

2.

2- .

, ,

,

8 20 160
4 35 140
0,5 60 30
, : 330

, , , 330 5 30 , , , . , 8 , , ( ) 40 % , .

:

- .

- .

- .

- .

- - .

, , .

, , , , , , .

.

, , .

3 .

3 - .

, ,

,

8 1 8
4 2 8
0,5 5 2,5
, : 18.5

, 5 , . , - :

-

-

-

-

-

-

-


2 

2.1 

2.1.1  Delphi

Delphi - , RAD (Rapid Application Development ‑ ) CASE - .

Delphi Object Pascal, - Pascal. Delphi SQL-, , , , , Windows-.

Windows, ++, , Delphi.

Windows Delphi:

-  ;

-  ;

-  .

Delphi , , . , . . , , , , .

, . , , , , , , - . , , , , .

Delphi . , , , . , , , .

, Borland Delphi , , , , , , , a . , Windows . Borland Delphi .

, , (, , .) Delphi - .

, , .

- . , . , , - .

Delphi . , 400 nonsense. , " Delphi ",.. VCL[1] 10-20. .

Delphi :

-  ;

-  ;

-  ;

-  Delphi;

-  Delphi ( );

-  .

Windows-

(Graphical User Interface GUI) , , , , . , , , . Windows 95/98 , , .

Delphi , , .. , , Windows.

Windows , . , , , , , , , , .

- . , . : (SDI) (MDI).

SDI. , Windows, . , Windows, SDI , , , .

, . , .

Windows . , Delphi Windows . , , , . .

. , , . , - : , , ..

. . , , , . , . , , , . - . .

. , , , . . , , - ( Microsoft). , , .

. , , . Microsoft - , .

, . Microsoft . , . . , - .

, . , . : (, , ), , ( , , , ). , . - , 16 . 256 (, , 16 ) , , 16 . (, , ), .

, , , . , Windows. , Delphi , Windows. , . , , Windows, , .

. , , . , , . clBlack , clWhite clRed .

: System MS Sans Serif, . , , . , Windows . - .

. . .INI, .

, . : , , , , , - .

. : , , , . . , , , , Clipboard .. , Windows, .

. , . . , , , MDI .. , , . , , .

.

.

. , - , , - Microsoft Windows. . , , . .

, , , , - .

, , .

, ( Alt ). , . , , , .

, , . . , , Ctrl-X, Ctrl-C Ctrl-V . .

, , . , , , .

, . . , , , . , , . , , , : . , . .

, . , . , . , . ..., , .

. , .

, . , - . , , , , .

. , , Tab. , , . , , - , , . , , Tab , , Tab, , , .

, , . :

-  , , - . , , , .

-  , .

-  - , F1.

-  , Windows.hlp, .

: , , .. , , . , . . , . - , .

, . - , , , ..

:

-  ;

-  ;

-  .

2.1.2  Access

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

. (), . , . .

Microsoft Access (, , , , , , , ). . , , .

Microsoft Access Windows, DDE ( ) OLE ( ). DDE Access DDE Windows. Microsoft Access Access Basic .

OLE Windows, - Access. , , OLE Windows.

Microsoft Access SQL ( ). SQL . Access . SQL. Access .

Microsoft Access (query by example), , . Windows , .

Microsoft Access , , -. Microsoft Access , . , (, , ) . Microsoft Access . Access (, Paradox, dBASE SQL).

, .

Microsoft Access , , . , Access , , dBASE, Paradox, Btrieve, FoxPro SQL, ODBE. , Access Windows, , SQL SQL .

Access .

2.2 

, .

6 - .

, .

, . .

. .

, . , . . .

, , . .

, , , . , . .

, , Microsoft Excel .

2.3 

19.

2.4

, . . 4.

4 .

/
.
/

. .

unit Unit6;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ADODB, DB, StdCtrls, Grids, DBGrids, Buttons, ComCtrls, ExtCtrls, Menus;

type

TForm6 = class(TForm)

ADOConnection1: TADOConnection;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

ADOQuery1: TADOQuery;

Panel1: TPanel;

DateTimePicker1: TDateTimePicker;

DateTimePicker2: TDateTimePicker;

Label1: TLabel;

Label2: TLabel;

SpeedButton1: TSpeedButton;

SpeedButton2: TSpeedButton;

SpeedButton3: TSpeedButton;

SpeedButton4: TSpeedButton;

SpeedButton5: TSpeedButton;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

Excell1: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

SpeedButton6: TSpeedButton;

ADOQuery2: TADOQuery;

GroupBox1: TGroupBox;

ComboBox1: TComboBox;

GroupBox2: TGroupBox;

ComboBox2: TComboBox;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

procedure SpeedButton3Click(Sender: TObject);

procedure SpeedButton4Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure SpeedButton6Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure ComboBox1Change(Sender: TObject);

procedure ComboBox2Change(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

implementation

uses Unit1, Unit12, Unit3, Unit13, Unit14, Unit15;

{$R *.dfm}

procedure TForm6.Button1Click(Sender: TObject);

begin

close;

end;

procedure TForm6.Button2Click(Sender: TObject);

begin

AdoQuery1.Filtered:=False;

ADOQuery1.Filter:='>='+DateToStr(DateTimePicker1.Date)+ ' and <='+DateToStr(DateTimePicker2.Date);

ADOQuery1.Filtered:=True;

end;

procedure TForm6.SpeedButton1Click(Sender: TObject);

begin

close;

Form1.adostatus.Active:=false;

Form1.adostatus.SQL.Text:='Select * from Data where =false';

Form1.adostatus.Active:=true;

end;

procedure TForm6.SpeedButton2Click(Sender: TObject);

begin

AdoQuery1.Filtered:=False;

ADOQuery1.Filter:='>='+DateToStr(DateTimePicker1.Date)+ ' and <='+DateToStr(DateTimePicker2.Date);

ADOQuery1.Filtered:=True;

end;

procedure TForm6.SpeedButton3Click(Sender: TObject);

begin

Form12.ShowModal;

end;

procedure TForm6.SpeedButton4Click(Sender: TObject);

begin

Form6.ADOQuery1.Edit;

Form13.Showmodal;

Form6.ADOQuery1.Active:=false;

Form6.ADOQuery1.Active:=true;

end;

procedure TForm6.N7Click(Sender: TObject);

begin

Form14.Showmodal;

end;

procedure TForm6.SpeedButton6Click(Sender: TObject);

begin

form6.ADOQuery1.Active:=false;

form6.ADOQuery1.SQL.Text:='Select * from data';

form6.ADOQuery1.active:=true;

end;

procedure TForm6.N9Click(Sender: TObject);

begin

Form15.Showmodal;

end;

procedure TForm6.ComboBox1Change(Sender: TObject);

begin

if combobox1.ItemIndex <> 0 then begin

form6.ADOQuery1.Active:=false;

form6.ADOQuery1.SQL.Text:='Select * from data where ='+''''+combobox1.Text+'''';

form6.ADOQuery1.active:=true;

end else begin

form6.ADOQuery1.Active:=false;

form6.ADOQuery1.SQL.Text:='Select * from data';

form6.ADOQuery1.active:=true;

end;

end;

procedure TForm6.ComboBox2Change(Sender: TObject);

begin

if combobox2.ItemIndex <> 0 then begin

form6.ADOQuery1.Active:=false;

form6.ADOQuery1.SQL.Text:='Select * from data where ='+''''+combobox1.Text+'''';

form6.ADOQuery1.active:=true;

end else begin

form6.ADOQuery1.Active:=false;

form6.ADOQuery1.SQL.Text:='Select * from data';

form6.ADOQuery1.active:=true;

end;

end;

end.

2.5

19 2011 - , . . 34, Fprint5200K, 0130633, , .., 22.01.2011. .

, .

21 . , , .

23 . , , . 24.

, . , . , .

( ), , .

3. ѻ

3.1 2010

3.1.1

2010 .

" " , , , , , , - . .

: ;

;

, .

:

, ;

;

, .

 

3.1.2

3.1.2.1

83 , . - , , -, , , , .

, .

, , .

, .

, , .

. - .

90- - 40 , . ( 9 ) , - 80 . , .

, . 83 23 -.

- 1998 80 , 64 . - 40 .

2002 .

 

3.1.2.2

2002 30 . ( 1 . ), 0,3 . 1 , - 1,3 , .

, , : - 24 , - 17 , - 16 , - 14 - - 11 .

. : (24 ), (18 ), (13 ), (11 ).

(20 ), (20 ), (26 ), - - (26).

.

2002 1,3 . . , , . , 8 , 700 , - 432, - 252, - 68, - 48, - 26 - 15.

, . , 80 3 , 95 . , , 84 , 20 , , .

, , , . 20 ( 10 2003 .) 4 25 , 0,14 ( ), - 0,17 , - 0,3, - 0,37, - 0,6. 0,2 .

, , , , .

2 , - 98 .

, . 98 , - 95 .

, :

( , , , );

- ( , );

( );

( , ).

- . 2010 15 , - 75 , - 10 .

, . . , , 15 .

.

1990 1999 20 . 2000 , 7,5 . , 50 . , 75 , 62 - , 51 - , 45 - 39 - .

- . .

1990 75 . 2000 45 . - , .

, , . , .

, , " - " " - " .

, , 4-5 .

.

, . , . , .

: 65 , - 20 , - 15 .

, .

.

, , . , . .

, ( 20 ), 3-5 . , , .

-, , .

- , , . , .

- .

- , .

, - , , 15 . .

, . . . 2010 10-15 .

13 . - 0,1 , - 6,8.

" - ".

, 25 2007 15 2008-2010 "- ".

.

XX , , , , , , .

2002 2000 18 . 0,6 , - 10-15 . 2010 3-4 .

, ("@"), , ("@").

, , , , , . .

" (2002-2010 )". .

 

3.1.3

, , .

. .

, . , .

- . , , " - ", .

, . , , . , , .

2010 , , , .

, , , , , , , .

, 2010 .

3.1.4 : , ,

" " .

, , . , , :

, , ;

;

, ;

.

, . " " , , , . .

, .

, 2010 .

, , , .

. , . .

, , , , . , , . .

( ) .

3.1.5

.

, , .

, -.

, - . .

 

3.1.6

" " , " ".

, , , , , .

.

" " , , .

.

, . : - 42 , - 14 , - 11 , - 10 , - 9 , - 8 , - 6 .

, , , .

, . .

 

3.1.7

, .

, , , " " " " .

" " .

.

, .

.

, .

3.2 -

. , . .

, .

:

-  ;

-  ;

-  .

, .

, , , .

. . -.

- , . , , ,

3.2.1

:

-  , , , .. .

-  , , , .

-  .

-  . , .

-  .

3.3

 

:

- ;

- ;

- ;

- ;

: . - 100 /. 8 .

5.

5 -

. ,
- .
1. , 1 80 1 1 640
2. , 1 100 2 2 1600
3. 1 100 3 3 2400
4. 1 100 1 1 800
1 100 1 1 800
1 100 3 3 2400
1 100 1 1 800
5. 1 100 1 1 800
11 11 10240
(20%) 2048
12288

: , .. 20% :

10240*0,2=2048 .


. 26,2% :

10240*0,262=2682,88 .

.

. 0,8 . 2,47 . :

11*8=88

, :

0,8*2,47*88=173,88 .

, , ( 3- ), 254 . :

6.


6 -

, .
10240
2048
2682,88
289
173,88
: 15533,76

 

3.3.1

5 .

15533,76 ., () :

=15533,76 / 5=3106,75 .

(1)

(1)

=15 . - ;

=10 . - ;

r - ,

r=20%.

(2)

(2)


(3)

(3)

- .

(4)

(4)

- (=18%).

(5)

(5)

- ().

3.3.2

:

-  ;

-  ;

-  .

.

10% :

*0,1=443.45 .


65 ./. , :

65*2=130 .

7 .

7 -

, .
4434,55
443,45
130
: 5008

 

3.3.3

:

-  ;

-  ;

-  .

65 ./ .

65*1=65 .

:

65*0,34=22,1 .


:

0,8*2,47=1,97 .

6.

6 -

, .
65
22,1
1,97
: 89,07

3.3.4

= 10 %,

1 = 1 / (1 + 0.1 ) = 0.91,

2 = 1 / ( 1 + 0.1 ) * ( 1 + 0.1 ) = 0.82,

3 = 1 / ( 1+ 0.1 ) * ( 1+ 0.1 ) * ( 1 + 0.1 ) = 0.75.

1 = * 1 = 3555,35 * 0.91 = 3235,36 .

2 = * 2 = 3555,35 * 0.82 = 2915,38 .

3 = * 3 = 3555,35 * 0.75 = 2666,51 .

4 = * 4 = 3555,35 * 0.68 = 2417,63 .

5008 . 1 =3235,36 .

5008 3235,36 = 1772,44 . 1772,44 / 2915,35 = 0.60 2- . 1 7 .

3.3.5

, . , , 1 7 5 .

, .

(-) . , Delphi, , , - ..

, , . , , , , .

, , , CASE- , , , , Windows. , , , , Delphi. 3- 4- , , .

  . MS Access.

:

1  ;

2  ;

3  ;

4  ;

5  ;

6  ;

7 

. . , .   .

. .


[1] ́ ́ ́ (. Visual Component Library, VCL)  - , Borland . VCL Delphi, C++ Builder Borland Developer Studio , , , VCL. VCL , , , (   . . , ), , , .

,

 

 

 

! , , , .
. , :