364 , , : , , , , , , . , , , .
:
364150
(304)
(123)
(23)
(113)
(4)
(4814)
(5227)
(2616)
(3423)
(4214)
(1518)
(68)
- (2836)
(8269)
(50)
(50)
(762)
(2)
(5275)
(30)
(1222)
(43)
(20403)
(465)
(19)
(108)
(173)
(96)
(899)
(54)
(34)
(476)
(106)
(62792)
(3562)
, (6444)
(2165)
(21320)
(766)
(64)
(3145)
(60)
(17)
(588)
(1000)
(106)
(48)
(3)
(1167)
(8485)
(537)
: (2044)
(11657)
(532)
(21)
(7985)
(3721)
, (10549)
(88)
(58)
(36)
(2257)
(12491)
(91)
(797)
(1338)
(24)
, (214)
(1141)
(3)
(8)
(21697)
(7850)
(3801)
(682)
, (2881)
(475)
(1)
, (7100)
(8694)
, (4121)
(443)
(952)
(2967)
(23)
(748)
(4876)
(95)
(107)
(7)
(2004)
(15)
(663)
(240)
(39)
(25)
(624)
(16)
(2652)
(136)
(90)
(406)
(95)
(24)
(3463)
(4482)
(7216)
(4592)
(5386)
(3)
(2244)
(23)
(29)
(35)
(4517)
(20645)
- (666)
(119)
(2573)
(889)
(288)
(148)
, (1140)

: " "

: " "
: ,
: 06:10:03 19 2010
: 122 : 2 : 0 : 0 :    

ic

c

1. i oi

2. oo ioio-o oi i

3. o i

4. c

5. oo ic o oc

6. o o

7. ii o io coi

8. i o

9. c o

10. Ici ci o

11. i o i

coo

Cco i


c

o i ioi ii o. oo oo-ioo oc c c i. c ioi oo : c o¢i cc, i ic i o i o ic. oo i o i o o, o oc i ic o . oo ioi co c oci o.

c o oo i i oio ii c. ocoo i c oi. I i i oi o co o, o co iooci ocoi c i䒺o coo cco .

o co oi i i ooci co i coc ioi cc. i io o i oci io o oo oi, o c o, i oo oooi ci . i ooo coi ooo i o'. i ci i -i ici, o cocc o iio i , o o, oco oi ioii cc, o'i oi, oi i ii oooo o i i oooo ioi co o.

oii cco o ci o, c o ioi c i oo i io, io i o oio o. co oo o oco oi o . oo oo ioo oc o co oi o ioi, oi o c oi co c, o i i i o i coi ooi.

o ooi oc oi i c oi, i, iioo , o i i o ooc i, i ioooci i oooo ioi co o.

o oco o oi : i c o - i i coio i, i o o oic o i o icooo i, i i.


1. i oi

oo ococ ii, i cci o oo. ooc o o oo o c. o, o oo-oo cc oc i oci coc cooo oo oi ci, o co ooiic o oo oᒺic oo i. i oci oii cooo oo oo oio oo oc o co o, o oo o oc o oo oo i c.

i cc oi c ocooc o cooo oo, o o o o cc oo oci oc oo i o, oi oo oi coi o. o o ocoi ooi ooci co o.

o c oco ooci:

oo co oo i co oo ioo i, oo (io o) i ioi co , oci coi i i ( ioiic, co o ociooci) o oi o o i co oo ioo i;

o oii iio co , oo iio, oi o o c co coo o, o oo oc co o oo i oco ci c;

oco i iio co oi ooo c ocio o co oo iio, o oo oic o iio coi i ;

oco iio co oo oo i, o oo o oo ooc i ico o c o cooi oco;

oi ioi o - ioi o co o iic i io iic i i ioi oi o o oio;

io o io c o coo c o ooo cooo oo, o oo o c i o c;

coi iio co i ioci io ii ioii co oo oo o.

