. ( 1.3). .
. 1.3 -
:
- . .
- ;
- ;
- ;
- , ;
- ( );
- , ;
- , ;
:
- ;
- ;
2.
(. 2.1, 2.2, 2.4).
2.1
2.2
2.3
2.4
. .
:
- ;
- ;
- ;
- , , ;
- ;
- ;
- ;
- ;
- ;
- ;
- ;
- ;
, .
2.5
2.6
2.7
2.8
3.
Delphi - Embarcadero RAD studio XE2, .
|
|
. , . , , . - , . , . , , , , .
4.
1) Delphi:
- TLabel ;
- TEdit ;
- TCombobox ;
- TButton ;
- TRadioGroup ;
- TStringGrid ;
- TPanel ;
- TChart .
2) , .
3) , .. .
4) ( , , , ), .
5) .
:
procedure TFrmServiceAddresses.BtnDeleteAddressClick(Sender: TObject);
var
H, Temp: PServiceAdds;
begin
if SgAdds.Row <> 0 then
begin
if (HeadAdds^.Street = SgAdds.Cells[0, SgAdds.Row]) and
(HeadAdds^.Number = SgAdds.Cells[1, SgAdds.Row]) then
begin
Temp:= HeadAdds;
HeadAdds:= HeadAdds^.Next;
Dispose (Temp);
end
else
begin
H:= HeadAdds;
while (H^.Next^.Street <> SgAdds.Cells[0, SgAdds.Row]) and (H^.Next^.Number <> SgAdds.Cells[1, SgAdds.Row]) do
H:= H^.Next;
Temp:= H^.Next;
H^.Next:= H^.Next^.Next;
Dispose (Temp);
end;
GridDeleteRow(SgAdds.Row);
end;
end;
5. ,
5.1 -
AddReply | . | , . | : ..; . ; 42; 54; 758493; ; | , , , . |
: ..; . ; 34; 26; 758493; ; | , , , .. , . | |||
Change Reply | . | , . | : ..; . ; 42; 54; 907356; ; | , , . |
: ..; . ; 42; 54; 643648; ; | , , , .. , . | |||
DeleteReply | . | . | : ..; . ; 42; 54; 907356; ; | . |
SearchBy Number | . | , . | : 2 | , , . |
: | , , , .. , . | |||
SortByName | . | . |
, .
|
|
6.
(. 6.1):
6.1
, . . . , (. 6.2):
6.2
.
, , (). , (. 6.3).
6.3
:
-
-
-
-
-
-
"" , (. 6.4) "".
6.4
:
1) , ; , (. 6.5):
6.5
2) , ''(. 6.6):
6.6
3) , (. 6.7):
6.7
, ''''. (. 6.8).
6.8
, . , '''' . (. 6.9):
|
|
6.9
. '''' . , . '''' ''''.
,
, "" , (. 6.10) "".
6.10
, .
"" .
(. 6.11) "ok" (). -> F5(. 6.12).
6.11 6.12
(. 6.13):
6.13
(. 6.14).
6.14
, , ''ok''(. 6.15):
6.15
, Debug.
, , '''' . Debug.
'''' '' '' . ''''(. 6.16).
6.16
. -> . (. 6.17):
6.17
''''. (. 6.18):
6.18
''''. 0 .
. -> . , . ''ok''.
-> .
; ; , .
.
, , .
|
|
( . , Delphi, . , .
, ( ) , . . .
, . .
1. . . . .: , 1989.
2. . . Delphi. .
3. . Delphi. , 2006.
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Grids, Vcl.StdCtrls, Vcl.ExtCtrls,
unit3, unit4, unit6, unit8,
Vcl.Imaging.jpeg, Vcl.Imaging.pngimage, Vcl.Menus;
type
TFrmMain = class(TForm)
SgMain: TStringGrid;
PnlMain: TPanel;
BtnAdd: TButton;
. .
....