, .. , , , . .

 

 

!

 

:

:

 

 

 

?

StudentHelp, , MS Word. , , antiplagiat.ru, etxt.ru advego.ru. StudentHelp , Word .


:


:

: . : 09.07.2012. : 2010. : 24. antiplagiat.ru: < 30%

():


uj


1.1
, .
033300090601045






...3
..3
1. ..4
1.1 腅.4
1.2 .4
1.3 6
1.4 ⅅ7
2 .8
2.1 .12
2.2 ..12
2.3 ..15
2.4 ...35
2.5 35
2.6 充.35
.39
.....41
...40
....43











, , . , , , , , . , .1
, . , , , ..
. , , , .
() . Windows.
: ; . , , . 5%, 1000 . , 6%, 1000 ./ . , 10 , 1% . . .
. , , , . Windows, Windows 9x NT(4.0, 2k, XP).











1.

1.1 .
. *.tab. : ( name.tab), ( surname.tab), ( number.tab), ( date.tab), ( sum.tab), ( allsum.tab). . , , , .

1.2 .
: , , . .
:


1. .


2. .


3. .


1.3 .
(*.tab), . , .
. (*.tab) , ( ) . , . , , , , , .
. , .
, ( ), Object Pascal.
, . . ( *.bak) .

1.4 .
Delphi 7 (, , Delphi 3). : Delphi Windows, .



2.


Delphi. :
    Form1 .
    Form2 .
    Form3 ( ).
    Form4 .
. . .

Form1.
:
Caption - : ;
Border Style bsSingle;
BiMaximize False;
Position poScreenCenter;
: FormActivate, FormClose, FormCreate;

MainMenu1.
:
Items
(N1) (N4)
(N5)
(N2) (N6)
(N7)
(N8)
(N10) (N11)
(N12)

StatusBar1.
:
Text .

Memo, , . .

Form2.
:
Caption - ;
Border Style bsSingle;
BiMaximize False;
Position poScreenCenter;
: FormActivate;

PopupMenu1.
:
Items
(N1).

StringGrid1.
:
Border Style bsSingle;
FixedCols 0;
FixedRows 1;
( ).

Button1.
:
Caption ;
Cancel True;
: Button1Click.

Button2.
:
Caption ;
: Button2Click.

Form3.
:
Caption - ;
Border Style bsSingle;
BiMaximize False;
Position poScreenCenter;
: FormActivate;

Memo1.
:
ReadOnly True;
ScrollBars ssVertical;

Button1.
:
Caption - ;
: Button1Click.

Button2.
:
Caption - ;
Default True;
: Button2Click.

Form4.
:
Caption - ;
Border Style bsSingle;
BiMaximize False;

GroupBox1.
:
Caption - ;

GroupBox2.
:
Caption - ;

ListBox1 ListBox2.
:
BorderStyle bsSingle;
Items

Button1.
:
Caption - ;
: Button1Click.

Button2.
:
Caption - ;
Default True;
Cancel True;
: Button2Click.

2.1

, , . , .
1 .
(procedure TForm1.FormCreate(Sender: TObject)) . , , TForm1.FormActivate(Sender: TObject). 2, load_db (. unit2.pas).
2 .
. . , (, ..), ..
3 .
. , (procedure save_db). .
. .
2.2

asdb.exe \db1.
:
Name.tab ,
Surname.tab ,
Number.tab ,
Date.tab ,
Sum.tab ,
Allsum.tab ,
Asdb.dof
Asdb.dpr ,
Asdb.exe
Asdb.res ,
Unit1.pas 1 1
Unit2.pas 2 2
Unit3.pas 3 3
Unit4.pas 4 4
Unit1.dfm 1 1
Unit2.dfm 2 2
Unit3.dfm 3 3
Unit4.dfm 4 4
Unit1.dcu Unit1.pas Unit1.pas
Unit2.dcu Unit2.pas Unit2.pas
Unit3.dcu Unit3.pas Unit3.pas
Unit4.dcu Unit4.pas Unit4.pas
*.bak
-*.txt , .

2.3


:
Unit1.pas
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Menus, ToolWin, ComCtrls, StdCtrls, Buttons, jpeg, ExtCtrls;