o c oo ooci:

c o o i ci (, ci, o ioc i ic c o coo o);

i c ooo oc, io c oioci;

iic o i o ooo c o co oooo o c oi ocoo.

i coi ooi, i ci ococ co o, oo io coi o Delphi.

Co Delphi o, o o oo oi ooci o c oc, oci o Object Pascal, ocoo Delphi, oo cooo i i o i.

o o coo oo oo c i ci Cc o oii cc. i oi o , c o oo c. o i iooci o Delphi o i oi oioi Windows.

Delphi co o oo, i o o ococ o Object Pascal. o Object Pascal coo io oᒺo-oio o. oi o occ ooci oc oo o i ooi i i coci, oc, , i o ooo o.

2. oo ioio-o oi i

co oo oᒺ o oo i, oio o ioio- o, oo cic ociooc i i, i ioi oci c o.

oo ioio-o oi i - oo oo c, o i ooc .

oo ioio oi i o ocii o i i i i , cocoi i oo, o ci i o, oi ii. o oco i oio o ioi o io:

o oci ioi

co1 Ioi o i

o i o oi i i c oi o. i coi ooi oo co o ci Cc o oii cc, o i o o i ioci ioi i oi c ic o cooo :

M=5, o X: 100-95%;

M=4, o X: 94-76%;

M=3, o X: 75-60%;

M=2, o <60%, M oi c.

iic ioi oc io K i ioc :20 100%

K X % → X = K*100/20;

co X o ioi.

3. o i

o ocioic i, i oio o oo i i o ioi i. o , i oi oo i i ociooci oio o o oi i.

oo o ci i coci:

- ic o ic ii o);

- ic (o o io oio);

- coic (oic coc oo o o ioo c oo ).

oi c oi oc i o-c.

o-c o o oooi o i (oi), o o i.

Ic ii o, i io i oci oc:

ii oi oc ocioo, o i c;

o o i ic o o i o o i i oc. o i o c o o, o i c. o oc oc.

i oc o o i o, o ooc.

o io o oo o o, oo ooo o.

oi o coo oo o oi, i o oc o o ioi. o ocoi :


co 2 o c ioi


co 3 o ioi i


co 4 o i

4. c

C o oo o io i i.

1 C o

o
oo o ci c oo o i
oc c c oc c
oo c oo i

2 C i Paradox 7

o o oi o
o I
o 240
i ioii 1 o 100
ioi 1 oi
i ioii 2 o 100
ioi 2 oi
i ioii 3 o 100
ioi 3 oi
i ioii 4 o 100
ioi 4 oi
o i
o o oi

3 C

i
i integer iic
k integer iic ioi
ocinka integer Oi
KtBal real iic ioi o
time ii c

5. oo ic o oc

oo ico c o oc i o co o, oci i oci oioci ic, o oc oco o.

oco ioi o oi, ococ ic o oc. Ic i, oo oi oi oc.

oo, o oo ic oio o Delphi ii oo o o oi.

oo ic o ci oc i oo:

- ii oo:

1. DBMemo1 oo oo . o o c .

2. DBEdit1, DBEdit2, DBEdit3, DBEdit4 oo oo . o o i ioi.

3. DBImage1 oo oo . o .

5. RadioGroup1 ooi oo RadioButton.

6. BitBtn1, BitBtn2, BitBtn3, BitBtn4, BitBtn5, BitBtn6 o oo oi.

7. Label1, Label2, Label3 ic oi DBEdit1, DBEdit2, DBEdit3, DBEdit4, DBMemo1.

8. DBCheckBox1, DBCheckBox2, DBCheckBox3, DBCheckBox4 oo oo . ioi.

- ii oo: Table1, MainMenu1, DataSource1, OpenPictureDialog1, XPManifest1.

co 5 oo ic o ci


oo ic coo o oc i oo:

- ii oo:

1. DBMemo1 oo oo . o o c .

