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

);

Image1.Visible:=True;.Visible:=True;.Visible:=True;.Picture.LoadFromFile(ExtractFilePath(paramstr(0))+laquo;1laquo;+s1+raquo;1.jpgraquo;

);.Picture.LoadFromFile(ExtractFilePath(paramstr(0))+laquo;1laquo;+s1+raquo;2.jpgraquo;

);.Picture.LoadFromFile(ExtractFilePath(paramstr(0))+laquo;1laquo;+s1+raquo;3.jpgraquo;

) ;. Caption:=U + V raquo ;;. Caption:=I + Amp raquo ;; A lt; gt; then Label5.Caption:=Label5.Caption + A + mm raquo ;; B lt; gt; then Label6.Caption:=Label6.Caption + B + mm raquo ;; C lt; gt; then Label7.Caption:=Label7.Caption + C + mm raquo ;;

except

Label8.Caption:= raquo ;;. Caption:= raquo ;;. Caption:= A: raquo ;;. Caption:= B: raquo ;;. Caption:= C: raquo ;;. Picture:=nil; .Picture:=nil; .Picture:=nil; .Picture:=nil ;;;

TForm1.N3Click (Sender: TObject) ;. Show ;;

TForm1.N4Click (Sender: TObject) ;. Show ;;

TForm1.N5Click (Sender: TObject);

if PrinterSetupDialog1.Execute then Form1.Print ;;

TForm1.N2Click (Sender: TObject) ;. Show ;;

TForm1.StringGrid1MouseMove (Sender: TObject; Shift:

TShiftState; X ,: Integer) ;. Panels [0] .Text:= Компоненти агрегату raquo ;;

end;

//Пошук аналогів виділеного агрегату:

procedure TForm1.StringGrid1SelectCell (Sender: TObject; ACol, ARow:

Integer; CanSelect: Boolean); f: textfile; n, j: integer; str1,str2,k,s1:string;:=Edit1.text;.Visible:=True;:=stringGrid1.Cells[ACol,ARow];.Cells[0,0]:=str1;(f,ExtractFilePath(paramstr(0))+laquo;11laquo;+str1+raquo;.txtraquo;);(f);(f,n);.RowCount:=n+1;j :=1 to n do (f, k) ;. Cells [0, j]:=k;

end; (f) ;;

procedure TForm1.StringGrid2MouseMove (Sender: TObject; Shift:

TShiftState; X ,: Integer) ;. Panels [0] .Text:= Аналоги обраного компонента raquo ;;;

procedure TForm1.StringGrid2SelectCell (Sender: TObject; ACol, ARow:

Integer; CanSelect: Boolean);str2:string;:=stringGrid2.Cells[ACol,ARow];.Visible:=True;.Picture.LoadFromFile(ExtractFilePath(paramstr(0))+laquo;12'+str2+raquo;.jp

g ') ;. Picture:=nil; .Visible:=False;

ShowMessage ( Зображення відсутня! ) ;;

end;

TForm1.Timer1Timer (Sender: TObject) ;. Enabled:=False; .Show;

end;

.

Unit2;

, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls, ExtCtrls, jpeg;

=class (TForm): TTimer ;: TImage; Timer1Timer (Sender: TObject); Image1Click (Sender: TObject);

{Private declarations}

{Public declarations};

: TForm2;

Unit1, Unit5;

{$ R * .dfm}

TForm2.Image1Click (Sender: TObject) ;. Enabled:=False; .Show; .AlphaBlend:=False ;;;

TForm2.Timer1Timer (Sender: TObject) ;. Enabled:=False; .Show; .AlphaBlend:=False ;;;

.

Unit3;

, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls;

TForm3=class (TForm): TMemo ;: TButton; Button1Click (Sender: TObject);

{Private declarations}

{Public declarations};

: TForm3;

{$ R * .dfm}

TForm3.Button1Click (Sender: TObject) ;;;

.

Unit4;

, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls, Grids, ExtCtrls, JPEG, ExtDlgs;

=class (TForm): TLabel ;: TImage ;: TStringGrid ;: TLabel ;: TLabel ;: TLabel ;: TLabel;

Label6: TLabel ;: TLabel ;: TEdit ;: TEdit ;: TEdit ;: TEdit ;: TEdit ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TButton ;: TButton ;: TOpenPictureDialog ;: TButton ;: TComboBox; FormCreate (Sender: TObject); Button1Click (Sender: TObject); Button2Click (Sender: TObject); StringGrid1MouseMove (Sender: TObject; Shift: TShiftState; X ,: Integer); Button3Click (Sender:TObject);

{Private declarations}

{Public declarations};

: TForm4...