type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
StatusBar1: TStatusBar;
N10: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
CheckBox1: TCheckBox;
Memo2: TMemo;
Memo1: TMemo;
Button1: TButton;
Bevel1: TBevel;
procedure N6Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormActivate(Sender: TObject);
procedure N11Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4;

{$R *.DFM}

procedure save_db;
var
stname:TextFile;
stsurname:TextFile;
stnumber:TextFile;
stdate:TextFile;
stsum:TextFile;
stallsum:TextFile;
s:Integer;
st:Integer;
sts:String;
Begin
{ }
AssignFile(stname,'name.tab');
Rewrite(stname);
s:=Form2.StringGrid1.RowCount;
for st:=1 to s do
begin
if Form2.StringGrid1.Cells[0,st]<>'' then
begin
sts:=Form2.StringGrid1.Cells[0,st];
WriteLn(stname,sts);
end;
end;
CloseFile(stname);

AssignFile(stsurname,'surname.tab');
Rewrite(stsurname);
s:=Form2.StringGrid1.RowCount;
for st:=1 to s do
begin
if Form2.StringGrid1.Cells[1,st]<>'' then
begin
sts:=Form2.StringGrid1.Cells[1,st];
WriteLn(stsurname,sts);
end;
end;
CloseFile(stsurname);

AssignFile(stnumber,'number.tab');
Rewrite(stnumber);
s:=Form2.StringGrid1.RowCount;
for st:=1 to s do
begin
if Form2.StringGrid1.Cells[2,st]<>'' then
begin
sts:=Form2.StringGrid1.Cells[2,st];
WriteLn(stnumber,sts);
end;
end;
CloseFile(stnumber);

AssignFile(stdate,'date.tab');
Rewrite(stdate);
s:=Form2.StringGrid1.RowCount;
for st:=1 to s do
begin
if Form2.StringGrid1.Cells[3,st]<>'' then
begin
sts:=Form2.StringGrid1.Cells[3,st];
WriteLn(stdate,sts);
end;
end;
CloseFile(stdate);

AssignFile(stsum,'sum.tab');
Rewrite(stsum);
s:=Form2.StringGrid1.RowCount;
for st:=1 to s do
begin
if Form2.StringGrid1.Cells[4,st]<>'' then
begin
sts:=Form2.StringGrid1.Cells[4,st];
WriteLn(stsum,sts);
end;
end;
CloseFile(stsum);

AssignFile(stallsum,'allsum.tab');
Rewrite(stallsum);
s:=Form2.StringGrid1.RowCount;
for st:=1 to s do
begin
if Form2.StringGrid1.Cells[6,st]<>'' then
begin
sts:=Form2.StringGrid1.Cells[6,st];
WriteLn(stallsum,sts);
end;
end;
CloseFile(stallsum);

End;

procedure TForm1.N6Click(Sender: TObject);
begin
{ }
Form2.ShowModal;
end;

procedure TForm1.N5Click(Sender: TObject);
var
a:Integer;
begin
{ }
a:=MessageDlg(' ?',mtConfirmation,[mbYes,mbNo],0);
if a=6 then save_db;
Application.Terminate;
end;

procedure TForm1.N4Click(Sender: TObject);
begin
{ }
save_db;
end;

procedure TForm1.N7Click(Sender: TObject);
begin
{ }
Form3.ShowModal;
end;

procedure TForm1.N8Click(Sender: TObject);
begin
{ }
Form4.ShowModal;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
qqq:Boolean;
begin
{start}
qqq:=False;
Form1.N4.Enabled:=False;
Form1.N12.Enabled:=False;

if not FileExists('name.tab') then
begin
FileCreate('name.tab');
qqq:=True;
end;

if not FileExists('surname.tab') then
begin
FileCreate('surname.tab');
qqq:=True;
end;

if not FileExists('number.tab') then
begin
FileCreate('number.tab');
qqq:=True;
end;

if not FileExists('date.tab') then
begin
FileCreate('date.tab');
qqq:=True;
end;

if not FileExists('sum.tab') then
begin
FileCreate('sum.tab');
qqq:=True;
end;

if not FileExists('allsum.tab') then
begin
FileCreate('allsum.tab');
qqq:=True;
end;

if qqq=True then
begin
MessageDlg(' .'+#13
+' .',mtWarning,[],0);
..................



90% antiplagiat.ru, etxt.ru advego.ru




* . , .