ғқ ө құң ә ұ құ қң ңқ ә қ ғ қ:
= sum (r + r) (1)
r R
ұғ
r - r- ұ ә қғ ә ңқ;
r - r- ұ қ ғң ө;
R - ұң ө.
R- ұ ғ ңқ ө ғ ң:
r = r + r + r, (2)
r = r * r * (1 + r), (3)
r = * r, (4)
r = * (r + r), (5)
ұғ
r - r- ұ ғ ңқ;
r - ғ ғ ң ғ;
r - ұ ң ғқ (ө);
r - қ ә қ ө ;
r - қ ңқ;
- қ ңқ ;
r - ә қғ ;
- ә қғ .
R- ұ қ ғң ө қ:
r = (r*r)/100, (6)
ұғ
r қ ғң .
ғқ ө ғ
ғқ өң ө ғ қ:
= *(1+)*(1+/100)/, (7)
ұғ
ғқ ө құң ө құ;
- ө ң ;
ө ғғң ү ғғ ;
- ғғ ө ө ң .
ғқ ө құғ ғ, ғ ң ө құ, 30 000 . құ. ғқ ө ө ү қ , қғ 0,2 ң. 70 % қ ү ғ ғқ өң ү ү.
ұ ғ ғқ өң ө ғ ң :
= 30000*(1+0,2)*(1+70/100)/3 = 17 340
\\\\\\\\\\\
Қ
қ ө ққ ү құғ өң ө.
|
|
ү құ қ ә . қ:
құ - ұ ң ә ү ұғ ө ққ ү (ғ, ұғғ, ғ, , қ ққ ү) құң құ
, құң құ, қ ң қғғ ө құң құ. ң ққ .
ққ ү, ң ә қ ә қ құ өң, құ ә ң қ, қ ә қ қғ ңғ ә ү . ә құ ғ ққ ү ққ ққ ә ұқ ғ ә ү .
i ii ү үi Ққ ң Үii i ө i .
ғғ i өi ә қ ө қ ii ғғ қғ ө қ ғ ө ii i өi ә қ үi i i үi қ i өiң ә қң .
i өi құ i ii ү i i ң ii ү қң өii.
ң қ, ң ө ү: Ққ ң (27.11.2007 . ө ә қ).
қ, ғ ү өң ө. ң қ.
i құ құң әii әiiң ғ ң i құ қ әii үi ғ , -қ әi i құ қ қ ғ ғ, өi ғ қ i ү i ғғ ә i ө қ ө қ i , ғ үi құқ [3, .63].
|
|
ү құң ң ң қ , ү қ , қ, ғқ қ қ. үң , қ, ғғ ғң қ.
ң қ ң құ құ, қ қ, қ ө.
Ә қ , ғ ә .. ң ү .
Jboss .
қ, қ қ құ ң ү .
ү ң 1 қ. ұ:
- 1 GHz ң ү2- UltraSPARC IIIi 1 ;
- GB ө ;
- Ethernet 1000/100/10 ;
- Ultra 320SCSI 2 ;
- 4- Ultra320 SCSI 73 GB ;
- DVD;
- қғ қ ө;
- DDS 4 DAT 72 .
ұ IBM қ қ . ң қ :
- Pentium III , 1 GHz ;
- ө 512 MB ;
- ө 5 GB ;
- SVGA ә 1024*768 қ ;
- MS Windows 2000/XP Ru қ ү.
қ ң ө қ ң қ-қ ғ, ұ қң ә, қ ә ғ, ө өң қ, қ өң ң қ қғ. ұ ң ққ, ғқ ә қ қ ң . Қғ , ң ң ұғ ә өң құққ қ . ұ қғ ғ . ң құ өң .
ҚҒ Ә ҲDz̲
1 қ ң. , 8 2007.
2 . .-.-.: , 1933.
3Ққ ң ң (09.02.2008 ө ә қғ).
4Microsoft Windows XP // Chip-, 2012, 6.
5Microsoft Windows XP Professional // Chip-, 2012, 2.
6: . - 3- . ./ . . .. .: , 2010.
7http://E.Customs.kz//
8 .. Delphi 7.-.: -, 2003.
9 .. Ļ. - -, : 2001.
10 . Delphi: . / . . . .: , 2009.
|
|
11 . Delphi 7. . .: , 2003.
12 .. Delphi.-.: ̻, 2003.
13 .. : . .: , 2004.
14 . // . . 2001.
15 /www 5ballov.ru
16 .., .., .., .. - : / . -.: 2000.
17 .. : 2002.
Қ
ғ
program Project1;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2},
Unit3 in 'Unit3.pas' {Form3},
Unit4 in 'Unit4.pas' {Form4},
Unit5 in 'Unit5.pas' {Form5},
Unit8 in 'Unit8.pas' {Form8},
Unit10 in 'Unit10.pas' {Form10},
Unit11 in 'Unit11.pas' {Form11},
Unit13 in 'Unit13.pas' {Form13},
Unit6 in 'Unit6.pas' {Form6};
{$R *.res}
begin
Application.Initialize;
Application.Title:= 'Êåäåí';
Application.CreateForm(TForm6, Form6);
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TForm3, Form3);
Application.CreateForm(TForm4, Form4);
Application.CreateForm(TForm5, Form5);
Application.CreateForm(TForm8, Form8);
Application.CreateForm(TForm10, Form10);
Application.CreateForm(TForm11, Form11);
Application.CreateForm(TForm13, Form13);
Application.Run;
end.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, DB, ADODB, Grids, DBGrids, ComCtrls, ExtCtrls, StdCtrls,
WordXP, ComObj, ShellApi,Buttons, jpeg, sSkinManager, sSkinProvider;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
Panel1: TPanel;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
BitBtn4: TBitBtn;
BitBtn7: TBitBtn;
BitBtn9: TBitBtn;
TabSheet2: TTabSheet;
ADOTable2: TADOTable;
DataSource2: TDataSource;
DBGrid2: TDBGrid;
BitBtn1: TBitBtn;
BitBtn8: TBitBtn;
BitBtn10: TBitBtn;
TabSheet3: TTabSheet;
DBGrid3: TDBGrid;
ADOTable3: TADOTable;
DataSource3: TDataSource;
BitBtn13: TBitBtn;
BitBtn15: TBitBtn;
SpeedButton13: TSpeedButton;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
BitBtn17: TBitBtn;
N6: TMenuItem;
N7: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
N5: TMenuItem;
ADOTable2id: TIntegerField;
ADOTable2name_goods: TWideStringField;
ADOTable2cod_goods: TWideStringField;
ADOTable2birlik: TWideStringField;
ADOTable2baga: TWideStringField;
ADOTable1id: TWideStringField;
ADOTable1sumame_payer: TWideStringField;
ADOTable1first_name_payer: TWideStringField;
ADOTable1partonymic_payer: TWideStringField;
ADOTable1mn_payer: TWideStringField;
ADOTable3id: TAutoIncField;
ADOTable3date: TDateTimeField;
ADOTable3fam: TWideStringField;
ADOTable3tauar: TWideStringField;
ADOTable3cena: TIntegerField;
ADOTable3ves: TIntegerField;
ADOTable3tolem: TIntegerField;
ADOTable3sum: TIntegerField;
N13: TMenuItem;
Image1: TImage;
sSkinManager1: TsSkinManager;
sSkinProvider1: TsSkinProvider;
N2: TMenuItem;
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn9Click(Sender: TObject);
|
|
procedure BitBtn12Click(Sender: TObject);
procedure BitBtn6Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure BitBtn7Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn8Click(Sender: TObject);
procedure BitBtn13Click(Sender: TObject);
procedure BitBtn15Click(Sender: TObject);
procedure BitBtn14Click(Sender: TObject);
procedure BitBtn11Click(Sender: TObject);
procedure BitBtn16Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure BitBtn10Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton13Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure ADOTable3CalcFields(DataSet: TDataSet);
procedure N9Click(Sender: TObject);
procedure BitBtn17Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N11Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure N13Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2, Unit3, Unit4, Unit5, Unit7, Unit8, Unit10, Unit11, Unit6,
Unit12, Unit13;
{$R *.dfm}
procedure TForm1.BitBtn4Click(Sender: TObject);
begin
Form2.Show;
end;
procedure TForm1.BitBtn9Click(Sender: TObject);
begin
Form3.Show;
end;
procedure TForm1.BitBtn12Click(Sender: TObject);
begin
form1.TabSheet1.Visible:=false;
end;
procedure TForm1.BitBtn6Click(Sender: TObject);
begin
if adoTable1.State in [dsInsert,dsEdit] then
adoTable1.Post;
end;