2. DBImage1 oo oo . o .

3. RadioGroup1 ooi oo RadioButton.

4. BitBtn1 o oo oi.

5. Label ici oi.

6. ProgresBar1, Gauge1 io c c ioi ioio.

7. DBCheckBox1, DBCheckBox2, DBCheckBox3, DBCheckBox4

oo oo . ioi.

- ii oo: Table1, Timer1, DataSource1, XPManifest1.

co 6 oo ic coo o


6. o o

o o c oi oi o. o c io coi Delphi 7.0, o o, ococ c i o Object Pascal.

o c ic i o i. o o ocoo o o ci, oi o oi.

program TestRedactor;

uses

Forms,

REDACTOR in 'REDACTOR.pas' {Form1};

{$R *.res}

begin

Application.Initialize;

Application.CreateForm(TForm1, Form1);

Application.Run;

end.

_____________________________________________________________

unit REDACTOR;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, DB, DBTables, StdCtrls, Mask,

Buttons, Menus, ExtDlgs, XPMan;

type

TForm1 = class(TForm)

DataSource1: TDataSource;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

DBMemo1: TDBMemo;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBCheckBox1: TDBCheckBox;

DBCheckBox2: TDBCheckBox;

DBCheckBox3: TDBCheckBox;

DBCheckBox4: TDBCheckBox;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

BitBtn5: TBitBtn;

BitBtn6: TBitBtn;

DBImage1: TDBImage;

OpenPictureDialog1: TOpenPictureDialog;

BitBtn7: TBitBtn;

DBRadioGroup1: TDBRadioGroup;

XPManifest1: TXPManifest;

BitBtn4: TBitBtn;

Label7: TLabel;

Table1: TTable;

procedure ShowPicture;

procedure N4Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn5Click(Sender: TObject);

procedure BitBtn6Click(Sender: TObject);

procedure BitBtn7Click(Sender: TObject);

