Дипломная работа: Автоматизация учета простоев лифтов в ООО "Подъёмник"

Скачать

Заказать новую работу

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
111
       
        

      

        

112

1.      
- 
2.      

3. 
     

4.       
       - 
- - 
5.         
-
6.        
-
7.  - 
   -      

8. 
- --
9. 

10.            
-
11.       
     
- , 1999
12. 
-
113
13.       
   

14.          

15.     
-
16.         

17.        
   -
 
18.        
  -    

19.          

20.         
 -

21.        

22.     


23.        
-
24.   -  

25.        

114
26.       
     -  -85) /
       

27.        

28.        

29.        
 -  

115
Приложение. Листинг программных модулей
unit ufCommandMaker;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, uLift;
type
TfCommandMaker = class(TForm)
bOk: TButton;
bCancel: TButton;
eLevel: TEdit;
Label1: TLabel;
procedure bOkClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
private
FLevel: Integer;
FLift: TLift;
procedure SetLevel(Value: Integer);
procedure SetLift(Lift: TLift);
{ Private declarations }
public
{ Public declarations }
property Level: Integer read FLevel;
property Lift: TLift read FLift write SetLift;
end;
var
fCommandMaker: TfCommandMaker;
implementation
{$R *.dfm}
procedure TfCommandMaker.bOkClick(Sender: TObject);
begin
if Lift = nil then
raise Exception.Create('  ');
try
FLevel := StrToInt(eLevel.Text);
if (FLevel < Lift.LowLevel) or (FLevel > Lift.HighLevel) then
raise Exception.Create('Error Message');
except
on E: Exception do
begin
raise Exception.Create('  ');
end;
end;
ModalResult := mrOk;
end;
Источник: https://baza.diplomsite.ru/previewfile/2415

Смотрите также:

Изложение содержания дела, по которому приняты судебные постановления
_1-тема-СтрМетал
_1966(~1
_files_materials_5053_prog.ntr
_Антонян Ю.М., Сексуальные преступления. Чикатило и другие
_РГР № 1 (2)