Реферат Розробка автоматизованого робочого місця спеціаліста ТОВ &Бравіда&

rid1MouseMove (Sender: TObject; Shift: TShiftState; X,:Integer); Image1MouseMove (Sender: TObject; Shift: TShiftState; X ,: Integer); StringGrid1MouseLeave (Sender: TObject); Image1MouseLeave (Sender: TObject); Image2MouseMove (Sender: TObject; Shift: TShiftState; X ,: Integer); Image2MouseLeave (Sender: TObject); Image3MouseMove (Sender: TObject; Shift: TShiftState; X ,: Integer); Image3MouseLeave (Sender: TObject); Image4MouseMove (Sender: TObject; Shift: TShiftState; X ,: Integer); Image4MouseLeave (Sender: TObject); StringGrid2MouseMove (Sender: TObject; Shift: TShiftState; X ,: Integer); StringGrid2MouseLeave (Sender: TObject); Edit1MouseMove (Sender: TObject; Shift: TShiftState; X ,: Integer); Edit1MouseLeave (Sender: TObject); Image5MouseMove (Sender: TObject; Shift: TShiftState; X ,: Integer); Image5MouseLeave (Sender: TObject); N2Click (Sender: TObject); N1Click (Sender: TObject);

{Private declarations}

{Public declarations}

end;

Визначення глобальних змінних:

var

Form1: TForm1;

implementation

Визначення всіх форм, що використовуються в програмі:

uses Unit2, Unit3, Unit4;

Пояснення в рядку стану при наведенні миші на модель агрегату:

procedure TForm1.Edit1MouseMove (Sender: TObject; Shift: TShiftState;,: Integer) ;. Panels [0] .Text:= Модель агрегату raquo ;;

end;

Пояснення в рядку стану при наведенні миші на головну форму:

procedure TForm1.FormMouseMove (Sender: TObject; Shift: TShiftState;,: Integer) ;. Panels [0] .Text:= raquo ;;;

Пояснення в рядок стану при наведенні на зображення агрегату:

procedure TForm1.Image1MouseMove (Sender: TObject; Shift: TShiftState;,: Integer) ;. Panels [0] .Text:= Зображення агрегату raquo ;;;

Пояснення в рядок стану при наведенні на зображення агрегату:

procedure TForm1.Image2MouseMove (Sender: TObject; Shift: TShiftState;,: Integer) ;. Panels [0] .Text:= Зображення агрегату raquo ;;;

Пояснення в рядок стану при наведенні на зображення виду різьблення або виду підключення агрегату:

procedure TForm1.Image3MouseMove (Sender: TObject; Shift: TShiftState;,: Integer) ;. Panels [0] .Text:= Вид різьблення/вид підключення агрегату raquo ;;;

Пояснення в рядок стану при наведенні на зображення аналога агрегату:

procedure TForm1.Image4MouseMove (Sender: TObject; Shift: TShiftState;,: Integer) ;. Panels [0] .Text:= Зображення аналога агрегату raquo ;;

end;

Пояснення в рядок стану при наведенні на технічні характеристики агрегату:

procedure TForm1.Image5MouseMove (Sender: TObject; Shift: TShiftState;,: Integer) ;. Panels [0] .Text:= Технічні характеристики агрегату raquo ;;

end;

Процедура створення головної форми:

procedure TForm1.FormCreate (Sender: TObject);

Опис змінних:

var s1, s2, U, I, A, B, C, k, sh: string; n, j: integer;

f: textfile;

Почала коду програми:

Почала коду, який перехоплює помилки:

Скинь?? даних за попереднім агрегату:

s1:= raquo ;; s2:=laquo;raquo;;:=laquo;raquo;;:=laquo;raquo;;:=laquo;raquo;;:=laquo;raquo;;:=laquo;raquo;;.Caption:=laquo;raquo;;.Caption:=laquo;raquo;;.Caption:=laquo;A: raquo ;;. Caption:= B: raquo ;;. Caption:= C: raquo;;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.RowCount:=2;.Cells[0,0]:=laquo;Компонентыraquo;;.Cells[0,1]:=laquo;raquo;;.Cells[0,0]:=laquo;raquo;;

StringGrid2.Cells [0,1]:= raquo ;;

Зчитування моделі агрегату:

s1:=Edit1.text;

Читання характеристик і параметрів агрегату з файлу:

assignfile(f,ExtractFilePath(paramstr(0))+laquo;1laquo;+s1+raquo;1.txtraquo;);(f);(f,U);(f,I);(f,A);(f,B);(f,C);

closefile (f);

Читання з файлу і виведення на екран компонентів агрегату:

StringGrid1.Visible:=True;(f,Extra...