Приложение д Текст программы, выполненной в Delphi
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, jpeg, ExtCtrls, Menus, ShellAPI, StdCtrls, ComCtrls;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
Image1: TImage;
N7: TMenuItem;
N8: TMenuItem;
EXIST1: TMenuItem;
N5: TMenuItem;
Timer1: TTimer;
StatusBar1: TStatusBar;
Label1: TLabel;
Label2: TLabel;
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure N5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2, Unit3, Unit4, Unit7;
{$R *.dfm}
procedure TForm1.N3Click(Sender: TObject);
begin
Close;
end;
procedure TForm1.N4Click(Sender: TObject);
begin
ShellExecute (Handle, nil, 'F:\1.xls', nil, nil, SW_RESTORE);
end;
procedure TForm1.N1Click(Sender: TObject);
begin
Form2.show;
end;
procedure TForm1.N7Click(Sender: TObject);
begin
Form3.show;
end;
procedure TForm1.N8Click(Sender: TObject);
begin
Form4.show;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
StatusBar1.Panels[0].Text:='Время: '+TimeToStr(Time);
StatusBar1.Panels[1].Text:=' Дата: '+DateToStr(Date);
end;
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if MessageDlg('Закрыть программу?', mtWarning,
[mbOk, mbCancel], 0) = mrCancel then
CanClose := False;
end;
procedure TForm1.N5Click(Sender: TObject);
begin
Form7.show;
end;
end.
Отзыв с предприятия
Практикантка Семенова Екатерина Федоровна проходила производственную практику на предприятии И.П. Кондратьев М.В.
В течение трех недель прохождения практики с 16.01.2012 г. по 04.02.2012 года, Семенова Е.Ф. внимательно и ответственно относилась к выполняемой работе. Активно участвовала в выявлении и устранении причин неполадок техники, а также участвовала в различной повседневной работе. Всю порученную работу выполняла добросовестно.
Замечаний по прохождению практики нет.
Приложение е Диск с выполненной работой
