,,,
1.
2.
2.1
2.2
2.3
2.4
2.5
2.6
3.
3.1
3.2
3.3
3.4
,
, :
- ;
- ;
- , ;
- ;
.
. () , .
. , , . , , , , .
, , ( ).
, , .
:
;
;
:
;
;
;
.
1: ( 1).
, .
1. , .
; ; . |
. (), , .
:
Ø ;
Ø ;
Ø ;
Ø ;
, . , , . , ..
, , :
Ø ;
Ø ;
Ø ;
Ø ;
Ø ;
Ø ;
, 2:
2.
1. |
Ø ; Ø ; |
2. | Ø ; |
3. | Ø ; |
4. |
Ø ; Ø ; |
5. ; |
Ø () ; Ø () ; |
6. | Ø ; |
:
Ø ;
Ø ;
Ø ;
Ø ;
Ø ;
Ø - ;
Ø ;
Ø ;
. :
Ø ;
Ø ;
Ø .
:
Ø .
Ø
Ø
Ø
Ø
Ø -
Ø
Ø
:
1. , , :
Ø : , , ;
Ø ;
2. - , :
Ø ;
3. :
Ø -
Ø ( );
4. :
Ø .
3. , .
/ | ||
1. |
_/ - _ _ _ |
|
2. |
_/ |
|
3. |
_/ |
4. ,
/ | ||
1. |
_/ _ _ |
|
2. |
_ |
5.
5. .
/ | |||
1. 2. |
() ( ) |
2 3 |
( 2) ( 2) |
6.
6. .
/ | |||
1. |
() | 4 | ( 2) |
7.
7. .
/ | |||
1. 2. |
- |
5 6 |
( 2) ( 2) |
: ( 3) . 7.
, :
Ø , ;
Ø , ;
Ø ;
Ø .
: ( 4).
: ; , . , . "" "", ""
, , , :
1. :
Ø _/;
Ø ;
Ø -;
Ø _ ;
Ø _;
Ø _.
2. :
Ø _/;
Ø ;
Ø ;
Ø ;
Ø .
3. :
Ø _/;
Ø ;
Ø ;
Ø .
4. :
Ø _/;
Ø _;
Ø _;
Ø _;
Ø _;
Ø ;
Ø .
5. :
Ø ;
Ø ;
Ø ;
Ø ;
Ø ;
Ø _.
, 8: ( 5).
. 9: ( 6).
: Pentium IV, Canon 100. , . . , . , Windows Microsoft Office. .mdb (MS Access).
Delphi. Delphi - . Delphi Borland Object Pascal, Turbo Pascal.
Delphi (RAD -Rapid Application Development). , Two Ways Tools. , - , . , , , .
Delphi , , . SQL.
10. ( 7).
-, .
Ritual.exe ( 2), MaskEdit . :
- "" ( 5) . . " " ( 6), "" ( 7);
- " " ( 8) ;
-"" ( 9) ;
2 :
-"" ( 10) "" ( 11) . "" " " ( 12);
- "" ( 13) .
8.
. , : Klient_Table1, Uslugi_Table2, Zakaz_Table1, ProdavetsTable1, Nakladn_Table1, ADOTable1 .
: Klient, Uslugi, Zakaz, Prodavets, Nakladn, DataSource1 .
:
Glavnaya.pas.
1. procedure TGlavnaya_.Button1Click - ;
procedure TGlavnaya_.Button1Click(Sender: TObject);
begin
DBEdit1.ReadOnly:=false;//
DBEdit2.ReadOnly:=false;//
DBEdit3.ReadOnly:=false; //
Button3.Enabled:=true; //
Button4.Enabled:=true;//
Button1.Enabled:=false;//
Button2.Enabled:=false;//
Button6.Enabled:=false; //
Button7.Enabled:=false; //
DBEdit1.SetFocus; //
DataModule1.Klient_Table1.Insert; //
end;
2. procedure TGlavnaya_.Button3Click ;
procedure TGlavnaya_.Button3Click(Sender: TObject);
begin
if (DBEdit1.Text='') or (DBEdit2.Text='') or (DBEdit3.Text='')
then
begin
ShowMessage(' '); //
DBEdit1.SetFocus;//
end
else
begin
Button3.Enabled:=false; //
Button4.Enabled:=false; //
Button1.Enabled:=true; //
Button2.Enabled:=true; //
Button6.Enabled:=true; //
Button7.Enabled:=true; //
DataModule1.Klient_Table1.Post; //
DBEdit1.ReadOnly:=true; //
DBEdit2.ReadOnly:=true; //
DBEdit3.ReadOnly:=true; //
end;
end;
3. procedure TGlavnaya_.Button4Click - "";
procedure TGlavnaya_.Button4Click(Sender: TObject);
begin
Button3.Enabled:=false; //
Button4.Enabled:=false; //
Button1.Enabled:=true; //
Button2.Enabled:=true; //
Button6.Enabled:=true; //
Button7.Enabled:=true; //
DataModule1.Klient_Table1.Cancel; //
DBEdit1.ReadOnly:=true;//
DBEdit2.ReadOnly:=true; //
DBEdit3.ReadOnly:=true; //
end;
4. procedure TGlavnaya_.Button7Click
procedure TGlavnaya_.Button7Click(Sender: TObject);
begin
DataModule1.Klient_Table1.Prior;//
end;
5. procedure TGlavnaya_.Button9Click
procedure TGlavnaya_.Button9Click(Sender: TObject);
begin
Otch_Nakladnaya_.QRLabel9.Caption:=' ';//
Otch_Nakladnaya_.QRLabel26.Caption:=DBEdit1.Text; //
Otch_Nakladnaya_.QRLabel27.Caption:=DBEdit1.Text;//
Otch_Nakladnaya_.QuickRep1.Preview;//
end;
6. procedure TGlavnaya_.Button21Click
procedure TGlavnaya_.Button21Click(Sender: TObject);
begin
if (Edit1.Text='') or (Edit1.Text='0')
then
ShowMessage(' ')
Else
begin
DBText1.Caption:=IntToStr((strtoint(Edit1.Text))+(strtoint(DBText1.Caption)));
DataModule1.Uslugi_Table2.FieldByName('-').AsString:=DBText1.Caption;;
Edit1.Text:='0';
DataModule1.Uslugi_Table2.Post; //
Button13.Enabled:=true; //
Button14.Enabled:=true; //
Button10.Enabled:=true; //
Button15.Enabled:=true; //
Button21.Visible:=false; //
Button21.Enabled:=false; //
Button11.Visible:=true; //
Button11.Enabled:=false; //
Button12.Enabled:=false; //
Edit1.ReadOnly:=true; //
end;
end;
7. procedure TGlavnaya_.Button11Click
procedure TGlavnaya_.Button11Click(Sender: TObject);
begin
if (DBEdit7.Text='') or (Edit1.Text='') or (DBEdit11.Text='')
or (Edit2.Text='')
then
ShowMessage(' ') //
Else
begin
DBText1.Caption:=Edit1.Text; //
DataModule1.Uslugi_Table2.FieldByName('-').AsString:=DBText1.Caption;;
Edit1.Text:='0';
Edit3.Text:=IntToStr(((strtoint(DBEdit11.Text))* (strtoint(Edit2.Text))) div (strtoint('100')) );
DBEdit9.Text:=IntToStr((strtoint(Edit3.Text))+(strtoint(DBEdit11.Text)));
DataModule1.Uslugi_Table2.Post;
Button13.Enabled:=true; //
Button14.Enabled:=true; //
Button10.Enabled:=true; //
Button15.Enabled:=true; //
Button21.Visible:=true; //
Button21.Enabled:=false; //
Button11.Visible:=false; //
Button11.Enabled:=false; //
Button12.Enabled:=false; //
DBEdit7.Enabled:=false; //
Edit1.ReadOnly:=true; //
DBEdit11.ReadOnly:=true; //
Edit2.ReadOnly:=true; //
end;
end;
8. procedure TGlavnaya_.Button8Click
procedure TGlavnaya_.Button8Click(Sender: TObject);
begin
Edit4.Text:=InputBox(' ',' ','1'); //
if StrToInt(Edit4.Text)>DataModule1.Uslugi_Table2.FieldByName('-').AsInteger then
begin
ShowMessage(' , !'); //
Button8.Click; //
end
else
begin
//
DataModule1.Uslugi_Table2.Edit;//
DataModule1.Uslugi_Table2.FieldByName('_').AsString:=DBEdit4.Text;
DataModule1.Uslugi_Table2.FieldByName('-').AsInteger:=DataModule1.Uslugi_Table2.FieldByName('-').AsInteger-StrToInt(Edit4.Text);
DataModule1.Uslugi_Table2.Post;//
Edit5.Text:=IntToStr(StrToInt(Edit4.Text) * StrToInt(DBEdit5 .Text));
//
DataModule1.Zakaz_Table1.Insert;
DataModule1.Zakaz_Table1.FieldByName('_').AsString:='1';
DataModule1.Zakaz_Table1.FieldByName('_').AsString:=DataModule1.Klient_Table1.FieldByName('_/').AsString;
DataModule1.Zakaz_Table1.FieldByName('_').AsString:=DataModule1.Uslugi_Table2.FieldByName('_/').AsString;
DataModule1.Zakaz_Table1.FieldByName('_').AsString:=DBEdit4.Text;
DataModule1.Zakaz_Table1.FieldByName('').AsString:=Edit4.Text;
DataModule1.Zakaz_Table1.FieldByName('').AsString:=Edit5.Text;
DataModule1.Zakaz_Table1.Post;
Button9.Enabled:=true;
///////////////////////////////////////////////////////
DataModule1.ADOTable1.Active:=false;
DataModule1.ADOTable1.Active:=true;
DataModule1.ADOTable1.Filtered:=False; //
DataModule1.ADOTable1.Filter:='_='+Edit6.Text;// //
DataModule1.ADOTable1.Filtered:=True; //
end;
End;
Zastavka.pas
, . : , , .
3.2
"" : :
1. IBM- (Intel Pentium 1 );
2. 64 ;
3. 50 ;
4. CD-ROM;
5. Windows 98 ;
6. SVGA ( 15 ) , ;
7. , 101/102- ;
8. "" 2-, 3- Serial Mouse.
Windows. MS Office( 2000).
: Baza.mdb Ritual.exe .
, :
1. CD-ROM;
2. "";
3. ".mdb" "";
4. "";
5. "" " ".
6. "OK".
.
Ritual.exe. . 13 ( 10).
""
.
""
"" 14 ( 10).
- , , , .
" ", , . , , . " " 15 ( 10).
"" , "". "" 16 ( 10).
"", , .
.
"", :
, :
, , "" :
, . . . . Access .
, . . - .
.
, .
.
1. . " Delphi 7. ", .: , 2003.
2. .. "Delphi 7. ", .: , 2005.
3. "DelphiWorld", 5.0, 2002-2003.
4. . " : , , ", .: , 2001.
5. .. " Delphi 7" , "-", 2005. 1152.
6. " ";
7. "Delphi v6.0 Book";
8. "Delphi v7.0 Book";
9. .., .. "Delphi 6" ., -, 2002. 1152.
10. 25 " ".
1.
1: .
2
2: " ()".
3: " ( )".
4: " ()".
5: "".
6: "-".
3.
7: .
4.
:
1. .
2. "" .
3. "" .
4. .
-:
5. -.
6. -.
7. "" -.
8. "" -.
9. -.
10. - .
.
11. .
12. .
13. "" .
14. "" .
15. .
16. .
17. "" .
18. "" .
19. "" .
20. "" .
21. " " .
22. " " .
23. .
.
24. .
25. .
26. "" .
27. "" .
28. .
29. .
.
30. .
31. " " .
32. .
33. .
34. .
5
8: .
6.
9: .
7.
10 "".
10 (): "".
8.
11: - .
9
12:
10.
13: " ".
14: ""
15: " "
16: ""
1. 2. 2.1 2.2 2.3
Copyright (c) 2024 Stud-Baza.ru , , , .