procedure DBRadioGroup1Change(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

DataBase:string;

a:Longint;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm1.ShowPicture;

begin

if DBRadioGroup1.ItemIndex=0 then

begin

DBImage1.Visible:=true;

BitBtn7.Visible:=true;

Label1.Visible:=false;

DBMemo1.Visible:=false;

end

else

begin

DBImage1.Visible:=false;

BitBtn7.Visible:=false;

Label1.Visible:=true;

DBMemo1.Visible:=true;

end;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

Form1.Close;

end;

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

if a<=1 then BitBtn1.Enabled:=false

else begin

BitBtn2.Enabled:=true;

dec(a);

Label7.Caption:=' '+IntToStr(a);

Table1.Prior;

BitBtn3.Enabled:=true;

BitBtn5.Enabled:=true;

BitBtn6.Enabled:=false;

BitBtn7.Enabled:=false;

DBMemo1.Enabled:=false;

DBEdit1.Enabled:=false;

DBEdit2.Enabled:=false;

DBEdit3.Enabled:=false;

DBEdit4.Enabled:=false;

DBCheckBox1.Enabled:=false;

DBCheckBox2.Enabled:=false;

DBCheckBox3.Enabled:=false;

DBCheckBox4.Enabled:=false;

DBRadioGroup1.Enabled:=false;

end;

end;

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

if a>=Table1.RecordCount then BitBtn2.Enabled:=false

else begin

BitBtn1.Enabled:=true;

inc(a);

Label7.Caption:=' '+IntToStr(a);

Table1.Next;

BitBtn3.Enabled:=true;

BitBtn5.Enabled:=true;

BitBtn6.Enabled:=false;

BitBtn7.Enabled:=false;

DBMemo1.Enabled:=false;

DBEdit1.Enabled:=false;

DBEdit2.Enabled:=false;

DBEdit3.Enabled:=false;

DBEdit4.Enabled:=false;

DBCheckBox1.Enabled:=false;

DBCheckBox2.Enabled:=false;

DBCheckBox3.Enabled:=false;

DBCheckBox4.Enabled:=false;

DBRadioGroup1.Enabled:=false;

end;

end;

procedure TForm1.BitBtn3Click(Sender: TObject);

begin

Table1.Append;

BitBtn1.Enabled:=true;

BitBtn2.Enabled:=true;

BitBtn3.Enabled:=false;

BitBtn5.Enabled:=false;

BitBtn6.Enabled:=true;

BitBtn7.Enabled:=true;

DBMemo1.Enabled:=true;

DBEdit1.Enabled:=true;

DBEdit2.Enabled:=true;

DBEdit3.Enabled:=true;

DBEdit4.Enabled:=true;

DBCheckBox1.Enabled:=true;

DBCheckBox2.Enabled:=true;

DBCheckBox3.Enabled:=true;

DBCheckBox4.Enabled:=true;

DBRadioGroup1.Enabled:=true;

end;

procedure TForm1.BitBtn5Click(Sender: TObject);

begin

Table1.Edit;

BitBtn3.Enabled:=false;

BitBtn5.Enabled:=false;

BitBtn6.Enabled:=true;

BitBtn7.Enabled:=true;

DBMemo1.Enabled:=true;

DBEdit1.Enabled:=true;

DBEdit2.Enabled:=true;

DBEdit3.Enabled:=true;

DBEdit4.Enabled:=true;

DBCheckBox1.Enabled:=true;

DBCheckBox2.Enabled:=true;

DBCheckBox3.Enabled:=true;

DBCheckBox4.Enabled:=true;

DBRadioGroup1.Enabled:=true;

end;

procedure TForm1.BitBtn6Click(Sender: TObject);

begin

Table1.Post;

BitBtn3.Enabled:=true;

BitBtn5.Enabled:=true;

BitBtn6.Enabled:=false;

BitBtn7.Enabled:=false;

DBMemo1.Enabled:=false;

DBEdit1.Enabled:=false;

DBEdit2.Enabled:=false;

DBEdit3.Enabled:=false;

DBEdit4.Enabled:=false;

DBCheckBox1.Enabled:=false;

DBCheckBox2.Enabled:=false;

DBCheckBox3.Enabled:=false;

DBCheckBox4.Enabled:=false;

DBRadioGroup1.Enabled:=false;

end;

procedure TForm1.BitBtn7Click(Sender: TObject);

begin

if OpenPictureDialog1.Execute then

DBImage1.Picture.LoadFromFile(OpenPictureDialog1.FileName);

end;

procedure TForm1.DBRadioGroup1Change(Sender: TObject);

begin

ShowPicture;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

DataBase := ExtractFileDir(Application.ExeName) + '\DB';

a:=1;

Label7.Caption:=' '+IntToStr(a); end;

procedure TForm1.N2Click(Sender: TObject);

begin

BitBtn2.Enabled:=true;

BitBtn3.Enabled:=true;

BitBtn4.Enabled:=true;

BitBtn5.Enabled:=true;

Label7.Visible:=true;

Table1.DatabaseName:=DataBase;

Table1.TableName:='putanya_OC.db';

DataSource1.DataSet:=Table1;

Table1.Active:=true;

DBGrid1.DataSource:=DataSource1;

DBNavigator1.DataSource:=DataSource1;

end;

procedure TForm1.BitBtn4Click(Sender: TObject);

begin

Table1.Delete;

end;

end.

o o ocoo o ci, oi o oi.

program TEST;

uses

Forms,

Unit1 in 'Unit1.pas' {Form1},

Unit2 in 'Unit2.pas' {Form2},

Unit3 in 'Unit3.pas' {AboutBox},

Unit4 in 'Unit4.pas' {Form4},

Unit5 in 'Unit5.pas' {Form5},

Unit6 in 'Unit6.pas' {Form6};

{$R *.res}

begin

Application.Initialize;

Application.CreateForm(TForm1, Form1);

Application.CreateForm(TForm2, Form2);

Application.CreateForm(TAboutBox, AboutBox);

Application.CreateForm(TForm4, Form4);

Application.CreateForm(TForm5, Form5);

Application.CreateForm(TForm6, Form6);

Application.Run;

end.

_____________________________________________________________

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Menus, ExtCtrls, DB, DBTables;

type

TForm1 = class(TForm)

Image1: TImage;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

procedure N6Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure ShowRegistration;

procedure FormCreate(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure FormShow(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

DataBase: String;

implementation

uses Unit2, Unit3, Unit4, Unit5;

{$R *.dfm}

procedure TForm1.N6Click(Sender: TObject);

begin

Form1.Close;

end;

procedure TForm1.N3Click(Sender: TObject);

begin

Form2.Show;

end;

procedure TForm1.N2Click(Sender: TObject);

begin

AboutBox.ShowModal;

end;

procedure TForm1.ShowRegistration;

begin

Form4.Show;

Form4.Edit1.Text:='';

Form4.Edit2.Text:='';

Form4.Edit3.Text:='';

Form4.Edit1.SetFocus;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

DataBase:=ExtractFileDir(Application.ExeName)+'\DB';

end;

procedure TForm1.N4Click(Sender: TObject);

begin

ShowRegistration;

end;

procedure TForm1.FormShow(Sender: TObject);

begin

Form5.Table1.DatabaseName:=DataBase;

Form5.Table1.TableName:='putanya_OC.db';

Form5.DataSource1.DataSet:=Form5.Table1;

Form5.Table1.Active:=true;

end;

end.

_____________________________________________________________

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons;

type

TForm2 = class(TForm)

Label1: TLabel;

Edit1: TEdit;

Label2: TLabel;

Edit2: TEdit;

Label3: TLabel;

BitBtn1: TBitBtn;

GroupBox1: TGroupBox;

procedure BitBtn1Click(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

x1,cod1,cod2:integer;

implementation

{$R *.dfm}

procedure TForm2.BitBtn1Click(Sender: TObject);

begin

Val(Edit2.Text,x1,cod2);

Val(Edit1.Text,x1,cod1);

if (cod1<>0) or (cod2<>0) then

MessageDlg(' oi i!', mtInformation, [mbOk], 0)

else Form2.Close;

end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Val(Edit2.Text,x1,cod2);

Val(Edit1.Text,x1,cod1);

if (cod1<>0) or (cod2<>0) then

MessageDlg(' oi i!', mtInformation, [mbOk], 0);

end;

end.

_____________________________________________________________

unit Unit3;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,

Buttons, ExtCtrls, jpeg;

type

TAboutBox = class(TForm)

Panel1: TPanel;

ProgramIcon: TImage;

ProductName: TLabel;

Version: TLabel;

Copyright: TLabel;

Comments: TLabel;

OKButton: TButton;

private

{ Private declarations }

public

{ Public declarations }

end;

var

AboutBox: TAboutBox;

implementation

{$R *.dfm}

end.

_____________________________________________________________

unit Unit4;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons;

type

TForm4 = class(TForm)

GroupBox1: TGroupBox;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

BitBtn1: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

uses Unit1, Unit5;

{$R *.dfm}

procedure TForm4.BitBtn1Click(Sender: TObject);

begin

if (Edit1.Text<>'') and (Edit2.Text<>'') and (Edit3.Text<>'')

then

begin

Form4.Close;

Form1.Hide;

Form5.Show;

Form5.Label7.Caption:='IOI: '+Edit1.Text+' '+Edit2.Text;

Form5.Label9.Caption:='0';

Form5.Table1.First;

Form5.CheckBox1.Checked:=false;

Form5.CheckBox2.Checked:=false;

Form5.CheckBox3.Checked:=false;

Form5.CheckBox4.Checked:=false;

if Form5.DBRadioGroup1.ItemIndex=0 then

begin

Form5.DBImage1.Visible:=true;

Form5.DBMemo1.Visible:=false;

end

else

begin

Form5.DBImage1.Visible:=false;

Form5.DBMemo1.Visible:=true;

end;

end

else MessageDlg('oi ci o!', mtInformation, [mbOk], 0);

end;

end.

_____________________________________________________________

unit Unit5;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls, DBCtrls, DB, DBTables, Buttons, XPMan,

ComCtrls, Gauges;

type

TForm5 = class(TForm)

Label1: TLabel;

CheckBox1: TCheckBox;

CheckBox2: TCheckBox;

CheckBox3: TCheckBox;

CheckBox4: TCheckBox;

Label2: TLabel;

Label3: TLabel;

Timer1: TTimer;

Label4: TLabel;

Label5: TLabel;

DataSource1: TDataSource;

Table1: TTable;

DBText2: TDBText;

DBText3: TDBText;

DBText4: TDBText;

DBText5: TDBText;

DBMemo1: TDBMemo;

DBRadioGroup1: TDBRadioGroup;

BitBtn1: TBitBtn;

DBImage1: TDBImage;

Label7: TLabel;

GroupBox1: TGroupBox;

DBCheckBox1: TDBCheckBox;

DBCheckBox2: TDBCheckBox;

DBCheckBox3: TDBCheckBox;

DBCheckBox4: TDBCheckBox;

Label8: TLabel;

Label9: TLabel;

XPManifest1: TXPManifest;

ProgressBar1: TProgressBar;

Gauge1: TGauge;

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure Timer1Timer(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure FormShow(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

ocinka,k,i:integer;

KtBal:real;

a,a1:TTime;

implementation

uses Unit1, Unit2, Unit4, Unit6;

{$R *.dfm}

procedure GiveOcinka;

begin

KtBal:=k*100/StrToInt(Form2.Edit1.Text);

if (KtBal<=100) and (KtBal>=95) then ocinka:=5

else

if (KtBal<=94) and (KtBal>=76) then ocinka:=4

else

if (KtBal<=75) and (KtBal>=60) then ocinka:=3

else ocinka:=2;

end;

procedure ShowOcinka;

begin

Form5.Hide;

Form6.Label1.Caption:=Form4.Edit1.Text+' '+Form4.Edit2.Text;

Form6.Label2.Caption:=' '+Form4.Edit3.Text;

Form6.Label3.Caption:='iic : '+IntToStr(i-1)+'/'+Form2.Edit1.Text;

Form6.Label4.Caption:='iic ioi: '+IntToStr(k)+'/'+Form2.Edit1.Text;

Form6.Label5.Caption:='c i c: '+Form2.Edit2.Text+' .';

Form6.Label6.Caption:=IntToStr(ocinka);

Form6.Label7.Caption:=' OI';

Form6.Show;

end;

procedure TForm5.FormClose(Sender: TObject; var Action: TCloseAction);

begin

ShowOcinka;

end;

procedure TForm5.Timer1Timer(Sender: TObject);

begin

if Label5.Caption<>'0:00:00' then

begin

ProgressBar1.Position:=ProgressBar1.Position+1;

a1:=StrToTime('0:00:01');

a:=a-a1;

Label5.Caption:=TimeToStr(a);

end

else begin ShowOcinka; end; end;

procedure TForm5.BitBtn1Click(Sender: TObject);

begin

if (CheckBox1.Checked=false) and (CheckBox2.Checked=false) and (CheckBox3.Checked=false)

and(CheckBox4.Checked=false) then MessageDlg(' o oo ioii!', mtInformation, [mbOk], 0)

else

begin

if (CheckBox1.Checked=DBCheckBox1.Checked) and (CheckBox2.Checked=DBCheckBox2.Checked)

and (CheckBox3.Checked=DBCheckBox3.Checked) and (CheckBox4.Checked=DBCheckBox4.Checked)

then begin

k:=k+1;

Gauge1.Progress:=Gauge1.Progress+trunc(100/StrToInt(Form2.Edit1.Text))

end;

i:=i+1;

Label1.Caption:=' '+IntToStr(i);

Label9.Caption:=IntToStr(k);

Table1.RecNo:=1+Random(Table1.RecordCount);

if DBRadioGroup1.ItemIndex=0 then

begin

DBImage1.Visible:=true;

DBMemo1.Visible:=false;

end

else

begin

DBImage1.Visible:=false;

DBMemo1.Visible:=true;

end;

end;

if (Gauge1.Progress<=100) and (Gauge1.Progress>=95) then Gauge1.ForeColor:=clMoneygreen

else

if (Gauge1.Progress<=94) and (Gauge1.Progress>=76) then Gauge1.ForeColor:=clyellow

else

if (Gauge1.Progress<=75) and (Gauge1.Progress>=60) then Gauge1.ForeColor:=clred

else Gauge1.ForeColor:=clsilver;

CheckBox1.Checked:=false;

CheckBox2.Checked:=false;

CheckBox3.Checked:=false;

CheckBox4.Checked:=false;

GiveOcinka;

if (i>StrToInt(Form2.Edit1.Text)) then

begin

ShowOcinka;

end;

end;

procedure TForm5.FormShow(Sender: TObject);

begin

i:=1;

k:=0;

Label1.Caption:=' 1';

Label4.Caption:=TimeToStr((StrToTime(Form2.Edit2.Text)/60));

Label5.Caption:=Label4.Caption;

Timer1.Enabled:=true;

a:=StrToTime(Form2.Edit2.Text)/60;

ProgressBar1.Position:=0;

ProgressBar1.Max:=StrToInt(Form2.Edit2.Text)*60;

Gauge1.Progress:=0;

end;

end.

_____________________________________________________________

unit Unit6;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls, Buttons;

type

TForm6 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

BitBtn1: TBitBtn;

GroupBox1: TGroupBox;

Label8: TLabel;

procedure BitBtn1Click(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

private

{Private declarations }

public

{Public declarations }

end;

var

Form6: TForm6;

implementation

uses Unit5, Unit1;

{$R *.dfm}

procedure TForm6.BitBtn1Click(Sender: TObject);

begin

Form5.Timer1.Enabled:=false;

Form6.Close;

Form1.Show;

end;

procedure TForm6.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Form5.Timer1.Enabled:=false;

Form1.Show;

end;

end.


7. ii o io coi

ii oo o co ioo o Borland Delphi 7.0, oci, o , co oo oo ooo .

c o o oo oo o o, i oo oo : , o, o o. , c o ici oc, oio c co i. ic o ioi c co o Cc o oii cc. ic i c oc , ioc oi. o o, ioio, iic c, io c. i o o o oc ioi o oo o. O i i io oo o oo.

Delphi oi oi oc coo Unit i ic c o. ci o i ooo o occ oi Unit1. io o o o Unit2. io o o o o Unit3. io o ici oc o Unit4. oo i o coo o occ Unit5. o i c oci oi Unit6.

o Form1, Form2, Form3, Form4, Form5, AboutBox ioo ic oc, oo i oo, oi, o. o oᒺ ci o o, ioo Unit. oo o c, o o o icc ii co o, o, o i oo o.


8 . i o

i o o o, oo o i oio ocoi oi.

oooo i o o:

i oooo cooo oo.

o i c o ioi oi.

o oco oii o o ic:

ici oi i.

c ico o oo .

o o oco o o o ic icic. oco o ci o o oi, i coi .

9. c o

c cic i, ic ooi i, o ic, ioii oi , o ococ oo oi.

Ic ii c o.

ii c ococ i i o ci, o , o o oo.

oci c i ic oo ci oi o ic oᒺ.

Oco oio i o i c, i ic c. o c o oc o io ci, oi o i o.

o c ico oi c ooo o, o c oo o o o ooi. c cocc o coo c. i , ci cci i, coc ioo o c: oo ii i, oo io oo. , oo o, o iic oi i io oc o i.

o i coo oo ci Cc o oii cc i cooo oo . o c o i ii ioi:

1. i o oi, i oo o?

oi cc

o cc

o o

o oc

2. o c OC o ic i c:

o o

o oc

o cc

3. OC ooo?

Windows

Linux

MS-DOS

Unix

4. i ic o oo oo cco MS-DOS?

io.sys

config.sys

msdos.sys

command.com

5. i o ii io c ci?

dec

inc

sub

imul

6. i o o io c ci?

add

sbb

div

inc

7. o oci o ?

cf

pf

rf

df

8. ic i oi i?

eax/ax/ah

ax/ah/al

eax/dx/ch

ax/dh/cl

9. For (i=1; i>20; i++)

o

oo

icoo

Oo o

10. oi ocico oo?

++a

a++

a+=b

a=a+b

o ioi , o iic ioi ic, o i o c io.

10. Ici ci o

c o oc: coi , co o, o ci oc i c: DB , icc Paradox , TestREDACTOR.exe o ci, TEST.exe co o.

ooo io coo o oio, o o oico coo oi. ii oii cooo o c:

- o co oo oco 500 ;

- oᒺ oo i 64 ;

- oᒺ ioo ic oco c 4 ;

- oio ic CD-ROM oUSB-o;

o o coo oo oo o, o o oo i c.

c co oo coo oo 3.55 cooo oco.

i c c i TestREDACTOR.exe o TEST.exe o c oio o o ( oo , o oc o ooo oc o c C:). io oio oo c:


o BDE iicoi oio oc oi, cc PDOXUSRS.NET. oo oio BDE iico. i Configuration i Paradox, i NET DIR ( oi) oi, cc . oc o o oc o i oi. i i o c:

oo, o i oio o ci TestREDACTOR.exe. c. ǒc ioo io, oio o oc (o o test, oo o i). ic oo c o, o o, , , c ioii o. o o oio i.

oo, o oo c oio TEST.exe. iooo ii o oc (o o test, oo o i). ǒc o, i o o, o c: iic c i c. O o o, o oc i o oo o. oio > oo c. ic oo c o, oio c co i: i, I . ic oo co o O ooo c. c c ic oo c. oo, o i oo o oo oio i.

11 . i o i

o oi oo , , o, ic, ci, i . oi oco o c-o, cc o ci o c.

co 7 io o o ci

o c cc o:

co 8 io ooo o o


co 9 io o o o

co 10 io o ici

co 11 io o o

co 12 io o o o


co 13 io o c

co o oo i, ooc ci Cc o oii cc.

i i coo o, co oio c o i ioi ci cooo oo. ic oo i oc io o o cooo .

O, o c 13, o o oci o , oo io o iic , i oc ioii, iic ioi oi oo.


coo

ico, c o, o c, o co o ooi i i Oco o oii o. ooo i o i i i io o , oooo i i o.

ioc i o co ioo ic oc o iii ic, i o ooc oc i oo, o co oo Borland Delphi 7.0, ooi .

o o ioi cc o o icoo ooo o, o i io.


Cco i

c .., oi .., c .. Turbo Pascal i Delphi. . i, 2003.

O.I. Io i o i. o ooi. . i 2003.

o i 100 ooo Delphi.

o i oo Delphi 7.0.

/
:
? : letsdoit777.blogspot.com
07:30:44 19 2016
9000 " "? : business1777.blogspot.com ! C !
19:44:52 28 2015

, : " "



, ?

, .
, .
, .
, .
, .



(150742)
(1839)
Copyright 2005-2016 BestReferat.ru bestreferat@mail.ru

@Mail.ru